文件名称:学校学生成绩管理系统
文件大小:548KB
文件格式:DOC
更新时间:2012-07-06 09:27:32
成绩管理系统
生信息删除代码: Private Sub cmdDel_Click() Set rs = New ADODB.Recordset sql = "delete from Student where Sno='" & Trim(Text1.Text) & " '"If MsgBox("确定要删除学号为" & Text1.Text & "的所有信息吗?", vbOKCancel + vbExclamation, "提示!") = vbOK Then TransactSQL (sql) MsgBox "该学生的所有信息已经删除!", vbOKOnly + vbExclamation, "警告!" End If Call init End Sub