Как посмотреть отчёт?
Не могу разобраться как элементарно посмотреть отчет. Ожидаю что-то увидеть отчет в какой-либо форме, но вижу только обновление dbgrid'а.
Обработчик события:
Обработчик события:
procedure TMainFormWindow.RzButton2Click(Sender: TObject);
begin
OracleDataSet1.Close;
OracleDataSet1.DeleteVariables;
OracleDataSet1.SQL.Clear;
OracleDataSet1.SQL.Add(query);
OracleDataSet1.Open;
Form1.frxReport1.ShowReport;
end;
object Form1: TForm1
Left = 0
Top = 0
BorderStyle = bsDialog
Caption = 'Form1'
ClientHeight = 663
ClientWidth = 926
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 120
TextHeight = 16
object frxPreview1: TfrxPreview
Left = 0
Top = 0
Width = 926
Height = 663
Align = alClient
OutlineVisible = False
OutlineWidth = 120
ThumbnailVisible = False
UseReportHints = True
end
object frxReport1: TfrxReport
Version = '5.4.3'
DotMatrixReport = False
IniFile = '\Software\Fast Reports'
Preview = frxPreview1
PreviewOptions.Buttons = [pbPrint, pbLoad, pbSave, pbExport, pbZoom, pbFind, pbOutline, pbPageSetup, pbTools, pbEdit, pbNavigator, pbExportQuick]
PreviewOptions.Zoom = 1.000000000000000000
PrintOptions.Printer = #1055#1086' '#1091#1084#1086#1083#1095#1072#1085#1080#1102
PrintOptions.PrintOnSheet = 0
ReportOptions.CreateDate = 42621.881244513900000000
ReportOptions.LastChange = 42648.722702719900000000
ScriptLanguage = 'PascalScript'
ScriptText.Strings = (
''
'begin'
''
'end.')
Left = 232
Top = 112
Datasets = <
item
DataSet = frxDBDataset1
DataSetName = 'frxDBDataset1'
end>
Variables = <>
Style = <>
object Data: TfrxDataPage
Height = 1000.000000000000000000
Width = 1000.000000000000000000
end
object Page1: TfrxReportPage
PaperWidth = 210.000000000000000000
PaperHeight = 297.000000000000000000
PaperSize = 9
LeftMargin = 10.000000000000000000
RightMargin = 10.000000000000000000
TopMargin = 10.000000000000000000
BottomMargin = 10.000000000000000000
object ReportTitle1: TfrxReportTitle
FillType = ftBrush
Height = 22.677180000000000000
Top = 18.897650000000000000
Width = 718.110700000000000000
object Memo2: TfrxMemoView
Left = 253.228510000000000000
Width = 94.488250000000000000
Height = 18.897650000000000000
Memo.UTF8W = (
'Test Report')
end
end
object MasterData1: TfrxMasterData
FillType = ftBrush
Height = 22.677180000000000000
Top = 102.047310000000000000
Width = 718.110700000000000000
ColumnGap = 188.976377952756000000
DataSet = frxDBDataset1
DataSetName = 'frxDBDataset1'
RowCount = 5
object Memo3: TfrxMemoView
Left = 14.430932730000000000
Top = 3.779530000000000000
Width = 131.939956360000000000
Height = 14.430932730000000000
Memo.UTF8W = (
'[frxDBDataSet1."id"]')
end
end
object PageFooter1: TfrxPageFooter
FillType = ftBrush
Height = 22.677180000000000000
Top = 185.196970000000000000
Width = 718.110700000000000000
object Memo1: TfrxMemoView
Left = 642.520100000000000000
Width = 75.590600000000000000
Height = 18.897650000000000000
HAlign = haRight
Memo.UTF8W = (
'[Page#]')
end
end
end
end
object frxDBDataset1: TfrxDBDataset
UserName = 'frxDBDataset1'
CloseDataSource = False
DataSet = MainFormWindow.OracleDataSet1
BCDToCurrency = False
Left = 336
Top = 112
end
end
Комментарии