uploadprogress.pas

企业端数据申报系统：单位管理模块 单位查询. 业务申报模块 在线数据下载 在线数据上传 在线业务申核 申报业务查询 磁盘数据导出 磁盘数据导入 在线业务模块 在线业务

unit UpLoadProgress;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, basedialog, ExtCtrls, StdCtrls, TFlatProgressBarUnit, jpeg,
  TFlatButtonUnit;

type
  TUpLoadProgress_frm = class(Tbasedialog_form)
    Image2: TImage;
    Memo1: TMemo;
    FlatProgressBar1: TFlatProgressBar;
    Label1: TLabel;
    FB_cancel: TFlatButton;
    procedure FormActivate(Sender: TObject);
    procedure FB_cancelClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  UpLoadProgress_frm: TUpLoadProgress_frm;

implementation

uses Main, datashare;

{$R *.dfm}

procedure TUpLoadProgress_frm.FormActivate(Sender: TObject);
var
  SBDZ_HTARCH,SBDZ_PSAGACCT,SBDZ_PSPAUSE,SBDZ_PSWGCASE,SBDZ_RTACCT,SBDZ_RTWAGE,SBDZ_INESIIS,ACCOUNT_MOVing,SQLstr:widestring;
begin
  inherited;
  cursor:=crhourglass;
  delay(200);
  memo1.Lines.Clear ;
  FlatProgressBar1.Position :=0;

  memo1.Lines.Add('正在检索合同制职工更新汇总表...');
  SQLstr:= 'select OPSENO,PSSENO,PSNAME,ISCODE,BGJFDATE,MONTHS,PSDATE,OPCODE,OPDATE,PROCFLG,CKCODE,CKDATE,NOTES,NOTPASSNOTES ';
  SQLstr:=SQLstr+' from SBDZ_HTARCH where PROCFLG=1';
  FlatProgressBar1.Position :=5;
  SBDZ_HTARCH:=exp_data(DataShare_frm.Query1,SQLstr,'|','♂');

  memo1.Lines.Add('正在检索个人帐户更新汇总表...');
  FlatProgressBar1.Position :=20;
  SQLstr:='select OPSENO,PSSENO,YEARNO,LYCPPRIN,LYPSPRIN,LYCPINTS,LYPSINTS,CYREWG,MONTHS,CYMONTHS,';
  SQLstr:=SQLstr+'PAYIDX,LYMONTHS,LYREMONTHS,CYARCPFD,CYRELYCPFD,CYARPSFD,CYRELYPSFD,CYFTCPFD,CYRELYCPAC,SPLYCPFD,CYCPACMONS,';
  SQLstr:=SQLstr+'CYPSARAC,CYRELYPSARAC,CYRELYPSAC,CYPSACMONS,CYCPINTS,CYPSINTS,ACCPINUP,ACPSWGINUP,ACCPINUPINTS,ACPSWGINUPINTS,WGMONUP,DBCPFD,';
  SQLstr:=SQLstr+'DBPSFD,CYDATE,PFLAG,DBFD,WGNOTES,FTNOTES,TOTFD,TOTPSFD,LYCYCPINTS,LYCYPSINTS,NOTES,CYACMONS,PSRATE,CPRATE,SIINTER,OPCODE,';
  SQLstr:=SQLstr+'OPDATE,PROCFLG,CKCODE,CKDATE,NOTPASSNOTES from SBDZ_PSAGACCT where PROCFLG=1';
  SBDZ_PSAGACCT:=exp_data(DataShare_frm.Query1,SQLstr,'|','♂');

  memo1.Lines.Add('正在检索中断人员更新汇总表...');
  FlatProgressBar1.Position :=30;
  SQLstr:='select OPSENO,PSSENO,cpseno,PSNAME,ISCODE,SEX,BDATE,WKDATE,JOINDATE,HOUSEHOLD,WKATTR,ADDRESS,TEL,ZIP,OPCODE,OPDATE,PROCFLG,CKCODE,CKDATE,NOTES,NOTPASSNOTES ';
  SQLstr:=SQLstr+'  from SBDZ_PSPAUSE where PROCFLG=1';
  SBDZ_PSPAUSE:=exp_data(DataShare_frm.Query1,SQLstr,'|','♂');

  memo1.Lines.Add('正在检索缴费工资更新汇总表...');
  FlatProgressBar1.Position :=40;
  SQLstr:='select OPSENO,PSSENO,PSNAME,ISCODE,YEARNO,MONTHS,REWAGE,TTWAGE,UPFLAG,OPCODE,OPDATE,PROCFLG,CKCODE,CKDATE,NOTES,NOTPASSNOTES,stwg';
  SQLstr:=SQLstr+'   from SBDZ_PSWGCASE where PROCFLG=1';
  SBDZ_PSWGCASE:=exp_data(DataShare_frm.Query1,SQLstr,'|','♂');

  memo1.Lines.Add('正在检索退休人员帐户更新汇总表...');
  FlatProgressBar1.Position :=50;
  SQLstr:='select OPSENO,PSSENO,PSNAME,ISCODE,YEARNO,LYREFD,RTWG,PSACPY,ACCTSAVE,ACPSSAVE,PYITEM,PYNAME,PYMOUNT,PYPSACCT,OPCODE,OPDATE,PROCFLG,';
  SQLstr:=Sqlstr+'CKCODE,CKDATE,NOTES,NOTPASSNOTES from SBDZ_RTACCT where PROCFLG=1';
  SBDZ_RTACCT:=exp_data(DataShare_frm.Query1,SQLstr,'|','♂');

  memo1.Lines.Add('正在检索转移人员帐户更新汇总表...');
  FlatProgressBar1.Position :=55;
  SQLstr:='select opseno,psseno,psname,iscode,opcode,opdate,procflg,ckcode,ckdate,notpassnotes from account_moving where  PROCFLG=1';
  //SQLstr:='select OPSENO,PSSENO,PSNAME,ISCODE,OPCODE,OPDATE,PROCFLG,CKCODE from account_moving where  PROCFLG=1';
  ACCOUNT_MOVING:=exp_data(DataShare_frm.Query1,SQLstr,'|','♂');

  memo1.Lines.Add('正在检索异地转入人员更新汇总表...');
  FlatProgressBar1.Position :=60;
  SQLstr:='select opseno,psseno,cpseno,iscode,agcardno,psname,sex,bdate,household,wkattr,identity,pflg,wkdate,joindate';
  SQLstr:=SQLstr+',bfidyears,bfrpyears,status,pskind,notes,dept,nacode,bgjfdate,months,psdate,address,tel,zip,indate,tot,cymonths,ly,lyps,lycp';
  SQLstr:=SQLstr+',t2tot,t2ps,t2cp,rewage,lyrewage,upflag,opcode,opdate,procflg,ckcode,ckdate,notpassnotes  from  sbdz_InEsiis where PROCFLG=1';
  SBDZ_INESIIS:=exp_data(DataShare_frm.Query1,SQLstr,'|','♂');

  memo1.Lines.Add('正在检索并规计发养老金更新汇总表...');
  FlatProgressBar1.Position :=65;
  SQLstr:='select opseno,psname,iscode,stjf,pyitem77,pyitem78,pyitem79,opcode,opdate,procflg,ckcode,ckdate,notpassnotes,psseno,sjjf,tdzs,pyitem81';
  SQLstr:=SQLstr+' from sbdz_rtwage where PROCFLG=1';
  //SQLstr:='select opseno,psseno,psname,iscode,stjf,pyitem77,pyitem78,pyitem79,opcode,opdate,procflg,ckcode,';
  //SQLstr:=SQLstr+'ckdate,notpassnotes from  sbdz_rtwage where PROCFLG=1';
  SBDZ_RTWAGE:=exp_data(DataShare_frm.Query1,SQLstr,'|','♂');
  // account_moving OPSENO,PSSENO,PSNAME,ISCODE,OPCODE,OPDATE,PROCFLG,CKCODE

  memo1.Lines.Add('正在上传数据...');
  FlatProgressBar1.Position :=70;
  try
  msg:=fecho.uploadData(username,sbdz_pswgcase,sbdz_psagacct,sbdz_pspause,sbdz_htarch,sbdz_rtacct,sbdz_inesiis,sbdz_rtwage,account_moving);
  delay(200);
  FlatProgressBar1.Position :=100;
  if msg.msgCode=1 then
   begin
    memo1.Lines.Add('上传数据完毕...') ;
    with DataShare_frm.Query3 do
      begin
        close;
        sql.Clear ;
        sql.Add('update SBDZ_HTARCH set PROCFLG=2 where PROCFLG=1 ');
        prepare;
        execsql;

        close;
        sql.Clear;
        sql.Add('update SBDZ_PSAGACCT set PROCFLG=2 where PROCFLG=1 ');
        prepare;
        execsql;

        close;
        sql.Clear ;
        sql.Add('update SBDZ_PSPAUSE set PROCFLG=2 where PROCFLG=1 ');
        prepare;
        execsql;

        close;
        sql.Clear ;
        sql.Add('update SBDZ_PSWGCASE set PROCFLG=2 where PROCFLG=1 ');
        prepare;
        execsql;

        close;
        sql.Clear ;
        sql.Add('update SBDZ_RTACCT set PROCFLG=2 where PROCFLG=1 ');
        prepare;
        execsql;

        close;
        sql.Clear ;
        sql.Add('update ACCOUNT_MOVing set PROCFLG=2 where PROCFLG=1 ');
        prepare;
        execsql;

        close;
        sql.Clear ;
        sql.Add('update SBDZ_INESIIS set PROCFLG=2 where PROCFLG=1 ');
        prepare;
        execsql;

        close;
        sql.Clear ;
        sql.Add(' update SBDZ_RTWAGE set PROCFLG=2 where PROCFLG=1 ');
        prepare;
        execsql;
      end;
   end else
  begin
   memo1.Lines.Add(msg.msgText);
   cursor:=crdefault;
   application.MessageBox(pchar(string(msg.msgText)),'恩普软件',mb_iconerror+mb_ok);
   exit;
  end;
  SBDZ_HTARCH:='';
  SBDZ_PSAGACCT:='';
  SBDZ_PSPAUSE:='';
  SBDZ_PSWGCASE:='';
 SBDZ_RTACCT:='';
 SBDZ_RTWAGE:='';
 SBDZ_INESIIS:='';
 ACCOUNT_MOVing:='';
 except
   cursor:=crdefault;
   application.MessageBox('网络连接出现异常！','恩普软件',mb_iconerror+mb_ok);
   exit;
 end;
 application.MessageBox('上传完毕！','恩普软件',mb_iconinformation+mb_ok);
 cursor:=crdefault;
end;

procedure TUpLoadProgress_frm.FB_cancelClick(Sender: TObject);
begin
  inherited;
  close;
end;

end.