checkuser.pas

来自「我自己写的一个有关酒店管理系统的代码 大家」· PAS 代码 · 共 59 行

unit checkuser;

interface

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

type
  TCheckUserForm = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure BitBtn2Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }

  end;

var
  CheckUserForm: TCheckUserForm;

implementation
uses main;
{$R *.dfm}

procedure TCheckUserForm.BitBtn2Click(Sender: TObject);
begin
    close;
end;

procedure TCheckUserForm.FormActivate(Sender: TObject);
begin
      username:='';
      password:='';
      edit1.Text:='';
      edit2.Text:='';
      edit1.SetFocus;

end;

procedure TCheckUserForm.BitBtn1Click(Sender: TObject);
begin
      username:=edit1.text;
      password:=edit2.text;
      close;
end;



end.