数据库设计与应用开发.docx
武 汉 工 程 大 学计算机科学与工程学院?数据库系统概论?实验报告专业班级11网工1-2实验地点计算机大楼423机房学生学号指导教师学生姓名实验时间实验工程实验3 数据库设计与应用开发6学时实验类别操作性 验证性 设计性 综合性 其它 实验目的及要求1.依照数据库设计的方法，完成学生管理系统的数据库设计。2.掌握程序设计语言与SQL-Server的连接方法。3.建立简单的数据库访问界面。掌握数据库应用系统开发的根本方法。成 绩 评 定 表类 别评 分 标 准分值得分合 计上机表现积极出勤、遵守纪律主动完成实验设计任务30分程序代码比拟标准、根本正确功能到达实验要求30分实验报告及时递交、填写标准内容完整、表达收获40分说明： 评阅教师： 日 期： 2021 年 月 日实 验 内 容实验内容：依照学生管理系统的要求，完成如下任务 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 = FalseAdodc1.RecordSource = "select * from Student"End Sub9)点击“运行，那么连接到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()End SubPrivate Sub Command2_Click()tex_Sno.Text = ""tex_Sname.Text = ""tex_Ssex.Text = ""cmd_add.Enabled = False '添加数据按钮禁用cmd_save.Enabled = True '保存数据按钮启用End SubPrivate Sub Command3_Click()If tex_Sno.Text = "" Then MsgBox ("请输入学号")ElseIf tex_Sname.Text = "" Then MsgBox ("请输入姓名")ElseIf tex_Ssex.Text = "" Then MsgBox ("请输入性别")Else cmd_add.Enabled = Truecmd_save.Enabled = FalseEnd IfEnd SubPrivate Sub Command4_Click()Unload Form1Unload Form2End Sub7） 编写好程序后即可实现对该数据库中学生信息的添加。实 验 总 结 在本次数据库实验中，我将数据库中的理论知识，运用到实践中来。同时我也遇到很多困难，在解决它们的同时我学到了很多，受益匪浅，特别是如何分析、建立、开发一个系统。在实验中我熟练掌握了常用控件的添加、窗体的调试、控件的布局以及其对应属性的设置！并且对我们不了解的VB代码有了一定的了解。由于开场对VB与SQL Server的连接没有什么了解，而且我们也没有学习过VB，所以这次的实验我根本上都是自己查找各种资料来独立完成此次试验。在实验中我学习到了两种数据库与VB连接的方法，在数据库访问程序中需要编写大量的代码，但是由于我们对VB掌握的限制，我仅仅编写了添加程序，而没有编写删除等程序。我所做的实验都是尽量防止使用太复杂的代码，使更多人能更加容易理解。通过这个实验，我对数据库有了更好的掌握，对我在今后数据库的学习有很大的帮助。第 17 页
