当前位置:首页 >> 其它课程 >> 黄鹏1班23号

黄鹏1班23号


文华学院 数据库课程设计 学 生 成 绩 管 理 系 统
姓名:黄鹏 专业:计算机应用技术 学号:130171011323 日期:2015 年 3 月 7 日

数据库操作快捷菜单

“数据库属性”对话框

“xscjglxt”数据库快捷菜单

“xscjglxt 属性”对话框

创建信息表
1.实验内容
使用 SQL Server 企业管理器, 在 “xscjglxt” 数据库上创建 “T-XSB” 、 “T-KCB” 、 “T-CJB” 表。其中:T—XSB(学生表)用来存储一个学校内学生的基本信息:T—KCB(课程表) 用来存储于学生相关的课程基本信息;T—CJB(成绩表)用来存储于学生所选课程的成绩 基本信息。通过这 3 张表建立一个简单的学生信息管理系统。3 张表的结构如下 表1
字段 学号 性别 姓名 数据类型 Char Char Char

学生表(T-XSB)表结构
长度 8 10 2 是否允许空值 否 否 是 备注 主键

出身日期 院系 班级 备注

Smalldatetime Char Char Tesr

4 20 20 16

否 是 是 是

表 2 课程表(T--KCB)表结构
字段 课程号 课程名 开学学期 任课教师 数据类型 Char Char Tinyint Char 长度 4 30 1 10 是否允许空值 否 否 是 是 备注 主键

表 3 成绩表(T-CJB)表结构
字段 学号 课程号 成绩 数据结构 Char Char Tinyint 长度 8 4 1 是否允许空值 否 否 是 备注 主键 主键

3.实验步骤
(1).打开 SQL Server 企业管理器,在树形目录中找到“xscjglxt”数据库并展开它,选 择数据库对象“表“,在“表“对象上单鼠标右键,则弹出其快捷菜单,如图

“表”的快捷菜单 (2)从弹出的快捷菜单选择“新建表”选项,则弹出“表结构设计”窗口,如图(7) ,所示。 该窗口的上半部分是一个表格,在这个表格中输入”学号”、”姓名”、”性别”、”出生日期”、”院系” 等列的属性,表格的每一行对应一个列定义。 (3)用鼠标单击“学号”列,在工具栏中单击” 钥匙”图标按钮,可将“学号”字段设置为主 键(主关键字) ,此时“学号”前将出现一钥匙图标,如图

表结构设计窗口图

输入表名

(4)将表结构输入完后,单击[保存]按钮将出现“选择名称”对话框,如图所示。输入表名“T-XSB”后,单击 [确定]按钮就完成了学生表结构的设计,创建了一张空表。 (5)按上述第 2~5 步的方法,按表(2) 、表(3)的要求,分别创建课程表“T-KCB”成绩表 “T-CJB”结构 (6)返回企业管理器主界面,在表对象的显示窗口内找到表名,在其上单击鼠标右键,在弹出菜单中, 选择“打开表”选项中的“返回所有行”命令,如图所示:

“打开表”级联菜单 (7)选择“返回所有行”命令后,将出现“表数据录入及维护”窗口,如图所示。根据表所列出的实验 数据,向表“T-XSB”中添加记录

图(10)表数据录入及维护窗口 (8)按第 6~7 步所示方法将表所列出的数据输入到“T-KCB”和“T-CJB”表中

创建关系图
(1)运行 SQL Server 企业管理器,在树形目录中找到“xscjglxt”数据库并展开它,选择 数据库对象” 关系图”,在” 关系图”选项上单鼠标右键,则弹出一快捷菜单,如图所示

“关系图”快捷菜单

“创建数据库关系图向导”对话框

“选择要添加的表”对话框

正在完成数据库关系图向导

“新关系图”窗口

“创建关系”对话框

创建关系后的窗口

保存数据库关系图

“视图”快捷菜单

创建视图
实验步骤

