jgsearchfxtx.pas

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

unit JGSearchFxTx;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, OleCtrls, VCFI, ComCtrls, ImgList, ToolWin, ExtCtrls,
  VtChartLib6_TLB, Grids, uConstUtils, Types;

type
  TJGSearchFxTxGL = class(TForm)
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    ImageList1: TImageList;
    ImageList2: TImageList;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    StatusBar1: TStatusBar;
    ToolButton8: TToolButton;
    Pg: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    Panel1: TPanel;
    VtChart1: TVtChart6;
    ToolButton9: TToolButton;
    SG: TStringGrid;
    procedure ToolButton4Click(Sender: TObject);
    procedure ToolButton7Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
//    aDs:TStringDynArray;
//    aData:TDoubleDynArray;
//    iDs,iYd:smallint;
//    procedure SetGraph(aCol:array of string;aRow:array of string;aData:array of double);
    procedure SetGraph(aCol:TStringDynArray;aRow:TStringDynArray;aData:TArray2D);
  end;

var
  JGSearchFxTxGL: TJGSearchFxTxGL;

implementation

{$R *.dfm}

{procedure TJGSearchFxTxGL.SetGraph(aCol:array of string;aRow:array of string;aData:array of double);
var
  i,j,iRow,iCol:smallint;
begin
  iRow := high(aRow)+1;
  iCol := high(aCol)+1;
//  With VtChart1 do
//  begin
    VtChart1.RowCount := iRow;
    VtChart1.ColumnCount := iCol;
    for i:=1 to iCol do
    begin
      VtChart1.Column := i;
      VtChart1.ColumnLabel := trim(copy(aCol[i-1],9,30))+'  ';
    end;
    for i:=1 to iRow do
    begin
      VtChart1.Row := i;
      VtChart1.RowLabel := aRow[i-1];
    end;
    for i:=1 to iCol do
      for j:=1 to iRow do
      begin
        VtChart1.Row:=j;
        VtChart1.Column:=i;
        VtChart1.data:= floattostr(aData[(i-1)*iRow+j-1]*100);
      end;
//  end;
end;
}
procedure TJGSearchFxTxGL.SetGraph(aCol:TStringDynArray;aRow:TStringDynArray;aData:TArray2D);
var
  i,j,iRow,iCol:smallint;
begin
  iRow := high(aRow)+1;
  iCol := high(aCol)+1;
  VtChart1.RowCount := iRow;
  VtChart1.ColumnCount := iCol;
  SG.RowCount := iRow+1;
  SG.ColCount := iCol+1;
  for i:=1 to iCol do
  begin
    VtChart1.Column := i;
    VtChart1.ColumnLabel := trim(aCol[i-1])+'  ';
    SG.Cells[i,0] := trim(aCol[i-1]);
//    VtChart1.ColumnLabel := trim(copy(aCol[i-1],9,30))+'  ';
//    SG.Cells[i,0] := trim(copy(aCol[i-1],9,30));
  end;
  for i:=1 to iRow do
  begin
    VtChart1.Row := i;
    VtChart1.RowLabel := aRow[i-1];
    SG.Cells[0,i] := trim(aRow[i-1]);
  end;
  for i:=1 to iCol do
    for j:=1 to iRow do
    begin
      VtChart1.Row:=j;
      VtChart1.Column:=i;
      VtChart1.data:= floattostr(aData[j-1,i-1]);
      SG.Cells[i,j]:= floattostr(aData[j-1,i-1]);
    end;
end;

procedure TJGSearchFxTxGL.ToolButton4Click(Sender: TObject);
begin
  if ToolButton4.Down then
  begin
    VtChart1.ChartType :=1;
    Pg.ActivePageIndex :=0;
  end
  else
  if ToolButton5.Down then
  begin
    VtChart1.ChartType :=3;
    Pg.ActivePageIndex :=0;
  end
  else
  if ToolButton8.Down then
  begin
    VtChart1.ChartType :=13;
    Pg.ActivePageIndex :=0;
  end
  else
  if ToolButton9.Down then
  begin
    Pg.ActivePageIndex :=1;
  end

end;

procedure TJGSearchFxTxGL.ToolButton7Click(Sender: TObject);
begin
  close;
end;

end.