预览加载中,请您耐心等待几秒...
1/10
2/10
3/10
4/10
5/10
6/10
7/10
8/10
9/10
10/10

亲,该文档总共14页,到这已经超出免费预览范围,如果喜欢就直接下载吧~

如果您无法下载资料,请参考说明:

1、部分资料下载需要金币,请确保您的账户上有足够的金币

2、已购买过的文档,再次下载不重复扣费

3、资料包下载后请先用软件解压,在使用对应软件打开

基于VB的学生管理系统设计与实现 <P>登陆系统<BR>对于这类系统如果谁都能登陆到本系统的话,系统里面的数据将非常的危险和有可能会受到蓄意破坏者的攻击了。考虑到数据的安全性,用户必须拥有密码才能够登陆到本系统的主页面。<BR>2.3.2、主页面有5个菜单。分别为。系统管理,学生档案管理,班级管理,课程管理,成绩管理。<BR>对于这个主页面。我们可以完成所有对学生档案的管理,修改,查询。方便登陆的用户进行一系列的操作,提供了方便。<BR>2.4各个模块的功能<BR>系统管理:系统菜单包括有两个功能<BR>添加用户<BR>对于一个系统来说,永远不可能只是存在一个用户,用户的添加体现了这个系统的方便灵活性,适合多人来使用。所有设计了这个功能是理所当然的。<BR>学生档案管理:包括添加档案菜单,档案浏览菜单。<BR>档案添加<BR>正如一个添加用户一样。永远不可能只是存在一个学生的学籍信息,学生毕业后会有新的学生进来,自然要添加新的学生学籍信息。这个菜单恰好提供这个功能,<BR>档案浏览<BR>当我们将学生的学籍信息存放在数据库中,最大的方便就是我们有需要知道学生的学籍信息时能够及时查询到。因为人的记忆有限,不可能记得住所有学生的学籍信息以及相关的一系列资料,所以就要靠查询学籍信息来实现了。这个菜单的功能最大的优点就是方便。<BR>班级管理单:包括班级浏览菜单,班级添加菜单<BR>&nbsp;&nbsp;&nbsp;&nbsp;班级添加菜单<BR>&nbsp;&nbsp;&nbsp;每一年,学校都会增见新的年级,因此就会有新的班级信息添加。<BR>&nbsp;&nbsp;&nbsp;班级浏览菜单<BR>可以方便学校统一浏览班级的信息</P> <P>课程管理菜单:包括基本课程设置,基本课程设置<BR>&nbsp;可以对课程的信息进行修改增加<BR>班级课程设置<BR>&nbsp;&nbsp;可以选择班级相应的课程。<BR>成绩管理菜单:包括添加添加成绩,修改成就,查询成绩。<BR>考试类型设置<BR>不同的功课自然有不同的成绩。我们针对这个提前对考试类型做下设置。方便学校同学老师查成绩。<BR>&nbsp;&nbsp;&nbsp;成绩添加<BR>&nbsp;&nbsp;&nbsp;现今的教育,学生的成绩是体现学生在学校的表现之一。也可以作为对学生评价的准则之一。因次添加学生的成绩是比较重要的一个功能。<BR>成绩浏览<BR>一个完成的学生管理系统,自然要提供学生的查询,方便学生和老师<BR>2.5数据库设计<BR>2.5.1数据库表的建立<BR>系统数据库名称为StudengMIS。其中包括①allkecheng②cj③class<BR>④classkecheng⑤kaoshileixing⑥userinfo⑦xj<BR>第三章系统实现<BR>3.1公共模块<BR>&nbsp;Module1模块主要三个函数组成,函数EXECUTESQL用于执行响应的SQL命令,函数CONNSTRING用于连接字符串,函数EXECUTEQX用于检查权限。代码如下:<BR>PublicmodiAsBoolean<BR>PublicclassmodiAsBoolean<BR>PublicxuefeimodiAsBoolean<BR>PublictxtsqlAsString<BR>PublicfindAsBoolean<BR>PublicclassfindAsBoolean<BR>PublicxuefeifindAsBoolean<BR>PublicusernameAsString<BR>PublicqxstrAsString</P> <P>'执行相应的SQL命令<BR>PublicFunctionExecuteSQL(ByValsqlAsString)AsADODB.Recordset<BR>&nbsp;&nbsp;&nbsp;DimmyconAsADODB.Connection<BR>&nbsp;&nbsp;&nbsp;DimrstAsADODB.Recordset<BR>&nbsp;&nbsp;&nbsp;Setmycon=NewADODB.Connection<BR>&nbsp;&nbsp;&nbsp;mycon.ConnectionString=connstring<BR>&nbsp;&nbsp;&nbsp;mycon.Open<BR>&nbsp;&nbsp;&nbsp;Dimstokens()AsString<BR>&nbsp;&nbsp;&nbsp;OnErrorGoToexectuesql_error<BR>&nbsp;&nbsp;&nbsp;stokens=Split(sql)<BR>&nbsp;&nbsp;&nbsp;IfInStr("