odac for oralce 8i,10g,11g
easy to connect to oralce from delphi
源代码在线查看： dept.rtm
object ppReport: TppReport
AutoStop = False
DataPipeline = ODACQueryDataView1.plDept
PrinterSetup.BinName = 'Default'
PrinterSetup.DocumentName = 'Report'
PrinterSetup.PaperName = 'Letter [8.5 x 11 in]'
PrinterSetup.PrinterName = 'Default'
PrinterSetup.mmMarginBottom = 6350
PrinterSetup.mmMarginLeft = 6350
PrinterSetup.mmMarginRight = 6350
PrinterSetup.mmMarginTop = 6350
PrinterSetup.mmPaperHeight = 279401
PrinterSetup.mmPaperWidth = 215900
PrinterSetup.PaperSize = 1
SaveAsTemplate = True
Template.DatabaseSettings.DataPipeline = plItem
Template.DatabaseSettings.Name = 'Dept'
Template.DatabaseSettings.NameField = 'ITEM_NAME'
Template.DatabaseSettings.TemplateField = 'TEMPLATE'
Template.FileName = 'D:\Projects\Delphi\Odac\Demos\ReportBuilder\Rb7\Reports\Dept.rtm'
Template.Format = ftASCII
DeviceType = 'Screen'
OutlineSettings.CreateNode = True
OutlineSettings.CreatePageNodes = True
OutlineSettings.Enabled = False
Left = 289
Top = 326
Version = '7.0'
mmColumnWidth = 0
DataPipelineName = 'plDept'
object ppTitleBand1: TppTitleBand
mmBottomOffset = 0
mmHeight = 13758
mmPrintPosition = 0
object ppLabel1: TppLabel
UserName = 'Label1'
Caption = 'Departaments'
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Name = 'Arial'
Font.Size = 20
Font.Style = [fsBold]
Transparent = True
mmHeight = 8467
mmLeft = 74083
mmTop = 1323
mmWidth = 48683
BandType = 1
end
object ppSystemVariable1: TppSystemVariable
UserName = 'SystemVariable1'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Name = 'Arial'
Font.Size = 8
Font.Style = []
Transparent = True
mmHeight = 3704
mmLeft = 188384
mmTop = 794
mmWidth = 14288
BandType = 1
end
end
object ppHeaderBand1: TppHeaderBand
mmBottomOffset = 0
mmHeight = 7408
mmPrintPosition = 0
object ppLabel2: TppLabel
UserName = 'Label2'
Caption = 'Number'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Name = 'Arial'
Font.Size = 10
Font.Style = [fsBold]
Transparent = True
mmHeight = 4233
mmLeft = 6350
mmTop = 794
mmWidth = 13229
BandType = 0
end
object ppLabel3: TppLabel
UserName = 'Label3'
Caption = 'Name'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Name = 'Arial'
Font.Size = 10
Font.Style = [fsBold]
Transparent = True
mmHeight = 4233
mmLeft = 25400
mmTop = 794
mmWidth = 9790
BandType = 0
end
object ppLabel4: TppLabel
UserName = 'Label4'
Caption = 'Location'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Name = 'Arial'
Font.Size = 10
Font.Style = [fsBold]
Transparent = True
mmHeight = 4233
mmLeft = 71967
mmTop = 794
mmWidth = 14552
BandType = 0
end
object ppShape1: TppShape
UserName = 'Shape1'
mmHeight = 529
mmLeft = 2117
mmTop = 5821
mmWidth = 197380
BandType = 0
end
end
object ppDetailBand1: TppDetailBand
mmBottomOffset = 0
mmHeight = 5821
mmPrintPosition = 0
object ppDBText1: TppDBText
UserName = 'DBText1'
DataField = 'DEPTNO'
DataPipeline = ODACQueryDataView1.plDept
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Name = 'Arial'
Font.Size = 10
Font.Style = []
Transparent = True
DataPipelineName = 'plDept'
mmHeight = 4233
mmLeft = 6350
mmTop = 794
mmWidth = 17198
BandType = 4
end
object ppDBText2: TppDBText
UserName = 'DBText2'
DataField = 'DNAME'
DataPipeline = ODACQueryDataView1.plDept
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Name = 'Arial'
Font.Size = 10
Font.Style = []
Transparent = True
DataPipelineName = 'plDept'
mmHeight = 4233
mmLeft = 25400
mmTop = 794
mmWidth = 42863
BandType = 4
end
object ppDBText3: TppDBText
UserName = 'DBText3'
DataField = 'LOC'
DataPipeline = ODACQueryDataView1.plDept
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Name = 'Arial'
Font.Size = 10
Font.Style = []
Transparent = True
DataPipelineName = 'plDept'
mmHeight = 4233
mmLeft = 71967
mmTop = 794
mmWidth = 46038
BandType = 4
end
end
object daDataModule1: TdaDataModule
object ODACQueryDataView1: TdaODACQueryDataView
UserName = 'Query_Dept'
Height = 305
Left = 10
NameColumnWidth = 105
SizeColumnWidth = 35
SortMode = 0
Top = 10
TypeColumnWidth = 52
Width = 242
AutoSearchTabOrder = 0
object plDept: TppChildDBPipeline
AutoCreateFields = False
UserName = 'plDept'
Left = 200
Top = 272
object ppField1: TppField
FieldAlias = 'Deptno'
FieldName = 'DEPTNO'
FieldLength = 0
DataType = dtInteger
DisplayWidth = 0
Position = 0
TableName = 'DEPT'
end
object ppField2: TppField
FieldAlias = 'Dname'
FieldName = 'DNAME'
FieldLength = 0
DisplayWidth = 0
Position = 1
TableName = 'DEPT'
end
object ppField3: TppField
FieldAlias = 'Loc'
FieldName = 'LOC'
FieldLength = 0
DisplayWidth = 0
Position = 2
TableName = 'DEPT'
end
end
object daSQL1: TdaSQL
DatabaseName = 'seDatabase'
DatabaseType = dtOracle
DataPipelineName = 'plDept'
LinkColor = clBlack
MaxSQLFieldAliasLength = 25
SQLText.Strings = (
'SELECT DEPT.DEPTNO, DEPT.DNAME, DEPT.LOC'
'FROM SCOTT.DEPT DEPT'
'ORDER BY DEPT.DEPTNO')
SQLType = sqSQL1
object TdaField
Alias = 'Deptno'
DataType = dtInteger
DisplayWidth = 0
FieldAlias = 'Deptno'
FieldLength = 0
FieldName = 'DEPTNO'
SQLFieldName = 'DEPTNO'
TableAlias = 'Dept'
TableName = 'SCOTT.DEPT'
TableSQLAlias = 'DEPT'
end
object TdaField
Alias = 'Dname'
DisplayWidth = 0
FieldAlias = 'Dname'
FieldLength = 0
FieldName = 'DNAME'
SQLFieldName = 'DNAME'
TableAlias = 'Dept'
TableName = 'SCOTT.DEPT'
TableSQLAlias = 'DEPT'
end
object TdaField
Alias = 'Loc'
DisplayWidth = 0
FieldAlias = 'Loc'
FieldLength = 0
FieldName = 'LOC'
SQLFieldName = 'LOC'
TableAlias = 'Dept'
TableName = 'SCOTT.DEPT'
TableSQLAlias = 'DEPT'
end
object TdaField
ChildType = 2
Alias = 'Deptno'
DataType = dtInteger
DisplayWidth = 0
FieldAlias = 'Deptno'
FieldLength = 0
FieldName = 'DEPTNO'
SQLFieldName = 'DEPTNO'
TableAlias = 'Dept'
TableName = 'SCOTT.DEPT'
TableSQLAlias = 'DEPT'
end
object TdaTable
ChildType = 5
Alias = 'Dept'
JoinType = dajtNone
OwnerName = 'SCOTT'
SQLAlias = 'DEPT'
TableAlias = 'Dept'
TableName = 'DEPT'
end
end
end
end
end
