主要用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
百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读,免费范文网,提供经典小说教育文库大学生奖助学金管理信息系统数据库的设计与实现(12)在线全文阅读。
相关推荐: