datamodule.pas

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

unit DataModule;

interface

uses
  SysUtils, Classes, DBAccess, OdacVcl, DB, Ora, MemDS, VirtualTable,
  OraSmart;

type
  TDataModule1 = class(TDataModule)
    VirtualTable1: TVirtualTable;
    OraDataSource1: TOraDataSource;
    OraSession1: TOraSession;
    ConnectDialog1: TConnectDialog;
    OraDS_TableSpaces: TOraDataSource;
    VirtualTable1TABLE_NAME: TStringField;
    VirtualTable1COMMENTS: TStringField;
    OraQuery_Column: TSmartQuery;
    OraDS_Table: TOraDataSource;
    OraDS_Cloumn: TOraDataSource;
    OraQuery_Table: TSmartQuery;
    OraQuery_TABLESPACES: TOraQuery;
    SmartQuery1: TSmartQuery;
    OraDataSource5: TOraDataSource;
    OraQuery_TABLESPACESTABLESPACE_NAME: TStringField;
    OraQuery_TABLESPACESINITIAL_EXTENT: TFloatField;
    OraQuery_TABLESPACESNEXT_EXTENT: TFloatField;
    OraQuery_TABLESPACESMIN_EXTENTS: TFloatField;
    OraQuery_TABLESPACESMAX_EXTENTS: TFloatField;
    OraQuery_TABLESPACESPCT_INCREASE: TFloatField;
    OraQuery_TABLESPACESMIN_EXTLEN: TFloatField;
    OraQuery_TABLESPACESSTATUS: TStringField;
    OraQuery_TABLESPACESCONTENTS: TStringField;
    OraQuery_TABLESPACESLOGGING: TStringField;
    OraQuery_TableTABLE_NAME: TStringField;
    OraQuery_TableTABLESPACE_NAME: TStringField;
    OraQuery_TableTABLE_TYPE: TStringField;
    OraQuery_TableCOMMENTS: TStringField;
    VirtualTable1TABLESPACE_NAME: TStringField;
    VirtualTable1TABLE_TYPE: TStringField;
    SmartQuery1COLUMN_NAME: TStringField;
    SmartQuery1DATA_TYPE: TStringField;
    SmartQuery1DATA_LENGTH: TFloatField;
    SmartQuery1DATA_PRECISION: TFloatField;
    SmartQuery1NULLABLE: TStringField;
    SmartQuery1DATA_DEFAULT: TMemoField;
    SmartQuery1COMMENTS: TStringField;
    OraQuery_ColumnCOLUMN_NAME: TStringField;
    OraQuery_ColumnDATA_TYPE: TStringField;
    OraQuery_ColumnDATA_LENGTH: TFloatField;
    OraQuery_ColumnDATA_PRECISION: TFloatField;
    OraQuery_ColumnNULLABLE: TStringField;
    OraQuery_ColumnDATA_DEFAULT: TMemoField;
    OraQuery_ColumnCOMMENTS: TStringField;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DataModule1: TDataModule1;

implementation

{$R *.dfm}

end.