frm_login.pas

来自「这是一个基于delphi平台的物流空运管理系统！」· PAS 代码 · 共 87 行

unit Frm_login;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Frm_Cargo, XPMenu, Buttons, EnterAsTab, GIFImage, ExtCtrls,
  THPanel, DB, ADODB, StdCtrls, jpeg;

type
  TFrmlogin = class(TFrmCargo)
    Image1: TImage;
    SBOk: TSpeedButton;
    SBCancel: TSpeedButton;
    LbConnect: TLabel;
    LbUserName: TLabel;
    LbPassword: TLabel;
    EdtUseName: TEdit;
    EdtPass: TEdit;
    Connection: TADOConnection;
    ADOQuery1: TADOQuery;
    procedure SBOkClick(Sender: TObject);
    procedure SBCancelClick(Sender: TObject);
    procedure EdtPassExit(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frmlogin: TFrmlogin;

implementation

uses Frm_Main;

{$R *.dfm}

procedure TFrmlogin.SBOkClick(Sender: TObject);
var
  UserName, Password: string;
begin
  inherited;
  //用户登录注册
  if FrmMain.LoginDB(EdtUseName.Text, EdtPass.text) = True then
  begin
    Application.MainForm.Show;
    AppLication.MainForm.SetFocus;
    FrmLogin.Close;
  end
  else
  begin
    ShowMessage('登录用户名或密码错误,请重新输入!');
    EdtUseName.SetFocus;
  end;
end;

procedure TFrmlogin.SBCancelClick(Sender: TObject);
begin
  inherited;
  close;
  Application.Terminate;
end;

procedure TFrmlogin.EdtPassExit(Sender: TObject);
begin
  inherited;
  SBOk.Click;
end;

procedure TFrmlogin.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  inherited;
  Action := caFree;
end;

procedure TFrmlogin.FormDestroy(Sender: TObject);
begin
  inherited;
  Frmlogin := nil;
end;

end.