datamodule.pas

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

unit DataModule;

interface

uses
  SysUtils, Classes, DB, ADODB, Controls, dialogs, InvokeRegistry, Rio,
  SOAPHTTPClient, DBClient, Variants, types, EncdDecd, ComObj;

type
  TDM = class(TDataModule)
    cds_LR: TClientDataSet;
    HTTPRIO_LR: THTTPRIO;
    cds_SD: TClientDataSet;
    HTTPRIO_SD: THTTPRIO;
    DS_LR: TDataSource;
    DS_SD: TDataSource;
    HTTPRIO_SC: THTTPRIO;
    cds_SC: TClientDataSet;
  private
    { Private declarations }
  public
    dsbh: string;
    procedure P_UserInfo;
    procedure P_User(var UserId, UserPwd, UserName, UserQx, Ssds: string);
    function F_UserSave(const UserId, UserName, UserPwd, UserQx, Ssds: string):
      smallint;
    function F_UserDel(const Userid: string): smallint;

    procedure P_CwBbGsInfo(const dsbh, bbbh: string; const gslx: smallint);
    procedure P_CwBbGsInfo1(const dsbh, bbbh: string);
    function F_CwBbgsSave(const dsbh, bbbh, gs: string; const row, col, gslx:
      smallint): smallint;
    function F_CwBbgsDel(const dsbh, bbbh: string; const gslx: smallint):
      smallint;

    procedure P_BbmlInfo;
    procedure P_BbmlInfo1;
    procedure P_Bbml(var bbbh, bbdm, bbmc: string);
    function F_BbmlSave(const bbbh, bbdm, bbmc: string): smallint;
    function F_BbmlDel(const bbbh: string): smallint;

    function F_GjjConnect(): boolean;
    function F_CWConnect(): boolean;

    function F_ZcfzbGjj_Save(const Ny: string; const Ary: array of double):
      smallint;
    function F_ZcfzbGjj_Save1(const Ny: string; const Ary: array of double):
      smallint;
    procedure P_ZcfzbGjj(const Ny: string; var Ary: array of double);
    function f_ZcfzbGjj(const Ny: string): Variant;

    function F_ZzsybGjj_Save(const Ny: string; const Ary: array of double):
      smallint;
    function F_ZzsybGjj_Save1(const Ny: string; const Ary: array of double):
      smallint;
    procedure P_ZzsybGjj(const Ny: string; var Ary: array of double);
    function f_ZzsybGjj(const Ny: string): Variant;

    function F_ZzsyfpbGjj_Save(const Nd: string; const Ary: array of double):
      smallint;
    function F_ZzsyfpbGjj_Save1(const Nd: string; const Ary: array of double):
      smallint;
    procedure P_ZzsyfpbGjj(const Nd: string; var Ary: array of double);
    function f_ZzsyfpbGjj(const Nd: string): Variant;

    function F_ZcfzbJf_Save(const Ny: string; const Ary: array of double):
      smallint;
    function F_ZcfzbJf_Save1(const Ny: string; const Ary: array of double):
      smallint;
    procedure P_ZcfzbJf(const Ny: string; var Ary: array of double);
    function f_ZcfzbJf(const Ny: string): Variant;

    function F_JfszbJf_Save(const Ny: string; const Ary: array of double):
      smallint;
    function F_JfszbJf_Save1(const Ny: string; const Ary: array of double):
      smallint;
    procedure P_JfszbJf(const Ny: string; var Ary: array of double);
    function f_JfszbJf(const Ny: string): Variant;

    function F_Zhksyeb_Save(const Ny, Zhmc, Khyh, Yhzh: string; const Ary: array
      of double): smallint;
    function F_Zhksyeb_Save1(const Ny, Zhmc, Khyh, Yhzh: string; const Ary: array
      of double): smallint;
    procedure P_Zhksyeb(const Ny, Zhmc: string);
    procedure P_Zhksyeb1(const Ny: string);
    function f_Zhksyeb1(const Ny: string): Variant;

    function f_Zfgjjtjb(const Ny: string): Variant;
    procedure P_Zfgjjtjb(const Ny: string);
    function F_Zfgjjtjb_Save(const Ny: string; const Ary: array of double;
      Ary0: array of integer): smallint;
    function F_Zfgjjtjb_Save1(const Ny: string; const Ary: array of double;
      Ary0: array of integer): smallint;

    function f_Xmdkb(const Ny: string): Variant;
    procedure P_Xmdkb(const Ny: string);
    function F_Xmdkb_Save(const Ny, Xh, Dwmc, Xmmc, Lxspjg, Dkhth, Ffrq: string;
      const Dkqx: smallint; const Ary: array of double): smallint;
    function F_Xmdkb_Save1(const Ny, Xh, Dwmc, Xmmc, Lxspjg, Dkhth, Ffrq:
      string;
      const Dkqx: smallint; const Ary: array of double): smallint;

    function F_GetData(const BbNumber, DptNumber, Zth, BbDate: string; const
      Col,
      Row: smallint): string;

    procedure pQryRelation(const bbnumber: string);
    function fSpRelationSave(const bbnumber: string; const relationno: integer;
      const relationl, relation, relationr: string): smallint;
    function fSpRelationdel(const bbnumber: string;
      const relationno: integer): smallint;

    function f_GjGet(const icol, irow: smallint; const cbbnum, cdptnum, cdate:
      string): double;
    function f_GjSumH(const icol, irowb, irowe: smallint; const cbbnum, cdptnum,
      cdate: string): double;
    function f_GjSumV(const icolb, icole, irow: smallint; const cbbnum, cdptnum,
      cdate: string): double;

    function f_BbSav(const bbbh: string; const wj: TByteDynArray): smallint;
    function f_BbWj(const bbbh: string; var wj: TByteDynArray): smallint;
    procedure p_GetGjjtjb(const Date1, Date2: string;
      var Ary: array of double; var Ary0: array of Integer);
    function f_GetYhxx(const Kmdm: string; var Khyh, Yhzh: string): integer;
    function f_Cwcalc(const Km, Rq, Jzny: string; Func: Integer; Pz: Smallint):
      Double;
    procedure DataChk(var strs: TStringDynArray);
    procedure GzqkCx(const sCmd: string);
    function GzqkSav(const sCmd: string):smallint;
    function IpToDsbh(const sDsip:string): string;
  end;

