Глюпий Я. У меня проблема
Все очень просто.
Отчет из базы данных. Через ADO.
Выдает ошибку List index out of bounds(0).
Вот простейшее окно а ошибку выдает
object Form1: TForm1
Left = 232
Top = 145
Width = 783
Height = 540
Caption = 'Form1'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
object Button1: TButton
Left = 440
Top = 144
Width = 75
Height = 25
Caption = 'Button1'
TabOrder = 0
OnClick = Button1Click
end
object DBGrid1: TDBGrid
Left = 120
Top = 224
Width = 505
Height = 193
DataSource = DataSource1
TabOrder = 1
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
end
object ADOConnection1: TADOConnection
Connected = True
ConnectionString =
'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security In' +
'fo=False;Initial Catalog=Komisia;Data Source=PAPACOMP'
LoginPrompt = False
Provider = 'SQLOLEDB.1'
Left = 24
Top = 32
end
object ADOTable1: TADOTable
Active = True
Connection = ADOConnection1
CursorType = ctStatic
TableName = #1044#1086#1089#1090#1091#1087
Left = 40
Top = 80
end
object DataSource1: TDataSource
DataSet = ADOTable1
Left = 32
Top = 144
end
object frDBDataSet1: TfrDBDataSet
DataSource = DataSource1
Left = 144
Top = 88
end
object frReport1: TfrReport
Dataset = frDBDataSet1
InitialZoom = pzDefault
PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbHelp, pbExit]
Left = 248
Top = 120
ReportForm = {18000000}
end
end
Если про это уже писали то ткните куда мне идти.
Отчет из базы данных. Через ADO.
Выдает ошибку List index out of bounds(0).
Вот простейшее окно а ошибку выдает
object Form1: TForm1
Left = 232
Top = 145
Width = 783
Height = 540
Caption = 'Form1'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
object Button1: TButton
Left = 440
Top = 144
Width = 75
Height = 25
Caption = 'Button1'
TabOrder = 0
OnClick = Button1Click
end
object DBGrid1: TDBGrid
Left = 120
Top = 224
Width = 505
Height = 193
DataSource = DataSource1
TabOrder = 1
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
end
object ADOConnection1: TADOConnection
Connected = True
ConnectionString =
'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security In' +
'fo=False;Initial Catalog=Komisia;Data Source=PAPACOMP'
LoginPrompt = False
Provider = 'SQLOLEDB.1'
Left = 24
Top = 32
end
object ADOTable1: TADOTable
Active = True
Connection = ADOConnection1
CursorType = ctStatic
TableName = #1044#1086#1089#1090#1091#1087
Left = 40
Top = 80
end
object DataSource1: TDataSource
DataSet = ADOTable1
Left = 32
Top = 144
end
object frDBDataSet1: TfrDBDataSet
DataSource = DataSource1
Left = 144
Top = 88
end
object frReport1: TfrReport
Dataset = frDBDataSet1
InitialZoom = pzDefault
PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbHelp, pbExit]
Left = 248
Top = 120
ReportForm = {18000000}
end
end
Если про это уже писали то ткните куда мне идти.
Комментарии
Или влом ссылку дать?
Ну пожалуйста...
"Неверный FRP формат", что означает, что шаблон отчета испорчен.
Что делать? А то я заколебался.
Самое главное что если использовать компонент frPrintTable то таблица печатается. Но вот использовать frReport совместно с frDBDataSet не получается, выдает описанную выше ошибку ( List index out of bounds(0)).
Я уже делаю все как в примере написано (в документации - Самый простой отчет), только вместо BDE использую ADO.
Да и еще при frReport1.ShowReport - ничего не происходит. Главное я вижу, что мелькает окно отсылки инфы на принтер, но ни чего не происходит - тишина. А вот метод frReport1.PrintPreparedReportDlg, выдает известную ошибку ( List index out of bounds(0)).
ЧТО Я ДЕЛАЮ НЕ ТАК?
Может кто напишет часть своей проги с выводом отчета на печать из БД. Желательно через ADO.