main.dfm

导出ORACLE 8/9系列的表空间结构并打印

            Footers = <>
            Title.Caption = #24517#39035
            Title.Font.Charset = ANSI_CHARSET
            Title.Font.Color = clWindowText
            Title.Font.Height = -12
            Title.Font.Name = #23435#20307
            Title.Font.Style = []
            Width = 38
          end
          item
            IsCurrency = False
            EditButtons = <>
            FieldName = 'DATA_DEFAULT'
            Footers = <>
            Title.Caption = #32570#30465#20540
            Title.Font.Charset = ANSI_CHARSET
            Title.Font.Color = clWindowText
            Title.Font.Height = -12
            Title.Font.Name = #23435#20307
            Title.Font.Style = []
            Width = 104
          end
          item
            IsCurrency = False
            EditButtons = <>
            FieldName = 'COMMENTS'
            Footers = <>
            Title.Caption = #27880#37322
            Title.Font.Charset = ANSI_CHARSET
            Title.Font.Color = clWindowText
            Title.Font.Height = -12
            Title.Font.Name = #23435#20307
            Title.Font.Style = []
            Width = 214
          end>
      end
    end
    object suiGroupBox2: TsuiGroupBox
      Left = 0
      Top = 61
      Width = 768
      Height = 204
      UIStyle = WinXP
      Align = alClient
      Caption = #34920#20449#24687#65306
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentColor = True
      ParentFont = False
      TabOrder = 3
      BorderColor = 6842472
      object DBGridEh2: TDBGridEh
        Left = 3
        Top = 17
        Width = 762
        Height = 184
        FixGridlinecolor = clGray
        Gridlinecolor = 8421440
        FooterDisplayStyle = False
        CurrencyStyle.CurrencyFont.Charset = DEFAULT_CHARSET
        CurrencyStyle.CurrencyFont.Color = clWindowText
        CurrencyStyle.CurrencyFont.Height = -11
        CurrencyStyle.CurrencyFont.Name = 'MS Sans Serif'
        CurrencyStyle.CurrencyFont.Style = []
        CurrencyStyle.CurrencySymbol = #65509
        CurrencyStyle.CompartColor = clSilver
        CurrencyStyle.KilobitColor = clGreen
        CurrencyStyle.RadixColor = clRed
        CurrencyStyle.ShowMinus = True
        CurrencyStyle.ShowZero = False
        CurrencyStyle.MinusColor = clRed
        CurrencyStyle.Layout = tlCenter
        CurrencyStyle.HeadFont.Charset = DEFAULT_CHARSET
        CurrencyStyle.HeadFont.Color = clWindowText
        CurrencyStyle.HeadFont.Height = -11
        CurrencyStyle.HeadFont.Name = #26999#20307'_GB2312'
        CurrencyStyle.HeadFont.Style = []
        Align = alClient
        DataSource = DataModule1.OraDataSource1
        Flat = True
        FooterColor = 14609391
        FooterFont.Charset = ANSI_CHARSET
        FooterFont.Color = clBlack
        FooterFont.Height = -12
        FooterFont.Name = #23435#20307
        FooterFont.Style = []
        Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
        OptionsEh = [dghFixed3D, dghFrozen3D, dghFooter3D, dghData3D, dghClearSelection]
        ParentColor = True
        ReadOnly = True
        TabOrder = 0
        TitleFont.Charset = ANSI_CHARSET
        TitleFont.Color = clBlack
        TitleFont.Height = -12
        TitleFont.Name = #23435#20307
        TitleFont.Style = []
        Columns = <
          item
            IsCurrency = False
            EditButtons = <>
            FieldName = 'TABLE_NAME'
            Footers = <>
            Title.Caption = #25968#25454#34920#21517
            Width = 204
          end
          item
            IsCurrency = False
            EditButtons = <>
            FieldName = 'TABLESPACE_NAME'
            Footers = <>
            Title.Caption = #25152#23646#34920#31354#38388
          end
          item
            IsCurrency = False
            EditButtons = <>
            FieldName = 'TABLE_TYPE'
            Footers = <>
            Title.Caption = #34920#31867#22411
          end
          item
            IsCurrency = False
            EditButtons = <>
            FieldName = 'COMMENTS'
            Footers = <>
            Title.Caption = #27880#37322
            Width = 285
          end>
      end
    end
    object suiToolBar1: TsuiToolBar
      Left = 0
      Top = 26
      Width = 768
      Height = 35
      AutoSize = True
      ButtonHeight = 35
      ButtonWidth = 67
      Caption = 'suiToolBar1'
      EdgeInner = esNone
      EdgeOuter = esNone
      Flat = True
      Images = ImageList1
      ShowCaptions = True
      TabOrder = 4
      UIStyle = WinXP
      ButtonColor = 15717318
      ButtonBorderColor = 13003057
      ButtonDownColor = 14789779
      object ToolButton1: TToolButton
        Left = 0
        Top = 0
        Action = Connect
        AutoSize = True
      end
      object ToolButton2: TToolButton
        Left = 71
        Top = 0
        Action = DisConnect
        AutoSize = True
      end
      object ToolButton3: TToolButton
        Left = 130
        Top = 0
        Width = 8
        Caption = 'ToolButton3'
        ImageIndex = 35
        Style = tbsSeparator
      end
      object ToolButton4: TToolButton
        Left = 138
        Top = 0
        Action = GetStruct
        AutoSize = True
      end
      object ToolButton5: TToolButton
        Left = 209
        Top = 0
        Action = PrintStruct
        AutoSize = True
      end
      object ToolButton6: TToolButton
        Left = 280
        Top = 0
        Width = 8
        Caption = 'ToolButton6'
        ImageIndex = 178
        Style = tbsSeparator
      end
      object ToolButton7: TToolButton
        Left = 288
        Top = 0
        AutoSize = True
        Caption = #30028#38754#20999#25442
        DropdownMenu = suiPopupMenu1
        ImageIndex = 178
        Style = tbsDropDown
      end
      object ToolButton9: TToolButton
        Left = 360
        Top = 0
        Width = 8
        Caption = 'ToolButton9'
        ImageIndex = 180
        Style = tbsSeparator
      end
      object ToolButton8: TToolButton
        Left = 368
        Top = 0
        Action = About
        AutoSize = True
      end
      object ToolButton10: TToolButton
        Left = 439
        Top = 0
        Action = MyHelp
        AutoSize = True
      end
      object ToolButton11: TToolButton
        Left = 498
        Top = 0
        Width = 8
        Caption = 'ToolButton11'
        ImageIndex = 4
        Style = tbsSeparator
      end
      object ToolButton12: TToolButton
        Left = 506
        Top = 0
        Action = Exit
        AutoSize = True
      end
    end
  end
  object suiMessageDialog1: TsuiMessageDialog
    Position = poScreenCenter
    Caption = 'suiDialog'
    UIStyle = WinXP
    Font.Charset = ANSI_CHARSET