毕业论文论文范文课程设计实践报告法律论文英语论文教学论文医学论文农学论文艺术论文行政论文管理论文计算机安全
您现在的位置: 毕业论文 >> 课程设计 >> 正文

VB学生信息管理系统 第5页

更新时间:2008-1-15:  来源:毕业论文

VB学生信息管理系统 第5页

42系统主界面:

本模块是本系统的应用界面,在本界面上集成了本系统的所有功能,共有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] 下一页

VB学生信息管理系统 第5页下载如图片无法显示或论文不完整,请联系qq752018766
设为首页 | 联系站长 | 友情链接 | 网站地图 |

copyright©751com.cn 辣文论文网 严禁转载
如果本毕业论文网损害了您的利益或者侵犯了您的权利,请及时联系,我们一定会及时改正。