学生管理信息系统 - 图文(6)

frmcpass.Text1.Text = Text1.Text Unload Me End Sub

Private Sub Command2_Click() Unload Me End Sub

Private Sub Form_Load() End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text2.SetFocus End If End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Command1.SetFocus End If End Sub

22

4．2系统主界面：

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

Private Declare Function SetWindowPos Lib \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

23

Private Sub add_Click() qxstr = Executeqx(2)

If qxstr = \

ss = MsgBox(\对不起，你没有管理本功能的权限，请与管理员联系！\警告\ Exit Sub End If Form1.Show modi = False

Form1.ZOrder (0) End Sub

Private Sub cjadd_Click() fenshumodi = False qxstr = Executeqx(4)

If qxstr = \

ss = MsgBox(\对不起，你没有管理本功能的权限，请与管理员联系！\警告\ Exit Sub End If frmcj2.Show frmcj2.ZOrder 0

24

End Sub

Private Sub cjbrowse_Click() qxstr = Executeqx(4) If qxstr = \

ss = MsgBox(\对不起，你没有管理本功能的权限，请与管理员联系！\警告\ Exit Sub End If frmcj1.Show frmcj1.ZOrder 0 End Sub

Private Sub claasfind_Click() qxstr = Executeqx(2) If qxstr = \

ss = MsgBox(\对不起，你没有管理本功能的权限，请与管理员联系！\警告\ Exit Sub End If Form4.Show Form4.ZOrder (0)

i = SetWindowPos(Form4.hwnd, -1, 0, 0, 0, 0, 3)

25

End Sub

Private Sub classapp_Click() qxstr = Executeqx(2)

If qxstr = \

ss = MsgBox(\对不起，你没有管理本功能的权限，请与管理员联系！\警告\ Exit Sub End If

Formclass1.Show classmodi = False Formclass1.classload Formclass1.ZOrder (0) End Sub

Public Sub clabrowse() txtsql = \Formclass2.ZOrder (0)

Formclass2.Caption = \浏览班级设置\Formclass2.classshowtitle Formclass2.classshowdata End Sub

26