szlscx.pas

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

unit szlscx;

interface

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

type
  TszlscxForm = 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;
    RadioButton7: TRadioButton;
    Query1: TQuery;
    procedure BitBtn3Click(Sender: TObject);
    procedure FormActivate(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 BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure showlabel;
  end;

var
  szlscxForm: TszlscxForm;

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

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

procedure TszlscxForm.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 szhistorytable');
      query1.open;
      radiobutton7.Checked:=true;
      label1.Visible:=false;
      label2.Visible:=false;
      edit1.Visible:=false;
      maskedit1.Visible:=false;
      maskedit2.Visible:=false;
      showlabel;
end;

procedure TszlscxForm.RadioButton1Click(Sender: TObject);
begin
      if radiobutton1.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 TszlscxForm.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 TszlscxForm.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 TszlscxForm.RadioButton4Click(Sender: TObject);
begin
      if radiobutton4.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 TszlscxForm.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 TszlscxForm.RadioButton6Click(Sender: TObject);
begin
      if radiobutton6.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 TszlscxForm.RadioButton7Click(Sender: TObject);
begin
      if radiobutton7.Checked then
      begin
            label1.Visible:=false;
            label2.Visible:=false;
            edit1.Visible:=false;
            maskedit1.Visible:=false;
            maskedit2.Visible:=false;
      end;
end;

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

procedure TszlscxForm.BitBtn2Click(Sender: TObject);
begin
    szlscxrptform.QRLabel10.Caption:=username;
    szlscxrptform.QRLabel12.Caption:=datetimetostr(Now);
    szlscxrptform.QuickRep1.preview;
end;
 procedure TSzlscxForm.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:='操作员';                                    
 end;
end.