udwhbbl.dfm

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

inherited frmDWHBBL: TfrmDWHBBL
  Left = 4
  Top = 11
  Height = 596
  Caption = 'frmDWHBBL'
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 12
  inherited Splitter1: TSplitter
    Height = 506
  end
  inherited pnlTitle: TPanel
    inherited lblInterface: TLabel
      Visible = False
    end
    inherited cmbInterface: TComboBox
      Visible = False
    end
  end
  inherited Panel2: TPanel
    Height = 506
    inherited TreeView1: TTreeView
      Height = 498
      OnClick = TreeView1Click
    end
  end
  inherited barStatus: TStatusBar
    Top = 547
  end
  inherited pagTemp: TPageControl
    Height = 506
    inherited tabEdit: TTabSheet
      inherited Panel6: TPanel
        Height = 443
        inherited scrMain: TScrollBox
          Height = 433
          object Panel1: TPanel
            Left = 0
            Top = 0
            Width = 628
            Height = 433
            Align = alClient
            TabOrder = 0
            object Bevel1: TBevel
              Left = 5
              Top = 110
              Width = 617
              Height = 11
            end
            object GroupBox1: TGroupBox
              Left = 5
              Top = 1
              Width = 617
              Height = 105
              TabOrder = 0
              object Label1: TLabel
                Left = 20
                Top = 77
                Width = 48
                Height = 12
                Caption = '启用日期'
              end
              object Label2: TLabel
                Left = 19
                Top = 43
                Width = 72
                Height = 12
                Caption = '单位划拨比例'
              end
              object Label3: TLabel
                Left = 240
                Top = 44
                Width = 72
                Height = 12
                Caption = '个人缴费比例'
              end
              object Label4: TLabel
                Left = 240
                Top = 76
                Width = 48
                Height = 12
                Caption = '终止日期'
              end
              object Label5: TLabel
                Left = 241
                Top = 16
                Width = 48
                Height = 12
                Caption = '单位名称'
              end
              object lblDWMC: TLabel
                Left = 320
                Top = 15
                Width = 6
                Height = 12
                Color = clMenu
                Font.Charset = GB2312_CHARSET
                Font.Color = clTeal
                Font.Height = -12
                Font.Name = '宋体'
                Font.Style = []
                ParentColor = False
                ParentFont = False
              end
              object Label6: TLabel
                Left = 20
                Top = 16
                Width = 48
                Height = 12
                Caption = '单位代码'
              end
              object lblDWDM: TLabel
                Left = 106
                Top = 16
                Width = 6
                Height = 12
                Font.Charset = GB2312_CHARSET
                Font.Color = clTeal
                Font.Height = -12
                Font.Name = '宋体'
                Font.Style = []
                ParentFont = False
              end
              object Label7: TLabel
                Left = 216
                Top = 44
                Width = 6
                Height = 12
                Caption = '%'
              end
              object Label8: TLabel
                Left = 433
                Top = 43
                Width = 6
                Height = 12
                Caption = '%'
              end
              object DBEdit1: TDBEdit
                Left = 104
                Top = 40
                Width = 105
                Height = 20
                DataField = 'DWHBBL'
                DataSource = souTemp
                TabOrder = 0
              end
              object DBEdit2: TDBEdit
                Left = 318
                Top = 40
                Width = 110
                Height = 20
                DataField = 'GRJFBL'
                DataSource = souTemp
                TabOrder = 1
              end
              object tmeQYRQ: TwwDBDateTimePicker
                Left = 104
                Top = 73
                Width = 108
                Height = 20
                CalendarAttributes.Font.Charset = DEFAULT_CHARSET
                CalendarAttributes.Font.Color = clWindowText
                CalendarAttributes.Font.Height = -11
                CalendarAttributes.Font.Name = 'MS Sans Serif'
                CalendarAttributes.Font.Style = []
                DataField = 'QYRQ'
                DataSource = souTemp
                Epoch = 1950
                ShowButton = True
                TabOrder = 2
              end
              object tmeZZRQ: TwwDBDateTimePicker
                Left = 319
                Top = 72
                Width = 113
                Height = 20
                CalendarAttributes.Font.Charset = DEFAULT_CHARSET
                CalendarAttributes.Font.Color = clWindowText
                CalendarAttributes.Font.Height = -11
                CalendarAttributes.Font.Name = 'MS Sans Serif'
                CalendarAttributes.Font.Style = []
                DataField = 'ZZRQ'
                DataSource = souTemp
                Epoch = 1950
                ShowButton = True
                TabOrder = 3
              end
            end
            object GroupBox2: TGroupBox
              Left = 5
              Top = 122
              Width = 617
              Height = 303
              TabOrder = 1
              object grdDWHBBL: TDBGrid
                Left = 2
                Top = 14
                Width = 613
                Height = 287
                Align = alClient
                DataSource = souTemp
                ReadOnly = True
                TabOrder = 0
                TitleFont.Charset = GB2312_CHARSET
                TitleFont.Color = clWindowText
                TitleFont.Height = -12
                TitleFont.Name = '宋体'
                TitleFont.Style = []
                Columns = <
                  item
                    Expanded = False
                    FieldName = 'DWHBBL'
                    Title.Caption = '单位划拨比例（%）'
                    Width = 111
                    Visible = True
                  end
                  item
                    Expanded = False
                    FieldName = 'GRJFBL'
                    Title.Caption = '个人缴费比例（%）'
                    Width = 136
                    Visible = True
                  end
                  item
                    Expanded = False
                    FieldName = 'QYRQ'
                    Title.Caption = '启用日期'
                    Width = 113
                    Visible = True
                  end
                  item
                    Expanded = False
                    FieldName = 'ZZRQ'
                    Title.Caption = '终止日期'
                    Visible = True
                  end
                  item
                    Expanded = False
                    FieldName = 'DWID'
                    Visible = False
                  end>
              end
            end
          end
        end
      end
    end
    inherited tabBrowse: TTabSheet
      inherited pnlBrowse: TPanel
        Width = 637
      end
    end
  end
  inherited qryTemp: TwwQuery
    SQL.Strings = (
      'select * from tDWHBBL order by DWID')
    object qryTempDWID: TStringField
      FieldName = 'DWID'
      Origin = 'MAINDB.TDWHBBL.DWID'
      FixedChar = True
      Size = 10
    end
    object qryTempDWHBBL: TFloatField
      FieldName = 'DWHBBL'
      Origin = 'MAINDB.TDWHBBL.DWHBBL'
    end
    object qryTempGRJFBL: TFloatField
      FieldName = 'GRJFBL'
      Origin = 'MAINDB.TDWHBBL.GRJFBL'
    end
    object qryTempQYRQ: TDateTimeField
      FieldName = 'QYRQ'
      Origin = 'MAINDB.TDWHBBL.QYRQ'
      DisplayFormat = 'yyyy-mm'
    end
    object qryTempZZRQ: TDateTimeField
      FieldName = 'ZZRQ'
      Origin = 'MAINDB.TDWHBBL.ZZRQ'
      DisplayFormat = 'yyyy-mm'
    end
  end
  inherited sqlTemp: TUpdateSQL
    ModifySQL.Strings = (
      'update tDWHBBL'
      'set'
      '  DWID = :DWID,'
      '  QYRQ = :QYRQ,'
      '  DWHBBL = :DWHBBL,'
      '  GRJFBL = :GRJFBL,'
      '  ZZRQ = :ZZRQ'
      'where'
      '  DWID = :OLD_DWID and'
      '  QYRQ = :OLD_QYRQ')
    InsertSQL.Strings = (
      'insert into tDWHBBL'
      '  (DWID, QYRQ, DWHBBL, GRJFBL, ZZRQ)'
      'values'
      '  (:DWID, :QYRQ, :DWHBBL, :GRJFBL, :ZZRQ)')
    DeleteSQL.Strings = (
      'delete from tDWHBBL'
      'where'
      '  DWID = :OLD_DWID and'
      '  QYRQ = :OLD_QYRQ')
  end
  inherited mnuTemp: TPopupMenu
    inherited Q1: TMenuItem
      Visible = False
    end
  end
  object soutest: TDataSource
    DataSet = qrytest
    Left = 392
    Top = 16
  end
  object qrytest: TQuery
    DatabaseName = 'MainDB'
    Left = 424
    Top = 16
  end
  object souQYRQ: TDataSource
    DataSet = qryQYRQ
    Left = 272
    Top = 106
  end
  object qryQYRQ: TQuery
    DatabaseName = 'MainDB'
    Left = 310
    Top = 108
  end
  object souZZRQ: TDataSource
    DataSet = qryZZRQ
    Left = 350
    Top = 108
  end
  object qryZZRQ: TQuery
    DatabaseName = 'MainDB'
    Left = 390
    Top = 108
  end
end