zjmxcx.pas

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

unit zjmxcx;

interface

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

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;
    ADOConnection1: TADOConnection;
    ADODataSet1: TADODataSet;
    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 }
  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:=adodataset1;
      adodataset1.Connection:=adoconnection1;
      adodataset1.CommandText:='select * from 资金明细表';
      adodataset1.open;
      radiobutton8.Checked:=true;
      label1.Visible:=false;
      label2.Visible:=false;
      edit1.Visible:=false;
      maskedit1.Visible:=false;
      maskedit2.Visible:=false;
end;

procedure TzjmxcxForm.BitBtn3Click(Sender: TObject);
begin
      adodataset1.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
      adodataset1.close;
      adodataset1.Parameters.Clear;
      if radiobutton1.Checked then
      begin
          adodataset1.Parameters.AddParameter;
          adodataset1.Parameters[0].name:='s0';
          adodataset1.Parameters[0].DataType:=ftstring;
          adodataset1.Parameters[0].Size:=12;
          adodataset1.Parameters[0].Direction:=pdinput;
          adodataset1.Parameters[0].Value:=edit1.text;
          adodataset1.CommandText:='select * from 资金明细表 where 订房编号=:s0';
      end
      else if radiobutton2.Checked then
      begin
          adodataset1.Parameters.AddParameter;
          adodataset1.Parameters[0].name:='s0';
          adodataset1.Parameters[0].DataType:=ftstring;
          adodataset1.Parameters[0].Size:=6;
          adodataset1.Parameters[0].Direction:=pdinput;
          adodataset1.Parameters[0].Value:=edit1.text;
          adodataset1.CommandText:='select * from 资金明细表 where 客房编号=:s0';
      end
      else if radiobutton3.Checked then
      begin
          adodataset1.Parameters.AddParameter;
          adodataset1.Parameters[0].name:='s0';
          adodataset1.Parameters[0].DataType:=ftstring;
          adodataset1.Parameters[0].Size:=8;
          adodataset1.Parameters[0].Direction:=pdinput;
          adodataset1.Parameters[0].Value:=edit1.text;
          adodataset1.CommandText:='select * from 资金明细表 where 客人名称=:s0';
      end
      else if radiobutton4.Checked then
      begin
          adodataset1.Parameters.AddParameter;
          adodataset1.Parameters[0].name:='s0';
          adodataset1.Parameters[0].DataType:=ftstring;
          adodataset1.Parameters[0].Size:=18;
          adodataset1.Parameters[0].Direction:=pdinput;
          adodataset1.Parameters[0].Value:=edit1.text;
          adodataset1.CommandText:='select * from 资金明细表 where 证件编号=:s0';
      end
      else if radiobutton5.Checked then
      begin
          adodataset1.Parameters.AddParameter;
          adodataset1.Parameters[0].name:='s0';
          adodataset1.Parameters[0].DataType:=ftdatetime;
          adodataset1.Parameters[0].Direction:=pdinput;
          adodataset1.Parameters[0].Value:=strtodatetime(maskedit1.text);
          adodataset1.Parameters.AddParameter;
          adodataset1.Parameters[1].name:='s1';
          adodataset1.Parameters[1].DataType:=ftdatetime;
          adodataset1.Parameters[1].Direction:=pdinput;
          adodataset1.Parameters[1].Value:=strtodatetime(maskedit2.text);
          adodataset1.CommandText:='select * from 资金明细表 where 订房日期>:s0 and 订房日期<:s1';
      end
      else if radiobutton6.Checked then
      begin
          adodataset1.Parameters.AddParameter;
          adodataset1.Parameters[0].name:='s0';
          adodataset1.Parameters[0].DataType:=ftdatetime;
          adodataset1.Parameters[0].Direction:=pdinput;
          adodataset1.Parameters[0].Value:=strtodatetime(maskedit1.text);
          adodataset1.Parameters.AddParameter;
          adodataset1.Parameters[1].name:='s1';
          adodataset1.Parameters[1].DataType:=ftdatetime;
          adodataset1.Parameters[1].Direction:=pdinput;
          adodataset1.Parameters[1].Value:=strtodatetime(maskedit2.text);
          adodataset1.CommandText:='select * from 资金明细表 where 结账日期>:s0 and 结账日期<:s1';
      end
      else if radiobutton7.Checked then
      begin
          adodataset1.Parameters.AddParameter;
          adodataset1.Parameters[0].name:='s0';
          adodataset1.Parameters[0].DataType:=ftstring;
          adodataset1.Parameters[0].Size:=8;
          adodataset1.Parameters[0].Direction:=pdinput;
          adodataset1.Parameters[0].Value:=edit1.text;
          adodataset1.CommandText:='select * from 资金明细表 where 操作员=:s0';
      end
      else
         adodataset1.CommandText:='select * from 资金明细表';
      adodataset1.open;
end;

procedure TzjmxcxForm.BitBtn2Click(Sender: TObject);
begin
      zjmxcxrptform.QRLabel13.caption:=username;
      zjmxcxrptform.QRLabel15.Caption:=datetimetostr(Now);
      zjmxcxrptform.QuickRep1.print;    
end;

end.