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 = '' 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