gzglxtbas.bas

工资管理系统的所有源码编写。详细的实现代码~

Attribute VB_Name = "gzglxtbas"
Public rt As Recordset               '定义为数据库变量
Public bm, xm As String             '定义表变量
Public dx, bt, jj, ft, ylbx, yibxj, zfgjj, yf, sds, sf, js As Single
                                    '定义其他变量
'数据源信息常量
Public Const DATABASE As String = "职工工资管理.mdb"
Sub Main()                          '显示登陆窗口
On Error GoTo x
Set db = OpenDatabase(App.Path + "\DATA\职工工资管理.mdb")
   frm登陆.Show
   Exit Sub
x:
Frm新建数据库.Show
End Sub
Public Sub counttax()               '定义过程，用于计算所得税
   js = yf - 1600
   Select Case js
   Case Is <= 0                    '应发工资少于800元，所得税为0
      sds = 0
   Case 1 To 500                    '应发工资在801~1300元之间
      sds = js * 0.05
   Case 501 To 2000                 '应发工资在13001~2800元之间
      sds = 500 * 0.05 + (js - 500) * 0.1
   Case 2001 To 5000                '应发工资在2801~5800元之间
      sds = 500 * 0.05 + 1500 * 0.1 + (js - 2000) * 0.15
   Case Is > 5000                   '应发工资大于5800
      sds = 500 * 0.05 + 1500 * 0.1 + 3000 * 0.15 + (js - 5000) * 0.2
   End Select
End Sub