unit1.pas

一个用DELPHI编的酒店管理系统。 其中数据库：SQL Server2000, 只需恢复 My database文件夹中 My database_Data.MDF和 My database_Log.

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    name: TComboBox;
    pwd: TEdit;
    Btnok: TBitBtn;
    btncancel: TBitBtn;
    function canPass:boolean;
    procedure FormCreate(Sender: TObject);
    procedure BtnokClick(Sender: TObject);
    procedure btncancelClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  power:string;
implementation

uses Unit2, Unit33;

{$R *.dfm}

function Tform1.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 Tform1.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:='刘玮';
      blockWrite(f,buf,12,nw);
      buf:='000000';
      blockWrite(f,buf,12,nw);
      buf:='管理员';
      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;

procedure TForm1.BtnokClick(Sender: TObject);
begin
if canpass=true then
   begin
   form2.show;
   if Power='管理员' then                     //管理权限
   begin
       //具有所有权限
   end
   else if Power='操作员' then                //操作权限
   begin
      form2.n2.Enabled:=false;
      form2.n55.Enabled:=false;
      form2.n3.Enabled:=false;
      form2.n5.Enabled:=false;
      form2.n37.Enabled:=false;
   end
   else if Power='访问者' then                //访问权限
   begin
   //将每个查询窗体关于修改，添加，删除按钮制成disabled
      form2.n55.Enabled:=false;
      form2.n2.Enabled:=false;
      form2.n3.Enabled:=false;
      form2.n38.Enabled:=false;
      form2.n5.Enabled:=false;
      form2.n37.Enabled:=false;
      form2.n10.Enabled:=false;
      form2.n13.Enabled:=false;
      form2.n46.Enabled:=false;
      form2.n16.Enabled:=false;
      form2.n19.Enabled:=false;
      form2.n41.Enabled:=false;
      form2.n43.Enabled:=false;
      form2.n22.Enabled:=false;
      form2.n24.Enabled:=false;
      form2.n25.Enabled:=false;
      form2.n27.Enabled:=false;
      form2.n29.Enabled:=false;
      form2.n31.Enabled:=false;
      form2.n32.Enabled:=false;
      form2.n34.Enabled:=false;
   end;
   end
else showmessage('密码错误！');
  
end;

procedure TForm1.btncancelClick(Sender: TObject);
begin
  form1.Close;
end;

end.