VB学生信息管理系统

VB学生信息管理系统
4．2系统主界面：
本模块是本系统的应用界面，在本界面上集成了本系统的所有功能，共有6个功能菜单和19个子菜单（功能模块），从而实现了本系统从班级管理、档案管理、缴费管理、课程管理、成绩管理等系统的具体功能，同时，在系统管理模块中可以完成对本系统的安全性管理。

 
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Dim find1 As Integer
Dim liulan1 As Integer
 
 
Private Sub add_Click()
qxstr = Executeqx(2)
If qxstr = "false" Or qxstr = "readonly" Then
   ss = MsgBox("对不起，你没有管理本功能的权限，请与管理员联系！", vbInformation + vbOKOnly, " 警告")
 Exit Sub
End If
  Form1.Show
  modi = False
 
  Form1.ZOrder (0)
End Sub
 
Private Sub cjadd_Click()
fenshumodi = False
qxstr = Executeqx(4)
If qxstr = "false" Or qxstr = "readonly" Then
   ss = MsgBox("对不起，你没有管理本功能的权限，请与管理员联系！", vbInformation + vbOKOnly, " 警告")
 Exit Sub
End If
frmcj2.Show
frmcj2.ZOrder 0
End Sub
 
Private Sub cjbrowse_Click()
qxstr = Executeqx(4)
If qxstr = "false" Then
   ss = MsgBox("对不起，你没有管理本功能的权限，请与管理员联系！", vbInformation + vbOKOnly, " 警告")
 Exit Sub
End If
frmcj1.Show
frmcj1.ZOrder 0
End Sub
 
 
 
Private Sub claasfind_Click()
qxstr = Executeqx(2)
If qxstr = "false" Then
   ss = MsgBox("对不起，你没有管理本功能的权限，请与管理员联系！", vbInformation + vbOKOnly, " 警告")
 Exit Sub
End If
 Form4.Show
  Form4.ZOrder (0)
  i = SetWindowPos(Form4.hwnd, -1, 0, 0, 0, 0, 3)
End Sub
 
Private Sub classapp_Click()
qxstr = Executeqx(2)
If qxstr = "false" Or qxstr = "readonly" Then
   ss = MsgBox("对不起，你没有管理本功能的权限，请与管理员联系！", vbInformation + vbOKOnly, " 警告")
 Exit Sub
End If
Formclass1.Show
  classmodi = False
  Formclass1.classload
  Formclass1.ZOrder (0)
End Sub
 
Public Sub clabrowse()
txtsql = "select * from class"
Formclass2.ZOrder (0)
Formclass2.Caption = "浏览班级设置"
Formclass2.classshowtitle
Formclass2.classshowdata 
End Sub