main.dfm

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

        end
      end
    end
    object Panel2: TPanel
      Left = 0
      Top = 0
      Width = 256
      Height = 122
      Align = alTop
      BevelOuter = bvNone
      TabOrder = 1
      object Panel1: TPanel
        Left = 2
        Top = 1
        Width = 253
        Height = 122
        BevelOuter = bvNone
        Color = 16591631
        TabOrder = 0
        object Panel15: TPanel
          Left = 1
          Top = 1
          Width = 251
          Height = 60
          BevelOuter = bvNone
          TabOrder = 0
          object Label1: TLabel
            Left = 11
            Top = 6
            Width = 48
            Height = 13
            Alignment = taRightJustify
            Caption = 'Updates'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clMaroon
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = [fsBold]
            ParentFont = False
          end
          object Panel12: TPanel
            Left = 12
            Top = 26
            Width = 229
            Height = 24
            BevelOuter = bvNone
            Color = 16591631
            TabOrder = 0
            object btApply: TSpeedButton
              Left = 1
              Top = 1
              Width = 75
              Height = 22
              Caption = 'Apply'
              Flat = True
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clMaroon
              Font.Height = -11
              Font.Name = 'MS Sans Serif'
              Font.Style = [fsBold]
              ParentFont = False
              Transparent = False
              OnClick = btApplyClick
            end
            object btCancel: TSpeedButton
              Left = 153
              Top = 1
              Width = 75
              Height = 22
              Caption = 'Cancel'
              Flat = True
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clMaroon
              Font.Height = -11
              Font.Name = 'MS Sans Serif'
              Font.Style = [fsBold]
              ParentFont = False
              Transparent = False
              OnClick = btCancelClick
            end
            object btCommit: TSpeedButton
              Left = 77
              Top = 1
              Width = 75
              Height = 22
              Caption = 'Commit'
              Flat = True
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clMaroon
              Font.Height = -11
              Font.Name = 'MS Sans Serif'
              Font.Style = [fsBold]
              ParentFont = False
              Transparent = False
              OnClick = btCommitClick
            end
          end
        end
        object Panel17: TPanel
          Left = 1
          Top = 62
          Width = 251
          Height = 58
          BevelOuter = bvNone
          TabOrder = 1
          object Label6: TLabel
            Left = 11
            Top = 6
            Width = 74
            Height = 13
            Alignment = taRightJustify
            Caption = 'Transactions'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clNavy
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = [fsBold]
            ParentFont = False
          end
          object Panel5: TPanel
            Left = 12
            Top = 26
            Width = 229
            Height = 24
            BevelOuter = bvNone
            Color = 16591631
            TabOrder = 0
            object btStartTrans: TSpeedButton
              Left = 1
              Top = 1
              Width = 75
              Height = 22
              Caption = 'Start'
              Flat = True
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clNavy
              Font.Height = -11
              Font.Name = 'MS Sans Serif'
              Font.Style = [fsBold]
              ParentFont = False
              Transparent = False
              OnClick = btStartTransClick
            end
            object btCommitTrans: TSpeedButton
              Left = 77
              Top = 1
              Width = 75
              Height = 22
              Caption = 'Commit'
              Flat = True
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clNavy
              Font.Height = -11
              Font.Name = 'MS Sans Serif'
              Font.Style = [fsBold]
              ParentFont = False
              Transparent = False
              OnClick = btCommitTransClick
            end
            object btRollbackTrans: TSpeedButton
              Left = 153
              Top = 1
              Width = 75
              Height = 22
              Caption = 'Rollback'
              Flat = True
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clNavy
              Font.Height = -11
              Font.Name = 'MS Sans Serif'
              Font.Style = [fsBold]
              ParentFont = False
              Transparent = False
              OnClick = btRollbackTransClick
            end
          end
        end
      end
    end
  end
  object StatusBar: TStatusBar
    Left = 0
    Top = 529
    Width = 863
    Height = 19
    Panels = <
      item
        Width = 208
      end
      item
        Width = 208
      end
      item
        Width = 208
      end
      item
        Width = 50
      end>
  end
  object pnTop: TPanel
    Left = 0
    Top = 0
    Width = 863
    Height = 49
    Align = alTop
    BevelOuter = bvNone
    ParentColor = True
    TabOrder = 3
    OnMouseMove = pnTopMouseMove
    object lbAbout: TLabel
      Left = 813
      Top = 6
      Width = 34
      Height = 13
      Cursor = crHandPoint
      Anchors = [akTop, akRight]
      Caption = 'About'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold, fsUnderline]
      ParentFont = False
      OnClick = lbAboutClick
      OnMouseMove = lbAboutMouseMove
    end
    object Panel18: TPanel
      Left = 2
      Top = 1
      Width = 418
      Height = 47
      BevelOuter = bvNone
      Color = 16591631
      TabOrder = 0
      object btConnect: TSpeedButton
        Left = 167
        Top = 1
        Width = 82
        Height = 22
        Caption = 'Connect'
        Flat = True
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        NumGlyphs = 2
        ParentFont = False
        Transparent = False
        OnClick = btConnectClick
      end
      object btDisconnect: TSpeedButton
        Left = 250
        Top = 1
        Width = 82
        Height = 22
        Caption = 'Disconnect'
        Enabled = False
        Flat = True
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        NumGlyphs = 2
        ParentFont = False
        Transparent = False
        OnClick = btDisconnectClick
      end
      object btClose: TSpeedButton
        Left = 84
        Top = 1
        Width = 82
        Height = 22
        Caption = 'Close'
        Flat = True
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        Transparent = False
        OnClick = btCloseClick
      end
      object btOpen: TSpeedButton
        Left = 1
        Top = 1
        Width = 82
        Height = 22
        Caption = 'Open'
        Flat = True
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        Transparent = False
        OnClick = btOpenClick
      end
      object btKillSession: TSpeedButton
        Left = 333
        Top = 1
        Width = 84
        Height = 22
        Caption = 'Kill session'
        Enabled = False
        Flat = True
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clRed
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        Transparent = False
        OnClick = btKillSessionClick
      end
      object btCreate: TSpeedButton
        Left = 1
        Top = 24
        Width = 82
        Height = 22
        Caption = 'Create'
        Flat = True
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        Transparent = False
        OnClick = btCreateDropClick
      end
      object btDrop: TSpeedButton
        Left = 84
        Top = 24
        Width = 82
        Height = 22
        Caption = 'Drop'
        Flat = True
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        Transparent = False
        OnClick = btCreateDropClick
      end
      object DBNavigator1: TDBNavigator
        Left = 167
        Top = 24
        Width = 250
        Height = 22
        DataSource = DM.dsMaster
        Flat = True
        TabOrder = 0
      end
    end
    object cbDebug: TCheckBox
      Left = 736
      Top = 5
      Width = 64
      Height = 17
      Anchors = [akTop, akRight]
      Caption = 'Debug'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 1
      OnClick = cbDebugClick
    end
  end
end