考试网 >> IT认证 >> 水平 >> 软件题库 >> 全国计算机技术与软件专业技术资格（水平）考试 2

发布时间：2006-06-28 01:01     点击：

　　（5）单击删除按钮（cmd_del）后，弹出对话框，再单击确定按钮，当前记录被删除。

　　【程序代码】

　　private sub enableop(isenabled as Boolean)

　　　txt_name.enabled=isenabled :txt _phone.enabled=isenabled

　　　txt_email.enabled=isenabled

　　　cmd_ok.enabled= isenabled: cmd_cancel.enabled= isenabled

　　　cmd_add.enabled= not isenabled: cmd_del.enabled= not isenabled

　　　cmd_end.enabled= not isenabled: cmd_modify.enabled= not isenabled

　　end sub

　　private sub form_load()

　　　call enableop(false)

　　　detal.refresh

　　　if data1.recordset.recordcount=0 then

　　　　cmd_del.enabled= false: cmd_modify.enabled= __(1)__

　　　end if

　　end sub

　　private sub cmd_add_click() 　　'单击“增加”按钮的代码

　　　call enableop( __(2)__ )

　　　data1.recordset.addnew　　　　'在数据库表中添加一个新记录

　　　txt_name.__(3)__

　　end sub

　　private sub cmd_del_click()　　'单击“删除”按钮的代码

　　　on error goto error3

　　　ans=msgbox(“确定删除吗？”，vbYesNo+vbInformation,” 操作提示！”)

　　　if (ans=vbyes) then

　　　　data1.recordset.__(4)__

　　　　data1.recordset.movenext

　　　　if data1.recordset.Eof then data1.refresh

　　　end if

　　　exit sub

　　　error3:

　　　msgbox err.description,vbokonly,”错误提示！”

　　end sub

　　private sub cmd_ok_click() 　　　'单击确定按钮的代码

　　　on error goto error1

　　　data1.recordset.__(5)__

　　　call enableop(false)

　　　exit sub

　　　error1:

　　　msgbox err.description,vbokonly,”错误提示！”

发表评论： 匿名发表 用户名: 查看评论

您将承担一切因您的行为、言论而直接或间接导致的民事或刑事法律责任 留言板管理人员有权保留或删除其管辖留言中的任意内容 本站提醒：不要进行人身攻击。谢谢配合。