with form2.ADOQuery1 do
begin
close;
sql.Clear;
sql.Add('select * from xg0108_employee');
sql.Add('where 人员代码='+''''+edit1.Text+'''');
open;
if form2.ADOQuery1.RecordCount<>0 then
begin
application.MessageBox('人员代码也存在','警告',MB_ICONEXCLAMATION)
edit1.SelectAll;
edit1.SetFocus;
exit;
endedit1.SelectAll;和edit1.SetFocus;发生错误
begin
close;
sql.Clear;
sql.Add('select * from xg0108_employee');
sql.Add('where 人员代码='+''''+edit1.Text+'''');
open;
if form2.ADOQuery1.RecordCount<>0 then
begin
application.MessageBox('人员代码也存在','警告',MB_ICONEXCLAMATION)
edit1.SelectAll;
edit1.SetFocus;
exit;
endedit1.SelectAll;和edit1.SetFocus;发生错误
或者是form2未Create就用里面的控件
还有可能是你的edit1.enabled=false也回出错
可以用
try
//
except
//
end;
来捕捉捉到了做你想做的事情