?? 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:='查詢記錄數(shù)為:'+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.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -