modmain.bas

这是图书馆管理系统

Attribute VB_Name = "ModMain"
Public g_DBRct As New ADODB.Recordset

Sub main()
    If ConnectToServer = False Then End     '如果数据库连接失败，退出程序
    FrmWelcome.Show       '显示登陆窗体
End Sub


Public Function QueryEmpInfo(ByVal strSQL As String) As Boolean
'生成记录集函数
    On Error GoTo ON_QUERYERR
        Set g_DBRct = Nothing   '重新查询，设置该对象为空
    Call g_DBRct.Open(strSQL, g_DBCon, adOpenDynamic, adLockOptimistic, -1)
        QueryEmpInfo = True
        Exit Function
ON_QUERYERR:
    MsgBox "错误代码：" & Err.Number & vbCrLf & _
            "错误描述：" & Err.Description, vbCritical + vbOKOnly, "错误"
    QueryEmpInfo = False
End Function