研究生管理信息系统的开发流程

核心提示： 模块的设计模块Module1的其他主要代码如下，――――――――――――――――――――――――――――――――――――― ‘定义了名为ConnectString的无参数函数，研究生管理信息系统的开发流程(8)，连接数据库 Public Functi

模块的设计

模块Module1的其他主要代码如下。

　　―――――――――――――――――――――――――――――――――――――
　　 ‘定义了名为ConnectString的无参数函数，连接数据库
　　 Public Function ConnectString() As String
　　　　 ConnectString = "DSN=graduateDB;UID=graduateuser;PWD=12345678"
　　 End Function
　　 ‘定义了名为ExecuteSQL的带参数函数，参数SQL和MsgString都为字符串型。该函数用于执行SQL语句。
　　 Public Function ExecuteSQL(ByVal SQL As String, MsgString As String) As ADODB.Recordset
　　　  ‘conn为ADODB的connection连接对象
　　　  Dim conn As ADODB.Connection
　　　  ‘rest为ADODB的记录集对象
　　　  Dim rest As ADODB.Recordset
　　　  ‘若执行SQL错误转向ExecuteSQL_Error标记处
　　　  On Error GoTo ExecuteSQL_Error
　　　  Set conn = New ADODB.Connection
　　　  ‘连接数据库
　　　  conn.Open ConnectString
　　　  Set rest = New ADODB.Recordset
　　　  ‘执行SQL字符串语句
　　　  rest.Open Trim$(SQL), conn, adOpenKeyset, adLockOptimistic
　　　  Set ExecuteSQL = rest
　　　  MsgString = "查询到" & rest.RecordCount & " 条记录"
　　　  ‘执行SQL完毕后关闭连接和记录集
　　　  ExecuteSQL_Exit:
　　　  Set rest = Nothing
　　　  Set conn = Nothing
　　　  Exit Function
　　　  ‘执行SQL错误时的处理方法
　　　  ExecuteSQL_Error:
　　　  MsgString = "查询错误: " & _
　　　  Err.Description
　　　  Resume ExecuteSQL_Exit
　　　  End Function
　　　  ‘定义了名为Checktxt的带参数函数，参数txt为字符串型。该函数用于检测txt字符串是否有内容。
　　　  Public Function Checktxt(txt As String) As Boolean
　　　　　  If Trim(txt) = "" Then
　　　　　　　  Checktxt = False
　　　　　  Else
　　　　　　　  Checktxt = True
　　　　　  End If
　　 End Function
　　 ―――――――――――――――――――――――――――――――――――――