module1.bas

一个教学管理系统,可以满足一般课程设计的要求

Attribute VB_Name = "Module1"
Public conn_mdb As New ADODB.Connection
Public X As Integer        '控制浏览和编辑
Public server As String    '服务器名
Public Y As Integer        '控制管理权限
Public id As String        '用户名

Public Function Conn() As Boolean
  conn_mdb.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=scdb;Data Source=" & server
End Function

Public Function conclose()
  conn_mdb.Close
End Function