main.dfm

AbsDataBase5.16 最新版

                Expanded = False
                FieldName = 'sortorder'
                Visible = False
              end
              item
                Expanded = False
                FieldName = 'Name'
                Width = 85
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'Type'
                Width = 55
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'Size'
                Width = 28
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'Required'
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'Default'
                Width = 40
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'MinValue'
                Width = 39
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'MaxValue'
                Width = 42
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'BLOBCompressionAlgorithm'
                Title.Caption = 'BLOBComprAlg'
                Width = 78
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'BLOBCompressionMode'
                Title.Caption = 'BLOBComprMode'
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'BLOBBlockSize'
                Visible = True
              end>
          end
        end
        object Panel3: TPanel
          Left = 0
          Top = 236
          Width = 592
          Height = 159
          Align = alClient
          BevelOuter = bvNone
          TabOrder = 1
          DesignSize = (
            592
            159)
          object Label4: TLabel
            Left = 0
            Top = 8
            Width = 40
            Height = 13
            Caption = 'Indexes:'
          end
          object dbgIndexes: TDBGrid
            Left = 0
            Top = 22
            Width = 584
            Height = 128
            Anchors = [akLeft, akTop, akRight, akBottom]
            DataSource = dsIndexes
            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
                Expanded = False
                FieldName = 'sortorder'
                Visible = False
              end
              item
                Expanded = False
                FieldName = 'Type'
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'Name'
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'Columns'
                Width = 200
                Visible = True
              end>
          end
        end
      end
      object tsExportToSql: TTabSheet
        Caption = 'Export SQL'
        ImageIndex = 4
        object reExportToSql: TRichEdit
          Left = 0
          Top = 114
          Width = 592
          Height = 278
          Align = alClient
          Font.Charset = RUSSIAN_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = 'Courier New'
          Font.Style = []
          ParentFont = False
          ScrollBars = ssBoth
          TabOrder = 0
          WordWrap = False
        end
        object GroupBox1: TGroupBox
          Left = 0
          Top = 0
          Width = 592
          Height = 114
          Align = alTop
          Caption = 'Export Selected Tables'
          Constraints.MinWidth = 440
          TabOrder = 1
          object cbAddDropTable: TCheckBox
            Left = 32
            Top = 31
            Width = 121
            Height = 17
            Caption = 'Add DROP TABLE'
            Checked = True
            State = cbChecked
            TabOrder = 0
          end
          object cbStructure: TCheckBox
            Left = 16
            Top = 14
            Width = 73
            Height = 17
            Caption = 'Structure'
            Checked = True
            State = cbChecked
            TabOrder = 1
            OnClick = cbStructureClick
          end
          object cbData: TCheckBox
            Left = 176
            Top = 14
            Width = 57
            Height = 17
            Caption = 'Data'
            TabOrder = 2
            OnClick = cbDataClick
          end
          object cbBlobSettings: TCheckBox
            Left = 32
            Top = 48
            Width = 89
            Height = 17
            Caption = 'Blob Settings'
            TabOrder = 3
          end
          object cbFieldNamesInInsert: TCheckBox
            Left = 192
            Top = 31
            Width = 137
            Height = 17
            Caption = 'Field Names in INSERT'
            Enabled = False
            TabOrder = 4
          end
          object btnExpotrAsSqlToScreeen: TButton
            Left = 12
            Top = 78
            Width = 153
            Height = 25
            Action = aExportAsSqlToScreen
            Default = True
            TabOrder = 5
          end
          object btnExpotrAsSqlToFile: TButton
            Left = 177
            Top = 78
            Width = 153
            Height = 25
            Action = aExportAsSqlToFile
            TabOrder = 6
          end
        end
      end
      object tsTableData: TTabSheet
        Caption = 'Data'
        ImageIndex = 1
        object dbgTableData: TDBGrid
          Left = 0
          Top = 35
          Width = 592
          Height = 357
          Align = alClient
          DataSource = dsTable
          Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgConfirmDelete, dgCancelOnExit]
          TabOrder = 0
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
          OnDblClick = dbgTableDataDblClick
        end
        object Panel7: TPanel
          Left = 0
          Top = 0
          Width = 592
          Height = 35
          Align = alTop
          BevelOuter = bvNone
          TabOrder = 1
          DesignSize = (
            592
            35)
          object Label2: TLabel
            Left = 37
            Top = 8
            Width = 68
            Height = 13
            Caption = 'Record count:'
          end
          object lRecordCount: TLabel
            Left = 109
            Top = 8
            Width = 8
            Height = 13
            Caption = '0'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlack
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = [fsBold]
            ParentFont = False
          end
          object DBNavigator1: TDBNavigator
            Left = 341
            Top = 3
            Width = 240
            Height = 25
            DataSource = dsTable
            Anchors = [akTop, akRight]
            TabOrder = 0
          end
          object ToolBar2: TToolBar
            Left = 3
            Top = 4
            Width = 26
            Height = 25
            Align = alNone
            Caption = 'ToolBar1'
            EdgeBorders = []
            EdgeInner = esNone
            EdgeOuter = esNone
            Flat = True
            Images = ilActions
            TabOrder = 1
            Transparent = False
            object ToolButton2: TToolButton
              Left = 0
              Top = 0
              Action = aExportToExcel
            end
          end
        end
      end
      object tsSQL: TTabSheet
        Caption = 'SQL'
        ImageIndex = 2
        object Splitter3: TSplitter
          Left = 0
          Top = 243