xtrzut.pas

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

unit xtrzut;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, ExtCtrls, Grids, DBGrids, DB, ADODB, StdCtrls, Buttons;

type
  Txtrzfm = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    Panel1: TPanel;
    Panel2: TPanel;
    rzado: TADOQuery;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    sj: TComboBox;
    Label2: TLabel;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    Label3: TLabel;
    sjclado: TADOQuery;
    TabSheet3: TTabSheet;
    BitBtn5: TBitBtn;
    procedure FormCreate(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  xtrzfm: Txtrzfm;

implementation

{$R *.dfm}

procedure Txtrzfm.FormCreate(Sender: TObject);
begin
 with rzado do
   begin
     close;
     sql.clear;
     sql.Add('select 姓名,操作,时间 from 日志表 order by 时间 desc');
     open;
   end;
end;

procedure Txtrzfm.BitBtn2Click(Sender: TObject);
begin
close;
end;

procedure Txtrzfm.BitBtn1Click(Sender: TObject);
begin
   with rzado do
   begin
     close;
     sql.clear;
     sql.Add('delete from 日志表');
     execsql;

   end;
   with rzado do
   begin
     close;
     sql.clear;
     sql.Add('select 姓名,操作,时间 from 日志表 order by 时间 desc');
     open;
   end;
end;

procedure Txtrzfm.BitBtn4Click(Sender: TObject);
begin
close;
end;

procedure Txtrzfm.BitBtn3Click(Sender: TObject);
begin
 if sj.Text='' then
   begin
     showmessage('请输入或则选择天数');
     exit;
   end;
   with sjclado do
     begin
      close;
      sql.Clear;
      sql.Add('delete from 入住单历史表 where 离店时间<=:ldsj');
       Parameters.ParamByName('ldsj').Value:=datetostr(date()-strtoint(sj.Text));
      execsql;
      close;
      sql.Clear;
      sql.Add('delete from 预定单历史表 where 预定时间<=:ldsj');
       Parameters.ParamByName('ldsj').Value:=datetostr(date()-strtoint(sj.Text));
      execsql;
      close;
      sql.Clear;
      sql.Add('delete from 帐单明细历史表 where 消费时间<=:ldsj');
       Parameters.ParamByName('ldsj').Value:=datetostr(date()-strtoint(sj.Text));
      execsql;
     end;
     showmessage('数据处理成功');
end;

procedure Txtrzfm.BitBtn5Click(Sender: TObject);
begin
 with sjclado do
     begin
      close;
      sql.Clear;
      sql.Add('delete from 入住单表');
       execsql;
       close;
      sql.Clear;
      sql.Add('delete from 入住单历史表');
       execsql;
       close;
      sql.Clear;
      sql.Add('delete from 预定单表');
       execsql;
       close;
      sql.Clear;
      sql.Add('delete from 预定单历史表');
       execsql;
       close;
      sql.Clear;
      sql.Add('delete from 帐单明细表');
       execsql;
       close;
      sql.Clear;
      sql.Add('delete from 帐单明细历史表');
       execsql;
       close;
      sql.Clear;
      sql.Add('delete from 操作员表');
       execsql;
       close;
      sql.Clear;
      sql.Add('delete from 工作员表');
       execsql;
       close;
      sql.Clear;
      sql.Add('delete from 客房类型表');
       execsql;
        close;
      sql.Clear;
      sql.Add('delete from 客房信息表');
       execsql;
        close;
      sql.Clear;
      sql.Add('delete from 日志表');
       execsql;
        close;
      sql.Clear;
      sql.Add('delete from 楼层编号表');
       execsql;
      end;
      showmessage('系统初始化成功!');
end;

end.