fmloginunit.pas

学籍管理

{**********************************************************************}
{                    ==================                                }
{                        登陆窗口                                      }
{                   ==================                                 }
{                                    《学籍管理系统》--作者：贺广兵    }
{         读注册表，获取所需信息。                                     }
{                                                                      }
{**********************************************************************}
unit fmLoginUnit;

interface

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

type
  TfmLogin = class(TForm)
    GroupBox1: TGroupBox;
    Label2: TLabel;
    Label1: TLabel;
    edtPassword: TEdit;
    edtName: TEdit;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure edtNameEnter(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmLogin: TfmLogin;

implementation

uses MainForm, DataMoudle, PasswordAndReg;

{$R *.DFM}

procedure TfmLogin.Button1Click(Sender: TObject);
begin
  if edtPassword.Text=ReadReg('登陆记录','OldPassword','') then
  begin
    Application.CreateForm(TClientMainForm, ClientMainForm);
    Application.CreateForm(TDataModule1, DataModule1);
    Application.Run;
    fmLogin.Hide;
  end
  else
  begin
    MessageBox(fmLogin.Handle,'密码不对，请重新输入！','错误信息',MB_ICONWARNING);
    edtPassword.Text:='';
    edtPassword.SetFocus;
  end;
end;

procedure TfmLogin.Button2Click(Sender: TObject);
begin
  Application.Terminate;
end;

procedure TfmLogin.edtNameEnter(Sender: TObject);
begin
  edtPassword.SetFocus;
end;

end.