流行模式

var
uName:string;
begin
if not MainFormActived() then exit; //一般在主窗口打开时执行才有意义。
AutoExesItemStop('ABC');//暂时终止本功能再次执行
OpenQuery('ADOQuery','select * from finger_event WHERE fingerPrinterId='''+@^Curuser()+'''');
if not ADOQuery.FieldByName('uName').isnull then
begin
uName:= ADOQuery.FieldByName('uName').asstring;
end;
ADOQuery.close;
// ShowMessage(uName);
AutoExesItemStart('ABC');//启动本功能再次执行
if uName<>'' then
begin
ExeFuncCode('@T:2:I:1');//功能调用
end;
end.



/////////////////////
关闭录入窗口
FormInput.close;
返回导航页面
MainForm.PageControlPaD.TabIndex:=0;