udwwh.dfm

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

    end
  end
  object souMaster: TDataSource
    DataSet = qryMaster
    Left = 32
    Top = 153
  end
  object qryMaster: TQuery
    CachedUpdates = True
    BeforeInsert = qryMasterBeforeInsert
    AfterInsert = qryMasterAfterInsert
    BeforePost = qryMasterBeforePost
    AfterPost = qryMasterAfterPost
    BeforeDelete = qryMasterBeforeDelete
    AfterDelete = qryMasterAfterDelete
    DatabaseName = 'MainDB'
    SQL.Strings = (
      'SELECT *'
      'FROM tFF_DWXX'
      'where dwid_ff=:dwid_ff')
    UpdateObject = sqlMaster
    Left = 70
    Top = 153
    ParamData = <
      item
        DataType = ftString
        Name = 'dwid_ff'
        ParamType = ptInput
      end>
    object qryMasterDWID_FF: TStringField
      DisplayLabel = '社会化发放ID'
      FieldName = 'DWID_FF'
      Origin = 'MAINDB.TFF_DWXX.DWID_FF'
      Visible = False
      FixedChar = True
      Size = 10
    end
    object qryMasterSSDWID: TStringField
      DisplayLabel = '所属单位ID'
      FieldName = 'SSDWID'
      Origin = 'MAINDB.TFF_DWXX.SSDWID'
      Visible = False
      FixedChar = True
      Size = 10
    end
    object qryMasterDWID: TStringField
      DisplayLabel = '单位序号'
      FieldName = 'DWID'
      Origin = 'MAINDB.TFF_DWXX.DWID'
      Visible = False
      FixedChar = True
      Size = 10
    end
    object qryMasterZH: TStringField
      DisplayLabel = '帐户'
      FieldName = 'ZH'
      Origin = 'MAINDB.TFF_DWXX.ZH'
      Size = 40
    end
    object qryMasterKHMC: TStringField
      DisplayLabel = '开户名称'
      FieldName = 'KHMC'
      Origin = 'MAINDB.TFF_DWXX.KHMC'
      Size = 80
    end
    object qryMasterYZBM: TStringField
      DisplayLabel = '邮政编码'
      FieldName = 'YZBM'
      Origin = 'MAINDB.TFF_DWXX.YZBM'
      FixedChar = True
      Size = 6
    end
    object qryMasterSSHY: TFloatField
      DisplayLabel = '所属行业'
      FieldName = 'SSHY'
      Origin = 'MAINDB.TFF_DWXX.SSHY'
      Visible = False
    end
    object qryMasterDWDM: TStringField
      DisplayLabel = '单位代码'
      DisplayWidth = 10
      FieldName = 'DWDM'
      Origin = 'MAINDB.TFF_DWXX.DWDM'
      FixedChar = True
      Size = 10
    end
    object qryMasterDWMC: TStringField
      DisplayLabel = '单位名称'
      DisplayWidth = 17
      FieldName = 'DWMC'
      Origin = 'MAINDB.TFF_DWXX.DWMC'
      Size = 40
    end
    object qryMasterFRDB: TStringField
      DisplayLabel = '法人代表'
      DisplayWidth = 10
      FieldName = 'FRDB'
      Origin = 'MAINDB.TFF_DWXX.FRDB'
      Size = 10
    end
    object qryMasterDWJBR: TStringField
      DisplayLabel = '单位经办人'
      DisplayWidth = 10
      FieldName = 'DWJBR'
      Origin = 'MAINDB.TFF_DWXX.DWJBR'
      Size = 10
    end
    object qryMasterLXDH: TStringField
      DisplayLabel = '联系电话'
      DisplayWidth = 12
      FieldName = 'LXDH'
      Origin = 'MAINDB.TFF_DWXX.LXDH'
    end
    object qryMasterDWDZ: TStringField
      DisplayLabel = '单位地址'
      DisplayWidth = 80
      FieldName = 'DWDZ'
      Origin = 'MAINDB.TFF_DWXX.DWDZ'
      Size = 80
    end
    object qryMasterSHHFFSJ: TDateTimeField
      DisplayLabel = '社会化发放时间'
      DisplayWidth = 18
      FieldName = 'SHHFFSJ'
      Origin = 'MAINDB.TFF_DWXX.SHHFFSJ'
    end
    object qryMasterSJDWDM: TStringField
      DisplayLabel = '上级单位代码'
      FieldName = 'SJDWDM'
      Origin = 'MAINDB.TFF_DWXX.SJDWDM'
      Visible = False
      FixedChar = True
      Size = 10
    end
    object qryMasterJBR: TStringField
      DisplayLabel = '经办人'
      DisplayWidth = 10
      FieldName = 'JBR'
      Origin = 'MAINDB.TFF_DWXX.JBR'
      Size = 10
    end
    object qryMasterJBRQ: TDateTimeField
      DisplayLabel = '经办日期'
      DisplayWidth = 18
      FieldName = 'JBRQ'
      Origin = 'MAINDB.TFF_DWXX.JBRQ'
    end
    object qryMasterSHR: TStringField
      DisplayLabel = '审核人'
      DisplayWidth = 10
      FieldName = 'SHR'
      Origin = 'MAINDB.TFF_DWXX.SHR'
      Size = 10
    end
    object qryMasterSHRQ: TDateTimeField
      DisplayLabel = '审核日期'
      DisplayWidth = 18
      FieldName = 'SHRQ'
      Origin = 'MAINDB.TFF_DWXX.SHRQ'
    end
  end
  object sqlMaster: TUpdateSQL
    ModifySQL.Strings = (
      'update tFF_DWXX'
      'set'
      '  DWID_FF = :DWID_FF,'
      '  SSDWID = :SSDWID,'
      '  DWID = :DWID,'
      '  DWDM = :DWDM,'
      '  DWMC = :DWMC,'
      '  SSHY = :SSHY,'
      '  FRDB = :FRDB,'
      '  DWJBR = :DWJBR,'
      '  ZH = :ZH,'
      '  KHMC = :KHMC,'
      '  YZBM = :YZBM,'
      '  DWDZ = :DWDZ,'
      '  LXDH = :LXDH,'
      '  SHHFFSJ = :SHHFFSJ,'
      '  SJDWDM = :SJDWDM,'
      '  JBR = :JBR,'
      '  JBRQ = :JBRQ,'
      '  SHR = :SHR,'
      '  SHRQ = :SHRQ'
      'where'
      '  DWID_FF = :OLD_DWID_FF')
    InsertSQL.Strings = (
      'insert into tFF_DWXX'
      
        '  (DWID_FF, SSDWID, DWID, DWDM, DWMC, SSHY, FRDB, DWJBR, ZH, KHM' +
        'C, YZBM, '
      '   DWDZ, LXDH, SHHFFSJ, SJDWDM, JBR, JBRQ, SHR, SHRQ)'
      'values'
      
        '  (:DWID_FF, :SSDWID, :DWID, :DWDM, :DWMC, :SSHY, :FRDB, :DWJBR,' +
        ' :ZH, :KHMC, '
      
        '   :YZBM, :DWDZ, :LXDH, :SHHFFSJ, :SJDWDM, :JBR, :JBRQ, :SHR, :S' +
        'HRQ)')
    DeleteSQL.Strings = (
      'delete from tFF_DWXX'
      'where'
      '  DWID_FF = :OLD_DWID_FF')
    Left = 104
    Top = 153
  end
  object souWTJG: TDataSource
    DataSet = qryWTJG
    Left = 38
    Top = 208
  end
  object qryWTJG: TQuery
    CachedUpdates = True
    AfterInsert = qryWTJGAfterInsert
    AfterPost = qryWTJGAfterPost
    DatabaseName = 'MainDB'
    DataSource = souMaster
    SQL.Strings = (
      'SELECT *'
      'FROM tFF_DWWTFFJG'
      'where dwid_ff=:dwid_ff')
    UpdateObject = sqlWTJG
    Left = 70
    Top = 208
    ParamData = <
      item
        DataType = ftString
        Name = 'dwid_ff'
        ParamType = ptInput
      end>
    object qryWRJGFFJGID: TStringField
      DisplayLabel = '委托发放机构'
      DisplayWidth = 17
      FieldName = 'FFJGID'
      Origin = 'MAINDB.TFF_DWWTFFJG.FFJGID'
      Visible = False
      FixedChar = True
      Size = 10
    end
    object qryWRJGFFJG_C: TStringField
      DisplayLabel = '委托发放机构'
      DisplayWidth = 14
      FieldKind = fkLookup
      FieldName = 'FFJG_C'
      LookupDataSet = tblFFJG
      LookupKeyFields = 'FFJGID'
      LookupResultField = 'JGMC'
      KeyFields = 'FFJGID'
      Lookup = True
    end
    object qryWTJGDWID_FF: TStringField
      FieldName = 'DWID_FF'
      Origin = 'MAINDB.TFF_DWWTFFJG.DWID_FF'
      Visible = False
      FixedChar = True
      Size = 10
    end
  end
  object sqlWTJG: TUpdateSQL
    ModifySQL.Strings = (
      'update tFF_DWWTFFJG'
      'set'
      '  DWID_FF = :DWID_FF,'
      '  FFJGID = :FFJGID'
      'where'
      '  DWID_FF = :OLD_DWID_FF and'
      '  FFJGID = :OLD_FFJGID')
    InsertSQL.Strings = (
      'insert into tFF_DWWTFFJG'
      '  (DWID_FF, FFJGID)'
      'values'
      '  (:DWID_FF, :FFJGID)')
    DeleteSQL.Strings = (
      'delete from tFF_DWWTFFJG'
      'where'
      '  DWID_FF = :OLD_DWID_FF and'
      '  FFJGID = :OLD_FFJGID')
    Left = 102
    Top = 208
  end
  object souFFJG: TDataSource
    Left = 70
    Top = 240
  end
  object tblFFJG: TTable
    DatabaseName = 'MainDB'
    TableName = 'TFF_WTFFJG'
    Left = 102
    Top = 240
  end
  object popRYXX: TPopupMenu
    Left = 104
    Top = 288
    object N1: TMenuItem
      Caption = '增员处理'
      OnClick = N1Click
    end
    object N2: TMenuItem
      Caption = '减员处理'
      OnClick = N2Click
    end
  end
end