VB数据库数据的选项录入及选项增减与编辑

【 tulaoshi.com - 编程语言 】

在VisualBasic数据库编程中，应用数据绑定组合框和数据绑定网格等控件实现了数据的选项录入、选项增减与选项编辑，提高了数据录入效率和准确性。
　　
　　高效准确地录入数据已成为mis系统急待解决的问题，也是衡量mis系统成功的重要标志。本文在VisualBasic数据库编程中应用数据绑定组合框和数据绑定网格等控件实现了数据的选项录入、选项增减与数据编辑，提高了数据录入效率、准确性及灵活性。(
　　
　　考察mis系统涉及的数据性质、值域范围和变化程度，可以发现在mis系统数据录入中往往出现下列情况
　　
　　（1）连续录入的几条记录中，同名字段的内容完全相同或基本相同，如省份、职称等；用户逐字录入速度慢易出错，因此应充分利用数据库中的已有数据，设置一个复制键将上条记录中的同名字段的内容复制到当前记录的同名字段中；
　　
　　（2）有些字段的值域固定，因此程序应提供一个合法的选项框供用户选择来提高速度；
　　
　　有些字段的值域较小且相对固定，但有一定的变化，如“省市”字段增设一个省或市，撤县设市等等，程序除提供一个合法的基本的选项框供用户选择外，且应允许用户对这个基本的选项框进行增减或编辑。
　　通过上述方法使录入速度进一步得到提高，使用户的功效达到事半功倍的效果。

1数据库基本录入界面的设计
　　
　　首先用vb中的数据管理器创建一个access数据库“c:my.mdb”，在表“worker”中加入一个字段“name”，然后在vb的缺省表单中拖入一个数据控件、一个文本框、一个表签、一个命令按钮组，合理设计界面布局，并设置各个控件的属性，如表1。
　　
　　加入下列代码即可得到一个数据库基本输入窗口：
　　
　　privatesubcommand1-click(indexasinteger)
　　
　　selectcaseindex
　　
　　case0'addnew
　　
　　data1.recordset.addnew
　　
　　text1.setfocus
　　
　　case1'edit
　　
　　data1.recordset.edit
　　
　　text1.setfocus
　　
　　case2'giveup
　　
　　data1.recordset.cance1update
　　
　　data1.refresh
　　
　　case3'save
　　
　　data1.recordset.update
　　
　　data1.refresh
　　
　　case4'delete
　　
　　data1.recordset.delete
　　
　　data1.refresh
　　
　　case5'end
　　
　　end
　　
　　endselect
　　
　　endsub
　　
　　表一

（本文来源于图老师网站，更多请访问https://www.tulaoshi.com/bianchengyuyan/）-align="middle"width="33">控件名->-align="middle"width="33">属性名->-align="middle"width="34">属性值->-width="33">Data->-width="33">Data1->-width="34">DatabaseName=c:my.mdb
　　RecordSource="worker"->-width="33">Text->-width="33">Text1->-width="34">Text=""
　　RecordSource="Data1"
　　DataField="Name"->-width="33">Label->-width="33">Label1->-width="34">Caption="姓名"->-width="33">CommandButton->-width="33">Command1->-width="34">Index=0
　　Caption="新增"->-width="33">CommandButton->-width="33">Command1->-width="34">Index=1
　　Caption="编辑"->-width="33">CommandButton->-width="33">Command1->-width="34">Index=2
　　Caption="放弃"->-width="33">CommandButton->-width="33">Command1->-width="34">Index=3
　　Caption="保存"->-width="33">CommandButton->-width="33">Command1->-width="34">Index=4
　　Caption="删除"->-width="33">CommandButton->-width="33">Command1->-width="34">Index=5
　　Caption="退出"->

　　在连续录入的几条记录中，同名字段的内容完全相同或基本相同，此时若能充分利用数据库中的已有数据，设置一个复制键将上条记录中的同名字段的内容复制到当前记录的同名字段中，将能大提高数据录入速度。为了便于用户操作，将这一功能赋予ctrl键，用户在录入新记录或编辑原有记录时，只要按下ctrl键，则上条记录中的同名字段的内容就复制到当前记录的同名字段中。程序如下：
　　
　　OptionExplicit
　　
　　DimlastAsString
　　
　　PrivateSubform_Activate()
　　
　　DimmarkAsVariant
　　
　　mark=Data1.Recordset.Bookmark
　　
　　Data1.Recordset.MoveLast
　　
　　last=Data1.Recordset("Name")
　　
　　Data1.Recordset.Bookmark=mark
　　
　　EndSub
　　
　　privatesubtext1-keydown
　　
　　(keycodeasinteger,shiftasinteger)
　　
　　ifshift=2then'按下ctrl-key复制上条记录中的同名字段的内容
　　
　　ifdata1.recordset.editmode=dbeditinprogress
　　
　　ordata1.recordset.editmode=dbeditaddthen
　　
　　text1.text=last
　　
　　endif
　　
　　endif
　　
　　endsub
　　
　　privatesubCommand1_Click(indexasinteger)
　　
　　selectcaseindex
　　
　　case0'addnew
　　
　　data1.recordset.addnew
　　
　　text1.setfocus
　　
　　case1'edit
　　
　　data1.recordset.edit
　　
　　text1.setfocus
　　
　　case2'giveup
　　
　　data1.recordset.cance1update
　　
　　data1.refresh
　　
　　case3'save
　　
　　data1.recordset.update
　　
　　data1.recordset.movelast
　　
　　last=data1.recordset("name")'savethetexttolast
　　
　　data1.refresh
　　
　　case4'delete
　　
　　data1.recordset.delete
　　
　　data1.refresh
　　
　　case5'end
　　
　　end
　　
　　endselect
　　
　　endsub
　　
　　3数据的选项录入、选项增减及选项编辑
　　
　　有些字段的值域较小且相对固定，但会有一定的变化，如“省市”字段会产生变化，如增设一个省或市，撤县设市等等，程序除提供一个合法的基本的选项框供用户选择外，还应允许用户对这个基本的选项框进行增减或编辑。下面的程序实现了此功能，用户双击表单则可对选项框进行增减和编辑，完成后再双击表单关闭编辑功能。
　　
　　先建立一个数据库“c:myrand.mdb”，其表“rank”中加入一个字段“name”；再从工具箱中拖入一个数据控件data2，一个数据绑定组合框dbcombol和数据绑定网格控件dbgrid1。属性设置为：（1）data2控件的：databasename属性设为“c:myrand.mdb”，recordsource为“rank”；（2）dbcombo控件的：name设为dbcombo1，rowsource设为data2，listfiele设为“name”，datasource设为data1。datafield设为“name”；（3）dbgrid控件的：name设为dbgrid1，将allowaddnew、allowdelete、allowupdate均设为true,datasource设为data2。
　　
　　程序代码如下：
　　
　　optionexplicit
　　
　　dimlastasstring
　　
　　dimddasboolean
　　
　　privatesubform-activate()
　　
　　dimmarkasvariant
　　
　　mark=data1.recordset.bookmark
　　
　　data1.recordset.movelast
　　
　　last=data1.recordset("name")
　　
　　data1.recordset.bookmark=mark
　　
　　text1.visible=true
　　
　　dbcombol.visible=false
　　
　　dbgrid1.visible=false
　　
　　endsub
　　
　　privatesubform-dblclick()'双击表单打开或关闭选项增减和选项编辑功能
　　
　　staticddasboolean
　　
　　dd=notdd'第一次双击打开编辑功能第二次双击关闭编辑功能
　　
　　ifddthen
　　
　　dbgrid1.visible=true
　　
　　else
　　
　　dbgrid1.visible=false
　　
　　exitsub
　　
　　endif
　　
　　endsub
　　
　　privatesubdbgrid1-dblclick()'选择当前项后，再双击删除当前记录选项
　　
　　data2.recordset.delete
　　
　　dbcombol.refresh
　　
　　dbgrid1.refresh
　　
　　endsub
　　
　　privatesubdbgrid1-lostfocus()
　　
　　dbcombol.refresh'刷新dbcombol
　　
　　endsub
　　
　　privatesubcommand1-click(indexasinteger)
　　
　　dimiasinteger
　　
　　selectcaseindex
　　
　　case0'addnew
　　
　　data1.recordset.addnew
　　
　　dbcombol.setfocus
　　
　　dbcombol.visible=true
　　
　　text1.visible=false
　　
　　case1'edit
　　
　　data1.recordset.edit
　　
　　text1.setfocus
　　
　　dbcombol.visible=false
　　
　　text1.visible=true
　　
　　case2'giveup
　　
　　data1.recordset.cance1update
　　
　　data1.refresh
　　
　　dbcombol.visible=false
　　
　　text1.visible=true
　　
　　case3'save
　　
　　data1.recordset.update
　　
　　data1.recordset.movelast
　　
　　last=data1.recordset("name")
　　
　　data1.refresh
　　
　　dbcombol.visible=false
　　
　　text1.visible=true
　　
　　case4'delete
　　
　　data1.recordset.delete
　　
　　data1.refresh
　　
　　case5'end
　　
　　end
　　
　　endselect
　　
　　endsub
　　
　　privatesubdbcombol-keydown
　　
　　(keycodeasinteger,shiftasinteger)
　　
　　ifshift=2then'按下ctrl-key复制上条记录中的同名字段的内容
　　
　　ifdata1.recordset.editmode=dbeditinprogressor
　　
　　data1.recordset.editmode=dbeditadd
　　
　　then
　　
　　dbcombol.text=last
　　
　　endif
　　
　　endif
　　
　　endsubprivatesubtext1-keydown(keycodeasinteger,shiftasinteger)
　　
　　ifshift=2then'按下ctrl-key复制上条记录中的同名字段的内容
　　
　　ifdata1.recordset.editmode=dbeditinprogressor
　　
　　data1.recordset.editmode=dbeditadd
　　
　　then
　　
　　text1.text=last
　　
　　endif
　　
　　endif
　　
　　endsub
　　
　　通过上述方法使录入速度进一步得到提高，使用户的功效达到事半功倍的效果。

（本文来源于图老师网站，更多请访问https://www.tulaoshi.com/bianchengyuyan/）->