main.pas

酒店资源管理的软件

unit Main;

interface

uses
  SysUtils, Windows, Messages, Classes, Graphics, Controls,
  Forms, Dialogs, StdCtrls, Buttons, ExtCtrls, Menus, ComCtrls, DB, ADODB,
  jpeg;
type
  TMainForm = class(TForm)
    StatusLine: TStatusBar;
    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;
    query1: TADOQuery;
    DataSource1: TDataSource;
    N23: TMenuItem;
    N24: TMenuItem;
    Image1: TImage;
    procedure FormCreate(Sender: TObject);
    procedure ShowHint(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure N6Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure N17Click(Sender: TObject);
    procedure N20Click(Sender: TObject);
    procedure N21Click(Sender: TObject);
    procedure N22Click(Sender: TObject);
    
    procedure N23Click(Sender: TObject);
    procedure N24Click(Sender: TObject);
  private
  public
    //根据传入的SQL语句,数据集和执行类型,执行SQL语句
    procedure exeSql(strQuery: TADOQuery; strSql,sqlType: string);
  end;

var
  MainForm: TMainForm;
  username: String;

implementation

uses unt_CheckUser, unt_OperatorManage, unt_ChangePassword,
     unt_RoomPrice, unt_CardForm, unt_RoomForm, unt_RoomFind,
     unt_BookRoom, unt_ViewCustome, unt_CancelBook, unt_OutForm,
     unt_ViewMoney, unt_CurDayBookFind, unt_MoneyFind, unt_DetailFind,
     unt_ViewMoneyRep, unt_AllMessage, unt_WriteMessage;
{$r *.dfm}

procedure TMainForm.exeSql(strQuery: TADOQuery; strSql,sqlType: string);
begin
  try
    with strQuery do
    begin
      close;
      SQL.Clear;
      SQL.Text := strSql;
      if sqlType = '1' then
        Open
      else
        ExecSQL;
    end;
  Except
    strQuery.Close;
  end;
end;

procedure TMainForm.FormCreate(Sender: TObject);
begin
  Application.OnHint := ShowHint;
end;

procedure TMainForm.ShowHint(Sender: TObject);
begin
  StatusLine.SimpleText := Application.Hint;
end;

procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Application.Terminate;
end;

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

procedure TMainForm.FormShow(Sender: TObject);
var
  sSql,curDayStr: String;
  qx1,qx2,qx3,qx4,qx5:boolean;
begin
  qx1 := checkuserform.query1.FieldByName('right_1').Asboolean;
  qx2 := checkuserform.query1.FieldByName('right_2').Asboolean;
  qx3 := checkuserform.query1.FieldByName('right_3').Asboolean;
  qx4 := checkuserform.query1.FieldByName('right_4').Asboolean;
  qx5 := checkuserform.query1.FieldByName('right_5').Asboolean;
  n2.Enabled := False;
  n3.Enabled := False;
  n4.Enabled := False;
  n5.Enabled := False;
  n8.Enabled := False;
  n9.Enabled := False;
  n10.Enabled := False;
  n12.Enabled := False;
  n13.Enabled := False;
  n14.Enabled := False;
  n16.Enabled := False;
  n17.Enabled := False;
  n18.Enabled := False;
  n20.Enabled := False;
  n21.Enabled := False;
  n22.Enabled := False;
  if qx1 then
  begin
  //系统管理权限
    n2.Enabled := True;
    n3.Enabled := True;
    n4.Enabled := True;
    n5.Enabled := True;
  end;
  if qx2 then
  begin
    //客房管理权限
    n8.Enabled := True;
    n9.Enabled := True;
    n10.Enabled := True;
  end;
  if qx3 then
  begin
    //订房权限
    n12.Enabled := True;
    n13.Enabled := True;
    n14.Enabled := True;
  end;
  if qx4 then
  begin
  //退房权限
    n16.Enabled := True;
    n17.Enabled := True;
    n18.Enabled := True;
  end;
  if qx5 then
  begin
  //历史信息查询权限
    n20.Enabled := True;
    n21.Enabled := True;
    n22.Enabled := True;
  end;
  curDayStr := FormatDateTime('yyyy-mm-dd',Now);
  sSql := 'delete from Dtsztable where oper_date <#' + curDayStr + '#';
  exeSql(query1,sSql,'2');
end;

procedure TMainForm.N2Click(Sender: TObject);
begin
  OperatorManageForm := TOperatorManageForm.Create(self);
  OperatorManageForm.ShowModal;
  OperatorManageForm.Free;
end;

procedure TMainForm.N3Click(Sender: TObject);
begin
  ChangePasswordForm := TChangePasswordForm.Create(self);
  ChangePasswordForm.ShowModal;
  ChangePasswordForm.Free;
end;

procedure TMainForm.N4Click(Sender: TObject);
var
  sSql: String;
begin
  //操作员表初始化
  sSql := 'delete * from operator';
  exeSql(query1,sSql,'2');
  sSql := 'insert into operator (name,loginpass,department,oper_date,right_1,right_2,right_3,right_4,right_5,operator) values('
          + '''admin'',''admin'',''总经理室'''   + ',#' + FormatDateTime('yyyy-mm-dd',Now) + '#,'
          + '1, 1, 1, 1, 1,''' + username + ''')';
  exeSql(query1,sSql,'2');
  //信用卡表初始化
  sSql := 'delete * from card';
  exeSql(query1,sSql,'2');
  //订房数据表初始化
  sSql := 'delete * from Bookroom';
  exeSql(query1,sSql,'2');
  //订房历史数据表初始化
  sSql := 'delete * from Bookroomhistory';
  exeSql(query1,sSql,'2');
  //当天收支数据表初始化
  sSql := 'delete * from Dtsztable';
  exeSql(query1,sSql,'2');
  //客房等级表初始化
  sSql := 'delete * from Room';
  exeSql(query1,sSql,'2');
  //客房数据表初始化
  sSql := 'delete * from Room_manager';
  exeSql(query1,sSql,'2');
  //收支历史表初始化
  sSql := 'delete * from Szhistorytable';
  exeSql(query1,sSql,'2');
  //资金明细表初始化
  sSql := 'delete * from zjmxtable';
  exeSql(query1,sSql,'2');
  //资金清算数据表初始化
  //sSql := 'delete * from zjqstable';
  //exeSql(query1,sSql,'2');
  //客房价格表
  MessageDlg('系统初始化结束，请退出!',mtinformation,[mbok],0);
end;

procedure TMainForm.N5Click(Sender: TObject);
begin
  CardForm := TCardForm.Create(self);
  CardForm.ShowModal;
  CardForm.Free;
end;

procedure TMainForm.N9Click(Sender: TObject);
begin
  RoomPriceForm := TRoomPriceForm.Create(self);
  RoomPriceForm.ShowModal;
  RoomPriceForm.Free;
end;

procedure TMainForm.N8Click(Sender: TObject);
begin
  RoomForm := TRoomForm.Create(self);
  RoomForm.ShowModal;
  RoomForm.Free;
end;

procedure TMainForm.N10Click(Sender: TObject);
begin
  RoomFindForm := TRoomFindForm.Create(self);
  RoomFindForm.ShowModal;
  RoomFindForm.Free; 
end;

procedure TMainForm.N12Click(Sender: TObject);
begin
  BookroomForm := TBookroomForm.Create(self);
  BookroomForm.ShowModal;
  BookroomForm.Free;
end;

procedure TMainForm.N13Click(Sender: TObject);
begin
  ViewCustomeForm := TViewCustomeForm.Create(self);
  ViewCustomeForm.ShowModal;
  ViewCustomeForm.Free;
end;

procedure TMainForm.N14Click(Sender: TObject);
begin
  CancelbookForm := TCancelbookForm.Create(self);
  CancelbookForm.ShowModal;
  CancelbookForm.Free;
end;

procedure TMainForm.N16Click(Sender: TObject);
begin
  OutForm := TOutForm.Create(self);
  OutForm.ShowModal;
  OutForm.Free;
end;

procedure TMainForm.N17Click(Sender: TObject);
begin
  ViewMoneyForm := TViewMoneyForm.Create(self);
  ViewMoneyForm.ShowModal;
  ViewMoneyForm.Free;
end;

procedure TMainForm.N20Click(Sender: TObject);
begin
  CurDayBookFindForm := TCurDayBookFindForm.Create(self);
  CurDayBookFindForm.ShowModal;
  CurDayBookFindForm.Free;
end;

procedure TMainForm.N21Click(Sender: TObject);
begin
  MoneyFindForm := TMoneyFindForm.Create(self);
  MoneyFindForm.ShowModal;
  MoneyFindForm.Free;
end;

procedure TMainForm.N22Click(Sender: TObject);
begin
  DetailFindForm := TDetailFindForm.Create(self);
  DetailFindForm.ShowModal;
  DetailFindForm.Free;
end;


procedure TMainForm.N23Click(Sender: TObject);
begin
  MessageForm := TMessageForm.Create(self);
  MessageForm.ShowModal;
  MessageForm.Free;
end;

procedure TMainForm.N24Click(Sender: TObject);
begin
  AllMessageForm := TAllMessageForm.Create(self);
  AllMessageForm.ShowModal;
  AllMessageForm.Free;
end;

end.