frmyjfx.pas

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

unit frmYjFx;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, frmMapChild, ComCtrls, StdCtrls, ImgList, ExtCtrls, ToolWin,
  AppEvnts;

type
  TYjFx = class(TmapChild)
    Panel4: TPanel;
    Label1: TLabel;
    DateTimePicker1: TDateTimePicker;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    procedure ToolButton1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure AppEventsException(Sender: TObject; E: Exception);
  private
    { Private declarations }
  public
    { Public declarations }
    dsbh: String;
    URL: String;
  end;

var
  YjFx: TYjFx;

implementation

{$R *.dfm}
uses uYjRun, uUserFunc, uSystemIni;

procedure TYjFx.ToolButton1Click(Sender: TObject);
begin
  inherited;
//  Dsbh:='';
  Close;
end;

procedure TYjFx.FormCreate(Sender: TObject);
var
  i,j: smallint;
begin
  inherited;
  j := high(aNode);
  for i:=0 to j do
    aNode[i].OnClick :=ToolButton3Click;
  DateTimePicker1.Date  := Date();
end;

procedure TYjFx.ToolButton3Click(Sender: TObject);
var
  YjTri: TYjSearch;
  sDsbh,sd1,sd2, sURL,{sURL1,} sTxSrv,sTxDB: String;
  d: TDate;
  nTxType: Smallint;

begin
  inherited;
  sDsbh := aNode[iNode].Number ;
  d:=DateTimePicker1.Date;
  sd1:= Dtos(D,6)+'01';
  sd2:= DtoS(D);
  sURL:= aNode[iNode].URL;
  winexec('pYjRun.exe',1);
//  sURL1 := ReadWSInfo(_PVNJGWEBSEVICE);
  ReadDBMSInfo(pCommunicationSystem,sTxSrv,sTxDB,nTxType);
  YjTri := TYjSearch.Create;//.Create(nil);
  try
    YjTri.DsBh := sDsbh;
    YjTri.DsURL := sURL;
    YjTri.DateBegin := sD1;
    YjTri.DateEnd := sD2;
    YjTri.TxDB := sTxDB;
    YjTri.SendMsg := True;
    YjTri.YjSearch;
  finally
    YjTri.Free;
  end;
//-----------------------
//  dsbh:= aNode[iNode].Number;
//  URL := aNode[iNode].URL;
//  Close;

end;

procedure TYjFx.AppEventsException(Sender: TObject; E: Exception);
begin
//
end;

end.