module1.bas

来自「中学教务管理系统是基于河南大学附属中学的教务管理条件所涉及」· BAS 代码 · 共 37 行

Attribute VB_Name = "Module1"
Public Db As Database
Public Rs As Recordset
Public Myrs As Recordset
Public Myrecords As Recordset
Public Sql As String
Public Mysql As String
Public Userid As String
Public Mytag As Boolean
Public Sub Menuunuse()
frm_main.menu_student.Enabled = False
frm_main.menu_class.Enabled = False
frm_main.menu_course.Enabled = False
frm_main.menu_help.Enabled = False
frm_main.menu_lesson.Enabled = False
frm_main.menu_score.Enabled = False
frm_main.menu_teacher.Enabled = False
End Sub
Public Sub Menuuse()
frm_main.menu_student.Enabled = True
frm_main.menu_class.Enabled = True
frm_main.menu_course.Enabled = True
frm_main.menu_help.Enabled = True
frm_main.menu_lesson.Enabled = True
frm_main.menu_score.Enabled = True
frm_main.menu_teacher.Enabled = True
End Sub
Public Sub Message(Mylabel As Label, Myicon As Image, Mystring As String, Mytag As Integer)
Mylabel.Caption = Mystring
Select Case Mytag
Case 0
Myicon.Picture = LoadPicture(App.Path + "\pictures\success.gif")
Case 1
Myicon.Picture = LoadPicture(App.Path + "\pictures\fail.gif")
End Select
End Sub