请教 ( 积分: 10 )

就是我把这个窗体的数据导入到了另一个窗体了
我要怎么判断若是这个窗体的数据， KTGL.Button1.Click事件不可用呢
反之可用了
这是导入数据的代码
procedure TForm3.SpeedButton5Click(Sender: TObject);
begin
if dbgrid1.Datasource.DataSet.IsEmpty then
begin
showmessage('你还没有选择客户！');
exit;
end
else
begin
if not TLCYGLXT.KT_FJTHXXB.active then
TLCYGLXT.KT_FJTHXXB.Open;
label3.Caption:=dbgrid1.Fields[0].AsString ;
if TLCYGLXT.KT_FJTHXXB.Locate('编号',label3.caption,[loPartialKey]) then
TLCYGLXT.KT_FJTHXXB.Edit ;
TLCYGLXT.KT_FJTHXXB.Post;
YGCX.BitBtn1.Enabled:=false;
TLCYGLXT.YGXXB.Open;//打开员工信息表
YGCX.ShowModal;
end;
end;
下面这段代码就是我想KTGL.Button1.Click;为不可用
procedure TDCFY_LR.FormClose(Sender: TObject; var Action: TCloseAction); //关闭窗体
begin
KTGL.Button1.Click;
TLCYGLXT.CPFYXXB.Close; //关闭菜谱费用信息表;
TLCYGLXT.CJFYXXB.Close; //关闭餐具费用信息表;
TLCYGLXT.SJFYXXB.CLose; //关闭水酒信息表
TLCYGLXT.KT_FJTHXXB.CLose;
TLCYGLXT.JZBH.Close;
Query2.Close;
QUery1.Close;
DCFY_LR.Release;
DCFY_LR:=nil;
end;

加个变量判断不就行了