评价网 > 科教论文 > 工学毕业论文 > 计算机论文 > 正文

delphi+AccessVCD租赁管理系统（开题报告＋源程序＋(6)

2013-06-11 01:06 Bitmap;
    coolBarMenu.Bitmap :=imgColorMenubar.Picture.Bitmap;
  end
  else begin
    imgCaption.Picture.Bitmap :=imgGrayCaption.Picture.Bitmap;
    imgLeftUp1.Picture.Bitmap :=imgGrayLeftUp.Picture.Bitmap;
    imgRightUp1.Picture.Bitmap :=imgGrayRightUp.Picture.Bitmap;
    coolBarMenu.Bitmap :=imgGrayMenubar.Picture.Bitmap;
  end;
end;

procedure Tfrm_long.e_zzyChange(Sender: TObject);
begin
 e_pass.Text:='';
 e_pass.SetFocus;
end;

procedure Tfrm_long.b_okClick(Sender: TObject);
var
  kl:variant;
  pass:string;
begin
  zzyname:=e_zzy.text;
  kl:=dm.ado_user.lookup('操作员',zzyname,'口令');
  if varisnull(kl) then pass:='' else pass:=kl;
  if e_pass.text=pass then
     begin
       i:=i+1;
       if i>=3 then
        begin
        Application.MessageBox(PChar('密码验证错误，拒绝访问！'), PChar('提示'),
        MB_ICONEXCLAMATION);
        Application.Terminate;
        close;
        end;
       application.messagebox(pchar('密码验证错误，重新录入！'),pchar('提示'),
       MB_ICONQUESTION);
       e_pass.text:='';
       e_pass.SetFocus();
       exit;
     end;
  dm.ADO_user.Close;  
  frm_long.hide; （科教范文网http://fw.ΝsΕΑc.com编辑）
  frm_main:=tfrm_main.create(application);
  frm_main.showmodal;
end;

procedure Tfrm_long.FormActivate(Sender: TObject);
begin
e_pass.SetFocus;
end;

procedure Tfrm_long.b_exitClick(Sender: TObject);
begin
  close;
end;

procedure Tfrm_long.b_editClick(Sender: TObject);
begin
  zzyname:=e_zzy.text;
  frm_passedit:=tfrm_passedit.create(application);
  frm_passedit.showmodal;
end;

 

procedure Tfrm_long.e_passKeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
   begin
    b_ok.OnClick(b_ok);
   end;
end;

procedure Tfrm_long.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  dm.ado_user.Close;
  Application.Terminate;
end;

end.
 
 
会员管理界面与代码设计实现及功能

代码设计:
unit hygl;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, TEMPLETFORM, Grids, DBGrids, LabelButton, TradeImage, ComCtrls,
  Menus, ToolWin, StdCtrls, ExtCtrls, DBActns, DB, ActnList;

type
  Tfrm_hygl = class(TMyForm)
    ztl: TStatusBar;
    DBGrid: TDBGrid;
    BActionList1: TActionList;
    DataSetFirst1: TDataSetFirst;
    DataSetPrior1: TDataSetPrior;
    DataSetNext1: TDataSet