unit5.~pas

一个信息查询系统,主要功能文件上传下载,信息浏览,打印等

unit Unit5;

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
  Buttons, ExtCtrls, ComCtrls;

type
  TOKRightDlg1 = class(TForm)
    OKBtn: TButton;
    CancelBtn: TButton;
    Bevel1: TBevel;
    DateTimePicker1: TDateTimePicker;
    DateTimePicker2: TDateTimePicker;
    Label1: TLabel;
    Label2: TLabel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  OKRightDlg1: TOKRightDlg1;

implementation

uses Unit6, Unit7,cgmain, Unit8, Unit9;



{$R *.dfm}

procedure TOKRightDlg1.SpeedButton1Click(Sender: TObject);
var
   y1,m1,d1,y2,m2,d2:word;
begin

    form1.query3.Close;
    form1.query3.SQL.Clear;
    form1.query3.SQL.Add('select WFSJ as mm,count(WFSJ) as pp,sum(CFJE) as cf ,sum(SFJE) as cx from wf_zl_info where WFSJ  between :p2 and :p3 group by WFSJ ');
    form1.query3.ParamByName('p2').Value:=datetostr(datetimepicker1.Date) ;
    form1.Query3.ParamByName('p3').Value:=datetostr(datetimepicker2.Date) ;
    form1.query3.Open;
    QuickReport6.QRLabel1.Caption:=form1.StatusBar1.Panels[0].Text+'每天业务统计信息';
    QuickReport6.DataSet:=form1.query3;
    QuickReport6.QRDBText1.DataField:='mm';
    QuickReport6.QRDBText2.DataField:='pp';
    QuickReport6.QRDBText3.DataField:='cf';
    QuickReport6.QRDBText4.DataField:='cx';
    QuickReport6.QRDBText1.DataSet:=form1.query3;
    QuickReport6.QRDBText2.DataSet:=form1.query3;
    QuickReport6.QRDBText3.DataSet:=form1.query3;
    QuickReport6.QRDBText4.DataSet:=form1.query3;
    decodedate(DateTimePicker1.date,y1,m1,d1);
    decodedate(DateTimePicker2.date,y2,m2,d2);
    QuickReport6.QRLabel3.Caption:=inttostr(y1);
    QuickReport6.QRLabel5.Caption:=inttostr(m1);
    QuickReport6.QRLabel8.Caption:=inttostr(d1);
    QuickReport6.QRLabel10.Caption:=inttostr(y2);
    QuickReport6.QRLabel12.Caption:=inttostr(m2);
    QuickReport6.QRLabel14.Caption:=inttostr(d2);
     form1.query2.Close;
    form1.query2.SQL.Clear;
    form1.query2.SQL.Add('select count(WFSJ) as psp,sum(CFJE) as csf ,sum(SFJE) as csx from wf_zl_info where WFSJ  between :p2 and :p3 ');
    form1.query2.ParamByName('p2').Value:=(datetimepicker1.Date) ;
    form1.Query2.ParamByName('p3').Value:=(datetimepicker2.Date) ;
    form1.query2.Open;
    QuickReport6.QRDBText5.DataField:='psp';
    QuickReport6.QRDBText6.DataField:='csf';
    QuickReport6.QRDBText7.DataField:='csx';
    QuickReport6.QRDBText5.DataSet:=form1.query2;
    QuickReport6.QRDBText6.DataSet:=form1.query2;
    QuickReport6.QRDBText7.DataSet:=form1.query2;
    QuickReport6.PreviewModal;


end;

procedure TOKRightDlg1.SpeedButton2Click(Sender: TObject);
var
   y1,m1,d1,y2,m2,d2:word;
begin
     form1.query3.Close;
    form1.query3.SQL.Clear;
    form1.query3.SQL.Add('select * from "wf_zl_info" a,"cl" b where a.clzl=b.clbm and  WFSJ  between :p2 and :p3 order by  a.TZSHM ');
   form1.query3.ParamByName('p2').Value:=datetostr(datetimepicker1.Date) ;
   form1.Query3.ParamByName('p3').Value:=datetostr(datetimepicker2.Date) ;
   form1.query3.Open;
   QuickReport7.QRLabel1.Caption:=form1.StatusBar1.Panels[0].Text+'全部名单';
  QuickReport7.DataSet:=form1.query3;
  QuickReport7.QRDBText1.DataSet:=form1.query3;
  QuickReport7.QRDBText2.DataSet:=form1.query3;
  QuickReport7.QRDBText3.DataSet:=form1.query3;
  QuickReport7.QRDBText4.DataSet:=form1.query3;
  QuickReport7.QRDBText5.DataSet:=form1.query3;
  QuickReport7.QRDBText6.DataSet:=form1.query3;
  QuickReport7.QRDBText7.DataSet:=form1.query3;
  QuickReport7.QRDBText8.DataSet:=form1.query3;
  QuickReport7.QRDBText9.DataSet:=form1.query3;
   decodedate(DateTimePicker1.date,y1,m1,d1);
   decodedate(DateTimePicker2.date,y2,m2,d2);
   QuickReport7.QRLabel15.Caption:=inttostr(y1);
   QuickReport7.QRLabel16.Caption:=inttostr(m1);
   QuickReport7.QRLabel17.Caption:=inttostr(d1);
   QuickReport7.QRLabel18.Caption:=inttostr(y2);
   QuickReport7.QRLabel19.Caption:=inttostr(m2);
   QuickReport7.QRLabel23.Caption:=inttostr(d2);
   QuickReport7.Preview;
