unit2.pas

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

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, ExtCtrls, DBTables, DB, jpeg;

type
  TForm2 = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    N19: TMenuItem;
    N20: TMenuItem;
    N21: TMenuItem;
    N22: TMenuItem;
    N23: TMenuItem;
    N24: TMenuItem;
    N25: TMenuItem;
    N26: TMenuItem;
    N27: TMenuItem;
    N28: TMenuItem;
    N29: TMenuItem;
    N30: TMenuItem;
    N31: TMenuItem;
    N32: TMenuItem;
    N33: TMenuItem;
    N34: TMenuItem;
    N35: TMenuItem;
    N36: TMenuItem;
    N39: TMenuItem;
    N40: TMenuItem;
    N41: TMenuItem;
    N42: TMenuItem;
    N43: TMenuItem;
    N44: TMenuItem;
    N45: TMenuItem;
    N46: TMenuItem;
    N47: TMenuItem;
    N48: TMenuItem;
    N49: TMenuItem;
    N52: TMenuItem;
    N37: TMenuItem;
    Image1: TImage;
    N38: TMenuItem;
    N50: TMenuItem;
    N51: TMenuItem;
    N53: TMenuItem;
    N54: TMenuItem;
    N55: TMenuItem;
    bookroom: TTable;
    Query1: TQuery;
    room: TTable;
    function transpower:boolean;
    procedure N5Click(Sender: TObject);
    procedure N37Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure N17Click(Sender: TObject);
    procedure N19Click(Sender: TObject);
    procedure N20Click(Sender: TObject);
    procedure N41Click(Sender: TObject);
    procedure N42Click(Sender: TObject);
    procedure N43Click(Sender: TObject);
    procedure N52Click(Sender: TObject);
    procedure N46Click(Sender: TObject);
    procedure N47Click(Sender: TObject);
    procedure N22Click(Sender: TObject);
    procedure N27Click(Sender: TObject);
    procedure N28Click(Sender: TObject);
    procedure N23Click(Sender: TObject);
    procedure N24Click(Sender: TObject);
    procedure N25Click(Sender: TObject);
    procedure N29Click(Sender: TObject);
    procedure N36Click(Sender: TObject);
    procedure N31Click(Sender: TObject);
    procedure N32Click(Sender: TObject);
    procedure N33Click(Sender: TObject);
    procedure N34Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N40Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N55Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;
  name,pwd,power:string;
  

implementation

uses unit1,Unit3, Unit4, Unit5, Unit6, Unit7, Unit31, Unit32, Unit8, Unit9,
  Unit10, Unit11, Unit12, Unit13, Unit14, Unit15, Unit16, Unit17, Unit18,
  Unit19, Unit20, Unit21, Unit22, Unit23, Unit24, Unit25, Unit27, Unit28,
  Unit29, Unit30, Unit33, Unit39, Unit40, Unit41;

{$R *.dfm}


function tform2.transpower: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 form1.name.Text=s1 then
        begin
         power:=s3;
         closeFile(f);                    //关闭文件
         result:=true;
         exit;
      end;
   until (nr=0);
   closefile(f);
   result:=false;                          //读到文件末尾
end;
procedure TForm2.N5Click(Sender: TObject);//权限设置
begin
form3.show;

end;

procedure TForm2.N37Click(Sender: TObject);//添加用户
begin
form4.Show;
end;

procedure TForm2.N6Click(Sender: TObject);//修改密码
begin
form5.show;
end;

procedure TForm2.N10Click(Sender: TObject);//员工信息录入
begin
   form6.Show;
end;

procedure TForm2.N11Click(Sender: TObject);//员工信息查询
  begin
    if transpower=true then
      if power='访问者' then
        begin
        form7.modify.enabled:=false;
        form7.delete.enabled:=false;
        end;

   form7.show;
end;

procedure TForm2.N13Click(Sender: TObject);//劳资信息录入
begin
   form31.show;

end;

