身份认证系统

1、摘 要学生管理系统对于学校的决策者和管理者来说都至关重要，是一个教育单位不可缺少的管理工具，能够为用户提供充足的信息和快捷的查询手段。本学生管理系统是基于vb技术的系统。包括个人情况模块、考勤模块、奖学金模块、等级考试模块、个人成绩模块、选修成绩模块、个人交费情况模块、用于控制操作级别的用户管理模块。在这些模块中，除了基本的删除、添加、查询外，有的模块还加了更加详细的查询内容。关键词：学生管理系统；模块；查询iabstractthe student management system is vital for decision-makers and managers of schools. i

2、t is an indispensable management tool which can provide sufficient information and quick query measure for them. this student management system is based on vb technology, includes the individual situation module， the checking attendance module，the scholarship module，the rank test module，the individu

3、al performance module， the choose course result module，the individual paying-fee situation module，the user management module. basic functions such as delete, add and query are realized in these modules，and more detailed query contents are added in some of the modules.keywords：the sudent mnagement sy

4、stem; module; queryii目 录第一章 界面设计.11.1 菜单栏的设计.21.2 工具栏的设计.41.3 状态栏的设计.5第二章 模块设计.72.1 个人情况模块.72.2 考勤模块 .182.3 奖学金模块.252.4 等级考试模块 个人成绩模块 选修成绩模块.292.5 个人交费情况.372.6 用户管理模块.392.7 登陆模块.432.8 ado控件.45结束语.46致谢.47参考文献.48第一章 界面设计学生管理系统是一个教育单位不可缺少的部分，它的内容对于学校的决策者和管理者来说都至关重要，所以学生档案管理系统应该能够为用户提供充足的信息和快捷的查询手段。一直以来

5、人们使用传统人工的方式管理文件档案，这种管理方式存在着许多缺点：效率低、保密性差，另外时间一长，将产生大量的文件和数据，这对于查找、更新和维护都带来了不少的困难。随着科学技术的不断提高，计算机科学日渐成熟，其强大的功能已为人们深刻认识，它已进入人类社会的各个领域并发挥着越来越重要的作用。使用计算机对学生档案信息进行管理，具有手工管理无法比拟的优点。如：检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等，这些优点能够极大地提高学生档案管理的效率。本学生管理系统包括个人情况模块、考勤模块、奖学金模块、等级考试模块、个人成绩模块、选修成绩模块、个人交费情况模块、用于控制操作级别的用户

6、管理模块。在这些模块中，除了基本的删除、添加、查询外，有的模块还加了更加详细的查询内容。1.1 菜单栏的设计在窗体的标题栏下显示的是菜单栏，它包含一个或多个菜单标题。在程序运行时，当用户选择某个菜单标题时会下拉出一个菜单，菜单中的菜单项可以是命令、选项、分隔条或子菜单标题。每个菜单项都是一个控件，与其他控件一样也有自己的属性和事件。菜单项的每个属性都能设置和查看，如name(名称)和caption(标题)属性等。每个菜单项只能响应一个事件，即click事件。具体步骤如下：（1）在设计状态，选择工具“菜单下的菜单编辑器（ctrl+e）”命令，会出现菜单编辑器窗口。（2）在菜单设计窗口中，按下表对

7、每一个菜单项输入标题、控制名称和相应的快捷键。如表1-1菜单项的设计。表1-1 菜单项的设置菜单项名称快捷键系统管理xitong添加用户useraddctrl+a修改密码usermodictrl+b重新登陆denglu2ctrl+f1_e14退出exitctrl+a考勤管理kaoqingguanli考勤情况输入kaoqintianjia考勤情况查询kaoqinchaxun考勤记录删除kaoqinshanchu学生档案管理dangan档案浏览studentliulanctrl+g档案删除studendelete档案添加studentaddctrl+f档案查询studentfindctrl+h学生

8、交费管理jiaofei_ee学生交费浏览jiaofeibrowsectrl+m学生交费添加jiaofeiaddctrl+n学生交费查询jiaofeifindctrl+o选修课管理xuanxiukeguanli选修成绩添加xuanxiuchengjitianjiactrl+p选修成绩删除xuanxiuchengjishanchu选修成绩查询xuanxiuchengjichaxun成绩与奖学金管理cjjxjguanli奖学金管理jiangxuejin奖学金结果输入jxjtianjia奖学金结果删除jxjshanchu奖学金情况查询jxjchuxun成绩管理cjguanli成绩删除chengjish

