hyyearreportquery.~pas

公交行业的管理系统

unit HYYearReportQuery;

interface

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

type
  THYYearRepQueryFrm = class(TForm)
    DBGrid1: TDBGrid;
    Panel3: TPanel;
    Label1: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    StatusBar1: TStatusBar;
    DataSource1: TDataSource;
    ADOQuery1: TADOQuery;
    ADOQuery1DSDesigner: TIntegerField;
    ADOQuery1DSDesigner2: TWideStringField;
    ADOQuery1DSDesigner3: TWideStringField;
    ADOQuery1DSDesigner4: TDateTimeField;
    ADOQuery1GN01: TIntegerField;
    ADOQuery1GN02: TIntegerField;
    ADOQuery1GN03: TIntegerField;
    ADOQuery1GN04: TIntegerField;
    ADOQuery1GN05: TIntegerField;
    ADOQuery1GN06: TIntegerField;
    ADOQuery1GN07: TIntegerField;
    ADOQuery1GN08: TIntegerField;
    ADOQuery1GN09: TIntegerField;
    ADOQuery1GN10: TIntegerField;
    ADOQuery1GN11: TIntegerField;
    ADOQuery1GN12: TIntegerField;
    ADOQuery1GN13: TIntegerField;
    ADOQuery1GN14: TIntegerField;
    ADOQuery1GN15: TIntegerField;
    ADOQuery1GN16: TIntegerField;
    ADOQuery1GN17: TIntegerField;
    ADOQuery1GN18: TIntegerField;
    ADOQuery1GN19: TIntegerField;
    ADOQuery1GN20: TIntegerField;
    ADOQuery1GN21: TIntegerField;
    ADOQuery1GN22: TIntegerField;
    ADOQuery1GN23: TIntegerField;
    ADOQuery1GN24: TIntegerField;
    ADOQuery1GN25: TIntegerField;
    ADOQuery1GN26: TIntegerField;
    ADOQuery1GN27: TIntegerField;
    ADOQuery1GN28: TIntegerField;
    ADOQuery1GN29: TIntegerField;
    ADOQuery1GN30: TIntegerField;
    ADOQuery1GN31: TIntegerField;
    ADOQuery1GN32: TIntegerField;
    ADOQuery1GN33: TIntegerField;
    ADOQuery1GN34: TIntegerField;
    ADOQuery1GN35: TIntegerField;
    ADOQuery1GN36: TIntegerField;
    ADOQuery1GN37: TIntegerField;
    ADOQuery1GN38: TIntegerField;
    ADOQuery1GN39: TIntegerField;
    ADOQuery1GN40: TIntegerField;
    ADOQuery1GN41: TIntegerField;
    ADOQuery1GN42: TIntegerField;
    ADOQuery1GN43: TIntegerField;
    ADOQuery1GN44: TIntegerField;
    ADOQuery1GN45: TIntegerField;
    ADOQuery1GN46: TFloatField;
    ADOQuery1GN47: TIntegerField;
    ADOQuery1GN48: TIntegerField;
    ADOQuery1GN49: TIntegerField;
    ADOQuery1GN50: TIntegerField;
    ADOQuery1GN51: TIntegerField;
    ADOQuery1GN52: TIntegerField;
    ADOQuery1GN53: TIntegerField;
    ADOQuery1GN54: TIntegerField;
    ADOQuery1GN55: TIntegerField;
    ADOQuery1GN56: TIntegerField;
    ADOQuery1GN57: TIntegerField;
    ADOQuery1GN58: TFloatField;
    ADOQuery1GN59: TFloatField;
    ADOQuery1GN60: TIntegerField;
    ADOQuery1GN61: TFloatField;
    ADOQuery1GN62: TIntegerField;
    ADOQuery1GN63: TFloatField;
    ADOQuery1GN64: TFloatField;
    ADOQuery1GN65: TIntegerField;
    ADOQuery1GN66: TIntegerField;
    ADOQuery1GN67: TIntegerField;
    ADOQuery1GN68: TFloatField;
    ADOQuery1GN69: TFloatField;
    ADOQuery1GN70: TFloatField;
    ADOQuery1GN71: TFloatField;
    ADOQuery1GN72: TFloatField;
    ADOQuery1GN73: TFloatField;
    ADOQuery1GN74: TFloatField;
    ADOQuery1GN75: TFloatField;
    ADOQuery1GN76: TFloatField;
    ADOQuery1GN77: TFloatField;
    ADOQuery1GN78: TFloatField;
    ADOQuery1GN79: TFloatField;
    ADOQuery1GN80: TFloatField;
    ADOQuery1GN81: TFloatField;
    ADOQuery1GN82: TFloatField;
    ADOQuery1GN83: TIntegerField;
    ADOQuery1GN84: TIntegerField;
    ADOQuery1GN85: TIntegerField;
    ADOQuery1GN86: TIntegerField;
    DBGrid2: TDBGrid;
    ADOTable1: TADOTable;
    DataSource2: TDataSource;
    procedure FormShow(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure DBGrid1ColEnter(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  HYYearRepQueryFrm: THYYearRepQueryFrm;

implementation

uses PrintSelectUnit, BusTradeDataModuleUnit;

{$R *.dfm}

procedure THYYearRepQueryFrm.FormShow(Sender: TObject);
begin
       ADOTable1.Open;
       StatusBar1.Panels[0].Text:='查询记录数为：'+IntToStr(ADOQuery1.RecordCount);
end;

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

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

procedure THYYearRepQueryFrm.DBGrid1ColEnter(Sender: TObject);
begin
        ADOTable1.Locate('指标代码',DBGrid1.SelectedField.FieldName,[]);
end;

end.