main.~pas

我自己写的一个有关酒店管理系统的代码 大家

unit main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, DB, ADODB;

type
  TMainForm = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N6: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    ADOConnection1: TADOConnection;
    ADODataSet1: TADODataSet;
    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;
    procedure N6Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure N17Click(Sender: TObject);
    procedure N18Click(Sender: TObject);
    procedure N19Click(Sender: TObject);
    procedure N20Click(Sender: TObject);
    procedure N22Click(Sender: TObject);
    procedure N23Click(Sender: TObject);
    procedure N24Click(Sender: TObject);
    procedure N25Click(Sender: TObject);
    procedure N26Click(Sender: TObject);
    procedure N27Click(Sender: TObject);
    procedure N21Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MainForm: TMainForm;
  username,password:string;
implementation
 uses checkuser,//用户检测
      operatormanage,//用户管理
      changepassword,//密码管理
      roomprice,//客房单价设置
      roommanage,//客房管理
      roombrowse,//客房查询
      card,//设置信用卡
      bookroom,//订房管理
      guest_query,//客户查询
      tf,//客人退房
      dtszcx,//当日收支查询
      dtszcxrpt,//打印当天报表
      booklscx,//订房历史信息查询
      szlscx,//收支历史查询
      zjmxcx,//资金明细查询
      cancelbook;//退订
{$R *.dfm}

procedure TMainForm.N6Click(Sender: TObject);
begin
    Close;
end;

procedure TMainForm.FormActivate(Sender: TObject);
var
    i:integer;
    pass:string;
    qx1,qx2,qx3,qx4,qx5:boolean;
begin
    i:=3;
    pass:='';
    while i>0 do
    begin
          checkuserform.ShowModal;
          if username<>'' then
          begin
                adodataset1.Parameters[0].Value:=username;
                AdoDataSet1.CommandType:=cmdText;
                AdoDataSet1.CommandText:='Select * from 操作员表 where 操作员名=:username';
                AdoDataSet1.open;
                if (AdoDataSet1.Recordset.RecordCount=1) and (AdoDataSet1.FieldByName('密码').AsString=password) then
                begin
                      i:=0;
                      qx1:=AdoDataSet1.FieldByName('权限一').Asboolean;
                      qx2:=AdoDataSet1.FieldByName('权限二').Asboolean;
                      qx3:=AdoDataSet1.FieldByName('权限三').Asboolean;
                      qx4:=AdoDataSet1.FieldByName('权限四').Asboolean;
                      qx5:=AdoDataSet1.FieldByName('权限五').Asboolean;
                end
                else
                      Application.MessageBox('用户名或密码错误，请检查！','提示信息',mb_ok);
          end
          else
              //adodataset1.Close;
              close;
          i:=i-1;
    end;
    adodataset1.Close;
    n2.Enabled:=false;
    n4.Enabled:=false;
    n18.Enabled:=false;
    n19.Enabled:=false;
    n20.Enabled:=false;
    n21.Enabled:=false;
    n22.Enabled:=false;
    n23.Enabled:=false;
    n24.Enabled:=false;
    n14.Enabled:=false;
    n15.Enabled:=false;
    n17.Enabled:=false;
    n25.Enabled:=false;
    n26.Enabled:=false;
    n27.Enabled:=false;
    if qx1 then
    begin
        n2.Enabled:=true;
        n4.Enabled:=true;
        n18.Enabled:=true;
    end;
    if qx2 then
    begin
        n19.Enabled:=true;
        n20.Enabled:=true;
        n21.Enabled:=true;
    end;
    if qx3 then
    begin
        n22.Enabled:=true;
        n23.Enabled:=true;
        n24.Enabled:=true;
    end;
    if qx4 then
    begin
        n14.Enabled:=true;
        n15.Enabled:=true;
        n17.Enabled:=true;
    end;
    if qx5 then
    begin
        n25.Enabled:=true;
        n26.Enabled:=true;
        n27.Enabled:=true;
    end;
end;

procedure TMainForm.N2Click(Sender: TObject);
begin
      OperatorManageForm.ShowModal; 
end;

procedure TMainForm.N3Click(Sender: TObject);
begin
    ChangePasswordForm.ShowModal; 
end;

procedure TMainForm.N4Click(Sender: TObject);
var
    adotable1:TAdoTable;
