uswdysl.dfm

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

      inherited tabCheck: TTabSheet
        inherited Panel4: TPanel
          object btnShowResult: TSpeedButton
            Left = 474
            Top = 5
            Width = 89
            Height = 21
            Action = actShowResult
            Flat = True
            Glyph.Data = {
              42020000424D4202000000000000420000002800000010000000100000000100
              1000030000000002000000000000000000000000000000000000007C0000E003
              00001F0000001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
              1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1700FF7F1F7C1F7C
              1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C170017001700FF7F1F7C
              1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1700170017001700FF7F1F7C
              1F7C1F7C1F7C1F7C00000000000000000000170017001700FF7F17001700FF7F
              1F7C1F7C1F7C1F7C0000FF7FFF7FFF7F170017001700FF7F00001F7C17001700
              FF7F1F7C1F7C1F7C0000FF7F1042104210421700FF7FFF7F00001F7C1F7C1700
              FF7F1F7C1F7C1F7C0000FF7FFF7FFF7FFF7FFF7FFF7FFF7F00001F7C1F7C1F7C
              1700FF7F1F7C1F7C0000FF7F10421042104210421042FF7F00001F7C1F7C1F7C
              1F7C1700FF7F1F7C0000FF7FFF7FFF7FFF7FFF7FFF7FFF7F00001F7C1F7C1F7C
              1F7C1F7C17001F7C0000FF7F104210421F7C1F7C1F7CFF7F00001F7C1F7C1F7C
              1F7C1F7C1F7C1F7C0000FF7FFF7FFF7FFF7F00000000000000001F7C1F7C1F7C
              1F7C1F7C1F7C1F7C0000FF7F104210421F7C00001F7C00001F7C1F7C1F7C1F7C
              1F7C1F7C1F7C1F7C0000FF7FFF7FFF7FFF7F000000001F7C1F7C1F7C1F7C1F7C
              1F7C1F7C1F7C1F7C0000000000000000000000001F7C1F7C1F7C1F7C1F7C1F7C
              1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
              1F7C1F7C1F7C}
          end
          object cmbSelect: TComboBox
            Left = 334
            Top = 6
            Width = 134
            Height = 20
            Style = csDropDownList
            ItemHeight = 12
            TabOrder = 0
            Items.Strings = (
              '显示未审核申报记录'
              '显示已审核申报记录'
              '显示全部记录')
          end
        end
        object DBGrid1: TDBGrid
          Left = 0
          Top = 33
          Width = 624
          Height = 368
          Align = alClient
          BorderStyle = bsNone
          DataSource = souMaster
          Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
          TabOrder = 1
          TitleFont.Charset = GB2312_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -12
          TitleFont.Name = '宋体'
          TitleFont.Style = []
          Columns = <
            item
              Expanded = False
              FieldName = 'XM'
              Title.Alignment = taCenter
              Title.Caption = '死者姓名'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'SFZH'
              Title.Alignment = taCenter
              Title.Caption = '死者社会保障号'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'DWDM'
              Title.Alignment = taCenter
              Title.Caption = '单位代码'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'DWMC'
              Title.Alignment = taCenter
              Title.Caption = '单位名称'
              Width = 164
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'SWSJ'
              Title.Alignment = taCenter
              Title.Caption = '死亡时间'
              Width = 87
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'SWZH'
              Title.Alignment = taCenter
              Title.Caption = '死亡证号'
              Width = 91
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'SWYY'
              Title.Alignment = taCenter
              Title.Caption = '死亡原因'
              Visible = True
            end>
        end
      end
    end
  end
  inherited ActionList1: TActionList
    inherited actCheck: TAction
      OnExecute = actCheckExecute
    end
    object actShowResult: TAction
      Category = '界面操作'
      Caption = '显示申报记录'
      ImageIndex = 7
      OnExecute = actShowResultExecute
    end
  end
  inherited qryMaster: TwwQuery
    SQL.Strings = (
      'select ryid from tSWDYSB where ryid = '#39'0'#39)
  end
  inherited souDetail: TwwDataSource
    OnDataChange = souDetailDataChange
  end
  inherited qryDetail: TwwQuery
    BeforeScroll = qryDetailBeforeScroll
    OnCalcFields = qryDetailCalcFields
    SQL.Strings = (
      'select * from  tSWDYSB'
      'where ryid=:ryid')
    ParamData = <
      item
        DataType = ftFixedChar
        Name = 'RYID'
        ParamType = ptInput
      end>
    object qryDetailRYID: TStringField
      DisplayLabel = '人员ID'
      FieldName = 'RYID'
      Origin = 'MAINDB.TSWDYSB.RYID'
      FixedChar = True
      Size = 10
    end
    object qryDetailSWSJ: TDateTimeField
      DisplayLabel = '死亡时间'
      FieldName = 'SWSJ'
      Origin = 'MAINDB.TSWDYSB.SWSJ'
    end
    object qryDetailSWZH: TStringField
      DisplayLabel = '死亡证号'
      FieldName = 'SWZH'
      Origin = 'MAINDB.TSWDYSB.SWZH'
    end
    object qryDetailSWYY: TStringField
      DisplayLabel = '死亡原因'
      FieldName = 'SWYY'
      Origin = 'MAINDB.TSWDYSB.SWYY'
      Size = 40
    end
    object qryDetailYWZT: TFloatField
      DisplayLabel = '业务类别'
      FieldName = 'YWZT'
      Origin = 'MAINDB.TSWDYSB.YWZT'
    end
    object qryDetailJBR: TStringField
      DisplayLabel = '经办人'
      FieldName = 'JBR'
      Origin = 'MAINDB.TSWDYSB.JBR'
      Size = 10
    end
    object qryDetailJBRQ: TDateTimeField
      DisplayLabel = '经办日期'
      FieldName = 'JBRQ'
      Origin = 'MAINDB.TSWDYSB.JBRQ'
    end
    object qryDetailSHR: TStringField
      DisplayLabel = '审核人'
      FieldName = 'SHR'
      Origin = 'MAINDB.TSWDYSB.SHR'
      Size = 10
    end
    object qryDetailSHRQ: TDateTimeField
      DisplayLabel = '审核日期'
      FieldName = 'SHRQ'
      Origin = 'MAINDB.TSWDYSB.SHRQ'
    end
    object qryDetailSFZH: TStringField
      FieldKind = fkCalculated
      FieldName = 'SFZH'
      Calculated = True
    end
    object qryDetailXM: TStringField
      FieldKind = fkCalculated
      FieldName = 'XM'
      Size = 10
      Calculated = True
    end
    object qryDetailDWDM: TStringField
      FieldKind = fkCalculated
      FieldName = 'DWDM'
      Size = 10
      Calculated = True
    end
    object qryDetailDWMC: TStringField
      FieldKind = fkCalculated
      FieldName = 'DWMC'
      Size = 40
      Calculated = True
    end
    object qryDetailSBRQ: TDateTimeField
      DisplayLabel = '申报日期'
      FieldName = 'SBRQ'
      Origin = 'MAINDB.TSWDYSB.SBRQ'
    end
    object qryDetailSHYJ: TStringField
      DisplayLabel = '审核意见'
      FieldName = 'SHYJ'
      Origin = 'MAINDB.TSWDYSB.SHYJ'
      Size = 100
    end
    object qryDetailYWYS: TFloatField
      DisplayLabel = '有无遗属'
      FieldName = 'YWYS'
      Origin = 'MAINDB.TSWDYSB.YWYS'
    end
  end
  inherited sqlDetail: TUpdateSQL
    ModifySQL.Strings = (
      'update tSWDYSB'
      'set'
      '  RYID = :RYID,'
      '  SBRQ = :SBRQ,'
      '  SWSJ = :SWSJ,'
      '  SWZH = :SWZH,'
      '  SWYY = :SWYY,'
      '  YWYS = :YWYS,'
      '  SHYJ = :SHYJ,'
      '  YWZT = :YWZT,'
      '  JBR = :JBR,'
      '  JBRQ = :JBRQ,'
      '  SHR = :SHR,'
      '  SHRQ = :SHRQ'
      'where'
      '  RYID = :OLD_RYID')
    InsertSQL.Strings = (
      'insert into tSWDYSB'
      
        '  (RYID, SBRQ, SWSJ, SWZH, SWYY, YWYS, SHYJ, YWZT, JBR, JBRQ, SH' +
        'R, SHRQ)'
      'values'
      
        '  (:RYID, :SBRQ, :SWSJ, :SWZH, :SWYY, :YWYS, :SHYJ, :YWZT, :JBR,' +
        ' :JBRQ, '
      '   :SHR, :SHRQ)')
    DeleteSQL.Strings = (
      'delete from tSWDYSB'
      'where'
      '  RYID = :OLD_RYID')
  end
  object souYSXX: TDataSource
    DataSet = qryYSXX
    Left = 336
    Top = 41
  end
  object qryYSXX: TQuery
    CachedUpdates = True
    AfterInsert = qryYSXXAfterInsert
    BeforePost = qryYSXXBeforePost
    AfterPost = qryYSXXAfterPost
    AfterDelete = qryYSXXAfterDelete
    DatabaseName = 'MainDB'
    DataSource = souDetail
    SQL.Strings = (
      'select * from tYSXX'
      'where ryid=:ryid')
    UpdateObject = sqlYSXX
    Left = 368
    Top = 41
    ParamData = <
      item
        DataType = ftFixedChar
        Name = 'RYID'
        ParamType = ptInput
      end>
  end
  object sqlYSXX: TUpdateSQL
    ModifySQL.Strings = (
      'update tYSXX'
      'set'
      '  YSID = :YSID,'
      '  RYID = :RYID,'
      '  YSSFZH = :YSSFZH,'
      '  YSXM = :YSXM,'
      '  TXDZ = :TXDZ,'
      '  YB = :YB,'
      '  GX = :GX'
      'where'
      '  YSID = :OLD_YSID')
    InsertSQL.Strings = (
      'insert into tYSXX'
      '  (YSID, RYID, YSSFZH, YSXM, TXDZ, YB, GX)'
      'values'
      '  (:YSID, :RYID, :YSSFZH, :YSXM, :TXDZ, :YB, :GX)')
    DeleteSQL.Strings = (
      'delete from tYSXX'
      'where'
      '  YSID = :OLD_YSID')
    Left = 400
    Top = 41
  end
  object souYSGX: TDataSource
    DataSet = qryYSGX
    Left = 456
    Top = 41
  end
  object qryYSGX: TQuery
    DatabaseName = 'MainDB'
    SQL.Strings = (
      'select * from tDMB'
      'where zdbz='#39'GX'#39)
    Left = 496
    Top = 41
  end
end