VB学生信息管理系统 第5页
本模块是本系统的应用界面,在本界面上集成了本系统的所有功能,共有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
上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] 下一页