fadminlogin.pas

来自「工资管理系统Delphi ?ぷ使芾硐低矰elphi」· PAS 代码 · 共 91 行

unit FAdminLogin;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, ToolWin, DB, ADODB, Grids, DBGrids;

type
  TfrmAdminLogin = class(TForm)
    tlb1: TToolBar;
    btn1: TToolButton;
    btn2: TToolButton;
    btn3: TToolButton;
    btn4: TToolButton;
    btn5: TToolButton;
    dbgrd1: TDBGrid;
    qry1: TADOQuery;
    ds1: TDataSource;
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure btn1Click(Sender: TObject);
    procedure btn2Click(Sender: TObject);
    procedure btn3Click(Sender: TObject);
    procedure btn5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmAdminLogin: TfrmAdminLogin;

implementation

uses DataModule, FAdminLoginAdd, FAdminLoginModify;

{$R *.dfm}

// 打开数据库
procedure TfrmAdminLogin.FormShow(Sender: TObject);
begin
  qry1.SQL.Text := 'select uid, pwd, ''*****'' as apwd from users';
  qry1.Open;
end;

// 关闭数据库
procedure TfrmAdminLogin.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  qry1.Close;
end;

// 添加帐号
procedure TfrmAdminLogin.btn1Click(Sender: TObject);
begin
  frmAdminLoginAdd.ShowModal;
end;

// 删除帐号
procedure TfrmAdminLogin.btn2Click(Sender: TObject);
begin
  // 是否只剩下一个帐号
  if qry1.RecordCount<=1 then begin
    Application.MessageBox('这是系统中唯一的帐号，不能删除。',
      PChar(Application.Title), MB_OK + MB_ICONWARNING);
    exit;
  end;
  // 确认删除
  if Application.MessageBox('确实要删除此登录帐号吗？',
    PChar(Application.Title), MB_YESNO + MB_ICONQUESTION) = IDYES then
  begin
    qry1.Delete;
  end;
end;

// 登录密码修改
procedure TfrmAdminLogin.btn3Click(Sender: TObject);
begin
  frmAdminLoginModify.ShowModal;
end;

// 关闭
procedure TfrmAdminLogin.btn5Click(Sender: TObject);
begin
  Close;
end;

end.