(1)打开 SQL Server 企业管理器,在树形目录中找到“xscjglxt”数据库并展开它,选择数 据库对象“视图“,在“视图“选项上单鼠标右键,则弹出一快捷菜单,如图所示 (2)在弹出的菜单中选择“新建视图”选项,则弹出“新视图”对话框,如图所示,在对话框上 半部分的灰色框内单击鼠标右键,从弹出的菜单中选择“选择添加表”选项,回出现“添加表”对 话框,如图所示 (3)在“添加表”对话框中,选择表“T--XSB” “T-KCB” “T--CJB” ,单击[添加]按钮,关闭“添 加表”对话框,返回新视图 窗口,如图所示,在 3 个表的字段前可通过字段左边的复选框选择要 添加到视图中的字段(不同表中名称相同的字段只勾选一次) (4) 单击[保存]按钮, 在弹出的 “另存为” 对话框中输入新视图的名称, 如图所示 单击[确定]按钮, 完成新视图的建立。

新建视图窗口

“添加表”对话框

添加表后的新视图窗

“另存为”对话框

设计主窗体
实验步骤
(1)设计菜单 启动,新建一个标准工程,默认名为“工程 1” 。在该工程中会自动创建一个窗体,默认名 为“ form1 ”在该窗体中使用提供的“菜单编辑器“设计主窗体,如图所示没命名主窗体为 frm_menu. (2)添加代码 在该窗口中,水平主菜单有 3 个“菜单” : “基本信息管理” “成绩查询” “退出其中“基本 信息管理”菜单的下拉菜单中又有“学生信息管理” 、 “课程信息管理” “成绩信息管理”3 个子 菜单。各菜单项的功能和代码如下 1)主菜单“”包括 3 个子菜单课程

a.“学生信息管理”子菜单,为它添加 Click 事件,并添加如下代码 Private sub xsxxgl_click Frmxsxxgl.show End sub b. “课程信息管理”子菜单,为它添加 Click 事件,并添加如下代码 Private sub xsxxgl_click Frmkcxxgl.show End sub c.“成绩信息管理”子菜单,为它添加 Click 事件,并添加如下代码 Private sub xsxxgl_click Frmcjxxgl.show End sub 2)主菜单“成绩查询”用于打开“成绩查询”窗口,为它添加事件,并添加如下代码 Private sub cjcx_click Frmcjcx.show End sub 3)主菜单“退出”用于打开关闭主窗口,为它添加 onclick 事件,并添加如下代码 Private sub quit_click end End sub

实现学生信息管理
实验步骤
(1)设计“学生信息管理”主窗体,布局如图所示:命名为 frmxsxxgl.

学生信息管理界面 (2)使用 ADO 控件访问 SOL Server 数据库,具体步骤如下: 1)使用“工程”菜单下的“部件”选项,在弹出的对话框中选择“Microsoft ADO Data Contral (OLEDB)”选项和“Microsotf Data Grid Controa6.0 (OLEDB)”选项, 然后单击[确定] 2 )在 ”frmxsxxgl” 窗体上放置一个 Adodc1 控件、一个 DataGrid 控件、 5 个 CommandButton 控件、7TextBox 个控件,设计的窗体如图所示主要控件对象的属 性如表所示
控件名 Adodc1 属性 Connectionstring 设置 Provider=SQLOLEDB.1;Pers ist Security Info=False;User

ID=sa;Initial Catalog=xscjglxt;Data Source=(local) RecordSource Visible DataGrid1 Text1(0) DataSource (名称) DataSource DataField text (名称) Text1(1) DataSource DataField text (名称) Text1(2) DataSource DataField text (名称) Text1(3) DataSource DataField text (名称) Text1(4) DataSource DataField text (名称) Text1(5) DataSource DataField text (名称) Text1(6) DataSource DataField text CommandButton1 CommandButton2 CommandButton3 CommandButton4 CommandButton5 (名称) Caption (名称) Caption (名称) Caption (名称) Caption (名称) T_XSB False Adodc1 Text1 Adodc1 学号 (清空) Text1 Adodc1 姓名 (清空) Text1 Adodc1 性别 (清空) Text1 Adodc1 出生日期 (清空) Text1 Adodc1 院系 (清空) Text1 Adodc1 班级 (清空) Text1 Adodc1 备注 (清空) Cmdadd 添加 Cmdmodify 修改 Cmddelete 删除 Cmdsave 保存 Cmdexit

