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

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

admin2010-04-21  50
问题 数据库中有工资表，包括“姓名”、“工资”和“职称”等字段，现要对不同职称的职工增加工资，规定教授职称增加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://kaotiyun.com/show/XKwp777K
本试题收录于： 二级Access题库NCRE全国计算机二级分类
0

二级Access

NCRE全国计算机二级

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