zjmxcx.~pas

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

unit zjmxcx;

interface

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

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

var
  zjmxcxForm: TzjmxcxForm;

implementation
  uses main,zjmxcxrpt;
{$R *.dfm}

procedure TzjmxcxForm.FormActivate(Sender: TObject);
var
      datasource1:Tdatasource;
begin
      datasource1:=TDataSource.Create(self);
      dbgrid1.DataSource:=datasource1;
      dbgrid1.ReadOnly:=true;
      datasource1.DataSet:=query1;
      query1.close;
      query1.sql.Clear;
      query1.sql.add('select * from zjmxtable');
      query1.open;
      radiobutton8.Checked:=true;
      label1.Visible:=false;
      label2.Visible:=false;
      edit1.Visible:=false;
      maskedit1.Visible:=false;
      maskedit2.Visible:=false;
      showlabel;
end;

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

procedure TzjmxcxForm.RadioButton1Click(Sender: TObject);
begin
      label1.Visible:=true;
      label1.Caption:='输入订房编号:';
      label2.Visible:=false;
      edit1.Visible:=true;
      edit1.Text:='';
      maskedit1.Visible:=false;
      maskedit2.Visible:=false;
end;

procedure TzjmxcxForm.RadioButton2Click(Sender: TObject);
begin
      label1.Visible:=true;
      label1.Caption:='输入客房编号:';
      label2.Visible:=false;
      edit1.Visible:=true;
      edit1.Text:='';
      maskedit1.Visible:=false;
      maskedit2.Visible:=false;
end;

procedure TzjmxcxForm.RadioButton3Click(Sender: TObject);
begin
      label1.Visible:=true;
      label1.Caption:='输入客人名称:';
      label2.Visible:=false;
      edit1.Visible:=true;
      edit1.Text:='';
      maskedit1.Visible:=false;
      maskedit2.Visible:=false;
end;

procedure TzjmxcxForm.RadioButton4Click(Sender: TObject);
begin
      label1.Visible:=true;
      label1.Caption:='输入证件编号:';
      label2.Visible:=false;
      edit1.Visible:=true;
      edit1.Text:='';
      maskedit1.Visible:=false;
      maskedit2.Visible:=false;
end;

procedure TzjmxcxForm.RadioButton5Click(Sender: TObject);
begin
      label1.Visible:=true;
      label1.Caption:='输入起始日期:';
      label2.Visible:=true;
      label2.caption:='终止日期';
      edit1.Visible:=false;
      maskedit1.Visible:=true;
      maskedit1.text:='';
      maskedit2.Visible:=true;
      maskedit2.text:='';
end;

procedure TzjmxcxForm.RadioButton6Click(Sender: TObject);
begin
      label1.Visible:=true;
      label1.Caption:='输入起始日期:';
      label2.Visible:=true;
      label2.caption:='终止日期';
      edit1.Visible:=false;
      maskedit1.Visible:=true;
      maskedit1.text:='';
      maskedit2.Visible:=true;
      maskedit2.text:='';
end;

procedure TzjmxcxForm.RadioButton7Click(Sender: TObject);
begin
      label1.Visible:=true;
      label1.Caption:='输入操作员名称:';
      label2.Visible:=false;
      edit1.Visible:=true;
      edit1.Text:='';
      maskedit1.Visible:=false;
      maskedit2.Visible:=false;
end;

procedure TzjmxcxForm.RadioButton8Click(Sender: TObject);
begin
      label1.Visible:=false;
      label2.Visible:=false;
      edit1.Visible:=false;
      maskedit1.Visible:=false;
      maskedit2.Visible:=false;
end;

procedure TzjmxcxForm.BitBtn1Click(Sender: TObject);
begin
      query1.close;
      query1.sql.clear;
      if radiobutton1.Checked then
      begin
          query1.SQL.add('select * from zjmxtable where bookno=:bookno');
          query1.ParamByName('bookno').AsString:=edit1.text;
      end
      else if radiobutton2.Checked then
      begin
          query1.SQL.add('select * from zjmxtable where roomno=:roomno');
          query1.ParamByName('roomno').AsString:=edit1.text;
      end
      else if radiobutton3.Checked then
      begin
          query1.SQL.add('select * from zjmxtable where name=:name');
          query1.ParamByName('name').AsString:=edit1.text;
      end
      else if radiobutton4.Checked then
      begin
          query1.SQL.add('select * from zjmxtable where certi_no=:certi_no');
          query1.ParamByName('certi_no').AsString:=edit1.text;
      end
      else if radiobutton5.Checked then
      begin
          query1.SQL.add('select * from zjmxtable where registerday>:s0 and registerday<:s1');
          query1.ParamByName('s0').Asdatetime:=strtodatetime(maskedit1.text);
          query1.ParamByName('s1').Asdatetime:=strtodatetime(maskedit2.text);
      end
      else if radiobutton6.Checked then
      begin
          query1.SQL.add('select * from zjmxtable where accountday>:s0 and accountday<:s1');
          query1.ParamByName('s0').Asdatetime:=strtodatetime(maskedit1.text);
          query1.ParamByName('s1').Asdatetime:=strtodatetime(maskedit2.text);
      end
      else if radiobutton7.Checked then
      begin
          query1.SQL.add('select * from zjmxtable where operator=:operator');
          query1.ParamByName('operator').AsString:=edit1.text;
      end
      else
          query1.SQL.add('select * from zjmxtable');
      query1.open;
      showlabel;
end;

procedure TzjmxcxForm.BitBtn2Click(Sender: TObject);
begin
      zjmxcxrptform.QRLabel13.caption:=username;
      zjmxcxrptform.QRLabel15.Caption:=datetimetostr(Now);
      zjmxcxrptform.QuickRep1.print;    
end;
procedure TZjmxcxForm.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:='操作员';
end;
end.