login.pas

来自「用delphi做的一个可以计算sql运行时间的系统,大家可以参考一下.」· PAS 代码 · 共 58 行

unit Login;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, dxCntner, dxEditor, dxEdLib, StdCtrls, ExtCtrls, RzButton;

type
  TfrmLogin = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    edUserName: TdxEdit;
    edPwd: TdxEdit;
    btOK: TRzBitBtn;
    btCancel: TRzBitBtn;
    procedure btOKClick(Sender: TObject);
    procedure btCancelClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    UserName:string;
    Pwd:string;
  end;

var
  frmLogin: TfrmLogin;

implementation

{$R *.dfm}

procedure TfrmLogin.btOKClick(Sender: TObject);
begin
  UserName:=trim(edUserName.Text);
  Pwd:=trim(edPwd.Text);
end;

procedure TfrmLogin.btCancelClick(Sender: TObject);
begin
  UserName:='';
  Pwd:='';
end;

procedure TfrmLogin.FormCreate(Sender: TObject);
var
  i:Integer;
begin
  //Application.ProcessMessages;
  //AnimateWindow(Self.Handle, 350, AW_CENTER or AW_ACTIVATE or AW_BLEND);
end;

end.