uzycl.dfm

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

        Height = 20
        DataField = 'KHH'
        DataSource = souRYXX
        TabOrder = 3
      end
      object DBEdit10: TDBEdit
        Left = 379
        Top = 53
        Width = 134
        Height = 20
        DataField = 'SKR'
        DataSource = souRYXX
        TabOrder = 4
      end
      object cmbHB: TwwDBLookupCombo
        Left = 378
        Top = 10
        Width = 136
        Height = 20
        DropDownAlignment = taLeftJustify
        Selected.Strings = (
          'DMMC'#9'20'#9'行别名称'#9'F'
          'DM'#9'10'#9'代码'#9'F')
        DataField = 'HB'
        DataSource = souRYXX
        LookupTable = qryHB
        LookupField = 'DM'
        Options = [loColLines, loRowLines, loTitles]
        TabOrder = 1
        AutoDropDown = False
        ShowButton = True
        AllowClearKey = False
      end
      object cmbHB_Edit: TwwDBLookupCombo
        Left = 341
        Top = 282
        Width = 66
        Height = 20
        DropDownAlignment = taLeftJustify
        Selected.Strings = (
          'DM'#9'10'#9'代码'#9'F'
          'DMMC'#9'20'#9'行别'#9'F')
        DataField = 'HB'
        DataSource = souRYXX
        LookupTable = qryHB
        LookupField = 'DM'
        Options = [loColLines, loRowLines, loTitles]
        TabOrder = 6
        AutoDropDown = False
        ShowButton = True
        AllowClearKey = False
      end
      object DBEdit11: TDBEdit
        Left = 77
        Top = 77
        Width = 434
        Height = 20
        DataField = 'HRDD'
        DataSource = souRYXX
        TabOrder = 5
      end
      object edtZH_2: TEdit
        Left = 77
        Top = 31
        Width = 250
        Height = 20
        TabOrder = 2
      end
    end
    object GroupBox3: TGroupBox
      Left = 0
      Top = 246
      Width = 544
      Height = 42
      Align = alTop
      Caption = '邮汇信息'
      TabOrder = 2
      object Label13: TLabel
        Left = 23
        Top = 19
        Width = 48
        Height = 12
        Caption = '邮政编码'
        FocusControl = DBEdit12
      end
      object Label14: TLabel
        Left = 214
        Top = 19
        Width = 24
        Height = 12
        Caption = '地址'
        FocusControl = DBEdit13
      end
      object DBEdit12: TDBEdit
        Left = 77
        Top = 15
        Width = 104
        Height = 20
        DataField = 'YZBM'
        DataSource = souRYXX
        TabOrder = 0
      end
      object DBEdit13: TDBEdit
        Left = 247
        Top = 15
        Width = 264
        Height = 20
        DataField = 'DZ'
        DataSource = souRYXX
        TabOrder = 1
      end
    end
    object DBEdit2: TDBEdit
      Left = 76
      Top = 289
      Width = 104
      Height = 20
      DataField = 'JBR'
      DataSource = souRYXX
      TabOrder = 3
    end
    object wwDBDateTimePicker2: TwwDBDateTimePicker
      Left = 248
      Top = 289
      Width = 121
      Height = 20
      CalendarAttributes.Font.Charset = DEFAULT_CHARSET
      CalendarAttributes.Font.Color = clWindowText
      CalendarAttributes.Font.Height = -11
      CalendarAttributes.Font.Name = 'MS Sans Serif'
      CalendarAttributes.Font.Style = []
      DataField = 'JBRQ'
      DataSource = souRYXX
      Epoch = 1950
      ShowButton = True
      TabOrder = 4
    end
  end
  object souFFFS: TDataSource
    DataSet = qryFFFS
    Left = 10
    Top = 318
  end
  object qryFFFS: TQuery
    DatabaseName = 'MainDB'
    SQL.Strings = (
      'SELECT DM,DMMC'
      'FROM tDMB'
      'WHERE zdbz='#39'FFXS'#39
      'ORDER BY DM')
    Left = 42
    Top = 318
  end
  object souDJQK: TDataSource
    DataSet = qryDJQK
    Left = 96
    Top = 321
  end
  object qryDJQK: TQuery
    DatabaseName = 'MainDB'
    SQL.Strings = (
      'SELECT DM,DMMC'
      'FROM tDMB'
      'WHERE zdbz='#39'DJQK'#39
      'ORDER BY DM')
    Left = 128
    Top = 321
  end
  object souFFZQ: TDataSource
    DataSet = qryFFZQ
    Left = 168
    Top = 313
  end
  object qryFFZQ: TQuery
    DatabaseName = 'MainDB'
    SQL.Strings = (
      'SELECT DM,DMMC'
      'FROM tDMB'
      'WHERE zdbz='#39'FFZQ'#39
      'ORDER BY DM')
    Left = 200
    Top = 313
  end
  object souFFJG: TDataSource
    DataSet = qryFFJG
    Left = 238
    Top = 313
  end
  object qryFFJG: TQuery
    DatabaseName = 'MainDB'
    SQL.Strings = (
      'SELECT *'
      'from tFF_WTFFJG')
    Left = 270
    Top = 315
  end
  object souHB: TDataSource
    Left = 400
    Top = 176
  end
  object qryHB: TQuery
    DatabaseName = 'MainDB'
    SQL.Strings = (
      'select * from tDMB where zdbz='#39'HB'#39
      'order by dm ')
    Left = 440
    Top = 176
  end
  object souRYXX: TDataSource
    DataSet = qryRYXX
    Left = 217
    Top = 8
  end
  object qryRYXX: TQuery
    CachedUpdates = True
    AfterInsert = qryRYXXAfterInsert
    BeforePost = qryRYXXBeforePost
    AfterPost = qryRYXXAfterPost
    AfterCancel = qryRYXXAfterCancel
    DatabaseName = 'MainDB'
    SQL.Strings = (
      'select * from tff_ryxx'
      'where ryid=:ryid')
    UpdateObject = sqlRYXX
    Left = 248
    Top = 8
    ParamData = <
      item
        DataType = ftString
        Name = 'ryid'
        ParamType = ptInput
      end>
    object qryRYXXRYID_FF: TStringField
      FieldName = 'RYID_FF'
      Origin = 'MAINDB.TFF_RYXX.RYID_FF'
      FixedChar = True
      Size = 10
    end
    object qryRYXXDWID_FF: TStringField
      FieldName = 'DWID_FF'
      Origin = 'MAINDB.TFF_RYXX.DWID_FF'
      FixedChar = True
      Size = 10
    end
    object qryRYXXSSDWID: TStringField
      FieldName = 'SSDWID'
      Origin = 'MAINDB.TFF_RYXX.SSDWID'
      FixedChar = True
      Size = 10
    end
    object qryRYXXRYID: TStringField
      FieldName = 'RYID'
      Origin = 'MAINDB.TFF_RYXX.RYID'
      FixedChar = True
      Size = 10
    end
    object qryRYXXXM: TStringField
      FieldName = 'XM'
      Origin = 'MAINDB.TFF_RYXX.XM'
      Size = 10
    end
    object qryRYXXSFZH: TStringField
      FieldName = 'SFZH'
      Origin = 'MAINDB.TFF_RYXX.SFZH'
      FixedChar = True
    end
    object qryRYXXHDJE: TFloatField
      FieldName = 'HDJE'
      Origin = 'MAINDB.TFF_RYXX.HDJE'
    end
    object qryRYXXFFFS: TFloatField
      FieldName = 'FFFS'
      Origin = 'MAINDB.TFF_RYXX.FFFS'
    end
    object qryRYXXFFJGID: TStringField
      FieldName = 'FFJGID'
      Origin = 'MAINDB.TFF_RYXX.FFJGID'
      FixedChar = True
      Size = 10
    end
    object qryRYXXDJQK: TFloatField
      FieldName = 'DJQK'
      Origin = 'MAINDB.TFF_RYXX.DJQK'
    end
    object qryRYXXZH: TStringField
      FieldName = 'ZH'
      Origin = 'MAINDB.TFF_RYXX.ZH'
      Size = 60
    end
    object qryRYXXKHH: TStringField
      FieldName = 'KHH'
      Origin = 'MAINDB.TFF_RYXX.KHH'
      Size = 100
    end
    object qryRYXXHB: TFloatField
      FieldName = 'HB'
      Origin = 'MAINDB.TFF_RYXX.HB'
    end
    object qryRYXXSKR: TStringField
      FieldName = 'SKR'
      Origin = 'MAINDB.TFF_RYXX.SKR'
      Size = 30
    end
    object qryRYXXHRDD: TStringField
      FieldName = 'HRDD'
      Origin = 'MAINDB.TFF_RYXX.HRDD'
      Size = 100
    end
    object qryRYXXYZBM: TStringField
      FieldName = 'YZBM'
      Origin = 'MAINDB.TFF_RYXX.YZBM'
      FixedChar = True
      Size = 6
    end
    object qryRYXXDZ: TStringField
      FieldName = 'DZ'
      Origin = 'MAINDB.TFF_RYXX.DZ'
      Size = 100
    end
    object qryRYXXFFJE: TFloatField
      FieldName = 'FFJE'
      Origin = 'MAINDB.TFF_RYXX.FFJE'
    end
    object qryRYXXLJFFJE: TFloatField
      FieldName = 'LJFFJE'
      Origin = 'MAINDB.TFF_RYXX.LJFFJE'
    end
    object qryRYXXFFZQ: TFloatField
      FieldName = 'FFZQ'
      Origin = 'MAINDB.TFF_RYXX.FFZQ'
    end
    object qryRYXXRYZT: TFloatField
      FieldName = 'RYZT'
      Origin = 'MAINDB.TFF_RYXX.RYZT'
    end
    object qryRYXXKSFFYF: TDateTimeField
      FieldName = 'KSFFYF'
      Origin = 'MAINDB.TFF_RYXX.KSFFYF'
    end
    object qryRYXXCSRQ: TDateTimeField
      FieldName = 'CSRQ'
      Origin = 'MAINDB.TFF_RYXX.CSRQ'
    end
    object qryRYXXTXSJ: TDateTimeField
      FieldName = 'TXSJ'
      Origin = 'MAINDB.TFF_RYXX.TXSJ'
    end
    object qryRYXXTXLB: TFloatField
      FieldName = 'TXLB'
      Origin = 'MAINDB.TFF_RYXX.TXLB'
    end
    object qryRYXXLXDH: TStringField
      FieldName = 'LXDH'
      Origin = 'MAINDB.TFF_RYXX.LXDH'
    end
    object qryRYXXXM_QS: TStringField
      FieldName = 'XM_QS'
      Origin = 'MAINDB.TFF_RYXX.XM_QS'
      Size = 10
    end
    object qryRYXXSFZH_QS: TStringField
      FieldName = 'SFZH_QS'
      Origin = 'MAINDB.TFF_RYXX.SFZH_QS'
      FixedChar = True
    end
    object qryRYXXGX_QS: TFloatField
      FieldName = 'GX_QS'
      Origin = 'MAINDB.TFF_RYXX.GX_QS'
    end
    object qryRYXXLXDH_QS: TStringField
      FieldName = 'LXDH_QS'
      Origin = 'MAINDB.TFF_RYXX.LXDH_QS'
    end
    object qryRYXXLXDZ_QS: TStringField
      FieldName = 'LXDZ_QS'
      Origin = 'MAINDB.TFF_RYXX.LXDZ_QS'
      Size = 100
    end
    object qryRYXXYZBM_QS: TStringField
      FieldName = 'YZBM_QS'
      Origin = 'MAINDB.TFF_RYXX.YZBM_QS'
      FixedChar = True
      Size = 6
    end
    object qryRYXXYYFWSJ: TFloatField
      FieldName = 'YYFWSJ'
      Origin = 'MAINDB.TFF_RYXX.YYFWSJ'
    end
    object qryRYXXSKFWRQ: TFloatField
      FieldName = 'SKFWRQ'
      Origin = 'MAINDB.TFF_RYXX.SKFWRQ'
    end
    object qryRYXXSKFWSJ: TFloatField
      FieldName = 'SKFWSJ'
      Origin = 'MAINDB.TFF_RYXX.SKFWSJ'
    end
    object qryRYXXBZ: TStringField
      FieldName = 'BZ'
      Origin = 'MAINDB.TFF_RYXX.BZ'
      Size = 100
    end
    object qryRYXXJBR: TStringField
      FieldName = 'JBR'
      Origin = 'MAINDB.TFF_RYXX.JBR'
      Size = 10
    end
    object qryRYXXJBRQ: TDateTimeField
      FieldName = 'JBRQ'
      Origin = 'MAINDB.TFF_RYXX.JBRQ'
    end
    object qryRYXXSHR: TStringField
      FieldName = 'SHR'
      Origin = 'MAINDB.TFF_RYXX.SHR'
      Size = 10
    end
    object qryRYXXSHRQ: TDateTimeField
      FieldName = 'SHRQ'
      Origin = 'MAINDB.TFF_RYXX.SHRQ'
    end
    object qryRYXXBZJE: TFloatField
      FieldName = 'BZJE'
      Origin = 'MAINDB.TFF_RYXX.BZJE'
    end
  end
  object sqlRYXX: TUpdateSQL
    ModifySQL.Strings = (
      'update tff_ryxx'
      'set'
      '  RYID_FF = :RYID_FF,'
      '  DWID_FF = :DWID_FF,'
      '  SSDWID = :SSDWID,'
      '  RYID = :RYID,'
      '  XM = :XM,'
      '  SFZH = :SFZH,'
      '  HDJE = :HDJE,'
      '  FFFS = :FFFS,'
      '  FFJGID = :FFJGID,'
      '  DJQK = :DJQK,'
      '  ZH = :ZH,'
      '  KHH = :KHH,'
      '  HB = :HB,'
      '  SKR = :SKR,'
      '  HRDD = :HRDD,'
      '  YZBM = :YZBM,'
      '  DZ = :DZ,'
      '  FFJE = :FFJE,'
      '  LJFFJE = :LJFFJE,'
      '  FFZQ = :FFZQ,'
      '  RYZT = :RYZT,'
      '  KSFFYF = :KSFFYF,'
      '  CSRQ = :CSRQ,'
      '  TXSJ = :TXSJ,'
      '  TXLB = :TXLB,'
      '  LXDH = :LXDH,'
      '  XM_QS = :XM_QS,'
      '  SFZH_QS = :SFZH_QS,'
      '  GX_QS = :GX_QS,'
      '  LXDH_QS = :LXDH_QS,'
      '  LXDZ_QS = :LXDZ_QS,'
      '  YZBM_QS = :YZBM_QS,'
      '  YYFWSJ = :YYFWSJ,'
      '  SKFWRQ = :SKFWRQ,'
      '  SKFWSJ = :SKFWSJ,'
      '  BZ = :BZ,'
      '  JBR = :JBR,'
      '  JBRQ = :JBRQ,'
      '  SHR = :SHR,'
      '  SHRQ = :SHRQ,'
      '  BZJE = :BZJE'
      'where'
      '  RYID_FF = :OLD_RYID_FF')
    InsertSQL.Strings = (
      'insert into tff_ryxx'
      
        '  (RYID_FF, DWID_FF, SSDWID, RYID, XM, SFZH, HDJE, FFFS, FFJGID,' +
        ' DJQK, '
      
        '   ZH, KHH, HB, SKR, HRDD, YZBM, DZ, FFJE, LJFFJE, FFZQ, RYZT, K' +
        'SFFYF, '
      
        '   CSRQ, TXSJ, TXLB, LXDH, XM_QS, SFZH_QS, GX_QS, LXDH_QS, LXDZ_' +
        'QS, YZBM_QS, '
      '   YYFWSJ, SKFWRQ, SKFWSJ, BZ, JBR, JBRQ, SHR, SHRQ, BZJE)'
      'values'
      
        '  (:RYID_FF, :DWID_FF, :SSDWID, :RYID, :XM, :SFZH, :HDJE, :FFFS,' +
        ' :FFJGID, '
      
        '   :DJQK, :ZH, :KHH, :HB, :SKR, :HRDD, :YZBM, :DZ, :FFJE, :LJFFJ' +
        'E, :FFZQ, '
      
        '   :RYZT, :KSFFYF, :CSRQ, :TXSJ, :TXLB, :LXDH, :XM_QS, :SFZH_QS,' +
        ' :GX_QS, '
      
        '   :LXDH_QS, :LXDZ_QS, :YZBM_QS, :YYFWSJ, :SKFWRQ, :SKFWSJ, :BZ,' +
        ' :JBR, '
      '   :JBRQ, :SHR, :SHRQ, :BZJE)')
    DeleteSQL.Strings = (
      'delete from tff_ryxx'
      'where'
      '  RYID_FF = :OLD_RYID_FF')
    Left = 288
    Top = 8
  end
end