procedure Tfrm_hygl.DataSetEdit1Execute(Sender: TObject);
begin
inherited;
frm_vipedit:=tfrm_vipedit.create(application);
frm_vipedit.b_ok.tag:=1;
//检测会员有无借书
dm.ADO_czdt.Open;
dm.ADO_czdt.First;
if dm.ADO_czdt.Locate('证号',dm.ADO_vip.fieldbyname('证号').AsString,[]) then
begin
frm_vipedit.e_id.Enabled:=false;
dm.ADO_czdt.Close;
end;
dm.ADO_czdt.Close;
//
frm_vipedit.showmodal;
end;
procedure Tfrm_hygl.FormCreate(Sender: TObject);
begin
inherited;
dm.ADO_vip.Open;
dm.ADO_vip.Sort:='证号';
dm.ADO_vip.First;
end;
procedure Tfrm_hygl.FormClose(Sender: TObject; var Action: TCloseAction);
begin
inherited;
dm.ADO_vip.close;
dm.ADOQuery.Close;
dm.ADOQuery.SQL.Clear;
release;
end;
procedure Tfrm_hygl.DataSetDelete1Execute(Sender: TObject);
var
mes:string;
begin
inherited;
dm.ADO_czdt.Open;
dm.ADO_czdt.First;
if dm.ADO_czdt.Locate('证号',dm.ADO_vip.fieldbyname('证号').AsString,[]) then
begin
mes:='办证会员 <'+dm.ADO_vip.fieldbyname('姓名').AsString
+'> 还有租借的图书或影碟未还，不能删除！';
