home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / Runimage / Delphi50 / Demos / Midas / Mstrdtl / CLNTDM.DFM / CLNTDM.txt
Encoding:
Text File  |  1999-08-11  |  2.3 KB  |  103 lines
  1. object DM: TDM
  2.   OldCreateOrder = True
  3.   Left = 466
  4.   Top = 290
  5.   Height = 479
  6.   Width = 741
  7.   object ProjectSource: TDataSource
  8.     DataSet = Project
  9.     Left = 96
  10.     Top = 56
  11.   end
  12.   object EmpProjSource: TDataSource
  13.     DataSet = Emp_Proj
  14.     Left = 96
  15.     Top = 104
  16.   end
  17.   object EmployeeSource: TDataSource
  18.     DataSet = Employee
  19.     Left = 96
  20.     Top = 152
  21.   end
  22.   object Project: TClientDataSet
  23.     Active = True
  24.     Aggregates = <>
  25.     IndexFieldNames = 'PROJ_ID'
  26.     PacketRecords = 5
  27.     Params = <>
  28.     ProviderName = 'ProjectProvider'
  29.     RemoteServer = DCOMConnection
  30.     OnNewRecord = ProjectNewRecord
  31.     OnReconcileError = ReconcileError
  32.     Left = 24
  33.     Top = 56
  34.     object ProjectPROJ_ID: TStringField
  35.       FieldName = 'PROJ_ID'
  36.       Size = 5
  37.     end
  38.     object ProjectPROJ_NAME: TStringField
  39.       FieldName = 'PROJ_NAME'
  40.     end
  41.     object ProjectPROJ_DESC: TMemoField
  42.       FieldName = 'PROJ_DESC'
  43.       BlobType = ftMemo
  44.       Size = 1
  45.     end
  46.     object ProjectTEAM_LEADER: TSmallintField
  47.       FieldName = 'TEAM_LEADER'
  48.     end
  49.     object ProjectPRODUCT: TStringField
  50.       FieldName = 'PRODUCT'
  51.       Size = 12
  52.     end
  53.     object ProjectEmpProj: TDataSetField
  54.       FieldName = 'EmpProj'
  55.       IncludeObjectField = False
  56.     end
  57.   end
  58.   object Emp_Proj: TClientDataSet
  59.     Active = True
  60.     Aggregates = <>
  61.     DataSetField = ProjectEmpProj
  62.     Params = <>
  63.     OnReconcileError = ReconcileError
  64.     Left = 24
  65.     Top = 104
  66.     object Emp_ProjEMP_NO: TSmallintField
  67.       FieldName = 'EMP_NO'
  68.     end
  69.     object Emp_ProjPROJ_ID: TStringField
  70.       FieldName = 'PROJ_ID'
  71.       Size = 5
  72.     end
  73.     object Emp_ProjEmployeeName: TStringField
  74.       DisplayLabel = 'Employee Name'
  75.       FieldKind = fkLookup
  76.       FieldName = 'EmployeeName'
  77.       LookupDataSet = Employee
  78.       LookupKeyFields = 'EMP_NO'
  79.       LookupResultField = 'FULL_NAME'
  80.       KeyFields = 'EMP_NO'
  81.       Lookup = True
  82.     end
  83.   end
  84.   object Employee: TClientDataSet
  85.     Active = True
  86.     Aggregates = <>
  87.     IndexFieldNames = 'EMP_NO'
  88.     Params = <>
  89.     ProviderName = 'EmployeeProvider'
  90.     ReadOnly = True
  91.     RemoteServer = DCOMConnection
  92.     Left = 24
  93.     Top = 152
  94.   end
  95.   object DCOMConnection: TDCOMConnection
  96.     Connected = True
  97.     ServerGUID = '{F409BC32-963E-11D0-880E-00A0248E5091}'
  98.     ServerName = 'Serv.ProjectData'
  99.     Left = 56
  100.     Top = 8
  101.   end
  102. end
  103.