main.nfm

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

object MainForm: TMainForm
  Left = 200
  Top = 130
  Width = 871
  Height = 575
  Caption = 'FailOver Demo'
  Color = clBtnFace
  Constraints.MinHeight = 480
  Constraints.MinWidth = 820
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnActivate = FormActivate
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object pnRight: TPanel
    Left = 256
    Top = 49
    Width = 607
    Height = 480
    Align = alClient
    BevelOuter = bvNone
    ParentColor = True
    TabOrder = 0
    object Splitter1: TSplitter
      Left = 0
      Top = 331
      Width = 607
      Height = 2
      Cursor = crVSplit
      Align = alTop
      Beveled = True
      Color = clBtnFace
      ParentColor = False
      ResizeStyle = rsUpdate
    end
    object pnMiddle: TPanel
      Left = 0
      Top = 0
      Width = 607
      Height = 331
      Align = alTop
      BevelOuter = bvNone
      Constraints.MinHeight = 160
      ParentColor = True
      TabOrder = 0
      object Splitter: TSplitter
        Left = 0
        Top = 153
        Width = 607
        Height = 2
        Cursor = crVSplit
        Align = alTop
        Beveled = True
        Color = clBtnFace
        MinSize = 100
        ParentColor = False
        ResizeStyle = rsUpdate
      end
      object pnDetail: TPanel
        Left = 0
        Top = 155
        Width = 607
        Height = 176
        Align = alClient
        BevelOuter = bvNone
        ParentColor = True
        TabOrder = 0
        object DBGrid2: TDBGrid
          Left = 0
          Top = 27
          Width = 607
          Height = 149
          Align = alClient
          DataSource = DM.dsDetail
          TabOrder = 0
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
        end
        object Panel9: TPanel
          Left = 0
          Top = 0
          Width = 607
          Height = 27
          Align = alTop
          BevelOuter = bvNone
          TabOrder = 1
          object Panel7: TPanel
            Left = 0
            Top = 2
            Width = 242
            Height = 24
            BevelOuter = bvNone
            Color = 16591631
            TabOrder = 0
            object DBNavigator2: TDBNavigator
              Left = 1
              Top = 1
              Width = 240
              Height = 22
              DataSource = DM.dsDetail
              Flat = True
              TabOrder = 0
            end
          end
        end
      end
      object pnMaster: TPanel
        Left = 0
        Top = 0
        Width = 607
        Height = 153
        Align = alTop
        BevelOuter = bvNone
        Constraints.MinHeight = 100
        ParentColor = True
        TabOrder = 1
        object DBGrid1: TDBGrid
          Left = 0
          Top = 1
          Width = 607
          Height = 152
          Align = alBottom
          Anchors = [akLeft, akTop, akRight, akBottom]
          DataSource = DM.dsMaster
          TabOrder = 0
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
        end
      end
    end
    object pnBottom: TPanel
      Left = 0
      Top = 333
      Width = 607
      Height = 147
      Align = alClient
      BevelOuter = bvNone
      Color = 16591631
      TabOrder = 1
      object meLog: TMemo
        Left = 0
        Top = 0
        Width = 607
        Height = 147
        Align = alClient
        ReadOnly = True
        ScrollBars = ssVertical
        TabOrder = 0
      end
    end
  end
  object pnLeft: TPanel
    Left = 0
    Top = 49
    Width = 256
    Height = 480
    Align = alLeft
    BevelOuter = bvNone
    ParentColor = True
    TabOrder = 1
    object Panel8: TPanel
      Left = 1
      Top = 128
      Width = 243
      Height = 254
      BevelOuter = bvNone
      TabOrder = 0
      object cbPooling: TCheckBox
        Left = 8
        Top = 138
        Width = 150
        Height = 17
        Caption = 'Pooling'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 6
        OnClick = cbPoolingClick
      end
      object pnPooling: TPanel
        Left = 26
        Top = 157
        Width = 215
        Height = 95
        BevelOuter = bvNone
        Color = 16591631
        TabOrder = 7
        object Panel10: TPanel
          Left = 1
          Top = 1
          Width = 213
          Height = 93
          Anchors = [akLeft, akTop, akRight, akBottom]
          BevelOuter = bvNone
          TabOrder = 0
          object Label2: TLabel
            Left = 6
            Top = 54
            Width = 90
            Height = 13
            Caption = 'ConnectionLifetime'
          end
          object Label3: TLabel
            Left = 6
            Top = 8
            Width = 61
            Height = 13
            Caption = 'MaxPoolSize'
          end
          object Label4: TLabel
            Left = 6
            Top = 31
            Width = 58
            Height = 13
            Caption = 'MinPoolSize'
          end
          object cbValidate: TCheckBox
            Left = 6
            Top = 77
            Width = 111
            Height = 14
            Alignment = taLeftJustify
            Caption = 'Validate'
            TabOrder = 3
            OnClick = cbValidateClick
          end
          object edMaxPoolSize: TEdit
            Left = 104
            Top = 4
            Width = 103
            Height = 21
            TabOrder = 0
            OnExit = edMaxPoolSizeExit
          end
          object edMinPoolSize: TEdit
            Left = 104
            Top = 27
            Width = 103
            Height = 21
            TabOrder = 1
            OnExit = edMinPoolSizeExit
          end
          object edConnectionLifetime: TEdit
            Left = 104
            Top = 50
            Width = 103
            Height = 21
            TabOrder = 2
            OnExit = edConnectionLifetimeExit
          end
        end
      end
      object cbCachedUpdates: TCheckBox
        Left = 8
        Top = 7
        Width = 150
        Height = 17
        Caption = 'CachedUpdates'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 0
        OnClick = cbCachedUpdatesClick
      end
      object cbFailover: TCheckBox
        Left = 8
        Top = 88
        Width = 73
        Height = 17
        Caption = 'Failover'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 4
        OnClick = cbFailoverClick
      end
      object cbLocalMasterDetail: TCheckBox
        Left = 8
        Top = 27
        Width = 150
        Height = 17
        Caption = 'LocalMasterDetail'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 1
        OnClick = cbLocalMasterDetailClick
      end
      object cbDisconnectedMode: TCheckBox
        Left = 8
        Top = 68
        Width = 150
        Height = 17
        Caption = 'DisconnectedMode'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 3
        OnClick = cbDisconnectedModeClick
      end
      object cbFetchAll: TCheckBox
        Left = 8
        Top = 48
        Width = 97
        Height = 17
        Caption = 'FetchAll'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 2
        OnClick = cbFetchAllClick
      end
      object pnFailover: TPanel
        Left = 26
        Top = 106
        Width = 215
        Height = 28
        BevelOuter = bvNone
        Color = 16591631
        TabOrder = 5
        object Panel16: TPanel
          Left = 1
          Top = 1
          Width = 213
          Height = 26
          Anchors = [akLeft, akTop, akRight, akBottom]
          BevelOuter = bvNone
          TabOrder = 0
          object Label7: TLabel
            Left = 5
            Top = 7
            Width = 52
            Height = 13
            Caption = 'RetryMode'
          end
          object coRetryMode: TComboBox
            Left = 69
            Top = 3
            Width = 141
            Height = 21
            Style = csDropDownList
            ItemHeight = 13
            TabOrder = 0
            Items.Strings = (
              'Default'
              'Raise'
              'Reconnect'
              'ReconnectExecute')
          end