cityjrepqueryunit.~pas

公交行业的管理系统

unit CityJRepQueryUnit;

interface

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

type
  TCityJRepQueryFrm = class(TForm)
    DBGrid1: TDBGrid;
    Panel3: TPanel;
    Label1: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    StatusBar1: TStatusBar;
    DataSource1: TDataSource;
    ADOQuery1: TADOQuery;
    ADOQuery1DSDesigner: TSmallintField;
    ADOQuery1DSDesigner2: TWideStringField;
    ADOQuery1DSDesigner3: TDateTimeField;
    ADOQuery1JG01: TIntegerField;
    ADOQuery1JG02: TFloatField;
    ADOQuery1JG03: TFloatField;
    ADOQuery1JG04: TFloatField;
    ADOQuery1JG05: TFloatField;
    ADOQuery1JG06: TFloatField;
    ADOQuery1JG07: TFloatField;
    ADOQuery1JG08: TFloatField;
    ADOQuery1JG09: TFloatField;
    ADOQuery1JG10: TFloatField;
    ADOQuery1JG11: TFloatField;
    ADOQuery1JG12: TIntegerField;
    ADOQuery1JG13: TIntegerField;
    ADOQuery1JG14: TFloatField;
    ADOQuery1JG15: TFloatField;
    ADOQuery1JG16: TIntegerField;
    ADOQuery1JG17: TIntegerField;
    ADOQuery1JG18: TIntegerField;
    ADOQuery1JG19: TIntegerField;
    ADOQuery1JG20: TIntegerField;
    ADOQuery1JG21: TIntegerField;
    ADOQuery1JG22: TIntegerField;
    ADOQuery1JG23: TIntegerField;
    ADOQuery1JG24: TFloatField;
    ADOQuery1JG25: TFloatField;
    ADOQuery1JG26: TFloatField;
    ADOQuery1JG27: TFloatField;
    ADOQuery1JG28: TFloatField;
    ADOQuery1JG29: TFloatField;
    ADOQuery1JG30: TFloatField;
    ADOQuery1JG31: TIntegerField;
    ADOQuery1JG32: TFloatField;
    ADOQuery1JG33: TIntegerField;
    ADOQuery1JG34: TIntegerField;
    ADOQuery1JG35: TIntegerField;
    ADOQuery1JG36: TIntegerField;
    ADOQuery1JG37: TIntegerField;
    ADOQuery1JG38: TIntegerField;
    ADOQuery1JG39: TFloatField;
    ADOQuery1JG40: TFloatField;
    ADOQuery1JG41: TFloatField;
    ADOQuery1JG42: TFloatField;
    ADOQuery1JG43: TFloatField;
    ADOQuery1JG44: TFloatField;
    ADOQuery1JG45: TFloatField;
    ADOQuery1JG46: TIntegerField;
    ADOQuery1JG47: TFloatField;
    ADOQuery1JG48: TIntegerField;
    ADOQuery1JG49: TIntegerField;
    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
  CityJRepQueryFrm: TCityJRepQueryFrm;

implementation

uses PrintSelectUnit, BusTradeDataModuleUnit;

{$R *.dfm}

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

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

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

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

end.