module1.bas

guan yu pai ke xi tong de ruan jian

Attribute VB_Name = "Module1"
Public Connection As String

Public Updata As Boolean
Dim fso As New FileSystemObject, fil As file



Sub Main()
On Error GoTo ErrFile
 bool = False
 xInt = 0
  Set fil = fso.GetFile(App.Path & "\dept.mdb")
  Connection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & fil & ";Persist Security Info=False"

'Form_student.Show
'Form_studentsubject.Show
' Form_teacher.Show
'Form_classroomtime.Show
'MDIForm1.Show
'Form1.Show
 
 
 
    Exit Sub
ErrFile:
 MsgBox "系统所需的数据库" & Error.Description & ",请验证文件所在的路径!", vbCritical, "排课系统"
   Set fso = Nothing
   Set fil = Nothing
End Sub