frmlogin.pas

一个简单的同学录软件

unit frmlogin;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, jpeg, ExtCtrls, xutils, rcdStud, TFlatAnimWndUnit,
  TFlatButtonUnit, TFlatEditUnit;

type
  TFmLogin = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Image1: TImage;
    strPSW: TFlatEdit;
    strLN: TFlatEdit;
    BitBtn1: TFlatButton;
    BitBtn2: TFlatButton;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure Image1DblClick(Sender: TObject);
    procedure FormPaint(Sender: TObject);


    procedure doLogin;
    procedure strLNKeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure strPSWKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);

  private

    { Private declarations }
  public
    { Public declarations }
  end;

var
  FmLogin: TFmLogin;

implementation

uses frmMain;

{$R *.DFM}
//定义数据登陆用户的类型



//////////////////////
//分配变量
//////////////////////
var
  flLogin: file of PLoginUser; //登陆用户文件
  rcdLoginUser: PLoginUser; //登陆用户类型变量
  flLog: string; //定义用户密码保存文件名
//确定按下处理过程

procedure Tfmlogin.doLogin;
begin

  flLog := 'user.log'; //初始化用户名密码保存文件的具体名称
  assignfile(flLogin, flLog);
  reset(fllogin);
  read(flLogin, rcdLoginUser);
  closefile(flLogin);
//判断用户名和密码是否正确
  if (strLN.text = rcdLoginUser.name) and (strPSW.Text = rcdloginUser.password) then
//正确后的处理
  begin

   //msgbox('进来了!');
    fmlogin.Visible := false;
    fmmain.visible := true;

  end

  else
//错误后的处理
  begin

    msgbox('对不起密码错误!请重试!');

  end;


end;

procedure TFmLogin.BitBtn1Click(Sender: TObject);
begin
  dologin;
end;

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

procedure TFmLogin.Image1DblClick(Sender: TObject);
begin
  close;
end;

procedure TFmLogin.FormPaint(Sender: TObject);
begin
  strln.SetFocus;

end;







procedure TFmLogin.strLNKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if key = vk_return then
  begin
    strpsw.SetFocus;
  end;
end;

procedure TFmLogin.strPSWKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key = vk_return then
  begin
    dologin;
  end;
end;

end.