usc.pas

公积金监管系统客户端,是新疆公积金监管系统的客户端软件

unit uSC;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, ExtCtrls, CheckLst, InvokeRegistry, Rio,
  SOAPHTTPClient, AppEvnts, SOAPHTTPTrans, uSaveToExcel;

const ConfigFile = 'SendData.ini';

type
  TSJSC = class(TForm)
    clb_Bb: TCheckListBox;
    Panel1: TPanel;
    Label1: TLabel;
    GroupBox1: TGroupBox;
    Button1: TButton;
    Button2: TButton;
    Memo1: TMemo;
    Label2: TLabel;
    DTP_1: TDateTimePicker;
    Label4: TLabel;
    ApplicationEvents1: TApplicationEvents;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure ApplicationEvents1Exception(Sender: TObject; E: Exception);
    procedure FormCreate(Sender: TObject);
  private
    nY, nM, nD: word;
    Jtb_Ny: string;
    { Private declarations }
    procedure SetData6;
    procedure SetData7;
    procedure SetData8;
    procedure SetData9;
    procedure SJSC;
  public
    { Public declarations }
    Dsbh :string;
  end;

var
  SJSC: TSJSC;

implementation

uses DataModule, UserFace;

{$R *.dfm}

procedure TSJSC.Button2Click(Sender: TObject);
begin
  close;
end;

procedure TSJSC.SJSC;
var
  i, ret: smallint;
  Ary: array of double;
begin
  for i := 0 to 8 do
  begin
    if clb_BB.Checked[i] then
    begin
      with DM do
      begin
        case i of
          0:
            begin
              setlength(Ary, 35);
              P_ZcfzbGjj(Jtb_Ny, Ary);
              ret := F_ZcfzbGjj_Save1(Jtb_Ny, Ary);
              if ret <> 0 then
                memo1.Lines.Add('资产负债表(公积金)上传失败！')
              else
                memo1.Lines.Add('资产负债表(公积金)上传成功！');
            end;
          1:
            begin
              setlength(Ary, 16);
              P_ZzsybGjj(Jtb_Ny, Ary);
              ret := F_ZzsybGjj_Save1(Jtb_Ny, Ary);
              if ret <> 0 then
                memo1.Lines.Add('增值收益表(公积金)上传失败！')
              else
                memo1.Lines.Add('增值收益表(公积金)上传成功！');
            end;
          2:
            begin
              setlength(Ary, 14);
              P_ZzsyfpbGjj(copy(Jtb_Ny, 1, 4), Ary);
              ret := F_ZzsyfpbGjj_Save1(copy(Jtb_Ny, 1, 4), Ary);
              if ret <> 0 then
                memo1.Lines.Add('增值收益分配表(公积金)上传失败！')
              else
                memo1.Lines.Add('增值收益分配表(公积金)上传成功！');
            end;
          3:
            begin
              setlength(Ary, 32);
              P_ZcfzbJf(Jtb_Ny, Ary);
              ret := F_ZcfzbJf_Save1(Jtb_Ny, Ary);
              if ret <> 0 then
                memo1.Lines.Add('资产负债表(中心经费)上传失败！')
              else
                memo1.Lines.Add('资产负债表(中心经费)上传成功！');
            end;
          4:
            begin
              setlength(Ary, 14);
              P_JfszbJf(Jtb_Ny, Ary);
              ret := F_JfszbJf_Save1(Jtb_Ny, Ary);
              if ret <> 0 then
                memo1.Lines.Add('经费收支表(中心经费)上传失败！')
              else
                memo1.Lines.Add('经费收支表(中心经费)上传成功！');
            end;
          5:
            begin
              SetData6;
            end;
          6:
            begin
              SetData7;
            end;
          7:
            begin
              SetData8;
            end;
          8:
            begin
              SetData9;
            end;
        end;
      end;
    end;
  end;
end;

procedure TSJSC.Button1Click(Sender: TObject);
var
  vIP, vPort, rIp, rPort, sNy: string;
  ToPServ, ToMServ: smallint;
  ToExcel: TSaveToExcelFile;
