home *** CD-ROM | disk | FTP | other *** search
- object DbBrowseForm: TDbBrowseForm
- Left = 222
- Top = 150
- Width = 316
- Height = 317
- Caption = 'Browse Database'
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'System'
- Font.Style = []
- FormStyle = fsMDIChild
- PixelsPerInch = 96
- Position = poDefault
- Visible = True
- OnActivate = FormActivate
- OnClose = FormClose
- TextHeight = 16
- object DbOutline: TOutline
- Left = 0
- Top = 0
- Width = 308
- Height = 290
- OutlineStyle = osTreeText
- OnExpand = DbOutlineExpand
- ItemHeight = 16
- Align = alClient
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'Courier New'
- Font.Style = []
- TabOrder = 0
- BorderStyle = bsNone
- ItemSeparator = '.'
- ParentFont = False
- end
- object DbTables: TTableList
- ExtendedInfo = True
- SystemTables = True
- Left = 8
- Top = 8
- object DbTablesNAME: TStringField
- DisplayLabel = 'Name'
- DisplayWidth = 24
- FieldName = 'NAME'
- Size = 127
- end
- object DbTablesEXTENSION: TStringField
- DisplayLabel = 'Ext'
- DisplayWidth = 4
- FieldName = 'EXTENSION'
- Size = 3
- end
- object DbTablesVIEW: TBooleanField
- DisplayLabel = 'View?'
- DisplayWidth = 5
- FieldName = 'VIEW'
- DisplayValues = 'View'
- end
- object DbTablesDATE: TDateField
- DisplayLabel = 'Date'
- DisplayWidth = 8
- FieldName = 'DATE'
- DisplayFormat = 'mm/dd/yyyy'
- end
- object DbTablesTIME: TTimeField
- DisplayLabel = 'Time'
- DisplayWidth = 11
- FieldName = 'TIME'
- DisplayFormat = 'hh:mm:ss AM/PM'
- end
- end
- object TableFields: TFieldList
- Left = 40
- Top = 8
- object TableFieldsNAME: TStringField
- DisplayLabel = 'Name'
- DisplayWidth = 20
- FieldName = 'NAME'
- Size = 31
- end
- object TableFieldsTYPE: TWordField
- DisplayLabel = 'Type'
- DisplayWidth = 5
- FieldName = 'TYPE'
- end
- object TableFieldsSUBTYPE: TWordField
- DisplayLabel = 'Subtype'
- DisplayWidth = 7
- FieldName = 'SUBTYPE'
- end
- object TableFieldsUNITS1: TWordField
- DisplayLabel = 'Units1'
- DisplayWidth = 6
- FieldName = 'UNITS1'
- end
- object TableFieldsUNITS2: TWordField
- DisplayLabel = 'Units2'
- DisplayWidth = 5
- FieldName = 'UNITS2'
- end
- object TableFieldsLENGTH: TWordField
- DisplayLabel = 'Length'
- DisplayWidth = 6
- FieldName = 'LENGTH'
- end
- end
- object TableIndices: TIndexList
- Left = 72
- Top = 8
- object TableIndicesNAME: TStringField
- DisplayLabel = 'Name'
- DisplayWidth = 18
- FieldName = 'NAME'
- Size = 127
- end
- object TableIndicesUNIQUE: TBooleanField
- DisplayLabel = 'Unique?'
- DisplayWidth = 7
- FieldName = 'UNIQUE'
- DisplayValues = 'Unique'
- end
- end
- end
-