login.pas

住宿餐饮 - 订餐管理系统,DelPhi写的。适合酒店

unit logIn;

interface

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

type
  TfrmLogIn = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    name: TComboBox;
    pwd: TEdit;
    Label3: TLabel;
    Image1: TImage;
    btnOk: TBitBtn;
    btnCancel: TBitBtn;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    power:string;
    function canPass:boolean;

  end;

var
  frmLogIn: TfrmLogIn;

implementation

{$R *.dfm}

{ TfrmLogIn }

function TfrmLogIn.canPass: boolean;
var
   f:file;
   s1,s2,s3:string[30];
   nr:integer;
begin
   assignFile(f,'sys.ini');
   reSet(f,1);
   repeat
      blockRead(f,s1,12,nr);
      blockRead(f,s2,12,nr);
      blockRead(f,s3,24,nr);
      if (s1=name.Text) and (s2=pwd.Text) then
      begin
         power:=s3;
         closeFile(f);
         result:=true;
         exit;
      end;
   until (nr=0);
   closeFile(f);
   result:=false;
end;

procedure TfrmLogIn.FormCreate(Sender: TObject);
var
   f:file;
   nr,nw:integer;
   buf:string[60];
   bn:boolean;
   size:longint;
begin
   assignFile(f,'sys.ini');
   bn:=true;
   if fileExists('sys.ini')=false then//配置文件不存在
      bn:=false
   else
   begin
      reSet(f,1);
      size:=fileSize(f);
      if size<48 then//配置文件不合法
         bn:=false;
   end;
   if bn=false then//新建一个系统配置文件
   begin
      reWrite(f,1);
      buf:='admin';
      blockWrite(f,buf,12,nw);
      buf:='admin';
      blockWrite(f,buf,12,nw);
      buf:='1';
      blockWrite(f,buf,24,nw);
      closeFile(f);
   end;
   reSet(f,1);
   repeat
      blockRead(f,buf,12,nr);
      if nr>0 then
         name.Items.Add(buf);
      blockRead(f,buf,12,nr);
      blockRead(f,buf,24,nr);
   until (nr=0);
   closeFile(f);
end;

end.