begin
      //操作员表初始化
      AdoTable1:=TAdoTable.Create(self);
      AdoTable1.Connection:=Adoconnection1;
      AdoTable1.TableName:='操作员表';
      Adotable1.Active:=true;
      while not adotable1.eof do
          adotable1.Delete;
      AdoTable1.append;
      AdoTable1.Edit;
      AdoTable1.fieldbyname('操作员名').asstring:='admin';
      AdoTable1.fieldbyname('密码').asstring:='12345678';
      AdoTable1.fieldbyname('所属部门').asstring:='管理部';
      AdoTable1.fieldbyname('日期').asdatetime:=date();
      AdoTable1.fieldbyname('权限一').asboolean:=true;
      AdoTable1.fieldbyname('权限二').asboolean:=true;
      AdoTable1.fieldbyname('权限三').asboolean:=true;
      AdoTable1.fieldbyname('权限四').asboolean:=true;
      AdoTable1.fieldbyname('权限五').asboolean:=true;
      AdoTable1.Post;
      AdoTable1.active:=false;
      //客房价格表
      adotable1.TableName:='客房价格表';
      adotable1.Active:=true;
      while not adotable1.Eof do
          adotable1.delete;
      adotable1.active:=false;
      //当天收支报表
      adotable1.TableName:='当天收支报表';
      adotable1.Active:=true;
      while not adotable1.Eof do
          adotable1.delete;
      adotable1.active:=false;
      //订房数据表
      adotable1.TableName:='订房数据表';
      adotable1.Active:=true;
      while not adotable1.Eof do
          adotable1.delete;
      adotable1.active:=false;
      //订房数据历史表
      adotable1.TableName:='订房数据历史表';
      adotable1.Active:=true;
      while not adotable1.Eof do
          adotable1.delete;
      adotable1.active:=false;
      //客房管理
      adotable1.TableName:='客房管理';
      adotable1.Active:=true;
      while not adotable1.Eof do
          adotable1.delete;
      adotable1.active:=false;
      //收支历史报表
      adotable1.TableName:='收支历史报表';
      adotable1.Active:=true;
      while not adotable1.Eof do
          adotable1.delete;
      adotable1.active:=false;
      //信用卡表
      adotable1.TableName:='信用卡表';
      adotable1.Active:=true;
      while not adotable1.Eof do
          adotable1.delete;
      adotable1.active:=false;
      //资金明细表
      adotable1.TableName:='资金明细表';
      adotable1.Active:=true;
      while not adotable1.Eof do
          adotable1.delete;
      adotable1.active:=false;
      //资金清算表
      adotable1.TableName:='资金清算表';
      adotable1.Active:=true;
      while not adotable1.Eof do
          adotable1.delete;
      adotable1.active:=false;
      application.MessageBox('系统初始化结束，请退出!','提示信息',mb_ok);
end;

procedure TMainForm.N14Click(Sender: TObject);
begin
    RoomPriceForm.showModal;
end;

procedure TMainForm.N15Click(Sender: TObject);
begin
    Roomform.ShowModal;
end;

procedure TMainForm.N17Click(Sender: TObject);
begin
  roomfindform.ShowModal; 
end;

procedure TMainForm.N18Click(Sender: TObject);
begin
    cardform.ShowModal;
end;

procedure TMainForm.N19Click(Sender: TObject);
begin
      bookroomform.ShowModal;
end;

procedure TMainForm.N20Click(Sender: TObject);
begin
    guestqueryform.ShowModal; 
end;

procedure TMainForm.N22Click(Sender: TObject);
begin
    tfform.showmodal;
end;

procedure TMainForm.N23Click(Sender: TObject);
begin
      DtszcxForm.ShowModal;
end;

procedure TMainForm.N24Click(Sender: TObject);
begin
      dtszcxrptform.qrlabel13.Caption:=username;
      dtszcxrptform.QRLabel15.Caption:=datetimetostr(now);
      dtszcxrptform.QuickRep1.Preview;
      dtszcxrptform.ADOTable1.first;
      while not dtszcxrptform.ADOTable1.eof do
      begin
          dtszcxrptform.ADOTable1.delete;
      end;
      dtszcxrptform.ADOTable1.close; 
end;

procedure TMainForm.N25Click(Sender: TObject);
begin
    dflscxform.ShowModal; 
end;

procedure TMainForm.N26Click(Sender: TObject);
begin
      szlscxform.showmodal;
end;

procedure TMainForm.N27Click(Sender: TObject);
begin
    zjmxcxform.ShowModal; 
end;

procedure TMainForm.N21Click(Sender: TObject);
begin
    cancelbookform.ShowModal; 
end;

end.