Componentes.Terceros.SDAC/internal/4.10.0.10/1/Demos/Win32/ThirdParty/ReportBuilder/myEURpt.dfm
2007-10-05 14:48:18 +00:00

1160 lines
31 KiB
Plaintext

object myEndUserSolution: TmyEndUserSolution
Left = 244
Top = 44
AutoScroll = False
Caption = 'EndUser: MSSQLServer via SDAC'
ClientHeight = 579
ClientWidth = 427
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Icon.Data = {
0000010001002020100000000000E80200001600000028000000200000004000
0000010004000000000080020000000000000000000000000000000000000000
0000000080000080000000808000800000008000800080800000C0C0C0008080
80000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000884000000000000
000083BBBBB34003BBBBB800000000000004BBBBBBBB308BBBBBBB0000000000
00003BBBBBB3403BBBBBB3000000000000000BBBBBB404BBBBBB300000000000
000003BBBBB008BBBBBB800000000000000003BBBBB003BBBBBB000000000000
000003BBBBB48BBBBBB3000000000000000003BBBBBBBBBBBB30000000000000
000003BBBBBBBBBBB800000000000000000003BBBBB33BBBBB80000000000000
000003BBBBB003BBBBB4000000000000000003BBBBB003BBBBB8000000000000
000003BBBBB003BBBBB300000000000000000BBBBBB84BBBBBB8000000000000
00043BBBBBBBBBBBBBB00000000000000004BBBBBBBBBBBBB340000000000000
0000433888883338400000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000000000000000000000000000FFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF8FFFF00
603FFE00403FFF00403FFF80807FFF81807FFF8180FFFF8000FFFF8001FFFF80
03FFFF8001FFFF8180FFFF8180FFFF8180FFFF8000FFFE0001FFFE0001FFFF00
07FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF}
OldCreateOrder = True
Position = poScreenCenter
ShowHint = True
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object Shape8: TShape
Left = 181
Top = 454
Width = 2
Height = 28
Brush.Style = bsClear
Pen.Width = 2
Shape = stRoundRect
Visible = False
end
object Shape20: TShape
Left = 181
Top = 362
Width = 2
Height = 25
Brush.Style = bsClear
Pen.Width = 2
Shape = stRoundRect
Visible = False
end
object Shape7: TShape
Left = 222
Top = 327
Width = 38
Height = 2
Brush.Style = bsClear
Pen.Width = 2
Shape = stRoundRect
Visible = False
end
object Shape26: TShape
Left = 181
Top = 258
Width = 2
Height = 81
Brush.Style = bsClear
Pen.Width = 2
Shape = stRoundRect
Visible = False
end
object Shape25: TShape
Left = 93
Top = 220
Width = 56
Height = 2
Brush.Style = bsClear
Pen.Width = 2
Shape = stRoundRect
Visible = False
end
object Shape24: TShape
Left = 94
Top = 263
Width = 56
Height = 2
Brush.Style = bsClear
Pen.Width = 2
Shape = stRoundRect
Visible = False
end
object Shape1: TShape
Left = 254
Top = 295
Width = 103
Height = 72
Brush.Color = clRed
Shape = stRoundRect
Visible = False
end
object Shape4: TShape
Left = 7
Top = 246
Width = 103
Height = 72
Brush.Color = clYellow
Shape = stRoundRect
Visible = False
end
object Shape11: TShape
Left = 253
Top = 205
Width = 103
Height = 72
Brush.Color = clNavy
Shape = stRoundRect
Visible = False
end
object Label6: TLabel
Left = 277
Top = 210
Width = 55
Height = 13
Caption = 'Database'
Color = clBlack
Font.Charset = DEFAULT_CHARSET
Font.Color = clWhite
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
Transparent = True
Visible = False
end
object Shape12: TShape
Left = 254
Top = 226
Width = 102
Height = 1
Brush.Color = clBlack
Visible = False
end
object Shape9: TShape
Left = 130
Top = 386
Width = 103
Height = 72
Brush.Color = clTeal
Shape = stRoundRect
Visible = False
end
object Label5: TLabel
Left = 137
Top = 391
Width = 89
Height = 13
Caption = 'Data Dictionary'
Color = clWhite
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
Transparent = True
Visible = False
end
object Shape10: TShape
Left = 131
Top = 407
Width = 102
Height = 1
Visible = False
end
object Shape6: TShape
Left = 130
Top = 294
Width = 103
Height = 72
Brush.Color = clBlue
Shape = stRoundRect
Visible = False
end
object Label7: TLabel
Left = 156
Top = 299
Width = 51
Height = 13
Caption = 'Designer'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWhite
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
Transparent = True
Visible = False
end
object Shape5: TShape
Left = 131
Top = 315
Width = 101
Height = 1
Visible = False
end
object Label8: TLabel
Left = 43
Top = 251
Width = 31
Height = 13
Caption = 'Items'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
Transparent = True
Visible = False
end
object Shape3: TShape
Left = 8
Top = 267
Width = 101
Height = 1
Visible = False
end
object Label1: TLabel
Left = 286
Top = 300
Width = 39
Height = 13
Caption = 'Report'
Color = clBlack
Font.Charset = DEFAULT_CHARSET
Font.Color = clWhite
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
Transparent = True
Visible = False
end
object Shape2: TShape
Left = 255
Top = 316
Width = 101
Height = 1
Brush.Color = clBlack
Visible = False
end
object Shape15: TShape
Left = 8
Top = 165
Width = 103
Height = 72
Brush.Color = clLime
Shape = stRoundRect
Visible = False
end
object Label2: TLabel
Left = 38
Top = 170
Width = 42
Height = 13
Caption = 'Folders'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
Transparent = True
Visible = False
end
object Shape16: TShape
Left = 8
Top = 185
Width = 102
Height = 1
Visible = False
end
object Shape22: TShape
Left = 130
Top = 205
Width = 103
Height = 72
Brush.Color = clFuchsia
Shape = stRoundRect
Visible = False
end
object Label10: TLabel
Left = 158
Top = 210
Width = 47
Height = 13
Caption = 'Explorer'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
Transparent = True
Visible = False
end
object Shape23: TShape
Left = 131
Top = 226
Width = 101
Height = 1
Visible = False
end
object Shape29: TShape
Left = 66
Top = 467
Width = 2
Height = 16
Brush.Style = bsClear
Pen.Width = 2
Shape = stRoundRect
Visible = False
end
object Shape18: TShape
Left = 16
Top = 477
Width = 103
Height = 72
Brush.Color = clAqua
Shape = stRoundRect
Visible = False
end
object Shape17: TShape
Left = 291
Top = 467
Width = 2
Height = 17
Brush.Style = bsClear
Pen.Width = 2
Shape = stRoundRect
Visible = False
end
object Shape13: TShape
Left = 132
Top = 478
Width = 103
Height = 72
Brush.Color = clAqua
Shape = stRoundRect
Visible = False
end
object Label3: TLabel
Left = 166
Top = 483
Width = 34
Height = 13
Caption = 'Fields'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
Transparent = True
Visible = False
end
object Shape14: TShape
Left = 133
Top = 499
Width = 102
Height = 1
Visible = False
end
object Label9: TLabel
Left = 48
Top = 482
Width = 39
Height = 13
Caption = 'Tables'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
Transparent = True
Visible = False
end
object Shape19: TShape
Left = 17
Top = 498
Width = 102
Height = 1
Visible = False
end
object Shape21: TShape
Left = 245
Top = 477
Width = 103
Height = 72
Brush.Color = clAqua
Shape = stRoundRect
Visible = False
end
object Shape27: TShape
Left = 246
Top = 498
Width = 102
Height = 1
Visible = False
end
object Label4: TLabel
Left = 280
Top = 482
Width = 30
Height = 13
Caption = 'Joins'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
Transparent = True
Visible = False
end
object Shape28: TShape
Left = 67
Top = 467
Width = 226
Height = 2
Brush.Style = bsClear
Pen.Width = 2
Shape = stRoundRect
Visible = False
end
object btnLaunch: TButton
Left = 342
Top = 165
Width = 75
Height = 25
Caption = 'Launch'
TabOrder = 0
OnClick = btnLaunchClick
end
object Memo1: TMemo
Left = 7
Top = 5
Width = 411
Height = 150
Lines.Strings = (
'End-User Reporting using MSSQLServer with the SDAC'
'----------------------------------------------------------------' +
'---------------------------')
ReadOnly = True
TabOrder = 1
end
object pnlStatusBar: TPanel
Left = 0
Top = 561
Width = 427
Height = 18
Align = alBottom
Alignment = taLeftJustify
TabOrder = 2
end
object btCreate: TButton
Left = 120
Top = 165
Width = 75
Height = 25
Caption = 'Create'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 3
OnClick = btCreateClick
end
object btDrop: TButton
Left = 200
Top = 165
Width = 75
Height = 25
Caption = 'Drop'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 4
OnClick = btDropClick
end
object seDatabase: TMSConnection
Database = 'SDACDemos'
Authentication = auServer
Username = 'Sa'
Server = 'server'
Left = 289
Top = 233
end
object tblTable: TMSTable
TableName = 'RB_TABLE'
Connection = seDatabase
Left = 21
Top = 508
end
object dsTable: TDataSource
DataSet = tblTable
Left = 52
Top = 508
end
object plTable: TppDBPipeline
DataSource = dsTable
UserName = 'Table'
Visible = False
Left = 85
Top = 508
end
object tblField: TMSTable
TableName = 'RB_FIELD'
Connection = seDatabase
Left = 137
Top = 509
end
object dsField: TDataSource
DataSet = tblField
Left = 169
Top = 509
end
object plField: TppDBPipeline
DataSource = dsField
UserName = 'Field'
Visible = False
Left = 201
Top = 508
end
object ppDataDictionary: TppDataDictionary
AutoJoin = True
BuilderSettings.DatabaseName = 'seDatabase'
BuilderSettings.SessionType = 'SDACSession'
FieldFieldNames.AutoSearch = 'AUTOSEARCH'
FieldFieldNames.DataType = 'DATATYPE'
FieldFieldNames.FieldName = 'FIELD_NAME'
FieldFieldNames.FieldAlias = 'FIELD_ALIAS'
FieldFieldNames.Mandatory = 'MANDATORY'
FieldFieldNames.Searchable = 'SEARCHABLE'
FieldFieldNames.Selectable = 'SORTABLE'
FieldFieldNames.Sortable = 'SORTABLE'
FieldFieldNames.TableName = 'table_name'
FieldPipeline = plField
JoinFieldNames.TableName1 = 'TABLE_NAME1'
JoinFieldNames.TableName2 = 'TABLE_NAME2'
JoinFieldNames.JoinType = 'JOIN_TYPE'
JoinFieldNames.FieldNames1 = 'FIELD_NAMES1'
JoinFieldNames.FieldNames2 = 'FIELD_NAMES2'
JoinFieldNames.Operators = 'OPERATORS'
JoinPipeline = plJoin
TableFieldNames.TableName = 'TABLE_NAME'
TableFieldNames.TableAlias = 'TABLE_ALIAS'
TablePipeline = plTable
UserName = 'DataDictionary'
UseTableOwnerName = True
ValidateFieldNames = False
ValidateTableNames = False
Left = 169
Top = 416
end
object ppDesigner: TppDesigner
AllowDataSettingsChange = True
Caption = 'ReportBuilder Pro'
DataSettings.DatabaseName = 'seDatabase'
DataSettings.SessionType = 'SDACSession'
DataSettings.AllowEditSQL = True
DataSettings.DatabaseType = dtMSSQLServer
DataSettings.DataDictionary = ppDataDictionary
DataSettings.GuidCollationType = gcString
DataSettings.IsCaseSensitive = True
DataSettings.SQLType = sqSQL1
DataSettings.UseDataDictionary = True
Position = poScreenCenter
Report = ppReport
IniStorageType = 'IniFile'
IniStorageName = '($WINSYS)\RBuilder.ini'
WindowHeight = 400
WindowLeft = 100
WindowTop = 50
WindowWidth = 600
Left = 170
Top = 323
end
object tblItem: TMSTable
TableName = 'RB_ITEM'
Connection = seDatabase
Left = 14
Top = 277
end
object dsItem: TDataSource
DataSet = tblItem
Left = 46
Top = 278
end
object plItem: TppDBPipeline
DataSource = dsItem
RefreshAfterPost = True
UserName = 'plItem'
Visible = False
Left = 77
Top = 278
end
object ppReport: TppReport
AutoStop = False
DataPipeline = SDACQueryDataView1.plDept
PrinterSetup.BinName = 'Default'
PrinterSetup.DocumentName = 'Report'
PrinterSetup.PaperName = 'Letter 8 1/2 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
Template.DatabaseSettings.DataPipeline = plItem
Template.DatabaseSettings.Name = 'Dept'
Template.DatabaseSettings.NameField = 'Name'
Template.DatabaseSettings.TemplateField = 'Template'
Template.FileName = 'D:\NDF\Delphi\odac3\Demos\ReportBuilder\Reports\Dept.rtm'
Template.SaveTo = stDatabase
Units = utScreenPixels
DeviceType = 'Screen'
OutlineSettings.CreateNode = True
OutlineSettings.CreatePageNodes = True
OutlineSettings.Enabled = False
OutlineSettings.Visible = False
TextSearchSettings.DefaultString = '<FindText>'
TextSearchSettings.Enabled = False
Left = 289
Top = 326
Version = '9.01'
mmColumnWidth = 0
DataPipelineName = 'plDept'
object ppTitleBand1: TppTitleBand
mmBottomOffset = 0
mmHeight = 13229
mmPrintPosition = 0
object ppLabel1: TppLabel
UserName = 'Label1'
Border.BorderPositions = []
Border.Color = clBlack
Border.Style = psSolid
Border.Visible = False
Border.Weight = 1.000000000000000000
Caption = 'Departaments'
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Name = 'Arial'
Font.Size = 20
Font.Style = [fsBold, fsItalic]
Transparent = True
mmHeight = 8467
mmLeft = 77788
mmTop = 1852
mmWidth = 47625
BandType = 1
end
object ppSystemVariable1: TppSystemVariable
UserName = 'SystemVariable1'
Border.BorderPositions = []
Border.Color = clBlack
Border.Style = psSolid
Border.Visible = False
Border.Weight = 1.000000000000000000
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Name = 'Arial'
Font.Size = 8
Font.Style = []
Transparent = True
mmHeight = 3704
mmLeft = 188384
mmTop = 529
mmWidth = 14288
BandType = 1
end
end
object ppHeaderBand1: TppHeaderBand
mmBottomOffset = 0
mmHeight = 7673
mmPrintPosition = 0
object ppLabel2: TppLabel
UserName = 'Label2'
Border.BorderPositions = []
Border.Color = clBlack
Border.Style = psSolid
Border.Visible = False
Border.Weight = 1.000000000000000000
Caption = 'Number'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Name = 'Arial'
Font.Size = 10
Font.Style = [fsBold]
Transparent = True
mmHeight = 4233
mmLeft = 7673
mmTop = 529
mmWidth = 13229
BandType = 0
end
object ppLabel3: TppLabel
UserName = 'Label3'
Border.BorderPositions = []
Border.Color = clBlack
Border.Style = psSolid
Border.Visible = False
Border.Weight = 1.000000000000000000
Caption = 'Name'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Name = 'Arial'
Font.Size = 10
Font.Style = [fsBold]
Transparent = True
mmHeight = 4233
mmLeft = 26988
mmTop = 529
mmWidth = 9790
BandType = 0
end
object ppLabel4: TppLabel
UserName = 'Label4'
Border.BorderPositions = []
Border.Color = clBlack
Border.Style = psSolid
Border.Visible = False
Border.Weight = 1.000000000000000000
Caption = 'Location'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Name = 'Arial'
Font.Size = 10
Font.Style = [fsBold]
Transparent = True
mmHeight = 4233
mmLeft = 81492
mmTop = 794
mmWidth = 14552
BandType = 0
end
object ppShape1: TppShape
UserName = 'Shape1'
mmHeight = 265
mmLeft = 4498
mmTop = 6085
mmWidth = 191294
BandType = 0
end
end
object ppDetailBand1: TppDetailBand
mmBottomOffset = 0
mmHeight = 6615
mmPrintPosition = 0
object ppDBText1: TppDBText
UserName = 'DBText1'
Border.BorderPositions = []
Border.Color = clBlack
Border.Style = psSolid
Border.Visible = False
Border.Weight = 1.000000000000000000
DataField = 'DEPTNO'
DataPipeline = SDACQueryDataView1.plDept
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Name = 'Arial'
Font.Size = 10
Font.Style = []
Transparent = True
DataPipelineName = 'plDept'
mmHeight = 4233
mmLeft = 7673
mmTop = 1323
mmWidth = 17198
BandType = 4
end
object ppDBText2: TppDBText
UserName = 'DBText2'
Border.BorderPositions = []
Border.Color = clBlack
Border.Style = psSolid
Border.Visible = False
Border.Weight = 1.000000000000000000
DataField = 'DNAME'
DataPipeline = SDACQueryDataView1.plDept
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Name = 'Arial'
Font.Size = 10
Font.Style = []
Transparent = True
DataPipelineName = 'plDept'
mmHeight = 4233
mmLeft = 27252
mmTop = 1323
mmWidth = 52123
BandType = 4
end
object ppDBText3: TppDBText
UserName = 'DBText3'
Border.BorderPositions = []
Border.Color = clBlack
Border.Style = psSolid
Border.Visible = False
Border.Weight = 1.000000000000000000
DataField = 'LOC'
DataPipeline = SDACQueryDataView1.plDept
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Name = 'Arial'
Font.Size = 10
Font.Style = []
Transparent = True
DataPipelineName = 'plDept'
mmHeight = 4233
mmLeft = 81756
mmTop = 1323
mmWidth = 31750
BandType = 4
end
end
object daDataModule1: TdaDataModule
object SDACQueryDataView1: TdaSDACQueryDataView
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 = dtMSSQLServer
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 = 'DEPT'
TableSQLAlias = 'DEPT'
end
object TdaField
Alias = 'Dname'
DisplayWidth = 0
FieldAlias = 'Dname'
FieldLength = 0
FieldName = 'DNAME'
SQLFieldName = 'DNAME'
TableAlias = 'Dept'
TableName = 'DEPT'
TableSQLAlias = 'DEPT'
end
object TdaField
Alias = 'Loc'
DisplayWidth = 0
FieldAlias = 'Loc'
FieldLength = 0
FieldName = 'LOC'
SQLFieldName = 'LOC'
TableAlias = 'Dept'
TableName = '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 = '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
object tblFolder: TMSTable
TableName = 'RB_FOLDER'
Connection = seDatabase
Left = 12
Top = 195
end
object dsFolder: TDataSource
DataSet = tblFolder
Left = 43
Top = 195
end
object plFolder: TppDBPipeline
DataSource = dsFolder
RefreshAfterPost = True
UserName = 'plFolder'
Visible = False
Left = 75
Top = 196
end
object ppReportExplorer: TppReportExplorer
Designer = ppDesigner
FolderFieldNames.FolderId = 'FOLDER_ID'
FolderFieldNames.Name = 'FOLDER_NAME'
FolderFieldNames.ParentId = 'PARENT_ID'
FolderPipeline = plFolder
ItemFieldNames.Deleted = 'DELETED'
ItemFieldNames.FolderId = 'FOLDER_ID'
ItemFieldNames.ItemId = 'ITEM_ID'
ItemFieldNames.Modified = 'MODIFIED'
ItemFieldNames.Name = 'ITEM_NAME'
ItemFieldNames.Size = 'ITEM_SIZE'
ItemFieldNames.Template = 'TEMPLATE'
ItemFieldNames.ItemType = 'ITEM_TYPE'
ItemPipeline = plItem
FormCaption = 'Report Explorer'
FormIcon.Data = {
0000010001002020100000000000E80200001600000028000000200000004000
0000010004000000000080020000000000000000000000000000000000000000
0000000080000080000000808000800000008000800080800000C0C0C0008080
80000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000884000000000000
000083BBBBB34003BBBBB800000000000004BBBBBBBB308BBBBBBB0000000000
00003BBBBBB3403BBBBBB3000000000000000BBBBBB404BBBBBB300000000000
000003BBBBB008BBBBBB800000000000000003BBBBB003BBBBBB000000000000
000003BBBBB48BBBBBB3000000000000000003BBBBBBBBBBBB30000000000000
000003BBBBBBBBBBB800000000000000000003BBBBB33BBBBB80000000000000
000003BBBBB003BBBBB4000000000000000003BBBBB003BBBBB8000000000000
000003BBBBB003BBBBB300000000000000000BBBBBB84BBBBBB8000000000000
00043BBBBBBBBBBBBBB00000000000000004BBBBBBBBBBBBB340000000000000
0000433888883338400000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000000000000000000000000000FFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF8FFFF00
603FFE00403FFF00403FFF80807FFF81807FFF8180FFFF8000FFFF8001FFFF80
03FFFF8001FFFF8180FFFF8180FFFF8180FFFF8000FFFE0001FFFE0001FFFF00
07FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF}
FormPosition = poScreenCenter
FormHeight = 400
FormLeft = 100
FormTop = 50
FormWidth = 600
Left = 168
Top = 235
end
object tblJoin: TMSTable
TableName = 'RB_JOIN'
Connection = seDatabase
Left = 251
Top = 510
end
object dsJoin: TDataSource
DataSet = tblJoin
Left = 282
Top = 511
end
object plJoin: TppDBPipeline
DataSource = dsJoin
RefreshAfterPost = True
UserName = 'plJoin'
Visible = False
Left = 314
Top = 510
end
object sqCreate: TMSQuery
Connection = seDatabase
SQL.Strings = (
'CREATE TABLE [dbo].[RB_FIELD] ('
#9'[TABLE_NAME] [varchar] (60) NOT NULL ,'
#9'[FIELD_NAME] [varchar] (60) NOT NULL ,'
#9'[FIELD_ALIAS] [varchar] (60) NULL ,'
#9'[DATATYPE] [varchar] (60) NULL ,'
#9'[SELECTABLE] [varchar] (1) NULL ,'
#9'[SEARCHABLE] [varchar] (1) NULL ,'
#9'[SORTABLE] [varchar] (1) NULL ,'
#9'[AUTOSEARCH] [varchar] (1) NULL ,'
#9'[MANDATORY] [varchar] (1) NULL '
') ON [PRIMARY]'
''
'CREATE TABLE [dbo].[RB_FOLDER] ('
#9'[FOLDER_ID] [int] IDENTITY (1, 1) NOT NULL ,'
#9'[FOLDER_NAME] [char] (60) NULL ,'
#9'[PARENT_ID] [int] NULL '
') ON [PRIMARY]'
''
'CREATE TABLE [dbo].[RB_ITEM] ('
#9'[ITEM_ID] [int] IDENTITY (1, 1) NOT NULL ,'
#9'[FOLDER_ID] [int] NULL ,'
#9'[ITEM_NAME] [char] (60) NULL ,'
#9'[ITEM_SIZE] [int] NULL ,'
#9'[ITEM_TYPE] [int] NULL ,'
#9'[MODIFIED] [int] NULL ,'
#9'[DELETED] [int] NULL ,'
#9'[TEMPLATE] [text] NULL '
') ON [PRIMARY] TEXTIMAGE_ON [PRIMARY]'
''
'CREATE TABLE [dbo].[RB_JOIN] ('
#9'[TABLE_NAME1] [varchar] (60) NOT NULL ,'
#9'[TABLE_NAME2] [varchar] (60) NOT NULL ,'
#9'[JOIN_TYPE] [varchar] (60) NULL ,'
#9'[FIELD_NAMES1] [varchar] (255) NULL ,'
#9'[OPERATORS] [varchar] (60) NULL ,'
#9'[FIELD_NAMES2] [varchar] (60) NULL '
') ON [PRIMARY]'
''
'CREATE TABLE [dbo].[RB_TABLE] ('
#9'[TABLE_NAME] [varchar] (60) NOT NULL ,'
#9'[TABLE_ALIAS] [varchar] (60) NULL '
') ON [PRIMARY]'
''
'/*ALTER TABLE [dbo].[RB_FOLDER] WITH NOCHECK ADD '
#9'CONSTRAINT [PK_RB_FOLDER] PRIMARY KEY CLUSTERED '
#9'('
#9#9'[FOLDER_ID]'
#9') ON [PRIMARY] '
''
'ALTER TABLE [dbo].[RB_ITEM] WITH NOCHECK ADD '
#9'CONSTRAINT [PK_RB_ITEM] PRIMARY KEY CLUSTERED '
#9'('
#9#9'[ITEM_ID]'
#9') ON [PRIMARY] '
''
'ALTER TABLE [dbo].[RB_TABLE] WITH NOCHECK ADD '
#9'CONSTRAINT [PK_RB_TABLE] PRIMARY KEY CLUSTERED '
#9'('
#9#9'[TABLE_NAME]'
#9') ON [PRIMARY] '
''
'*/')
Debug = True
Left = 8
Top = 336
end
object sqDrop: TMSQuery
Connection = seDatabase
SQL.Strings = (
'if exists (select * from dbo.sysobjects where id = object_id(N'#39'[' +
'dbo].[RB_FIELD]'#39') and OBJECTPROPERTY(id, N'#39'IsUserTable'#39') = 1)'
'drop table [dbo].[RB_FIELD]'
''
'if exists (select * from dbo.sysobjects where id = object_id(N'#39'[' +
'dbo].[RB_FOLDER]'#39') and OBJECTPROPERTY(id, N'#39'IsUserTable'#39') = 1)'
'drop table [dbo].[RB_FOLDER]'
''
'if exists (select * from dbo.sysobjects where id = object_id(N'#39'[' +
'dbo].[RB_ITEM]'#39') and OBJECTPROPERTY(id, N'#39'IsUserTable'#39') = 1)'
'drop table [dbo].[RB_ITEM]'
''
'if exists (select * from dbo.sysobjects where id = object_id(N'#39'[' +
'dbo].[RB_JOIN]'#39') and OBJECTPROPERTY(id, N'#39'IsUserTable'#39') = 1)'
'drop table [dbo].[RB_JOIN]'
''
'if exists (select * from dbo.sysobjects where id = object_id(N'#39'[' +
'dbo].[RB_TABLE]'#39') and OBJECTPROPERTY(id, N'#39'IsUserTable'#39') = 1)'
'drop table [dbo].[RB_TABLE]')
Debug = True
Left = 40
Top = 336
end
object MyTable1: TMSTable
TableName = 'rb_folder'
Connection = seDatabase
Left = 12
Top = 195
end
end