.第11章数据库应用.pptVIP

rst1.Open select * from 初选表, cn Set DataGrid2.DataSource = rst1 If rst1.RecordCount 0 Then 如果初选表中有记录,就不能从登记表中导入数据 Cmd1Import.Enabled = False End If rst2.Open select * from 面试表, cn Set DataGrid3.DataSource = rst2 If rst2.RecordCount 0 Then Cmd2Import.Enabled = False End If rst3.Open select * from 录用表, cn Set DataGrid4.DataSource = rst3 If rst3.RecordCount 0 Then Cmd3Import.Enabled = False End If End Sub Private Sub Cmd0Add_Click() “登记”选项卡中“添加”按钮单击事件的代码 rst0.AddNew End Sub Private Sub Cmd0Ok_Click()“登记”选项卡中“确定”按钮单击事件的代码 rst0.Update rst0.Sort = 应聘人编号 End Sub Private Sub Cmd0Del_Click()“登记”选项卡中“删除”按钮单击事件的代码 x = MsgBox(确定要删除吗？, vbYesNoCancel + vbQuestion, 确认) If x = vbYes Then rst0.Delete End If End Sub Private Sub Cmd1Import_Click()“初选”选项卡中“导入数据”按钮单击事件的代码 把登记表中的应聘人编号转到初选表中来 rst0.MoveFirst For i = 1 To rst0.RecordCount rst1.AddNew rst1.Fields(应聘人编号) = rst0.Fields(应聘人编号) rst0.MoveNext rst1.MoveNext Next i Cmd1Import.Enabled = False 只能导一次数据 End Sub Private Sub Cmd1Ok_Click()“初选”选项卡中“确定”按钮单击事件的代码 rst1.Fields(综合评分) = (Val(rst1.Fields(计算机能力)) + rst1.Fields(业务能力)) * 0.5 If rst1.Fields(综合评分) = 6 Then rst1.Fields(初选状态) = 通过 Else rst1.Fields(初选状态) = 未通过 End If rst1.Update rst1.Sort = 应聘人编号 End Sub Private Sub Cmd2Import_Click()“面试”选项卡中“导入数据”按钮单击事件的代码 把初选表中通过的应聘人编号、初选评分转到面试表中来 rst1.Close rst1.Open select * from 初选表 where 初选状态=通过, cn rst1.MoveFirst For i = 1 To rst1.RecordCount rst2.AddNew rst2.Fields(应聘人编号) = rst1.Fields(应聘人编号) rst2.Fields(初选评分) = rst1.Fields(综合评分) rst1.MoveNext Next i rst2.Update Cmd2Import.Enabled = False End Sub Private Sub Cmd2Ok_Click()“面试”选项卡中“确定”按钮单击事件的代码 rst2.Fields(综合评分) = (rst2.Fields(初选评分) + rst2.Fields(外表形象) + rst2.Fields(领悟反应能力)) / 3 If rst2.Fields(综合评分) = 6 Then rst2.Fields(录用情况) = 通过 Else rst2.Fields(录用情况) = 未通过 End If rst2.Update rst2.Sort = 应聘人编号