数据库中有工资表,包括“姓名”、“工资”和“职称”等字段,现要对不同职称的职工增加工资,规定教授职称增加15%,副教授职称增加10%,其他人员增加5%。下列程序的功能是按照上述规定调整每位职工的工资,并显示所涨工资的总和。请在空白处填入适当的语句,使程序可

admin2010-04-21  34

问题 数据库中有工资表,包括“姓名”、“工资”和“职称”等字段,现要对不同职称的职工增加工资,规定教授职称增加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 Currency
  Dim rate As Sinqle

  Set dB =CurrentDB()
  Set rs =dB.openRecordset(“工资表”)
  Set gz =rs.Fields(“工资”)
  Set zc =rs.Fields (“职称”)

  Sum=0
  Do While Not【  】
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
【  】
rs.MoveNext
Loop
rs.Close
dB.Close
Set rs=Nothing
Set dB=Nothing
MsgBox”涨工资总计:”&sum
End SuB

选项

答案rs.EOF,rs.update

解析 对记录集用循环结构进行遍历,当记录集未遍历到末尾时,执环循环,用rs.EOF表示记录集遍历到末尾,在对每条记录的工资值进行计算之后,要更新数据表中的相应记录,用rs.Update表示。
转载请注明原文地址:https://jikaoti.com/ti/KMP0FFFM
0

相关试题推荐
最新回复(0)