procedure TForm2.N14Click(Sender: TObject);//劳资信息查询
begin
form32.show;
if power='访问者' then
   begin
   form32.modify.enabled:=false;
   form32.delete.enabled:=false;
   end;
end;

procedure TForm2.N16Click(Sender: TObject);//供应商信息录入
begin
form8.show;

end;

procedure TForm2.N17Click(Sender: TObject);//供应商信息查询
begin
form9.show;
if power='访问者' then
   begin
   form9.modify.enabled:=false;
   form9.delete.enabled:=false;
   end;
end;

procedure TForm2.N19Click(Sender: TObject);//商品信息录入
begin
form10.show;

end;

procedure TForm2.N20Click(Sender: TObject);//商品信息查询
begin
form11.show;
if power='访问者' then
   begin
   form11.modify.enabled:=false;
   form11.delete.enabled:=false;
   end;
end;

procedure TForm2.N41Click(Sender: TObject);//商品出入库纪录
begin
form12.show;

end;

procedure TForm2.N42Click(Sender: TObject);//商品入库查询
begin
form13.show;
end;

procedure TForm2.N43Click(Sender: TObject);//订货
begin
form14.show;

end;

procedure TForm2.N52Click(Sender: TObject);//订单查询
begin
form15.show;
end;

procedure TForm2.N46Click(Sender: TObject);//客户信息录入
begin
form16.show;

end;

procedure TForm2.N47Click(Sender: TObject);//商品信息查询
begin
form17.show;
if power='访问者'then
  begin
  form17.modify.enabled:=false;
  form17.delete.enabled:=false;
  end;
end;

procedure TForm2.N22Click(Sender: TObject);//登记
begin
form18.show;

end;

procedure TForm2.N27Click(Sender: TObject);//客房信息录入
begin
form19.show;

end;

procedure TForm2.N28Click(Sender: TObject);//客房信息查询
begin
form20.show;
if power='访问者'then
  begin
  form20.modify.enabled:=false;
  form20.delete.enabled:=false;
  end;
end;

procedure TForm2.N23Click(Sender: TObject);//入住客户查询
begin
form21.show;
end;

procedure TForm2.N24Click(Sender: TObject);//追加消费纪录
begin
form22.show;

 
end;

procedure TForm2.N25Click(Sender: TObject);//退房
begin
form23.show;

end;

procedure TForm2.N29Click(Sender: TObject);//订房
begin
form24.show;

end;

procedure TForm2.N36Click(Sender: TObject);//菜谱信息管理
begin
form25.show;
if power='访问者'then
  begin
  form25.insert.enabled:=false;
  form25.modify.enabled:=false;
  form25.delete.enabled:=false;
  end;
end;

procedure TForm2.N31Click(Sender: TObject);//订菜
begin
form27.show;

end;

procedure TForm2.N32Click(Sender: TObject);//追加消费纪录
begin
form28.show;

end;

procedure TForm2.N33Click(Sender: TObject);//用餐信息查询
begin
form29.show;
end;

procedure TForm2.N34Click(Sender: TObject);//结账
begin
form30.show;

end;

procedure TForm2.N8Click(Sender: TObject);//退出
begin
close;
application.Terminate;
end;

procedure TForm2.N40Click(Sender: TObject);
begin
form33.show;
end;

procedure TForm2.N2Click(Sender: TObject);
begin
form39.show;
end;

procedure TForm2.N3Click(Sender: TObject);
begin
form40.show;
end;

procedure TForm2.N55Click(Sender: TObject);
begin
form41.show;
end;

procedure TForm2.FormCreate(Sender: TObject);
//var nowdate:datetime;
begin
  //nowdate:=now;
  //with room do
   // begin
     //query1.Close;
     //query1.SQL.Clear;
     //query1.SQL.Add('update room set 房间状态=0 where 房号=(select 房号 from bookroom where 有效日期<'+nowdate+')');
    // try
    //   query1.Open;
    // except
    //   query1.ExecSQL;
   // end;
   //end;
end;

end.