home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / Runimage / Delphi50 / Help / Examples / Update / CUPDM.DFM / CUPDM.txt
Encoding:
Text File  |  1999-08-11  |  3.6 KB  |  146 lines
  1. object DataModuleCache: TDataModuleCache
  2.   Left = 728
  3.   Top = 102
  4.   Height = 260
  5.   Width = 290
  6.   object TableRefresh: TTable
  7.     Filtered = True
  8.     DatabaseName = 'myib'
  9.     TableName = 'CUSTOMER'
  10.     Left = 96
  11.     Top = 104
  12.   end
  13.   object DataSourceCache: TDataSource
  14.     DataSet = QueryCache
  15.     Left = 32
  16.     Top = 152
  17.   end
  18.   object DataSourceRefresh: TDataSource
  19.     DataSet = TableRefresh
  20.     Left = 120
  21.     Top = 152
  22.   end
  23.   object QueryCache: TQuery
  24.     CachedUpdates = True
  25.     OnUpdateError = QueryCacheUpdateError
  26.     DatabaseName = 'myib'
  27.     SQL.Strings = (
  28.       'select * from customer')
  29.     UpdateObject = UpdateSQLCache
  30.     Left = 32
  31.     Top = 104
  32.     object QueryCacheCUST_NO: TIntegerField
  33.       FieldName = 'CUST_NO'
  34.     end
  35.     object QueryCacheCUSTOMER: TStringField
  36.       FieldName = 'CUSTOMER'
  37.       Size = 25
  38.     end
  39.     object QueryCacheCONTACT_FIRST: TStringField
  40.       FieldName = 'CONTACT_FIRST'
  41.       Size = 15
  42.     end
  43.     object QueryCacheCONTACT_LAST: TStringField
  44.       FieldName = 'CONTACT_LAST'
  45.     end
  46.     object QueryCachePHONE_NO: TStringField
  47.       FieldName = 'PHONE_NO'
  48.     end
  49.     object QueryCacheADDRESS_LINE1: TStringField
  50.       FieldName = 'ADDRESS_LINE1'
  51.       Size = 30
  52.     end
  53.     object QueryCacheADDRESS_LINE2: TStringField
  54.       FieldName = 'ADDRESS_LINE2'
  55.       Size = 30
  56.     end
  57.     object QueryCacheCITY: TStringField
  58.       FieldName = 'CITY'
  59.       Size = 25
  60.     end
  61.     object QueryCacheSTATE_PROVINCE: TStringField
  62.       FieldName = 'STATE_PROVINCE'
  63.       Size = 15
  64.     end
  65.     object QueryCacheCOUNTRY: TStringField
  66.       FieldName = 'COUNTRY'
  67.       Size = 15
  68.     end
  69.     object QueryCachePOSTAL_CODE: TStringField
  70.       FieldName = 'POSTAL_CODE'
  71.       Size = 12
  72.     end
  73.     object QueryCacheON_HOLD: TStringField
  74.       FieldName = 'ON_HOLD'
  75.       Size = 1
  76.     end
  77.   end
  78.   object UpdateSQLCache: TUpdateSQL
  79.     ModifySQL.Strings = (
  80.       'update customer'
  81.       'set'
  82.       '  CUST_NO = :CUST_NO,'
  83.       '  CUSTOMER = :CUSTOMER,'
  84.       '  CONTACT_FIRST = :CONTACT_FIRST,'
  85.       '  CONTACT_LAST = :CONTACT_LAST,'
  86.       '  PHONE_NO = :PHONE_NO,'
  87.       '  ADDRESS_LINE1 = :ADDRESS_LINE1,'
  88.       '  ADDRESS_LINE2 = :ADDRESS_LINE2,'
  89.       '  CITY = :CITY,'
  90.       '  STATE_PROVINCE = :STATE_PROVINCE,'
  91.       '  COUNTRY = :COUNTRY,'
  92.       '  POSTAL_CODE = :POSTAL_CODE,'
  93.       '  ON_HOLD = :ON_HOLD'
  94.       'where'
  95.       '  CUST_NO = :OLD_CUST_NO')
  96.     InsertSQL.Strings = (
  97.       'insert into customer'
  98.       '  (CUST_NO, CUSTOMER, CONTACT_FIRST, CONTACT_LAST, PHONE_NO, '
  99.       'ADDRESS_LINE1, '
  100.       '   ADDRESS_LINE2, CITY, STATE_PROVINCE, COUNTRY, POSTAL_CODE, '
  101.       'ON_HOLD)'
  102.       'values'
  103.       
  104.         '  (:CUST_NO, :CUSTOMER, :CONTACT_FIRST, :CONTACT_LAST, :PHONE_NO' +
  105.         ', '
  106.       ':ADDRESS_LINE1, '
  107.       
  108.         '   :ADDRESS_LINE2, :CITY, :STATE_PROVINCE, :COUNTRY, :POSTAL_COD' +
  109.         'E, '
  110.       ':ON_HOLD)')
  111.     DeleteSQL.Strings = (
  112.       'delete from customer'
  113.       'where'
  114.       '  CUST_NO = :OLD_CUST_NO')
  115.     Left = 32
  116.     Top = 48
  117.   end
  118.   object DBaseCache: TDatabase
  119.     AliasName = 'IBLOCAL'
  120.     Connected = True
  121.     DatabaseName = 'myib'
  122.     Params.Strings = (
  123.       
  124.         'SERVER NAME=c:\Program Files\Common Files\Borland Shared\Data\EM' +
  125.         'PLOYEE.GDB'
  126.       'USER NAME=SYSDBA'
  127.       'OPEN MODE=READ/WRITE'
  128.       'SCHEMA CACHE SIZE=8'
  129.       'LANGDRIVER='
  130.       'SQLQRYMODE='
  131.       'SQLPASSTHRU MODE=SHARED AUTOCOMMIT'
  132.       'SCHEMA CACHE TIME=-1'
  133.       'MAX ROWS=-1'
  134.       'BATCH COUNT=200'
  135.       'ENABLE SCHEMA CACHE=FALSE'
  136.       'SCHEMA CACHE DIR='
  137.       'ENABLE BCD=FALSE'
  138.       'BLOBS TO CACHE=64'
  139.       'BLOB SIZE=32'
  140.       'PASSWORD=')
  141.     SessionName = 'Default'
  142.     Left = 112
  143.     Top = 24
  144.   end
  145. end
  146.