citygrepqueryunit.~pas

公交行业的管理系统

unit CityGRepQueryUnit;

interface

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

type
  TCityGRepQueryFrm = class(TForm)
    DBGrid1: TDBGrid;
    Panel3: TPanel;
    Label1: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    StatusBar1: TStatusBar;
    DataSource1: TDataSource;
    ADOQuery1: TADOQuery;
    ADOQuery1DSDesigner: TWideStringField;
    ADOQuery1DSDesigner2: TSmallintField;
    ADOQuery1DSDesigner3: TWideStringField;
    ADOQuery1DSDesigner4: TWideStringField;
    ADOQuery1DSDesigner5: TDateTimeField;
    ADOQuery1TO01: TWideStringField;
    ADOQuery1TO02: TFloatField;
    ADOQuery1TO03: TFloatField;
    ADOQuery1TO04: TFloatField;
    ADOQuery1TO05: TFloatField;
    ADOQuery1TO06: TFloatField;
    ADOQuery1TO07: TFloatField;
    ADOQuery1TO08: TFloatField;
    ADOQuery1TO09: TFloatField;
    ADOQuery1TO10: TFloatField;
    ADOQuery1TO11: TFloatField;
    ADOQuery1TO12: TFloatField;
    ADOQuery1TO13: TFloatField;
    ADOQuery1TO14: TFloatField;
    ADOQuery1TO15: TFloatField;
    ADOQuery1TO16: TFloatField;
    ADOQuery1TO17: TFloatField;
    ADOQuery1TO18: TFloatField;
    ADOQuery1TO19: TFloatField;
    ADOQuery1TO20: TFloatField;
    ADOQuery1TO21: TFloatField;
    ADOQuery1TO22: TFloatField;
    ADOQuery1TO23: TFloatField;
    ADOQuery1TO24: TFloatField;
    ADOQuery1TO26: TFloatField;
    ADOQuery1TO27: TFloatField;
    ADOQuery1TO28: TFloatField;
    ADOQuery1TO29: TFloatField;
    ADOQuery1TO30: TFloatField;
    ADOQuery1TO31: TFloatField;
    ADOQuery1TO32: TFloatField;
    ADOQuery1TO33: TFloatField;
    ADOQuery1TO34: TFloatField;
    ADOQuery1TO35: TFloatField;
    ADOQuery1TO36: TFloatField;
    ADOQuery1TO37: TFloatField;
    ADOQuery1TO38: TIntegerField;
    ADOQuery1TO39: TFloatField;
    ADOQuery1TO40: TFloatField;
    ADOQuery1TO41: TFloatField;
    ADOQuery1TO42: TFloatField;
    ADOQuery1TO43: TIntegerField;
    ADOQuery1TO44: TIntegerField;
    ADOQuery1TO45: TIntegerField;
    ADOQuery1TO46: TIntegerField;
    ADOQuery1TO47: TFloatField;
    ADOQuery1TO48: TIntegerField;
    ADOQuery1TO49: TFloatField;
    ADOQuery1TO50: TFloatField;
    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
  CityGRepQueryFrm: TCityGRepQueryFrm;

implementation

uses PrintSelectUnit, BusTradeDataModuleUnit;

{$R *.dfm}

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

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

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

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

end.