zhtjbb.pas

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

unit zhtjbb;

interface

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

type
  TzhtjForm = 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;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    ComboBox3: TComboBox;
    Query3: TQuery;
    Query4: TQuery;
    Query5: TQuery;
    QRLabel7: TQRLabel;
    QRLabel8: TQRLabel;
    QRLabel9: TQRLabel;
    QRLabel11: TQRLabel;
    QRLabel12: TQRLabel;
    QRLabel13: TQRLabel;
    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
  zhtjForm: TzhtjForm;

implementation
uses rjsmain;
{$R *.dfm}

procedure TzhtjForm.BitBtn1Click(Sender: TObject);
begin
      query1.Close;
      query1.SQL.Clear;
      query1.SQL.Add(' SELECT count(distinct 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 ');
      if combobox1.Text<>'全部' then
      begin
         query3.Locate('yhmc',combobox1.Text,[]);
         query1.SQL.Add(' and yhh=:cs3');
         query1.ParamByName('cs3').AsString:=query3.FieldByName('yhm').AsString;
      end;
      if combobox2.Text<>'全部' then
      begin
         query1.SQL.Add(' and bc=:cs4');
         query1.ParamByName('cs4').AsString:=combobox2.Text;
      end;
      if combobox3.Text<>'全部' then
      begin
//         query4.Locate('ctmc',combobox3.Text,[]);
//         query1.SQL.Add(' and twbh=:cs5');
///         query1.ParamByName('cs5').AsString:=query4.FieldByName('ctbh').AsString;
      end;
      query1.SQL.Add(' 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 TzhtjForm.BitBtn2Click(Sender: TObject);
begin
     qrlabel10.Caption:=rjsmain.dwmc;
     qrlabel8.Caption:=combobox1.Text;
     qrlabel11.Caption:=combobox2.Text;
     qrlabel13.Caption:=combobox3.Text;
     quickrep1.Preview;
end;

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

procedure TzhtjForm.FormActivate(Sender: TObject);
begin
     if xx='xx' then exit;
     xx:='xx';
     query3.Open;
     query4.Open;
     combobox1.Items.Clear;
     combobox1.Items.Add('全部');
     while not query3.Eof do
     begin
      combobox1.Items.Add(query3.FieldByName('yhmc').AsString);
      query3.Next;
     end;
     combobox1.Text:='全部';
     combobox2.Text:='全部';
     combobox3.Items.Clear;
     combobox3.Items.Add('全部');
     while not query4.Eof do
     begin
      combobox3.Items.Add(query4.FieldByName('ctmc').AsString);
      query4.Next;
     end;
     combobox3.Text:='全部';
     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 TzhtjForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
     xx:='';
     query1.Close;
     query2.Close;
end;

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

procedure TzhtjForm.DBGrid1TitleClick(Column: TColumn);
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 ');
      if combobox1.Text<>'全部' then
      begin
         query3.Locate('yhmc',combobox1.Text,[]);
         query1.SQL.Add(' and yhh=:cs3');
         query1.ParamByName('cs3').AsString:=query3.FieldByName('yhm').AsString;
      end;
      if combobox2.Text<>'全部' then
      begin
         query1.SQL.Add(' and bc=:cs4');
         query1.ParamByName('cs4').AsString:=combobox2.Text;
      end;
      if combobox3.Text<>'全部' then
      begin
//         query4.Locate('ctmc',combobox3.Text,[]);
//         query1.SQL.Add(' and twbh=:cs5');
///         query1.ParamByName('cs5').AsString:=query4.FieldByName('ctbh').AsString;
      end;
      query1.SQL.Add(' group by lb,bh,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.