当前位置:首页 >> 其它课程 >> 黄鹏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

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


更多相关文档:

黄鹏1班23号

黄鹏1班23号_其它课程_初中教育_教育专区。文华学院 数据库课程设计 学生成绩管理系统 姓名:黄鹏 专业:计算机应用技术 学号:130171011323 日期:2015 年 3 月 7 日...
更多相关标签:
黄鹏 深圳大学 | 娄庄镇黄鹏 | 佰仟金融 黄鹏 | 黄鹏年 | 黄鹏个人资料 | 莫洪宪 黄鹏 | 传媒公司黄鹏 | 滕州 黄鹏 |
网站地图

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