module1.bas

来自「其中包含比较详细的软件工程的概要设计说明书、详细设计说明书、系统需求规格说明书、」· BAS 代码 · 共 26 行

Attribute VB_Name = "Module1"
Option Explicit



Public pwdflag As Integer        '口令类型 (1:操作员口令类型, 2: 读者口令类型)
Public strReaderid As String     '用户ID


'有时这个新建的数据环境对象没有用。
'此过程不需要有任何全局变量，用局部变量产生记录集，
'在函数返回时，局部变量销毁，另外的一个返回指针 RST 指向该表,然后由该指针关闭记录集
Public Function openRst(strsql As String) As ADODB.Recordset
     Dim rst As New ADODB.Recordset
     If de.Libarary.State = 0 Then                 '总连接打开
        de.Libarary.Open
     End If
     With rst
        .ActiveConnection = de.libCnn
        .Open strsql
     End With
     Set openRst = rst
End Function