( 13 ) 数据库中有工资表 , 包括 “ 姓名 ” 、 “ 工资 ” 和 “ 职称 ” 等字段 , 现要对不同职称的职工增加工资 , 规定教授职称增加 15% , 副教授职称增加 10% , 其他人员增加 5% 。
下列程序的功能是按照上述规定调整每位职工的工资 , 并显示所涨工资之总和 。 请在空白处填入适当的语句,使程序可以完成指定的功能。
Private Sub Command5_Click()
Dim ws As DAO.Workspace
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim gz As DAO.Field
Dim zc As DAO.Field
Dim sum As Currenc y
Dim rate As Single
Set db = CurrentDb()
Set rs = db.OpenRecordset( " 工资表 " )
Set gz = rs.Fields( " 工资 " )
Set zc = rs.Fields( " 职称 " )
sum = 0
Do While Not 【 14 】
rs.Edit
Select Case zc
Case Is = " 教授 "
rate = 0.15
Case Is = " 副教授 "
rate = 0.1
Case Else
rate = 0.05
End Select
sum = sum + gz * rate
gz = gz + gz * rate
【 15 】
rs.MoveNext
Loop
rs.Close
db.Close
Set rs = Nothing
Set db = Nothing
MsgBox " 涨工资总计 : " & sum
End Sub