login.~pas

求是科技出版的《Delphi串口通信工程开发实例导航》所有的源代码。是一本很好的书。拿出来与大家共享。

unit Login;

interface

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

type
  TfrmLogin = class(TForm)
    Label1: TLabel;
    edtUser: TEdit;
    Label2: TLabel;
    edtPwd: TEdit;
    labHint: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    chkStore: TCheckBox;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    m_IsOk : Boolean;

  end;

var
  frmLogin: TfrmLogin;

implementation

{$R *.dfm}

procedure TfrmLogin.BitBtn1Click(Sender: TObject);
begin
        if (edtUser.Text = '') or (edtPwd.Text = '') then
                exit;
        m_IsOk := True;
        frmLogin.Hide();
end;

procedure TfrmLogin.BitBtn2Click(Sender: TObject);
begin
        m_IsOK := False;
        self.Hide();
end;

end.