editortable.xfm

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

object EditorTableForm: TEditorTableForm
  Left = 274
  Top = 168
  ActiveControl = TableNameEd
  AutoScroll = False
  BorderStyle = fbsSizeToolWin
  Caption = 'Table Editor'
  ClientHeight = 491
  ClientWidth = 702
  Color = clBackground
  Constraints.MinHeight = 491
  Constraints.MinWidth = 702
  KeyPreview = True
  Scaled = False
  OnClose = FormClose
  OnCreate = FormCreate
  OnDeactivate = FormDeactivate
  OnDestroy = FormDestroy
  OnKeyDown = FormKeyDown
  OnResize = FormResize
  OnShow = FormShow
  PixelsPerInch = 96
  object OptionSplitter: TSplitter
    Left = 0
    Top = 278
    Width = 702
    Height = 6
    Cursor = crVSplit
    Align = alBottom
    OnCanResize = OptionSplitterCanResize
    OnMoved = OptionSplitterMoved
  end
  object OptionsPnl: TPanel
    Left = 0
    Top = 284
    Width = 702
    Height = 172
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 0
    object PageControlTitleShape: TShape
      Left = 147
      Top = 6
      Width = 533
      Height = 23
      Brush.Color = clBackground
      Brush.Style = bsClear
    end
    object TablePageControl: TPageControl
      Left = 143
      Top = 32
      Width = 541
      Height = 135
      ActivePage = IndexSheet
      Style = tsNoTabs
      TabOrder = 0
      object IndexSheet: TTabSheet
        Caption = 'IndexSheet'
        object NewIndexBtn: TSpeedButton
          Left = 121
          Top = 4
          Width = 23
          Height = 22
          Flat = True
          Glyph.Data = {
            3A030000424D3603000000000000360000002800000010000000100000000100
            18000000000000030000120B0000120B00000000000000000000C8D0D4C8D0D4
            C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0
            D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4A98391AC7C7FB08383B0
            8383B08383B08383B08383B08383B08383B08383B08383A57373C8D0D4C8D0D4
            C8D0D4C8D0D4A57C8AF2EAEDFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
            FFFFFFFFFFFFFFB18384C8D0D4C8D0D4C8D0D4C8D0D4A57C8AEEE3E6FFFFFFFF
            FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFB08383C8D0D4C8D0D4
            C8D0D4C8D0D4A57C8AEEE3E6FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
            FFFFFFFFFFFFFFB08383C8D0D4C8D0D4C8D0D4C8D0D4A67D8AEEE3E6FFFFFFFF
            FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFB08383C8D0D4C8D0D4
            C8D0D4C8D0D4A67C88FDEEEDFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
            FFFFFFFFFFFFFFB18383C8D0D4C8D0D4C0C9D39AA4BF644C74B5B4C1FDFEFEFF
            FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFAB8083C8D0D4C8D0D4
            9CACC0274FAA123FBB043B7FEEF1F1FBFBFAFAFAFAFAFAFAFAFAFAFAFAFAFAFA
            FAFAFAFAFDFEFE9E7982C8D0D4C8D0D498ADBF0F65B62CA5FF0A4F92EAE7E5F7
            F4F0EFEFEDECECECECECECECEDEDEDEDEDEDEDEDF3F6F59E78803684B01F6EAE
            12589A136DB42EB0FE0864AF1A64A42E5D95A9B1CFEBEAE5E1E1E1E1E1E0DDDA
            D9DCD8D8DFDEDD9C757C1C65B875C7EF46AFF33FACF334A7F442AEF350B7F347
            9CD85E87C0F2EBE3DFE1E1D5CCC89F695CA57A7CAE8182A471622971F372ADF8
            7BB1F879BEF677D0F379B6F76FACFD3F8CFF6794E3E1DACDD1D2D3BAAFAAAF86
            79E0E7E7F4FEFFAD80768DBCDA729DE85386EE3D91FB7DDAF22173FD5C87E26A
            9BDCA5C3C9C7C6C5C2C6C8ABA29FC2998CFFFFFFD3C2C2B3999CC8D0D4C8D0D4
            A1B8DD569BFAACE6F2337CFDCFB8B0DDBFACD4B9AFCDB8B0CEB9B1B8968DA874
            67BA9294B49D9FC8D0D4C8D0D4C8D0D4A4C3D73C8DEF3476FB4498E6C9CCCDCA
            CDCFCACDCFCACDCFCACDCFC7C8CAC3C3C5C2C2C6C8D0D4C8D0D4}
          OnClick = NewIndexBtnClick
        end
        object DelIndexBtn: TSpeedButton
          Left = 121
          Top = 28
          Width = 23
          Height = 22
          Flat = True
          Glyph.Data = {
            3A030000424D3603000000000000360000002800000010000000100000000100
            18000000000000030000120B0000120B00000000000000000000C8D0D4C8D0D4
            C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0
            D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8
            D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4A77048AB7346
            A3652EA46731A46731A46731A3642EAC7546A76F45A67247C3C2C0C8D0D4C8D0
            D4C8D0D4C8D0D4C8D0D4B5835DD7AD83B5702DB97738B97738B97738B46E2BDB
            B38BC29571AB651CAB7748C2C0BDC8D0D4C8D0D4C8D0D4C8D0D4B17F58D5AF8F
            BD7645BF7A4ABF7A4BBF7A4BB9713EDCB18FBC9270AB661EB77428A87142B8C0
            CBC8D0D4C8D0D4C8D0D4A07759C2B1A0E7B896DCA681DDA884DEA884E1AA86EF
            D0B9C1BCB79A5F2CB87324B473295F6793B8C1CDC8D0D4C8D0D4C3C2C0B38867
            E6BE9BECC29FE8BE9AE9BF9BF2CCACEECDB3E9C3A5BD7C4AAA6621B977296778
            9A5268A5B4BDCBC8D0D4C8D0D4C3C3C2B37D56E49F6BEBA672E7A26EE6A06CE6
            A06BE9A36EEAA877BD7B47AA68238694B35F80B750649DB5BECBC8D0D4C8D0D4
            C4C6C5B17E57E8A36CF1A76DEBA169ECA26AEBA26AEEA46CF0A56DC1773F5564
            8D7796CA6380B26977A9C8D0D4C8D0D4C8D0D4C3C3C1A17B69C5AFA5D4BDA9CE
            B6A5CEB7A5CEB6A5D0B8A6D2BBA96B7CAC45629E7B97C66E7CACC8D0D4C8D0D4
            C8D0D4C8D0D4BDC1C6627EBEA6CDEDAFD7F4A8D1EFA9D1EFA9D1EFABD4F1B1D3
            EC677FB349649D6D7AAAC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4BBC4CF697BAFA9
            C9E4B2D4EBACCDE7ADCEE7ADCEE7B0D2E9B3D4EB6B85B845579CC8D0D4C8D0D4
            C8D0D4C8D0D4C8D0D4C8D0D4B7C0CC7187B26881B56279B2637AB2637AB2637A
            B2657DB3657DB35B71ACC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8
            D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4
            C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0
            D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8
            D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4}
          OnClick = DelIndexBtnClick
        end
        object IndexGroupbox: TGroupBox
          Left = 156
          Top = 0
          Width = 377
          Height = 127
          Caption = 'Indexname'
          TabOrder = 0
          object DeleteColFromIndexBtn: TSpeedButton
            Left = 346
            Top = 16
            Width = 23
            Height = 22
            Flat = True
            Glyph.Data = {
              3A030000424D3603000000000000360000002800000010000000100000000100
              18000000000000030000120B0000120B00000000000000000000C8D0D4C8D0D4
              C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0
              D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8
              D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4A77048AB7346
              A3652EA46731A46731A46731A3642EAC7546A76F45A67247C3C2C0C8D0D4C8D0
              D4C8D0D4C8D0D4C8D0D4B5835DD7AD83B5702DB97738B97738B97738B46E2BDB
              B38BC29571AB651CAB7748C2C0BDC8D0D4C8D0D4C8D0D4C8D0D4B17F58D5AF8F
              BD7645BF7A4ABF7A4BBF7A4BB9713EDCB18FBC9270AB661EB77428A87142B8C0
              CBC8D0D4C8D0D4C8D0D4A07759C2B1A0E7B896DCA681DDA884DEA884E1AA86EF
              D0B9C1BCB79A5F2CB87324B473295F6793B8C1CDC8D0D4C8D0D4C3C2C0B38867
              E6BE9BECC29FE8BE9AE9BF9BF2CCACEECDB3E9C3A5BD7C4AAA6621B977296778
              9A5268A5B4BDCBC8D0D4C8D0D4C3C3C2B37D56E49F6BEBA672E7A26EE6A06CE6
              A06BE9A36EEAA877BD7B47AA68238694B35F80B750649DB5BECBC8D0D4C8D0D4
              C4C6C5B17E57E8A36CF1A76DEBA169ECA26AEBA26AEEA46CF0A56DC1773F5564
              8D7796CA6380B26977A9C8D0D4C8D0D4C8D0D4C3C3C1A17B69C5AFA5D4BDA9CE
              B6A5CEB7A5CEB6A5D0B8A6D2BBA96B7CAC45629E7B97C66E7CACC8D0D4C8D0D4
              C8D0D4C8D0D4BDC1C6627EBEA6CDEDAFD7F4A8D1EFA9D1EFA9D1EFABD4F1B1D3
              EC677FB349649D6D7AAAC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4BBC4CF697BAFA9
              C9E4B2D4EBACCDE7ADCEE7ADCEE7B0D2E9B3D4EB6B85B845579CC8D0D4C8D0D4
              C8D0D4C8D0D4C8D0D4C8D0D4B7C0CC7187B26881B56279B2637AB2637AB2637A
              B2657DB3657DB35B71ACC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8
              D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4
              C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0
              D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8
              D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4}
            OnClick = DeleteColFromIndexBtnClick
          end
          object IndexTypeCBox: TComboBox
            Left = 10
            Top = 66
            Width = 143
            Height = 21
            Style = csDropDownList
            Enabled = False
            ItemHeight = 15
            Items.Strings = (
              'PRIMARY'
              'INDEX'
              'UNIQUE INDEX'
              'FULLTEXT INDEX')
            ItemIndex = 0
            TabOrder = 0
            Text = 'PRIMARY'
            OnCloseUp = IndexTypeCBoxCloseUp
          end
          object Label11: TLabel
            Left = 11
            Top = 52
            Width = 56
            Height = 13
            Alignment = taRightJustify
            Caption = 'Index Type:'
          end
          object IndexNameEd: TEdit
            Left = 10
            Top = 16
            Width = 143
            Height = 21
            Hint = 
              'The Indexname cannot be modified. Delete the index and create a ' +
              'new one instead.'
            Enabled = False
            ParentShowHint = False
            ReadOnly = True
            ShowHint = True
            TabOrder = 2
            OnDblClick = IndexListBoxDblClick
          end
          object IndexColListBox: TListBox
            Left = 168
            Top = 16
            Width = 175
            Height = 99
            PopupMenu = IndexColumnsPopupMenu
            TabOrder = 3
            OnDragDrop = IndexColListBoxDragDrop
            OnDragOver = IndexColListBoxDragOver
            OnMouseDown = IndexColListBoxMouseDown
          end
        end
        object IndexListBox: TListBox
          Left = 0
          Top = 6
          Width = 121
          Height = 121
          Items.Strings = (
            'PRIMARY'
            'product_name')
          Rows = 2
          TabOrder = 1
          OnClick = IndexListBoxClick
          OnDblClick = IndexListBoxDblClick
        end
        object IndexColumnsLbl: TLabel
          Left = 322
          Top = 0
          Width = 49
          Height = 13
          Caption = 'Columns   '
        end
        object IndexDragHintLbl: TLabel
          Left = 366
          Top = 0
          Width = 158
          Height = 13
          Caption = '(use Drag'#39'n'#39'Drop to add Columns)'
        end
      end
      object TblOptionsSheet: TTabSheet
        Caption = 'TblOptionsSheet'
        ImageIndex = 1
        object Label4: TLabel
          Left = 16
          Top = 9
          Width = 130
          Height = 13
          Alignment = taRightJustify
          Caption = 'Next Auto-Increment Value:'
        end
        object NextAutoIncEd: TEdit
          Left = 149
          Top = 5
          Width = 75
          Height = 21
          TabOrder = 0
        end