VF课程设计报告学生选课管理系统

学生选课管理系统

东北大学秦皇岛分校 姓名：刘国锋 学号：3090908 指导教师：朱世敏

日期： 2011 年 06 月 19 日

一、总体说明

总体功能介绍

在学生选课信息管理系统中，首先输入用户名和密码等登录信息，进入主界面，有以下模块“数据查询”、“记录修改”、“报表”、“密码安全”。在“数据查询”中，包含“课程查询”；在“记录修改”中包含“课程和学生选课修改”和“学生选课”；在“报表”中包含以下两项子菜单：“学生选课情况”，“可选课程”；在“密码安全”中有“密码修改”子菜单。在“可选课程信息”中输入相应的内容，即可显示相应的结果。原用户还可通过密码修改来不定期修改自己的原始密码，保证了数据的真实性和安全性。用户还可通过查询课程信息来实现选课功能。管理员也可通过打印报表来查看学生的选课记录和学生个人信息。

二、功能模块结构图

：课程信息查询（按课程名称查询）

可进行课程信息修改

课程和学生选课修改

可进行学生信息修改

主界面

学生选课 （可实现学生的自由选课）

密码登陆

学生选课情况

可选课程

密码安全 （密码信息修改）

三、变量说明(公有、私有、本地变量)

1．在登录系统中，有公有变量i，表示输入密码的次数，i的初值设为0，当i>3时系统将自动退出；公有变量uid，用户名。

2.私有变量：pwd：记录登录时的用户密码。

四、数据库、表的设计及描述

1.数据库：为最后程序的连编提供数据源。

2.（1）管理员表：为登录系统提供账号和相应的密码

（2）学生基本信息表：可以学生基本信息，对其添加、删除；为查询学生基本信息提供数据源。

（3）课程表：对其添加、删除，为查询提供数据源

（4）学生成绩表：可以查询学生成绩，对其添加、删除、修改

（5）密码表：记录用户的登录密码

五、操作说明

本系统适合广大用户操作使用，其操作过程简单明了。该系统拥有“学生基本信息查询”、“学生成绩查询”、“课程查询”、“打印报表”等功能。操作步骤如下：

1、单机登陆界面进入用户名和密码登录界面，输入用户名和密码之后单击“确定”按钮即可进入系统。若用户名和密码输入错误，则退出本系统。选择“退出按钮则离开本系统。本系统的初始密码为“学号”

2用户进入系统后，便直接到达此界面。在此界面中，用户可以选择数据修改、数据查询、选课功能。单击“退出”按钮，退出该页面。

3在“记录修改”菜单栏下，可以对一些列的表进行添加、删除、编辑操作。

4选择“数据查询”子菜单下的“学生成绩查询”则可对该学生的各科成绩进行查询。在此，查询中，用户可选择“按学号查询”和“按姓名查询”两种方式输入查询信息。系统则会快速的调出该学生的成绩。

5选择“数据查询”子菜单下的“课程查询”，则可查询学生的选课信息

6选择“报表”子菜单下的“学生选课情况可以对学生选课的信息以报表的形式查询，此外还可以从报表上的个人的选课情况按照学号和系别进行区分；通过可选课程可以查询并打印所有的课程信息；

7选择菜单栏上的“密码修改“可以对用户的密码进行修改以维护给人的信息部被别人修改，以确保个人信息的安全和完整性。

六、各模块代码及结果图

密码登录：

1、确定的click事件

uid=alltrim(thisform.text1.value) pwd=alltrim(thisform.text2.value) locate for 用户=uid if not found()

messagebox("无此用户",0,"学生选课管理系统") thisform.text1.selstart=0

thisform.text1.sellength=len(thisform.text1.text) thisform.text1.setfocus return endif

if alltrim(密码)==pwd thisform.release do form 主程序.scx i=i+1 else if i>=3

messagebox("三次密码输入不对，系统将退出") thisform.release else

messagebox("密码不正确，请重新输入") thisform.text1.selstart=0

thisform.text1.sellength=len(thisform.text1.text) endif endif

3、取消登录的click事件

thisform.release()

表单1

1、combol1

Rowsource：管理员表.用户名 2.、text1

passwordchar：* value ：a

3、确定（command1）：click事件 i=i+1

select 管理员表

locate all for 用户名=alltrim(http://doc.guandang.netbo1.value) if found () and 密码=alltrim(thisform.text1.value) do form bd1 release thisform else if i<3

=messagebox("管理员密码错误！"+chr(13)+"再试一次！",48,"警告") thisform.text1.value="a" thisform.text1.setfocus else

=messagebox("对不起，已经错3次了！"+chr(13)+"非法用户，请退出系统",48,"严重警告") thisform.release endif endif

4、退出（command2）：click事件

thisform.release

学生成绩查询：

1、option1 gotfocus事件

http://doc.guandang.netbel6.caption="姓 名" 2 、option2 gotfocus事件

http://doc.guandang.netbel6.caption="学 号" 3

close all

a1=alltrim(thisform.text1.value)

if thisform.optiongroup1.option1.value=1 do case

case val(left(a1,7))>=3080801 and val(left(a1,7))<=3080827

select * from 学生综合成绩表 where alltrim(学号)=a1 into cursor w if alltrim(学号)=a1

thisform.text4.value=姓名 thisform.text5.value=总成绩 thisform.text6.value=经济法 thisform.text7.value=概率 thisform.text8.value=英语

thisform.text9.value=参加活动 thisform.text10.value=运筹学 thisform.text11.value=企业管理 thisform.text12.value=平均成绩 else

messagebox("不存在该学生,请核对后再查!") endif case a1=""

messagebox("您还没有输入查询信息！") otherwise

messagebox("本校不存在该学生,请核对后再查!") endcase close all else

use 学生综合成绩表

locate for alltrim(姓名)=a1 if found()

thisform.text4.value=学号 thisform.text5.value=总成绩 thisform.text6.value=经济法 thisform.text7.value=概率 thisform.text8.value=英语

thisform.text9.value=参加活动 thisform.text10.value=运筹学 thisform.text11.value=企业管理 thisform.text12.value=平均成绩 close all else

messagebox("本校不存在该学生,请核对后再查!") endif endif

…… 此处隐藏：1634字，全部文档内容请下载后查看。喜欢就下载吧 ……