downdatathread.~pas

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

 unit downdatathread;

interface
 uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, Buttons,IniFiles,db,DBCtrls,StdCtrls, ComCtrls,DBTables, ShellCtrls;
 type
  tdownthread=class(tthread)
  private

  i:integer;
  protected
  procedure execute;override;  
  public
  constructor create();


  end;
implementation
 uses cgmain,indata;
 constructor tdownthread.create();
 begin 
 inherited create(false);

 end;
 procedure tdownthread.execute;
  var
 i,j,coutii:integer;
 str:string;
 strmc,strdz,strhm,ccc,kkk,strsql:string;

 Ti:Tinifile;
  begin
    form1.ADOConnection1.ConnectionString:='Provider=SQLOLEDB.1;Password=101807;Persist Security Info=True;User ID=sa;Initial Catalog=wfzlinfo;Data Source=61.137.3.227,1433';
   form1.ADOConnection1.LoginPrompt:=false;
   form1.ADOConnection1.Connected:=true;
   form1.ADOQuery1.Connection:=form1.ADOConnection1;
   form1.StatusBar1.Panels[2].Text:='远程数据库已连接------>正在下载';
   ///////////////////////////////////////////////////
   /////////////////////读取执法部门信息表
    Ti:= Tinifile.create(extractfilepath(paramstr(0))+'\setup.ini');
    strmc:=Ti.ReadString('SYSTEM','cfmc','');
    strdz:=Ti.ReadString('SYSTEM','fbmdz','');
    strhm:=Ti.ReadString('SYSTEM','ftxhm','');
    ccc:=Ti.ReadString('SYSTEM','center','');
    Ti.free;
     i:=0; coutii:=0;

        form1.ADOQuery1.Close;
        form1.ADOQuery1.SQL.Clear;
        form1.ADOQuery1.SQL.Add('select * from wf_zl_cl_info' );
        form1.ADOQuery1.SQL.Add('where ZFBMMC=:p1');
        form1.ADOQuery1.Parameters.ParamByName('p1').Value:=trim(strmc);
        form1.ADOQuery1.Open;


   ////////////////////////////////////////////////////////////////////
   ////////  更新数据
   /////
     j:=0;
     while not form1.ADOQuery1.Eof do
     begin
      try
      form1.tempquery1.RequestLive:=true;
      form1.tempquery1.Close;
      form1.tempquery1.SQL.Clear;
      form1.tempquery1.SQL.Add('select * from wf_zl_info');
      form1.tempquery1.SQL.Add('where TZSHM=:p2');
      form1.tempquery1.ParamByName('p2').AsString:=trim(form1.ADOQuery1['TZSHM']);
      form1.tempquery1.Open;
      if form1.tempquery1.RecordCount=0 then
      begin
      form1.tempquery1.Edit;
      form1.tempquery1.Append;
      end
      else
      form1.tempquery1.Edit;
      form1.tempquery2.Close;
      form1.tempquery2.SQL.Clear;
      form1.tempquery2.SQL.Add('select * from cl');
      form1.tempquery2.SQL.Add('where cllx=:p1');
      form1.tempquery2.ParamByName('p1').AsString:=trim(form1.ADOQuery1['cllx']);
      form1.tempquery2.Open;
      if form1.tempquery2.RecordCount>0 then
      kkk:=form1.tempquery2['clbm'];
      form1.tempquery2.Close;
       {strsql:='insert into wf_zl_info values('''+form1.ADOQuery1['TZSHM']+''''+
                                               ',''' +form1.ADOQuery1['CPHM']+'''' +
                                               ',''' +kkk+'''' +
                                               ',''' +form1.ADOQuery1['WFSJ']+''''+
                                               ',''' +form1.ADOQuery1['WFDD']+''''+
                                               ',''' +form1.ADOQuery1['WFSY']+'''' +
                                               ',''' +form1.ADOQuery1['ZXR']+'''' +
                                               ',''' +form1.ADOQuery1['ZFBM']+''''  +
                                               ',''' +form1.ADOQuery1['ZCCFSJ']+''''+
                                               ',''' +form1.ADOQuery1['CFJE']+'''' +
                                               ',''' +form1.ADOQuery1['CFSJ']+''''  +
                                               ',''' +date+''''   +
                                               ',''' +form1.ADOQuery1['CFJDSBM']+''''  +
                                               ',''' +form1.ADOQuery1['DSR']+''''  +
                                               ',''' +form1.ADOQuery1['SFJE']+'''' +
                                               ',''' +form1.ADOQuery1['SPR']+'''' +
                                               ',''' +form1.ADOQuery1['CFFS']+'''' +
                                               ','''+form1.ADOQuery1['CFQR']+''''  +
                                               ',''' +form1.ADOQuery1['ZLBC']+'''' +
                                               ',''' +'Y'+''''        +
                                               ','''+form1.ADOQuery1['SFBZ']+'''' +
                                               ',''' +'N'+''''  +
                                               ',''' +'  '+''''   +
                                               ',''' +form1.ADOQuery1['BZ']+''''+')''';
      form1.tempquery2.Close;
      form1.tempquery2.SQL.Clear;
      form1.tempquery2.SQL.Add(strsql);
      form1.tempquery2.ExecSQL;  }

      form1.tempquery1['TZSHM']:=form1.ADOQuery1['TZSHM'];
      form1.tempquery1['CPHM']:=form1.ADOQuery1['CPHM'];
      form1.tempquery1['CLzl']:=kkk;
      form1.tempquery1['WFSJ']:=form1.ADOQuery1['WFSJ'];
      form1.tempquery1['WFDD']:=form1.ADOQuery1['WFDD'];
      form1.tempquery1['WFSY']:=form1.ADOQuery1['WFSY'];
      form1.tempquery1['ZXR']:=form1.ADOQuery1['ZXR'];
      form1.tempquery1['ZFBM']:=form1.ADOQuery1['ZFBM'];
      form1.tempquery1['ZCCFSJ']:=form1.ADOQuery1['ZCCFSJ'];
      form1.tempquery1['CFJE']:=(form1.ADOQuery1['CFJE']);
      form1.tempquery1['WRSJ']:=date;
      form1.tempquery1['CFSJ']:=form1.ADOQuery1['CFSJ'];
      form1.tempquery1['CFJDSBM']:=form1.ADOQuery1['CFJDSBM'];
      form1.tempquery1['DSR']:=form1.ADOQuery1['DSR']+' ';
      form1.tempquery1['SFJE']:=(form1.ADOQuery1['SFJE']);
      form1.tempquery1['SPR']:=form1.ADOQuery1['SPR']+' ';
      form1.tempquery1['CFFS']:=form1.ADOQuery1 ['CFFS'];
      form1.tempquery1['CFQR']:=form1.ADOQuery1['CFQR'];
      form1.tempquery1['ZLBC']:=form1.ADOQuery1['ZLBC'];
      form1.tempquery1['SCBZ']:='Y';
      form1.tempquery1['SFBZ']:=form1.ADOQuery1['SFBZ'];
      form1.tempquery1['DKBZ']:='N';
      form1.tempquery1['TPDZ']:='   ';
      form1.tempquery1['BZ']:=form1.ADOQuery1['BZ'] ;
      form1.tempquery1.Post;   
      form1.tempquery1.Close;
      form1.tempquery1.RequestLive:=false; 
       finally
      form1.ADOQuery1.Next;
      end;
     inc(j);
      form1.StatusBar1.Panels[1].Text:='正在下载新数据到本地数据库已执行线程次数：　'+inttostr(j);
     end;

      form1.ADOQuery1.Close;
       form1.tempquery1.Close;
  end;
end.