declearation.bas

来自「一个长途汽车站收费管理系统」· BAS 代码 · 共 24 行

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