home *** CD-ROM | disk | FTP | other *** search
/ Prima Shareware 3 / DuCom_Prima-Shareware-3_cd1.bin / PROGRAMO / delphi / ODA10 / _SETUP.1 / DemoTableToMany.dfm / DemoTableToMany.txt
Encoding:
Text File  |  1996-04-06  |  3.2 KB  |  146 lines
  1. object FormTableToMany: TFormTableToMany
  2.   Left = 296
  3.   Top = 325
  4.   Width = 532
  5.   Height = 288
  6.   Caption = 'OneToMany with Tables'
  7.   Font.Color = clWindowText
  8.   Font.Height = -11
  9.   Font.Name = 'MS Sans Serif'
  10.   Font.Style = []
  11.   OnCreate = FormCreate
  12.   PixelsPerInch = 96
  13.   TextHeight = 13
  14.   object DBGrid2: TDBGrid
  15.     Left = 8
  16.     Top = 144
  17.     Width = 509
  18.     Height = 113
  19.     DataSource = SrcAddress
  20.     TabOrder = 0
  21.     TitleFont.Color = clWindowText
  22.     TitleFont.Height = -11
  23.     TitleFont.Name = 'MS Sans Serif'
  24.     TitleFont.Style = []
  25.   end
  26.   object DBNavigator1: TDBNavigator
  27.     Left = 8
  28.     Top = 120
  29.     Width = 200
  30.     Height = 18
  31.     DataSource = SrcPerson
  32.     TabOrder = 1
  33.   end
  34.   object DBCtrlGrid1: TDBCtrlGrid
  35.     Left = 8
  36.     Top = 4
  37.     Width = 508
  38.     Height = 112
  39.     ColCount = 1
  40.     DataSource = SrcPerson
  41.     PanelHeight = 28
  42.     PanelWidth = 492
  43.     TabOrder = 2
  44.     RowCount = 4
  45.     object Pers_LastName: TDBEdit
  46.       Left = 4
  47.       Top = 4
  48.       Width = 160
  49.       Height = 19
  50.       Ctl3D = False
  51.       DataField = 'Pers_LastName'
  52.       DataSource = SrcPerson
  53.       MaxLength = 50
  54.       ParentCtl3D = False
  55.       TabOrder = 0
  56.     end
  57.     object Pers_FirstName: TDBEdit
  58.       Left = 168
  59.       Top = 4
  60.       Width = 85
  61.       Height = 19
  62.       Ctl3D = False
  63.       DataField = 'Pers_FirstName'
  64.       DataSource = SrcPerson
  65.       MaxLength = 50
  66.       ParentCtl3D = False
  67.       TabOrder = 1
  68.     end
  69.   end
  70.   object TblPerson: TTable
  71.     DatabaseName = 'DBDemo'
  72.     SessionName = 'Demo'
  73.     TableName = 'Person'
  74.     Left = 436
  75.     object TblPersonPers_ID: TAutoIncField
  76.       FieldName = 'Pers_ID'
  77.     end
  78.     object TblPersonPers_LastName: TStringField
  79.       FieldName = 'Pers_LastName'
  80.       Size = 50
  81.     end
  82.     object TblPersonPers_FirstName: TStringField
  83.       FieldName = 'Pers_FirstName'
  84.       Size = 50
  85.     end
  86.     object TblPersonPers_Remarks: TMemoField
  87.       FieldName = 'Pers_Remarks'
  88.       BlobType = ftMemo
  89.       Size = 65535
  90.     end
  91.     object TblPersonPers_Birthday: TDateTimeField
  92.       FieldName = 'Pers_Birthday'
  93.     end
  94.     object TblPersonPers_IsFemale: TBooleanField
  95.       FieldName = 'Pers_IsFemale'
  96.     end
  97.   end
  98.   object TblAddress: TTable
  99.     DatabaseName = 'DBDemo'
  100.     SessionName = 'Demo'
  101.     IndexFieldNames = 'Adr_PersID'
  102.     MasterFields = 'Pers_ID'
  103.     MasterSource = SrcPerson
  104.     TableName = 'Address'
  105.     Left = 404
  106.     Top = 132
  107.     object TblAddressAdr_ID: TAutoIncField
  108.       FieldName = 'Adr_ID'
  109.       Visible = False
  110.     end
  111.     object TblAddressAdr_PersID: TIntegerField
  112.       FieldName = 'Adr_PersID'
  113.       Visible = False
  114.     end
  115.     object TblAddressAdr_Street: TStringField
  116.       DisplayWidth = 29
  117.       FieldName = 'Adr_Street'
  118.       Size = 50
  119.     end
  120.     object TblAddressAdr_ZIP: TStringField
  121.       DisplayWidth = 7
  122.       FieldName = 'Adr_ZIP'
  123.       Size = 19
  124.     end
  125.     object TblAddressAdr_Place: TStringField
  126.       DisplayWidth = 20
  127.       FieldName = 'Adr_Place'
  128.       Size = 50
  129.     end
  130.     object TblAddressAdr_Country: TStringField
  131.       DisplayWidth = 20
  132.       FieldName = 'Adr_Country'
  133.       Size = 30
  134.     end
  135.   end
  136.   object SrcPerson: TDataSource
  137.     DataSet = TblPerson
  138.     Left = 468
  139.   end
  140.   object SrcAddress: TDataSource
  141.     DataSet = TblAddress
  142.     Left = 436
  143.     Top = 132
  144.   end
  145. end
  146.