学籍管理系统vb程序课设报告

《学籍管理系统vb程序课设报告》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、北****学课程设计报告课程名称：VB程序设计课设项目名称：学籍管理系统学院：管理学院专业：信息管理与信息系统姓名：学号：指导教师：成绩：2010年6月22日第47页/共47页目录第1部分实训题目与要求11．问题提出12．功能要求1第2部分设计实训题目功能81．算法设计82．流程图设计113．数据结构154．程序代码设计155．测试与调试18第3部分实训总结191．个人总结192．结束语20附录Ⅰ程序清单21附录Ⅱ用户使用说明书46参考文献47第47页/共47页第47页/共47页第47页/共47页第1部分实训题目与要求1．问题提出“学籍管理系统”一款主要是对学生的基本信息、

2、课程信息以及成绩信息等进行管理的系统软件。该系统软件能够实现对学生基本信息的添加、修改、删除和查询等，能对课程信息进行添加、修改、删除和查询等功能，同时能对学生的课程成绩进行添加、修改、删除和查询的功能。另外，系统还提供了对学生课程成绩的排名和统计等功能。图：系统结构图2．功能要求“学籍管理系统”主要是对学生的基本信息、课程信息以及成绩信息等进行管理。工程包括“加载展示窗体”、“登录窗体”、“系统主窗体”、“学生信息编辑窗体”、“课程信息编辑窗体”、“成绩编辑窗体”、“学生信息查询窗体”、“成绩查询窗体”、“成绩排名窗体”、“更改密码窗体”和“关于窗体”。各窗体功能如下：（

3、1）加载展示窗体——创新功能程序启动时，首先出现的是程序加载展示窗体，显示本实训的实训题目、小组成员姓名、完成时间、指导老师等信息。同时进度条加载，待加载至满后，进入登录窗体。第47页/共47页图：加载展示窗体（2）登录窗体——提高功能该窗体在系统展示窗体加载完之后显示，用于验证用户信息和权限，用户需要选择用户是普通用户或管理员，并输入账号和密码进入系统。如果用户账号或密码输入出错达到3次，为保护系统账号等信息的安全，系统会自动退出。图：登录窗体（3）系统主窗体——创新功能用户输入正常的账号密码后，便进入了系统主窗体，用户可以系统主窗体中选择要进行操作的功能，并进入相应的窗

4、体。第47页/共47页图：系统主窗体（4）学生信息编辑窗体用户在此窗体中可以对学生的基本信息进行相应的操作，如添加、搜索、修改和删除学生的基本信息。图：学生信息编辑窗体第47页/共47页（5）课程信息编辑窗体用户在此窗体中可以对课程的信息对行相应的操作，如添加、搜索、修改和删除课程的信息。图：课程信息编辑窗体（6）成绩编辑窗体用户在此窗体中可以对学生的每一个课程成绩进行添加、修改和删除等功能操作。图：成绩编辑窗体（7）学生信息查询窗体用户在此窗体中可以通过查询条件查询学生的基本信息。第47页/共47页图：学生信息查询窗体（8）成绩查询窗体用户在此窗体中可以通过查询条件查询学

5、生的课程成绩。图：成绩查询窗体第47页/共47页（9）成绩排名窗体——创新功能用户在此窗体中可以通过选择条件查看院系、专业、班级、课程等学生的成绩排名。图：成绩排名窗体（10）更改密码窗体——提高功能用户可以在此窗体中修改该用户的密码。图：更改密码窗体第47页/共47页（11）关于窗体——创新功能用户在此窗体中可以查看系统程序作者的相关信息。图：关于窗体本系统软件由北京联合大学管理学院0911030201班A和B共同完成。其中B负责学生信息编辑窗体（Frm_Edit_xs窗体）和课程信息编辑窗体（Frm_Edit_kc窗体），其余部分由A完成。第47页/共47页第2部分设计

6、实训题目功能1．算法设计（1）基础功能Frm_Edit_Xs窗体中添加过程（Command1_Click）的添加及保存算法第一步：判断Command1控件此时caption属性值是“添加”还是“保存”。IfCommand1.Caption="添加"Then添加算法，执行第二步；Else保存算法，执行第四步；EndIf第二步：判断Adodc_xs中是否有记录，没有就直接添加记录，跳到第三步；否则判断输入的学号是否为空，不为空时，在Adodc_xs记录中查找条件为“学号=s”的记录。并置于循环过程中，直至输入学号与Adodc_xs记录中学号不重复。IfAdodc_xs.Reco

7、rdset.RecordCount>0ThenDos=InputBox("请输入学号","输入")Ifs=""ThenExitSubAdodc_xs.Recordset.MoveFirstAdodc_xs.Recordset.Find"学号='"&s&"'"IfAdodc_xs.Recordset.EOF=FalseThenMsgBox"学号重复，请重新输入"EndIfLoopWhileAdodc_xs.Recordset.EOF=FalseEndIf执行第三步。第三步：将Adodc_xs指针移到新的空记录上，并置