uzycxd_1.dfm

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

      DataField = 'SFZH'
      Transparent = False
      WordWrap = True
      FontSize = 10
    end
    object QRDBText3: TQRDBText
      Left = 344
      Top = 132
      Width = 37
      Height = 17
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        44.9791666666667
        910.166666666667
        349.25
        97.8958333333333)
      Alignment = taLeftJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Color = clWhite
      DataSet = qryZhunYI
      DataField = 'JGMC'
      Transparent = False
      WordWrap = True
      FontSize = 10
    end
    object QRDBText4: TQRDBText
      Left = 344
      Top = 170
      Width = 17
      Height = 17
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        44.9791666666667
        910.166666666667
        449.791666666667
        44.9791666666667)
      Alignment = taLeftJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Color = clWhite
      DataSet = qryZhunYI
      DataField = 'DZ'
      Transparent = False
      WordWrap = True
      FontSize = 10
    end
    object QRDBText5: TQRDBText
      Left = 344
      Top = 216
      Width = 51
      Height = 17
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        44.9791666666667
        910.166666666667
        571.5
        134.9375)
      Alignment = taLeftJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Color = clWhite
      DataSet = qryZhunYI
      DataField = 'JGMC_1'
      Transparent = False
      WordWrap = True
      FontSize = 10
    end
    object QRDBText6: TQRDBText
      Left = 344
      Top = 257
      Width = 31
      Height = 17
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        44.9791666666667
        910.166666666667
        679.979166666667
        82.0208333333333)
      Alignment = taLeftJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Color = clWhite
      DataSet = qryZhunYI
      DataField = 'DZ_1'
      Transparent = False
      WordWrap = True
      FontSize = 10
    end
    object QRDBText7: TQRDBText
      Left = 344
      Top = 298
      Width = 43
      Height = 17
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        44.9791666666667
        910.166666666667
        788.458333333333
        113.770833333333)
      Alignment = taLeftJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Color = clWhite
      DataSet = qryZhunYI
      DataField = 'DWMC'
      Transparent = False
      WordWrap = True
      FontSize = 10
    end
    object QRDBText8: TQRDBText
      Left = 344
      Top = 337
      Width = 34
      Height = 17
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        44.9791666666667
        910.166666666667
        891.645833333333
        89.9583333333333)
      Alignment = taLeftJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Color = clWhite
      DataSet = qryZhunYI
      DataField = 'CBSJ'
      Transparent = False
      WordWrap = True
      FontSize = 10
    end
    object QRDBText9: TQRDBText
      Left = 344
      Top = 376
      Width = 39
      Height = 17
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        44.9791666666667
        910.166666666667
        994.833333333333
        103.1875)
      Alignment = taLeftJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Color = clWhite
      DataSet = qryZhunYI
      DataField = 'ZYDW'
      Transparent = False
      WordWrap = True
      FontSize = 10
    end
    object QRDBText14: TQRDBText
      Left = 791
      Top = 539
      Width = 52
      Height = 17
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        44.9791666666667
        2092.85416666667
        1426.10416666667
        137.583333333333)
      Alignment = taLeftJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Color = clWhite
      DataSet = qryZhunYI
      DataField = 'GRZHZE'
      Transparent = False
      WordWrap = True
      FontSize = 10
    end
    object QRDBText16: TQRDBText
      Left = 927
      Top = 298
      Width = 47
      Height = 17
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        44.9791666666667
        2452.6875
        788.458333333333
        124.354166666667)
      Alignment = taLeftJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Color = clWhite
      DataSet = qryZhunYI
      DataField = 'STJFNX'
      Transparent = False
      WordWrap = True
      FontSize = 10
    end
    object QRDBText17: TQRDBText
      Left = 927
      Top = 257
      Width = 51
      Height = 17
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        44.9791666666667
        2452.6875
        679.979166666667
        134.9375)
      Alignment = taLeftJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Color = clWhite
      DataSet = qryZhunYI
      DataField = 'YZBM_1'
      Transparent = False
      WordWrap = True
      FontSize = 10
    end
    object QRDBText18: TQRDBText
      Left = 927
      Top = 216
      Width = 47
      Height = 17
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        44.9791666666667
        2452.6875
        571.5
        124.354166666667)
      Alignment = taLeftJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Color = clWhite
      DataSet = qryZhunYI
      DataField = 'LXDH_1'
      Transparent = False
      WordWrap = True
      FontSize = 10
    end
    object QRDBText19: TQRDBText
      Left = 927
      Top = 170
      Width = 37
      Height = 17
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        44.9791666666667
        2452.6875
        449.791666666667
        97.8958333333333)
      Alignment = taLeftJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Color = clWhite
      DataSet = qryZhunYI
      DataField = 'YZBM'
      Transparent = False
      WordWrap = True
      FontSize = 10
    end
    object QRDBText20: TQRDBText
      Left = 927
      Top = 132
      Width = 33
      Height = 17
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        44.9791666666667
        2452.6875
        349.25
        87.3125)
      Alignment = taLeftJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Color = clWhite
      DataSet = qryZhunYI
      DataField = 'LXDH'
      Transparent = False
      WordWrap = True
      FontSize = 10
    end
    object QRDBText21: TQRDBText
      Left = 863
      Top = 96
      Width = 35
      Height = 17
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        44.9791666666667
        2283.35416666667
        254
        92.6041666666667)
      Alignment = taLeftJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Color = clWhite
      DataSet = qryZhunYI
      DataField = 'ZYBH'
      Transparent = False
      WordWrap = True
      FontSize = 10
    end
    object QRShape28: TQRShape
      Left = 459
      Top = 543
      Width = 97
      Height = 1
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        2.64583333333333
        1214.4375
        1436.6875
        256.645833333333)
      Shape = qrsHorLine
    end
    object QRShape34: TQRShape
      Left = 603
      Top = 543
      Width = 97
      Height = 1
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        2.64583333333333
        1595.4375
        1436.6875
        256.645833333333)
      Shape = qrsHorLine
    end
  end
  object qryZhunYI: TQuery
    DatabaseName = 'MainDB'
    SQL.Strings = (
      '--社会保险关系转移查询单'
      'Select  --个人基本信息'
      '        tRYJBXX.XM,--姓名'
      #9'tRYJBXX.SFZH,--身份证号'
      #9'tRYJBXX.CBSJ,--参保时间'
      ''
      '        --单位信息'
      #9'tDWXX.DWMC,--单位名称'
      ''
      '        --在职人员基本信息表'
      #9'tZZRYJBXX.GRJFZE,--个人缴费总额'
      #9'tZZRYJBXX.GRJFLX,--个人缴费利息'
      '        tZZRYJBXX.DWHBZE,--单位划拨总额'
      #9'tZZRYJBXX.DWHBLX,--单位划拨利息'
      #9'tZZRYJBXX.GRZHZE,--个人账户总额'
      '        tZZRYJBXX.STJFNX,--视同缴费年限'
      ''
      '        --在职人员缴费信息表'
      #9'tJFXX.JFYS,--缴费月数'
      ''
      '        --在职人员社保关系转移表'
      #9'tZZZYXX.ZYBH,--转移编号'
      '        tZZZYXX.ZYDW,--转移单位'
      '        tZZZYXX.JBR,--经办人'
      '        tZZZYXX.SHR,--审核人'
      '        tZZZYXX.JBRQ,--经办时间'
      ''
      '        --社保机构表'
      #9'tSBJG_ZR.JGMC,--转入机构名称'
      #9'tSBJG_ZR.DZ,--转入机构地址'
      #9'tSBJG_ZR.LXDH,--转入机构联系电话'
      #9'tSBJG_ZR.YZBM,--转入机构邮政编码'
      '        --转出机构默认是广东省社会保险局'
      #9'tSBJG_GDSBJ.JGMC,--机构名称'
      #9'tSBJG_GDSBJ.DZ,--地址'
      #9'tSBJG_GDSBJ.LXDH,--联系电话'
      #9'tSBJG_GDSBJ.YZBM--邮政编码'
      ''
      
        'From'#9'tRYJBXX,tDWXX,tZZRYJBXX,tJFXX,tZZZYXX,tSBJG tSBJG_ZR,tSBJG ' +
        'tSBJG_GDSBJ'
      '--输入社会保障号用人员ID 来连接表'
      'Where'#9'tRYJBXX.RYID = (Select RYID'
      '                            From tRYJBXX'
      '                                Where SFZH = :SFZH)'
      ''
      #9'AND tZZRYJBXX.RYID = (Select RYID'
      '                                From tRYJBXX'
      '                                        Where SFZH = :SFZH)'
      ''
      #9'AND tZZZYXX.RYID = (Select RYID'
      '                                From tRYJBXX'
      '                                        Where SFZH = :SFZH)'
      '        AND tJFXX.RYID = (Select RYID'
      '                                From tRYJBXX'
      '                                        Where SFZH = :SFZH)'
      #9'AND tDWXX.DWID = (Select DWID'
      '                                From tRYJBXX'
      '                                   Where RYID = (Select RYID'
      '                                                    From tRYJBXX'
      
        '                                                       Where SFZ' +
        'H = :SFZH))'
      '        AND tSBJG_ZR.JGDM = (Select SBJGDM'
      '                                From tZZZYXX'
      '                                     Where RYID = (Select RYID'
      
        '                                                        From tRY' +
        'JBXX'
      
        '                                                            Wher' +
        'e SFZH = :SFZH))'
      '        --转出机构是广东省社会保险局'
      '        AND tSBJG_GDSBJ.JGMC = '#39'广东省社会保险局'#39
      '')
    Left = 18
    Top = 16
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'SFZH'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'SFZH'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'SFZH'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'SFZH'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'SFZH'
        ParamType = ptUnknown
      end
      item
        DataType