declearation.bas

这是关于长途汽车的SQL数据库作业

Attribute VB_Name = "Declearation"
Public CurrentUser As String
Public CurrentLine As String
Public CurrentBus As String
Public CurrentTicket As String


Public Logged As Boolean

Public objConn As New ADODB.Connection
Public objRS As New ADODB.Recordset



Public Sub OpenDB()
    objConn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=true;User ID=sa;password=sa;Initial Catalog=businformationmanagement;Data Source=TSINGHUA"
    objConn.Open
    
End Sub

Public Sub CloseDB()
    objConn.Close
End Sub