【vboracle学生档案管理系统】实训报告

《【vboracle学生档案管理系统】实训报告》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、《网络数据库实训》报告系统名称：学生档案管理系统专业：计算机科学与技术班级：B1001学号：104772104607姓名：指导教师：成绩：2013年1月4日1前言22需求分析23概要设计（特殊功能）34详细设计35源代码及调试36使用说明及测试结果207总结与体会208参考文献211前言1.1课题简介开发系统的名称：学牛档案管理系统实训目的：通过《网络数据库》课程的学习，将数据结构应用在具体的编程方而，更加了解课程所学习的内容及思维逻辑。实训意义：利用信息系统开发与实践课程设计，了解学生对《网络数据库》的理解和加强学生对软件开发方面的应用知识。希望今后学生好好利用所学的软件开发方面的知

2、识和思想，解决各方面的编程难题。实训内容：可以添加、修改、删除和保存信息，学生和教师进行有效的身份验证登陆后，选择可执行的功能模块，可以进行信息的查询或修改.实训预期实现效果：能够管理学牛在校期间的各种档案。能够快速地进行各类档案信息查询。能够对所有档案信息提供报表功能。1.2方案及其论证语言:VB运彳亍环境：MicrosoftVisualBasic6.0可行性分析：通过这样的系统，可以规范学生档案管理，快速查询信息和进行科学统计。2需求分析学生档案管理系统是一个非常通用的信息管理系统。很多人、屮、小学校都需要拥有占己的学牛档案管理系统，以便对本学校的基本信息和学习情况进行管理。学生档

3、案管理系统的主要任务是实现对学校各院系和所有学生的系统管理。3概要设计（特殊功能）学籍管理：主要负责管理学籍信息，包括学生注册、学籍异动、基木信息。课程管理：主要负责管理各院系的课程信息和学生的选课信息。成绩管理：主要负责管理学生的考试成绩。奖惩管理：主要负责管理学生在校的奖惩表现。系统管理：主要负责管理用户信息和用户登录。4详细设计流程图：CA学牛档案管理系统院系信息管理学牛信息管理学牛奖惩管理学生学籍管理5源代码及调试1、数据库结构设计：数据库中包含5个表：院系班级表classes、学生基本信息表studentsx学生奖惩表evaluation^学生学籍变动表change和用户表u

4、sers.创建表classes的代码如下：Createtabicstudcntsnian.classes(classidnumberprimarykey,Classnamevarchar2(50)notnull,Upperidnumbernotnull)创建表users的代码如b*:Createtablestudentsman.users(usernamevarchar2(40)primarykey,Userpwdvarcharw(40)notnull)2、设计工程框架a)1.1Variable模块，代码如下：'保存执行SQL语句字符串PublicsqlstmtAsString'院系班

5、级数组Publicarr_classname()AsStringPublictirrclassidOAsInteger'学生数组Publicarr_stuid()AsIntegerPublicarr_stunamcOAsString'声明类模块变量PublicmystuAsNewstudents'学生对象PubliccurstuAsNewstudents'当前学生信息的对彖PublicselstuAsNewstudents'选择学生信息的对象PubliemyclassAsNewclasses'院系班级对象PubliccurclassAsNewclasses'当前班级对象Publicmy

6、userAsNewusers'用户对象PubliccuruserAsNewusers'当前用户对象PublicmyevaAsNewevaluation'奖惩对彖PubliemychangeAsNewchangc'学籍变更对象1.2const模块PublicConstconnAsStrin呂=，zprovider=orao1edb・ortic1e・1;password二studenlsman;persistsecurityinfo二true;userid二studentsman;datasource=orcl192.169.28.1〃1.3dbfunc模块1.4generfunc模块b)

7、类模块1.1Classes类：用來管理表classes的数据库操作。PublicClassIdAsLongPublicClassNameAsStringPublicUpperldAsLongPublicSubInit()Class_Id=-iClass_Name=Upperld=-1EndSub'删除PublicSubDelete(ByVaiTmpldAsLong)sqlstmt="DELETEFROMClassesWHEREClass_Id二