nationaldebtlist.pas

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

unit NationalDebtList;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, ImgList, ToolWin, Grids, DBGrids, Types;

type
  TfrmNationalDebtList = class(TForm)
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    ImageList1: TImageList;
    ImageList2: TImageList;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    DBGrid1: TDBGrid;
    ToolButton7: TToolButton;
    ToolButton8: TToolButton;
    procedure ToolButton6Click(Sender: TObject);
    procedure ToolButton7Click(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
  private
    { Private declarations }
    procedure LoadData(const sField:String);
  public
    { Public declarations }
    aDs,aPz: TStringDynArray;
    procedure LoadInfo(const aCity, aVariety: TStringDynArray;
      const sDate, sMoney,sCount: String);
  end;

var
  frmNationalDebtList: TfrmNationalDebtList;

implementation

{$R *.dfm}

{ TfrmNationalDebtList }
uses uDMFunc, NationalDebtInfo, uConstUtils, JGYHZjLxFxTx;

procedure TfrmNationalDebtList.LoadInfo(const aCity,
  aVariety: TStringDynArray; const sDate, sMoney, sCount: String);
begin
  SearchNationalDebt(aCity,aVariety,sDate,sMoney,sCount,DBGrid1);
end;

procedure TfrmNationalDebtList.ToolButton6Click(Sender: TObject);
begin
  close;
end;

procedure TfrmNationalDebtList.ToolButton7Click(Sender: TObject);
var
  NDInfo: TFrmNationalDebtInfo;
  vData: Variant;
  sCity,sVariety,sDate,sGzPzh: String;
begin
  vData := CurrentRecordSet;
  NationalDebtRec(sCity,sVariety);
  NDInfo := TFrmNationalDebtInfo.Create(Application);
  NDInfo.LoadInfo(sCity,sVariety);
  NDInfo.ShowModal;
  NDInfo.Free;
  CurrentRecordSet(vData);
end;

procedure TfrmNationalDebtList.ToolButton1Click(Sender: TObject);
begin
  LoadData('GMJE');
end;

procedure TfrmNationalDebtList.LoadData(const sField: String);
var
  aData: TArray2D;
  i,j: integer;
  CwFx : TFormJGYhZjLxFxTx;
begin
  i:= high(aDs)+1;
  j:= high(aPz)+1;
  setlength(aData,i,j);
  for i:=0 to high(aDs) do
    for j:=0 to high(aPz) do
      aData[i,j] := 0;
  NationalDebtData(sField,aDs,aPz,aData);
  CwFx:=TFormJGYhZjLxFxTx.Create(application);
  CwFx.SetGraph1(aDs,aPz,aData);
  CwFx.ShowModal;
  CwFx.Free;
end;

procedure TfrmNationalDebtList.ToolButton2Click(Sender: TObject);
begin
  LoadData('DFBJ_ZRBJ');
end;

end.