myeurpt.dfm

ODAC 6 最新版的﹐網上找了好久才找到﹐不太好找啊﹐大家一起共享

        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 = ODACQueryDataView1.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 = ODACQueryDataView1.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 = ODACQueryDataView1.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 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
  object tblFolder: TOraTable
    TableName = 'SCOTT.RB_FOLDER'
    Session = 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: TOraTable
    TableName = 'SCOTT.RB_JOIN'
    Session = 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: TOraScript
    Session = seDatabase
    SQL.Strings = (
      'CREATE TABLE RB_FOLDER ('
      '  FOLDER_ID NUMBER(6, 0) DEFAULT 0,'
      '  FOLDER_NAME CHAR(60),'
      '  PARENT_ID NUMBER(6, 0) DEFAULT 0 );'
      ''
      'CREATE INDEX FOLDER_IDX ON RB_FOLDER (FOLDER_ID);'
      'CREATE INDEX PARENT_IDX ON RB_FOLDER (PARENT_ID);'
      ''
      'CREATE SEQUENCE FOLDER_ID_SEQ'
      '  START WITH 1'
      '  INCREMENT BY 1'
      '  MAXVALUE 999999'
      '  MINVALUE 1;'
      ''
      'CREATE TRIGGER SET_FOLDER_ID AFTER INSERT ON RB_FOLDER'
      'BEGIN'
      '  UPDATE RB_FOLDER'
      '    SET FOLDER_ID = FOLDER_ID_SEQ.NEXTVAL'
      '    WHERE FOLDER_ID = 0;'
      'END;'
      '/'
      ''
      'CREATE TABLE RB_ITEM ('
      '  ITEM_ID NUMBER(6, 0) DEFAULT 0 ,'
      '  FOLDER_ID NUMBER(6, 0) DEFAULT 0,'
      '  ITEM_NAME CHAR(60),'
      '  ITEM_SIZE NUMBER(6, 0) DEFAULT 0,'
      '  ITEM_TYPE NUMBER(6, 0) DEFAULT 0,'
      '  MODIFIED NUMBER,'
      '  DELETED NUMBER,'
      '  TEMPLATE LONG);'
      ''
      'CREATE INDEX ITEM_IDX ON RB_ITEM (ITEM_ID);'
      
        'CREATE INDEX FOLDER_ITEM_NAME_IDX ON RB_ITEM (FOLDER_ID, ITEM_TY' +
        'PE, ITEM_NAME);'
      ''
      'CREATE SEQUENCE ITEM_ID_SEQ'
      '  START WITH 1'
      '  INCREMENT BY 1'
      '  MAXVALUE 999999'
      '  MINVALUE 1;'
      ''
      'CREATE TRIGGER SET_ITEM_ID AFTER INSERT ON RB_ITEM'
      'BEGIN'
      '  UPDATE RB_ITEM'
      '    SET ITEM_ID = ITEM_ID_SEQ.NEXTVAL'
      '    WHERE ITEM_ID = 0;'
      'END;'
      '/'
      ''
      'CREATE TABLE RB_TABLE ('
      '  TABLE_NAME VARCHAR2(60) NOT NULL,'
      '  TABLE_ALIAS VARCHAR2(60)) ;'
      ''
      'CREATE INDEX RB_TABLE_NAME_IDX ON RB_TABLE (TABLE_NAME);'
      ''
      'CREATE TABLE RB_FIELD ('
      '  TABLE_NAME VARCHAR2(60) NOT NULL,'
      '  FIELD_NAME VARCHAR2(60) NOT NULL,'
      '  FIELD_ALIAS VARCHAR2(60),'
      '  DATATYPE VARCHAR2(60),'
      '  SELECTABLE VARCHAR2(1),'
      '  SEARCHABLE VARCHAR2(1),'
      '  SORTABLE VARCHAR2(1),'
      '  AUTOSEARCH VARCHAR2(1),'
      '  MANDATORY VARCHAR2(1));'
      ''
      
        'CREATE INDEX RB_TABLE_FIELD_NAME_IDX ON RB_FIELD (TABLE_NAME, FI' +
        'ELD_NAME);'
      ''
      'CREATE TABLE RB_JOIN ('
      '  TABLE_NAME1 VARCHAR2(60) NOT NULL,'
      '  TABLE_NAME2 VARCHAR2(60) NOT NULL,'
      '  JOIN_TYPE VARCHAR2(60),'
      '  FIELD_NAMES1 VARCHAR2(255),'
      '  OPERATORS VARCHAR2(60),'
      '  FIELD_NAMES2 VARCHAR2(255));'
      ''
      
        'CREATE INDEX RB_TABLE1_TABLE2_IDX ON rb_join (TABLE_NAME1, TABLE' +
        '_NAME2);')
    Left = 8
    Top = 336
  end
  object sqDrop: TOraScript
    Session = seDatabase
    SQL.Strings = (
      'DROP TABLE RB_FOLDER;'
      'DROP SEQUENCE FOLDER_ID_SEQ;'
      'DROP TABLE RB_ITEM;'
      'DROP SEQUENCE ITEM_ID_SEQ;'
      'DROP TABLE RB_TABLE;'
      'DROP TABLE RB_FIELD;'
      'DROP TABLE RB_JOIN;')
    Left = 40
    Top = 336
  end
end