delphi+AccessVCD租赁管理系统（开题报告＋源程序＋文档正文＋外文翻译＋答辩ppt）(八)

最新活动：微信集50个赞就可获取任意一篇钻石会员文档。详情见微信集赞换文档

delphi+AccessVCD租赁管理系统（开题报告＋源程序＋文档正文＋外文翻译＋答辩ppt）(八) ing:='男';
dm.ADO_vip.FieldByName('证类型').AsString:='年证';
dm.ADO_vip.FieldByName('押金').AsString:='0.00';
frm_vipedit:=tfrm_vipedit.create(application);
frm_vipedit.b_ok.tag:=0;
frm_vipedit.showmodal;

end;

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
           +'> 还有租借的图书或影碟未还，不能删除！';

    imgDownMin: TImage;
    palLeft: TPanel;
    palRight: TPanel;
    imgRight: TImage;
    imgCloseButton: TImage;
    imgMinButton: TImage;
    imgSizeButton: TImage;
    imgMaxButton: TImage;
    imgRestoreButton: TImage;
    imgSysIcon: TImage;
    popSystemMenu: TPopupMenu;
    N_Restore: TMenuItem;
    N_Max: TMenuItem;
    N_Min: TMenuItem;
    N_Move: TMenuItem;
    N_Size: TMenuItem;
    N_Speater: TMenuItem;
    N_Close: TMenuItem;
    palClient: TPanel;
    lbCaption: TLabel;
    CoolBarMenu: TCoolBar;
    ToolBarMenu: TToolBar;
    imgLeft: TImage;
    imgColorLeftUp: TImage;
    imgGrayCaption: TImage;
    imgGrayMenuBar: TImage;
    imgGrayRightUp: TImage;
    imgColorCaption: TImage;
    imgGrayLeftUp: TImage;
    imgColorRightUp: TImage;
    imgRightUp1: TImage;
    imgLeftUp1: TImage;
    imgColorMenubar: TImage;
    GroupBox1: TGroupBox;
    Label2: TLabel;
&nbs

首页上一页 5 6 7 8 9 10 11 下一页尾页 8/12/12

delphi+AccessVCD租赁管理系统（开题报告＋源程序＋文档正文＋外文翻译＋答辩ppt）(八)由毕业论文网（www.huoyuandh.com）会员上传。