Caption

退出

(3)设置 Adodc1 的 Connectionstring 属性:单击属性窗口中 Connectionstring 属性框右边 的省略号按钮,将弹出如图(26)所示的“属性页”对话框,选中“使用连接字符串”选项。 单击[生成]按钮,又弹出如图(27)所示的“数据连接属性”对话框。在该对话框的“提供 者”选择“Microsoft OLE DB Provider for SQL” ,单击[下一步]按钮进入“连接”选项卡。 在“连接” 选项卡中 “选择或输入服务器名称”列表中选择或输入 “ (local) ” 在 “用户名称” 文本框中输入,并选择空密码,在“服务器上选择数据库”列表中选择 xscjglxt 数据库

“属性页”对话框

“提供程序”选项卡

“链接”选项卡 “记录源”对话框 4)设置 RecordSource 的属性:单击 Adodc1 属性窗口中 RecordSource 属性框右边的省 略号按钮,将弹出如图( 28 )所示的“记录源”对话框,在“命令类型”列表框中选 择”2-adCmdTable”(表达式) ,在“表或存储过程名称” 列表框中,单击[生成]按钮

完成控件属性设置的界面 使用程序代码来实现按钮的功能,具体步骤如下源程序 实现“添加”操作 Private Sub cmdadd_Click() Adodc1.Recordset.AddNew For i = 0 To 6 Text1(i).Enabled = True Text1(i).Text = "" Next i Text1(0).SetFocus cmdadd.Enabled = False cmddelete.Enabled = False cmdmodify.Enabled = True cmdsave.Enabled = True End Sub Private Sub cmddelete_Click() Dim myval As String myval = MsgBox("是否要删除该记录?", vbYesNo) If myval = vbYes Then Adodc1.Recordset.Delete Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF = True Then Adodc1.Recordset.MoveLast For i = 0 To 6 Text1(i).Enabled = False Next i End If End Sub Private Sub cmdexit_Click() Unload Me End Sub Private Sub cmdmodify_Click() If Adodc1.Recordset.RecordCount <> 0 Then Text1(0).Enabled = False For i = 0 To 6 Text1(i).Enabled = True Next i cmdsave.Enabled = True cmdadd.Enabled = False cmdmodify.Enabled = False cmddelete.Enabled = False Else MsgBox ("没有要修改的数据!") End If End Sub

Private Sub cmdsave_Click() If Text1(0).Text = "" Then MsgBox "学号不允许为空!" Exit Sub End If If Text1(1).Text = "" Then MsgBox "姓名不允许为空!" Exit Sub End If If Text1(2).Text = "" Then MsgBox "出生日期不允许为空!" Exit Sub End If Adodc1.Recordset.Update '更新记录'设置控件不可用 For i = 0 To 6 Text1(i).Enabled = False Next i cmdsave.Enabled = True cmdadd.Enabled = True cmdmodify.Enabled = True cmddelete.Enabled = True End Sub

实现课程信息管理
.实验步骤
(1)设计“课程信息管理”主窗体,布局如图所示,命名为 frmkcxxgl

课程信息管理界面 (2)设置控件属性,具体步骤如下: 1 ) 在 ”frmxsxxgl” 窗 体 上 放 置 一 个 Adodc1 控 件 、 一 个 DataGrid 控 件 、 5 个 CommandButton 控件、7TextBox 个控件,设计的窗体如图 30 所示主要控件对象的属性如表 所示
控件名 Adodc1 属性 Connectionstring 设置 Provider=SQLOLEDB.1;Persist

