f_login.pas

一款实用的人事管理软件程序

unit f_login;

interface

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

type
  Tf_log1n = class(TForm)
    StaticText1: TStaticText;
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Button2: TButton;
    StaticText2: TStaticText;
    StaticText3: TStaticText;
    procedure Button1Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  f_log1n: Tf_log1n;

implementation

uses Unit2;

{$R *.dfm}

procedure Tf_log1n.Button1Click(Sender: TObject);

 var
strfile:string;
F: TextFile;
S: string;
mypath:string;
begin
MyPath:=ExtractFilePath(ParamStr(0));  //返回指点文件的路径 》》//返回指点文件的参数

 strfile:=mypath +'data\p.lyr';
 if not FileExists(strfile) then begin
 showmessage('找不到密码初始化文件'+#13+'该文件可能已经被删除'+#13+
          '解决该问题请看使用帮助里的[恢复密码初始文件]或联系我们');
 exit;
 end;
 AssignFile(f,strfile);         //
 Reset(F);                    //  打开一个也有的文件名
 Readln(F, S);                 //执行Read,跳到下一行文件
 CloseFile(F);                   //关闭打开的文件
 if edit1.Text <>s then begin
 showmessage('密码输入不正确,请仔细检查大小写');
 edit1.Text:='';
 edit1.SetFocus ;
 exit;
 end;
  f_main.Show;
   self.Free;
end;

procedure Tf_log1n.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if ord(key)=13 then
Button1Click(Sender);
end;

procedure Tf_log1n.Button2Click(Sender: TObject);
begin
self.Close;
end;

end.