（1）数据控件（data1）与"通讯录"数据库表相连接，用户可通过"》"和"《"按钮指定表中的当前记录。

　　（2）文本框txt_name,txt_phone和txt_email 分别与数据库中的姓名、电话和email字段绑定，用于显示当前记录的内容。

　　（3）应用程序启动时，"确定"按钮（cmd_ok）和"取消"按钮（cmd_cancel）不可操作，文本框中显示表中的第一条记录，这时文本框处于不可操作状态。

　　（4）单击"增加"按钮（cmd_add）或"修改"按钮（cmd_modify）后，方可以编辑记录内容，同时增加、删除、修改和退出按钮变为不可操作状态。增加和修改操作需通过确定和取消按钮确认。

　　（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,”错误提示！”
　　　data1,updatecontrols
　　call enableop(false)
　　end sub
　　'修改和取消按钮的程序代码略

上一页  [1] [2] [3] [4] [5] [6] [7] [8] 下一页