uquery.pas

货物分类统计系统

unit Uquery;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, DB, DBTables;

type
  Tfmquery1 = class(TForm)
    Label1: TLabel;
    ComboBox1: TComboBox;
    Label2: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmquery1: Tfmquery1;

implementation

uses Ufmsumreport1;

{$R *.dfm}

procedure Tfmquery1.BitBtn1Click(Sender: TObject);
var m:string;
begin
if length(inttostr(combobox1.ItemIndex+1))=1 then
m:='0'+inttostr(combobox1.ItemIndex+1) else m:=inttostr(combobox1.ItemIndex+1);

application.CreateForm(tfmsumreport1,fmsumreport1);
fmsumreport1.query1.Close;
if combobox1.ItemIndex=12 then
begin
fmsumreport1.Query1.Params.Clear;
fmsumreport1.Query1.SQL.Clear;
fmsumreport1.Query1.Close;
fmsumreport1.Query1.SQL.Add('select ');
fmsumreport1.Query1.SQL.Add(' sum(wluolj) as wluolj,sum(wluolc) as wluolc,sum(wluoc) as wluoc,sum(whlj) as whlj,sum(whlc) as whlc ');
fmsumreport1.Query1.SQL.Add(',sum(whc) as whc,sum(wxianlj) as wxianlj,sum(wxianlc) as wxianlc,sum(wxianc) as wxianc ');
fmsumreport1.Query1.SQL.Add(',sum(wxinglj) as  wxinglj,sum(wxinglc) as wxinglc,sum(wxingc) as wxingc ');
fmsumreport1.Query1.SQL.Add(',sum(wbanlj) as wbanlj,sum(wbanlc) as wbanlc,sum(wbanc) as wbanc ');
fmsumreport1.Query1.SQL.Add(',sum(wrelj) as  wrelj,sum(wrelc) as wrelc,sum(wrec) as wrec ');
fmsumreport1.Query1.SQL.Add(',sum(wlenglj) as wlenglj,sum(wlenglc) as wlenglc,sum(wlengc) as wlengc ');
fmsumreport1.Query1.SQL.Add(',sum(wdulj) as wdulj,sum(wdulc) as wdulc,sum(wduc) as wduc ');
fmsumreport1.Query1.SQL.Add(',sum(wcailj) as wcailj,sum(wcailc) as wcailc,sum(wcaic) as wcaic ');

fmsumreport1.Query1.SQL.Add(', sum(yluolj) as yluolj,sum(yluolc) as yluolc,sum(yluoc) as yluoc,sum(yhlj) as yhlj,sum(yhlc) as yhlc ');
fmsumreport1.Query1.SQL.Add(',sum(yhc) as yhc,sum(yxianlj) as yxianlj,sum(yxianlc) as yxianlc,sum(yxianc) as yxianc ');
fmsumreport1.Query1.SQL.Add(',sum(yxinglj) as  yxinglj,sum(yxinglc) as yxinglc,sum(yxingc) as yxingc ');
fmsumreport1.Query1.SQL.Add(',sum(ybanlj) as ybanlj,sum(ybanlc) as ybanlc,sum(ybanc) as ybanc ');
fmsumreport1.Query1.SQL.Add(',sum(yrelj) as  yrelj,sum(yrelc) as yrelc,sum(yrec) as yrec ');
fmsumreport1.Query1.SQL.Add(',sum(ylenglj) as ylenglj,sum(ylenglc) as ylenglc,sum(ylengc) as ylengc ');
fmsumreport1.Query1.SQL.Add(',sum(ydulj) as ydulj,sum(ydulc) as ydulc,sum(yduc) as yduc ');
fmsumreport1.Query1.SQL.Add(',sum(ycailj) as ycailj,sum(ycailc) as ycailc,sum(ycaic) as ycaic ');
fmsumreport1.Query1.SQL.Add('from sumlihuoyue' );
end
else
fmsumreport1.query1.Params[0].Value:=m;
fmsumreport1.query1.ExecSQL;
fmsumreport1.query1.Active:=true;
fmsumreport1.QRLabel5.Caption:='报表月份:'+combobox1.Text;
if fmsumreport1.query1.RecordCount>0 then
fmsumreport1.QuickRep1.Preview else showmessage('没有 '+combobox1.Text+'记录，请核对!!');

end;

procedure Tfmquery1.FormCreate(Sender: TObject);
begin
fmquery1.ComboBox1.ItemIndex:=strtoint(formatdatetime('mm',date))-2;
end;

procedure Tfmquery1.BitBtn2Click(Sender: TObject);
begin
fmquery1.Close;
end;

procedure Tfmquery1.FormActivate(Sender: TObject);
begin
BitBtn1.SetFocus;
end;

end.