adduserfrm.pas

来自「考勤管理是企业内部管理的重要环节和基础」· PAS 代码 · 共 60 行

unit AddUserFrm;

interface

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

resourcestring
  sUseName=  '用户名栏不能为空!';

type
  TAddUserForm = class(TSDIForm)
    Label1: TLabel;
    Label2: TLabel;
    edUserID: TEdit;
    edPassWord: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure BitBtn1Enter(Sender: TObject);
  private
    function GetUserName:String;
    function GetPassWord: String;
    { Private declarations }
  public
    property UserName: String read GetUserName;
    property PassWord: String read GetPassWord;
    { Public declarations }
  end;

var
  AddUserForm: TAddUserForm;

implementation

uses dialog;

{$R *.DFM}

function TAddUserForm.GetUserName: String;
Begin
  Result := Trim(edUserID.Text);
End;

function TAddUserForm.GetPassWord: String;
Begin
  Result := Trim(edPassWord.Text);
End;

procedure TAddUserForm.BitBtn1Enter(Sender: TObject);
begin
  inherited;
  if trim(edUserID.Text)='' then begin
    Messagedlg(Pchar(sUseName),mtError,[mbOK],0);
    EdUserID.SetFocus;
  end;
end;

end.