myeurpt.dfm

ODAC+SDAC源代码

  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.CollationType = ctASCII
    DataSettings.DatabaseType = dtMSSQLServer
    DataSettings.DataDictionary = ppDataDictionary
    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
    FetchAll = True
    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'
    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
    Left = 289
    Top = 326
    Version = '7.0'
    mmColumnWidth = 0
    DataPipelineName = 'plDept'
    object ppTitleBand1: TppTitleBand
      mmBottomOffset = 0
      mmHeight = 13229
      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, fsItalic]
        Transparent = True
        mmHeight = 8467
        mmLeft = 77788
        mmTop = 1852
        mmWidth = 47625
        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 = 529
        mmWidth = 14288
        BandType = 1
      end
    end
    object ppHeaderBand1: TppHeaderBand
      mmBottomOffset = 0
      mmHeight = 7673
      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 = 7673
        mmTop = 529
        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 = 26988
        mmTop = 529
        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 = 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'
        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'
        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'
        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
    FetchAll = True
    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
    Active = True
    FetchAll = True
    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
    FetchAll = 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
    FetchAll = True
    Left = 40
    Top = 336
  end
end