unit2.pas

来自「DELPHI 串口程序 小程序 我个人做的想程序给大家看看」· PAS 代码 · 共 57 行

unit Unit2;

interface

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

type
  TLogForm = class(TForm)
    EdtUserName: TEdit;
    Label1: TLabel;
    EdtPassword: TMaskEdit;
    Label2: TLabel;
    BtnOK: TBitBtn;
    procedure BtnOKClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  LogForm: TLogForm;
const
    UserName:String='0';
    Password:String='0';
implementation

uses Unit1;

{$R *.dfm}

procedure TLogForm.BtnOKClick(Sender: TObject);
begin
   if not( EdtUserName.Text=UserName ) then
   //if not( EdtUserName.Text=UserName ) then
   begin
      showmessage('用户名错误!');
      EdtUserName.Text:='';
      EdtUserName.SetFocus;
   end
   else if not(EdtPassword.Text=Password)then
        begin
           showmessage('密码错误!');
           EdtPassword.Text:='';
           EdtPassword.SetFocus;
        end
        else
        begin
           GuessForm.show;
           LogForm.Hide;
        end
end;

end.