login.pas

详细说明:毕业论文中关于小型宾馆管理系统的详细设计毕 业论文中关于小型宾馆...一个酒店管理系统VB+Access [学生学籍管理系统(VB+Acess).zip] - !这个是刚刚编的毕业设计,可能

// Prexim user login
//
// (c) Chicony Software 2001
//
// When       Who  Why
// ---------  ---  ------------------------------------------------------------
// 2001.6.7   century Initial version
//
unit login;

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
  Buttons, ExtCtrls,registry,prefs, jpeg, OleCtrls,
  ShockwaveFlashObjects_TLB;

type
  TdlgLogin = class(TForm)
    Image2: TImage;
    eUser: TEdit;
    ePassword: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    f1: TShockwaveFlash;
    procedure FormShow(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

//var
//  dlgLogin: TdlgLogin;

implementation

{$R *.DFM}


procedure TdlgLogin.FormShow(Sender: TObject);
var
  Reg: TRegistry;
begin
  //edServer.Text:=GetCompname;
  f1.Movie :=ExtractFilePath(Application.ExeName)+'2.swf';
  Reg := TRegistry.Create;
  try
    Reg.RootKey := HKEY_CURRENT_USER;
    if Reg.OpenKey('\Software\xwfd\Settings', True)
    then  begin
       eUser.Text:=Reg.ReadString('username');
    end;

  finally
    Reg.CloseKey;
    Reg.Free;
    inherited;
  end;
end;


procedure TdlgLogin.SpeedButton2Click(Sender: TObject);
begin
 
 BitBtn2.Click;
end;

procedure TdlgLogin.SpeedButton1Click(Sender: TObject);
begin
  BitBtn1.Click;
end;

end.