uzzzgsw.~dfm

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

                    Width = 72
                    Height = 12
                    Caption = '单位划拨利息'
                  end
                  object DBEdit3: TDBEdit
                    Left = 84
                    Top = 8
                    Width = 64
                    Height = 20
                    TabStop = False
                    Color = clBtnFace
                    DataField = 'GRZHYE'
                    DataSource = souDYXM
                    ImeName = 'Chinese (Simplified) - MS-PinYin98'
                    ReadOnly = True
                    TabOrder = 0
                  end
                  object edtSZBZF: TDBEdit
                    Left = 539
                    Top = 8
                    Width = 64
                    Height = 20
                    TabStop = False
                    Color = clBtnFace
                    DataField = 'SZBZF'
                    DataSource = souDYXM
                    ImeName = 'Chinese (Simplified) - MS-PinYin98'
                    ReadOnly = True
                    TabOrder = 1
                  end
                  object edtYCXFXJ: TDBEdit
                    Left = 235
                    Top = 8
                    Width = 64
                    Height = 20
                    TabStop = False
                    Color = clBtnFace
                    DataField = 'YCXFXJ'
                    DataSource = souDYXM
                    ImeName = 'Chinese (Simplified) - MS-PinYin98'
                    ReadOnly = True
                    TabOrder = 2
                  end
                  object edtYCXJJF: TDBEdit
                    Left = 394
                    Top = 8
                    Width = 64
                    Height = 20
                    TabStop = False
                    Color = clBtnFace
                    DataField = 'YCXJJF'
                    DataSource = souDYXM
                    ImeName = 'Chinese (Simplified) - MS-PinYin98'
                    ReadOnly = True
                    TabOrder = 3
                  end
                  object DBEdit12: TDBEdit
                    Left = 235
                    Top = 34
                    Width = 64
                    Height = 20
                    TabStop = False
                    Color = clBtnFace
                    DataField = 'HDDY'
                    DataSource = souDYXM
                    ImeName = 'Chinese (Simplified) - MS-PinYin98'
                    ReadOnly = True
                    TabOrder = 4
                  end
                  object wwDBDateTimePicker2: TwwDBDateTimePicker
                    Left = 394
                    Top = 34
                    Width = 107
                    Height = 20
                    TabStop = False
                    CalendarAttributes.Font.Charset = DEFAULT_CHARSET
                    CalendarAttributes.Font.Color = clWindowText
                    CalendarAttributes.Font.Height = -11
                    CalendarAttributes.Font.Name = 'MS Sans Serif'
                    CalendarAttributes.Font.Style = []
                    Color = clBtnFace
                    DataField = 'FFRQ'
                    DateFormat = dfLong
                    DataSource = souDYXM
                    Epoch = 1950
                    ImeName = 'Chinese (Simplified) - MS-PinYin98'
                    ReadOnly = True
                    ShowButton = True
                    TabOrder = 5
                  end
                  object DBEdit11: TDBEdit
                    Left = 84
                    Top = 34
                    Width = 64
                    Height = 20
                    TabStop = False
                    Color = clBtnFace
                    DataField = 'TBJE'
                    DataSource = souDYXM
                    ImeName = 'Chinese (Simplified) - MS-PinYin98'
                    ReadOnly = True
                    TabOrder = 6
                  end
                  object DBEdit14: TDBEdit
                    Left = 84
                    Top = 57
                    Width = 63
                    Height = 20
                    Color = clBtnFace
                    DataField = 'GRJFZE'
                    DataSource = souZHXX
                    ReadOnly = True
                    TabOrder = 7
                  end
                  object DBEdit15: TDBEdit
                    Left = 236
                    Top = 57
                    Width = 63
                    Height = 20
                    Color = clBtnFace
                    DataField = 'GRJFLX'
                    DataSource = souZHXX
                    ReadOnly = True
                    TabOrder = 8
                  end
                  object DBEdit16: TDBEdit
                    Left = 394
                    Top = 57
                    Width = 63
                    Height = 20
                    Color = clBtnFace
                    DataField = 'DWHBZE'
                    DataSource = souZHXX
                    ReadOnly = True
                    TabOrder = 9
                  end
                  object DBEdit17: TDBEdit
                    Left = 540
                    Top = 57
                    Width = 63
                    Height = 20
                    Color = clBtnFace
                    DataField = 'DWHBLX'
                    DataSource = souZHXX
                    ReadOnly = True
                    TabOrder = 10
                  end
                end
              end
            end
          end
        end
      end
    end
  end
  inherited ActionList1: TActionList
    inherited actCheck: TAction
      OnExecute = actCheckExecute
    end
    object actShowResult: TAction
      Category = '界面操作'
      Caption = '显示业务记录'
      ImageIndex = 7
    end
    object actPrint: TAction
      Category = '界面操作'
      Caption = '打印'
      ImageIndex = 9
      OnExecute = actPrintExecute
    end
    object actFind: TAction
      Category = '界面操作'
      Caption = '查找'
      ImageIndex = 4
      ShortCut = 16454
      OnExecute = actFindExecute
    end
  end
  inherited imgTemp: TImageList
    Left = 340
    Top = 8
  end
  inherited souMaster: TwwDataSource
    Left = 190
  end
  inherited qryMaster: TwwQuery
    SQL.Strings = (
      'select ryid from tRYJBXX'
      'where ryid='#39'0'#39)
    Left = 222
  end
  inherited souDetail: TwwDataSource
    OnDataChange = souDetailDataChange
    Left = 191
  end
  inherited qryDetail: TwwQuery
    BeforeInsert = qryDetailBeforeInsert
    AfterInsert = qryDetailAfterInsert
    OnCalcFields = qryDetailCalcFields
    SQL.Strings = (
      'select * from tSWDYSB'
      'where ryid=:ryid')
    ParamData = <
      item
        DataType = ftFixedChar
        Name = 'RYID'
        ParamType = ptInput
      end>
    object qryDetailRYID: TStringField
      FieldName = 'RYID'
      Origin = 'MAINDB.TSWDYSB.RYID'
      FixedChar = True
      Size = 10
    end
    object qryDetailSBRQ: TDateTimeField
      FieldName = 'SBRQ'
      Origin = 'MAINDB.TSWDYSB.SBRQ'
    end
    object qryDetailSWSJ: TDateTimeField
      FieldName = 'SWSJ'
      Origin = 'MAINDB.TSWDYSB.SWSJ'
    end
    object qryDetailSWZH: TStringField
      FieldName = 'SWZH'
      Origin = 'MAINDB.TSWDYSB.SWZH'
    end
    object qryDetailSWYY: TStringField
      FieldName = 'SWYY'
      Origin = 'MAINDB.TSWDYSB.SWYY'
      Size = 40
    end
    object qryDetailYWYS: TFloatField
      FieldName = 'YWYS'
      Origin = 'MAINDB.TSWDYSB.YWYS'
    end
    object qryDetailSHYJ: TStringField
      FieldName = 'SHYJ'
      Origin = 'MAINDB.TSWDYSB.SHYJ'
      Size = 100
    end
    object qryDetailYWZT: TFloatField
      FieldName = 'YWZT'
      Origin = 'MAINDB.TSWDYSB.YWZT'
    end
    object qryDetailJBR: TStringField
      FieldName = 'JBR'
      Origin = 'MAINDB.TSWDYSB.JBR'
      Size = 10
    end
    object qryDetailJBRQ: TDateTimeField
      FieldName = 'JBRQ'
      Origin = 'MAINDB.TSWDYSB.JBRQ'
    end
    object qryDetailSHR: TStringField
      FieldName = 'SHR'
      Origin = 'MAINDB.TSWDYSB.SHR'
      Size = 10
    end
    object qryDetailSHRQ: TDateTimeField
      FieldName = 'SHRQ'
      Origin = 'MAINDB.TSWDYSB.SHRQ'
    end
    object qryDetailDWMC: TStringField
      FieldKind = fkCalculated
      FieldName = 'DWMC'
      Size = 40
      Calculated = True
    end
    object qryDetailDWDM: TStringField
      FieldKind = fkCalculated
      FieldName = 'DWDM'
      Size = 10
      Calculated = True
    end
    object qryDetailXM: TStringField
      FieldKind = fkCalculated
      FieldName = 'XM'
      Size = 10
      Calculated = True
    end
    object qryDetailSFZH: TStringField
      FieldKind = fkCalculated
      FieldName = 'SFZH'
      Size = 18
      Calculated = True
    end
    object qryDetailRYZT: TStringField
      FieldKind = fkCalculated
      FieldName = 'RYZT'
      Calculated = True
    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 = 155
    Top = 233
  end
  object qryYSXX: TQuery
    CachedUpdates = True
    BeforeInsert = qryYSXXBeforeInsert
    AfterInsert = qryYSXXAfterInsert
    BeforePost = qryYSXXBeforePost
    AfterPost = qryYSXXAfterPost
    AfterDelete = qryYSXXAfterDelete
    DatabaseName = 'MainDB'
    DataSource = souMaster
    SQL.Strings = (
      'select * from tYSXX'
      'where ryid=:ryid')
    UpdateObject = sqlYSXX
    Left = 184
    Top = 233
    ParamData = <
      item
        DataType = ftFixedChar
        Name = 'RYID'
        ParamType = ptInput
      end>
    object qryYSXXYSID: TStringField
      FieldName = 'YSID'
      Origin = 'MAINDB.TYSXX.YSID'
      Visible = False
      FixedChar = True
      Size = 10
    end
    object qryYSXXRYID: TStringField
      FieldName = 'RYID'
      Origin = 'MAINDB.TYSXX.RYID'
      Visible = False
      FixedChar = True
      Size = 10
    end
    object qryYSXXYSSFZH: TStringField
      DisplayLabel = '遗属社会保障号'
      FieldName = 'YSSFZH'
      Origin = 'MAINDB.TYSXX.YSSFZH'
      FixedChar = True
      Size = 18
    end
    object qryYSXXYSXM: TStringField
      DisplayLabel = '遗属姓名'
      FieldName = 'YSXM'
      Origin = 'MAINDB.TYSXX.YSXM'
      Size = 10
    end
    object qryYSXXTXDZ: TStringField
      DisplayLabel = '遗属地址'
      FieldName = 'TXDZ'
      Origin = 'MAINDB.TYSXX.TXDZ'
      Size = 80
    end
    object qryYSXXYB: TStringField
      DisplayLabel = '邮编'
      FieldName = 'YB'
      Origin = 'MAINDB.TYSXX.YB'
      FixedChar = True
      Size = 6
    end
    object qryYSXXGX: TFloatField
      DisplayLabel = '关系'
      FieldName = 'GX'
      LookupDataSet = qryYSGX
      LookupKeyFields = 'DM'
      LookupResultField = 'DMMC'
      KeyFields = 'GX'
      Origin = 'MAINDB.TYSXX.GX'
    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 = (