uxtcswh.dfm

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

inherited frmXTCSWH: TfrmXTCSWH
  Left = -101
  Top = 127
  Caption = '系统参数设置'
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 12
  inherited pnlTitle: TPanel
    inherited lblTitle: TLabel
      Width = 263
      Caption = '行业社保系统-系统参数设置'
    end
    inherited lblInterface: TLabel
      Visible = False
    end
    inherited cmbInterface: TComboBox
      Visible = False
    end
  end
  inherited Panel2: TPanel
    inherited TreeView1: TTreeView
      OnClick = TreeView1Click
    end
  end
  inherited pagTemp: TPageControl
    inherited tabEdit: TTabSheet
      inherited pnlEdit: TPanel
        inherited btnInsert: TSpeedButton
          Left = 265
          Visible = False
        end
        inherited btnSave: TSpeedButton
          Left = 391
        end
        inherited btnUndo: TSpeedButton
          Left = 457
        end
        inherited btnDelete: TSpeedButton
          Left = 328
          Visible = False
        end
        inherited navTemp: TwwDBNavigator
          Left = 526
          Visible = False
        end
      end
      inherited Panel6: TPanel
        inherited scrMain: TScrollBox
          object wwDataInspector1: TwwDataInspector
            Left = 0
            Top = 0
            Width = 627
            Height = 415
            Align = alClient
            ScrollBars = ssNone
            TabOrder = 0
            PictureMaskFromDataSet = False
            DataSource = souTemp
            Items = <
              item
                DataSource = souTemp
                DataField = 'CZBZ'
                Caption = '操作标志'
                WordWrap = False
              end
              item
                DataSource = souTemp
                DataField = 'JCYLJJFBL_LX'
                Caption = '离退休干部养老金计发比例'
                WordWrap = False
              end
              item
                DataSource = souTemp
                DataField = 'JCYLJJFBL_TX'
                Caption = '退休人员基础养老金计发比例'
                WordWrap = False
              end
              item
                DataSource = souTemp
                DataField = 'GDXYLJJFBL_15'
                Caption = '过渡性养老金计发比例（15年）'
                WordWrap = False
              end
              item
                DataSource = souTemp
                DataField = 'GDXYLJJFBL_10'
                Caption = '过渡性养老金计发比例（10年）'
                WordWrap = False
              end
              item
                DataSource = souTemp
                DataField = 'TJJJFBL_1'
                Caption = '调节金计发比例1'
                WordWrap = False
              end
              item
                DataSource = souTemp
                DataField = 'TJJJFBL_2'
                Caption = '调节金计发比例2'
                WordWrap = False
              end
              item
                DataSource = souTemp
                DataField = 'TSGZZFBL'
                Caption = '特殊工种计发比例'
                WordWrap = False
              end
              item
                DataSource = souTemp
                DataField = 'TQTXJFBL'
                Caption = '提前退休减发比例'
                WordWrap = False
              end
              item
                DataSource = souTemp
                DataField = 'GRZHYZ'
                Caption = '个人账户养老金因子'
                WordWrap = False
              end
              item
                DataSource = souTemp
                DataField = 'LZRJFNX'
                Caption = '老人和中人缴费年限'
                WordWrap = False
              end
              item
                DataSource = souTemp
                DataField = 'XRJFNX'
                Caption = '新人缴费年限'
                WordWrap = False
              end
              item
                DataSource = souTemp
                DataField = 'LJND'
                Caption = '临界年度'
                WordWrap = False
              end
              item
                DataSource = souTemp
                DataField = 'LJBZBT'
                Caption = '临界标准补贴'
                WordWrap = False
              end
              item
                DataSource = souTemp
                DataField = 'LJTZXS'
                Caption = '临界调整系数'
                WordWrap = False
              end
              item
                DataSource = souTemp
                DataField = 'GRJFBL'
                Caption = '个人缴费比例'
                WordWrap = False
              end
              item
                DataSource = souTemp
                DataField = 'DWJFBL'
                Caption = '单位缴费比例'
                WordWrap = False
              end
              item
                DataSource = souTemp
                DataField = 'ZDBZ_GC'
                Caption = '工残最低生活保障数'
                WordWrap = False
              end
              item
                DataSource = souTemp
                DataField = 'ZDBZ_LTX'
                Caption = '离退休生活保障数'
                WordWrap = False
              end
              item
                DataSource = souTemp
                DataField = 'YJRQ'
                Caption = '月结日期'
                WordWrap = False
              end
              item
                DataSource = souTemp
                DataField = 'ZDBZ_TZ'
                Caption = '退职最低生活保障数'
                WordWrap = False
              end
              item
                DataSource = souTemp
                DataField = 'LRR'
                Caption = '录入人'
                WordWrap = False
              end
              item
                DataSource = souTemp
                DataField = 'LRRQ'
                Caption = '录入日期'
                WordWrap = False
              end
              item
                DataSource = souTemp
                DataField = 'SCZMYXYS'
                Caption = '生存证明有效月数'
                WordWrap = False
              end
              item
                DataSource = souTemp
                DataField = 'YJBZ'
                Caption = '月结标志'
                Visible = False
                WordWrap = False
              end>
            CaptionWidth = 249
            Options = [ovColumnResize, ovRowResize, ovEnterToTab, ovHighlightActiveRow, ovCenterCaptionVert]
            CaptionFont.Charset = DEFAULT_CHARSET
            CaptionFont.Color = clWindowText
            CaptionFont.Height = -11
            CaptionFont.Name = 'MS Sans Serif'
            CaptionFont.Style = []
            OnItemChanged = wwDataInspector1ItemChanged
          end
        end
      end
    end
    inherited tabBrowse: TTabSheet
      inherited pnlBrowse: TPanel
        Width = 637
      end
    end
  end
  inherited actlstTemp: TActionList
    Left = 513
    Top = 25
  end
  inherited imgTemp: TImageList
    Left = 481
    Top = 25
  end
  inherited qryTemp: TwwQuery
    SQL.Strings = (
      'select * from tYLBXCS')
    Left = 593
    Top = 24
    object qryTempCZBZ: TFloatField
      FieldName = 'CZBZ'
      Origin = 'MAINDB.TYLBXCS.CZBZ'
    end
    object qryTempJCYLJJFBL_LX: TFloatField
      FieldName = 'JCYLJJFBL_LX'
      Origin = 'MAINDB.TYLBXCS.JCYLJJFBL_LX'
    end
    object qryTempJCYLJJFBL_TX: TFloatField
      FieldName = 'JCYLJJFBL_TX'
      Origin = 'MAINDB.TYLBXCS.JCYLJJFBL_TX'
    end
    object qryTempGDXYLJJFBL_15: TFloatField
      FieldName = 'GDXYLJJFBL_15'
      Origin = 'MAINDB.TYLBXCS.GDXYLJJFBL_15'
    end
    object qryTempGDXYLJJFBL_10: TFloatField
      FieldName = 'GDXYLJJFBL_10'
      Origin = 'MAINDB.TYLBXCS.GDXYLJJFBL_10'
    end
    object qryTempTJJJFBL_1: TFloatField
      FieldName = 'TJJJFBL_1'
      Origin = 'MAINDB.TYLBXCS.TJJJFBL_1'
    end
    object qryTempTJJJFBL_2: TFloatField
      FieldName = 'TJJJFBL_2'
      Origin = 'MAINDB.TYLBXCS.TJJJFBL_2'
    end
    object qryTempTSGZZFBL: TFloatField
      FieldName = 'TSGZZFBL'
      Origin = 'MAINDB.TYLBXCS.TSGZZFBL'
    end
    object qryTempTQTXJFBL: TFloatField
      FieldName = 'TQTXJFBL'
      Origin = 'MAINDB.TYLBXCS.TQTXJFBL'
    end
    object qryTempGRZHYZ: TFloatField
      FieldName = 'GRZHYZ'
      Origin = 'MAINDB.TYLBXCS.GRZHYZ'
    end
    object qryTempLZRJFNX: TFloatField
      FieldName = 'LZRJFNX'
      Origin = 'MAINDB.TYLBXCS.LZRJFNX'
    end
    object qryTempXRJFNX: TFloatField
      FieldName = 'XRJFNX'
      Origin = 'MAINDB.TYLBXCS.XRJFNX'
    end
    object qryTempLJND: TFloatField
      FieldName = 'LJND'
      Origin = 'MAINDB.TYLBXCS.LJND'
    end
    object qryTempLJBZBT: TFloatField
      FieldName = 'LJBZBT'
      Origin = 'MAINDB.TYLBXCS.LJBZBT'
    end
    object qryTempLJTZXS: TFloatField
      FieldName = 'LJTZXS'
      Origin = 'MAINDB.TYLBXCS.LJTZXS'
    end
    object qryTempGRJFBL: TFloatField
      FieldName = 'GRJFBL'
      Origin = 'MAINDB.TYLBXCS.GRJFBL'
    end
    object qryTempDWJFBL: TFloatField
      FieldName = 'DWJFBL'
      Origin = 'MAINDB.TYLBXCS.DWJFBL'
    end
    object qryTempZDBZ_GC: TFloatField
      FieldName = 'ZDBZ_GC'
      Origin = 'MAINDB.TYLBXCS.ZDBZ_GC'
    end
    object qryTempZDBZ_LTX: TFloatField
      FieldName = 'ZDBZ_LTX'
      Origin = 'MAINDB.TYLBXCS.ZDBZ_LTX'
    end
    object qryTempZDBZ_TZ: TFloatField
      FieldName = 'ZDBZ_TZ'
      Origin = 'MAINDB.TYLBXCS.ZDBZ_TZ'
    end
    object qryTempYJRQ: TDateTimeField
      FieldName = 'YJRQ'
      Origin = 'MAINDB.TYLBXCS.YJRQ'
    end
    object qryTempYJBZ: TFloatField
      FieldName = 'YJBZ'
      Origin = 'MAINDB.TYLBXCS.YJBZ'
    end
    object qryTempLRR: TStringField
      FieldName = 'LRR'
      Origin = 'MAINDB.TYLBXCS.LRR'
      Size = 10
    end
    object qryTempLRRQ: TDateTimeField
      FieldName = 'LRRQ'
      Origin = 'MAINDB.TYLBXCS.LRRQ'
    end
    object qryTempSCZMYXYS: TFloatField
      FieldName = 'SCZMYXYS'
      Origin = 'MAINDB.TYLBXCS.SCZMYXYS'
    end
  end
  inherited souTemp: TwwDataSource
    Left = 553
    Top = 32
  end
  inherited sqlTemp: TUpdateSQL
    ModifySQL.Strings = (
      'update tYLBXCS'
      'set'
      '  CZBZ = :CZBZ,'
      '  JCYLJJFBL_LX = :JCYLJJFBL_LX,'
      '  JCYLJJFBL_TX = :JCYLJJFBL_TX,'
      '  GDXYLJJFBL_15 = :GDXYLJJFBL_15,'
      '  GDXYLJJFBL_10 = :GDXYLJJFBL_10,'
      '  TJJJFBL_1 = :TJJJFBL_1,'
      '  TJJJFBL_2 = :TJJJFBL_2,'
      '  TSGZZFBL = :TSGZZFBL,'
      '  TQTXJFBL = :TQTXJFBL,'
      '  GRZHYZ = :GRZHYZ,'
      '  LZRJFNX = :LZRJFNX,'
      '  XRJFNX = :XRJFNX,'
      '  LJND = :LJND,'
      '  LJBZBT = :LJBZBT,'
      '  LJTZXS = :LJTZXS,'
      '  GRJFBL = :GRJFBL,'
      '  DWJFBL = :DWJFBL,'
      '  ZDBZ_GC = :ZDBZ_GC,'
      '  ZDBZ_LTX = :ZDBZ_LTX,'
      '  ZDBZ_TZ = :ZDBZ_TZ,'
      '  YJRQ = :YJRQ,'
      '  LRR = :LRR,'
      '  LRRQ = :LRRQ'
      'where'
      '  CZBZ = :OLD_CZBZ')
    InsertSQL.Strings = (
      'insert into tYLBXCS'
      
        '  (CZBZ, JCYLJJFBL_LX, JCYLJJFBL_TX, GDXYLJJFBL_15, GDXYLJJFBL_1' +
        '0, TJJJFBL_1, '
      
        '   TJJJFBL_2, TSGZZFBL, TQTXJFBL, GRZHYZ, LZRJFNX, XRJFNX, LJND,' +
        ' LJBZBT, '
      
        '   LJTZXS, GRJFBL, DWJFBL, ZDBZ_GC, ZDBZ_LTX, ZDBZ_TZ, YJRQ, LRR' +
        ', LRRQ)'
      'values'
      
        '  (:CZBZ, :JCYLJJFBL_LX, :JCYLJJFBL_TX, :GDXYLJJFBL_15, :GDXYLJJ' +
        'FBL_10, '
      
        '   :TJJJFBL_1, :TJJJFBL_2, :TSGZZFBL, :TQTXJFBL, :GRZHYZ, :LZRJF' +
        'NX, :XRJFNX, '
      
        '   :LJND, :LJBZBT, :LJTZXS, :GRJFBL, :DWJFBL, :ZDBZ_GC, :ZDBZ_LT' +
        'X, :ZDBZ_TZ, '
      '   :YJRQ, :LRR, :LRRQ)')
    DeleteSQL.Strings = (
      'delete from tYLBXCS'
      'where'
      '  CZBZ = :OLD_CZBZ')
    Top = 32
  end
  inherited mnuTemp: TPopupMenu
    Top = 184
    inherited Q1: TMenuItem
      Visible = False
    end
  end
  inherited imgTree: TImageList
    Left = 443
    Top = 26
  end
end