?? 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.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -