home *** CD-ROM | disk | FTP | other *** search
/ Delphi 5 for Professionals / DELPHI5.iso / Runimage / Delphi50 / Demos / Db / Cachedup / datamod.dfm / datamod.txt
Encoding:
Text File  |  1999-08-11  |  2.9 KB  |  93 lines
  1. object CacheData: TCacheData
  2.   Left = 257
  3.   Top = 102
  4.   Height = 158
  5.   Width = 167
  6.   object CacheDS: TDataSource
  7.     DataSet = CacheQuery
  8.     Left = 99
  9.     Top = 14
  10.   end
  11.   object CacheDB: TDatabase
  12.     AliasName = 'IBLOCAL'
  13.     Connected = True
  14.     DatabaseName = 'CACHEDB'
  15.     LoginPrompt = False
  16.     Params.Strings = (
  17.       'USER NAME=SYSDBA'
  18.       'PASSWORD=masterkey')
  19.     SessionName = 'Default'
  20.     TransIsolation = tiDirtyRead
  21.     Left = 100
  22.     Top = 68
  23.   end
  24.   object CacheQuery: TQuery
  25.     Active = True
  26.     CachedUpdates = True
  27.     OnCalcFields = CacheQueryCalcFields
  28.     OnUpdateError = UpdateErrorHandler
  29.     DatabaseName = 'CACHEDB'
  30.     RequestLive = True
  31.     SQL.Strings = (
  32.       'SELECT PROJECT.PROJ_ID , PROJECT.PROJ_NAME'
  33.       'FROM PROJECT PROJECT'
  34.       'ORDER BY'
  35.       ' PROJECT.PROJ_ID')
  36.     Left = 24
  37.     Top = 12
  38.     Data = {
  39.       56657220322E302C514245202D20496E74656772612056697375616C20446174
  40.       6162617365204275696C6465722C302C2031302C20313630302C20313130362C
  41.       2C2C2C2C0D0A202C202C202D2044697374696E637420262051756F74652C2C2C
  42.       2C2C0D0A20202020312C202D204E756D626572206F66205461626C65732C2D31
  43.       2C202D312C203533342C203430352C203532362C203138312C2C2C2C0D0A5052
  44.       4F4A4543542C50524F4A4543542C32302C2032302C203134312C203134352C2C
  45.       2C2C2C0D0A20202020322C202D204E756D626572206F6620436F6C756D6E732C
  46.       2C2C2C2C2C0D0A50524F4A5F49442C50524F4A4543542C202020202020202020
  47.       20202020202020202036352C20202020202C202C2C312C0D0A20202020202C20
  48.       2D204E756D626572206F662043726974657269612C2C2C2C2C2C0D0A50524F4A
  49.       5F4E414D452C50524F4A4543542C202020202020202020202020202020202020
  50.       20312C20202020202C202C2C2C0D0A20202020202C202D204E756D626572206F
  51.       662043726974657269612C2C2C2C2C2C0D0A20202020202C202D204E756D6265
  52.       72206F66204A6F696E732C2C2C2C2C2C0D0A0D0A2253454C4543542053746174
  53.       656D656E74220D0A2C2C2C2C2C2C2C0D0A53454C4543540950524F4A4543542E
  54.       50524F4A5F4944202C2050524F4A4543542E50524F4A5F4E414D450D0A46524F
  55.       4D0950524F4A4543542050524F4A4543540D0A4F524445522042590D0A095052
  56.       4F4A4543542E50524F4A5F49442C2C2C2C2C2C2C0D0A}
  57.     object CacheQueryPROJ_ID: TStringField
  58.       FieldName = 'PROJ_ID'
  59.       Size = 5
  60.     end
  61.     object CacheQueryPROJ_NAME: TStringField
  62.       FieldName = 'PROJ_NAME'
  63.     end
  64.     object CacheQueryUpdateStatus: TStringField
  65.       DisplayWidth = 24
  66.       FieldName = 'UpdateStatus'
  67.       Calculated = True
  68.     end
  69.   end
  70.   object UpdateSQL: TUpdateSQL
  71.     ModifySQL.Strings = (
  72.       'update PROJECT'
  73.       'set'
  74.       '  PROJ_ID = :PROJ_ID,'
  75.       '  PROJ_NAME = :PROJ_NAME'
  76.       'where'
  77.       '  PROJ_ID = :OLD_PROJ_ID and'
  78.       '  PROJ_NAME = :OLD_PROJ_NAME')
  79.     InsertSQL.Strings = (
  80.       'insert into PROJECT'
  81.       '  (PROJ_ID, PROJ_NAME)'
  82.       'values'
  83.       '  (:PROJ_ID, :PROJ_NAME)')
  84.     DeleteSQL.Strings = (
  85.       'delete from PROJECT'
  86.       'where'
  87.       '  PROJ_ID = :OLD_PROJ_ID and'
  88.       '  PROJ_NAME = :OLD_PROJ_NAME')
  89.     Left = 24
  90.     Top = 68
  91.   end
  92. end
  93.