dataexport.~pas

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

  sqlstr:='select * from sbda_psagacct where exists (select * from  sbdb_psarch where sbdb_psarch.psseno=sbda_psagacct.psseno and sbdb_psarch.cpseno='+flatcombobox3.Items[Flatcombobox1.itemindex]+')';
  export_data(datashare_frm.Query1,sqlstr,'sbda_psagacct','企业养老保险个人帐户');

  sqlstr:='select A.* from sbdu_pswgcase A,sbdb_psarch B where A.psseno=B.psseno and B.cpseno='+flatcombobox3.Items[Flatcombobox1.itemindex];
  export_data(datashare_frm.Query1,sqlstr,'sbdu_pswgcase','职工缴费工资汇总');

  sqlstr:='select A.PRSENO,A.PSSENO,A.YEARNO,A.LYREFD,A.CYRTWG,A.CYPYMONS,A.CYPYINTS,A.NMRTWG,A.INTSDATE,A.KEFLAG,A.CYEDACCT  from  sbda_psrtacct A,sbdb_rtarch B where A.psseno=B.psseno and B.cpseno='+flatcombobox3.Items[Flatcombobox1.itemindex];
  export_data(DataShare_frm.Query1,sqlstr,'sbda_psrtacct','离退休人员养老个人帐户');

  sqlstr:='select A.PRSENO,A.PSSENO,A.PYITEM,A.FDCODE,A.PYMOUNT,A.PYPSACCT from sbdb_rtwage A,sbdb_rtarch B where A.psseno=B.psseno and B.cpseno='+flatcombobox3.Items[Flatcombobox1.itemindex];
  export_data(DataShare_frm.Query1,sqlstr,'sbdb_rtwage','离退休人员工资档案');

  sqlstr:='select A.* from sbdz_pswgcase A ,sbdb_psarch B where A.psseno=B.psseno and B.cpseno='+flatcombobox3.Items[Flatcombobox1.itemindex];
  export_data(DataShare_frm.Query1,sqlstr,'sbdz_pswgcase','缴费工资更新汇总表');

  sqlstr:='select A.* from  sbdz_psagacct A,sbdb_psarch B where A.psseno=B.psseno and B.cpseno='+flatcombobox3.Items[Flatcombobox1.itemindex];
  export_data(DataShare_frm.Query1,sqlstr,'sbdz_psagacct','个人帐户更新汇总表');

  sqlstr:='select A.* from sbdz_htarch A,sbdb_psarch B where A.psseno=B.psseno and B.cpseno='+flatcombobox3.Items[Flatcombobox1.itemindex];
  export_data(DataShare_frm.Query1,sqlstr,'sbdz_htarch','合同制职工更新汇总表');

  sqlstr:='select A.* from sbdz_pspause A,sbdb_psarch B where A.psseno=B.psseno and B.cpseno='+flatcombobox3.Items[Flatcombobox1.itemindex];
  export_data(DataShare_frm.Query1,sqlstr,'sbdz_pspause','中断人员更新汇总表');

  sqlstr:='select A.* from sbdz_rtacct A,sbdb_psarch B where A.psseno=B.psseno and B.cpseno='+flatcombobox3.Items[Flatcombobox1.itemindex];
  export_data(DataShare_frm.Query1,sqlstr,'sbdz_rtacct','退休人员帐户更新汇总表');

  sqlstr:='select A.* from account_moving A ,sbdb_psarch B where A.psseno=B.psseno and B.cpseno='+flatcombobox3.Items[Flatcombobox1.itemindex];
  export_data(DataShare_frm.Query1,sqlstr,'account_moving','转移人员更新汇总表');

  sqlstr:='select A.* from sbdz_InEsiis A,sbdb_psarch B where A.psseno=B.psseno and B.cpseno='+flatcombobox3.Items[Flatcombobox1.itemindex];
  export_data(DataShare_frm.Query1,sqlstr,'sbdz_InEsiis','异地转入接续人员更新汇总表');

  sqlstr:='select A.* from sbdz_rtwage A,sbdb_psarch B where A.psseno=B.psseno and B.cpseno='+flatcombobox3.Items[Flatcombobox1.itemindex];
  export_data(DataShare_frm.Query1,sqlstr,'sbdz_rtwage','异地转入接续人员更新汇总表');

  //------------------------20040901-------------------------------------------
  sqlstr:='select * from SBDC_CPATTR';  
  export_data(DataShare_frm.Query1,sqlstr,'SBDC_CPATTR','参数一');

  sqlstr:='select * from SBDC_DEPT';  
  export_data(DataShare_frm.Query1,sqlstr,'SBDC_DEPT','参数二');

  sqlstr:='select * from SBDC_ECMODE';
  export_data(DataShare_frm.Query1,sqlstr,'SBDC_ECMODE','参数三');

  sqlstr:='select * from sbdc_pyitem';
  export_data(DataShare_frm.Query1,sqlstr,'sbdc_pyitem','参数四');

  sqlstr:='select * from SBDC_SUBJ';
  export_data(DataShare_frm.Query1,sqlstr,'SBDC_SUBJ','参数五');

  sqlstr:='select * from SBDC_TRADE';
  export_data(DataShare_frm.Query1,sqlstr,'SBDC_TRADE','参数六');

  sqlstr:='select * from SBDS_INANCONS';
  export_data(DataShare_frm.Query1,sqlstr,'SBDS_INANCONS','参数七');

  sqlstr:='select * from SBDS_INCONS';
  export_data(DataShare_frm.Query1,sqlstr,'SBDS_INCONS','参数八');
  //---------------------------------------------------------------------------
  if flatcombobox4.Items.Count<0 then
    begin
      application.MessageBox('没有记录!','恩普软件',mb_iconinformation+mb_ok);
      exit; 
    end;

  zip.ArchiveFile :=flatedit1.Text ;
  zip.Password :='esiis123';  
  for loop:=0 to flatcombobox4.Items.Count-1 do
  zip.FileSpec.Add(flatcombobox4.Items[loop]);
  zip.Compress ;


  {XceedZipInitDLL;

  hZip := XzCreateXceedZipA( cLicenseString );

  XzSetXceedZipWindow( hZip, Self.Handle );

  XzSetZipFilenameA( hZip, PChar( Flatedit1.Text ) );
  //SetCurrentDirectory(pchar(d+'\exportfile'));

  XzSetFilesToProcessA( hZip,pchar(zipfiles));

    XzSetProcessSubfolders(HZip,0);
    XzSetEncryptionPasswordA(hzip, pchar('111111'));
    xzResult := XzZip( hZip );
  //  SetCurrentDirectory(d);
  XceedZipInitDLL;
  hzip:=XzCreateXceedZipA(cLicenseString);
  XzSetXceedZipWindow( hZip, Self.Handle );
  XzSetZipFilenameA( hZip, PChar(Flatedit1.Text) );
  XzSetFilesToProcessA( hZip,pchar(zipfiles));
  XzSetProcessSubfolders(HZip,0);
  XzSetEncryptionPasswordA(hzip, pchar('esiis123456'));
  xzresult:=xzzip(hzip); 
  if xzresult<>0 then
    begin
      XzDestroyXceedZip(hZip);
      XceedZipShutdownDLL;
      application.MessageBox('数据导出失败！','恩普软件',MB_OK+MB_IconStop+MB_SystemModal);
    end;
    XzDestroyXceedZip(hZip);
    XceedZipShutdownDLL; }

    //DeleteAll(getCurrentdir+'\exportfile\');


    memo1.Lines.Add('业务数据导出完成！');
    DeleteAll(extractfilepath(application.ExeName)+'exportfile\');
    cursor:=crdefault;
    FB_next.Enabled:=false;
    FB_cancel.Caption:='完 成';
  except
    on e:exception do
    begin
      cursor:=crdefault;
      DeleteAll(extractfilepath(application.ExeName)+'exportfile\');
      memo1.Lines.Add('业务数据导出失败！');
      memo1.Lines.Add('错误如下：'); 
      memo1.Lines.Add(e.Message);
      application.MessageBox('业务数据导出失败！','恩普软件',MB_OK+MB_IconStop+MB_SystemModal);
    end;

  end;


  {except
    on e:exception do
      application.MessageBox(pchar(e.Message),'恩普软件',MB_OK+MB_IconStop+MB_SystemModal);
  end;}
end;

{procedure TDataExport_frm.DeleteAll ;
var
 directory:Widestring;
begin
  directory:=extractfilepath(application.ExeName)+'Exportfile\';
  if fileexists(directory+'sbdb_cparch.txt') then deletefile(directory+'sbdb_cparch.txt');
  if fileexists(directory+'sbdb_psarch.txt') then deletefile(directory+'sbdb_psarch.txt');
  if fileexists(directory+'sbdb_rtarch.txt') then deletefile(directory+'sbdb_rtarch.txt');
  if fileexists(directory+'sbda_psagacct.txt') then deletefile(directory+'sbda_psagacct.txt');
  if fileexists(directory+'sbdu_pswgcase.txt') then deletefile(directory+'sbdu_pswgcase.txt');
  if fileexists(directory+'sbda_psrtacct.txt') then deletefile(directory+'sbda_psrtacct.txt');
  if fileexists(directory+'sbdb_rtwage.txt') then deletefile(directory+'sbdb_rtwage.txt');
  if fileexists(directory+'sbdz_pswgcase.txt') then deletefile(directory+'sbdz_pswgcase.txt');
  if fileexists(directory+'sbdz_psagacct.txt') then deletefile(directory+'sbdz_psagacct.txt');
  if fileexists(directory+'sbdz_htarch.txt') then deletefile(directory+'sbdz_htarch.txt');
  if fileexists(directory+'sbdz_pspause.txt') then deletefile(directory+'sbdz_pspause.txt');
  if fileexists(directory+'sbdz_rtacct.txt') then deletefile(directory+'sbdz_rtacct.txt');
  if fileexists(directory+'sbdz_rtacct.txt') then deletefile(directory+'sbdz_InEsiis.txt');
  if fileexists(directory+'account_moving.txt') then deletefile(directory+'account_moving.txt');
  if fileexists(directory+'sbdz_psout.txt') then deletefile(directory+'sbdz_psout.txt');
end;
      }
procedure TDataExport_frm.FlatButton3Click(Sender: TObject);
begin
  inherited;
  if Flatedit2.Text='' then
  begin
    application.MessageBox('请选择单位!','恩普软件',MB_OK+MB_IconInformation+MB_SystemModal);
    FlatCombobox1.SetFocus;
    exit;
  end;

  SaveDialog1.FileName:=Flatedit2.Text+'申报.Zip';
  SaveDialog1.Filter:= '压缩文件(*.zip)|*.zip|所有文件(*.*)|*.*';
  if SaveDialog1.Execute then
  begin
    if fileexists(SaveDialog1.FileName) then
    begin
      if Application.MessageBox('文件已经存在，是否要覆盖？','文件确认',MB_YESNO+MB_DEFBUTTON2+MB_IconQuestion+MB_SystemModal)=IDYES then
      begin
        deletefile(SaveDialog1.FileName);
        Flatedit1.Text:=SaveDialog1.FileName;
      end else
        exit;
    end else                                   //导出数据
      Flatedit1.Text:=SaveDialog1.FileName;
  end;
end;

procedure TDataExport_frm.FormCreate(Sender: TObject);
begin
  inherited;
  FB_previous.Enabled:=false;
  FB_next.Enabled:=true;
  pagecontrol1.ActivePageIndex:=0;
  
  Sel_str:=Tstringlist.Create();
  try
    with datashare_frm.Query1 do
    begin
      close;
      sql.Clear;
      sql.Add('select CPCODE,CPNAME,CPSENO,cmcpseno from sbdb_cparch');
      prepare;
      open;
      Flatcombobox1.Items.Clear ;
      Flatcombobox2.Items.Clear ;
      Flatcombobox3.Items.Clear ;
      Flatcombobox5.Items.Clear ;
      while not eof do
      begin
        FlatComboBox1.Items.Add(fieldbyname('CPNAME').AsString);
        FlatComboBox2.items.Add(fieldbyname('CPCODE').AsString);
        flatcombobox3.Items.Add(Fieldbyname('CPSENO').AsString);
        Flatcombobox5.Items.Add(Fieldbyname('cmcpseno').AsString);
        next;
      end;
    end;
  except
    on e:exception do
      application.MessageBox(pchar(e.Message),'恩普软件',MB_OK+MB_IconStop+MB_SystemModal);
  end;

end;

procedure TDataExport_frm.FlatComboBox1Change(Sender: TObject);
begin
  inherited;
  flatedit2.Text :='';
  if flatcombobox1.ItemIndex>=0 then flatedit2.Text :=flatcombobox2.Items[flatcombobox1.itemindex];
  flatcombobox4.Items.Clear ;
end;

procedure TDataExport_frm.FB_previousClick(Sender: TObject);
begin
  inherited;
  FB_previous.Enabled:=false;
  FB_next.Enabled:=true;
  FB_cancel.Caption:='取 消';
  pagecontrol1.ActivePageIndex:=0;
end;

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

end.