单词库的E-R图如图2所示。

图2 单词库的E-R图

相应在Access中建立的单词库（word.mdb），单词表（word）的结构如图3所示。

   图3  Access中单词表的结构图

3．详细设计

有关数据库的所有后台工作已经完成。现在通过对桌面式背单词系统中各个功能模块的实现来讲解如何使用Visual Basic编写本系统的应用程序。

（1）公共模块的实现

在Visual Basic中可以用公用模块来存放整个工程项目公用的函数和全局变量，这样可以极大地提高编写代码的效率。由于系统中各个功能模块都将频繁使用数据库中的记录，因此需要一个公共的操作函数，用于执行各种SQL语句，其中也包括数据库的连接。添加函数TransactSQL，实现的方法有很多种。实现的核心代码如下：

'执行SQL语句的函数

Public Function TransactSQL(ByVal sql As String) As ADODB.Recordset

Dim cont As ADODB.Connection

Dim rs As ADODB.Recordset

Dim strConnection As String

Dim strArray() As String

Set cont = New ADODB.Connection    '创建连接

Set rs = New ADODB.Recordset

On Error GoTo transactsql_error

strConnection = "Provider = Microsoft.jet.oledb.4.0; data source=" & App.Path & "\word.mdb;"

strConnection = strConnection & "Persist Security Info=False;Jet OLEDB:Database Password=''"

strArray = Split(sql)         

cont.Open strConnection        '打开连接

If StrComp(UCase$(strArray(0)), "select", vbTextCompare) = 0 Then