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

在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

表一

-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="退出"->