clsmain1.cls

VB下的航空公司信息管理系统.关键词: 航空公司管理系统

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "ClsMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Option Explicit
Public g_DBCon As New ADODB.Connection
Public g_DBRct As New ADODB.Recordset
Public frm_show As Boolean

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, adOpenStatic, adLockOptimistic, -1)
        QueryEmpInfo = True
        Exit Function
ON_QUERYERR:
    MsgBox "错误代码：" & Err.Number & vbCrLf & _
            "错误描述：" & Err.Description, vbCritical + vbOKOnly, "错误"
    QueryEmpInfo = False
End Function

Public Function ConnectToServer() As Boolean
'建立、连接数据库函数
    On Error GoTo CONNECTERR
        '连接到SQL Server数据库X
        g_DBCon.ConnectionString = "provider=sqloledb; data source=127.0.0.1;" & _
                                "initial catalog=Ticket; integrated security=sspi"
        g_DBCon.ConnectionTimeout = 30      '30秒等待时间
        g_DBCon.Open                '打开连接
        ConnectToServer = True
        Exit Function
'错误处理
CONNECTERR:
    ConnectToServer = False
    MsgBox "错误代码：" & Err.Number & vbCrLf & _
            "错误描述：" & Err.Description, vbCritical + vbOKOnly, "连接错误"
End Function

Public Function DisConnect() As Boolean
'关闭连接的函数
    On Error Resume Next
        '如果数据库以连接，关闭连接
        If g_DBCon.State = adStateOpen Then
            g_DBCon.Close
        End If
        DisConnect = True
End Function

Public Sub frmLoginShow()
    frmLogin.Show vbModal
    frm_show = frmLogin.frm_show
End Sub
Public Sub frmAddUseShow()
    FrmAddUse.Show vbModal
End Sub
Public Sub frmDelShow()
    FrmDel.Show vbModal
End Sub