var
  DM: TDM;
  ass: TStringStream;
  ams: TMemoryStream;

implementation

{$R *.dfm}
uses userface, uPJgWsServerIntf, JGLRIntf;

function TDM.F_GetData(const BbNumber, DptNumber, Zth, BbDate: string; const
  Col,
  Row: smallint): string;
var
  aIntf: IJGLR;
  iRet: string;
begin
  aIntf := HttpRio_LR as IJGLR;
  try
    aIntf.GetData(BbNumber, DptNumber, Zth, BbDate, Col, Row, iRet);
    result := DecodeString(iRet);
  finally
    aIntf := nil;
  end;
end;

procedure TDM.P_UserInfo;
var
  aIntf: IJGLR;
  vData: variant;
begin
  aIntf := HttpRio_LR as IJGLR;
  try
    //self.cds_LR.Active:= false;
    aIntf.UserInf(vData);
    self.cds_LR.XMLData := vData;
  finally
    aIntf := nil;
  end;
end;

procedure TDM.P_CwBbGsInfo(const dsbh, bbbh: string; const gslx: smallint);
var
  aIntf: IJGLR;
  vData: variant;
begin
  aIntf := HttpRio_SD as IJGLR;
  try
    aIntf.BbgsInf(dsbh, bbbh, gslx, vData);
    self.cds_SD.XMLData := vData;
  finally
    aIntf := nil;
  end;
end;

procedure TDM.P_CwBbGsInfo1(const dsbh, bbbh: string);
var
  aIntf: IJGLR;
  vData: variant;
begin
  aIntf := HttpRio_SD as IJGLR;
  try
    aIntf.BbgsInf1(dsbh, bbbh, vData);
    self.cds_SD.XMLData := vData;
  finally
    aIntf := nil;
  end;
end;

procedure TDM.P_BbmlInfo;
var
  aIntf: IJGLR;
  vData: variant;
begin
  aIntf := HttpRio_SD as IJGLR;
  try
    aIntf.BbmlInf(vData);
    self.cds_SD.XMLData := vData;
  finally
    aIntf := nil;
  end;
end;

procedure TDM.P_BbmlInfo1;
var
  aIntf: IJGLR;
  vData: variant;
begin
  aIntf := HttpRio_LR as IJGLR;
  try
    aIntf.BbmlInf(vData);
    self.cds_LR.XMLData := vData;
  finally
    aIntf := nil;
  end;
end;

procedure TDM.P_User(var UserId, UserPwd, UserName, UserQx, Ssds: string);
begin
  UserId := trim(cds_LR.FieldByName('userid').AsString);
  UserPwd := trim(cds_LR.FieldByName('userpwd').AsString);
  UserName := trim(cds_LR.FieldByName('username').AsString);
  UserQx := trim(cds_LR.FieldByName('userqx').AsString);
  Ssds := trim(cds_LR.FieldByName('ssds').AsString);
end;

procedure TDM.P_Bbml(var bbbh, bbdm, bbmc: string);
begin
  bbbh := trim(cds_LR.FieldByName('bbbh').AsString);
  bbdm := trim(cds_LR.FieldByName('bbdm').AsString);
  bbmc := trim(cds_LR.FieldByName('bbmc').AsString);
end;

function TDM.F_UserSave(const UserId, UserName, UserPwd, UserQx, Ssds: string):
  smallint;
