?? ba210report.pas
字號:
unit BA210Report;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, BaseReport, QRCtrls, DB, DBTables, QuickRpt, ExtCtrls;
type
TqrBA210 = class(TQuickReport)
qyReportRegionID: TStringField;
qyReportRegionName: TStringField;
QRLabel6: TQRLabel;
QRLabel7: TQRLabel;
QRDBText1: TQRDBText;
QRDBText2: TQRDBText;
procedure qyReportBeforeOpen(DataSet: TDataSet);
private
{ Private declarations }
public
{ Public declarations }
end;
var
qrBA210: TqrBA210;
implementation
uses DataModule, Main;
{$R *.dfm}
procedure TqrBA210.qyReportBeforeOpen(DataSet: TDataSet);
begin
inherited;
with qyReport do
begin
ParamByName('CompanyID').AsString := sCompanyID;
ParamByName('BeginRegionID').AsString :=
DM.tbInput.FieldByName('BeginRegionID').AsString;
ParamByName('EndRegionID').AsString :=
DM.tbInput.FieldByName('EndRegionID').AsString;
end;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -