myeurpt.dfm

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

object myEndUserSolution: TmyEndUserSolution
  Left = 295
  Top = 101
  AutoScroll = False
  Caption = 'EndUser: MySQL via MyDAC'
  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 MySQL with the MyDAC'
      
        '----------------------------------------------------------------' +
        '---------------------------')
    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: TMyConnection
    Database = 'test'
    Username = 'Sa'
    Left = 289
    Top = 233
  end
  object tblTable: TMyTable
    TableName = 'RB_TABLE'
    Connection = seDatabase
    FetchAll = True
    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: TMyTable
    TableName = 'RB_FIELD'
    Connection = seDatabase
    FetchAll = True
    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 = 'MyDACSession'
    FieldFieldNames.AutoSearch = 'AUTOSEARCH'
    FieldFieldNames.DataType = 'DATATYPE'
    FieldFieldNames.FieldName = 'FIELD_NAME'
    FieldFieldNames.FieldAlias = 'FIELD_ALIAS'