datamodule.dfm

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

object DataModule1: TDataModule1
  OldCreateOrder = False
  Left = 201
  Top = 162
  Height = 410
  Width = 346
  object VirtualTable1: TVirtualTable
    Active = True
    FieldDefs = <
      item
        Name = 'TABLE_NAME'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'TABLE_TYPE'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'TABLESPACE_NAME'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'COMMENTS'
        DataType = ftString
        Size = 80
      end>
    Left = 56
    Top = 16
    Data = {
      010004000A005441424C455F4E414D45010032000A005441424C455F54595045
      010014000F005441424C4553504143455F4E414D45010014000800434F4D4D45
      4E545301005000000000000000}
    object VirtualTable1TABLE_NAME: TStringField
      FieldName = 'TABLE_NAME'
      Size = 50
    end
    object VirtualTable1TABLESPACE_NAME: TStringField
      FieldName = 'TABLESPACE_NAME'
    end
    object VirtualTable1TABLE_TYPE: TStringField
      FieldName = 'TABLE_TYPE'
    end
    object VirtualTable1COMMENTS: TStringField
      FieldName = 'COMMENTS'
      Size = 80
    end
  end
  object OraDataSource1: TOraDataSource
    DataSet = VirtualTable1
    Left = 184
    Top = 16
  end
  object OraSession1: TOraSession
    ConnectPrompt = False
    Options.Net = True
    Username = 'system'
    Password = 'manager'
    Server = 'server::scdz'
    ConnectDialog = ConnectDialog1
    Left = 56
    Top = 80
  end
  object ConnectDialog1: TConnectDialog
    SavePassword = True
    Caption = #36830#25509'ORACLE'#25968#25454#24211
    UsernameLabel = #29992#25143#21517#65306
    PasswordLabel = #36830#25509#23494#30721#65306
    ServerLabel = #26381#21153#22120'::SID'#65306
    ConnectButton = #36830#25509
    CancelButton = #21462#28040
    LabelSet = lsCustom
    Left = 184
    Top = 80
  end
  object OraDS_TableSpaces: TOraDataSource
    DataSet = OraQuery_TABLESPACES
    Left = 184
    Top = 144
  end
  object OraQuery_Column: TSmartQuery
    Session = OraSession1
    SQL.Strings = (
      'SELECT'
      '  A.COLUMN_NAME,A.DATA_TYPE,'
      
        '  DECODE(A.DATA_TYPE,'#39'NUMBER'#39',A.DATA_PRECISION,A.DATA_LENGTH) DA' +
        'TA_LENGTH,'
      
        '  DECODE(A.DATA_TYPE,'#39'NUMBER'#39',A.DATA_SCALE,A.DATA_PRECISION) DAT' +
        'A_PRECISION,'
      '  A.NULLABLE,A.DATA_DEFAULT,B.COMMENTS'
      'FROM '
      '  USER_TAB_COLUMNS A,USER_COL_COMMENTS B'
      'WHERE '
      '  A.TABLE_NAME = B.TABLE_NAME AND A.COLUMN_NAME = B.COLUMN_NAME'
      '  AND A.TABLE_NAME = :TABLE_NAME')
    MasterSource = OraDS_Table
    LockMode = lmNone
    Left = 56
    Top = 256
    ParamData = <
      item
        DataType = ftString
        Name = 'TABLE_NAME'
        ParamType = ptInput
        Value = 'E_BMB'
      end>
    object OraQuery_ColumnCOLUMN_NAME: TStringField
      FieldName = 'COLUMN_NAME'
      Required = True
      Size = 30
    end
    object OraQuery_ColumnDATA_TYPE: TStringField
      FieldName = 'DATA_TYPE'
      Required = True
      Size = 30
    end
    object OraQuery_ColumnDATA_LENGTH: TFloatField
      FieldName = 'DATA_LENGTH'
      Required = True
    end
    object OraQuery_ColumnDATA_PRECISION: TFloatField
      FieldName = 'DATA_PRECISION'
      Required = True
    end
    object OraQuery_ColumnNULLABLE: TStringField
      FieldName = 'NULLABLE'
      Required = True
      Size = 1
    end
    object OraQuery_ColumnDATA_DEFAULT: TMemoField
      FieldName = 'DATA_DEFAULT'
      BlobType = ftMemo
    end
    object OraQuery_ColumnCOMMENTS: TStringField
      FieldName = 'COMMENTS'
      Size = 4000
    end
  end
  object OraDS_Table: TOraDataSource
    DataSet = OraQuery_Table
    Left = 184
    Top = 200
  end
  object OraDS_Cloumn: TOraDataSource
    DataSet = OraQuery_Column
    Left = 184
    Top = 256
  end
  object OraQuery_Table: TSmartQuery
    Session = OraSession1
    SQL.Strings = (
      'SELECT '
      '  A.TABLE_NAME,A.TABLESPACE_NAME,B.TABLE_TYPE,B.COMMENTS '
      'FROM '
      '  USER_ALL_TABLES A,USER_TAB_COMMENTS B'
      'WHERE '
      
        '  A.TABLE_NAME = B.TABLE_NAME AND A.TABLESPACE_NAME = :TABLESPAC' +
        'E_NAME')
    MasterSource = OraDS_TableSpaces
    LockMode = lmNone
    Left = 56
    Top = 200
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'TABLESPACE_NAME'
      end>
    object OraQuery_TableTABLE_NAME: TStringField
      FieldName = 'TABLE_NAME'
      Size = 30
    end
    object OraQuery_TableTABLESPACE_NAME: TStringField
      FieldName = 'TABLESPACE_NAME'
      Size = 30
    end
    object OraQuery_TableTABLE_TYPE: TStringField
      FieldName = 'TABLE_TYPE'
      Required = True
      Size = 11
    end
    object OraQuery_TableCOMMENTS: TStringField
      FieldName = 'COMMENTS'
      Size = 4000
    end
  end
  object OraQuery_TABLESPACES: TOraQuery
    Session = OraSession1
    SQL.Strings = (
      'SELECT * FROM USER_TABLESPACES')
    Left = 56
    Top = 144
    object OraQuery_TABLESPACESTABLESPACE_NAME: TStringField
      FieldName = 'TABLESPACE_NAME'
      Required = True
      Size = 30
    end
    object OraQuery_TABLESPACESINITIAL_EXTENT: TFloatField
      FieldName = 'INITIAL_EXTENT'
      Required = True
    end
    object OraQuery_TABLESPACESNEXT_EXTENT: TFloatField
      FieldName = 'NEXT_EXTENT'
      Required = True
    end
    object OraQuery_TABLESPACESMIN_EXTENTS: TFloatField
      FieldName = 'MIN_EXTENTS'
      Required = True
    end
    object OraQuery_TABLESPACESMAX_EXTENTS: TFloatField
      FieldName = 'MAX_EXTENTS'
      Required = True
    end
    object OraQuery_TABLESPACESPCT_INCREASE: TFloatField
      FieldName = 'PCT_INCREASE'
      Required = True
    end
    object OraQuery_TABLESPACESMIN_EXTLEN: TFloatField
      FieldName = 'MIN_EXTLEN'
      Required = True
    end
    object OraQuery_TABLESPACESSTATUS: TStringField
      FieldName = 'STATUS'
      Required = True
      Size = 9
    end
    object OraQuery_TABLESPACESCONTENTS: TStringField
      FieldName = 'CONTENTS'
      Required = True
      Size = 9
    end
    object OraQuery_TABLESPACESLOGGING: TStringField
      FieldName = 'LOGGING'
      Required = True
      Size = 9
    end
  end
  object SmartQuery1: TSmartQuery
    Session = OraSession1
    SQL.Strings = (
      'SELECT'
      
        '  A.COLUMN_NAME,A.DATA_TYPE,DECODE(A.DATA_TYPE,'#39'NUMBER'#39',A.DATA_P' +
        'RECISION,A.DATA_LENGTH) DATA_LENGTH,'
      
        '  DECODE(A.DATA_TYPE,'#39'NUMBER'#39',A.DATA_SCALE,A.DATA_PRECISION) DAT' +
        'A_PRECISION,'
      '  A.NULLABLE,A.DATA_DEFAULT,B.COMMENTS'
      'FROM '
      '  USER_TAB_COLUMNS A,USER_COL_COMMENTS B'
      'WHERE '
      '  A.TABLE_NAME = B.TABLE_NAME AND A.COLUMN_NAME = B.COLUMN_NAME'
      '  AND A.TABLE_NAME = :TABLE_NAME')
    MasterSource = OraDataSource1
    LockMode = lmNone
    Left = 56
    Top = 312
    ParamData = <
      item
        DataType = ftString
        Name = 'TABLE_NAME'
        ParamType = ptInput
      end>
    object SmartQuery1COLUMN_NAME: TStringField
      FieldName = 'COLUMN_NAME'
      Required = True
      Size = 30
    end
    object SmartQuery1DATA_TYPE: TStringField
      FieldName = 'DATA_TYPE'
      Required = True
      Size = 30
    end
    object SmartQuery1DATA_LENGTH: TFloatField
      FieldName = 'DATA_LENGTH'
      Required = True
    end
    object SmartQuery1DATA_PRECISION: TFloatField
      FieldName = 'DATA_PRECISION'
      Required = True
    end
    object SmartQuery1NULLABLE: TStringField
      FieldName = 'NULLABLE'
      Required = True
      Size = 1
    end
    object SmartQuery1DATA_DEFAULT: TMemoField
      FieldName = 'DATA_DEFAULT'
      BlobType = ftMemo
    end
    object SmartQuery1COMMENTS: TStringField
      FieldName = 'COMMENTS'
      Size = 4000
    end
  end
  object OraDataSource5: TOraDataSource
    DataSet = SmartQuery1
    Left = 184
    Top = 312
  end
end