editorrelation.xfm

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

object EditorRelationForm: TEditorRelationForm
  Left = 574
  Top = 226
  ActiveControl = RelationNameEd
  AutoScroll = False
  BorderStyle = fbsToolWindow
  Caption = 'Relation Editor'
  ClientHeight = 472
  ClientWidth = 414
  Color = clBackground
  FormStyle = fsStayOnTop
  KeyPreview = True
  Position = poDefault
  Scaled = False
  OnClose = FormClose
  OnCreate = FormCreate
  OnDeactivate = FormDeactivate
  OnDestroy = FormDestroy
  OnKeyDown = FormKeyDown
  OnShow = FormShow
  PixelsPerInch = 96
  object Label1: TLabel
    Left = 16
    Top = 10
    Width = 70
    Height = 13
    Caption = 'Relation Name'
  end
  object RelationNameEd: TEdit
    Left = 16
    Top = 24
    Width = 131
    Height = 21
    TabOrder = 1
  end
  object Label17: TLabel
    Left = 162
    Top = 10
    Width = 63
    Height = 13
    Caption = 'Relation Kind'
  end
  object RelKindComboBox: TComboBox
    Left = 162
    Top = 24
    Width = 131
    Height = 21
    Style = csDropDownList
    ItemHeight = 15
    Items.Strings = (
      '1:1'
      '1:n'
      '1:n (Non-Identifying)'
      'n:m'
      '1:1 (Descendent Obj.)'
      '1:1 (Non-Identifying)')
    ItemIndex = 0
    TabOrder = 3
    Text = '1:1'
  end
  object GroupBox3: TGroupBox
    Left = 16
    Top = 126
    Width = 381
    Height = 127
    Caption = 'Foreign Keys'
    TabOrder = 4
    object FKGrid: TStringGrid
      Left = 16
      Top = 22
      Width = 345
      Height = 89
      ColCount = 3
      DefaultColWidth = 84
      DefaultRowHeight = 16
      Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goEditing]
      ScrollBars = ssVertical
      TabOrder = 0
    end
  end
  object Panel1: TPanel
    Left = 16
    Top = 278
    Width = 381
    Height = 145
    BevelInner = bvRaised
    BevelOuter = bvLowered
    Caption = 'Panel1'
    TabOrder = 5
    object RelPageControl: TPageControl
      Left = 8
      Top = 12
      Width = 361
      Height = 125
      ActivePage = RefSheet
      Style = tsNoTabs
      TabOrder = 0
      object RefSheet: TTabSheet
        Caption = 'RefSheet'
        ImageIndex = 2
        object CreateRefDefCBox: TCheckBox
          Left = 8
          Top = 5
          Width = 159
          Height = 17
          Caption = 'Create Reference Definition'
          TabOrder = 0
          OnClick = CreateRefDefCBoxClick
        end
        object MatchingLbl: TLabel
          Left = 90
          Top = 92
          Width = 47
          Height = 13
          Alignment = taRightJustify
          Caption = 'Matching:'
          Visible = False
        end
        object MatchLU: TComboBox
          Left = 142
          Top = 88
          Width = 203
          Height = 21
          Style = csDropDownList
          ItemHeight = 15
          Items.Strings = (
            'MATCH FULL'
            'MATCH PARTIAL')
          ItemIndex = 0
          TabOrder = 2
          Text = 'MATCH FULL'
          Visible = False
        end
        object OnDeleteLbl: TLabel
          Left = 86
          Top = 36
          Width = 51
          Height = 13
          Alignment = taRightJustify
          Caption = 'On Delete:'
        end
        object OnDeleteLU: TComboBox
          Left = 142
          Top = 32
          Width = 203
          Height = 21
          Style = csDropDownList
          ItemHeight = 15
          Items.Strings = (
            'RESTRICT'
            'CASCADE'
            'SET NULL'
            'NO ACTION'
            'SET DEFAULT')
          ItemIndex = 0
          TabOrder = 4
          Text = 'RESTRICT'
        end
        object OnUpdateLbl: TLabel
          Left = 82
          Top = 64
          Width = 55
          Height = 13
          Alignment = taRightJustify
          Caption = 'On Update:'
        end
        object OnUpdateLU: TComboBox
          Left = 142
          Top = 60
          Width = 203
          Height = 21
          Style = csDropDownList
          ItemHeight = 15
          Items.Strings = (
            'RESTRICT'
            'CASCADE'
            'SET NULL'
            'NO ACTION'
            'SET DEFAULT')
          ItemIndex = 0
          TabOrder = 6
          Text = 'RESTRICT'
        end
      end
      object OptionalSheet: TTabSheet
        Caption = 'OptionalSheet'
        ImageIndex = 1
        object OptStartCBox: TCheckBox
          Left = 8
          Top = 8
          Width = 147
          Height = 19
          Caption = 'Relation optional at Start'
          TabOrder = 0
        end
        object OptEndCBox: TCheckBox
          Left = 8
          Top = 34
          Width = 145
          Height = 19
          Caption = 'Relation optional at End'
          TabOrder = 1
        end
      end
      object CommentSheet: TTabSheet
        Caption = 'CommentSheet'
        object CommentsMemo: TMemo
          Left = 2
          Top = 2
          Width = 351
          Height = 111
          TabOrder = 0
        end
      end
    end
  end
  object RelPageCBox: TComboBox
    Left = 30
    Top = 269
    Width = 163
    Height = 21
    Style = csDropDownList
    DropDownCount = 4
    ItemHeight = 15
    Items.Strings = (
      'Reference Definition'
      'Optional Relation'
      'Comments')
    ItemIndex = 0
    TabOrder = 6
    Text = 'Reference Definition'
    OnCloseUp = RelPageCBoxCloseUp
  end
  object GroupBox1: TGroupBox
    Left = 16
    Top = 56
    Width = 381
    Height = 55
    Caption = 'Tables'
    TabOrder = 7
    object TblSourceEd: TEdit
      Left = 56
      Top = 20
      Width = 109
      Height = 21
      Color = clBackground
      TabOrder = 0
    end
    object Label2: TLabel
      Left = 12
      Top = 24
      Width = 37
      Height = 13
      Caption = 'Source:'
    end
    object Label3: TLabel
      Left = 190
      Top = 24
      Width = 56
      Height = 13
      Caption = 'Destination:'
    end
    object TblDestEd: TEdit
      Left = 252
      Top = 20
      Width = 109
      Height = 21
      Color = clBackground
      TabOrder = 3
    end
  end
  object BottomPnl: TPanel
    Left = 0
    Top = 437