jgsearchdk.pas

来自「ProviceSystem-公积金监管系统中心端」· PAS 代码 · 共 103 行

unit JGSearchDK;

interface

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

type
  TJGSearchDKGL = class(TmapChild)
    ToolButton1: TToolButton;
    ToolButton3: TToolButton;
    Panel6: TPanel;
    LblRQ: TLabel;
    DT: TDateTimePicker;
    ToolButton2: 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
  JGSearchDKGL: TJGSearchDKGL;

implementation

uses uNodeLabel, dmPJg, JGSearchDkDs, uUserFunc;

{$R *.dfm}

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

procedure TJGSearchDKGL.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 TJGSearchDKGL.LabelClick(Sender: TObject);
var
//  i: smallint;
  GjjDs: TJGSearchDkDsGL;
  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, 12, ' ')
        + ''' dsmc,* from V_GJJDK';
    DM.GjjCx(Cmd);
    GjjDs := TJGSearchDkDsGL.Create(application);
    GjjDs.sNy := sNy;
    GjjDs.ShowModal;
    GjjDs.Free;
//  end;

end;

procedure TJGSearchDKGL.ToolButton1Click(Sender: TObject);
begin
  LabelClick(sender);
end;

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

end.