📄 dept.rtm

📁 Oracle Data Access Components 是一套连接Oracle的控件包
💻 RTM
字号:
object ppReport: TppReport
  AutoStop = False
  DataPipeline = 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
  SaveAsTemplate = True
  Template.DatabaseSettings.DataPipeline = plItem
  Template.DatabaseSettings.Name = 'Dept                                                        '
  Template.DatabaseSettings.NameField = 'ITEM_NAME'
  Template.DatabaseSettings.TemplateField = 'TEMPLATE'
  Template.Format = ftASCII
  UserName = 'Report'
  DeviceType = 'Screen'
  Left = 289
  Top = 326
  Version = '5.0'
  mmColumnWidth = 0
  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 = plDept
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = 'Arial'
      Font.Size = 10
      Font.Style = []
      Transparent = True
      mmHeight = 4233
      mmLeft = 6350
      mmTop = 794
      mmWidth = 17198
      BandType = 4
    end
    object ppDBText2: TppDBText
      UserName = 'DBText2'
      DataField = 'DNAME'
      DataPipeline = plDept
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = 'Arial'
      Font.Size = 10
      Font.Style = []
      Transparent = True
      mmHeight = 4233
      mmLeft = 25400
      mmTop = 794
      mmWidth = 42863
      BandType = 4
    end
    object ppDBText3: TppDBText
      UserName = 'DBText3'
      DataField = 'LOC'
      DataPipeline = plDept
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = 'Arial'
      Font.Size = 10
      Font.Style = []
      Transparent = True
      mmHeight = 4233
      mmLeft = 71967
      mmTop = 794
      mmWidth = 46038
      BandType = 4
    end
  end
  object TdaDataModule
    object TdaODACQueryDataView
      Report = ppReport
      UserName = 'Query_Dept'
      Left = 10
      Top = 10
      Width = 242
      Height = 305
      AutoSearchTabOrder = 0
      object plDept: TppChildDBPipeline
        AutoCreateFields = False
        UserName = 'plDept'
        Left = 200
        Top = 272
        object TppField
          FieldAlias = 'Deptno'
          FieldName = 'DEPTNO'
          FieldLength = 0
          DataType = dtInteger
          DisplayWidth = 10
          Position = 0
          TableName = 'SCOTT.DEPT'
        end
        object TppField
          FieldAlias = 'Dname'
          FieldName = 'DNAME'
          FieldLength = 14
          DisplayWidth = 14
          Position = 1
          TableName = 'SCOTT.DEPT'
        end
        object TppField
          FieldAlias = 'Loc'
          FieldName = 'LOC'
          FieldLength = 13
          DisplayWidth = 13
          Position = 2
          TableName = 'SCOTT.DEPT'
        end
      end
      object TdaSQL
        DatabaseName = 'seDatabase'
        DatabaseType = dtOracle
        DataPipelineName = 'plDept'
        Description = 'Dept'
        SQLText.Strings = (
          'SELECT SCOTT_DEPT.DEPTNO, SCOTT_DEPT.DNAME, '
          '       SCOTT_DEPT.LOC'
          'FROM SCOTT.DEPT SCOTT_DEPT'
          'ORDER BY SCOTT_DEPT.DEPTNO')
        SQLType = sqSQL1
        object TdaField
          Alias = 'Deptno'
          DataType = dtInteger
          FieldAlias = 'Deptno'
          FieldName = 'DEPTNO'
          TableName = 'SCOTT.DEPT'
          SQLFieldName = 'DEPTNO'
          TableAlias = 'Dept'
          TableSQLAlias = 'SCOTT_DEPT'
        end
        object TdaField
          Alias = 'Dname'
          FieldAlias = 'Dname'
          FieldName = 'DNAME'
          TableName = 'SCOTT.DEPT'
          SQLFieldName = 'DNAME'
          TableAlias = 'Dept'
          TableSQLAlias = 'SCOTT_DEPT'
        end
        object TdaField
          Alias = 'Loc'
          FieldAlias = 'Loc'
          FieldName = 'LOC'
          TableName = 'SCOTT.DEPT'
          SQLFieldName = 'LOC'
          TableAlias = 'Dept'
          TableSQLAlias = 'SCOTT_DEPT'
        end
        object TdaField
          ChildType = 2
          Alias = 'Deptno'
          DataType = dtInteger
          FieldAlias = 'Deptno'
          FieldName = 'DEPTNO'
          TableName = 'SCOTT.DEPT'
          TableAlias = 'Dept'
          TableSQLAlias = 'SCOTT_DEPT'
        end
        object TdaTable
          ChildType = 5
          Alias = 'Dept'
          OwnerName = 'SCOTT'
          TableAlias = 'Dept'
          TableName = 'DEPT'
          SQLAlias = 'SCOTT_DEPT'
          JoinType = dajtNone
        end
      end
    end
  end
