jgsearchbb.pas

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

unit JGSearchBb;

interface

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

type
  TJGSearchBbGL = class(TmapChild)
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolBar3: TToolBar;
    ToolButton5: TToolButton;
    ToolButton9: TToolButton;
    ToolButton10: TToolButton;
    Panel6: TPanel;
    LblRQ: TLabel;
    LblBB: TLabel;
    DT: TDateTimePicker;
    CboML: TComboBox;
    procedure ToolButton3Click(Sender: TObject);
    procedure ToolButton5Click(Sender: TObject);
    procedure ToolButton9Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure DTChange(Sender: TObject);
    procedure ToolButton10Click(Sender: TObject);
  private
    { Private declarations }
    nY, nM, nD: word;
    sNY: string;
    bbfilename: string;
    procedure LabelClick(Sender: TObject); overload;
  public
    { Public declarations }
  end;

var
  JGSearchBbGL: TJGSearchBbGL;

implementation

uses uNodeLabel, dmPJg, JGSearchDkDs, uUserFunc, JGBbDisplay, uConstUtils;

{$R *.dfm}

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

procedure TJGSearchBbGL.ToolButton5Click(Sender: TObject);
var
  i: smallint;
begin
  inherited;
  for i := 0 to high(aNode) do
    aNode[i].Font.Color := clRed;
end;

procedure TJGSearchBbGL.ToolButton9Click(Sender: TObject);
var
  i: smallint;
begin
  inherited;
  for i := 0 to high(aNode) do
    aNode[i].Font.Color := clBlack;
end;

procedure TJGSearchBbGL.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 TJGSearchBbGL.LabelClick(Sender: TObject);
var
  i: smallint;
  JGBbListGL: TJGBbListGL;
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
    DecodeDate(DT.Date, nY, nM, nD);
    sNy := trim(inttostr(nY)) + padl(trim(inttostr(nM)), 2, '0');
    bbfilename := ExtractFilePath(Paramstr(0)) + BbFileGS +
      copy(trim(CboML.Text), 1, 2) + '.cll';
    if not fileexists(bbfilename) then
    begin
      showmessage('报表文件不存在，请确定报表位置！');
      CboML.ItemIndex := -1;
      exit;
    end;

    JGBbListGL := TJGBbListGL.Create(application);
    JGBbListGL.bbfilename := bbfilename;
    JGBbListGL.ind := CboML.ItemIndex;
    JGBbListGL.cCityNum := aNode[i].Number;
    JGBbListGL.cCityName := aNode[i].Name;
    JGBbListGL.IsHz := false;
    JGBbListGL.JGBb_Ny := sNy;
    JGBbListGL.ShowModal;

  end;

end;

procedure TJGSearchBbGL.ToolButton1Click(Sender: TObject);
begin
  inherited;
  if ToolButton1.Down then
  begin
    Panel1.Visible := false;
    Panel2.Visible := false;
  end
  else if ToolButton2.Down then
  begin
    Panel1.Visible := true;
    Panel2.Visible := true;
  end;
end;

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

procedure TJGSearchBbGL.ToolButton10Click(Sender: TObject);
var
  i: smallint;
  sCmd: string;
begin
  inherited;
  DecodeDate(DT.Date, nY, nM, nD);
  sNy := trim(inttostr(nY)) + padl(trim(inttostr(nM)), 2, '0');
  bbfilename := ExtractFilePath(Paramstr(0)) + BbFileGS +
    copy(trim(CboML.Text), 1, 2) + '.cll';
  if not fileexists(bbfilename) then
  begin
    showmessage('报表文件不存在，请确定报表位置！');
    CboML.ItemIndex := -1;
    exit;
  end;
  DM.cds_Cx.Data := null;
  sCmd := '';
  for i := 0 to high(aNode) do
    if aNode[i].Font.color = clRed then
    begin
      if sCmd = '' then
        sCmd := ''''+aNode[i].Number+''''
      else
        sCmd := sCmd + ',''' + aNode[i].Number+'''';
    end;

  if sCmd = '' then
  begin
    showmessage('请选择汇总地市！');
    exit;
  end;

  JGBbListGL := TJGBbListGL.Create(application);
  JGBbListGL.bbfilename := bbfilename;
  JGBbListGL.IsHz := true;
  JGBbListGL.ind := CboML.ItemIndex;
  JGBbListGL.cCityNum := sCmd;
  //JGBbListGL.cCityName := aNode[i].Name;
  JGBbListGL.JGBb_Ny := sNy;
  JGBbListGL.ShowModal;

end;

end.