基类设计说明Tfrm_Base_Common.doc

文档介绍：基类设计说明
版本:
基类名称
mon
父类名称
TFrm_Base
目的、作用、局限
目的:
作用:1处理常用键盘事件(回车,上下光标键);2事件处理过程的集中存放处.
局限:
待完善
作为事件处理过程的集中存放处,现有的过程还不够,不能覆盖今后所有情况,现有过程的名称还没有规范化.
组成
AdoQry_Tmp: TADOQuery;//备用查询控件,可临时用它来访问数据库
设计
说明
重要的变量:
protected
DBConnect:TADOConnection; //ADO连接引用变量,在SetDBConnect中赋值;
Public
//子类对象窗体Create后,必须调用SetDBConnect,用于设置数据库连接
procedure SetDBConnect(ADOConnection:TADOConnection); virtual;
end;
事件:
OnKeyDown
OnKeyPress
过程/函数/方法:
procedure FormKeyDown(Sender: TObject; var Key: Word;Shift: TShiftState);
procedure FormKeyPress(Sender: TObject; var Key: Char)
缺陷
备注
大部分控件的OnExit事件在这里处理,标准的OnExit 事件处理过程写法:
处理过程首先要判断ActiveControl是否是btn_cancel按钮,如果是则 Exit,因为按[取消]按钮时不进行检查,如:
if(=’btn_cancel’)then
exit;
当检查不通过时必须调用Abort,这样写有利于在[确定]之前重新调用每一控件的OnExit 事件处理过程时,当某控件检查不通过可及时Abort ,不可以用Exit;如:
if(TEdit(Sender).Text='')then
begin
dispinfo('系统拒绝空值',1);
TWinControl(Sender).SetFocus;
Abort;
end;
不要删除Delphi 自动生成的 inherited