home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 September / Chip_2001-09_cd1.bin / zkuste / delphi / unity / d5 / DBGCGI.ZIP / TESTCGI / Unit1.dfm < prev    next >
Encoding:
Text File  |  2001-03-05  |  1.6 KB  |  73 lines
  1. object WebModule1: TWebModule1
  2.   OldCreateOrder = False
  3.   Actions = <
  4.     item
  5.       Default = True
  6.       Name = 'WebActionItem1'
  7.       OnAction = WebModule1WebActionItem1Action
  8.     end
  9.     item
  10.       Name = 'WebActionItem2'
  11.       PathInfo = '/p2'
  12.     end>
  13.   Left = 262
  14.   Top = 178
  15.   Height = 591
  16.   Width = 609
  17.   object DataSetTableProducer1: TDataSetTableProducer
  18.     Columns = <
  19.       item
  20.         FieldName = 'Name'
  21.       end
  22.       item
  23.         FieldName = 'Capital'
  24.       end
  25.       item
  26.         FieldName = 'Continent'
  27.       end
  28.       item
  29.         FieldName = 'Area'
  30.       end
  31.       item
  32.         FieldName = 'Population'
  33.       end
  34.       item
  35.         FieldName = 'edt'
  36.       end>
  37.     DataSet = Table1
  38.     TableAttributes.Border = 1
  39.     TableAttributes.CellSpacing = 0
  40.     Left = 56
  41.     Top = 120
  42.   end
  43.   object Table1: TTable
  44.     Active = True
  45.     DatabaseName = 'DBDEMOS'
  46.     Filtered = True
  47.     TableName = 'country.db'
  48.     Left = 48
  49.     Top = 24
  50.     object Table1Name: TStringField
  51.       FieldName = 'Name'
  52.       Size = 24
  53.     end
  54.     object Table1Capital: TStringField
  55.       FieldName = 'Capital'
  56.       Size = 24
  57.     end
  58.     object Table1Continent: TStringField
  59.       CustomConstraint = 'X = '#39'South America'#39' OR X = '#39'North America'#39
  60.       ConstraintErrorMessage = 'Country is not in the American Continent'
  61.       DefaultExpression = #39'South America'#39
  62.       FieldName = 'Continent'
  63.       Size = 24
  64.     end
  65.     object Table1Area: TFloatField
  66.       FieldName = 'Area'
  67.     end
  68.     object Table1Population: TFloatField
  69.       FieldName = 'Population'
  70.     end
  71.   end
  72. end
  73.