jgsearch.pas

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

unit JGSearch;

interface

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

type
  TJGSearchGL = class(TmapChild)
    ToolButton1: TToolButton;
    ToolButton3: TToolButton;
    Panel6: TPanel;
    LblRQ: TLabel;
    DT: TDateTimePicker;
    ToolButton4: TToolButton;
    procedure ToolButton3Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure DTChange(Sender: TObject);
  private
    { Private declarations }
    nY, nM, nD: word;
    sNY: string;
    procedure LabelClick(Sender: TObject); overload;
  public
    { Public declarations }
  end;

var
  JGSearchGL: TJGSearchGL;

implementation

uses uNodeLabel, dmPJg, JGSearchGjjDs, uUserFunc;

{$R *.dfm}

procedure TJGSearchGL.ToolButton3Click(Sender: TObject);
begin
  inherited;
  close;
end;

procedure TJGSearchGL.FormCreate(Sender: TObject);
var
  i: smallint;
begin
  inherited;
  DT.Date := date;
  for i := 0 to high(aNode) do
    aNode[i].OnClick := LabelClick;
//  panel1.Visible := false;
//  panel2.Visible := false;
end;

procedure TJGSearchGL.LabelClick(Sender: TObject);
var
//  i: smallint;
  GjjDs: tJGSearchGjjDsGL;
  cmd: string;
begin
{  i := IndexOfNodeLabel(aNode, (sender as TNodeLabel));
  if not ToolButton1.Down then
  begin
    if aNode[i].Font.color <> clRed then
      aNode[i].Font.color := clRed
    else
      aNode[i].Font.color := clBlack;
  end
  else
  begin
}
    DT.OnChange(self);
    DM.HTTPRIO_Cx.URL := aNode[iNode].URL;
    cmd := 'select ''' + aNode[iNode].Number + ''' dsbh,'''
      + StrTran(aNode[iNode].Caption,0,20,' ')
      + ''' dsmc,* from V_GJJJC';
    DM.GjjCx(Cmd);
    GjjDs := tJGSearchGjjDsGL.Create(application);
    GjjDs.sNy := sNy;
    GjjDs.ShowModal;
//  end;

end;

procedure TJGSearchGL.ToolButton1Click(Sender: TObject);
{var
  i: smallint;
  sCmd: string;
  GjjDs: tJGSearchGjjDsGL;
}
begin
  inherited;
  LabelClick(sender);
{  DT.OnChange(self);
  DM.cds_Cx.Data:= null;
//  for i := 0 to high(aNode) do
//  begin
//    if aNode[i].Font.color = clRed then
//    begin
//    DM.HTTPRIO_Cx.URL := aNode[i].URL;
   DM.HTTPRIO_Cx.URL := aNode[iNode].URL;
//    sCmd := 'select ''' + aNode[i].Number + ''' dsbh,'''
//        + StrTran(aNode[i].Caption,0,12,' ')
//        + ''' dsmc,* from V_GJJQK';
  sCmd := 'select ''' + aNode[iNode].Number + ''' dsbh,'''
        + StrTran(aNode[iNode].Caption,0,12,' ')
        + ''' dsmc,* from V_GJJQK';
      DM.GjjCx4(sCmd);
      DM.cds_Cx.AppendData(DM.cds_Cx4.Data,true);
//    end;
//  end;
  GjjDs := tJGSearchGjjDsGL.Create(application);
  GjjDs.sNy := sNy;
  GjjDs.ShowModal;
}
end;

procedure TJGSearchGL.DTChange(Sender: TObject);
begin
  inherited;
  DecodeDate(DT.Date, nY, nM, nD);
  sNy := trim(inttostr(nY)) + padl(trim(inttostr(nM)), 2, '0');
end;

end.