main.dfm

AbsDataBase5.16 最新版

object frmMain: TfrmMain
  Left = 203
  Top = 146
  Width = 750
  Height = 530
  Caption = 'Absolute Database Manager'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  ShowHint = True
  OnActivate = FormActivate
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object StatusBar: TStatusBar
    Left = 0
    Top = 480
    Width = 742
    Height = 19
    Panels = <>
  end
  object CoolBar1: TCoolBar
    Left = 0
    Top = 0
    Width = 742
    Height = 57
    AutoSize = True
    Bands = <
      item
        Break = False
        Control = MainMenu
        ImageIndex = -1
        MinWidth = 25
        Width = 738
      end
      item
        Control = ActionToolBar2
        ImageIndex = -1
        MinHeight = 26
        Width = 738
      end>
    object MainMenu: TActionMainMenuBar
      Left = 9
      Top = 0
      Width = 725
      Height = 25
      UseSystemFont = False
      ActionManager = ActionManager
      Caption = 'MainMenu'
      ColorMap.HighlightColor = 14410210
      ColorMap.BtnSelectedColor = clBtnFace
      ColorMap.UnusedColor = 14410210
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentShowHint = False
      PersistentHotKeys = True
      ShowHint = True
      Spacing = 0
    end
    object ActionToolBar2: TActionToolBar
      Left = 9
      Top = 27
      Width = 725
      Height = 26
      ActionManager = ActionManager
      Caption = 'ActionToolBar2'
      ColorMap.HighlightColor = 14410210
      ColorMap.BtnSelectedColor = clBtnFace
      ColorMap.UnusedColor = 14410210
      Spacing = 0
    end
  end
  object pMainPanel: TPanel
    Left = 0
    Top = 57
    Width = 742
    Height = 423
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 2
    object Splitter1: TSplitter
      Left = 137
      Top = 0
      Width = 5
      Height = 423
      Beveled = True
    end
    object pnlTree: TPanel
      Left = 0
      Top = 0
      Width = 137
      Height = 423
      Align = alLeft
      BevelOuter = bvNone
      Constraints.MinWidth = 1
      TabOrder = 0
      object tvDatabase: TTreeView
        Left = 0
        Top = 0
        Width = 137
        Height = 423
        Align = alClient
        AutoExpand = True
        DragMode = dmAutomatic
        HideSelection = False
        Images = ilDbTree
        Indent = 19
        MultiSelect = True
        MultiSelectStyle = [msControlSelect, msShiftSelect, msVisibleOnly, msSiblingOnly]
        PopupMenu = pmTables
        ReadOnly = True
        RightClickSelect = True
        RowSelect = True
        ShowRoot = False
        SortType = stText
        TabOrder = 0
        OnChange = tvDatabaseChange
        OnCollapsing = tvDatabaseCollapsing
        OnDblClick = tvDatabaseDblClick
        OnKeyDown = tvDatabaseKeyDown
        OnMouseMove = tvDatabaseMouseMove
      end
    end
    object pcTables: TPageControl
      Left = 142
      Top = 0
      Width = 600
      Height = 423
      ActivePage = tsSQL
      Align = alClient
      TabOrder = 1
      OnChange = pcTablesChange
      object tsDatabase: TTabSheet
        Caption = 'Database Data'
        ImageIndex = 3
        Constraints.MinWidth = 450
        DesignSize = (
          592
          395)
        object Label1: TLabel
          Left = 75
          Top = 120
          Width = 48
          Height = 13
          Caption = 'Page Size'
        end
        object Label7: TLabel
          Left = 24
          Top = 144
          Width = 99
          Height = 13
          Caption = 'Page count in Extent'
        end
        object Label10: TLabel
          Left = 46
          Top = 243
          Width = 76
          Height = 13
          Caption = 'Crypto Algorithm'
        end
        object Label8: TLabel
          Left = 24
          Top = 49
          Width = 99
          Height = 13
          Caption = 'Database File Name:'
        end
        object Label9: TLabel
          Left = 81
          Top = 77
          Width = 42
          Height = 13
          Caption = 'File Size:'
        end
        object Label11: TLabel
          Left = 41
          Top = 168
          Width = 82
          Height = 13
          Caption = 'Max Connections'
        end
        object cbEncrypted: TCheckBox
          Left = 129
          Top = 213
          Width = 121
          Height = 17
          Caption = 'Encrypted Database'
          Enabled = False
          TabOrder = 5
        end
        object ePageSize: TEdit
          Left = 128
          Top = 117
          Width = 121
          Height = 21
          ReadOnly = True
          TabOrder = 2
        end
        object ePageCountInExtent: TEdit
          Left = 128
          Top = 141
          Width = 121
          Height = 21
          ReadOnly = True
          TabOrder = 3
        end
        object eCryproAlgorithm: TEdit
          Left = 128
          Top = 239
          Width = 121
          Height = 21
          ReadOnly = True
          TabOrder = 6
        end
        object eDatabaseFileName: TEdit
          Left = 128
          Top = 46
          Width = 264
          Height = 21
          Anchors = [akLeft, akTop, akRight]
          ReadOnly = True
          TabOrder = 0
        end
        object eDatabaseFileSize: TEdit
          Left = 128
          Top = 73
          Width = 121
          Height = 21
          ReadOnly = True
          TabOrder = 1
        end
        object eMaxConnections: TEdit
          Left = 128
          Top = 165
          Width = 121
          Height = 21
          ReadOnly = True
          TabOrder = 4
        end
        object Button1: TButton
          Left = 128
          Top = 280
          Width = 153
          Height = 25
          Action = aChangeDatabaseParams
          TabOrder = 7
        end
      end
      object tsStructure: TTabSheet
        Caption = 'Structure'
        Constraints.MinWidth = 450
        object Splitter2: TSplitter
          Left = 0
          Top = 233
          Width = 592
          Height = 3
          Cursor = crVSplit
          Align = alTop
          Beveled = True
        end
        object Panel2: TPanel
          Left = 0
          Top = 0
          Width = 592
          Height = 233
          Align = alTop
          BevelOuter = bvNone
          TabOrder = 0
          DesignSize = (
            592
            233)
          object Label3: TLabel
            Left = 0
            Top = 1
            Width = 30
            Height = 13
            Caption = 'Fields:'
          end
          object dbgFields: TDBGrid
            Left = 0
            Top = 17
            Width = 584
            Height = 216
            Anchors = [akLeft, akTop, akRight, akBottom]
            DataSource = dsFields
            Options = [dgEditing, dgTitles, dgColumnResize, dgColLines, dgRowLines, dgConfirmDelete, dgCancelOnExit]
            ReadOnly = True
            TabOrder = 0
            TitleFont.Charset = DEFAULT_CHARSET
            TitleFont.Color = clWindowText
            TitleFont.Height = -11
            TitleFont.Name = 'MS Sans Serif'
            TitleFont.Style = []
            Columns = <
              item
                Expanded = False
                FieldName = 'id'
                Visible = False
              end
              item