学生信息管理系统论文 最终版 - 图文(6)

石家庄经济学院职业技术学院毕业设计（论文）

Text1.Text = \ Text2.Text = \ Text1.SetFocus End If End Sub

Private Sub Command2_Click() Unload Me End Sub

Private Sub Command3_Click() Dim MESSAGE, jb As String

Adodc1.RecordSource = \ Adodc1.Refresh

If Adodc1.Recordset.RecordCount > 0 Then

If Text4.Text = Trim(Adodc1.Recordset.Fields(\ jb = Trim(Adodc1.Recordset.Fields(\ zh = Adodc1.Recordset.Fields(\ psw = Adodc1.Recordset.Fields(\ Form2.Show

Form2.zx.Enabled = True Form2.login.Enabled = False Form2.loginpw.Enabled = True Form2.stu.Enabled = True Form2.stuadmin.Enabled = True Form2.cjadmin.Enabled = True Form2.course.Enabled = True Form2.courseadmin.Enabled = True Form2.selcourse.Enabled = False Form2.xkadmin.Enabled = True Form2.infocenter.Enabled = True Form2.contentadmin.Enabled = True Form2.Data.Enabled = True

Form2.administrator.Enabled = True Form2.school.Enabled = True

Select Case jb Case \课程管理员\

Form2.stuadmin.Enabled = False Form2.cjadmin.Enabled = False Form2.contentadmin.Enabled = False Form2.school.Enabled = False Form2.administrator.Enabled = False Case \学生管理员\

Form2.courseadmin.Enabled = False Form2.xkadmin.Enabled = False

- 26 -

石家庄经济学院职业技术学院毕业设计（论文）

Form2.contentadmin.Enabled = False Form2.school.Enabled = False Form2.administrator.Enabled = False Case \留言管理员\

Form2.stuadmin.Enabled = False Form2.cjadmin.Enabled = False Form2.courseadmin.Enabled = False Form2.xkadmin.Enabled = False Form2.school.Enabled = False Form2.administrator.Enabled = False Case \院系管理员\

Form2.stuadmin.Enabled = False Form2.cjadmin.Enabled = False Form2.courseadmin.Enabled = False Form2.xkadmin.Enabled = False Form2.contentadmin.Enabled = False Form2.administrator.Enabled = False End Select Unload Me Else

If i = 2 Then

MESSAGE = MsgBox(\对不起，您无权对系统进行管理！\登录信息\ If MESSAGE = vbOK Then End End If

MsgBox \输入错误，请重新输入！\登录信息\ i = i + 1 Text3.Text = \ Text4.Text = \ Text3.SetFocus End If Else

MsgBox \输入错误，请重新输入！\登录信息\ i = i + 1 Text3.Text = \ Text4.Text = \ Text3.SetFocus End If End Sub

Private Sub Command4_Click() Unload Me End Sub

- 27 -

石家庄经济学院职业技术学院毕业设计（论文）

3.2主界面操作图

系统登录 用管 户理 注密 销码

主界面 学生信息课程信息 信息中心 院系设置 关于 学生管理 学生查询 课程管理 课程查询 校内留言 发送邮件 学院系部专业班级系统介绍 实现功能:

(1).获得登陆界面传递的权限信息,设置用户是否可以使用(增加学生,课程管理,输入成绩,系统操作,保存,修改,删除)这些操作.

(2).进入学生信息管理主窗口,设置等待操作状态

3.3所有学生与增加学生数据图

所有学生 增加学生

数据初始化 数据初始化

读取数据行数 读取数据字段

按显示数据 初始化表格

等待输入数据

所有学生E-R图 增加学生E-R图

- 28 -

石家庄经济学院职业技术学院毕业设计（论文）

注：数据初始化是对程序中所使用的表格进行颜色和表格间距的处理，并绑定数据源为进行到下一步操作做准备

3.4 实现功能:

1.可以根据学生的学号、姓名、学院、系部、专业、班级来查询学生的信息。

如下是实现这个窗体的源代码

Dim sj As String

Private Sub Command1_Click()

If Option1(0).Value = False And Option1(1).Value = False And Option1(2).Value = False And Option1(3).Value = False And Option1(4).Value = False And Option1(5).Value = False Then

MsgBox \请先选择查询条件！\信息提示！\ Option1(0).Value = True Text2.SetFocus Exit Sub Else

If Text2.Text <> \

If Option1(0).Value = True Then

sj = \sno,sname,ssex,szzmm,sdate,semail,xy,x,zy,bj,photo,sbz from stuinfo where sno like '%\& Trim(Text2.Text) & \

- 29 -

石家庄经济学院职业技术学院毕业设计（论文）

End If

If Option1(1).Value = True Then

sj = \Trim(Text2.Text) & \

End If

If Option1(2).Value = True Then

sj = \sno,sname,ssex,szzmm,sdate,semail,xy,x,zy,bj,photo,sbz from stuinfo where xy like '%\& Trim(Text2.Text) & \

End If

If Option1(3).Value = True Then

sj = \sno,sname,ssex,szzmm,sdate,semail,xy,x,zy,bj,photo,sbz from stuinfo where x like '%\& Trim(Text2.Text) & \

End If

If Option1(4).Value = True Then

sj = \sno,sname,ssex,szzmm,sdate,semail,xy,x,zy,bj,photo,sbz from stuinfo where zy like '%\& Trim(Text2.Text) & \

End If

If Option1(5).Value = True Then

sj = \sno,sname,ssex,szzmm,sdate,semail,xy,x,zy,bj,photo,sbz from stuinfo where bj like '%\& Trim(Text2.Text) & \

End If Else

MsgBox \请输入查询关键词！\信息提示！\ Text2.SetFocus Exit Sub End If End If

Adodc2.RecordSource = sj Adodc2.Refresh

If Adodc2.Recordset.RecordCount > 0 Then

- 30 -

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库学生信息管理系统论文 最终版 - 图文(6)在线全文阅读。