booklscx.~pas

我自己写的一个有关酒店管理系统的代码 大家

unit booklscx;

interface

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

type
  TdflscxForm = class(TForm)
    GroupBox1: TGroupBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    RadioButton4: TRadioButton;
    RadioButton5: TRadioButton;
    RadioButton6: TRadioButton;
    GroupBox2: TGroupBox;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    BitBtn1: TBitBtn;
    DBGrid1: TDBGrid;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    MaskEdit1: TMaskEdit;
    MaskEdit2: TMaskEdit;
    Query1: TQuery;
    DataSource1: TDataSource;
    procedure BitBtn3Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
    procedure RadioButton3Click(Sender: TObject);
    procedure RadioButton5Click(Sender: TObject);
    procedure RadioButton6Click(Sender: TObject);
    procedure RadioButton4Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure showlabel;
  end;

var
  dflscxForm: TdflscxForm;
implementation
  uses dflsrpt,main;
{$R *.dfm}

procedure TdflscxForm.BitBtn3Click(Sender: TObject);
begin
      query1.Close;
      close;
end;

procedure TdflscxForm.FormActivate(Sender: TObject);
begin
    dbgrid1.ReadOnly:=true;
    dbgrid1.DataSource:=datasource1;
    datasource1.DataSet:=query1;
    query1.Close;
    query1.sql.add('select * from bookroomhistory');
    query1.open;
    label1.Visible:=false;
    label2.Visible:=false;
    edit1.Visible:=false;
    maskedit1.Visible:=false;
    maskedit2.Visible:=false;
    radiobutton1.Checked:=true;
    showlabel;
end;

procedure TdflscxForm.RadioButton1Click(Sender: TObject);
begin
    if radiobutton1.Checked then
    begin
        label1.Visible:=false;
        label2.Visible:=false;
        edit1.Visible:=false;
        maskedit1.Visible:=false;
        maskedit2.Visible:=false;
    end;
end;

procedure TdflscxForm.RadioButton2Click(Sender: TObject);
begin
    if radiobutton2.Checked then
    begin
        label1.Visible:=true;
        label1.Caption:='输入客人姓名：';
        label2.Visible:=false;
        edit1.Visible:=true;
        edit1.text:='';
        maskedit1.Visible:=false;
        maskedit2.Visible:=false;
    end;
end;

procedure TdflscxForm.RadioButton3Click(Sender: TObject);
begin
    if radiobutton3.Checked then
    begin
        label1.Visible:=true;
        label1.Caption:='输入客房编号：';
        label2.Visible:=false;
        edit1.Visible:=true;
        edit1.text:='';
        maskedit1.Visible:=false;
        maskedit2.Visible:=false;
    end;
end;

procedure TdflscxForm.RadioButton5Click(Sender: TObject);
begin
    if radiobutton5.Checked then
    begin
        label1.Visible:=true;
        label1.Caption:='输入订房编号：';
        label2.Visible:=false;
        edit1.Visible:=true;
        edit1.text:='';
        maskedit1.Visible:=false;
        maskedit2.Visible:=false;
    end;
end;

procedure TdflscxForm.RadioButton6Click(Sender: TObject);
begin
    if radiobutton6.Checked then
    begin
        label1.Visible:=false;
        label2.Visible:=false;
        edit1.Visible:=false;
        maskedit1.Visible:=false;
        maskedit2.Visible:=false;
    end;
end;

procedure TdflscxForm.RadioButton4Click(Sender: TObject);
begin
    if radiobutton4.Checked then
    begin
        label1.Visible:=true;
        label1.Caption:='输入开始日期：';
        label2.Visible:=true;
        label2.Caption:='结束日期';
        edit1.Visible:=false;
        maskedit1.Visible:=true;
        maskedit2.Visible:=true;
    end;
end;

procedure TdflscxForm.BitBtn1Click(Sender: TObject);
begin
      query1.close;
      query1.sql.Clear;
      if radiobutton1.Checked then
          query1.sql.add('select * from bookroomhistory')
      else if radiobutton2.checked then
      begin
          query1.SQL.add('select * from bookroomhistory where name=:name');
          query1.ParamByName('name').asstring:=edit1.text;
      end
      else if radiobutton3.Checked then
      begin
          query1.SQL.add('select * from bookroomhistory where roomno=:roomno');
          query1.ParamByName('roomno').asstring:=edit1.text;
      end
      else if radiobutton4.checked then
      begin
          query1.SQL.add('select * from bookroomhistory where registerday>:s0 and registerday<:s1');
          query1.ParamByName('s0').asdatetime:=strtodatetime(maskedit1.text);
          query1.ParamByName('s1').asdatetime:=strtodatetime(maskedit2.text);
      end
      else if radiobutton5.Checked then
      begin
          query1.SQL.add('select * from bookroomhistory where bookno=:bookno');
          query1.ParamByName('bookno').asstring:=edit1.text;
      end
      else
      begin
          query1.SQL.add('select * from bookroomhistory where hour_id=:hour_id');
          query1.ParamByName('hour_id').asboolean:=true;
      end;
      query1.Open;
      showlabel;
end;

procedure TdflscxForm.BitBtn2Click(Sender: TObject);
begin
      dflsrptform.qrlabel16.Caption:=username;
      dflsrptform.qrlabel18.Caption:=datetostr(date);
      dflsrptform.QuickRep1.Preview;
end;
procedure TDflscxForm.showlabel;
begin
    dbgrid1.Fields[0].DisplayLabel:='订房序号';
    dbgrid1.Fields[1].DisplayLabel:='客户名称';
    dbgrid1.Fields[2].DisplayLabel:='证件名称';
    dbgrid1.Fields[3].DisplayLabel:='证件号码';
    dbgrid1.Fields[4].DisplayLabel:='性别';
    dbgrid1.Fields[5].DisplayLabel:='籍贯';
    dbgrid1.Fields[6].DisplayLabel:='出生年月';
    dbgrid1.Fields[7].DisplayLabel:='工作单位';
    dbgrid1.Fields[8].DisplayLabel:='通信地址';
    dbgrid1.Fields[9].DisplayLabel:='钟点房';
    dbgrid1.Fields[10].DisplayLabel:='联系方式';
    dbgrid1.Fields[11].DisplayLabel:='源地';
    dbgrid1.Fields[12].DisplayLabel:='目的地';
    dbgrid1.Fields[13].DisplayLabel:='登记日期';
    dbgrid1.Fields[14].DisplayLabel:='预计天数';
    dbgrid1.Fields[15].DisplayLabel:='房间编号';
    dbgrid1.Fields[16].DisplayLabel:='其他费用';
    dbgrid1.Fields[17].DisplayLabel:='住房单价';
    dbgrid1.Fields[18].DisplayLabel:='折扣率';
    dbgrid1.Fields[19].DisplayLabel:='押金数';
    dbgrid1.Fields[20].DisplayLabel:='结账日期';
    dbgrid1.Fields[21].DisplayLabel:='应收金额';
    dbgrid1.Fields[22].DisplayLabel:='实收金额';
    dbgrid1.Fields[23].DisplayLabel:='操作员';
    dbgrid1.Fields[24].DisplayLabel:='操作时间';
    dbgrid1.Fields[25].DisplayLabel:='说明';
end;

end.