Bas_Common事件处理过程一览表.doc

文档介绍：mon事件处理过程一览表
//日期有效性检查
procedure DateCheck(Sender: TObject);
//月份有效性检查
procedure MonthCheck(Sender: TObject);
//人员代码检查(代码必须存在,不能为空)
procedure EmployeeCodeCheck(Sender: TObject);
//人员代码检查(代码可以为空,但非空时一定要有效)
procedure GetEmployeeName(Sender: TObject);
//人员代码检查(代码可以为空,可以不存在,如果存在则显示名称)
procedure FindEmployeeCode(Sender: TObject);
//人员代码提示
procedure EmployeeHint(Sender: TObject; var Key: Word;
Shift: TShiftState);
//人员名称检查
procedure EmployeeNameCheck(Sender: TObject);
//部门代码检查(代码必须存在,不能为空)
procedure DeptCodeCheck(Sender: TObject);
//部门代码检查(代码可以为空,但非空时一定要有效)
procedure GetDeptName(Sender: TObject);
//部门代码检查(代码可以为空,可以不存在,如果存在则显示名称)
procedure FindDeptCode(Sender: TObject);
//部门代码提示
procedure DeptHint(Sender: TObject; var Key: Word;
Shift: TShiftState);
//部门名称检查
procedure DeptNameCheck(Sender: TObject);
//上级部门代码检查(代码可以为空,但非空时一定要有效)
procedure GetDep_DeptName(Sender: TObject);
//供应商代码检查(代码必须存在,不能为空)
procedure VendorCodeCheck(Sender: TObject);
//供应商代码检查(代码可以为空,但非空时一定要有效)
procedure GetVendorName(Sender: TObject);
//供应商代码检查(代码可以为空,可以不存在,如果存在则显示名称)
procedure FindVendorCode(Sender: TObject);
//供应商代码提示
procedure VendorHint(Sender: TObject; var Key: Word;
Shift: TShiftState);
//客户代码检查(代码必须存在,不能为空)
procedure CustomerCodeCheck(Sender: TObject);
//客户代码检查(代码可以为空,但非空时一定要有效)
procedure GetCustomerName(Sender: TObject);
//