数据库设计与应用开发
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
武汉工程大学计算机科学与工程学院
《数据库系统概论》实验报告
实验内容
实验内容：
依照学生管理系统的要求，完成如下任务
1.设计适合此应用需求的规范化的数据库。
2.学习如何进行数据库连接。
4.制作一个简单的数据库访问程序。（DELPHI、VB、PB等）
要求能完成下列处理要求：
1.学生信息的增、删、改及查询操作。
2.选课和课程信息的系列操作。
实验步骤：
一、VB连接SQL Server数据库方法一：
1）打开VB，新建一个“标准EXE”。
2)在“工程”里面选择“部件”，添加“Microsoft ADO Data Control 6.0(SP6)”和“Microsoft DataGrid Control 6.0(SP6)”，点击“确定”。
3)在左侧工具中双击Adodc控件和DataGrid控件并将其放在合适的位置。
4) 右击Adodc1，在弹出的下拉菜单中选择“ADODC属性”,出现属性页，选择“使用连接字符串”，点击“生成”，选择“Microsoft OLE DB Provider for SQL Server”,点击下一步。
5)在“数据链接属性”中输入如图所示信息，点击确定。
6)点击“测试连接”。
7)在Form1空白处双击鼠标左键，弹出代码编辑窗口。
8)在编辑窗口输入如下代码。
Private Sub DataGrid1_Click()
Adodc1.Visible = False
Adodc1.RecordSource = "select * from Student" Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1.Recordset DataGrid1.Refresh
End Sub
9)点击“运行”，则连接到JXGL数据库的Student表，出现如图所示的结果。
10)连接Course表和SC表只需将代码中的表名修改即可，得到如下结果。(1)VB和JXGL数据库Course表连接结果：
(2) VB和JXGL数据库SC表连接结果：
二、VB连接SQL Server数据库方法二以及数据库的访问程序：
（一）VB连接SQL Server数据库：
1）打开控制面板，双击“数据源”图标。
2）在“ODBC数据源管理器”中选择“系统DSN”,点击“添加”按钮，出现“创建新数据源页面”，选择添加SQL Server。
3）在创建到SQL Server的新数据源中输入“数据源名称”，选择我们需要的服务器类型。
4）在“创建到SQL Server的新数据源”中选择“使用网络登录ID的Windows NT 验证”。
5）在“更改默认的数据库为（D）”选择我们所需的数据源名称，点击“下一步”，再点击“完成”。
6）点击“测试数据源”，出现“测试成功”，则连接成功。
（二）数据库的访问程序：
1、对数据库的查询：
1）双击“Adodc控件”，添加如图所示的控件。
2）右击“Adodc控件”设置其属性如下所示。
3）在右侧属性-Form1中分别设置Text1的DataSource为“Adodc1”，DataField 为“Sno”，Text2的DataSource为“Adodc1”，DataField为“Sname”，Text3的DataSource为“Adodc1”，DataField为“Ssex”。
4）点击VB中的“运行”按钮，则可以成功查询Student表中学生的信息。
5）点击“Adodc控件”中向右的图标，则可以查询到所有学生的信息。
2、对数据库中数据的添加：
1）在VB中新建一个窗体，如图所示。
2）在左侧工具中双击“Adodc控件”和“DataGrid控件”并将其放在合适的位置。
3）对“Adodc控件”属性的设置和前面相同。
4）双击退出按钮，对此按钮进行编程。
5）对Form1加入如图所示的按钮。
6）双击新添加的各个按钮对其编程：
Private Sub Command1_Click()
Form.Show
End Sub
Private Sub Command2_Click()
tex_Sno.Text = ""
tex_Sname.Text = ""
tex_Ssex.Text = ""
Adodc1.Refresh
Adodc1.Recordset.AddNew
cmd_add.Enabled = False '添加数据按钮禁用cmd_save.Enabled = True '保存数据按钮启用
End Sub
Private Sub Command3_Click()
If tex_Sno.Text = "" Then
MsgBox ("请输入学号")
ElseIf tex_Sname.Text = "" Then
MsgBox ("请输入姓名")
ElseIf tex_Ssex.Text = "" Then
MsgBox ("请输入性别")
Else
Adodc1.Recordset("学号") = tex_Sno.Text Adodc1.Recordset("姓名") = tex_Sname.Text Adodc1.Recordset("性别") = tex_Ssex.Text cmd_add.Enabled = True
cmd_save.Enabled = False
End If
End Sub