searchfinance.pas

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

unit SearchFinance;

interface

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

type
  TFrmSearchFinance = class(TmapChild)
    Panel0: TPanel;
    LblRQ: TLabel;
    DT: TDateTimePicker;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    procedure FormCreate(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
  private
    { Private declarations }
    procedure LabelClick(Sender: TObject);
  public
    { Public declarations }
  end;

var
  FrmSearchFinance: TFrmSearchFinance;

implementation

{$R *.dfm}
uses FinanceGenerlLedger, uUserFunc;

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

procedure TFrmSearchFinance.LabelClick(Sender: TObject);
begin
  ToolButton1.Click;
end;

procedure TFrmSearchFinance.ToolButton1Click(Sender: TObject);
var
  FinanceLedger: TfrmFinanceGenerlLedger;
begin
  FinanceLedger := TfrmFinanceGenerlLedger.Create(application);
  FinanceLedger.fURL := aNode[iNode].URL;
  FinanceLedger.fDate := DtoS(Dt.Date);
  FinanceLedger.LoadFinanceGenerLedger('',0,False);
//  FinanceLedger.LoadFinanceGenerLedger('101',1);
  FinanceLedger.ShowModal;
  FinanceLedger.Free;
end;

procedure TFrmSearchFinance.ToolButton3Click(Sender: TObject);
begin
  inherited;
  Close;
end;

end.