pass.pas

来自「劳保用品管理系统」· PAS 代码 · 共 60 行

unit pass;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, DB, ADODB;

type
  Tpassfm = class(TForm)
    Edit1: TEdit;
    Label1: TLabel;
    BitBtn1: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  passfm: Tpassfm;
  flag: integer;
implementation
uses adodata, main;
{$R *.dfm}

procedure Tpassfm.BitBtn1Click(Sender: TObject);
var userpw, pw: string;
begin
  userpw := trim(edit1.Text);
  with adodm.ADOQuery2 do
  begin
    close;
    sql.Clear;
    sql.Add('select passwd from pw');
    open;
  end;
  pw := adodm.ADOQuery2.FieldValues['passwd'];
  if userpw = pw then
  begin
    flag := 1;
    passfm.close;
  end
  else
  begin
    showmessage('密码不正确！非法使用！');
    mainfm.Close;
  end;

end;

procedure Tpassfm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if flag = 0 then mainfm.Close;
end;

end.