摘要：在VB5.0数据库编程中，应用数据绑定组合框和数据绑定网格等控件实现了数据的选项录入、选项增减与选项编辑，提高了数据录入效率和准确性。 

关键词：选项录入 选项增减 选项编辑 数据库 

高效准确地录入数据已成为MIS系统急待解决的问题，也是衡量MIS系统成功的重要标志。本文在VB5.0数据库编程中应用数据绑定组合框和数据绑定网格等控件实现了数据的选项录入、选项增减与数据编辑，提高了数据录入效率、准确性及灵活性。( 

考察MIS系统涉及的数据性质、值域范围和变化程度，可以发现在MIS系统数据录入中往往出现下列情况 

（1）连续录入的几条记录中，同名字段的内容完全相同或基本相同，如省份、职称等；用户逐字录入速度慢易出错，因此应充分利用数据库中的已有数据，设置一个复制键将上条记录中的同名字段的内容复制到当前记录的同名字段中； 

（2）有些字段的值域固定，因此程序应提供一个合法的选项框供用户选择来提高速度； 

有些字段的值域较小且相对固定，但有一定的变化，如“省市”字段增设一个省或市，撤县设市等等，程序除提供一个合法的基本的选项框供用户选择外，且应允许用户对这个基本的选项框进行增减或编辑。 

1 数据库基本录入界面的设计 

首先用VB中的数据管理器创建一个Access数据库“c:\MY.MDB”，在表“worker”中加入一个字段“Name”，然后在VB的缺省表单中拖入一个数据控件、一个文本框、一个表签、一个命令按钮组，合理设计界面布局，并设置各个控件的属性，如表1。 

加入下列代码即可得到一个数据库基本输入窗口： 

Private Sub Command1-Click(Index As Integer) 

Select Case Index 

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 

End Select 

End Sub 

表一 

控件名 属性名 属性值 

Name Data1 

Data DataBaseName "c:\MY.MDB" 

RecordSource "worker" 

Name Text1 

Text Text "" 

DataSource "Data1" 

DataField Name 

Label Caption "姓名" 

　 

Name Command1 

CommandButton Index 0 1 2 3 4 5 

Caption "新增""编辑""放弃""保存""删除""退出" 

　 

2 设置CTRL键复制前条记录同名字段的内容 

在连续录入的几条记录中，同名字段的内容完全相同或基本相同，此时若能充分利用 数据库中的已有数据，设置一个复制键将上条记录中的同名字段的内容复制到当前记录的同名字段中，将能大提高数据录入速度。为了便于用户操作，将这一功能赋予CTRL键，用户在录入新记录或编辑原有记录时，只要按下CTRL键，则上条记录中的同名字段的内容就复制到当前记录的同名字段中。程序如下： 

Option Explicit 

Dim last As String 

Private Sub Form-Activate() 

Dim mark As Variant 

mark=Data1.Recordset.Bookmark 

Data1.Recordset.MoveLast 

last=Data1.Recordset("name") 

Data1.Recordset.Bookmark=mark 

End Sub 

Private Sub Text1-KeyDown 

(KeyCode As Integer,Shift As Integer) 

If Shift=2 Then '按下CTRL-KEY复制上条记录中的同名字段的内容 

If Data1.Recordset.EditMode=dbEditInProgress 

Or Data1.Recordset.EditMode=dbEditAdd Then 

Text1.Text=last 

End If 

End If 

End Sub 

Private Sub Command1-Click(Index As Integer) 

Select Case Index 

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") 'save the text to last 

Data1.Refresh 

Case4'delete 

Data1.Recordset.Delete 

Data1.Refresh 

Case5'end 

End 

End Select 

End Sub 

　 

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。程序代码如下： 

Option Explicit 

Dim last As String 

Dim dd As Boolean 

Private Sub Form-Activate() 

Dim mark As Variant 

mark=Data1.Recordset.Bookmark 

Data1.Recordset.MoveLast 

last=Data1.Recordset("name") 

Data1.Recordset.Bookmark=mark 

Text1.Visible=True 

DBCombol.Visible=False 

DBGrid1.Visible=False 

End Sub 

Private Sub Form-DblClick() '双击表单打开或关闭选项增减和选项编辑功能 

Static dd As Boolean 

dd=Not dd '第一次双击打开编辑功能第二次双击关闭编辑功能 

If dd Then 

DBGrid1.Visible=True 

Else 

DBGrid1.Visible=False 

Exit Sub 

End If 

End Sub 

Private Sub DBGrid1-DblClick() ’选择当前项后，再双击删除当前记录选项 

Data2.Recordset.Delete 

DBCombol.Refresh 

DBGrid1.Refresh 

End Sub 

Private Sub DBGrid1-LostFocus() 

DBCombol.Refresh '刷新DBCombol 

End Sub 

Private Sub Command1-Click(Index As Integer) 

Dim i As Integer 

Select Case Index 

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 

End Select 

End Sub 

Private Sub DBCombol-KeyDown 

(KeyCode As Integer,Shift As Integer) 

If Shift=2 Then '按下CTRL-KEY复制上条记录中的同名字段的内容 

If Data1.Recordset.EditMode=dbEditInProgress Or 

Data1.Recordset.EditMode=dbEditAdd 

Then 

DBCombol.Text=last 

End If 

End If 

End Sub% Private Sub Text1-KeyDown(KeyCode As Integer,Shift As Integer) 

If Shift=2 Then '按下CTRL-KEY复制上条记录中的同名字段的内容 

If Data1.Recordset.EditMode=dbEditInProgress Or 

Data1.Recordset.EditMode=dbEditAdd 

Then 

Text1.Text=last 

End If 

End If 

End Sub 

通过上述方法使录入速度进一步得到提高，使用户的功效达到事半功倍的效果。