Sys_Global系统通用过程函数一览表.doc

文档介绍：Sys_Global系统通用过程/函数一览表
//通用代码检查,当输入的数据有错误时,自动弹出一个正确代码选择Form
{ADOQuery 由外面提供的临时ADOQuery
NameFieldName,NameFieldTitle分别是"##名称"字段的字段名和字段标题
CodeFieldName,CodeFieldTitle分别是"##代码"字段的字段名和字段标题
TableName数据库表名}
monCodeCheck(Sender:TObject;ADOQuery:TADOQuery;
NameFieldName,NameFieldTitle,CodeFieldName,CodeFieldTitle,TableName:String);
//通用代码提示,弹出一个正确代码选择Form
{ADOQuery 由外面提供的临时ADOQuery
NameFieldName,NameFieldTitle分别是"##名称"字段的字段名和字段标题
CodeFieldName,CodeFieldTitle分别是"##代码"字段的字段名和字段标题
TableName数据库表名}
monHint(Sender:TObject;ADOQuery:TADOQuery;
NameFieldName,NameFieldTitle,CodeFieldName,CodeFieldTitle,TableName:String);
//通用的由代码来取得名称的过程
{ADOQuery 由外面提供的临时ADOQuery
NameFieldName是"##名称"字段的字段名
CodeFieldName是"##代码"字段的字段名
TableName数据库表名}
monGetName(Sender:TObject;ADOQuery:TADOQuery;
NameFieldName,CodeFieldName,TableName:String);
//字符串不为空,不含单引号检查
{
DispStr检查不通过时提示信息"标题"
}
procedure NotNullTextCheck(Sender:TObject;DispStr:String);
//统一的信息提示窗口
{
msgtext提示信息, mbtype 提示类型: 1 严重错误,2 错误提示 3 信息提示
}
function dispinfo(msgtext:string;mbtype:integer):char;
//月份有效性检查
{
InputMonth月份字符串
DispStr检查不通过时提示信息
检查不通过时返回False,否则True
}
function MonthCheck(InputMonth,DispStr:String):Boolean;
//日期有效性检查
{
InputDate月份字符串
DispStr检查不通过时提示信息
检查不通过时返回False,否则True
}
function DateCheck(InputDate,DispStr:String):Boolean;
//输入字符串是否为空
{
InputS