第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 Privat