学生信息管理系统论文 最终版 - 图文(5)

石家庄经济学院职业技术学院毕业设计（论文）

课程表 成绩表 学生信息表 选课表 系表 学院表 专业表 如下是部分表中字段的属性。这将帮助我们更好的了解数据库。

1、登陆 字段 数据类型 字段大小 必填字段 索引 允许为空 用户名 文本 10 是 有 否 密码 文本 6 是 无 否 权限 文本 10 是 无 否 2、课程 字段 数据类型 字段大小 必填字段 允许为空 课程号 文本 4 否 是 课程名称 文本 50 是 否 授课老师 文本 50 否 否 课程类型 文本 10 是 否 3、学生信息表 字段 数据类型 字段大小 必填字段 允许为空 学号 文本 10 否 否 班级 文本 12 是 是 名字 文本 50 是 否 性别 字文本 50 是 否 出生年月 日期/时间 否 政治面貌 文本 20 否 否 电话号码 文本 30 否 否 院系 文本 50 否 否 专业 文本 50 否 否 家庭住址 文本 50 否 是

4、学生与课程联系表 字段 数据类型 字段大小 课程号 文本 4 课程名称 文本 50 学号 文本 10 姓名 文本 10 课程类型 文本 10 学分 数字 字节 字节 成绩 数字

必填字段 是 否 是 是 是 否 否 允许为空 是 是 否 否 否 是 否 - 21 -

石家庄经济学院职业技术学院毕业设计（论文）

5、班级 字段 数据类型 字段大小 必填字段 班级名称 文本 50 是 4 班级号 文本 是 如下是数据库中有关的数据表的内容： 1.登录表的内容

索引 无 无 允许为空 否 否

2.班级表的内容

3.留言表的内容

4安排.课程的内容

5.学生成绩表的内容

6.学生的基本信息表的内容

7.学生选课的信息表

- 22 -

石家庄经济学院职业技术学院毕业设计（论文）

8.系部的信息表

9.学院的信息表

10.专业的信息表

我们知道每个表中都有主键和外键，一个表中的主键是另个表中的外键。各个表就是因为这些主键和外键而联系在一起形成一个结构严谨的数据库。

- 23 -

石家庄经济学院职业技术学院毕业设计（论文）

第三章 过程论述：

用VB编写的开发系统会产生一个后缀名.Vbp的文件，装上VB程序软件之后。直接点这个文件就可以查看设计的源代码，点执行之后就可以查看系统的运行图。用ACCESS编写的数据库会产生一个后缀名是.mdb的文件,安装好后ACCESS后直接点这个文件就可以查看数据库中所有的表及表中的数据。

3.1登陆流程图

登陆主界面 Y

N 验证帐号

Y N 验证密码

进入主界面

设计说明:进入主界面后,提示输入用户名和密码,在输入之后按确定进入,验证用户名和密码,实现流程:

(1) 检测数据库中有无管理员帐号,如果有,则等待用户输入用户名和密码,否则按程序本身自动执行插入命令,新建一个管理员用户,并等待用户输入.

(2).验证用户名和密码是否正确。

(3)当验证通过后,检测该登陆用户的管理权限,并设置变量传值给主窗体.

如下是实现此窗体功能的源代码

- 24 -

石家庄经济学院职业技术学院毕业设计（论文）

Dim i As Integer

Private Sub Command1_Click() Dim MESSAGE As String

Adodc1.RecordSource = \ Adodc1.Refresh

If Adodc1.Recordset.RecordCount > 0 Then

If Text2.Text = Trim(Adodc1.Recordset.Fields(\ zh = Adodc1.Recordset.Fields(\ psw = Adodc1.Recordset.Fields(\ xm = Adodc1.Recordset.Fields(\ xuey = Adodc1.Recordset.Fields(\ xi = Adodc1.Recordset.Fields(\ zhuany = Adodc1.Recordset.Fields(\ banj = Adodc1.Recordset.Fields(\ Form2.Show

Form2.zx.Enabled = True Form2.login.Enabled = False Form2.loginpw.Enabled = True

Form2.stu.Enabled = True Form2.course.Enabled = True Form2.selcourse.Enabled = True Form2.infocenter.Enabled = True Form2.stuadmin.Enabled = False Form2.cjadmin.Enabled = False Form2.courseadmin.Enabled = False Form2.xkadmin.Enabled = False Form2.contentadmin.Enabled = False Form2.Data.Enabled = False

Form2.administrator.Enabled = False Form2.school.Enabled = False Unload Me Else

If i = 2 Then

MESSAGE = MsgBox(\对不起，您无权对系统进行管理！\登录信息\ If MESSAGE = vbOK Then End End If

MsgBox \输入错误，请重新输入！\登录信息\ i = i + 1 Text1.Text = \ Text2.Text = \ Text1.SetFocus End If Else

MsgBox \输入错误，请重新输入！\登录信息\ i = i + 1

- 25 -

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库学生信息管理系统论文 最终版 - 图文(5)在线全文阅读。