此次项目仅仅是通过ACCESS一个工具实现，数据库设计和前台访问两个功能。主要是通过ACCESS的窗体设计来实现

其实ACCESS窗体内的代码和VB十分相似。这里说明下，便于回忆：

1. 数据文件和窗体设计不是同一个文件的情况：

 1Dim cnn As ADODB.Connection

 2    Dim rs As ADODB.Recordset

 3    

 4    Set cnn = New ADODB.Connection

 5    Set rs = New ADODB.Recordset

 6    

 7    cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Projects\Tec\test.mdb;Persist Security Info=False"

 8'    rs.CursorLocation = adUseClient

 9    rs.Open "select * from UserInfo", cnn, adOpenDynamic, adLockPessimistic

10

当然这里可以写的更好，比如说，数据文件地址是个可变参数，查询信息时增加用户名和密码

2. 数据文件和窗体设计在一个文件中：

 

1Dim rs As New ADODB.Recordset

2Dim str As String

3

4Set rs = New ADODB.Recordset

5

6str = "select * from admin where admin.sno='" & Me.username & "' and admin.password = '" & Me.password & "'"

7rs.Open str, CurrentProject.Connection, adOpenKeyset, adLockOptimistic

8