關鍵詞：選項錄入 選項增減 選項編輯 數據庫
高效準確地錄入數據已成為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
通過上述方法使錄入速度進一步得到提高，使用戶的功效達到事半功倍的效果。
延伸閱讀
文章來源于領測軟件測試網 http://www.kjueaiud.com/
