cxsrrb.pas

集成酒店桑拿食管管理的完整程序

unit cxsrrb;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Db, DBTables, StdCtrls, Buttons, ExtCtrls, Grids, DBGrids, TeEngine,
  Series, TeeProcs, Chart, DBChart, ComCtrls;

type
  TcxsrrbForm = class(TForm)
    DataSource1: TDataSource;
    Panel2: TPanel;
    Panel1: TPanel;
    kk: TLabel;
    BitBtn2: TBitBtn;
    BitBtn1: TBitBtn;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    DBGrid1: TDBGrid;
    DBChart1: TDBChart;
    Series1: TPieSeries;
    Query1: TQuery;
    Query2: TQuery;
    TabSheet3: TTabSheet;
    DBChart2: TDBChart;
    Series2: TBarSeries;
    DateTimePicker1: TDateTimePicker;
    procedure ComboBox1Change(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  cxsrrbForm: TcxsrrbForm;

implementation
uses dataproc, Srbbpt;
{$R *.DFM}

procedure TcxsrrbForm.ComboBox1Change(Sender: TObject);
begin
  Query1.Active:=false;
  Query1.ParamByName('prq').asstring:=formatdatetime('yyyy-MM-dd HH:mm:ss',DateTimePicker1.date);
  Query1.Open;
  Query2.Active:=false;
  Query2.ParamByName('prq').asstring:=formatdatetime('yyyy-MM-dd HH:mm:ss',DateTimePicker1.date);
  Query2.Open;
  DBChart1.Series[0].DataSource:=Query2;
  DBChart2.Series[0].DataSource:=Query2;



end;

procedure TcxsrrbForm.FormShow(Sender: TObject);
begin
   Panel1.Caption:=curper.sydw+'桑拿部营业日报表';
 // addoldcom(ComboBox1,'rbdate','srrb order by rbdate DESC ');
end;

procedure TcxsrrbForm.BitBtn2Click(Sender: TObject);
begin
     application.CreateForm(Tsrbbptform,srbbptform);
     srbbptform.QRLabel1.Caption:=Panel1.Caption;
   //  srbbptform.QRLabel23.Caption:=copy(ComboBox1.Text,1,4)+'年'+copy(ComboBox1.Text,6,2)+'月'+copy(ComboBox1.Text,9,2)+'日';
     srbbptform.QRLabel23.Caption:=formatdatetime('yyyy-MM-dd',DateTimePicker1.date);
     srbbptform.QRSubDetail3.DataSet:=Query1;
     srbbptform.QRDBText1.DataSet:=Query1;
     srbbptform.QRDBText2.DataSet:=Query1;
     srbbptform.QRDBText4.DataSet:=Query1;
    // srbbptform.QRDBText5.DataSet:=Query1;
     srbbptform.QRDBText6.DataSet:=Query1;
     srbbptform.QRDBText7.DataSet:=Query1;
     srbbptform.QRDBText8.DataSet:=Query1;
     srbbptform.QRDBText9.DataSet:=Query1;
     srbbptform.QRDBText10.DataSet:=Query1;
     srbbptform.QRDBText11.DataSet:=Query1;
     srbbptform.hide;
        srbbptform.qr1.print;
//        srbbptform.qr1.Preview;
     srbbptform.free;
end;

procedure TcxsrrbForm.BitBtn1Click(Sender: TObject);
begin
     application.CreateForm(Tsrbbptform,srbbptform);
     srbbptform.QRLabel1.Caption:=Panel1.Caption;
     srbbptform.QRLabel23.Caption:=formatdatetime('yyyy-MM-dd',DateTimePicker1.date);
     srbbptform.QRSubDetail3.DataSet:=Query1;
     srbbptform.QRDBText1.DataSet:=Query1;
     srbbptform.QRDBText2.DataSet:=Query1;
     srbbptform.QRDBText4.DataSet:=Query1;
    // srbbptform.QRDBText5.DataSet:=Query1;
     srbbptform.QRDBText6.DataSet:=Query1;
     srbbptform.QRDBText7.DataSet:=Query1;
     srbbptform.QRDBText8.DataSet:=Query1;
     srbbptform.QRDBText9.DataSet:=Query1;
     srbbptform.QRDBText10.DataSet:=Query1;
     srbbptform.QRDBText11.DataSet:=Query1;
     srbbptform.hide;
//        srbbptform.qr1.print
        srbbptform.qr1.Preview;
     srbbptform.free;
end;

end.