Security Info=False;User ID=sa;Initial Catalog=xscjglxt;Data Source=(local) RecordSource Visible DataGrid1 Text1(0) DataSource (名称) DataSource DataField text Text1(1) (名称) DataSource DataField text Text1(2) (名称) DataSource DataField text Text1(3) (名称) DataSource DataField text CommandButton1 CommandButton2 CommandButton3 CommandButton4 CommandButton5 (名称) Caption (名称) Caption (名称) Caption (名称) Caption (名称) Caption T_KCB False Adodc1 Text1 Adodc1 课程号 (清空) Text1 Adodc1 课程名 (清空) Text1 Adodc1 开课学期 (清空) Text1 Adodc1 任课教师 (清空) Cmdadd 添加 Cmdmodify 修改 Cmddelete 删除 Cmdsave 保存 Cmdexit 退出

2)设置 Adodc1 的 Connectionstring 属性 RecordSource,完成后界面如图(31)

完成控件属性设置的界面

实现课程信息管理
1.实验内容
实现前台界面与 SQL Server 数据库的连接, 添加代码实现 “学生成绩管理系统” 的 “成 绩信息管理”部分的功能。

2.实验步骤

(1)设计“成绩信息管理”主窗体,布局如图所示,命名为 frm (2)设置控件属性,具体步骤如下: 1 )在 ”frmxsxxgl” 窗体上放置一 个 Adodc1 控件、一 个 DataGrid 控件、 5 个 CommandButton 控件、7TextBox 个控件,设计的窗体如图 32 所示主要控件对象的属性如表 所示
控件名 Adodc1 属性 Connectionstring 设置 Provider=SQLOLEDB.1;Persist Security ID=sa;Initial Source=(local) RecordSource Visible DataGrid1 Text1(0) DataSource (名称) DataSource DataField text Text1(1) (名称) DataSource DataField text Text1(2) (名称) DataSource DataField text CommandButton1 CommandButton2 (名称) Caption (名称) Caption T_CJB False Adodc1 Text1 Adodc1 学号 (清空) Text1 Adodc1 课程号 (清空) Text1 Adodc1 成绩 (清空) Cmdadd 添加 Cmdmodify 修改 Info=False;User Catalog=xscjglxt;Data

CommandButton3 CommandButton4 CommandButton5

(名称) Caption (名称) Caption (名称) Caption

Cmddelete 删除 Cmdsave 保存 Cmdexit 退出

2)设置 Adodc1 的 Connectionstring 属性 RecordSource,完成后界面如图(33)

实现成绩查询
1.实验内容
实现前台界面与 SQL Server 数据库的连接,添加代码实现“学生成绩管理系统”的“学 生成绩查询”部分的功能。

2.实验步骤
(1)设计“学生成绩查询”主窗体,布局如图所示,命名为 chaxun (2)设置控件属性,具体步骤如下: 1)在”chaxun”窗体上放置一个 Adodc1 控件、一个 DataGrid 控件、5 个 CommandButton 控件、7TextBox 个控件,设计的窗体如图 34 所示主要控件对象的属性如表所示 2)设置 Adodc1 的 Connectionstring 属性,完成后界面如图 3)设置表中其它控件的属性,设置完成后,在 VB 环境中运行程序

完成控件属性设置的界面
控件名 Adodc1 属性 Connectionstring

成绩查询界面
设置 Provider=SQLOLEDB.1;Persist Security ID=sa;Initial Source=(local) Info=False;User Catalog=xscjglxt;Data

RecordSource Visible DataGrid1 DataSource (名称) Text1 Text

Select * from view_cj False Adodc1 Text1 (清空)

Commandbutton1

Caption (名称)

查询 Command1 退出 Command2

Commandbutton2

Caption (名称)