begin
  memo1.Lines.Clear;
  DecodeDate(DTP_1.Date, nY, nM, nD);
  Jtb_Ny := trim(inttostr(nY)) + padl(trim(inttostr(nM)), 2, '0');

  UseGat := ReadIniInt(SystemPath() + INIFILENAME, 'GjjJglr', 'UseGate');
  vIp := trim(ReadIniStr(SystemPath() + INIFILENAME, 'GjjJglr', 'VServIp'));
  vPort := trim(ReadIniStr(SystemPath() + INIFILENAME, 'GjjJglr', 'VServPort'));

  ToPServ := ReadIniInt(SystemPath() + INIFILENAME, 'GjjJglr', 'ToPServ');
  ToMServ := ReadIniInt(SystemPath() + INIFILENAME, 'GjjJglr', 'ToMServ');

  if (ToPServ = 0) and (ToMServ = 0) then
  begin
    showmessage('请选择上传目的服务器！');
    exit;
  end;

  if ToPServ = 1 then
  begin
    rIp := trim(ReadIniStr(SystemPath() + INIFILENAME, 'GjjJglr', 'PServIp'));
    rPort := trim(ReadIniStr(SystemPath() + INIFILENAME, 'GjjJglr',
      'PServPort'));
    if rIp = '' then
    begin
      showmessage('请设置省(自治区)服务器IP地址及端口！');
      exit;
    end;
    memo1.Lines.Add('开始向省(自治区)服务器上传报表数据...');
    if UseGat = 0 then
    begin
      if rPort <> '' then
        rPort := ':' + rPort;
      DM.HTTPRIO_SC.URL := 'http://' + rIp + rPort
        + '/scripts/pPJgWsServer.dll/soap/IPJgWsServer';
    end
    else
    begin
      if vIp = '' then
      begin
        showmessage('请设置软件网关IP地址及端口！');
        exit;
      end;
      if rPort = '' then
        rPort := '80';
      DM.HTTPRIO_SC.URL := 'http://' + vIp + ':' + vPort
        + '/scripts/pPJgWsServer.dll/soap/IPJgWsServer'
        + '?realhost=' + rIp + #38 + 'realport=' + rPort;
    end;
    DM.dsbh:= DM.IptoDsbh(ConnectServerIp(INISYSTEMTYPE));
    SJSC;
  end;

  if ToMServ = 1 then
  begin
    ToExcel := TSaveToExcelFile.Create;
    ToExcel.ConfigFile := ExtractFilePath(Application.ExeName)+ConfigFile;
    ToExcel.FilePath := ExtractFilePath(Application.ExeName);
    ToExcel.YearMonth := Jtb_Ny;
    if clb_BB.Checked[0] then
    begin
      ToExcel.XMLData := dm.f_ZcfzbGjj(Jtb_Ny);
      ToExcel.SaveToExcel(1);
    end;
    if clb_BB.Checked[1] then
    begin
      ToExcel.XMLData := dm.f_ZzsybGjj(Jtb_Ny);
      ToExcel.SaveToExcel(2);
    end;
    if clb_BB.Checked[2] then
    begin
      sNy := copy(jtb_Ny,1,4);
      sNy := sNy+''','''+trim(inttostr(strtoint(sNy)-1));
      ToExcel.XMLData := dm.f_ZzsyfpbGjj(sNy);
      ToExcel.SaveToExcel(3);
    end;
    if clb_BB.Checked[3] then
    begin
      ToExcel.XMLData := dm.f_ZcfzbJf(Jtb_Ny);
      ToExcel.SaveToExcel(4);
    end;
    if clb_BB.Checked[4] then
    begin
      ToExcel.XMLData := dm.f_JfszbJf(Jtb_Ny);
      ToExcel.SaveToExcel(5);
    end;
    if clb_BB.Checked[5] then
    begin
      ToExcel.XMLData := dm.f_Zhksyeb1(Jtb_Ny);
      ToExcel.SaveToExcel(6);
    end;
    if clb_BB.Checked[7] then
    begin
      ToExcel.XMLData := dm.f_Xmdkb(Jtb_Ny);
      ToExcel.SaveToExcel(7);
    end;
    if clb_BB.Checked[6] then
    begin
      ToExcel.XMLData := dm.f_Zfgjjtjb(Jtb_Ny);
      ToExcel.SaveToExcel(8);
    end;
    ToExcel.Free;
    showmessage('上传部完毕!');
{    rIp := trim(ReadIniStr(SystemPath() + INIFILENAME, 'GjjJglr', 'MServIp'));
    rPort := trim(ReadIniStr(SystemPath() + INIFILENAME, 'GjjJglr',
      'MServPort'));
    if rIp = '' then
    begin
      showmessage('请设置部服务器IP地址及端口！');
      exit;
    end;
    memo1.Lines.Add('开始向部服务器上传报表数据...');
    if UseGat = 0 then
    begin
      if rPort <> '' then
        rPort := ':' + rPort;
      DM.HTTPRIO_SC.URL := 'http://' + rIp + rPort
        + '/scripts/pPJgWsServer.dll/soap/IPJgWsServer';
    end