module1.bas

对学习VB很有帮助 fskdljfl kasdjfkl asdjfk lajsd f

Attribute VB_Name = "Module1"
Public ym  '用于记录当前登录的用户名
Public usertype As Boolean  '用户类型
Public conn As New ADODB.Connection
Public md   '用于判断是修改还是录入
Public connstring As String
Public Function opendatabase()
connstring = "driver=microsoft access driver (*.mdb);dbq=" & App.Path & "\stud.mdb"
With conn
    .ConnectionString = connstring
    .Open
End With
'MsgBox ("数据库连接成功")

End Function
'Public Function menudisable()
'main.m1.Enabled = False
'main.m2.Enabled = False
'main.m3.Enabled = False
'main.m41.Enabled = False
'End Function
'Public Function menuenable()
'main.m1.Enabled = True
'main.m2.Enabled = True
'main.m3.Enabled = True
'If usertype = True Then
'main.m41.Enabled = True
'End If
'End Function
'Public Function cz()
 '   main.StatusBar1.Panels(10) = "无操作"
'End Function