module1.bas

是一个 学生管理系统

Attribute VB_Name = "Module1"
Option Explicit

Global con As New ADODB.Connection
Global rs As New ADODB.Recordset
Global classid As String, stuid As String
Global LoginUser As String, LoginPower As String
Dim Userid As String, Userpwd As String, Username As String, Userpower As String
Dim sqlstr As String

Sub Main()
If App.PrevInstance = True Then
    MsgBox "注意程序已经运行，不能再次装载！", vbOKOnly
    Exit Sub
Else
    con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path + "\student.mdb"
    'con.Open "driver={sql server};server=ltx\tempt;database=student;uid=sa;pwd=5059"
         Frmlogin.Show
    End If
End Sub