module1.bas

学生信息系统 采用VB作为程序设计语言 SQL SERVER2000为数据库

Attribute VB_Name = "Module1"
Option Explicit
Public UserRight As Integer

Public Con As New ADODB.Connection
Sub Main()
Load frmDBSet
If Dir(frmDBSet.txtPath) = "" Then
    MsgBox "找不到数据库文件。"
    frmDBSet.Show 1
End If
frmMain.InitDB
frmLogin.Show 1
frmMain.Show
Load frmAbout
End Sub
Sub ShowInSB(ByVal Act As String, Optional ByVal Sta As String)
With frmMain.SB
    If .Panels(1).Text <> Act Then .Panels(1).Text = Act
    If .Panels(2).Text <> Sta Then .Panels(2).Text = Sta
    .Refresh
End With
End Sub