hymonthreportunit.~pas

公交行业的管理系统

unit HYMonthReportUnit;

interface

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

type
  THYMonthRepQueryFrm = class(TForm)
    DBGrid1: TDBGrid;
    Panel3: TPanel;
    Label1: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    StatusBar1: TStatusBar;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    ADOQuery1DSDesigner: TSmallintField;
    ADOQuery1DSDesigner2: TSmallintField;
    ADOQuery1G01: TIntegerField;
    ADOQuery1G02: TIntegerField;
    ADOQuery1G03: TIntegerField;
    ADOQuery1G04: TIntegerField;
    ADOQuery1G05: TIntegerField;
    ADOQuery1G06: TIntegerField;
    ADOQuery1G07: TIntegerField;
    ADOQuery1G08: TIntegerField;
    ADOQuery1G09: TIntegerField;
    ADOQuery1G10: TIntegerField;
    ADOQuery1G11: TIntegerField;
    ADOQuery1G12: TIntegerField;
    ADOQuery1G13: TIntegerField;
    ADOQuery1G14: TIntegerField;
    ADOQuery1G15: TIntegerField;
    ADOQuery1G16: TIntegerField;
    ADOQuery1G17: TIntegerField;
    ADOQuery1G18: TIntegerField;
    ADOQuery1G19: TIntegerField;
    ADOQuery1G20: TIntegerField;
    ADOQuery1G21: TIntegerField;
    ADOQuery1G22: TIntegerField;
    ADOQuery1G23: TIntegerField;
    ADOQuery1G24: TIntegerField;
    ADOQuery1G25: TIntegerField;
    ADOQuery1G26: TFloatField;
    ADOQuery1G27: TFloatField;
    ADOQuery1G28: TFloatField;
    ADOQuery1G29: TFloatField;
    ADOQuery1G30: TFloatField;
    ADOQuery1G31: TFloatField;
    ADOQuery1G32: TFloatField;
    ADOQuery1G33: TFloatField;
    ADOQuery1G34: TFloatField;
    ADOQuery1G35: TFloatField;
    ADOQuery1G36: TFloatField;
    ADOQuery1G37: TFloatField;
    ADOQuery1G38: TFloatField;
    ADOQuery1G39: TFloatField;
    ADOQuery1G40: TFloatField;
    ADOQuery1G41: TFloatField;
    ADOQuery1G42: TFloatField;
    ADOQuery1G43: TFloatField;
    ADOQuery1G44: TFloatField;
    ADOQuery1G45: TFloatField;
    ADOQuery1G46: TFloatField;
    ADOQuery1G47: TFloatField;
    ADOQuery1G48: TFloatField;
    ADOQuery1G49: TFloatField;
    ADOQuery1G50: TFloatField;
    ADOQuery1G51: TFloatField;
    ADOQuery1G52: TFloatField;
    ADOQuery1G53: TFloatField;
    ADOQuery1G54: TFloatField;
    ADOQuery1G55: TFloatField;
    ADOQuery1G56: TFloatField;
    ADOQuery1G57: TFloatField;
    ADOQuery1G58: TFloatField;
    ADOQuery1G59: TFloatField;
    ADOQuery1G60: TFloatField;
    ADOQuery1G61: TFloatField;
    ADOQuery1G62: TFloatField;
    ADOQuery1G64: TFloatField;
    ADOQuery1G65: TFloatField;
    ADOQuery1G66: TIntegerField;
    ADOQuery1G67: TFloatField;
    ADOQuery1G68: TFloatField;
    ADOQuery1G69: TFloatField;
    ADOQuery1G71: TFloatField;
    ADOQuery1G72: TIntegerField;
    ADOQuery1G73: TIntegerField;
    ADOQuery1G74: TFloatField;
    ADOQuery1G75: TIntegerField;
    ADOQuery1G76: TIntegerField;
    ADOQuery1G77: TIntegerField;
    ADOQuery1G78: TFloatField;
    ADOQuery1G79: TIntegerField;
    ADOQuery1G80: TIntegerField;
    ADOQuery1G81: TIntegerField;
    ADOQuery1G82: TIntegerField;
    ADOQuery1G83: TIntegerField;
    ADOQuery1DSDesigner6: TMemoField;
    ADOQuery1DSDesigner3: TWideStringField;
    ADOQuery1DSDesigner4: TWideStringField;
    ADOQuery1DSDesigner5: TWideStringField;
    ADOQuery1DSDesigner7: TWideStringField;
    ADOQuery1DSDesigner8: TDateTimeField;
    ADOTable1: TADOTable;
    DataSource2: TDataSource;
    DBGrid2: TDBGrid;
    procedure FormShow(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure DBGrid1ColEnter(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  HYMonthRepQueryFrm: THYMonthRepQueryFrm;

implementation

uses PrintSelectUnit, BusTradeDataModuleUnit;

{$R *.dfm}

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

procedure THYMonthRepQueryFrm.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');
end;

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

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

end.