9、anchuctrl+r成绩添加cjaddctrl+s成绩查询cjfindctrl+u等级考试管理djksgl等级考试查询djkschaxun等级考试添加djkstianjia等级考试删除djksshanchu当完成所有输入工作后，选择“确定”命令按钮，就完成了整个菜单的建立工作，然后给各个菜单的click事件中写入代码。1.2 工具栏的设计工具栏是为用户提供了应用程序中最常用的菜单命令的快速访问方法，进一步增强应用程序的菜单界面，工具栏制作的方法是将toolbar、imagelist组合使用。创建工具栏的步骤是：（1）在imagelist控件中添加所需的图像。imagelist控件不单独使用，

10、专门为其他控件提供图像库，是一个图像容器控件。在窗体上增加imagelist控件后，选中该控件，单击右键，从弹出的快捷菜单中选择“属性”，然后在“属性页”对话框选择“图像”标签，在图像框中插入图像，每个图像的属性见表1-2。表1-2 控件属性的设置imagelist控件属性toolbar控件按钮属性索引(index)关键字(key)索引(index)样式(style)图像(image)tianjia40tianjiachaxun20chaxunsanchu60sanchujisuan100jisuanguanbi120guanbi（2）在toolbar控件中创建button对象。toolbar

11、控件中的每个按钮的图像都来自imagelist对象中插入的图像。为工具栏连接图像在窗体上增加toolbar控件后，打开“属性页”对话框，选择“通用”标签，对其各项进行设置，一般取默认值。为工具栏增加按钮在“属性页”对话框中选择“按钮”标签，单击“插入按钮”可以在工具栏增加按钮，然后对各属性进行设置。（3）在uttonclick事件中用select case语句对各按钮进行相应的编程。1.3 状态栏的设计状态栏用来显示系统信息和对用户的提示。创建状态栏的步骤是：（1）建立状态栏设计时，在窗体上增加statusbar控件后，打开其“属性面”对话框，选择“窗格”标签，设置个窗格，各窗格属性设置如表1

12、-3。表1-3 statusbar控件属性设置索引（index）样式(style)文本(text)说明sbrtext学生管理系统显示学生管理系统sbrtext显示当前操作员sbrtext显示当前用户是管理员还是普通用户sbrtext显示开发该软件的组成人员sbrtext空白（2）运行时改变状态栏运行时，能重新设置窗格panel对象以反映不同的功能，除第一个窗格外其它的窗格都通过编程来实现。第二章 模块设计本学生管理系统结构图，如图2-1所示：用 户 管 理学生管理系统考 勤 管 理学 生 档 案 管 理学 生 交 费 管 理选 修 课 管 理成 绩 管 理奖 学 金 管 理等 级 考 试 管

13、理图2-1 学生管理系统结构图2.1 个人情况模块个人情况模块有三个小的模块组成：修改与添加，删除，查询。2.1.1 个人基本情况添加界面如图2-2所示：图2-2 个人信息添加个人基本情况添加模块的设计思想是首先看输入的内容，即个人信息是不是空的。如果是空的，则不允许添加；如果不是空的，那么在个人情况表与个人详细情况表中加入界面上所输入的信息。它的添加功能是用下面的代码实现的:if trim(text1) = "" or trim(text2) = "" or trim(text3) = "" or trim(text4) = &qu

14、ot;" or trim(text5) = "" or trim(text6) = "" or trim(text7) = "" or trim(text9) = "" or trim(text10) = "" or trim(text11) = "" thenmsgbox "所有信息都不能为空！"exit subend ifadodc1.recordsource = "select * from jibenqingkuang"

