石家庄经济学院职业技术学院毕业设计（论文）
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 -