myeurpt.dfm

Crlab公司用来连接MySQL数据库的控件

    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 = 'MyDACSession'
    DataSettings.AllowEditSQL = True
    DataSettings.DatabaseType = dtMySQL
    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: TMyTable
    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 = MyDACQueryDataView1.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
    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 = MyDACQueryDataView1.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 = MyDACQueryDataView1.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 = MyDACQueryDataView1.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 MyDACQueryDataView1: TdaMyDACQueryDataView
        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 = dtMySQL
          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: TMyTable
    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: TMyTable
    TableName = 'RB_JOIN'
    Connection = seDatabase
    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: TMyScript
    Connection = seDatabase
    SQL.Strings = (
      'CREATE TABLE RB_FIELD ('
      #9'TABLE_NAME varchar (60) NOT NULL PRIMARY KEY,'
      #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 '
      ');'
      ''
      'CREATE TABLE RB_FOLDER ('
      #9'FOLDER_ID int NOT NULL AUTO_INCREMENT PRIMARY KEY,'
      #9'FOLDER_NAME char (60) NULL ,'
      #9'PARENT_ID int NULL '
      '); '
      ''
      'CREATE TABLE RB_ITEM ('
      #9'ITEM_ID int NOT NULL AUTO_INCREMENT PRIMARY KEY,'
      #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 '
      ');'
      ''
      'CREATE TABLE RB_JOIN ('
      #9'TABLE_NAME1 varchar (60) NOT NULL PRIMARY KEY,'
      #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 '
      ');'
      ''
      'CREATE TABLE RB_TABLE ('
      #9'TABLE_NAME varchar (60) NOT NULL PRIMARY KEY,'
      #9'TABLE_ALIAS varchar (60) NULL '
      ');')
    Debug = True
    Left = 8
    Top = 336
  end
  object sqDrop: TMyScript
    Connection = seDatabase
    SQL.Strings = (
      'drop table if exists RB_FIELD;'
      ''
      'drop table if exists RB_FOLDER;'
      ''
      'drop table if exists RB_ITEM;'
      ''
      'drop table if exists RB_JOIN;'
      ''
      'drop table if exists RB_TABLE;')
    Debug = True
    Left = 40
    Top = 336
  end
  object MyTable1: TMyTable
    TableName = 'rb_folder'
    Connection = seDatabase
    FetchAll = True
    Left = 12
    Top = 195
  end
end