home *** CD-ROM | disk | FTP | other *** search
/ Chip 2005 May / CMCD0505.ISO / Software / Shareware / Programare / pgedri / Source / Demos / FishFact / FFACTWIN.dfm next >
Encoding:
Text File  |  2005-04-01  |  7.8 KB  |  339 lines

  1. object Form1: TForm1
  2.   Left = 218
  3.   Top = 151
  4.   BorderIcons = [biSystemMenu, biMinimize]
  5.   BorderStyle = bsSingle
  6.   Caption = 'FISH FACTS'
  7.   ClientHeight = 379
  8.   ClientWidth = 492
  9.   Color = clBtnFace
  10.   Font.Charset = DEFAULT_CHARSET
  11.   Font.Color = clBlack
  12.   Font.Height = -11
  13.   Font.Name = 'MS Sans Serif'
  14.   Font.Style = []
  15.   OldCreateOrder = True
  16.   Position = poScreenCenter
  17.   ShowHint = True
  18.   PixelsPerInch = 96
  19.   TextHeight = 13
  20.   object Panel2: TPanel
  21.     Left = 275
  22.     Top = 36
  23.     Width = 223
  24.     Height = 22
  25.     TabOrder = 0
  26.     object Label1: TLabel
  27.       Left = 7
  28.       Top = 4
  29.       Width = 56
  30.       Height = 13
  31.       Caption = 'About the'
  32.       Font.Charset = DEFAULT_CHARSET
  33.       Font.Color = clBlue
  34.       Font.Height = -11
  35.       Font.Name = 'MS Sans Serif'
  36.       Font.Style = [fsBold]
  37.       ParentFont = False
  38.     end
  39.     object DBLabel2: TDBText
  40.       Left = 67
  41.       Top = 4
  42.       Width = 99
  43.       Height = 13
  44.       AutoSize = True
  45.       DataField = 'Common_Name'
  46.       DataSource = DataSource1
  47.       Font.Charset = DEFAULT_CHARSET
  48.       Font.Color = clBlue
  49.       Font.Height = -11
  50.       Font.Name = 'MS Sans Serif'
  51.       Font.Style = [fsBold]
  52.       ParentFont = False
  53.     end
  54.   end
  55.   object Panel4: TPanel
  56.     Left = 0
  57.     Top = 288
  58.     Width = 492
  59.     Height = 72
  60.     Align = alBottom
  61.     BevelInner = bvRaised
  62.     BorderStyle = bsSingle
  63.     ParentShowHint = False
  64.     ShowHint = True
  65.     TabOrder = 1
  66.     object DBGrid1: TDBGrid
  67.       Left = 12
  68.       Top = 8
  69.       Width = 386
  70.       Height = 53
  71.       Hint = 'Scroll up/down to see other fish!'
  72.       DataSource = DataSource1
  73.       Font.Charset = DEFAULT_CHARSET
  74.       Font.Color = clWindowText
  75.       Font.Height = -11
  76.       Font.Name = 'MS Sans Serif'
  77.       Font.Style = []
  78.       ParentFont = False
  79.       TabOrder = 0
  80.       TitleFont.Charset = DEFAULT_CHARSET
  81.       TitleFont.Color = clBlack
  82.       TitleFont.Height = -11
  83.       TitleFont.Name = 'MS Sans Serif'
  84.       TitleFont.Style = []
  85.     end
  86.     object BitBtn1: TBitBtn
  87.       Left = 424
  88.       Top = 32
  89.       Width = 57
  90.       Height = 29
  91.       Hint = 'Close Fish Facts'
  92.       Caption = 'E&xit'
  93.       TabOrder = 1
  94.       Kind = bkClose
  95.     end
  96.   end
  97.   object StatusBar1: TStatusBar
  98.     Left = 0
  99.     Top = 360
  100.     Width = 492
  101.     Height = 19
  102.     Panels = <
  103.       item
  104.         Text = 'Using DBDEMOS Dataset'
  105.         Width = 50
  106.       end>
  107.   end
  108.   object Panel5: TPanel
  109.     Left = 0
  110.     Top = 25
  111.     Width = 492
  112.     Height = 52
  113.     Align = alTop
  114.     BevelOuter = bvNone
  115.     TabOrder = 3
  116.     object btnConvert: TBitBtn
  117.       Left = 215
  118.       Top = 1
  119.       Width = 177
  120.       Height = 24
  121.       Hint = 'Convert from local DBDEMOS table to PostgreSQL'
  122.       Caption = 'Convert Local -> PostgreSQL'
  123.       TabOrder = 0
  124.       OnClick = btnConvertClick
  125.       NumGlyphs = 2
  126.     end
  127.     object btnDrop: TBitBtn
  128.       Left = 400
  129.       Top = 1
  130.       Width = 92
  131.       Height = 24
  132.       Hint = 'Drop the [biolife] table from the PostgreSQL Server'
  133.       Caption = 'Drop Biolife'
  134.       TabOrder = 1
  135.       OnClick = btnDropClick
  136.       NumGlyphs = 2
  137.     end
  138.     object RadioGroup1: TRadioGroup
  139.       Left = 6
  140.       Top = -5
  141.       Width = 204
  142.       Height = 45
  143.       ItemIndex = 0
  144.       Items.Strings = (
  145.         'Use local DBDEMOS table'
  146.         'Use PostgreSQL Table')
  147.       TabOrder = 2
  148.       OnClick = RadioGroup1Click
  149.     end
  150.     object btnApplyChanges: TBitBtn
  151.       Left = 215
  152.       Top = 27
  153.       Width = 177
  154.       Height = 24
  155.       Hint = 'Convert from local DBDEMOS table to PostgreSQL'
  156.       Caption = 'Apply changes'
  157.       TabOrder = 3
  158.       OnClick = btnApplyChangesClick
  159.       NumGlyphs = 2
  160.     end
  161.     object btnCancel: TBitBtn
  162.       Left = 400
  163.       Top = 27
  164.       Width = 92
  165.       Height = 24
  166.       Hint = 'Convert from local DBDEMOS table to PostgreSQL'
  167.       Caption = 'Cancel Changes'
  168.       TabOrder = 4
  169.       OnClick = btnCancelClick
  170.       NumGlyphs = 2
  171.     end
  172.   end
  173.   object DBNavigator1: TDBNavigator
  174.     Left = 0
  175.     Top = 0
  176.     Width = 492
  177.     Height = 25
  178.     DataSource = DataSource1
  179.     Align = alTop
  180.     TabOrder = 4
  181.   end
  182.   object Panel1: TPanel
  183.     Left = 0
  184.     Top = 77
  185.     Width = 492
  186.     Height = 211
  187.     Align = alClient
  188.     TabOrder = 5
  189.     object Panel6: TPanel
  190.       Left = 1
  191.       Top = 1
  192.       Width = 259
  193.       Height = 209
  194.       Hint = 'Scroll grid below to see other fish'
  195.       Align = alLeft
  196.       ParentShowHint = False
  197.       ShowHint = True
  198.       TabOrder = 0
  199.       object DBLabel1: TDBText
  200.         Left = 4
  201.         Top = 183
  202.         Width = 249
  203.         Height = 24
  204.         DataField = 'Common_Name'
  205.         DataSource = DataSource1
  206.         Font.Charset = DEFAULT_CHARSET
  207.         Font.Color = clRed
  208.         Font.Height = -19
  209.         Font.Name = 'MS Serif'
  210.         Font.Style = [fsBold, fsItalic]
  211.         ParentFont = False
  212.       end
  213.       object DBImage1: TDBImage
  214.         Left = 5
  215.         Top = 8
  216.         Width = 248
  217.         Height = 168
  218.         Hint = 'Scroll grid below to see other fish'
  219.         DataField = 'Graphic'
  220.         DataSource = DataSource1
  221.         TabOrder = 0
  222.       end
  223.     end
  224.     object Panel3: TPanel
  225.       Left = 263
  226.       Top = 3
  227.       Width = 223
  228.       Height = 205
  229.       BevelOuter = bvLowered
  230.       TabOrder = 1
  231.       object DBMemo1: TDBMemo
  232.         Left = 1
  233.         Top = 1
  234.         Width = 221
  235.         Height = 203
  236.         Align = alClient
  237.         BorderStyle = bsNone
  238.         Color = clSilver
  239.         Ctl3D = False
  240.         DataField = 'Notes'
  241.         DataSource = DataSource1
  242.         Font.Charset = DEFAULT_CHARSET
  243.         Font.Color = clBlack
  244.         Font.Height = -11
  245.         Font.Name = 'MS Sans Serif'
  246.         Font.Style = []
  247.         ParentCtl3D = False
  248.         ParentFont = False
  249.         ScrollBars = ssVertical
  250.         TabOrder = 0
  251.       end
  252.     end
  253.   end
  254.   object DataSource1: TDataSource
  255.     DataSet = Table1
  256.     Left = 19
  257.     Top = 221
  258.   end
  259.   object Table1: TTable
  260.     Active = True
  261.     AfterOpen = Table1AfterOpen
  262.     DatabaseName = 'DBDEMOS'
  263.     ReadOnly = True
  264.     TableName = 'BIOLIFE'
  265.     Left = 221
  266.     Top = 221
  267.     object Table1Category: TStringField
  268.       DisplayWidth = 15
  269.       FieldName = 'Category'
  270.       Size = 15
  271.     end
  272.     object Table1SpeciesName: TStringField
  273.       DisplayWidth = 20
  274.       FieldName = 'Species Name'
  275.       Size = 40
  276.     end
  277.     object Table1Lengthcm: TFloatField
  278.       DisplayWidth = 11
  279.       FieldName = 'Length (cm)'
  280.     end
  281.     object Table1Length_In: TFloatField
  282.       DisplayWidth = 10
  283.       FieldName = 'Length_In'
  284.       DisplayFormat = '0.00'
  285.     end
  286.     object Table1Common_Name: TStringField
  287.       DisplayWidth = 30
  288.       FieldName = 'Common_Name'
  289.       Visible = False
  290.       Size = 30
  291.     end
  292.     object Table1Notes: TMemoField
  293.       FieldName = 'Notes'
  294.       BlobType = ftMemo
  295.       Size = 50
  296.     end
  297.     object Table1Graphic: TBlobField
  298.       FieldName = 'Graphic'
  299.       ReadOnly = True
  300.       Visible = False
  301.     end
  302.   end
  303.   object SQLConnection1: TSQLConnection
  304.     ConnectionName = 'PGEConnection'
  305.     DriverName = 'PostgreSQL'
  306.     GetDriverFunc = 'getSQLDriverPOSTGRESQL'
  307.     LibraryName = 'dbexppge.dll'
  308.     LoadParamsOnConnect = True
  309.     LoginPrompt = False
  310.     Params.Strings = (
  311.       '')
  312.     VendorLib = 'libpq.dll'
  313.     Left = 430
  314.     Top = 76
  315.   end
  316.   object SQLDataSet1: TSQLDataSet
  317.     CommandText = 'biolife'
  318.     CommandType = ctTable
  319.     MaxBlobSize = -1
  320.     Params = <>
  321.     SQLConnection = SQLConnection1
  322.     Left = 432
  323.     Top = 116
  324.   end
  325.   object ClientDataSet1: TClientDataSet
  326.     Aggregates = <>
  327.     Params = <>
  328.     ProviderName = 'DataSetProvider1'
  329.     Left = 432
  330.     Top = 216
  331.   end
  332.   object DataSetProvider1: TDataSetProvider
  333.     DataSet = SQLDataSet1
  334.     Options = [poFetchBlobsOnDemand]
  335.     Left = 432
  336.     Top = 168
  337.   end
  338. end
  339.