frmpjgset.pas

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

unit frmPJGSet;

interface

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

type
  TJgYjSet = class(TmapChild)
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    ToolButton8: TToolButton;
    ToolButton1: TToolButton;
    procedure FormCreate(Sender: TObject);
    procedure ToolButton4Click(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure ToolButton6Click(Sender: TObject);
    procedure ToolButton7Click(Sender: TObject);
  private
    { Private declarations }
    procedure LabelClick(Sender: TObject);
  public
    { Public declarations }
  end;

var
  JgYjSet: TJgYjSet;

implementation

{$R *.dfm}
uses frmJGSetWg, frmPJgSetFz, frmPJGSetLl;

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

procedure TJgYjSet.LabelClick(Sender: TObject);
begin
  ToolButton4.Click;
end;

procedure TJgYjSet.ToolButton4Click(Sender: TObject);
var
  JGSetWg: TJGSetWG;
begin
  inherited;
  JGSetWg := TJGSetWG.Create(Application);
  JgSetWg.sCityNum := aNode[iNode].Number;
  JgSetWg.sCityName := aNode[iNode].Caption;
  JgSetWg.sURL := aNode[iNode].URL;
  JgSetWg.LoadYjlxInfo;
  JGSetWG.ShowModal;
  JGSetWG.Free;
end;

procedure TJgYjSet.ToolButton1Click(Sender: TObject);
begin
  inherited;
  Close;
end;

procedure TJgYjSet.ToolButton2Click(Sender: TObject);
var
  frmFZ: TJgSetFz;
begin
  frmFz := TJgSetFz.Create(application);
  frmFz.ShowModal;
  frmFz.Free;
end;

procedure TJgYjSet.ToolButton6Click(Sender: TObject);
var
  frmLl : TJGSetLl;
begin
  frmLl := TJGSetLl.Create(application);
  frmLl.RefreshItem(1);
  frmLl.ShowModal;
  frmLl.Free;
end;

procedure TJgYjSet.ToolButton7Click(Sender: TObject);
var
  frmLl : TJGSetLl;
begin
  frmLl := TJGSetLl.Create(application);
  frmLl.RefreshItem(0);
  frmLl.ShowModal;
  frmLl.Free;
end;

end.