unit5.~pas

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

        form1.Query4.Post;
        form1.Query3.Next;
    end;
     form1.Query4.RequestLive:=false;
    /////////////////////////////////////////// 免处
    form1.query3.Close;
    form1.query3.SQL.Clear;
    form1.query3.SQL.Add('select zfbm, count(cffs) as c3 from "wf_zl_info"  where cffs=:p1 and 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.ParamByName('p1').Value:='免处';
    form1.query3.Open;
     while not form1.Query3.Eof do
    begin
        form1.Query4.Close;
        form1.Query4.SQL.Clear;
        form1.Query4.SQL.Add('update totalreport');
        form1.Query4.sql.Add('set mst=:p1');
        form1.Query4.SQL.Add('where zfbm=:p2');
        form1.Query4.ParamByName('p1').Value:=form1.Query3['c3'];
        form1.Query4.ParamByName('p2').Value:=form1.Query3['zfbm'];
        form1.Query4.ExecSQL;
        form1.Query3.Next;
    end;
    /////////////////////////////////////////// 警告
    form1.query3.Close;
    form1.query3.SQL.Clear;
    form1.query3.SQL.Add('select zfbm, count(cffs) as c4 from "wf_zl_info"  where cffs=:p1 and 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.ParamByName('p1').Value:='警告';
    form1.query3.Open;
      while not form1.Query3.Eof do
    begin
        form1.Query4.Close;
        form1.Query4.SQL.Clear;
        form1.Query4.SQL.Add('update totalreport');
        form1.Query4.sql.Add('set wst=:p1');
        form1.Query4.SQL.Add('where zfbm=:p2');
        form1.Query4.ParamByName('p1').Value:=form1.Query3['c4'];
        form1.Query4.ParamByName('p2').Value:=form1.Query3['zfbm'];
        form1.Query4.ExecSQL;
        form1.Query3.Next;
    end;
    /////////////////////////////////////////// 司法
    form1.query3.Close;
    form1.query3.SQL.Clear;
    form1.query3.SQL.Add('select zfbm, count(sfbz) as c5 from "wf_zl_info"  where sfbz=:p1 and 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.ParamByName('p1').Value:='Y';
    form1.query3.Open;
      while not form1.Query3.Eof do
    begin
        form1.Query4.Close;
        form1.Query4.SQL.Clear;
        form1.Query4.SQL.Add('update totalreport');
        form1.Query4.sql.Add('set sst=:p1');
        form1.Query4.SQL.Add('where zfbm=:p2');
        form1.Query4.ParamByName('p1').Value:=form1.Query3['c5'];
        form1.Query4.ParamByName('p2').Value:=form1.Query3['zfbm'];
        form1.Query4.ExecSQL;
        form1.Query3.Next;
    end;
    ///////////////////////////////////////////  未处罚
    form1.query3.Close;
    form1.query3.SQL.Clear;
    form1.query3.SQL.Add('select zfbm, count(cffs) as c6 from "wf_zl_info"  where cffs=:p1 and cfqr=:p4 and 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.ParamByName('p1').Value:='';
    form1.Query3.ParamByName('p4').Value:='N';
    form1.query3.Open;
    while not form1.Query3.Eof do
    begin
        form1.Query4.Close;
        form1.Query4.SQL.Clear;
        form1.Query4.SQL.Add('update totalreport');
        form1.Query4.sql.Add('set wcf=:p1');
        form1.Query4.SQL.Add('where zfbm=:p2');
        form1.Query4.ParamByName('p1').Value:=form1.Query3['c6'];
        form1.Query4.ParamByName('p2').Value:=form1.Query3['zfbm'];
        form1.Query4.ExecSQL;
        form1.Query3.Next;
    end;
    ////////////////////////////罚款
    form1.query3.Close;
    form1.query3.SQL.Clear;
    form1.query3.SQL.Add('select zfbm, count(cffs) as c6 from "wf_zl_info"  where cffs=:p1 and cfqr=:p4 and 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.ParamByName('p1').Value:='罚款';
    form1.Query3.ParamByName('p4').Value:='Y';
    form1.query3.Open;

    while not form1.Query3.Eof do
    begin
        form1.Query4.Close;
        form1.Query4.SQL.Clear;
        form1.Query4.SQL.Add('update totalreport');
        form1.Query4.sql.Add('set ycf=:p1');
        form1.Query4.SQL.Add('where zfbm=:p2');
        form1.Query4.ParamByName('p1').Value:=form1.Query3['c6'];
        form1.Query4.ParamByName('p2').Value:=form1.Query3['zfbm'];
        form1.Query4.ExecSQL;
        form1.Query3.Next;
    end;
       //////////////////////////根据INI中的排序在报表中显示
        form1.Query3.Close;
        form1.Query3.SQL.Clear;
        form1.Query3.SQL.Add('select * from totalreport');
        form1.Query3.Open;
        while not form1.Query3.Eof do
        begin
        form1.Query4.Close;
        form1.Query4.SQL.Clear;
        form1.Query4.SQL.Add('update totalreport');
        form1.Query4.sql.Add('set ID=:p1');
        form1.Query4.SQL.Add('where zfbm='''+form1.Query3['zfbm']+'''');
        i:=0;
         while i<form1.ComboBox1.Items.Count do
           begin
             if  form1.Query3['zfbm']=form1.ComboBox1.Items[i] then
              break;
               inc(i);
           end;
        form1.Query4.ParamByName('p1').Value:=i;
        form1.Query4.ExecSQL;
        end;
         form1.Query4.Close;
         form1.Query4.SQL.Clear;
         form1.Query4.SQL.Add('select *  from totalreport order by ID asc');
         form1.Query4.Open;

    QuickReport1.DataSet:=form1.query4;
    QuickReport1.QRDBText1.DataField:='zfbm';
    QuickReport1.QRDBText7.DataField:='totalmoney';
    QuickReport1.QRDBText1.DataSet:=form1.query4;
    QuickReport1.QRDBText7.DataSet:=form1.query4;
    QuickReport1.QRDBText5.DataField:='mst';
    QuickReport1.QRDBText5.DataSet:=form1.query4;
    QuickReport1.QRDBText4.DataField:='wst';
    QuickReport1.QRDBText4.DataSet:=form1.query4;
    QuickReport1.QRDBText6.DataField:='sst';
    QuickReport1.QRDBText6.DataSet:=form1.query4;
    QuickReport1.QRDBText3.DataField:='wcf';
    QuickReport1.QRDBText3.DataSet:=form1.query4;
    QuickReport1.QRDBText2.DataField:='ycf';
    QuickReport1.QRDBText2.DataSet:=form1.query4;
    ///////////////////////////////////////////
    QuickReport1.QRLabel1.Caption:=form1.StatusBar1.Panels[0].Text+'业务分析报告';

      form1.query2.Close;
    form1.query2.SQL.Clear;
    form1.query2.SQL.Add('select sum(mst) as msp,sum(totalmoney) as tsp ,sum(sst) as ssp,sum(wst) as wsp ,sum(wcf) as wc ,sum(ycf) as yc from totalreport ');

    form1.query2.Open;
    QuickReport1.QRDBText8.DataField:='yc';
    QuickReport1.QRDBText9.DataField:='wc';
    QuickReport1.QRDBText10.DataField:='wsp';
    QuickReport1.QRDBText11.DataField:='msp';
    QuickReport1.QRDBText12.DataField:='ssp';
    QuickReport1.QRDBText13.DataField:='tsp';
    QuickReport1.QRDBText8.DataSet:=form1.query2;
    QuickReport1.QRDBText9.DataSet:=form1.query2;
    QuickReport1.QRDBText10.DataSet:=form1.query2;
    QuickReport1.QRDBText11.DataSet:=form1.query2;
    QuickReport1.QRDBText12.DataSet:=form1.query2;
    QuickReport1.QRDBText13.DataSet:=form1.query2;

    decodedate(DateTimePicker1.date,y1,m1,d1);
    decodedate(DateTimePicker2.date,y2,m2,d2);
    QuickReport1.QRLabel3.Caption:=inttostr(y1);
    QuickReport1.QRLabel5.Caption:=inttostr(m1);
    QuickReport1.QRLabel8.Caption:=inttostr(d1);
    QuickReport1.QRLabel10.Caption:=inttostr(y2);
    QuickReport1.QRLabel12.Caption:=inttostr(m2);
    QuickReport1.QRLabel14.Caption:=inttostr(d2);
    QuickReport1.Preview;
end;

procedure TOKRightDlg1.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  form1.Query2.Close;
  form1.Query3.Close;
  form1.Query4.Close;
  form1.Query5.Close;

end;

end.