end;

procedure TOKRightDlg1.SpeedButton3Click(Sender: TObject);
var
   y1,m1,d1,y2,m2,d2:word;
begin
    form1.query3.Close;
    form1.query3.SQL.Clear;
    form1.query3.SQL.Add('select a.TZSHM as c1,a.CPHM as c2,b.CLLX as c3,a.WFSJ as c4,a.CFJE as c5,a.WFDD as c6,a.ZFBM as c7 from "wf_zl_info" a,"cl" b where a.clzl=b.clbm  and a.CFQR=:pz and a.WFSJ between  :p2 and :p3 order by TZSHM ');
    form1.query3.ParamByName('p2').Value:=(datetimepicker1.Date) ;
    form1.Query3.ParamByName('p3').Value:=(datetimepicker2.Date) ;
    form1.Query3.ParamByName('pz').Value:='N';
    form1.query3.Open;
    QuickReport8.DataSet:=form1.query3;
    QuickReport8.QRDBText1.DataField:='c1';
    QuickReport8.QRDBText2.DataField:='c2';
    QuickReport8.QRDBText3.DataField:='c3';
    QuickReport8.QRDBText4.DataField:='c4';
    QuickReport8.QRDBText5.DataField:='c5';
    QuickReport8.QRDBText6.DataField:='c6';
    QuickReport8.QRDBText7.DataField:='c7';
    QuickReport8.QRDBText1.DataSet:=form1.query3;
    QuickReport8.QRDBText2.DataSet:=form1.query3;
    QuickReport8.QRDBText3.DataSet:=form1.query3;
    QuickReport8.QRDBText4.DataSet:=form1.query3;
    QuickReport8.QRDBText5.DataSet:=form1.query3;
    QuickReport8.QRDBText6.DataSet:=form1.query3;
    QuickReport8.QRDBText7.DataSet:=form1.query3;
    QuickReport8.QRLabel1.Caption:=form1.StatusBar1.Panels[0].Text+'未处罚的信息名单';
    decodedate(DateTimePicker1.date,y1,m1,d1);
    decodedate(DateTimePicker2.date,y2,m2,d2);
    QuickReport8.QRLabel3.Caption:=inttostr(y1);
    QuickReport8.QRLabel5.Caption:=inttostr(m1);
    QuickReport8.QRLabel8.Caption:=inttostr(d1);
    QuickReport8.QRLabel10.Caption:=inttostr(y2);
    QuickReport8.QRLabel12.Caption:=inttostr(m2);
    QuickReport8.QRLabel14.Caption:=inttostr(d2);
    QuickReport8.Preview;
end;

procedure TOKRightDlg1.FormShow(Sender: TObject);
begin
   datetimepicker2.Date:=date;
   datetimepicker1.Date:=datetimepicker2.Date-7;
end;

procedure TOKRightDlg1.SpeedButton4Click(Sender: TObject);
var
   y1,m1,d1,y2,m2,d2:word;
   i:integer;
begin
    form1.Query4.Close;
    form1.Query4.SQL.Clear;
    form1.Query4.SQL.Add('delete from totalreport');
    form1.Query4.ExecSQL;

    form1.Query4.RequestLive:=true;
    form1.query3.Close;
    form1.query3.SQL.Clear;
    form1.query3.SQL.Add('select zfbm, sum(sfje) as c2 from "wf_zl_info"  where WFSJ between  :p2 and :p3 group by ZFBM  order by ZFBM');
    form1.query3.ParamByName('p2').Value:=datetostr(datetimepicker1.Date) ;
    form1.Query3.ParamByName('p3').Value:=datetostr(datetimepicker2.Date) ;
    form1.query3.Open;
    while not form1.Query3.Eof do
    begin

        form1.Query4.Close;
        form1.Query4.SQL.Clear;
        form1.Query4.SQL.Add('select *  from totalreport');
        form1.Query4.Open;
        form1.Query4.Edit;
        form1.Query4.Insert;
        form1.Query4['zfbm']:=form1.Query3['zfbm'];
        form1.Query4['totalmoney']:=form1.Query3['c2'];