home *** CD-ROM | disk | FTP | other *** search
- object Form1: TForm1
- Left = 218
- Top = 151
- BorderIcons = [biSystemMenu, biMinimize]
- BorderStyle = bsSingle
- Caption = 'FISH FACTS'
- ClientHeight = 379
- ClientWidth = 492
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OldCreateOrder = True
- Position = poScreenCenter
- ShowHint = True
- PixelsPerInch = 96
- TextHeight = 13
- object Panel2: TPanel
- Left = 275
- Top = 36
- Width = 223
- Height = 22
- TabOrder = 0
- object Label1: TLabel
- Left = 7
- Top = 4
- Width = 56
- Height = 13
- Caption = 'About the'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlue
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object DBLabel2: TDBText
- Left = 67
- Top = 4
- Width = 99
- Height = 13
- AutoSize = True
- DataField = 'Common_Name'
- DataSource = DataSource1
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlue
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- end
- end
- object Panel4: TPanel
- Left = 0
- Top = 288
- Width = 492
- Height = 72
- Align = alBottom
- BevelInner = bvRaised
- BorderStyle = bsSingle
- ParentShowHint = False
- ShowHint = True
- TabOrder = 1
- object DBGrid1: TDBGrid
- Left = 12
- Top = 8
- Width = 386
- Height = 53
- Hint = 'Scroll up/down to see other fish!'
- DataSource = DataSource1
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 0
- TitleFont.Charset = DEFAULT_CHARSET
- TitleFont.Color = clBlack
- TitleFont.Height = -11
- TitleFont.Name = 'MS Sans Serif'
- TitleFont.Style = []
- end
- object BitBtn1: TBitBtn
- Left = 424
- Top = 32
- Width = 57
- Height = 29
- Hint = 'Close Fish Facts'
- Caption = 'E&xit'
- TabOrder = 1
- Kind = bkClose
- end
- end
- object StatusBar1: TStatusBar
- Left = 0
- Top = 360
- Width = 492
- Height = 19
- Panels = <
- item
- Text = 'Using DBDEMOS Dataset'
- Width = 50
- end>
- end
- object Panel5: TPanel
- Left = 0
- Top = 25
- Width = 492
- Height = 52
- Align = alTop
- BevelOuter = bvNone
- TabOrder = 3
- object btnConvert: TBitBtn
- Left = 215
- Top = 1
- Width = 177
- Height = 24
- Hint = 'Convert from local DBDEMOS table to PostgreSQL'
- Caption = 'Convert Local -> PostgreSQL'
- TabOrder = 0
- OnClick = btnConvertClick
- NumGlyphs = 2
- end
- object btnDrop: TBitBtn
- Left = 400
- Top = 1
- Width = 92
- Height = 24
- Hint = 'Drop the [biolife] table from the PostgreSQL Server'
- Caption = 'Drop Biolife'
- TabOrder = 1
- OnClick = btnDropClick
- NumGlyphs = 2
- end
- object RadioGroup1: TRadioGroup
- Left = 6
- Top = -5
- Width = 204
- Height = 45
- ItemIndex = 0
- Items.Strings = (
- 'Use local DBDEMOS table'
- 'Use PostgreSQL Table')
- TabOrder = 2
- OnClick = RadioGroup1Click
- end
- object btnApplyChanges: TBitBtn
- Left = 215
- Top = 27
- Width = 177
- Height = 24
- Hint = 'Convert from local DBDEMOS table to PostgreSQL'
- Caption = 'Apply changes'
- TabOrder = 3
- OnClick = btnApplyChangesClick
- NumGlyphs = 2
- end
- object btnCancel: TBitBtn
- Left = 400
- Top = 27
- Width = 92
- Height = 24
- Hint = 'Convert from local DBDEMOS table to PostgreSQL'
- Caption = 'Cancel Changes'
- TabOrder = 4
- OnClick = btnCancelClick
- NumGlyphs = 2
- end
- end
- object DBNavigator1: TDBNavigator
- Left = 0
- Top = 0
- Width = 492
- Height = 25
- DataSource = DataSource1
- Align = alTop
- TabOrder = 4
- end
- object Panel1: TPanel
- Left = 0
- Top = 77
- Width = 492
- Height = 211
- Align = alClient
- TabOrder = 5
- object Panel6: TPanel
- Left = 1
- Top = 1
- Width = 259
- Height = 209
- Hint = 'Scroll grid below to see other fish'
- Align = alLeft
- ParentShowHint = False
- ShowHint = True
- TabOrder = 0
- object DBLabel1: TDBText
- Left = 4
- Top = 183
- Width = 249
- Height = 24
- DataField = 'Common_Name'
- DataSource = DataSource1
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clRed
- Font.Height = -19
- Font.Name = 'MS Serif'
- Font.Style = [fsBold, fsItalic]
- ParentFont = False
- end
- object DBImage1: TDBImage
- Left = 5
- Top = 8
- Width = 248
- Height = 168
- Hint = 'Scroll grid below to see other fish'
- DataField = 'Graphic'
- DataSource = DataSource1
- TabOrder = 0
- end
- end
- object Panel3: TPanel
- Left = 263
- Top = 3
- Width = 223
- Height = 205
- BevelOuter = bvLowered
- TabOrder = 1
- object DBMemo1: TDBMemo
- Left = 1
- Top = 1
- Width = 221
- Height = 203
- Align = alClient
- BorderStyle = bsNone
- Color = clSilver
- Ctl3D = False
- DataField = 'Notes'
- DataSource = DataSource1
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentCtl3D = False
- ParentFont = False
- ScrollBars = ssVertical
- TabOrder = 0
- end
- end
- end
- object DataSource1: TDataSource
- DataSet = Table1
- Left = 19
- Top = 221
- end
- object Table1: TTable
- Active = True
- AfterOpen = Table1AfterOpen
- DatabaseName = 'DBDEMOS'
- ReadOnly = True
- TableName = 'BIOLIFE'
- Left = 221
- Top = 221
- object Table1Category: TStringField
- DisplayWidth = 15
- FieldName = 'Category'
- Size = 15
- end
- object Table1SpeciesName: TStringField
- DisplayWidth = 20
- FieldName = 'Species Name'
- Size = 40
- end
- object Table1Lengthcm: TFloatField
- DisplayWidth = 11
- FieldName = 'Length (cm)'
- end
- object Table1Length_In: TFloatField
- DisplayWidth = 10
- FieldName = 'Length_In'
- DisplayFormat = '0.00'
- end
- object Table1Common_Name: TStringField
- DisplayWidth = 30
- FieldName = 'Common_Name'
- Visible = False
- Size = 30
- end
- object Table1Notes: TMemoField
- FieldName = 'Notes'
- BlobType = ftMemo
- Size = 50
- end
- object Table1Graphic: TBlobField
- FieldName = 'Graphic'
- ReadOnly = True
- Visible = False
- end
- end
- object SQLConnection1: TSQLConnection
- ConnectionName = 'PGEConnection'
- DriverName = 'PostgreSQL'
- GetDriverFunc = 'getSQLDriverPOSTGRESQL'
- LibraryName = 'dbexppge.dll'
- LoadParamsOnConnect = True
- LoginPrompt = False
- Params.Strings = (
- '')
- VendorLib = 'libpq.dll'
- Left = 430
- Top = 76
- end
- object SQLDataSet1: TSQLDataSet
- CommandText = 'biolife'
- CommandType = ctTable
- MaxBlobSize = -1
- Params = <>
- SQLConnection = SQLConnection1
- Left = 432
- Top = 116
- end
- object ClientDataSet1: TClientDataSet
- Aggregates = <>
- Params = <>
- ProviderName = 'DataSetProvider1'
- Left = 432
- Top = 216
- end
- object DataSetProvider1: TDataSetProvider
- DataSet = SQLDataSet1
- Options = [poFetchBlobsOnDemand]
- Left = 432
- Top = 168
- end
- end
-