-

此系统实现了火车票订票系统的部分功能

Attribute VB_Name = "Module1"
Public conn As ADODB.Connection
Public mrc As New ADODB.Recordset
Public cmd As ADODB.Command
Public Sub databaseopen()
  Dim ConnectString As String
   Set conn = New ADODB.Connection
   ConnectString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;" _
   & "Persist Security Info=False;Initial Catalog=陈念;" _
   & "Data Source=3302A68391D44A0"
   conn.CursorLocation = adUseClient
   conn.Open ConnectString          ' 建立与连接字符串指定的数据库的连接
   Set cmd = New ADODB.Command
   cmd.ActiveConnection = conn
End Sub


Public Sub databaseclose()
   conn.Close        '关闭数据库
End Sub