VB+access公司管理系统设计-基本数据模块(8)

6.2   数据库的连接
6.2.1   引用ADO
在Visual Basic环境下，选择“工程”→“引用”命令，在随后出现的对话框中选择“Driver do Microsoft ActiveX Data Objects 2.0 Library”，然后单击“确定”按钮，

6.2.2   公共模块的建立
建立公共模块可以提高代码的效率，同时使得修改和文护代码都很方便。
创建公共模块的步骤如下：
(1) 在菜单中选择“工程”→“添加模块”命令，则出现模块对话框；
(2) 在对话框中，选择模块，单击“打开”按钮，则模块已经添加到项目中了。
(3) 在模块中定义整个项目的公共变量。
在程序设计的公共模块中，定义ADO连接对象，建立和数据库的连接，语句如下：
Option Explicit
Public dbConn As New ADODB.Connection
Public loginUser As String
Public loginOK As Boolean
Public cmdType As String
Public tUser_id As String
Public tDept_id As Integer
Public tEmp_id As Integer
Public tCheck_ym As String
Public tQx As String
Sub Main()
    If ConnectToDatabase = False Then
        MsgBox "连接数据库出错！"
        End
    End If
    loginOK = False
    cmdType = ""
    frmLogin.Show vbModal
    Unload frmLogin
    If loginOK Then
        MDIForm1.Show
    End If
End Sub
'连接到数据库
Function ConnectToDatabase() As Boolean
    On Error GoTo ERR_CONN
    '设置服务器名称，数据库名称，登录名（此时假设密码为空）
   dbConn.ConnectionString = "dsn=man;Database=man;uid=sa;pwd="
   'dbConn.ConnectionString = "Provider=msdasql;Database=man;server=computer;uid=sa;pwd="
    dbConn.Open
    ConnectToDatabase = True
    Exit Function
ERR_CONN:
    ConnectToDatabase = False
End Function
6.2.3   设置ODBC
VB的ADO对象是通过ODBC来访问数据库，所以还要建立ODBC数据引擎接口。
(1)打开控制面板中的“管理工具”→“数据源(ODBC)”框。

(2)单击“添加”按钮，出现“创建数据源对话框”

(3)选择Microsoft Access Driver(*.mdb),单击“完成”按钮

(4)选择好数据库，在数据源名文本中添加一个名字，单击“确定”按钮完成系统默认连接设置。然后在ODBC对话框中单击“确定”按钮完成ODBC设置。

7   系统测试和文护
7.1   系统测试
系统测试是管理信息系统开发周期中一个十分重要而漫长的阶段。其重要性体现在它上保证系统质量与可靠性的最后关口，是对整个系统开发过程（包括系统分析、系统设计和系统实现）的最终审查。之所以说系统测试是一个漫长的过程，是因为测试阶段占用的时间、花费的人力和成本占软件开发的很大比例。
7.1.1   系统测试的方法
系统测试的方法一般要先经过人工测试，然后再进行机器测试。人工测试是采用人工方式进行，目的在于检查程序的静态结构，找出编译不能发现的错误。人工测试又称代码复审，主要有三种方法：个人复查，走查和会审。机器测试是运用事先设计好的测试用例，执行被测程序，对比运行结果与预期结果的差别以发现错误。机器测试有黑盒测试和白盒测试两种方法。本系统采用采用了走查、会审和黑盒测试。 VB+access公司管理系统设计-基本数据模块(8):http://www.751com.cn/jisuanji/lunwen_604.html