15、;adodc1.refreshadodc1.recordset.addnewadodc1.recordset.fields("学号") = trim(text1)adodc1.recordset.fields("姓名") = trim(text2)adodc1.recordset.fields("性别") = trim(text3)adodc1.recordset.fields("班级") = trim(text4)adodc1.recordset.fields("专业") = trim(tex

16、t5)adodc1.recordset.fields("年龄") = val(trim(text6)adodc1.recordset.fields("出生日期") = trim(text7)adodc1.recordset.fields("政治面貌") = trim(combo1.text)adodc1.recordset.updateadodc1.recordset.closeadodc1.recordsource = "select * from xiangxiqingkuang"adodc1.refresha

17、dodc1.recordset.addnewadodc1.recordset.fields("姓名") = trim(text2)adodc1.recordset.fields("身份证号") = trim(text9)adodc1.recordset.fields("生源所在地") = trim(text10)adodc1.recordset.fields("家庭所在地") = trim(text11)adodc1.recordset.updatemsgbox "个人基本情况和详细情况的记录添加成功！&

18、quot;2.1.2 个人基本情况的查询界面如图2-3所示：图2-3 基本情况查询设计思想是先在条件中输入要查找的条件，然后按所输入的条件用sql语言的select语句进行查询。在查询之前，要看看输入的条件是不是为空，如果为空，出现提示，“没有输入条件，请输入!”然后，在根据姓名条件的精确或是模糊进行查询。查询到的个人信息，放到具体的文本框中。它的四个按钮用来控制得到的记录集的上下移动。中间自己定义了一个过程move1，用来更新文本框的数据。部分代码如下：查询代码：dim sql as stringsql = "1"if trim(text1) = ""

19、 and trim(text2) = "" and trim(text3) = "" and trim(text4) = "" and trim(combo1.text) = "忽略" and trim(combo2.text) = "忽略" thenmsgbox "没有输入条件，请输入!"exit subend ifif trim(text1) <> "" thenif option1.value thensql = sql + "

20、 and 姓名='" & text1 & "'"elsesql = sql + " and 姓名 like '%" & text1 & "%'"end ifend ifif trim(text2) <> "" then sql = sql + " and 年龄" & trim(combo3.text) & text2 & ""if trim(text3) <&g

21、t; "" then sql = sql + " and 学号" & trim(combo4.text) & "'" & text3 & "'"if trim(text4) <> "" then sql = sql + " and 班级='" & text4 & "'"if trim(combo1.text) <> "忽略" then

22、 sql = sql + " and 专业='" & trim(combo1.text) & "'"if trim(combo2.text) <> "忽略" then sql = sql + " and 性别='" & trim(combo2.text) & "'"adodc1.recordsource = "select * from jibenqingkuang where " & sql

23、adodc1.refreshif adodc1.recordset.eof thenmsgbox "jibenqingkuang表，没有满足条件的记录!"command3.enabled = falsecommand4.enabled = falsecommand5.enabled = falsecommand6.enabled = falseelsecommand3.enabled = falsecommand4.enabled = falsecommand5.enabled = truecommand6.enabled = truemove1end ifif adodc

24、1.recordset.bof thencommand3.enabled = falsecommand4.enabled = falseelsecommand3.enabled = truecommand4.enabled = trueend ifcommand5.enabled = truecommand6.enabled = trueadodc1.recordset.movepreviousmove1move1的代码如下：text6.text = adodc1.recordset.fields("学号")text7.text = adodc1.recordset.fie

25、lds("姓名")text8.text = adodc1.recordset.fields("性别")text9.text = adodc1.recordset.fields("班级")text10.text = adodc1.recordset.fields("年龄")text11.text = adodc1.recordset.fields("专业")text12.text = adodc1.recordset.fields("政治面貌")text13.text = ad

26、odc1.recordset.fields("出生日期")adodc2.recordsource = "select * from xiangxiqingkuang where 姓名='" & trim(text7.text) & "'"adodc2.refreshif adodc2.recordset.eof = true thenmsgbox "xiangxiqingkuang表，没有满足条件的记录!"exit subelsetext5.text = adodc2.records

27、et.fields("奖惩")text14.text = adodc2.recordset.fields("身份证号")text15.text = adodc2.recordset.fields("生源所在地")text16.text = adodc2.recordset.fields("家庭所在地")end if另外，界面中还有一个修改按钮，是用来对数据库中的数据进行更正。如果不点这个按钮，就不能对文本中的数据进行修改，修改之后还需点保存按钮，写到数据库中。否则不能写到数据库中。修改按钮代码如下:if gly =

28、 false thenmsgbox "你不是管理员，此按钮你不能使用！"exit subend ifif command7.caption = "修改" thentext5.locked = falsetext8.locked = falsetext9.locked = falsetext10.locked = falsetext11.locked = falsetext12.locked = falsetext13.locked = falsetext14.locked = falsetext15.locked = falsetext16.locked

29、 = falsecommand7.caption = "保存"elsetext5.locked = truetext8.locked = truetext9.locked = truetext10.locked = truetext11.locked = truetext12.locked = truetext13.locked = truetext14.locked = truetext15.locked = truetext16.locked = truecommand7.caption = "修改"adodc1.recordset.fields(&

30、quot;学号") = text6.textadodc1.recordset.fields("姓名") = text7.textadodc1.recordset.fields("性别") = text8.textadodc1.recordset.fields("班级") = text9.textadodc1.recordset.fields("年龄") = text10.textadodc1.recordset.fields("专业") = text11.textadodc1.reco

31、rdset.fields("政治面貌") = text12.textadodc1.recordset.fields("出生日期") = text13.textadodc2.recordset.fields("奖惩") = text5.textadodc2.recordset.fields("身份证号") = text14.textadodc2.recordset.fields("生源所在地") = text15.textadodc2.recordset.fields("家庭所在地&qu

32、ot;) = text16.textadodc1.recordset.updateadodc2.recordset.updateend if在浏览表中单击，浏览之后，就可以看到个人情况的所有资料。用上一条、下一条、首条、末条四个按钮，就可以完成浏览操作。删除个人情况的设计思想是，首先根据用户输入的查询条件（姓名可以是姓氏，也可以是名字，也就是说可以进行精确的查询，也可以进行模糊的查询。学号也是，可以根据是等于学号，还是一个范围来找一个人，还是一批人的信息。），找到要删除的人的信息，然后询问用户是否真的要删除。用户回答是，就把用户有关的所有满足条件的记录都删除。用户回答否之后，不进行任何操作。2

33、.1.3 个人情况删除界面如图2-4所示：图2-4个人情况删除删除按钮的代码如下；dim sql as stringtext1 = trim(text1)text2 = trim(text2)text3 = trim(text3)text4 = trim(text4)if text1 = "" and text2 = "" and text3 = "" and text4 = "" thenmsgbox "请输入条件！ "exit subend ifsql = "1"if t

34、rim(text1) <> "" thenif combo1.text = "精确" thensql = sql + " and 姓名='" & text1 & "'"elsesql = sql + " and 姓名 like '%" & text1 & "%'"end ifend ifif option1.value thenif text2 <> "" then s

35、ql = sql + " and 学号='" & text2 & "'"elseif text3 <> "" then sql = sql + " and 学号>='" & text3 & "'"if text4 <> "" then sql = sql + " and 学号<='" & text4 & "'&quo

36、t;end ifadodc1.recordsource = "select * from jibenqingkuang where " & sqladodc1.refreshif adodc1.recordset.eof thenmsgbox "没有找到要找的信息！"exit subend ifn = msgbox("如果要删除此人的基本情况，我们将把与此人有关的所有信息全部删除！"， 36， "确定吗？")if n = vbyes thendo while not adodc1.recordset.eof

37、xm = adodc1.recordset.fields("姓名")xh = adodc1.recordset.fields("学号")adodc1.recordset.deleteadodc1.recordset.update adodc2.recordsource = "select * from xiangxiqingkuang where 姓名='" & xm & "'" adodc2.refresh do while not adodc2.recordset.eof ado

38、dc2.recordset.delete adodc2.recordset.update adodc2.recordset.movenext if adodc2.recordset.eof then exit do loop adodc2.recordsource = "select * from jianxuejin where 学号='" & xh & "'" adodc2.refresh do while not adodc2.recordset.eof adodc2.recordset.delete adodc2.

39、recordset.update adodc2.recordset.movenext if adodc2.recordset.eof then exit do loop adodc2.recordsource = "select * from denjikaoshi where 学号='" & xh & "'" adodc2.refresh do while not adodc2.recordset.eof adodc2.recordset.delete adodc2.recordset.update adodc2.rec

40、ordset.movenext if adodc2.recordset.eof then exit do loop adodc2.recordsource = "select * from kaoqinbiao where 学号='" & xh & "'" adodc2.refresh do while not adodc2.recordset.eof adodc2.recordset.delete adodc2.recordset.update adodc2.recordset.movenext if adodc2.re

41、cordset.eof then exit do loop adodc2.recordsource = "select * from xuanxiuchengji where 学号='" & xh & "'" adodc2.refresh do while not adodc2.recordset.eof adodc2.recordset.delete adodc2.recordset.update adodc2.recordset.movenext if adodc2.recordset.eof then exit do

42、 loop adodc2.recordsource = "select * from xuefeiqingkuang where 学号='" & xh & "'" adodc2.refresh do while not adodc2.recordset.eof adodc2.recordset.delete adodc2.recordset.update adodc2.recordset.movenext if adodc2.recordset.eof then exit do loop adodc2.recordsour

43、ce = "select * from xuexichengji where 学号='" & xh & "'" adodc2.refresh do while not adodc2.recordset.eof adodc2.recordset.delete adodc2.recordset.update adodc2.recordset.movenext if adodc2.recordset.eof then exit do loopadodc1.recordset.movenextif adodc1.recordset

44、.eof then exit doloopend if2.2 考勤模块考勤模块有三个小的模块组成分别为：添加、删除、查询与修改。2.2.1考勤表的添加界面如图2-5所示：图2-5 考勤表添加考勤表添加的设计思想是：首先要看看它的数据是不是完整，如果没有输入条件就给出提示。第二步，看看添加的这个人，他是不是现在的在校学生；如果是，才能添加；如果不是，就提示基本情况表中不存在此人，不能添加，并且退出此程序。第三步，看是不是已经添加过了，如果添加过了的话，数据将会出现冗余。如果没有添加过，就可以进行添加了。添加成功之后，会出现一个提示：“学号添加成功！”4。考勤表的添加按钮的代码如下：if trim

45、(text1) = "" or trim(text2) = "" or trim(text3) = "" then msgbox "请输入内容！": exit subadodc1.recordsource = "select * from jibenqingkuang where 学号='" & trim(text1) & "'"adodc1.refreshif adodc1.recordset.eof then msgbox "不能

46、添加，在基本情况表中没有此人的基本信息！": exit subadodc1.recordsource = "select * from kaoqinbiao where 学号='" & trim(text1) & "' and 第n周='" & trim(combo1.text) & "' and 星期几='" & trim(combo3.text) & "'"adodc1.refreshif not adod

47、c1.recordset.eof thenmsgbox "考勤表中存在此学生此日的考勤情况，请重输入或在查询中修改！"exit subend ifadodc1.recordsource = "select * from kaoqinbiao "adodc1.refreshadodc1.recordset.addnewadodc1.recordset.fields("学号") = trim(text1)if len(trim(combo1.text) > 3 thenadodc1.recordset.fields("第n

48、周") = mid(trim(combo1.text)， 2， 2)elseadodc1.recordset.fields("第n周") = mid(trim(combo1.text)， 2， 1)end ifadodc1.recordset.fields("节次") = trim(combo2.text)adodc1.recordset.fields("星期几") = trim(combo3.text)adodc1.recordset.fields("总节数") = trim(text2.text)ad

49、odc1.recordset.fields("缺课事由") = trim(text3.text)adodc1.recordset.updatemsgbox "学号：" & trim(text1) & " 添加成功！"这个界面中的浏览按钮用来让用户查看添加之后的所有表中的信息。它可以把表单放大，代码如下：adodc1.recordsource = "select * from kaoqinbiao "adodc1.refreshif command3.caption = "浏览"

50、thenform5.height = 6030command3.caption = "返回"elseform5.height = 3165command3.caption = "浏览"end if2.2.2 删除模块删除的设计思想和上一个模块的设计思想一样，都是先找到符合条件的记录。然后，再进行删除。不过有一点不同的是，这个删除条件之间的关系，可以是并且的关系，也可以是或者的关系。它用两个单选按钮来实现。界面如图2-6所示：图2-6 考勤表删除核心代码如下：dim sql as stringif option2.value then sql = &quo

51、t; 1"if trim(text1) <> "" then sql = sql + " and 学号='" & trim(text1) & "'"if trim(text2) <> "" then sql = sql + " and 总节次='" & trim(text2) & "'"if trim(text3) <> "" then sql =

52、 sql + " and 缺课事由='" & trim(text3) & "'"if combo1.text <> "忽略" thenif len(trim(combo1.text) > 3 then sql = sql + " and 第n周='" & mid(trim(combo1.text)， 2， 2) & "'"elsesql = sql + " and 第n周='" &

53、; mid(trim(combo1.text)， 2， 1) & "'"end ifend ifif combo2.text <> "忽略" then sql = sql + " and 节次='" & trim(combo2.text) & "'"if combo3.text <> "忽略" then sql = sql + " and 总节数=" & trim(combo3.text)else

54、sql = " 0"if trim(text1) <> "" then sql = sql + " or 学号='" & trim(text1) & "'"if trim(text2) <> "" then sql = sql + " or 总节次='" & trim(text2) & "'"if trim(text3) <> "" th

55、en sql = sql + " or 缺课事由='" & trim(text3) & "'"if combo1.text <> "忽略" thenif len(trim(combo1.text) > 3 then sql = sql + " or 第n周='" & mid(trim(combo1.text)， 2， 2) & "'"elsesql = sql + " or 第n周='"

56、 & mid(trim(combo1.text)， 2， 1) & "'"end ifend ifif combo2.text <> "忽略" then sql = sql + " or 节次='" & trim(combo2.text) & "'"if combo3.text <> "忽略" then sql = sql + " or 总节数=" & trim(combo3.text)e

57、nd ifadodc1.recordsource = "select * from kaoqinbiao where " & sqladodc1.refreshif adodc1.recordset.eof thenmsgbox "没有满足条件的记录！请重输入。"exit subelseform7.height = 5040end ifn = msgbox("显示的为满足条件的记录，是否真的要全部删除！"， 36， "删除吗？")if n = vbyes thendo while not adodc1.re

58、cordset.eofadodc1.recordset.deleteadodc1.recordset.updateadodc1.recordset.movenextif adodc1.recordset.eof then exit doloopmsgbox "成功删除！"end if2.2.3 考勤表的查询界面如图2-7所示：图2-7 考勤表查询考勤表的查询和个人情况表的查询设计思想是一样的。有一点不同的是，它也可以进行模糊的查询与精确的查询。可以在表单界面的条件的关系框中进行选择。条件之间的关系是同时，还是或者的关系。同样，再输入查询条件的时候，在文本框中，要不输入数据的

59、规范格式，要不然就不输入数据。不输入数据的话，就不按此项查询，只有输入了，才按输入的数据进行查找。查询的代码如下：dim sql as stringif option2.value then sql = " 1"if trim(text1) <> "" then sql = sql + " and 学号='" & trim(text1) & "'"if trim(text2) <> "" then sql = sql + " an

60、d 总节次=" & trim(text2)if trim(text3) <> "" then sql = sql + " and 缺课事由='" & trim(text3) & "'"if combo1.text <> "忽略" then sql = sql + " and 第n周='" & trim(mid(combo1.text， 2， 2) & "'"if comb

61、o2.text <> "忽略" then sql = sql + " and 节次='" & trim(combo2.text) & "'"if combo3.text <> "忽略" then sql = sql + " and 星期几='" & trim(combo3.text) & "'"elsesql = " 0"if trim(text1) <>

62、"" then sql = sql + " or 学号='" & trim(text1) & "'"if trim(text2) <> "" then sql = sql + " or 总节次=" & trim(text2)if trim(text3) <> "" then sql = sql + " or 缺课事由='" & trim(text3) & "&

63、#39;"if combo1.text <> "忽略" then sql = sql + " or 第n周='" & trim(mid(combo1.text， 2， 2) & "'"if combo2.text <> "忽略" then sql = sql + " or 节次='" & trim(combo2.text) & "'"if combo3.text <>

64、 "忽略" then sql = sql + " or 星期几='" & trim(combo3.text) & "'"end ifadodc1.recordsource = "select * from kaoqinbiao where " & sqladodc1.refreshif adodc1.recordset.eof thenmsgbox "没有满足条件的记录！请重输入。"exit subelsecommand3.enabled = trueend if进行查询之后，才可以进行“修改”工作。（必须单击修改按钮之后，才可以进行修改。）在单击了修改按钮之后，还要看他是不是管理员，是管理员才能继续使用，不是的话，出现提示，"你不是管理员，不能使用此项功能！"