dmpjg.pas

ProviceSystem-公积金监管系统中心端

unit dmPJg;

interface

uses
  SysUtils, Classes, InvokeRegistry, Rio, SOAPHTTPClient, DB, DBClient;

type
  TDM = class(TDataModule)
    rioPJg: THTTPRIO;
    cds: TClientDataSet;
    ds_cds: TDataSource;
    cds_Cx: TClientDataSet;
    cds_Cx2: TClientDataSet;
    cds_cx3: TClientDataSet;
    HTTPRIO_Cx: THTTPRIO;
    rioCJg: THTTPRIO;
    cdsCJg: TClientDataSet;
    dsCJg: TDataSource;
    cds_Cx4: TClientDataSet;
    cdsTiming: TClientDataSet;
    ds_Cx: TDataSource;
  private
    { Private declarations }
  public
    { Public declarations }
    procedure GjjCx(const Cmd: String);
    procedure GjjCx2(const Cmd: string);
    procedure GjjCx3(const Cmd: string);
    procedure GjjCx4(const Cmd: String);
  end;

var
  DM: TDM;

implementation

uses JGLRIntf;

{$R *.dfm}

{ TDM }         

procedure TDM.GjjCx(const Cmd: String);
var
  aIntf: IJGLR;
  vData: variant;
begin
  aIntf := HttpRio_Cx as IJGLR;
  try
    aIntf.GjjCx(Cmd,vData);
    self.cds_Cx.XMLData := vData;
  finally
    aIntf := nil;
  end;
end;

procedure TDM.GjjCx2(const Cmd: string);
var
  aIntf: IJGLR;
  vData: variant;
begin
  aIntf := HttpRio_Cx as IJGLR;
  try
    aIntf.GjjCx(Cmd,vData);
    self.cds_Cx2.XMLData := vData;
  finally
    aIntf := nil;
  end;
end;

procedure TDM.GjjCx3(const Cmd: string);
var
  aIntf: IJGLR;
  vData: variant;
begin
  aIntf := HttpRio_Cx as IJGLR;
  try
    aIntf.GjjCx(Cmd,vData);
    self.cds_Cx3.XMLData := vData;
  finally
    aIntf := nil;
  end;
end;

procedure TDM.GjjCx4(const Cmd: String);
var
  aIntf: IJGLR;
  vData: variant;
begin
  aIntf := HttpRio_Cx as IJGLR;
  try
    aIntf.GjjCx(Cmd,vData);
    self.cds_Cx4.XMLData := vData;
  finally
    aIntf := nil;
  end;
end;

end.