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;
    btnOK: TBitBtn;
    btnCancel: TBitBtn;
    chkStore: TCheckBox;
    procedure btnOKClick(Sender: TObject);
    procedure btnCancelClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    m_IsOk : Boolean;      // 标识用户是否点击OK按钮

  end;

var
  frmLogin: TfrmLogin;

implementation

{$R *.dfm}

//
// btnOK按钮单击事件处理函数
//
procedure TfrmLogin.btnOKClick(Sender: TObject);
begin
        if (edtUser.Text = '') or (edtPwd.Text = '') then
                exit;
        m_IsOk := True;
        frmLogin.Hide();
end;

//
// btnCancel按钮单击事件处理函数
//
procedure TfrmLogin.btnCancelClick(Sender: TObject);
begin
        m_IsOK := False;
        self.Hide();
end;

end.