unit2.pas

酒店住宿管理系统,有完整的文件和源码, 可以下载使用

//Mindy Paradise 客房管理系统
//mindyparadise

unit Unit2;

interface

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

type
  Tmindyparadise = 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;
    Image1: TImage;
    ADOConnection1: TADOConnection;
    N27: TMenuItem;
    procedure N7Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
//    procedure FormCreate(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure N23Click(Sender: TObject);
    procedure N22Click(Sender: TObject);
    procedure N21Click(Sender: TObject);
    procedure N18Click(Sender: TObject);

    procedure FormShow(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N17Click(Sender: TObject);
    procedure N25Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure N27Click(Sender: TObject);
    procedure N19Click(Sender: TObject);
    procedure N15Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    mqx1,mqx2,mqx3,mqx4{,mqx5}:boolean;
  end;

var
  mindyparadise: Tmindyparadise;

implementation

uses Unit3, Unit4,unit5,unit6, Unit7, Unit9, Unit8, Unit10, Unit13, Unit11,
  Unit16, Unit18, Unit20, Unit1, Unit23, Unit25, Unit26, Unit27;

{$R *.dfm}

procedure Tmindyparadise.N7Click(Sender: TObject);
begin
{close;
denglu.Edit1.Text:='';
denglu.show;}

application.Terminate;
end;

procedure Tmindyparadise.N2Click(Sender: TObject);
begin
operatormanage.ShowModal;



end;

procedure Tmindyparadise.N3Click(Sender: TObject);
begin
changepassword.ShowModal;

end;

{procedure Tmindyparadise.FormCreate(Sender: TObject);
begin
if denglu.qx1 then
n2.Enabled:=false;
//N1系统管理
//N2操作员管理
n2.Enabled:=true;
//N3密码管理
n3.Enabled:=false;
//N4系统初始化
n4.Enabled:=false;
//N5信用卡设置
n5.Enabled:=false;
//N6为横线
//N7为退出
//N8为客房管理
//N9客房等级信息查询
n9.enabled:=false;
//N10客房基本信息
n10.Enabled:=false;
//N11客房查询
n11.enabled:=false;
//N12订房管理
//N13预订客房
n13.enabled:=false;
//N14订房查询
n14.Enabled:=false;
//N15取消订房
n15.enabled:=false;
//N16退房管理
//N17客人退房
n17.enabled:=false;
//收支查询
n18.Enabled:=false;
//打印报表
n19.enabled:=false;
//N20历史信息查询
//N21订房信息查询
n21.enabled:=false;
//N22收支信息查询
n22.Enabled:=false;
//N23收支明细查询
n23.enabled:=false;
//N24帮助
//N25关于
if  mqx1 then//权限为管理员
//N1系统管理
//N2操作员管理
n2.Enabled:=true;
//N3密码管理
n3.enabled:=true;
//N4系统初始化
n4.Enabled:=true;
//N5信用卡设置
n5.enabled:=true;
//N6为横线
//N7为退出
//N8为客房管理
//N9等级设置
n9.enabled:=true;
//N10客房基本信息
n10.Enabled:=true;
//N11客房查询
n11.enabled:=true;
//N12订房管理
//N13预订客房
n13.enabled:=true;
//N14订房查询
n14.Enabled:=true;
//N15取消订房
n15.enabled:=true;
//N16退房管理
//N17客人退房
n17.enabled:=true;
//收支查询
n18.Enabled:=true;
//打印报表
n19.enabled:=true;
//N20历史信息查询
//N21订房信息查询
n21.enabled:=true;
//N22收支信息查询
n22.Enabled:=true;
//N23收支明细查询
n23.enabled:=true;
//N24帮助
//N25关于
N1系统管理
N2操作员管理
N3密码管理
N4系统初始化
N5信用卡设置
N6————
N7退出
N8客房管理
N9客房等级信息查询
N10客房基本信息

N11客房查询
N12订房管理
N13预订客房
N14客户订房信息一览表
N15取消订房
N16退房管理
N17客人退房
N18当日收支查询
N19打印当日收支报表
N20历史信息查询
N21订房信息查询
N22收支信息查询
N23收支明细查询
N24帮助
N25关于
N26————




end;}

procedure Tmindyparadise.N9Click(Sender: TObject);
begin
roomprice.ShowModal;
end;

procedure Tmindyparadise.N10Click(Sender: TObject);
begin
roommanage.ShowModal ;
end;

procedure Tmindyparadise.N11Click(Sender: TObject);
begin
roomfind.ShowModal;
end;

procedure Tmindyparadise.N14Click(Sender: TObject);
begin
bookroom.ShowModal;
end;

procedure Tmindyparadise.N13Click(Sender: TObject);
begin
guestqueryform.ShowModal;
end;

procedure Tmindyparadise.N23Click(Sender: TObject);
begin
zjmxcxForm.ShowModal;
end;

procedure Tmindyparadise.N22Click(Sender: TObject);
begin
szlscxForm.ShowModal;
end;

procedure Tmindyparadise.N21Click(Sender: TObject);
begin
dflsxcForm.ShowModal;
end;

procedure Tmindyparadise.N18Click(Sender: TObject);
begin
cancelbookform.ShowModal;
end;

{procedure Tmindyparadise.N4Click(Sender: TObject);
var
adotable1:Tadotable;
begin
if application.MessageBox('您正准备进行系统初始化！'+#13+'如果单击"是"按钮，将进行系统初始化！'+#13'系统初始化后删除的信息将无法恢复！','提示信息',mb_yesno)=IDYES then
begin
adotable1:=Tadotable.Create(self);
adotable1.Connection:=adoconnection1;
//当天收支报表
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
begin
adotable1.Edit;
adotable1.FieldByName('保留标志').AsBoolean:=false;
adotable1.FieldByName('使用标志').AsBoolean:=false;
adotable1.Post;
adotable1.Next;
end;
adotable1.active:=false;
if application.MessageBox('系统初始化结束已经结束！'+#13+'退出系统请铵"是"键。！','提示信息',mb_yesno)=IDYES then

   application.Terminate;
end;
end;}

procedure Tmindyparadise.FormShow(Sender: TObject);
begin

                   // N1系统管理
n2.Enabled:=false; // N2操作员管理
                   //N3密码管理
                   //N4—
n5.Enabled:=false; //N5系统初始化
                   //N6暂时锁定系统
                   //N7退出系统
                   //N8客房管理
n9.Enabled:=false; //N9客房等级信息设置
n10.Enabled:=false;//N10客房基本信息
n11.Enabled:=false;//N11客房查询
                   //N12订房管理
n13.Enabled:=false;//N13客户订房信息一览
n14.Enabled:=false;//N14客户订房
n15.Enabled:=false;//N15取消预订客房
                   //N16退房管理
n17.Enabled:=false;//N17客人退房
n18.Enabled:=false;//N18取消预订客房
n19.Enabled:=false;//N19当日收支查询
                   //N20历史信息查询
n21.Enabled:=false;//N21订房信息查询
n22.Enabled:=false;//N22收支信息查询
n23.Enabled:=false;//N23收支明细查询
                   //N24帮助
                   //N25关于
                   //N26———
                   //N27使用单位
if mqx1 then   //系统管理
begin

                   // N1系统管理
n2.Enabled:=true; // N2操作员管理
                   //N3密码管理
                   //N4—
n5.Enabled:=true; //N5系统初始化
                   //N6暂时锁定系统
                   //N7退出系统
                   //N8客房管理
n9.Enabled:=true; //N9客房等级信息设置
n10.Enabled:=true;//N10客房基本信息
n11.Enabled:=true;//N11客房查询
                   //N12订房管理
n13.Enabled:=true;//N13客户订房信息一览
n14.Enabled:=true;//N14客户订房
n15.Enabled:=true;//N15取消预订客房
                   //N16退房管理
n17.Enabled:=true;//N17客人退房
n18.Enabled:=true;//N18取消预订客房
n19.Enabled:=true;//N19当日收支查询
                   //N20历史信息查询
n21.Enabled:=true;//N21订房信息查询
n22.Enabled:=true;//N22收支信息查询
n23.Enabled:=true;//N23收支明细查询
                   //N24帮助
                   //N25关于
                   //N26———
                   //N27使用单位

end;
if mqx2 then  //N12订房管理 //N16退房管理
begin
                   //N12订房管理
n13.Enabled:=true;//N13客户订房信息一览
n14.Enabled:=true;//N14客户订房
n15.Enabled:=true;//N15取消预订客房
                   //N16退房管理
n17.Enabled:=true;//N17客人退房
n18.Enabled:=true;//N18取消预订客房
n19.Enabled:=true;//N19当日收支查询

end;
if mqx3 then
begin
                   //N8客房管理
n9.Enabled:=true; //N9客房等级信息设置
n10.Enabled:=true;//N10客房基本信息
n11.Enabled:=true;//N11客房查询
end;
if mqx4 then
begin
n19.Enabled:=true;//N19当日收支查询
                   //N20历史信息查询
n21.Enabled:=true;//N21订房信息查询
n22.Enabled:=true;//N22收支信息查询
n23.Enabled:=true;//N23收支明细查询

end;

end;

procedure Tmindyparadise.N5Click(Sender: TObject);
var
adotable1:Tadotable;
begin
if application.MessageBox('您正准备进行系统初始化！'+#13+'如果单击"是"按钮，将进行系统初始化！'+#13'系统初始化后删除的信息将无法恢复！','提示信息',mb_yesno)=IDYES then
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:='administrator';
AdoTable1.fieldbyname('密码').asstring:='administ';
AdoTable1.fieldbyname('所属部门').asstring:='管理部';
AdoTable1.fieldbyname('日期').asdatetime:=date();
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;
adotable1.Close;
Application.MessageBox('系统初始化结束已经结束！'+#13+'请重新登录系统！'+#13+'注意：用户名为administrator密码为administ','提示信息',mb_ok);
//showmessage('系统初始化结束已经结束！'+#13+'请重新登录系统！'+#13+'注意：用户名为administrator','提示信息');
mindyparadise.Hide;
denglu.Edit1.Text:='';
denglu.Show;
end;
end;

procedure Tmindyparadise.N17Click(Sender: TObject);
begin
tfform.ShowModal;
end;

procedure Tmindyparadise.N25Click(Sender: TObject);
begin
about.ShowModal;
end;

procedure Tmindyparadise.N6Click(Sender: TObject);
begin
mindyparadise.Hide;
denglu.Edit1.Text:='';
denglu.Show;

end;

procedure Tmindyparadise.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
application.Terminate;
end;

procedure Tmindyparadise.N27Click(Sender: TObject);
begin
sydwform.ShowModal;
end;

procedure Tmindyparadise.N19Click(Sender: TObject);
begin
DtszcxForm.ShowModal;
end;

procedure Tmindyparadise.N15Click(Sender: TObject);
begin
dfxsxgform.ShowModal;
end;

end.