var
  aIntf: IJGLR;
  iRet: longint;
begin
  aIntf := HttpRio_LR as IJGLR;
  try
    aIntf.UserSav(UserId, UserName, UserPwd, UserQx, Ssds, iRet);
    result := iRet;
  finally
    aIntf := nil;
  end;
end;

function TDM.F_CwBbgsSave(const dsbh, bbbh, gs: string; const row, col, gslx:
  smallint): smallint;
var
  aIntf: IJGLR;
  iRet: longint;
begin
  aIntf := HttpRio_SD as IJGLR;
  try
    aIntf.BbgsSav(dsbh, bbbh, gs, row, col, gslx, iRet);
    result := iRet;
  finally
    aIntf := nil;
  end;
end;

function TDM.F_BbmlSave(const bbbh, bbdm, bbmc: string):
  smallint;
var
  aIntf: IJGLR;
  iRet: longint;
begin
  aIntf := HttpRio_LR as IJGLR;
  try
    aIntf.BbmlSav(bbbh, bbdm, bbmc, iRet);
    result := iRet;
  finally
    aIntf := nil;
  end;
end;

function TDM.F_UserDel(const Userid: string): smallint;
var
  aIntf: IJGLR;
  iRet: longint;
begin
  aIntf := HttpRio_LR as IJGLR;
  try
    aIntf.UserDel(UserId, iRet);
    result := iRet;
  finally
    aIntf := nil;
  end;
end;

function TDM.F_CwBbgsDel(const dsbh, bbbh: string; const gslx: smallint):
  smallint;
var
  aIntf: IJGLR;
  iRet: longint;
begin
  aIntf := HttpRio_SD as IJGLR;
  try
    aIntf.BbgsDel(dsbh, bbbh, gslx, iRet);
    result := iRet;
  finally
    aIntf := nil;
  end;
end;

function TDM.F_BbmlDel(const bbbh: string): smallint;
var
  aIntf: IJGLR;
  iRet: longint;
begin
  aIntf := HttpRio_LR as IJGLR;
  try
    aIntf.BbmlDel(bbbh, iRet);
    result := iRet;
  finally
    aIntf := nil;
  end;
end;

function tDM.F_GjjConnect(): boolean;
var
  aIntf: IJGLR;
  iRet: longint;
begin
  aIntf := HttpRio_LR as IJGLR;
  try
    aIntf.GjjConnected(iRet);
    if iRet = 0 then
      result := true
    else
      result := false;
  finally
    aIntf := nil;
  end;
end;

function TDM.F_CWConnect(): boolean;
var
  aIntf: IJGLR;
  iRet: longint;
begin
  aIntf := HttpRio_LR as IJGLR;
  try
    aIntf.CwConnected(iRet);
    if iRet = 0 then
      result := true
    else
      result := false;
  finally
    aIntf := nil;
  end;
end;

function TDM.F_ZcfzbGjj_Save(const Ny: string; const Ary: array of double):
  smallint;
var
  aIntf: IJGLR;
  i, iRet: longint;
  vA: TDoubleDynArray;
begin
  setlength(vA, high(Ary) + 1);
  for i := 0 to high(Ary) do
    vA[i] := Ary[i];
  aIntf := HttpRio_LR as IJGLR;
  try
    aIntf.ZcfzbGjjSav(Ny, vA, iRet);
    result := iRet;
  finally
    aIntf := nil;
  end;
end;

function TDM.f_ZcfzbGjj(const Ny: string): Variant;
var
  aIntf: IJGLR;
begin
  aIntf := HttpRio_LR as IJGLR;
  try
    aIntf.ZcfzbGjjInf(Ny, Result);
  finally
    aIntf := nil;
  end;
end;

procedure TDM.P_ZcfzbGjj(const Ny: string; var Ary: array of double);
var
  aIntf: IJGLR;
  vData: variant;
begin
  aIntf := HttpRio_LR as IJGLR;
  try
    aIntf.ZcfzbGjjInf(Ny, vData);
    self.cds_LR.XMLData := vData;
  finally
    aIntf := nil;
  end;
  Ary[0] := cds_LR.FieldByName('GJJCKNCS').AsFloat;
  Ary[1] := cds_LR.FieldByName('GJJCKQMS').AsFloat;
  Ary[2] := cds_LR.FieldByName('ZZSYCKNCS').AsFloat;
  Ary[3] := cds_LR.FieldByName('ZZSYCKQMS').AsFloat;
  Ary[4] := cds_LR.FieldByName('YSLXNCS').AsFloat;
  Ary[5] := cds_LR.FieldByName('YSLXQMS').AsFloat;
  Ary[6] := cds_LR.FieldByName('QTYSKNCS').AsFloat;
  Ary[7] := cds_LR.FieldByName('QTYSKQMS').AsFloat;
  Ary[8] := cds_LR.FieldByName('WTDKNCS').AsFloat;