hotelmis.pas

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

   Parameters.ParamByName('xm').Value:=hotelfm.username;
   Parameters.ParamByName('cz').Value:=hotelfm.N24.Caption;
   Parameters.ParamByName('sj').Value:=datetimetostr(now());
   execsql;
  end;
  roomfindfm:=Troomfindfm.create(self);
roomfindfm.showmodal;
roomfindfm.free;
end;

procedure Thotelfm.N5Click(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.N5.Caption;
   Parameters.ParamByName('sj').Value:=datetimetostr(now());
   execsql;
  end;
 inhisfindfm:=Tinhisfindfm.create(self);
inhisfindfm.showmodal;
inhisfindfm.free;
end;

procedure Thotelfm.N3Click(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.N3.Caption;
   Parameters.ParamByName('sj').Value:=datetimetostr(now());
   execsql;
  end;
  bookhisfindfm:=Tbookhisfindfm.create(self);
bookhisfindfm.showmodal;
bookhisfindfm.free;
end;

procedure Thotelfm.N27Click(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.N27.Caption;
   Parameters.ParamByName('sj').Value:=datetimetostr(now());
   execsql;
  end;
zzbbdyfm:=Tzzbbdyfm.create(self);
zzbbdyfm.dy.preview;
zzbbdyfm.free;
end;

procedure Thotelfm.N26Click(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.N26.Caption;
   Parameters.ParamByName('sj').Value:=datetimetostr(now());
   execsql;
  end;
 ydbbdyfm:=Tydbbdyfm.create(self);
ydbbdyfm.dy.preview;
ydbbdyfm.free;
end;

procedure Thotelfm.N10Click(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.N10.Caption;
   Parameters.ParamByName('sj').Value:=datetimetostr(now());
   execsql;
  end;
  drrzbbdyfm:=Tdrrzbbdyfm.create(self);
drrzbbdyfm.dy.preview;
drrzbbdyfm.free;
end;

procedure Thotelfm.N8Click(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.N28.Caption;
   Parameters.ParamByName('sj').Value:=datetimetostr(now());
   execsql;
  end;
 drydbbdyfm:=Tdrydbbdyfm.create(self);
drydbbdyfm.dy.preview;
drydbbdyfm.free;
end;

procedure Thotelfm.N11Click(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.N11.Caption;
   Parameters.ParamByName('sj').Value:=datetimetostr(now());
   execsql;
  end;
  drldbbdyfm:=Tdrldbbdyfm.create(self);
drldbbdyfm.dy.preview;
drldbbdyfm.free;
end;

procedure Thotelfm.N12Click(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.N12.Caption;
   Parameters.ParamByName('sj').Value:=datetimetostr(now());
   execsql;
  end;
 drcwbbdyfm:=Tdrcwbbdyfm.create(self);
drcwbbdyfm.dy.preview;
drcwbbdyfm.free;
end;

procedure Thotelfm.N25Click(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.N25.Caption;
   Parameters.ParamByName('sj').Value:=datetimetostr(now());
   execsql;
  end;
ftxgfm:=Tftxgfm.create(self);
ftxgfm.showmodal;
ftxgfm.free;
end;

procedure Thotelfm.N14Click(Sender: TObject);
begin
gzryglfm:=Tgzryglfm.create(self);
gzryglfm.showmodal;
gzryglfm.PageControl1.ActivePage:=gzryglfm.gzygl;
gzryglfm.free;
end;

procedure Thotelfm.N15Click(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.N15.Caption;
   Parameters.ParamByName('sj').Value:=datetimetostr(now());
   execsql;
  end;
gzryglfm:=Tgzryglfm.create(self);
gzryglfm.showmodal;
gzryglfm.PageControl1.ActivePage:=gzryglfm.czygl;
gzryglfm.free;
end;

procedure Thotelfm.N16Click(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.N16.Caption;
   Parameters.ParamByName('sj').Value:=datetimetostr(now());
   execsql;
  end;
hybhglfm:=Thybhglfm.create(self);
hybhglfm.showmodal;
hybhglfm.free;
end;

procedure Thotelfm.N22Click(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.N22.Caption;
   Parameters.ParamByName('sj').Value:=datetimetostr(now());
   execsql;
  end;
xtbffm:=Txtbffm.create(self);
xtbffm.showmodal;
xtbffm.free;
end;

procedure Thotelfm.N28Click(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.N28.Caption;
   Parameters.ParamByName('sj').Value:=datetimetostr(now());
   execsql;
  end;
xtrzfm:=Txtrzfm.create(self);
xtrzfm.showmodal;
xtrzfm.free;
end;

procedure Thotelfm.N29Click(Sender: TObject);
begin
xtrzfm:=Txtrzfm.create(self);
xtrzfm.showmodal;
xtrzfm.free;
end;

procedure Thotelfm.N35Click(Sender: TObject);
begin
 showmessage('待开发中');
end;

procedure Thotelfm.N36Click(Sender: TObject);
begin
showmessage('待开发中');
end;

procedure Thotelfm.N20Click(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.N20.Caption;
   Parameters.ParamByName('sj').Value:=datetimetostr(now());
   execsql;
  end;
xgmmfm:=Txgmmfm.create(self);
xgmmfm.showmodal;
xgmmfm.free;
end;

procedure Thotelfm.FormActivate(Sender: TObject);
begin
if not logined then
begin
loginfm.showmodal;
logined:=true;
end;
end;

procedure Thotelfm.N21Click(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.N21.Caption;
   Parameters.ParamByName('sj').Value:=datetimetostr(now());
   execsql;
  end;
 loginfm.showmodal;
end;

procedure Thotelfm.x1Click(Sender: TObject);
begin
 gyxtfm:=Tgyxtfm.create(self);
gyxtfm.showmodal;
gyxtfm.free;
end;

procedure Thotelfm.Timer1Timer(Sender: TObject);
begin
hotelfm.StatusBar.Panels[2].Text:=datetimetostr(date()+time());
end;

procedure Thotelfm.FormCreate(Sender: TObject);
begin
hotelfm.StatusBar.Panels[1].Text:='欢迎使用宾馆客房管理系统!';
end;

procedure Thotelfm.ToolButton10Click(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:='退出系统';
   Parameters.ParamByName('sj').Value:=datetimetostr(now());
   execsql;
  end;
application.Terminate;
end;

end.