home *** CD-ROM | disk | FTP | other *** search
/ Prima Shareware 3 / DuCom_Prima-Shareware-3_cd1.bin / PROGRAMO / delphi / ODA10 / _SETUP.1 / DemoQueryToMany.dfm / DemoQueryToMany.txt
Encoding:
Text File  |  1996-04-06  |  2.7 KB  |  121 lines
  1. object FormQueryToMany: TFormQueryToMany
  2.   Left = 310
  3.   Top = 167
  4.   Width = 450
  5.   Height = 434
  6.   Caption = 'OneToMany wiht Queries'
  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 DBGrid1: TDBGrid
  15.     Left = 8
  16.     Top = 8
  17.     Width = 429
  18.     Height = 269
  19.     DataSource = SrcOne
  20.     TabOrder = 0
  21.     TitleFont.Color = clWindowText
  22.     TitleFont.Height = -11
  23.     TitleFont.Name = 'MS Sans Serif'
  24.     TitleFont.Style = []
  25.   end
  26.   object DBGrid2: TDBGrid
  27.     Left = 8
  28.     Top = 284
  29.     Width = 429
  30.     Height = 117
  31.     DataSource = SrcMany
  32.     TabOrder = 1
  33.     TitleFont.Color = clWindowText
  34.     TitleFont.Height = -11
  35.     TitleFont.Name = 'MS Sans Serif'
  36.     TitleFont.Style = []
  37.   end
  38.   object QryOne: TQuery
  39.     DatabaseName = 'DBDemo'
  40.     SessionName = 'Demo'
  41.     SQL.Strings = (
  42.       'SELECT'
  43.       '  Pers_ID, Pers_LastName, Pers_FirstName, Pers_Birthday'
  44.       'FROM'
  45.       '  Person'
  46.       'ORDER BY'
  47.       '  Pers_LastName, Pers_FirstName')
  48.     Left = 356
  49.     object QryOnePers_LastName: TStringField
  50.       DisplayWidth = 33
  51.       FieldName = 'Pers_LastName'
  52.       Size = 50
  53.     end
  54.     object QryOnePers_FirstName: TStringField
  55.       DisplayWidth = 20
  56.       FieldName = 'Pers_FirstName'
  57.       Size = 50
  58.     end
  59.     object QryOnePers_Birthday: TDateTimeField
  60.       FieldName = 'Pers_Birthday'
  61.     end
  62.     object QryOnePers_ID: TIntegerField
  63.       FieldName = 'Pers_ID'
  64.       Visible = False
  65.     end
  66.   end
  67.   object SrcOne: TDataSource
  68.     DataSet = QryOne
  69.     Left = 388
  70.   end
  71.   object QryMany: TQuery
  72.     BeforeOpen = QryManyBeforeOpen
  73.     DatabaseName = 'DBDemo'
  74.     SessionName = 'Demo'
  75.     DataSource = SrcOne
  76.     Params.Data = {0100010007506572735F4944000304003A0100000000}
  77.     SQL.Strings = (
  78.       'SELECT'
  79.       '  *'
  80.       'FROM'
  81.       '  Address'
  82.       'WHERE'
  83.       '  Adr_PersID = :Pers_ID')
  84.     Left = 360
  85.     Top = 276
  86.     object QryManyAdr_ID: TAutoIncField
  87.       FieldName = 'Adr_ID'
  88.       Visible = False
  89.     end
  90.     object QryManyAdr_PersID: TIntegerField
  91.       FieldName = 'Adr_PersID'
  92.       Visible = False
  93.     end
  94.     object QryManyAdr_Street: TStringField
  95.       DisplayWidth = 20
  96.       FieldName = 'Adr_Street'
  97.       Size = 50
  98.     end
  99.     object QryManyAdr_ZIP: TStringField
  100.       DisplayWidth = 7
  101.       FieldName = 'Adr_ZIP'
  102.       Size = 19
  103.     end
  104.     object QryManyAdr_Place: TStringField
  105.       DisplayWidth = 18
  106.       FieldName = 'Adr_Place'
  107.       Size = 50
  108.     end
  109.     object QryManyAdr_Country: TStringField
  110.       DisplayWidth = 18
  111.       FieldName = 'Adr_Country'
  112.       Size = 30
  113.     end
  114.   end
  115.   object SrcMany: TDataSource
  116.     DataSet = QryMany
  117.     Left = 392
  118.     Top = 276
  119.   end
  120. end
  121.