udwpjgz.dfm

来自「行业应急系统 包括: 应急系统（待遇核发） 发放系统 开」· DFM 代码 · 共 446 行

inherited frmDWPJGZ: TfrmDWPJGZ
  Left = -6
  Top = 108
  Caption = ''
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 12
  inherited pnlTitle: TPanel
    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 Panel6: TPanel
        inherited scrMain: TScrollBox
          object Panel1: TPanel
            Left = 0
            Top = 0
            Width = 628
            Height = 417
            Align = alClient
            TabOrder = 0
            object GroupBox1: TGroupBox
              Left = 1
              Top = 1
              Width = 626
              Height = 106
              Align = alTop
              TabOrder = 0
              object Label1: TLabel
                Left = 8
                Top = 28
                Width = 48
                Height = 12
                Caption = '单位名称'
              end
              object Label2: TLabel
                Left = 188
                Top = 51
                Width = 24
                Height = 12
                Caption = '年度'
                FocusControl = DBEdit2
              end
              object Label3: TLabel
                Left = 333
                Top = 51
                Width = 96
                Height = 12
                Caption = '年平均工资增长率'
                FocusControl = DBEdit3
              end
              object Label4: TLabel
                Left = 8
                Top = 51
                Width = 48
                Height = 12
                Caption = '单位代码'
              end
              object LabelDWMC: TLabel
                Left = 74
                Top = 28
                Width = 6
                Height = 12
                Font.Charset = GB2312_CHARSET
                Font.Color = clBlack
                Font.Height = -12
                Font.Name = '宋体'
                Font.Style = []
                ParentFont = False
              end
              object Label8: TLabel
                Left = 540
                Top = 50
                Width = 6
                Height = 12
                Caption = '%'
              end
              object lblDWDM: TLabel
                Left = 74
                Top = 51
                Width = 6
                Height = 12
                Font.Charset = GB2312_CHARSET
                Font.Color = clBlack
                Font.Height = -12
                Font.Name = '宋体'
                Font.Style = []
                ParentFont = False
              end
              object Label9: TLabel
                Left = 112
                Top = 71
                Width = 104
                Height = 23
                Alignment = taCenter
                AutoSize = False
                Caption = '下年度效益分享金退休标准 '
                FocusControl = DBEdit2
                WordWrap = True
              end
              object Label10: TLabel
                Left = 332
                Top = 72
                Width = 104
                Height = 24
                Alignment = taCenter
                AutoSize = False
                Caption = '下年度效益分享金离休标准'
                FocusControl = DBEdit3
                WordWrap = True
              end
              object Label11: TLabel
                Left = 300
                Top = 76
                Width = 30
                Height = 12
                Caption = '人/月'
              end
              object Label12: TLabel
                Left = 535
                Top = 74
                Width = 30
                Height = 12
                Caption = '人/月'
              end
              object DBEdit2: TDBEdit
                Left = 217
                Top = 47
                Width = 81
                Height = 20
                DataField = 'ND'
                DataSource = souTemp
                TabOrder = 0
              end
              object DBEdit3: TDBEdit
                Left = 436
                Top = 47
                Width = 97
                Height = 20
                DataField = 'NPJGZ'
                DataSource = souTemp
                TabOrder = 1
              end
              object DBEdit1: TDBEdit
                Left = 217
                Top = 71
                Width = 81
                Height = 20
                DataField = 'XNDTXBZ'
                DataSource = souTemp
                TabOrder = 2
              end
              object DBEdit4: TDBEdit
                Left = 436
                Top = 71
                Width = 97
                Height = 20
                DataField = 'XNDLXBZ'
                DataSource = souTemp
                TabOrder = 3
              end
            end
            object GroupBox2: TGroupBox
              Left = 1
              Top = 152
              Width = 626
              Height = 264
              Align = alClient
              TabOrder = 1
              object DBGrid1: TDBGrid
                Left = 2
                Top = 14
                Width = 622
                Height = 248
                Align = alClient
                DataSource = souTemp
                Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
                ReadOnly = True
                TabOrder = 0
                TitleFont.Charset = GB2312_CHARSET
                TitleFont.Color = clWindowText
                TitleFont.Height = -12
                TitleFont.Name = '宋体'
                TitleFont.Style = []
                Columns = <
                  item
                    Expanded = False
                    FieldName = 'DWID'
                    Visible = False
                  end
                  item
                    Expanded = False
                    FieldName = 'ND'
                    Title.Caption = '年度'
                    Width = 163
                    Visible = True
                  end
                  item
                    Expanded = False
                    FieldName = 'NPJGZ'
                    Title.Caption = '年平均工资增长率（%）'
                    Width = 320
                    Visible = True
                  end>
              end
            end
            object Panel4: TPanel
              Left = 1
              Top = 107
              Width = 626
              Height = 45
              Align = alTop
              BevelInner = bvLowered
              BevelOuter = bvNone
              BorderWidth = 5
              TabOrder = 2
              object Memo1: TMemo
                Left = 6
                Top = 6
                Width = 614
                Height = 33
                Align = alClient
                BorderStyle = bsNone
                Lines.Strings = (
                  '填写说明:'
                  '如果下年度效益分享金标准为多标准时,请以0人/月作为标准填入')
                TabOrder = 0
              end
            end
          end
        end
      end
    end
    inherited tabBrowse: TTabSheet
      inherited pnlBrowse: TPanel
        Width = 637
      end
    end
    object tabCX: TTabSheet
      Caption = '查询界面'
      ImageIndex = 2
      TabVisible = False
      object Bevel2: TBevel
        Left = 0
        Top = 160
        Width = 633
        Height = 17
      end
      object Panel3: TPanel
        Left = 0
        Top = 0
        Width = 633
        Height = 32
        Alignment = taLeftJustify
        Caption = '     查询状态'
        TabOrder = 0
      end
      object GroupBox3: TGroupBox
        Left = 0
        Top = 32
        Width = 633
        Height = 121
        TabOrder = 1
        object Label5: TLabel
          Left = 16
          Top = 26
          Width = 48
          Height = 12
          Caption = '单位代码'
        end
        object Label6: TLabel
          Left = 17
          Top = 56
          Width = 24
          Height = 12
          Caption = '年度'
        end
        object Label7: TLabel
          Left = 16
          Top = 86
          Width = 96
          Height = 12
          Caption = '年平均工资增长率'
        end
        object btnCXDWDM: TSpeedButton
          Left = 256
          Top = 20
          Width = 41
          Height = 22
          Caption = '查询'
        end
        object btnCXND: TSpeedButton
          Left = 256
          Top = 53
          Width = 41
          Height = 22
          Caption = '查询'
          OnClick = btnCXNDClick
        end
        object btnCXNPJGZ: TSpeedButton
          Left = 256
          Top = 83
          Width = 41
          Height = 22
          Caption = '查询'
          OnClick = btnCXNPJGZClick
        end
        object edtDWDM: TEdit
          Left = 120
          Top = 21
          Width = 121
          Height = 20
          TabOrder = 0
        end
        object edtND: TEdit
          Left = 120
          Top = 53
          Width = 121
          Height = 20
          TabOrder = 1
        end
        object edtNPJGZ: TEdit
          Left = 120
          Top = 84
          Width = 121
          Height = 20
          TabOrder = 2
        end
      end
      object GroupBox4: TGroupBox
        Left = 0
        Top = 184
        Width = 633
        Height = 273
        TabOrder = 2
        object grdCX: TDBGrid
          Left = 2
          Top = 14
          Width = 629
          Height = 257
          Align = alClient
          DataSource = souTemp
          TabOrder = 0
          TitleFont.Charset = GB2312_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -12
          TitleFont.Name = '宋体'
          TitleFont.Style = []
          Columns = <
            item
              Expanded = False
              FieldName = 'DWID'
              Visible = False
            end
            item
              Expanded = False
              FieldName = 'ND'
              Title.Caption = '年度'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'NPJGZ'
              Title.Caption = '年平均工资'
              Visible = True
            end>
        end
      end
    end
  end
  inherited qryTemp: TwwQuery
    SQL.Strings = (
      'select * from tDWPJGZ order by ND')
    object qryTempDWID: TStringField
      FieldName = 'DWID'
      Origin = 'MAINDB.TDWPJGZ.DWID'
      FixedChar = True
      Size = 10
    end
    object qryTempND: TFloatField
      FieldName = 'ND'
      Origin = 'MAINDB.TDWPJGZ.ND'
    end
    object qryTempNPJGZ: TFloatField
      FieldName = 'NPJGZ'
      Origin = 'MAINDB.TDWPJGZ.NPJGZ'
    end
    object qryTempXNDTXBZ: TFloatField
      FieldName = 'XNDTXBZ'
      Origin = 'MAINDB.TDWPJGZ.XNDTXBZ'
    end
    object qryTempXNDLXBZ: TFloatField
      FieldName = 'XNDLXBZ'
      Origin = 'MAINDB.TDWPJGZ.XNDLXBZ'
    end
  end
  inherited sqlTemp: TUpdateSQL
    ModifySQL.Strings = (
      'update tDWPJGZ'
      'set'
      '  DWID = :DWID,'
      '  ND = :ND,'
      '  NPJGZ = :NPJGZ,'
      '  XNDTXBZ = :XNDTXBZ,'
      '  XNDLXBZ = :XNDLXBZ'
      'where'
      '  DWID = :OLD_DWID and'
      '  ND = :OLD_ND')
    InsertSQL.Strings = (
      'insert into tDWPJGZ'
      '  (DWID, ND, NPJGZ, XNDTXBZ, XNDLXBZ)'
      'values'
      '  (:DWID, :ND, :NPJGZ, :XNDTXBZ, :XNDLXBZ)')
    DeleteSQL.Strings = (
      'delete from tDWPJGZ'
      'where'
      '  DWID = :OLD_DWID and'
      '  ND = :OLD_ND')
  end
  inherited mnuTemp: TPopupMenu
    inherited Q1: TMenuItem
      Visible = False
    end
  end
  object souND: TDataSource
    DataSet = qryND
    Left = 315
    Top = 123
  end
  object qryND: TQuery
    DatabaseName = 'MainDB'
    Left = 347
    Top = 123
  end
end