unitinitialization.pas

一个不错的系统

unit UnitInitialization;

interface

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

type
  TfrmInitialization = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    edtCompany: TEdit;
    edtAccount: TEdit;
    edtPassword: TEdit;
    bbtnOK: TBitBtn;
    bbtnClose: TBitBtn;
    procedure bbtnCloseClick(Sender: TObject);
    procedure bbtnOKClick(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure edtCompanyExit(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmInitialization: TfrmInitialization;

implementation

{$R *.dfm}

procedure TfrmInitialization.bbtnCloseClick(Sender: TObject);
begin
  Close;
end;

procedure TfrmInitialization.bbtnOKClick(Sender: TObject);
begin
  if (edtCompany.Text='') or (edtAccount.Text='') or (edtPassword.Text='') then begin
    MessageBox(Handle,'请输入完整资料。          ','系统警告',48);
    edtCompany.SetFocus;
  end else begin
    Close;
  end;
end;

procedure TfrmInitialization.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key=13 then Perform(WM_NEXTDLGCTL,0,0);
end;

procedure TfrmInitialization.edtCompanyExit(Sender: TObject);
begin
  with Sender as TEdit do
    Text:=Trim(Text);
end;

end.