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

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.jaoyuw.com）会员上传。