unit AddYearRepQueryUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, ComCtrls, StdCtrls, Buttons, ExtCtrls, Grids, DBGrids;

type
  TAddYearRepQueryFrm = class(TForm)
    DBGrid1: TDBGrid;
    Panel3: TPanel;
    Label1: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    StatusBar1: TStatusBar;
    DataSource1: TDataSource;
    ADOQuery1: TADOQuery;
    ADOQuery1DSDesigner: TWideStringField;
    ADOQuery1DSDesigner2: TIntegerField;
    ADOQuery1DSDesigner3: TWideStringField;
    ADOQuery1DSDesigner4: TWideStringField;
    ADOQuery1DSDesigner5: TDateTimeField;
    ADOQuery1GZ001: TIntegerField;
    ADOQuery1GZ002: TIntegerField;
    ADOQuery1GZ003: TIntegerField;
    ADOQuery1GZ004: TIntegerField;
    ADOQuery1GZ005: TIntegerField;
    ADOQuery1GZ006: TIntegerField;
    ADOQuery1GZ007: TIntegerField;
    ADOQuery1GZ008: TIntegerField;
    ADOQuery1GZ009: TIntegerField;
    ADOQuery1GZ010: TIntegerField;
    ADOQuery1GZ011: TIntegerField;
    ADOQuery1GZ012: TIntegerField;
    ADOQuery1GZ013: TIntegerField;
    ADOQuery1GZ014: TIntegerField;
    ADOQuery1GZ015: TIntegerField;
    ADOQuery1GZ016: TIntegerField;
    ADOQuery1GZ017: TIntegerField;
    ADOQuery1GZ018: TIntegerField;
    ADOQuery1GZ019: TIntegerField;
    ADOQuery1GZ020: TIntegerField;
    ADOQuery1GZ021: TIntegerField;
    ADOQuery1GZ022: TIntegerField;
    ADOQuery1GZ023: TIntegerField;
    ADOQuery1GZ024: TIntegerField;
    ADOQuery1GZ025: TIntegerField;
    ADOQuery1GZ026: TIntegerField;
    ADOQuery1GZ027: TIntegerField;
    ADOQuery1GZ028: TIntegerField;
    ADOQuery1GZ029: TIntegerField;
    ADOQuery1GZ030: TIntegerField;
    ADOQuery1GZ031: TIntegerField;
    ADOQuery1GZ032: TIntegerField;
    ADOQuery1GZ033: TIntegerField;
    ADOQuery1GZ034: TIntegerField;
    ADOQuery1GZ035: TIntegerField;
    ADOQuery1GZ036: TIntegerField;
    ADOQuery1GZ037: TIntegerField;
    ADOQuery1GZ038: TIntegerField;
    ADOQuery1GZ039: TIntegerField;
    ADOQuery1GZ040: TIntegerField;
    ADOQuery1GZ041: TIntegerField;
    ADOQuery1GZ042: TIntegerField;
    ADOQuery1GZ043: TIntegerField;
    ADOQuery1GZ044: TIntegerField;
    ADOQuery1GZ045: TIntegerField;
    ADOQuery1GZ046: TIntegerField;
    ADOQuery1GZ047: TIntegerField;
    ADOQuery1GZ048: TIntegerField;
    ADOQuery1GZ049: TIntegerField;
    ADOQuery1GZ050: TIntegerField;
    ADOQuery1GZ051: TIntegerField;
    ADOQuery1GZ052: TIntegerField;
    ADOQuery1GZ053: TIntegerField;
    ADOQuery1GZ054: TIntegerField;
    ADOQuery1GZ055: TFloatField;
    ADOQuery1GZ056: TFloatField;
    ADOQuery1GZ057: TIntegerField;
    ADOQuery1GZ058: TIntegerField;
    ADOQuery1GZ059: TIntegerField;
    ADOQuery1GZ060: TIntegerField;
    ADOQuery1GZ061: TIntegerField;
    ADOQuery1GZ062: TIntegerField;
    ADOQuery1GZ063: TIntegerField;
    ADOQuery1GZ064: TIntegerField;
    ADOQuery1GZ065: TIntegerField;
    ADOQuery1GZ066: TIntegerField;
    ADOQuery1GZ067: TIntegerField;
    ADOQuery1GZ068: TIntegerField;
    ADOQuery1GZ069: TIntegerField;
    ADOQuery1GZ070: TIntegerField;
    ADOQuery1GZ071: TIntegerField;
    ADOQuery1GZ072: TIntegerField;
    ADOQuery1GZ073: TIntegerField;
    ADOQuery1GZ074: TIntegerField;
    ADOQuery1GZ075: TIntegerField;
    ADOQuery1GZ076: TIntegerField;
    ADOQuery1GZ077: TIntegerField;
    ADOQuery1GZ078: TIntegerField;
    ADOQuery1GZ079: TIntegerField;
    ADOQuery1GZ080: TIntegerField;
    ADOQuery1GZ081: TIntegerField;
    ADOQuery1GZ082: TFloatField;
    ADOQuery1GZ083: TFloatField;
    ADOQuery1GZ084: TFloatField;
    ADOQuery1GZ085: TFloatField;
    ADOQuery1GZ086: TFloatField;
    ADOQuery1GZ087: TFloatField;
    ADOQuery1GZ088: TFloatField;
    ADOQuery1GZ089: TFloatField;
    ADOQuery1GZ090: TFloatField;
    ADOQuery1GZ091: TFloatField;
    ADOQuery1GZ092: TFloatField;
    ADOQuery1GZ093: TFloatField;
    ADOQuery1GZ094: TFloatField;
    ADOQuery1GZ095: TIntegerField;
    ADOQuery1GZ096: TFloatField;
    ADOQuery1GZ097: TFloatField;
    ADOQuery1GZ098: TFloatField;
    ADOQuery1GZ099: TFloatField;
    ADOQuery1GZ100: TFloatField;
    ADOQuery1GZ101: TFloatField;
    ADOQuery1GZ102: TFloatField;
    ADOQuery1GZ103: TFloatField;
    ADOQuery1GZ104: TFloatField;
    ADOQuery1GZ105: TFloatField;
    ADOQuery1GZ106: TFloatField;
    ADOQuery1GZ107: TFloatField;
    ADOQuery1GZ108: TFloatField;
    ADOQuery1GZ109: TFloatField;
    ADOQuery1GZ110: TFloatField;
    ADOQuery1GZ111: TFloatField;
    ADOQuery1GZ112: TFloatField;
    ADOQuery1GZ113: TFloatField;
    ADOQuery1GZ114: TFloatField;
    ADOQuery1GZ115: TFloatField;
    ADOQuery1GZ116: TFloatField;
    ADOQuery1GZ117: TFloatField;
    ADOQuery1GZ118: TFloatField;
    ADOQuery1GZ119: TFloatField;
    ADOQuery1GZ120: TFloatField;
    ADOQuery1GZ121: TFloatField;
    ADOQuery1GZ122: TFloatField;
    ADOQuery1GZ123: TFloatField;
    ADOQuery1GZ124: TIntegerField;
    ADOQuery1GZ125: TIntegerField;
    ADOQuery1GZ126: TIntegerField;
    ADOQuery1GZ127: TSmallintField;
    ADOQuery1GZ128: TIntegerField;
    ADOQuery1GZ129: TFloatField;
    ADOQuery1GZ130: TIntegerField;
    ADOQuery1GZ131: TIntegerField;
    ADOQuery1GZ132: TFloatField;
    ADOQuery1GZ133: TIntegerField;
    ADOQuery1GZ134: TIntegerField;
    ADOQuery1GZ135: TFloatField;
    ADOQuery1GZ136: TFloatField;
    ADOQuery1GZ137: TIntegerField;
    ADOQuery1GZ138: TIntegerField;
    ADOQuery1GZ139: TFloatField;
    ADOQuery1GZ140: TFloatField;
    ADOQuery1GZ141: TFloatField;
    ADOQuery1GZ142: TFloatField;
    ADOQuery1GZ143: TFloatField;
    ADOQuery1GZ144: TFloatField;
    ADOQuery1GZ145: TFloatField;
    ADOQuery1GZ146: TFloatField;
    ADOQuery1GZ147: TIntegerField;
    ADOQuery1GZ148: TIntegerField;
    ADOQuery1GZ149: TFloatField;
    ADOQuery1GZ150: TIntegerField;
    ADOQuery1GZ151: TIntegerField;
    ADOQuery1GZ152: TFloatField;
    ADOQuery1GZ153: TIntegerField;
    ADOQuery1GZ154: TIntegerField;
    ADOQuery1GZ155: TIntegerField;
    ADOQuery1GZ156: TIntegerField;
    ADOQuery1GZ157: TIntegerField;
    ADOQuery1GZ158: TIntegerField;
    ADOQuery1GZ159: TIntegerField;
    ADOQuery1GZ160: TIntegerField;
    ADOQuery1GZ161: TFloatField;
    ADOQuery1GZ162: TFloatField;
    ADOQuery1GZ163: TFloatField;
    ADOQuery1GZ164: TFloatField;
    ADOQuery1GZ165: TFloatField;
    ADOQuery1GZ166: TFloatField;
    ADOQuery1GZ167: TFloatField;
    ADOQuery1GZ168: TFloatField;
    ADOQuery1GZ169: TFloatField;
    ADOQuery1GZ170: TFloatField;
    ADOQuery1GZ171: TFloatField;
    ADOQuery1GZ172: TFloatField;
    ADOQuery1GZ173: TFloatField;
    ADOQuery1GZ174: TFloatField;
    ADOQuery1GZ175: TFloatField;
    ADOQuery1GZ176: TIntegerField;
    ADOQuery1GZ177: TIntegerField;
    ADOQuery1GZ178: TIntegerField;
    ADOQuery1GZ179: TIntegerField;
    ADOQuery1DSDesigner6: TMemoField;
    DBGrid2: TDBGrid;
    ADOTable1: TADOTable;
    DataSource2: TDataSource;
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure DBGrid1ColEnter(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  AddYearRepQueryFrm: TAddYearRepQueryFrm;

implementation

uses PrintSelectUnit, BusTradeDataModuleUnit;

{$R *.dfm}

procedure TAddYearRepQueryFrm.BitBtn2Click(Sender: TObject);
begin
        Application.CreateForm(TPrintFieldSelectDlg, PrintFieldSelectDlg);
       // PrintFieldSelectDlg.InitPrnSrc(ADOQuery1);
       PrintFieldSelectDlg.InitPrnSrc2(ADOQuery1,adotable1);
        if(PrintFieldSelectDlg.showmodal=mrok)then
        PrintFieldSelectDlg.PrnSrc(ADOQuery1,'exceltemple\HYZHYearPrnTempl.xls');
        PrintFieldSelectDlg.Destroy;
end;

procedure TAddYearRepQueryFrm.BitBtn3Click(Sender: TObject);
begin
        Application.CreateForm(TPrintFieldSelectDlg, PrintFieldSelectDlg);
     //   PrintFieldSelectDlg.InitPrnSrc(ADOQuery1);
     PrintFieldSelectDlg.InitPrnSrc2(ADOQuery1,adotable1);
        if(PrintFieldSelectDlg.showmodal=mrok)then
        PrintFieldSelectDlg.ToExcel(ADOQuery1,'exceltemple\HYZHYearPrnTempl1.xls');
        PrintFieldSelectDlg.Destroy;
end;

procedure TAddYearRepQueryFrm.FormShow(Sender: TObject);
begin
ADOTable1.Open;
     StatusBar1.Panels[0].Text:='查詢記錄數為：'+IntToStr(ADOQuery1.RecordCount);
end;

procedure TAddYearRepQueryFrm.DBGrid1ColEnter(Sender: TObject);
begin
ADOTable1.Locate('指標代碼',DBGrid1.SelectedField.FieldName,[]);
end;

end.