hotelmis.~pas

宾馆客房管理系统,功能强大,界面美观,全部delphi源代码

unit hotelmis;

interface

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

type
  Thotelfm = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N4: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N9: TMenuItem;
    N13: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    N19: TMenuItem;
    N23: TMenuItem;
    N24: TMenuItem;
    N25: TMenuItem;
    N26: TMenuItem;
    N27: TMenuItem;
    N30: TMenuItem;
    N31: TMenuItem;
    N32: TMenuItem;
    XPManifest1: TXPManifest;
    Image1: TImage;
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ImageList1: TImageList;
    N3: TMenuItem;
    N5: TMenuItem;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    ToolButton8: TToolButton;
    ToolButton9: TToolButton;
    ToolButton10: TToolButton;
    ToolButton11: TToolButton;
    ToolButton12: TToolButton;
    N8: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    N20: TMenuItem;
    N21: TMenuItem;
    N22: TMenuItem;
    N28: TMenuItem;
    N29: TMenuItem;
    N33: TMenuItem;
    x1: TMenuItem;
    N34: TMenuItem;
    N35: TMenuItem;
    N36: TMenuItem;
    StatusBar: TStatusBar;
    ToolButton13: TToolButton;
    Timer1: TTimer;
    ADOQuery1: TADOQuery;
    procedure N31Click(Sender: TObject);
    procedure N32Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N18Click(Sender: TObject);
    procedure N19Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure N24Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N27Click(Sender: TObject);
    procedure N26Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N25Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure N22Click(Sender: TObject);
    procedure N28Click(Sender: TObject);
    procedure N29Click(Sender: TObject);
    procedure N35Click(Sender: TObject);
    procedure N36Click(Sender: TObject);
    procedure N20Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure N21Click(Sender: TObject);
    procedure x1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure ToolButton10Click(Sender: TObject);
  private
    { Private declarations }
  public
  str:string;
   logined:boolean;
   id,username,userpas:string;

  procedure DataRefresh(adoquert:TADOquery;str: string);
  function GetMaxNum(adoquert:TADOquery;str:string;str1:string):string;
  function DataTotle(adoquert:TADOquery;str: string):integer;
    { Public declarations }
  end;

var
  hotelfm: Thotelfm;

implementation

uses RoomTypeUt, RoommessageUt, RoomStatusUt, BookUt, inroomUt, conut,
  posut, bookfindut, infindut, roomfindut, inhisfindut,bookhisfindut,
  rzbbut, ydbbut, drydbbut,drrzbbut,drldbbut,drcwbbut, roomtypemaut,
  gzryglut, hybhglut, xtbfut, xtrzut, xgmmut, loginut, gyxtut;

{$R *.dfm}
procedure Thotelfm.DataRefresh(adoquert:TADOquery;str: string);
begin
 with adoquert do
   begin
     close;
     sql.Clear;
     sql.Add(str);
     open;
   end;
end;
function Thotelfm.DataTotle(adoquert:TADOquery;str: string):integer;
begin
 with adoquert do
   begin
     close;
     sql.Clear;
     sql.Add(str);
     open;
     result:=fieldbyname('totle').asinteger;
   end;
end;
function Thotelfm.GetMaxNum(adoquert:TADOquery;str:string;str1:string):string;
begin
  with adoquert do
  begin
    close;
    sql.Clear;
    sql.Add(str);
    open;
    if recordcount<1 then
     begin
      result:='1';
      exit;
      end
     else
       begin
          close;
          sql.Clear; 
          sql.Add(str1);
          open;
          result:=inttostr(strtoint(fieldbyname('MaxCode').AsString)+1);
       end;
  end;
end;
procedure Thotelfm.N31Click(Sender: TObject);
begin
with adoquery1 do
  begin
   close;
   sql.Clear;
   sql.Add('insert into 日志表(姓名,操作,时间) values(:xm,:cz,:sj)');
   Parameters.ParamByName('xm').Value:=hotelfm.username;
   Parameters.ParamByName('cz').Value:=hotelfm.N31.Caption;
   Parameters.ParamByName('sj').Value:=datetimetostr(now());
   execsql;
  end;
RoomTypeFm:=TRoomTypeFm.create(self);
RoomTypeFm.showmodal;
RoomTypeFm.free;
end;

procedure Thotelfm.N32Click(Sender: TObject);
begin
with adoquery1 do
  begin
   close;
   sql.Clear;
   sql.Add('insert into 日志表(姓名,操作,时间) values(:xm,:cz,:sj)');
   Parameters.ParamByName('xm').Value:=hotelfm.username;
   Parameters.ParamByName('cz').Value:=hotelfm.N32.Caption;
   Parameters.ParamByName('sj').Value:=datetimetostr(now());
   execsql;
  end;
