mgrloginu.pas

源代码竟供大家参考

unit MgrLoginU;

interface

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

type
  TFrmLogin = class(TForm)
    LabeledEdit1: TLabeledEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    dbsystem: TADOConnection;
    Query_Exec: TADOQuery;
    procedure BitBtn1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    passwd: string;
    function GetPassword(): string;

  public
    { Public declarations }
  end;

var
  FrmLogin: TFrmLogin;

implementation



{$R *.dfm}

procedure TFrmLogin.BitBtn1Click(Sender: TObject);
begin
  if passwd<>self.LabeledEdit1.Text then
  begin
    MessageBox(Handle,'密码错误。','提示',48);
    ModalResult := mrNone;
    exit;
  end;
end;

procedure TFrmLogin.FormCreate(Sender: TObject);
begin
  passwd := GetPassword();
end;



function TFrmLogin.GetPassword: string;
begin
  result := '';
  try
    Query_Exec.Close;
    Query_Exec.SQL.Clear;
    Query_Exec.sql.Add('select 管理员密码 from 考试设置');
    Query_Exec.open;
    if Query_Exec.eof and Query_Exec.bof then exit;
    Result := Query_Exec.Fields[0].asstring;
    Query_Exec.Close;
    Query_Exec.SQL.Clear;
  except
    on E: Exception do
    begin
      MessageBox(Application.Handle,pchar(E.Message),'提示',32);
    end;
  end;
end;

end.