“记录源”对话框 (3)使用代码来实现按钮的功能,具体步骤如下 实现“查询”操作 实现代码如下 Private Sub Command1_Click() If Left((Text1.Text), 1) <> "s" Then MsgBox "学号格式输入错误" ElseIf Len((Text1.Text)) <> 8 Then MsgBox "学号长度错误" Else Adodc1.RecordSource = "select * from view_cj where 学号 =" + Chr(39) + Text1.Text + Chr(39) + "" Adodc1.Refresh End If End Sub 实现“退出”操作 Private Sub Command2_Click() Unload Me End Sub

结 束 语
经过老师地教诲和自己地努力,我在学习方面取得了好的成绩,积累了一 些经验,能够与同学进行交流,探讨,我感到非常荣幸。我们在学习的过程中对 自己要有信心。 一个人能力发挥的程度并不完全取决于周围环境,而在很大程度 上决定于自身的努力。我们并不比别的学校的同学差,只要我们努力,我们同样 可以取得更好的成绩。


赞助商链接
更多相关文档:

129班寒假通知书

2015 年下学期 南轩中学 129 班寒假个人通知书 尊敬的 黄鹏 同学家长: 首先,...23 日(农历正月十六) 上午 8 点 30 分至 40 分第 1 号报 到,请带好...

黄鹏毕业论文001 (1)

黄鹏毕业论文001 (1) - 泉州师范学院 毕业论文(设计) 题 目基于网络消费者心理的营销策略探讨 工商学 院 市场营销专 业 13 级 1 班 学生姓名 黄鹏 指导教师...

小学分四年级一班学生花名

( 四 年级 一 班)联系电话 学籍号 G5002312006 ...23 24 25 26 27 28 29 30 31 32 33 34 35 ...黄鹏 男 杨雅涵 女 张永强 男 徐强福 男 黄诗颖 ...

绘画4班 黄鹏 7120109 .doc

绘画4班 黄鹏 7120109 .doc_法律资料_人文社科_专业资料。吉林动画学院 彼岸花...冬季日平均气温 8℃ 以上,最低气温达 1℃ ,不影响曼珠沙华生长。浇水 不宜...

(2013.7.5)中小学教师教育技术能力培的通知

三班:7 月 23 日—7 月 27 日(共 30 人)南八家中心校:21 人 孙洪娟 ...黄鹏 于国明 王双全 侯丽妍 田海燕 叶祥波 王振军 第 八 期 一班:8 月 ...

先进集体申报材料_图文

教育一班 申请人:王玉锦 时间:2016年4月27日 敬爱...黄鹏娜和张琳同学 获得院级“模范学生干部”的荣誉...2014 年 5 月 23 日在文质楼举行 “端午节儿童...

四一班足球队员名单

一班足球队员名单 - 四年级(1)班足球队员名单 男:王涛(队长) 袁志轩 凯 黄鹏 高钰杭 佘萌 王莹 刘艳 胡一凡 当文博 梁育瀚 朱殷奇 黄 女:陈诗颖(队长...

【小升初数学毕业考试】2018年新人教版数学六年级下册...

1 月 5 日,海洋视力保健中心对我校六(2)班进行...·”黄金周,黄鹏全家准备去惠东旅游,在比例尺为 ...(第 21 题 4 分,第 22 题 12 分,第 23 题...

军训小结1

崔校 徐处 张明 黄鹏 聂老师 刘书涛 樊丽萍 全部...电气应到 24 人,实到 23 人,1 人请假。贺千禧...班号、 感恩词、宣誓词、弟子规等,学生们学习热情...

班级表格

(网开面,呵呵) 高二(1)班午间管理检查记录表(...23 日 星期四 2 月 24 日 星期五 解读: 1、...黄鹏 学科组长: 语文:胡梦云 孙东杰 数学:耿青朋 ...

更多相关标签:
相关文档
网站地图

文档资料共享网 nexoncn.com copyright ©right 2010-2020。
文档资料共享网内容来自网络,如有侵犯请联系客服。email:zhit325@126.com