ssxsbb.pas

日昌餐饮管理系统是用Delphi7+SQL写的管理系统

unit ssxsbb;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ComCtrls, DBTables, DB, QRCtrls, QuickRpt,
  ExtCtrls, Grids, DBGrids;

type
  TssxsForm = class(TForm)
    Label2: TLabel;
    DateTimePicker1: TDateTimePicker;
    DateTimePicker2: TDateTimePicker;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    DBGrid1: TDBGrid;
    Panel3: TPanel;
    QuickRep1: TQuickRep;
    PageHeaderBand2: TQRBand;
    QRSysData3: TQRSysData;
    QRLabel10: TQRLabel;
    QRLabel2: TQRLabel;
    SummaryBand2: TQRBand;
    QRLabel17: TQRLabel;
    ColumnHeaderBand1: TQRBand;
    QRLabel31: TQRLabel;
    QRLabel32: TQRLabel;
    QRLabel33: TQRLabel;
    DetailBand1: TQRBand;
    QRDBText1: TQRDBText;
    QRDBText2: TQRDBText;
    QRDBText3: TQRDBText;
    DataSource1: TDataSource;
    Query1: TQuery;
    Label7: TLabel;
    Label1: TLabel;
    Query1djsl: TIntegerField;
    Query1lb: TStringField;
    Query1mc: TStringField;
    Query1bh: TStringField;
    Query1jee: TFloatField;
    Query1zkee: TFloatField;
    Query1fwfee: TFloatField;
    Query1see: TFloatField;
    Query2: TQuery;
    Query1lbmc: TStringField;
    QRLabel1: TQRLabel;
    QRLabel3: TQRLabel;
    QRLabel4: TQRLabel;
    QRLabel5: TQRLabel;
    QRLabel6: TQRLabel;
    QRDBText4: TQRDBText;
    QRDBText5: TQRDBText;
    QRDBText6: TQRDBText;
    QRDBText7: TQRDBText;
    QRDBText8: TQRDBText;
    QRExpr1: TQRExpr;
    QRExpr2: TQRExpr;
    QRExpr3: TQRExpr;
    QRExpr4: TQRExpr;
    Query1sle: TFloatField;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Query1CalcFields(DataSet: TDataSet);
    procedure DBGrid1TitleClick(Column: TColumn);
  private
    xx:string; 
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ssxsForm: TssxsForm;

implementation
uses rjsmain;
{$R *.dfm}

procedure TssxsForm.BitBtn1Click(Sender: TObject);
begin
      query1.Close;
      query1.SQL.Clear;
      query1.SQL.Add(' SELECT count(djh) as djsl, lb, mc, bh, sum(sl) as sle, sum(je) as jee, sum(zke) as zkee, sum(fwfe) fwfee, sum(se) as see FROM dcd dcd');
      query1.SQL.Add(' where rq>=:cs1 and rq<=:cs2 and fkbz=1 and zfbz=0 group by lb,bh,mc order by lb,bh');
      query1.ParamByName('cs1').AsDateTime:=datetimepicker1.DateTime;
      query1.ParamByName('cs2').AsDateTime:=datetimepicker2.DateTime;
      query1.Open;
      bitbtn2.Enabled:=true;
end;

procedure TssxsForm.BitBtn2Click(Sender: TObject);
begin
     qrlabel10.Caption:=rjsmain.dwmc;
     quickrep1.Preview;
end;

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

procedure TssxsForm.FormActivate(Sender: TObject);
begin
     if xx='xx' then exit;
     xx:='xx';
     query2.Open;
     bitbtn2.Enabled:=false;
     datetimepicker1.Date:=date;
     datetimepicker1.Time:=strtotime('00:00:00');
     datetimepicker2.Date:=date;
     datetimepicker2.Time:=strtotime('23:59:59');
end;

procedure TssxsForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
     xx:='';
     query1.Close;
     query2.Close;
end;

procedure TssxsForm.Query1CalcFields(DataSet: TDataSet);
begin
     query2.Locate('lbbm',query1lb.AsString,[]);
     dataset.FieldByName('lbmc').AsString:=query2.FieldByName('lbmc').AsString;
end;

procedure TssxsForm.DBGrid1TitleClick(Column: TColumn);
begin
     query1.Close;
     query1.SQL.Clear;
     query1.SQL.Add('SELECT count(a.djh) as djsl, a.lb, a.mc, a.bh, sum(a.sl) as sle, sum(a.je) as jee, sum(a.zke) as zkee, sum(a.fwfe) fwfee, sum(a.se) as see FROM dcd a where a.rq>=:cs1 and a.rq<=:cs2 and a.fkbz=1 and a.zfbz=0 group by a.lb,a.bh,a.mc ');
     if column.FieldName='djsl' then query1.SQL.Add('order by djsl');
     if column.FieldName='sle' then query1.SQL.Add('order by sle');
     if column.FieldName='jee' then query1.SQL.Add('order by jee');
     if column.FieldName='zkee' then query1.SQL.Add('order by zkee');
     if column.FieldName='fwfe' then query1.SQL.Add('order by fwfe');
     if column.FieldName='see' then query1.SQL.Add('order by see');
     query1.ParamByName('cs1').AsDateTime:=datetimepicker1.DateTime;
     query1.ParamByName('cs2').AsDateTime:=datetimepicker2.DateTime;
     query1.Open;
end;

end.