jgyhsearchye.pas

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

unit JGYhSearchYe;

interface

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

type
  TJGYhSearchYeGL = class(TForm)
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    ImageList1: TImageList;
    ImageList2: TImageList;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    SgYe: TStringGrid;
    ToolButton7: TToolButton;
    ToolButton8: TToolButton;
    StatusBar1: TStatusBar;
    procedure ToolButton6Click(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure ToolButton7Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    aDs,aYd,aYh,aZh,aYhZh,aCbwd,aGjd: TStringDynArray;
    aCity, aAccount, aBank, aSubBank, aSumUp, aBankOffice: TStringDynArray;
    aData: TDoubleDynArray;
    iItem: smallint;
    sComDataBase: String;
  end;

var
  JGYhSearchYeGL: TJGYhSearchYeGL;

implementation

{$R *.dfm}
//uses UserFace, JGYhSearchFxTx, JGYhSearchMx, DataModule;
uses JGYhSearchFxTx, JGYhSearchMx, uDMFunc;

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

procedure TJGYhSearchYeGL.ToolButton1Click(Sender: TObject);
var
  CwFx : TJGYhSearchFxTxGL;
  i:smallint;
begin
//  wait;
  CwFx:=TJGYhSearchFxTxGL.Create(application);
  case iItem of
    0:begin
        SetLength(CwFx.aCol,high(aDs)+1);
        for i:=0 to high(CwFx.aCol) do
          CwFx.aCol[i]:= aDs[i];
        SetLength(CwFx.aRow,high(aYd)+1);
        for i:=0 to high(CwFx.aRow) do
          CwFx.aRow[i]:= aYd[i];
        CwFx.SetGraph(aDs,aYd,aData);
      end;
    1:begin
        SetLength(CwFx.aCol,high(aDs)+1);
        for i:=0 to high(CwFx.aCol) do
          CwFx.aCol[i]:= aDs[i];
        SetLength(CwFx.aRow,high(aYd)+1);
        for i:=0 to high(CwFx.aRow) do
          CwFx.aRow[i]:= aYd[i];
        CwFx.SetGraph(aDs,aYd,aData);
      end;
    2:begin
        SetLength(CwFx.aCol,high(aDs)+1);
        for i:=0 to high(CwFx.aCol) do
          CwFx.aCol[i]:= aDs[i];
        SetLength(CwFx.aRow,high(aYh)+1);
        for i:=0 to high(CwFx.aRow) do
          CwFx.aRow[i]:= aYh[i];
        CwFx.SetGraph(aDs,aYh,aData);
      end;
    3:begin
        SetLength(CwFx.aCol,high(aDs)+1);
        for i:=0 to high(CwFx.aCol) do
          CwFx.aCol[i]:= aDs[i];
        SetLength(CwFx.aRow,high(aZh)+1);
        for i:=0 to high(CwFx.aRow) do
          CwFx.aRow[i]:= aZh[i];
        CwFx.SetGraph(aDs,aZh,aData);
      end;
    4:begin
        SetLength(CwFx.aCol,high(aDs)+1);
        for i:=0 to high(CwFx.aCol) do
          CwFx.aCol[i]:= aDs[i];
        SetLength(CwFx.aRow,high(aYd)+1);
        for i:=0 to high(CwFx.aRow) do
          CwFx.aRow[i]:= aYd[i];
        CwFx.SetGraph(aDs,aYd,aData);
      end;
    5:begin
        SetLength(CwFx.aCol,high(aGjd)+1);
        for i:=0 to high(CwFx.aCol) do
          CwFx.aCol[i]:= aGjd[i];
        SetLength(CwFx.aRow,high(aYd)+1);
        for i:=0 to high(CwFx.aRow) do
          CwFx.aRow[i]:= aYd[i];
        CwFx.SetGraph(aGjd,aYd,aData);
      end;
    6:begin
        SetLength(CwFx.aCol,high(aYh)+1);
        for i:=0 to high(CwFx.aCol) do
          CwFx.aCol[i]:= aYh[i];
        SetLength(CwFx.aRow,high(aYd)+1);
        for i:=0 to high(CwFx.aRow) do
          CwFx.aRow[i]:= aYd[i];
        CwFx.SetGraph(aYh,aYd,aData);
      end;
    7:begin
        SetLength(CwFx.aCol,high(aZh)+1);
        for i:=0 to high(CwFx.aCol) do
          CwFx.aCol[i]:= aZh[i];
        SetLength(CwFx.aRow,high(aYd)+1);
        for i:=0 to high(CwFx.aRow) do
          CwFx.aRow[i]:= aYd[i];
        CwFx.SetGraph(aZh,aYd,aData);
      end;
    8:begin
        SetLength(CwFx.aCol,high(aYhZh)+1);
        for i:=0 to high(CwFx.aCol) do
          CwFx.aCol[i]:= aYhZh[i];
        SetLength(CwFx.aRow,high(aYd)+1);
        for i:=0 to high(CwFx.aRow) do
          CwFx.aRow[i]:= aYd[i];
        CwFx.SetGraph(aYhZh,aYd,aData);
      end;
    9:begin
        SetLength(CwFx.aCol,high(aCbwd)+1);
        for i:=0 to high(CwFx.aCol) do
          CwFx.aCol[i]:= aCbwd[i];
        SetLength(CwFx.aRow,high(aYd)+1);
        for i:=0 to high(CwFx.aRow) do
          CwFx.aRow[i]:= aYd[i];
        CwFx.SetGraph(aCbwd,aYd,aData);
      end;
    10:begin
         SetLength(CwFx.aCol,high(aYh)+1);
         for i:=0 to high(CwFx.aCol) do
           CwFx.aCol[i]:= aYh[i];
         SetLength(CwFx.aRow,high(aYd)+1);
         for i:=0 to high(CwFx.aRow) do
           CwFx.aRow[i]:= aYd[i];
         CwFx.SetGraph(aYh,aYd,aData);
       end;
  end;
  SetLength(Cwfx.aData,high(aData)+1);
  for i:=0 to high(aData) do
  begin
    CwFx.aData[i]:= aData[i];
  end;
//  waitclear;
  CwFx.ShowModal;
  CwFx.Free;
end;

procedure TJGYhSearchYeGL.ToolButton7Click(Sender: TObject);
var
  cB1,cB2,cB3,cB4:string;
  JGMx: TJGYhSearchMxGL;
  i,j: smallint;
  bRight: Boolean;
begin
  bRight := True;
  cB1 := '';
  cB2 := '';
  cB3 := '';
  cB4 := '';
  case iItem of
    0:begin
        i := trunc((sgYe.Row-1) / (high(aDs)+1));
        j := (SgYe.Row-1) mod (high(aDs)+1);
        cB1 := aCity[j];
        cB2 := aYd[i];
      end;
    1:begin
        i := trunc((sgYe.Row-1) / (high(aDs)+1));
        j := (SgYe.Row-1) mod (high(aDs)+1);
        cB1 := aCity[j];
        cB2 := aYd[i];
        cB3 := aBank[0];
      end;
    2:begin
        i := trunc((sgYe.Row-1) / (high(aDs)+1));
        j := (SgYe.Row-1) mod (high(aDs)+1);
        cB1 := aCity[j];
        cB2 := aBank[i];
        cB3 := aYd[0];
      end;
    3:begin
        i := trunc((sgYe.Row-1) / (high(aDs)+1));
        j := (SgYe.Row-1) mod (high(aDs)+1);
        cB1 := aCity[j];
        cB2 := aAccount[i];
        cB3 := aYd[0];
      end;
    4:begin
        i := trunc((sgYe.Row-1) / (high(aDs)+1));
        j := (SgYe.Row-1) mod (high(aDs)+1);
        cB1 := aCity[j];
        cB2 := aYd[i];
        cB3 := aAccount[0];
      end;
    5:begin
        i := trunc((sgYe.Row-1) / (high(aGjd)+1));
        j := (SgYe.Row-1) mod (high(aGjd)+1);
        cB2 := aSumUp[j];
        cB3 := aYd[i];
        cB1 := aCity[0];
      end;
    6:begin
        i := trunc((sgYe.Row-1) / (high(aYh)+1));
        j := (SgYe.Row-1) mod (high(aYh)+1);
        cB1 := aBank[j];
        cB2 := aYd[i];
        cB3 := aCity[0];
      end;
    7:begin
        i := trunc((sgYe.Row-1) / (high(aZh)+1));
        j := (SgYe.Row-1) mod (high(aZh)+1);
        cB1 := aAccount[j];
        cB2 := aYd[i];
        cB3 := aCity[0];
      end;
    8:begin
        i := trunc((sgYe.Row-1) / (high(aYhZh)+1));
        j := (SgYe.Row-1) mod (high(aYhZh)+1);
        cB2 := aSubBank[j];
        cB3 := aYd[i];
        cB1 := aCity[0];
        cB4 := aBank[0];
      end;
    9:begin
        i := trunc((sgYe.Row-1) / (high(aCbwd)+1));
        j := (SgYe.Row-1) mod (high(aCbwd)+1);
        cB2 := aBankOffice[j];
        cB3 := aYd[i];
        cB1 := aCity[0];
        cB4 := aYh[0];
      end;
    10:begin
        i := trunc((sgYe.Row-1) / (high(aYh)+1));
        j := (SgYe.Row-1) mod (high(aYh)+1);
        cB1 := aBank[j];
        cB2 := aYd[i];
       end;
  else
    bRight := False;
  end;
  if bRight then
  begin
    JGMx:= TJGYhSearchMxGL.Create(application);
    SearchBankDetail(sComDataBase,iItem,cB1,cB2,cB3,cB4,JgMx.DBGrid1);
    JGMx.ShowModal;
    JGMx.Free;
  end;
end;

end.