RoomMessFm:=TRoomMessFm.create(self);
RoomMessFm.showmodal;
RoomMessFm.free;
end;

procedure Thotelfm.N2Click(Sender: TObject);
begin
with adoquery1 do
  begin
   close;
   sql.Clear;
   sql.Add('insert into 日志表(姓名,操作,时间) values(:xm,:cz,:sj)');
   Parameters.ParamByName('xm').Value:=hotelfm.username;
   Parameters.ParamByName('cz').Value:=hotelfm.N2.Caption;
   Parameters.ParamByName('sj').Value:=datetimetostr(now());
   execsql;
  end;
RoomStatusFm:=TRoomStatusFm.create(self);
RoomStatusFm.showmodal;
RoomStatusFm.free;
end;

procedure Thotelfm.N4Click(Sender: TObject);
begin
with adoquery1 do
  begin
   close;
   sql.Clear;
   sql.Add('insert into 日志表(姓名,操作,时间) values(:xm,:cz,:sj)');
   Parameters.ParamByName('xm').Value:=hotelfm.username;
   Parameters.ParamByName('cz').Value:=hotelfm.N4.Caption;
   Parameters.ParamByName('sj').Value:=datetimetostr(now());
   execsql;
  end;
   BookFm:=TBookFm.create(self);
   BookFm.showmodal;
   BookFm.free;
end;

procedure Thotelfm.N9Click(Sender: TObject);
begin
with adoquery1 do
  begin
   close;
   sql.Clear;
   sql.Add('insert into 日志表(姓名,操作,时间) values(:xm,:cz,:sj)');
   Parameters.ParamByName('xm').Value:=hotelfm.username;
   Parameters.ParamByName('cz').Value:=hotelfm.N9.Caption;
   Parameters.ParamByName('sj').Value:=datetimetostr(now());
   execsql;
  end;
  inroomFm:=TinroomFm.create(self);
  inroomFm.showmodal;
  inroomFm.free;
end;

procedure Thotelfm.N18Click(Sender: TObject);
begin
with adoquery1 do
  begin
   close;
   sql.Clear;
   sql.Add('insert into 日志表(姓名,操作,时间) values(:xm,:cz,:sj)');
   Parameters.ParamByName('xm').Value:=hotelfm.username;
   Parameters.ParamByName('cz').Value:=hotelfm.N18.Caption;
   Parameters.ParamByName('sj').Value:=datetimetostr(now());
   execsql;
  end;
   confm:=Tconfm.create(self);
   confm.showmodal;
   confm.free;
end;

procedure Thotelfm.N19Click(Sender: TObject);
begin
with adoquery1 do
  begin
   close;
   sql.Clear;
   sql.Add('insert into 日志表(姓名,操作,时间) values(:xm,:cz,:sj)');
   Parameters.ParamByName('xm').Value:=hotelfm.username;
   Parameters.ParamByName('cz').Value:=hotelfm.N19.Caption;
   Parameters.ParamByName('sj').Value:=datetimetostr(now());
   execsql;
  end;
posfm:=Tposfm.create(self);
posfm.showmodal;
posfm.free;
end;

procedure Thotelfm.N6Click(Sender: TObject);
begin
with adoquery1 do
  begin
   close;
   sql.Clear;
   sql.Add('insert into 日志表(姓名,操作,时间) values(:xm,:cz,:sj)');
   Parameters.ParamByName('xm').Value:=hotelfm.username;
   Parameters.ParamByName('cz').Value:=hotelfm.N6.Caption;
   Parameters.ParamByName('sj').Value:=datetimetostr(now());
   execsql;
  end;
 bookfindfm:=Tbookfindfm.create(self);
bookfindfm.showmodal;
bookfindfm.free;
end;

procedure Thotelfm.N13Click(Sender: TObject);
begin
with adoquery1 do
  begin
   close;
   sql.Clear;
   sql.Add('insert into 日志表(姓名,操作,时间) values(:xm,:cz,:sj)');
   Parameters.ParamByName('xm').Value:=hotelfm.username;
   Parameters.ParamByName('cz').Value:=hotelfm.N13.Caption;
   Parameters.ParamByName('sj').Value:=datetimetostr(now());
   execsql;
  end;
 infindfm:=Tinfindfm.create(self);
infindfm.showmodal;
infindfm.free;
end;

procedure Thotelfm.N24Click(Sender: TObject);
begin
with adoquery1 do
  begin
   close;
   sql.Clear;
   sql.Add('insert into 日志表(姓名,操作,时间) values(:xm,:cz,:sj)');