end
  AutoStop = False
  DataPipeline = 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
  SaveAsTemplate = True
  Template.DatabaseSettings.DataPipeline = plItem
  Template.DatabaseSettings.Name = 'Dept                                                        '
  Template.DatabaseSettings.NameField = 'ITEM_NAME'
  Template.DatabaseSettings.TemplateField = 'TEMPLATE'
  Template.Format = ftASCII
  UserName = 'Report'
  DeviceType = 'Screen'
  Left = 289
  Top = 326
  Version = '5.0'
  mmColumnWidth = 0
  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 = plDept
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = 'Arial'
      Font.Size = 10
      Font.Style = []
      Transparent = True
      mmHeight = 4233
      mmLeft = 6350
      mmTop = 794
      mmWidth = 17198
      BandType = 4
    end
    object ppDBText2: TppDBText
      UserName = 'DBText2'
      DataField = 'DNAME'
      DataPipeline = plDept
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = 'Arial'
      Font.Size = 10
      Font.Style = []
      Transparent = True
      mmHeight = 4233
      mmLeft = 25400
      mmTop = 794
      mmWidth = 42863
      BandType = 4
    end
    object ppDBText3: TppDBText
      UserName = 'DBText3'
      DataField = 'LOC'
      DataPipeline = plDept
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = 'Arial'
      Font.Size = 10
      Font.Style = []
      Transparent = True
      mmHeight = 4233
      mmLeft = 71967
      mmTop = 794
      mmWidth = 46038
      BandType = 4
    end
  end
  object TdaDataModule
    object TdaODACQueryDataView
      Report = ppReport
      UserName = 'Query_Dept'
      Left = 10
      Top = 10
      Width = 242
      Height = 305
      AutoSearchTabOrder = 0
      object plDept: TppChildDBPipeline
        AutoCreateFields = False
        UserName = 'plDept'
        Left = 200
        Top = 272
        object TppField
          FieldAlias = 'Deptno'
          FieldName = 'DEPTNO'
          FieldLength = 0
          DataType = dtInteger
          DisplayWidth = 10
          Position = 0
          TableName = 'SCOTT.DEPT'
        end
        object TppField
          FieldAlias = 'Dname'
          FieldName = 'DNAME'
          FieldLength = 14
          DisplayWidth = 14
          Position = 1
          TableName = 'SCOTT.DEPT'
        end
        object TppField
          FieldAlias = 'Loc'
          FieldName = 'LOC'
          FieldLength = 13
          DisplayWidth = 13
          Position = 2
          TableName = 'SCOTT.DEPT'
        end
      end
      object TdaSQL
        DatabaseName = 'seDatabase'
        DatabaseType = dtOracle
        DataPipelineName = 'plDept'
        Description = 'Dept'
        SQLText.Strings = (
          'SELECT SCOTT_DEPT.DEPTNO, SCOTT_DEPT.DNAME, '
          '       SCOTT_DEPT.LOC'
          'FROM SCOTT.DEPT SCOTT_DEPT'
          'ORDER BY SCOTT_DEPT.DEPTNO')
        SQLType = sqSQL1
        object TdaField
          Alias = 'Deptno'
          DataType = dtInteger
          FieldAlias = 'Deptno'
          FieldName = 'DEPTNO'
          TableName = 'SCOTT.DEPT'
          SQLFieldName = 'DEPTNO'
          TableAlias = 'Dept'
          TableSQLAlias = 'SCOTT_DEPT'
        end
        object TdaField
          Alias = 'Dname'
          FieldAlias = 'Dname'
          FieldName = 'DNAME'
          TableName = 'SCOTT.DEPT'
          SQLFieldName = 'DNAME'
          TableAlias = 'Dept'
          TableSQLAlias = 'SCOTT_DEPT'
        end
        object TdaField
          Alias = 'Loc'
          FieldAlias = 'Loc'
          FieldName = 'LOC'
          TableName = 'SCOTT.DEPT'
          SQLFieldName = 'LOC'
          TableAlias = 'Dept'
          TableSQLAlias = 'SCOTT_DEPT'
        end
        object TdaField
          ChildType = 2
          Alias = 'Deptno'
          DataType = dtInteger
          FieldAlias = 'Deptno'
          FieldName = 'DEPTNO'
          TableName = 'SCOTT.DEPT'
          TableAlias = 'Dept'
          TableSQLAlias = 'SCOTT_DEPT'
        end
        object TdaTable
          ChildType = 5
          Alias = 'Dept'
          OwnerName = 'SCOTT'
          TableAlias = 'Dept'
          TableName = 'DEPT'
          SQLAlias = 'SCOTT_DEPT'
          JoinType = dajtNone
        end
      end
    end
  end
end
💿 文件大小 8055 K
👤 上传用户 liubixing
📂 所属分类 Delphi控件源码
🏷️ 相关标签

#Oracle #Components #Access #Data
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -