searchgz.pas

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

unit SearchGZ;

interface

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

type
  TFrmSearchGZ = class(TmapChild)
    Panel0: TPanel;
    LblRQ: TLabel;
    DT: TDateTimePicker;
    Label1: TLabel;
    txtPZ: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    txtJE: TEdit;
    ToolButton4: TToolButton;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    txtQx: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure txtJEKeyPress(Sender: TObject; var Key: Char);
    procedure txtQxKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
    procedure LabelClick(Sender: TObject);
  public
    { Public declarations }
  end;

var
  FrmSearchGZ: TFrmSearchGZ;

implementation

uses SearchGZDs, uUserFunc;

{$R *.dfm}

procedure TFrmSearchGZ.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 TFrmSearchGZ.ToolButton3Click(Sender: TObject);
begin
  inherited;
  Close;
end;

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

procedure TFrmSearchGZ.ToolButton1Click(Sender: TObject);
var
  GZLedger: TFrmSearchGZDs;
begin
  GZLedger := TFrmSearchGZDs.Create(application);
  GZLedger.fURL := aNode[iNode].URL;
  GZLedger.fDate := DtoS(Dt.Date);
  GZLedger.fPz := trim(txtPZ.Text );
  GZLedger.fQx := trim(txtQx.Text );
  GZLedger.fGmye := trim(txtJE.Text );
  GZLedger.LoadGZLedger();
  GZLedger.ShowModal;
  GZLedger.Free;
end;

procedure TFrmSearchGZ.txtJEKeyPress(Sender: TObject; var Key: Char);
begin
  inherited;
  if not(key in ['0'..'9']) and (key <> #8) and (key<>#46) then
    key:= char(0);
end;

procedure TFrmSearchGZ.txtQxKeyPress(Sender: TObject; var Key: Char);
begin
  inherited;
  if not(key in ['0'..'9']) and (key <> #8)  then
    key:= char(0);
end;

end.