tjsrbb.pas

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

unit tjsrbb;

interface

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

type
  TtjsrbbForm = 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;
    begdate: TDateTimePicker;
    enddate: TDateTimePicker;
    BitBtn3: TBitBtn;
    TabSheet4: TTabSheet;
    DBChart3: TDBChart;
    Series3: TLineSeries;
    Query3: TQuery;
    Table1: TTable;
    Series4: TLineSeries;
    Series5: TLineSeries;
    Series6: TLineSeries;
    Series7: TLineSeries;
    Series8: TLineSeries;
    Series9: TLineSeries;
    Series10: TLineSeries;
    Label1: TLabel;
    Label2: TLabel;
    procedure FormShow(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  tjsrbbForm: TtjsrbbForm;

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

procedure TtjsrbbForm.FormShow(Sender: TObject);
begin
   Panel1.Caption:=curper.sydw+'桑拿部营业收入统计表';
   begdate.Date:=strtodatetime(formatdatetime('yyyy',now)+'-01-01');
   enddate.Date:=now;
end;

procedure TtjsrbbForm.BitBtn2Click(Sender: TObject);
begin
     application.CreateForm(Tsrbbptform,srbbptform);
     srbbptform.QRLabel1.Caption:=Panel1.Caption;
     srbbptform.QRLabel23.Caption:='从'+formatdatetime('yyyy''年''m''月''d''日''',begdate.Date)+' 到 '+formatdatetime('yyyy''年''m''月''d''日''',enddate.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 TtjsrbbForm.BitBtn1Click(Sender: TObject);
begin
     application.CreateForm(Tsrbbptform,srbbptform);
     srbbptform.QRLabel1.Caption:=Panel1.Caption;
     srbbptform.QRLabel23.Caption:='从'+formatdatetime('yyyy''年''m''月''d''日''',begdate.Date)+' 到 '+formatdatetime('yyyy''年''m''月''d''日''',enddate.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 TtjsrbbForm.BitBtn3Click(Sender: TObject);
begin
  Query1.Active:=false;
  Query1.ParamByName('pbeg').asstring:=formatdatetime('yyyy-mm-dd',begdate.Date);
  Query1.ParamByName('pend').asstring:=formatdatetime('yyyy-mm-dd',enddate.Date);
  Query1.Open;
  Query2.Active:=false;
  Query2.ParamByName('pbeg').asstring:=formatdatetime('yyyy-mm-dd',begdate.Date);
  Query2.ParamByName('pend').asstring:=formatdatetime('yyyy-mm-dd',enddate.Date);
  Query2.Open;
  Query3.Active:=false;
  Query3.ParamByName('pbeg').asstring:=formatdatetime('yyyy-mm-dd',begdate.Date);
  Query3.ParamByName('pend').asstring:=formatdatetime('yyyy-mm-dd',enddate.Date);
  Query3.Open;
  DBChart1.Series[0].DataSource:=Query2;
  DBChart2.Series[0].DataSource:=Query2;
  DBChart3.Series[0].DataSource:=Query3;

end;

end.