主要用VB+SQL设计的 后台工作少些 主要针对前台的工作的
cmdFirst.Enabled = True cmdLast.Enabled = True cmdPrevious.Enabled = True cmdNext.Enabled = True '使各个文本框失效 txtSID.Enabled = False txtName.Enabled = False comboGender.Enabled = False txtBorndate.Enabled = False comboClassno.Enabled = False txtTel.Enabled = False txtPolitical.Enabled = False txtAddress.Enabled = False txtLife.Enabled = False '回到开始记录位置
mrc.Bookmark = myBookmark Call viewData Else
MsgBox "什么都没有修改！", vbOKOnly + vbExclamation, "警告" mcclean = True End If End Sub
Private Sub cmdDelete_Click() '记下当前记录位置
myBookmark = mrc.Bookmark
str2$ = MsgBox("是否删除当前记录？", vbOKCancel, "删除当前记录") If str2$ = vbOK Then mrc.MoveNext If mrc.EOF Then mrc.MoveFirst
myBookmark = mrc.Bookmark mrc.MoveLast mrc.Delete
mrc.Bookmark = myBookmark '调用显示数据 Call viewData Else
myBookmark = mrc.Bookmark mrc.MovePrevious mrc.Delete '回到原来位置
mrc.Bookmark = myBookmark '调用显示数据 Call viewData