wz_ck_srdm.dfm

关于利用DELPHI来进行企业级方案解决的著作的附书源码

object MultiTablesUpdateServer: TMultiTablesUpdateServer
  OldCreateOrder = False
  Left = 206
  Top = 114
  Height = 200
  Width = 232
  object Database1: TDatabase
    AliasName = 'wz'
    Connected = True
    DatabaseName = 'wzDB'
    HandleShared = True
    LoginPrompt = False
    Params.Strings = (
      'USER NAME=wz'
      'Password=wz')
    SessionName = 'Default'
    Left = 44
    Top = 25
  end
  object quryCK1: TQuery
    CachedUpdates = True
    DatabaseName = 'wzDB'
    SQL.Strings = (
      'select * from c_ckmx')
    UpdateObject = usCK1
    Left = 124
    Top = 88
  end
  object usCK1: TUpdateSQL
    ModifySQL.Strings = (
      'update c_ckmx'
      'set'
      '  C_PZRQ = :C_PZRQ,'
      '  C_PZLB = :C_PZLB,'
      '  C_PZBH = :C_PZBH,'
      '  C_LLDW = :C_LLDW,'
      '  C_CLBM = :C_CLBM,'
      '  MC = :MC,'
      '  GG = :GG,'
      '  DW = :DW,'
      '  LH = :LH,'
      '  C_QLSL = :C_QLSL,'
      '  C_SJSL = :C_SJSL,'
      '  C_JHDJ = :C_JHDJ,'
      '  C_JHZJ = :C_JHZJ,'
      '  C_SJDJ = :C_SJDJ,'
      '  C_SJZJ = :C_SJZJ,'
      '  C_CSDJ = :C_CSDJ,'
      '  C_CSZJ = :C_CSZJ,'
      '  C_GCXM = :C_GCXM,'
      '  C_YT = :C_YT,'
      '  C_MEMO = :C_MEMO,'
      '  C_KM = :C_KM,'
      '  C_SYFX = :C_SYFX,'
      '  C_SL = :C_SL,'
      '  C_GYSH = :C_GYSH,'
      '  C_FLR = :C_FLR,'
      '  C_CWJH = :C_CWJH,'
      '  C_CWSH = :C_CWSH,'
      '  C_LLZG = :C_LLZG,'
      '  C_LLR = :C_LLR,'
      '  C_XMFZR = :C_XMFZR,'
      '  C_YX = :C_YX,'
      '  C_DZYH = :C_DZYH,'
      '  C_LLFS = :C_LLFS,'
      '  C_NDJH = :C_NDJH,'
      '  C_GROUPID = :C_GROUPID,'
      '  C_POSTTO = :C_POSTTO,'
      '  C_JZRQ = :C_JZRQ,'
      '  C_SENDER = :C_SENDER,'
      '  C_NOTE = :C_NOTE,'
      '  C_LLBH = :C_LLBH,'
      '  C_CLD = :C_CLD,'
      '  C_SJKZG = :C_SJKZG'
      'where'
      '  C_LLBH = :OLD_C_LLBH')
    InsertSQL.Strings = (
      'insert into c_ckmx'
      
        '  (C_PZRQ, C_PZLB, C_PZBH, C_LLDW, C_CLBM, MC, GG, DW, LH, C_QLS' +
        'L, C_SJSL, '
      
        '   C_JHDJ, C_JHZJ, C_SJDJ, C_SJZJ, C_CSDJ, C_CSZJ, C_GCXM, C_YT,' +
        ' C_MEMO, '
      
        '   C_KM, C_SYFX, C_SL, C_GYSH, C_FLR, C_CWJH, C_CWSH, C_LLZG, C_' +
        'LLR, C_XMFZR, '
      
        '   C_YX, C_DZYH, C_LLFS, C_NDJH, C_GROUPID, C_POSTTO, C_JZRQ, C_' +
        'SENDER, '
      '   C_NOTE, C_LLBH, C_CLD, C_SJKZG)'
      'values'
      
        '  (:C_PZRQ, :C_PZLB, :C_PZBH, :C_LLDW, :C_CLBM, :MC, :GG, :DW, :' +
        'LH, :C_QLSL, '
      
        '   :C_SJSL, :C_JHDJ, :C_JHZJ, :C_SJDJ, :C_SJZJ, :C_CSDJ, :C_CSZJ' +
        ', :C_GCXM, '
      
        '   :C_YT, :C_MEMO, :C_KM, :C_SYFX, :C_SL, :C_GYSH, :C_FLR, :C_CW' +
        'JH, :C_CWSH, '
      
        '   :C_LLZG, :C_LLR, :C_XMFZR, :C_YX, :C_DZYH, :C_LLFS, :C_NDJH, ' +
        ':C_GROUPID, '
      
        '   :C_POSTTO, :C_JZRQ, :C_SENDER, :C_NOTE, :C_LLBH, :C_CLD, :C_S' +
        'JKZG)')
    DeleteSQL.Strings = (
      'delete from c_ckmx'
      'where'
      '  C_LLBH = :OLD_C_LLBH')
    Left = 44
    Top = 91
  end
  object dspCKMX: TDataSetProvider
    DataSet = quryCK1
    Constraints = True
    Left = 126
    Top = 29
  end
end