B
bytelife
Unregistered / Unconfirmed
GUEST, unregistred user!
procedure Tfrm_hawb_input.Button2Click(Sender: TObject);
begin
dm1.adoconnection1.ConnectionString:=frm_main.strconn;
with dm1.ADOQuery1 do
begin
close;
Connection:=dm1.ADOConnection1;
with sql do
begin
clear;
add('select mawb from mawb');
add('where mawb=:dmawb');
end;
Parameters.ParamByName('dmawb').Value:=edit1.text;
open;
end;
if dm1.ADOQuery1.RecordCount=0 then
begin
messagebox(handle,'该总运单号不存在，请您重新输入一个已录入的总运单号。','提示',mb_ok+mb_iconinformation);
dm1.ADOQuery1.close;
edit1.setfocus;
EXIT;
end;
dm1.ADOQuery1.close;
end;
第一次点击这个BUTTON的时候，会正常运行，再点击这个BUTTON的时候就会提示
‘对象打开时，操作不被允许’了，
但是明明我已经把adoquery.close了呀。
begin
dm1.adoconnection1.ConnectionString:=frm_main.strconn;
with dm1.ADOQuery1 do
begin
close;
Connection:=dm1.ADOConnection1;
with sql do
begin
clear;
add('select mawb from mawb');
add('where mawb=:dmawb');
end;
Parameters.ParamByName('dmawb').Value:=edit1.text;
open;
end;
if dm1.ADOQuery1.RecordCount=0 then
begin
messagebox(handle,'该总运单号不存在，请您重新输入一个已录入的总运单号。','提示',mb_ok+mb_iconinformation);
dm1.ADOQuery1.close;
edit1.setfocus;
EXIT;
end;
dm1.ADOQuery1.close;
end;
第一次点击这个BUTTON的时候，会正常运行，再点击这个BUTTON的时候就会提示
‘对象打开时，操作不被允许’了，
但是明明我已经把adoquery.close了呀。