eerreverseengineering.xfm

功能强大的ER图建模工具的源代码。 可以代替ERWin了

      object BuildRelPrimKeyRBtn: TRadioButton
        Left = 30
        Top = 20
        Width = 225
        Height = 17
        Caption = 'Build Relations based on Primary Keys'
        Checked = True
        TabOrder = 0
      end
      object BuildRelTblNamesRBtn: TRadioButton
        Left = 30
        Top = 42
        Width = 231
        Height = 17
        Caption = 'Based on Tablenames and ID-Fieldnames'
        TabOrder = 1
        TabStop = False
      end
      object UseNativeRelationsRBtn: TRadioButton
        Left = 30
        Top = 64
        Width = 229
        Height = 17
        Caption = 'Use Native Selects to retrive Relations'
        Enabled = False
        TabOrder = 2
        TabStop = False
      end
    end
    object BuildRelationsCBox: TCheckBox
      Left = 30
      Top = 195
      Width = 95
      Height = 13
      Caption = 'Build Relations'
      TabOrder = 2
      OnClick = BuildRelationsCBoxClick
    end
    object DataTypeSubstGroupBox: TGroupBox
      Left = 314
      Top = 20
      Width = 237
      Height = 163
      TabOrder = 3
      object SubstCBox: TComboBox
        Left = 29
        Top = 18
        Width = 185
        Height = 21
        Style = csDropDownList
        ItemHeight = 15
        Items.Strings = (
          'MySQL Standard'
          'Oracle Standard'
          'User defined')
        ItemIndex = 0
        TabOrder = 0
        Text = 'MySQL Standard'
        OnCloseUp = SubstCBoxCloseUp
      end
      object SubstMemo: TMemo
        Left = 29
        Top = 41
        Width = 185
        Height = 82
        ScrollBars = ssVertical
        TabOrder = 1
      end
    end
    object UseSubstCBox: TCheckBox
      Left = 324
      Top = 14
      Width = 147
      Height = 13
      Caption = 'Use Datatype substitution'
      Checked = True
      State = cbChecked
      TabOrder = 4
      OnClick = UseSubstCBoxClick
    end
    object StdInsertsGroupBox: TGroupBox
      Left = 314
      Top = 200
      Width = 237
      Height = 95
      TabOrder = 5
      object LimitStdInsCBox: TCheckBox
        Left = 30
        Top = 18
        Width = 149
        Height = 19
        Caption = 'Limit number of records to:'
        Checked = True
        State = cbChecked
        TabOrder = 0
      end
      object LimitStdInsEd: TEdit
        Left = 181
        Top = 18
        Width = 31
        Height = 21
        TabOrder = 1
        Text = '20'
      end
    end
    object CreateStdInsertsCBox: TCheckBox
      Left = 324
      Top = 192
      Width = 209
      Height = 19
      Caption = 'Create Standard Inserts from table data'
      TabOrder = 6
      OnClick = CreateStdInsertsCBoxClick
    end
  end
  object TopPnl: TPanel
    Left = 0
    Top = 0
    Width = 573
    Height = 72
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 2
    object GetDBConnSBtn: TSpeedButton
      Left = 522
      Top = 24
      Width = 29
      Height = 25
      Flat = True
      Glyph.Data = {
        CA060000424DC60600000000000036000000280000001B000000140000000100
        18000000000090060000120B0000120B00000000000000000000E9EBEBE9EBEB
        E9EBEBE9EBEBE9EBEBE9EBEBE9EBEBE9EBEBE9EBEBE9EBEBE9EBEBE9EBEBE9EB
        EBE9EBEBE9EBEBE9EBEBE9EBEBE9EBEBE9EBEBE9EBEBE9EBEBE9EBEBE9EBEBE9
        EBEBE9EBEBE9EBEBE9EBEB000000E9EBEBE9EBEBE9EBEBE9EBEBE9EBEBE9EBEB
        E9EBEBE9EBEBE9EBEBE9EBEBE9EBEBE9EBEBE9EBEBE9EBEBE9EBEBE9EBEBE9EB
        EBE9EBEBE9EBEBE9EBEBE9EBEBE0E2E2CCCECECCCECEE0E2E2E9EBEBE9EBEB00
        0000E9EBEBE9EBEBE4E5E5D7D9D9D0D2D2D0D2D2D0D2D2D0D2D2D0D2D2D0D2D2
        D0D2D2D3D5D5DCDEDEE6E8E8E9EBEBE9EBEBE9EBEBE9EBEBE9EBEBE9EBEBE0E2
        E2B8B9B9868787868787B8B9B9E0E2E2E9EBEB000000E9EBEBE4E5E5CACCCC6A
        D2F61388B400628A005E86005D86005D85005B840058810B6F9E77ADC6D7D9D9
        E6E8E8E9EBEBE9EBEBE9EBEBE9EBEBE0E2E2B8B9B97C7D7D4C5FA48A8A8A8687
        87CCCECEE9EBEB000000E9EBEBD7D9D980DCF80081A622C0FDDBF3F9D8ECF2C0
        E5F099DBEE6ACDE93EB9E01496DA02567F7FB0C7DEE0E0E9EBEBE9EBEBE9EBEB
        E0E2E2B8B9B97C7D7D4C5FA4A873834C5FA495A0AEC2C3C3E9EBEB000000E9EB
        EBD0D2D21CB5D229CEFEB8F0FFEDFBFFFDFFFFE4F9FEB8F0FC81E0F84CCBEF21
        AFE21497DB2379A1D5D7D7E9EBEBE9EBEBE0E2E2B8B9B97C7D7D4C5FA4A76C80
        4C5FA4007BD36BA4D5CCCECEE9EBEB000000E9EBEBD0D2D2009BBF9CECFFC1F3
        FFF0FDFFFDFEFFE7FAFEC1F2FD91E7FB59DBFA28BFEF17A2E4005A83D1D3D3E9
        EBEBE0E2E2B8B9B97C7D7D4C5FA4A678805259A50065D000B8FDC5DCFFE0E2E2
        E9EBEB000000E9EBEBD1D3D3009EC1A0EDFFC4F3FFF1FCFFFDFFFFE9FAFEC5F3
        FD99E9FC60DDFA2CC8F819A2E2005174AFB0B0C2C3C3AFB0B07C7D7D4C5FA4B1
        737D5D5395006ED500B5FE9CD5FFE0E2E2E9EBEBE9EBEB000000E9EBEBD4D6D6
        179FBE8DE2F91CB4D1008AAF0085AA0084AA0084AA0083A900769C127EA43F8E
        AC1C43546A6B6B727373696A6A6E70766E6B6B58569C005FE100B4FF7BD4FFE0
        E2E2E9EBEBE9EBEBE9EBEB000000E9EBEBD6D8D89ACEDC0099BD2BD1FEF0FDFF
        FDFFFFE9FAFEC5F3FD99E9FC55C2DB14739B002D3FCBB89CDBC3A0CDAF8FB086
        6E935D4B7E8283006CC700BAFE7EC4FFE0E2E2E9EBEBE9EBEBE9EBEBE9EBEB00
        0000E9EBEBD2D4D41DBDD72DD5FEC4F2FFF0FCFFFDFFFFE9FAFEC5F3FD93DFF2
        48A6BB86806EF4F4DEFFFFE1FFFFD8FFFDD3FFF1C4E9CE9E99736CCAD0D893D8
        FFE0E2E2E9EBEBE9EBEBE9EBEBE9EBEBE9EBEB000000E9EBEBD0D2D2009DC19F
        ECFFC4F3FFF0FDFFFDFEFFE8FAFEC5F3FD87CCDC378091F9E4E3FFFFFCFFFFF9
        FBFEEEFEFCDDFBF6C4FFF6BAF1C79CE9D5C9C2C3C3E9EBEBE9EBEBE9EBEBE9EB
        EBE9EBEBE9EBEB000000E9EBEBD0D2D2009DC19FECFFC4F3FFF1FCFFFDFFFFE9
        FAFEC5F3FD80C2D2B69C7DFDF9E1FDFFF1FEFFF9FFFFF4F6FBDCFDF7CBFDE3B1
        FCF4B6ECC2A7C2C3C3E9EBEBE9EBEBE9EBEBE9EBEBE9EBEBE9EBEB000000E9EB
        EBD0D2D2009EC22DD5FE1CB3D10089AF0084AA0084AA0084AA006E8DC2AB86FF
        FDDFFEFFE6FEFFECFFFADFFFFFD6FFF9BAFFDF9AFFF9C5DEB19AC2C3C3E9EBEB
        E9EBEBE9EBEBE9EBEBE9EBEBE9EBEB000000E9EBEBD0D2D200A0C4009CC0D6F5
        FEC5F1FDB4EDFDA8EAFD9BE8FD70BED2CCA67DFFFED7FDFBD2FFFFDBF9FFD7FC
        FFC9FFF1B2FCE8AEFFF3C4E4BBAAC2C3C3E9EBEBE9EBEBE9EBEBE9EBEBE9EBEB
        E9EBEB000000E9EBEBD0D2D21EC3DAD7F5FEDEF7FED1F3FEC2F1FEB6EEFDABEB
        FC86CCDCBC8A63FFF4C7FFF9C7FFF3C0FCF9C5FBEEBDFCDDBBFFF1DFFFF7D6DE
        BCB1CCCECEE9EBEBE9EBEBE9EBEBE9EBEBE9EBEBE9EBEB000000E9EBEBD7D9D9
        96E6FA1FC3DAD7F5FEDAF6FEF8FEFEF8FEFEF8FEFEEEF4F476674BE8CAA6FFF3
        BDF9E4A5FFE1A7FFEEC1F9FCE4FFFEFDE4D7BEF3DCD7E0E2E2E9EBEBE9EBEBE9
        EBEBE9EBEBE9EBEBE9EBEB000000E9EBEBE4E5E5CACCCC96E6FA1EC3DA00A0C4
        009EC2009EC1009EC1009DC10094B7B48E76DFCB9CFFF9C4FFECB5FFF4C7FFFD
        E4F3E4E1CCC2B2E0E2E2E9EBEBE9EBEBE9EBEBE9EBEBE9EBEBE9EBEBE9EBEB00
        0000E9EBEBE9EBEBE4E5E5D7D9D9D0D2D2D0D2D2D0D2D2D0D2D2D0D2D2D0D2D2
        D0D2D2C8CACAE9CBBADBAB91E4B69AD29C7BDAAA99D7C2BEE0E2E2E9EBEBE9EB
        EBE9EBEBE9EBEBE9EBEBE9EBEBE9EBEBE9EBEB000000E9EBEBE9EBEBE9EBEBE9
        EBEBE9EBEBE9EBEBE9EBEBE9EBEBE9EBEBE9EBEBE9EBEBE9EBEBE9EBEBE9EBEB
        E9EBEBE9EBEBE9EBEBE9EBEBE9EBEBE9EBEBE9EBEBE9EBEBE9EBEBE9EBEBE9EB
        EBE9EBEBE9EBEB000000}
      OnClick = GetDBConnSBtnClick
    end
    object Label1: TLabel
      Left = 20
      Top = 12
      Width = 103
      Height = 13
      Caption = 'Database Connection'
    end
    object DBConnEd: TEdit
      Left = 20
      Top = 26
      Width = 499
      Height = 21
      ReadOnly = True
      TabOrder = 1
    end
    object Label2: TLabel
      Left = 20
      Top = 58
      Width = 32
      Height = 13
      Caption = 'Tables'
    end
    object Label4: TLabel
      Left = 314
      Top = 58
      Width = 39
      Height = 13
      Caption = 'Schema'
    end
  end
  object SchemaPnl: TPanel
    Left = 0
    Top = 72
    Width = 573
    Height = 166
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 3
    object SchemaLeftSepPnl: TPanel
      Left = 0
      Top = 0
      Width = 20
      Height = 166
      Align = alLeft
      BevelOuter = bvNone
      TabOrder = 0
    end
    object TablesLBox: TCheckListBox
      Left = 20
      Top = 0
      Width = 276
      Height = 166
      Align = alClient
      PopupMenu = TablesPopupMenu
      TabOrder = 1
    end
    object SchemaLookupPnl: TPanel
      Left = 296
      Top = 0
      Width = 277
      Height = 166
      Align = alRight
      BevelOuter = bvNone
      TabOrder = 2
      object SchemaCBox: TComboBox
        Left = 18
        Top = 0
        Width = 237
        Height = 21
        Style = csDropDownList
        DropDownCount = 16
        ItemHeight = 15
        TabOrder = 0
        OnCloseUp = SchemaCBoxCloseUp
      end
      object GroupBox2: TGroupBox
        Left = 18
        Top = 36
        Width = 237
        Height = 101
        Caption = 'Important'
        Font.Color = clGray
        Font.Height = 11
        Font.Name = 'MS Shell Dlg'
        Font.Pitch = fpVariable
        Font.Style = []
        Font.Weight = 40
        ParentFont = False
        TabOrder = 1
        object Label3: TLabel
          Left = 18
          Top = 20
          Width = 209
          Height = 69
          AutoSize = False
          Caption = 
            'When connecting to Oracle or MS SQL databases please make sure t' +
            'o have the appropriate rights to access the system tables. In do' +
            'ubt connect as DBA Users: SYSTEM (Oracle) or sa (MS SQL).'
          Font.CharSet = fcsLatin1
          Font.Color = clGray
          Font.Height = 11
          Font.Name = 'Microsoft Sans Serif'
          Font.Pitch = fpVariable
          Font.Style = []
          Font.Weight = 40
          ParentFont = False
          WordWrap = True
        end
      end
    end
  end
  object TablesPopupMenu: TPopupMenu
    Left = 172
    Top = 124
    object SelectallTables1: TMenuItem
      Caption = 'Select all Tables'
      OnClick = SelAllTablesSBtnClick
    end
    object DeselectallTables1: TMenuItem
      Caption = 'Deselect all Tables'
      OnClick = DeselectAllTablesSBtnClick
    end
  end
end