uzzzgtb.~dfm

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

              Top = 62
              Width = 91
              Height = 20
              Color = clBtnFace
              DataField = 'DWHBZE'
              DataSource = souLX
              ReadOnly = True
              TabOrder = 5
            end
            object DBEdit10: TDBEdit
              Left = 302
              Top = 39
              Width = 79
              Height = 20
              Color = clBtnFace
              DataField = 'GRJFLX'
              DataSource = souLX
              TabOrder = 6
            end
            object DBEdit13: TDBEdit
              Left = 302
              Top = 62
              Width = 79
              Height = 20
              Color = clBtnFace
              DataField = 'DWHBLX'
              DataSource = souLX
              TabOrder = 7
            end
          end
          object GroupBox3: TGroupBox
            Left = 0
            Top = 225
            Width = 622
            Height = 129
            Align = alClient
            Caption = '在职职工缴费记录'
            TabOrder = 2
            object Panel2: TPanel
              Left = 2
              Top = 14
              Width = 618
              Height = 113
              Align = alClient
              BevelOuter = bvLowered
              Caption = 'Panel2'
              TabOrder = 0
              object wwDBGrid1: TwwDBGrid
                Left = 1
                Top = 1
                Width = 616
                Height = 111
                Selected.Strings = (
                  'JFKSYF'#9'18'#9'缴费开始月份'
                  'JFZZYF'#9'18'#9'缴费终止月份'
                  'JFYS'#9'10'#9'缴费月数'
                  'JFZE'#9'10'#9'缴费总额'
                  'JFGZZE'#9'10'#9'缴费工资额'
                  'GRJFBL'#9'12'#9'个人缴费比例'
                  'DWHBBL'#9'12'#9'单位划拨比例')
                IniAttributes.Delimiter = ';;'
                TitleColor = clBtnFace
                FixedCols = 0
                ShowHorzScrollBar = True
                Align = alClient
                BorderStyle = bsNone
                DataSource = souJFXX
                Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit, dgWordWrap, dgPerfectRowFit, dgTrailingEllipsis]
                TabOrder = 0
                TitleAlignment = taCenter
                TitleFont.Charset = GB2312_CHARSET
                TitleFont.Color = clWindowText
                TitleFont.Height = -12
                TitleFont.Name = '宋体'
                TitleFont.Style = []
                TitleLines = 1
                TitleButtons = False
                IndicatorColor = icBlack
              end
            end
          end
        end
      end
      inherited tabCheck: TTabSheet
        inherited Panel4: TPanel
          Width = 622
        end
      end
    end
  end
  inherited ActionList1: TActionList
    inherited actCheck: TAction
      OnExecute = actCheckExecute
    end
    object actShowResult: TAction
      Category = '界面操作'
      Caption = '显示业务记录'
      ImageIndex = 7
      OnExecute = actShowResultExecute
    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 souMaster: TwwDataSource
    Left = 126
  end
  inherited qryMaster: TwwQuery
    SQL.Strings = (
      'select ryid from  tDYXMMX_YCX'
      'where ryid='#39'0'#39)
    Left = 166
  end
  inherited souDetail: TwwDataSource
    Left = 200
    Top = 11
  end
  inherited qryDetail: TwwQuery
    SQL.Strings = (
      'select * from tDYXMMX_YCX'
      'where ryid=:ryid')
    Left = 232
    Top = 11
    ParamData = <
      item
        DataType = ftFixedChar
        Name = 'RYID'
        ParamType = ptInput
      end>
    object qryDetailRYID: TStringField
      FieldName = 'RYID'
      Origin = 'MAINDB.TDYXMMX_YCX.RYID'
      FixedChar = True
      Size = 10
    end
    object qryDetailDYLX: TFloatField
      FieldName = 'DYLX'
      Origin = 'MAINDB.TDYXMMX_YCX.DYLX'
    end
    object qryDetailJSYF: TDateTimeField
      FieldName = 'JSYF'
      Origin = 'MAINDB.TDYXMMX_YCX.JSYF'
    end
    object qryDetailSNDSPGZ: TFloatField
      FieldName = 'SNDSPGZ'
      Origin = 'MAINDB.TDYXMMX_YCX.SNDSPGZ'
    end
    object qryDetailGRZHYE: TFloatField
      FieldName = 'GRZHYE'
      Origin = 'MAINDB.TDYXMMX_YCX.GRZHYE'
    end
    object qryDetailSZBZF: TFloatField
      FieldName = 'SZBZF'
      Origin = 'MAINDB.TDYXMMX_YCX.SZBZF'
    end
    object qryDetailYCXFXJ: TFloatField
      FieldName = 'YCXFXJ'
      Origin = 'MAINDB.TDYXMMX_YCX.YCXFXJ'
    end
    object qryDetailYCXJJF: TFloatField
      FieldName = 'YCXJJF'
      Origin = 'MAINDB.TDYXMMX_YCX.YCXJJF'
    end
    object qryDetailTBJE: TFloatField
      FieldName = 'TBJE'
      Origin = 'MAINDB.TDYXMMX_YCX.TBJE'
    end
    object qryDetailHDDY: TFloatField
      FieldName = 'HDDY'
      Origin = 'MAINDB.TDYXMMX_YCX.HDDY'
    end
    object qryDetailFFRQ: TDateTimeField
      FieldName = 'FFRQ'
      Origin = 'MAINDB.TDYXMMX_YCX.FFRQ'
    end
  end
  inherited sqlDetail: TUpdateSQL
    ModifySQL.Strings = (
      'update tCGDJSB'
      'set'
      '  RYID = :RYID,'
      '  SBRQ = :SBRQ,'
      '  JSYF = :JSYF,'
      '  BZ = :BZ,'
      '  SHYJ = :SHYJ,'
      '  YWZT = :YWZT,'
      '  JBR = :JBR,'
      '  JBRQ = :JBRQ,'
      '  SHR = :SHR,'
      '  SHRQ = :SHRQ'
      'where'
      '  RYID = :OLD_RYID')
    InsertSQL.Strings = (
      'insert into tCGDJSB'
      '  (RYID, SBRQ, JSYF, BZ, SHYJ, YWZT, JBR, JBRQ, SHR, SHRQ)'
      'values'
      
        '  (:RYID, :SBRQ, :JSYF, :BZ, :SHYJ, :YWZT, :JBR, :JBRQ, :SHR, :S' +
        'HRQ)')
    DeleteSQL.Strings = (
      'delete from tCGDJSB'
      'where'
      '  RYID = :OLD_RYID')
    Left = 264
    Top = 10
  end
  object souCGDJ: TwwDataSource
    DataSet = qryCGDJ
    OnStateChange = souCGDJStateChange
    OnDataChange = souCGDJDataChange
    Left = 456
    Top = 225
  end
  object qryCGDJ: TwwQuery
    CachedUpdates = True
    BeforeInsert = qryCGDJBeforeInsert
    AfterInsert = qryCGDJAfterInsert
    OnCalcFields = qryCGDJCalcFields
    DatabaseName = 'MainDB'
    DataSource = souMaster
    SQL.Strings = (
      'select * from tCGDJSB'
      'where ryid=:ryid')
    UpdateObject = sqlCGDJ
    ValidateWithMask = True
    Left = 488
    Top = 225
    ParamData = <
      item
        DataType = ftFixedChar
        Name = 'RYID'
        ParamType = ptUnknown
      end>
    object qryCGDJSFZH: TStringField
      FieldKind = fkCalculated
      FieldName = 'SFZH'
      Calculated = True
    end
    object qryCGDJXM: TStringField
      FieldKind = fkCalculated
      FieldName = 'XM'
      Size = 10
      Calculated = True
    end
    object qryCGDJDWDM: TStringField
      FieldKind = fkCalculated
      FieldName = 'DWDM'
      Size = 10
      Calculated = True
    end
    object qryCGDJDWMC: TStringField
      FieldKind = fkCalculated
      FieldName = 'DWMC'
      Size = 40
      Calculated = True
    end
    object qryCGDJRYID: TStringField
      FieldName = 'RYID'
      Origin = 'MAINDB.TCGDJSB.RYID'
      FixedChar = True
      Size = 10
    end
    object qryCGDJSBRQ: TDateTimeField
      FieldName = 'SBRQ'
      Origin = 'MAINDB.TCGDJSB.SBRQ'
    end
    object qryCGDJJSYF: TDateTimeField
      FieldName = 'JSYF'
      Origin = 'MAINDB.TCGDJSB.JSYF'
    end
    object qryCGDJBZ: TStringField
      FieldName = 'BZ'
      Origin = 'MAINDB.TCGDJSB.BZ'
      Size = 100
    end
    object qryCGDJSHYJ: TStringField
      FieldName = 'SHYJ'
      Origin = 'MAINDB.TCGDJSB.SHYJ'
      Size = 100
    end
    object qryCGDJYWZT: TFloatField
      FieldName = 'YWZT'
      Origin = 'MAINDB.TCGDJSB.YWZT'
    end
    object qryCGDJJBR: TStringField
      FieldName = 'JBR'
      Origin = 'MAINDB.TCGDJSB.JBR'
      Size = 10
    end
    object qryCGDJJBRQ: TDateTimeField
      FieldName = 'JBRQ'
      Origin = 'MAINDB.TCGDJSB.JBRQ'
    end
    object qryCGDJSHR: TStringField
      FieldName = 'SHR'
      Origin = 'MAINDB.TCGDJSB.SHR'
      Size = 10
    end
    object qryCGDJSHRQ: TDateTimeField
      FieldName = 'SHRQ'
      Origin = 'MAINDB.TCGDJSB.SHRQ'
    end
  end
  object souJFXX: TwwDataSource
    DataSet = qryJFXX
    Left = 464
    Top = 280
  end
  object qryJFXX: TwwQuery
    DatabaseName = 'MainDB'
    DataSource = souMaster
    SQL.Strings = (
      'select * from tJFXX'
      'where ryid=:ryid')
    ValidateWithMask = True
    Left = 511
    Top = 280
    ParamData = <
      item
        DataType = ftFixedChar
        Name = 'RYID'
        ParamType = ptUnknown
      end>
    object qryJFXXJFKSYF: TDateTimeField
      DisplayLabel = '缴费开始月份'
      DisplayWidth = 18
      FieldName = 'JFKSYF'
      Origin = 'MAINDB.TJFXX.JFKSYF'
    end
    object qryJFXXJFZZYF: TDateTimeField
      DisplayLabel = '缴费终止月份'
      DisplayWidth = 18
      FieldName = 'JFZZYF'
      Origin = 'MAINDB.TJFXX.JFZZYF'
    end
    object qryJFXXJFYS: TFloatField
      DisplayLabel = '缴费月数'
      DisplayWidth = 10
      FieldName = 'JFYS'
      Origin = 'MAINDB.TJFXX.JFYS'
    end
    object qryJFXXJFZE: TFloatField
      DisplayLabel = '缴费总额'
      DisplayWidth = 10
      FieldName = 'JFZE'
      Origin = 'MAINDB.TJFXX.JFZE'
    end
    object qryJFXXJFGZZE: TFloatField
      DisplayLabel = '缴费工资额'
      DisplayWidth = 10
      FieldName = 'JFGZZE'
      Origin = 'MAINDB.TJFXX.JFGZZE'
    end
    object qryJFXXGRJFBL: TFloatField
      DisplayLabel = '个人缴费比例'
      DisplayWidth = 12
      FieldName = 'GRJFBL'
      Origin = 'MAINDB.TJFXX.GRJFBL'
    end
    object qryJFXXDWHBBL: TFloatField
      DisplayLabel = '单位划拨比例'
      DisplayWidth = 12
      FieldName = 'DWHBBL'
      Origin = 'MAINDB.TJFXX.DWHBBL'
    end
  end
  object stoTemp: TwwStoredProc
    DatabaseName = 'MainDB'
    StoredProcName = 'P_ZZTBSL'
    ValidateWithMask = True
    Left = 572
    Top = 172
    ParamData = <
      item
        DataType = ftString
        Name = 'P_RYID'
        ParamType = ptInput
      end
      item
        DataType = ftFloat
        Name = 'P_TYPE'
        ParamType = ptInput
      end
      item
        DataType = ftDateTime
        Name = 'P_SWSJ'
        ParamType = ptInput
      end
      item
        DataType = ftFloat
        Name = 'P_ERRORCODE'
        ParamType = ptOutput
      end>
  end
  object sqlCGDJ: TUpdateSQL
    ModifySQL.Strings = (
      'update tCGDJSB'
      'set'
      '  RYID = :RYID,'
      '  SBRQ = :SBRQ,'
      '  JSYF = :JSYF,'
      '  BZ = :BZ,'
      '  SHYJ = :SHYJ,'
      '  YWZT = :YWZT,'
      '  JBR = :JBR,'
      '  JBRQ = :JBRQ,'
      '  SHR = :SHR,'
      '  SHRQ = :SHRQ'
      'where'
      '  RYID = :OLD_RYID')
    InsertSQL.Strings = (
      'insert into tCGDJSB'
      '  (RYID, SBRQ, JSYF, BZ, SHYJ, YWZT, JBR, JBRQ, SHR, SHRQ)'
      'values'
      
        '  (:RYID, :SBRQ, :JSYF, :BZ, :SHYJ, :YWZT, :JBR, :JBRQ, :SHR, :S' +
        'HRQ)')
    DeleteSQL.Strings = (
      'delete from tCGDJSB'
      'where'
      '  RYID = :OLD_RYID')
    Left = 518
    Top = 224
  end
  object souLX: TDataSource
    DataSet = qryLX
    Left = 478
    Top = 347
  end
  object qryLX: TQuery
    DatabaseName = 'MainDB'
    DataSource = souMaster
    SQL.Strings = (
      'select * from tzzryjbxx'
      'where ryid=:ryid')
    Left = 518
    Top = 347
    ParamData = <
      item
        DataType = ftFixedChar
        Name = 'RYID'
        ParamType = ptInput
      end>
  end
end