frm_失业保险记录.frm

公司人员综合管理系统 提供公司人员的简历、工资账目、考勤、医疗纪录、失业保险等情况

            EndProperty
            Height          =   285
            Left            =   4710
            TabIndex        =   10
            Top             =   2775
            Width           =   2895
         End
         Begin VB.TextBox TXT_YJZJ 
            DataField       =   "季度应缴总计"
            BeginProperty DataFormat 
               Type            =   1
               Format          =   """￥""#,##0.00"
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   2052
               SubFormatType   =   2
            EndProperty
            DataSource      =   "datPrimaryRS"
            BeginProperty Font 
               Name            =   "宋体"
               Size            =   9
               Charset         =   134
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   285
            Left            =   4710
            TabIndex        =   8
            Top             =   3615
            Width           =   2895
         End
         Begin VB.TextBox TXT_GZZE 
            DataField       =   "应缴职工年工资总额"
            BeginProperty DataFormat 
               Type            =   0
               Format          =   """￥""#,##0.00"
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   2052
               SubFormatType   =   0
            EndProperty
            DataSource      =   "datPrimaryRS"
            BeginProperty Font 
               Name            =   "宋体"
               Size            =   9
               Charset         =   134
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   285
            Left            =   4710
            TabIndex        =   6
            Top             =   2010
            Width           =   2895
         End
         Begin VB.TextBox TXT_ND 
            DataField       =   "年度"
            DataSource      =   "datPrimaryRS"
            BeginProperty Font 
               Name            =   "宋体"
               Size            =   9
               Charset         =   134
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   285
            Left            =   4710
            TabIndex        =   3
            Top             =   1215
            Width           =   2895
         End
         Begin VB.Label lblLabels 
            Caption         =   "全年应缴金额:"
            BeginProperty Font 
               Name            =   "宋体"
               Size            =   9
               Charset         =   134
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   255
            Index           =   8
            Left            =   2790
            TabIndex        =   15
            Top             =   4035
            Width           =   1725
         End
         Begin VB.Label lblLabels 
            Caption         =   "季度个人应缴额:"
            BeginProperty Font 
               Name            =   "宋体"
               Size            =   9
               Charset         =   134
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   255
            Index           =   7
            Left            =   2790
            TabIndex        =   13
            Top             =   3255
            Width           =   1725
         End
         Begin VB.Label lblLabels 
            Caption         =   "季度缴费人数:"
            BeginProperty Font 
               Name            =   "宋体"
               Size            =   9
               Charset         =   134
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   255
            Index           =   6
            Left            =   2790
            TabIndex        =   11
            Top             =   2460
            Width           =   1725
         End
         Begin VB.Label lblLabels 
            Caption         =   "季度单位应缴额:"
            BeginProperty Font 
               Name            =   "宋体"
               Size            =   9
               Charset         =   134
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   255
            Index           =   5
            Left            =   2790
            TabIndex        =   9
            Top             =   2835
            Width           =   1725
         End
         Begin VB.Label lblLabels 
            Caption         =   "季度应缴总计:"
            BeginProperty Font 
               Name            =   "宋体"
               Size            =   9
               Charset         =   134
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   255
            Index           =   4
            Left            =   2790
            TabIndex        =   7
            Top             =   3645
            Width           =   1725
         End
         Begin VB.Label lblLabels 
            Caption         =   "应缴职工年工资总额:"
            BeginProperty Font 
               Name            =   "宋体"
               Size            =   9
               Charset         =   134
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   255
            Index           =   3
            Left            =   2790
            TabIndex        =   5
            Top             =   2070
            Width           =   1725
         End
         Begin VB.Label lblLabels 
            Caption         =   "日期："
            BeginProperty Font 
               Name            =   "宋体"
               Size            =   9
               Charset         =   134
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   255
            Index           =   2
            Left            =   2790
            TabIndex        =   4
            Top             =   1665
            Width           =   1725
         End
         Begin VB.Label lblLabels 
            Caption         =   "年度:"
            BeginProperty Font 
               Name            =   "宋体"
               Size            =   9
               Charset         =   134
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   255
            Index           =   1
            Left            =   2790
            TabIndex        =   2
            Top             =   1290
            Width           =   1725
         End
      End
   End
End
Attribute VB_Name = "frm_SYBXJL"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmdClose_Click()
    RSGL.Enabled = True
    Unload Me
End Sub

Private Sub Form_Load()
    RQ = Date
    TXT_ND = Year(RQ)
    SQL = "SELECT * FROM 员工基本信息 where 档案转入时间<'" & TXT_ND & "'"
    Set rs = ConnWZ.Execute(SQL)
    If rs.EOF Then Exit Sub
    TXT_JFRS = rs.RecordCount
    
    SQL = "select * from 比例基数维护表 where 年度=" & Val(TXT_ND) & ""
    Set rs = ConnWZ.Execute(SQL)
    If rs.EOF Then Exit Sub
    TXT_GZZE = rs("年工资总额")
    TXT_DWYJE = FormatCurrency(Val(TXT_GZZE) * rs("失业单位比例") / 4)
    TXT_GRYJE = FormatCurrency(Val(rs("失业保险扣款") * Val(TXT_JFRS) * 3))
    TXT_YJZJ = FormatCurrency(Val(Format(TXT_GRYJE)) + Val(Format(TXT_DWYJE)))
    TXT_YJJE = FormatCurrency(Val(Format(TXT_YJZJ)) * 4)
End Sub