ucbdwwh.dfm

行业应急系统 包括: 应急系统（待遇核发） 发放系统 开发环境:Delphi5 (sp1)+ Oracle 8.05 MultiExport是一个可以将数据按指定字段倒出

    end
    object qryTempJJLX: TFloatField
      FieldName = 'JJLX'
      Origin = 'MAINDB.TDWXX.JJLX'
    end
    object qryTempLSGX: TFloatField
      FieldName = 'LSGX'
      Origin = 'MAINDB.TDWXX.LSGX'
    end
    object qryTempDWXZ: TFloatField
      FieldName = 'DWXZ'
      Origin = 'MAINDB.TDWXX.DWXZ'
    end
    object qryTempCZLB: TFloatField
      FieldName = 'CZLB'
      Origin = 'MAINDB.TDWXX.CZLB'
    end
    object qryTempDWZT: TFloatField
      FieldName = 'DWZT'
      Origin = 'MAINDB.TDWXX.DWZT'
    end
    object qryTempDQH: TStringField
      FieldName = 'DQH'
      Origin = 'MAINDB.TDWXX.DQH'
      FixedChar = True
      Size = 6
    end
    object qryTempKHYH: TStringField
      FieldName = 'KHYH'
      Origin = 'MAINDB.TDWXX.KHYH'
      Size = 30
    end
    object qryTempZHMC: TStringField
      FieldName = 'ZHMC'
      Origin = 'MAINDB.TDWXX.ZHMC'
      Size = 30
    end
    object qryTempYHZH: TStringField
      FieldName = 'YHZH'
      Origin = 'MAINDB.TDWXX.YHZH'
      Size = 24
    end
    object qryTempFRDB: TStringField
      FieldName = 'FRDB'
      Origin = 'MAINDB.TDWXX.FRDB'
      Size = 9
    end
    object qryTempFRDH: TStringField
      FieldName = 'FRDH'
      Origin = 'MAINDB.TDWXX.FRDH'
    end
    object qryTempFRSFZ: TStringField
      FieldName = 'FRSFZ'
      Origin = 'MAINDB.TDWXX.FRSFZ'
      Size = 18
    end
    object qryTempCWFZR: TStringField
      FieldName = 'CWFZR'
      Origin = 'MAINDB.TDWXX.CWFZR'
    end
    object qryTempCWDH: TStringField
      FieldName = 'CWDH'
      Origin = 'MAINDB.TDWXX.CWDH'
    end
    object qryTempSBZGY: TStringField
      FieldName = 'SBZGY'
      Origin = 'MAINDB.TDWXX.SBZGY'
    end
    object qryTempZGYDH: TStringField
      FieldName = 'ZGYDH'
      Origin = 'MAINDB.TDWXX.ZGYDH'
    end
    object qryTempDWJBBM: TStringField
      FieldName = 'DWJBBM'
      Origin = 'MAINDB.TDWXX.DWJBBM'
      Size = 40
    end
    object qryTempJBBMFZR: TStringField
      FieldName = 'JBBMFZR'
      Origin = 'MAINDB.TDWXX.JBBMFZR'
    end
    object qryTempCZ: TStringField
      FieldName = 'CZ'
      Origin = 'MAINDB.TDWXX.CZ'
    end
    object qryTempSZCS: TStringField
      FieldName = 'SZCS'
      Origin = 'MAINDB.TDWXX.SZCS'
      FixedChar = True
      Size = 6
    end
    object qryTempDYBZ: TFloatField
      FieldName = 'DYBZ'
      Origin = 'MAINDB.TDWXX.DYBZ'
    end
    object qryTempDYZXBF: TFloatField
      FieldName = 'DYZXBF'
      Origin = 'MAINDB.TDWXX.DYZXBF'
    end
    object qryTempJBR: TStringField
      FieldName = 'JBR'
      Origin = 'MAINDB.TDWXX.JBR'
      Size = 10
    end
    object qryTempJBRQ: TDateTimeField
      FieldName = 'JBRQ'
      Origin = 'MAINDB.TDWXX.JBRQ'
    end
    object qryTempSHR: TStringField
      FieldName = 'SHR'
      Origin = 'MAINDB.TDWXX.SHR'
      Size = 10
    end
    object qryTempSHRQ: TDateTimeField
      FieldName = 'SHRQ'
      Origin = 'MAINDB.TDWXX.SHRQ'
    end
    object qryTempTCTZBZ: TFloatField
      DisplayLabel = '统筹调整标志'
      FieldName = 'TCTZBZ'
      Origin = 'MAINDB.TDWXX.TCTZBZ'
    end
    object qryTempBXDJDM: TStringField
      DisplayLabel = '保险登记代码'
      FieldName = 'BXDJDM'
      Origin = 'MAINDB.TDWXX.BXDJDM'
      Size = 10
    end
    object qryTempCBRQ: TDateTimeField
      DisplayLabel = '参保日期'
      FieldName = 'CBRQ'
      Origin = 'MAINDB.TDWXX.CBRQ'
    end
    object qryTempHYDM: TStringField
      DisplayLabel = '行业代码'
      FieldName = 'HYDM'
      Origin = 'MAINDB.TDWXX.HYDM'
      Size = 10
    end
    object qryTempJSFS: TFloatField
      DisplayLabel = '结算方式'
      FieldName = 'JSFS'
      Origin = 'MAINDB.TDWXX.JSFS'
    end
    object qryTempYHHH: TStringField
      DisplayLabel = '银行行号'
      FieldName = 'YHHH'
      Origin = 'MAINDB.TDWXX.YHHH'
    end
  end
  inherited souTemp: TwwDataSource
    Left = 385
    Top = 44
  end
  inherited sqlTemp: TUpdateSQL
    ModifySQL.Strings = (
      'update tDWXX'
      'set'
      '  DWID = :DWID,'
      '  DWDM = :DWDM,'
      '  DWMC = :DWMC,'
      '  ZZJGDM = :ZZJGDM,'
      '  SWDJDM = :SWDJDM,'
      '  GSDJDM = :GSDJDM,'
      '  BXDJDM = :BXDJDM,'
      '  DWDZ = :DWDZ,'
      '  DWYB = :DWYB,'
      '  CLRQ = :CLRQ,'
      '  CBRQ = :CBRQ,'
      '  SSHY = :SSHY,'
      '  HYDM = :HYDM,'
      '  ZGBMDM = :ZGBMDM,'
      '  ZGBMMC = :ZGBMMC,'
      '  JJLX = :JJLX,'
      '  LSGX = :LSGX,'
      '  DWXZ = :DWXZ,'
      '  CZLB = :CZLB,'
      '  DWZT = :DWZT,'
      '  DQH = :DQH,'
      '  JSFS = :JSFS,'
      '  YHHH = :YHHH,'
      '  KHYH = :KHYH,'
      '  ZHMC = :ZHMC,'
      '  YHZH = :YHZH,'
      '  FRDB = :FRDB,'
      '  FRDH = :FRDH,'
      '  FRSFZ = :FRSFZ,'
      '  CWFZR = :CWFZR,'
      '  CWDH = :CWDH,'
      '  SBZGY = :SBZGY,'
      '  ZGYDH = :ZGYDH,'
      '  DWJBBM = :DWJBBM,'
      '  JBBMFZR = :JBBMFZR,'
      '  CZ = :CZ,'
      '  SZCS = :SZCS,'
      '  DYBZ = :DYBZ,'
      '  DYZXBF = :DYZXBF,'
      '  TCTZBZ = :TCTZBZ,'
      '  JBR = :JBR,'
      '  JBRQ = :JBRQ,'
      '  SHR = :SHR,'
      '  SHRQ = :SHRQ'
      'where'
      '  DWID = :OLD_DWID')
    InsertSQL.Strings = (
      'insert into tDWXX'
      
        '  (DWID, DWDM, DWMC, ZZJGDM, SWDJDM, GSDJDM, BXDJDM, DWDZ, DWYB,' +
        ' CLRQ, '
      
        '   CBRQ, SSHY, HYDM, ZGBMDM, ZGBMMC, JJLX, LSGX, DWXZ, CZLB, DWZ' +
        'T, DQH, '
      
        '   JSFS, YHHH, KHYH, ZHMC, YHZH, FRDB, FRDH, FRSFZ, CWFZR, CWDH,' +
        ' SBZGY, '
      
        '   ZGYDH, DWJBBM, JBBMFZR, CZ, SZCS, DYBZ, DYZXBF, TCTZBZ, JBR, ' +
        'JBRQ, SHR, '
      '   SHRQ)'
      'values'
      
        '  (:DWID, :DWDM, :DWMC, :ZZJGDM, :SWDJDM, :GSDJDM, :BXDJDM, :DWD' +
        'Z, :DWYB, '
      
        '   :CLRQ, :CBRQ, :SSHY, :HYDM, :ZGBMDM, :ZGBMMC, :JJLX, :LSGX, :' +
        'DWXZ, :CZLB, '
      
        '   :DWZT, :DQH, :JSFS, :YHHH, :KHYH, :ZHMC, :YHZH, :FRDB, :FRDH,' +
        ' :FRSFZ, '
      
        '   :CWFZR, :CWDH, :SBZGY, :ZGYDH, :DWJBBM, :JBBMFZR, :CZ, :SZCS,' +
        ' :DYBZ, '
      '   :DYZXBF, :TCTZBZ, :JBR, :JBRQ, :SHR, :SHRQ)')
    DeleteSQL.Strings = (
      'delete from tDWXX'
      'where'
      '  DWID = :OLD_DWID')
    Left = 321
    Top = 44
  end
  object qrySSHY: TQuery [11]
    DatabaseName = 'MainDB'
    SQL.Strings = (
      'select * from tDMB'
      'where ZDBZ ='#39'SSHY'#39)
    Left = 709
    Top = 404
  end
  object souSSHY: TDataSource [12]
    DataSet = qrySSHY
    Left = 681
    Top = 404
  end
  object souJJLX: TDataSource [13]
    DataSet = qryJJLX
    Left = 681
    Top = 436
  end
  object qryJJLX: TQuery [14]
    DatabaseName = 'MainDB'
    SQL.Strings = (
      'select * from tDMB'
      'where Zdbz ='#39'JJLX'#39)
    Left = 709
    Top = 436
  end
  object souLSGX: TDataSource [15]
    DataSet = qryLSGX
    Left = 681
    Top = 468
  end
  object qryLSGX: TQuery [16]
    DatabaseName = 'MainDB'
    SQL.Strings = (
      'select * from tDMB'
      'where zdbz = '#39'LSGX'#39)
    Left = 709
    Top = 468
  end
  object souZDLB: TDataSource [17]
    DataSet = qryZDLB
    Left = 681
    Top = 500
  end
  object qryZDLB: TQuery [18]
    DatabaseName = 'MainDB'
    SQL.Strings = (
      'select * from tDMb'
      'where zdbz = '#39'CZLB'#39)
    Left = 709
    Top = 500
  end
  object souDWZT: TDataSource [19]
    DataSet = qryDWZT
    Left = 745
    Top = 444
  end
  object qryDWZT: TQuery [20]
    DatabaseName = 'MainDB'
    SQL.Strings = (
      'select * from tDMB'
      'where zdbz = '#39'DWZT'#39)
    Left = 773
    Top = 444
  end
  object souDWXZ: TDataSource [21]
    DataSet = qryDWXZ
    Left = 745
    Top = 476
  end
  object qryDWXZ: TQuery [22]
    DatabaseName = 'MainDB'
    SQL.Strings = (
      'select * from tDMB'
      'where zdbz = '#39'DWXZ'#39)
    Left = 773
    Top = 476
  end
  object souDYBZ: TDataSource [23]
    DataSet = qryDYBZ
    Left = 739
    Top = 332
  end
  object qryDYBZ: TQuery [24]
    DatabaseName = 'MainDB'
    SQL.Strings = (
      'select * from tDMB'
      'where zdbz = '#39'CSBZ'#39)
    Left = 767
    Top = 332
  end
  object souDYZXBF: TDataSource [25]
    DataSet = qryDYZXBF
    Left = 739
    Top = 380
  end
  object qryDYZXBF: TQuery [26]
    DatabaseName = 'MainDB'
    SQL.Strings = (
      'select * from tDMB'
      'where zdbz = '#39'DYZXBF'#39)
    Left = 767
    Top = 388
  end
  inherited imgTree: TImageList
    Left = 723
  end
  object souSZCS: TDataSource
    DataSet = qrySZCS
    Left = 739
    Top = 412
  end
  object qrySZCS: TQuery
    DatabaseName = 'MainDB'
    SQL.Strings = (
      'select * from tCSDM')
    Left = 767
    Top = 412
  end
  object souTCTZBZ: TDataSource
    DataSet = qryTCTZBZ
    Left = 745
    Top = 500
  end
  object qryTCTZBZ: TQuery
    DatabaseName = 'MainDB'
    SQL.Strings = (
      'select * from tDMB'
      'where zdbz = '#39'TCTZBZ'#39)
    Left = 773
    Top = 500
  end
  object souJSFS: TDataSource
    DataSet = qryJSFS
    Left = 635
    Top = 324
  end
  object qryJSFS: TQuery
    DatabaseName = 'MainDB'
    SQL.Strings = (
      'select * from tDMB'
      'where zdbz = '#39'JSFS'#39
      'order by DM')
    Left = 671
    Top = 324
  end
end