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