看错了 不好意思procedure TFrmBFCard.FormShow(Sender: TObject); var i,comport:integer; begin with ADOQuery do begin close;sql.clear; sql.add('select top 0 * from employeeA'); open; end; CheckBox1.Checked:=ReadIniFile(WsBool,'SysConfig','cardcb'); CB_PrintTicket.Checked:=ReadIniFile(WsBool,'Ticket','PrintTicket'); with dm.adoq_icstate do begin close;sql.clear; sql.add('select * from icstate'); open; if recordcount =0 then begin close; msgerr(handle,'IC卡状态表数据不完整!');exit; end; end; SetParenthandle(self.Handle); //打开通讯口 comport:= IcReader_info.ComPort; IcReader_info.icDev:=rf_init1(comport,IcReader_info.baund); if IcReader_info.icDev<=0 then begin MsgErr(handle,'打开通讯口COM'+inttostr(comport+1)+'失败或没有检测到IC卡读写设备!!'); exit; end; end;
with ADOQuery do begin close;sql.clear; sql.add('select top 0 * from employeeA'); open; end; 不知道你这段代码有什么意义??整个感觉很乱。。
onCreate没有任何事件
不好意思procedure TFrmBFCard.FormShow(Sender: TObject);
var
i,comport:integer;
begin
with ADOQuery do
begin
close;sql.clear;
sql.add('select top 0 * from employeeA');
open;
end; CheckBox1.Checked:=ReadIniFile(WsBool,'SysConfig','cardcb');
CB_PrintTicket.Checked:=ReadIniFile(WsBool,'Ticket','PrintTicket'); with dm.adoq_icstate do
begin
close;sql.clear;
sql.add('select * from icstate');
open;
if recordcount =0 then
begin
close;
msgerr(handle,'IC卡状态表数据不完整!');exit;
end;
end; SetParenthandle(self.Handle);
//打开通讯口
comport:= IcReader_info.ComPort;
IcReader_info.icDev:=rf_init1(comport,IcReader_info.baund);
if IcReader_info.icDev<=0 then
begin
MsgErr(handle,'打开通讯口COM'+inttostr(comport+1)+'失败或没有检测到IC卡读写设备!!');
exit;
end;
end;
with ADOQuery do
begin
close;sql.clear;
sql.add('select top 0 * from employeeA');
open;
end;
不知道你这段代码有什么意义??整个感觉很乱。。