数据库设计与应用开发

1、武汉工程大学计算机科学与工程学院数据库系统概论实验报告专业班级11网工1-2实验地点计算机大楼423机房学生学号指导教师学生姓名实验时间实验项目实验3数据库设计与应用开发（6学时）实验类别操作性（）验证性（）设计性（）综合性（，）其它（）实 验 目 的 及 要 求1 .依照数据库设计的方法，完成学生管理系统的数据库设计。2 .掌握程序设计语百和 SQL-Server的连接方法。3 .建立简单的数据库访问界面。掌握数据库应用系统开发的基本方法。成绩评定表类 别评分标准分值得分合计上机表现积极出勤、遵守纪律 主动完成实验设计任务30分程序代码比较规范、基本正确 功能达到实验要求30分实验报告及时递

2、交、填写规范 内容完整、体现收获40分说明：评阅教师：日期：2013年月日实验内容实验内容：依照学生管理系统的要求，完成如下任务1 .设计适合此应用需求的规范化的数据库。2 .学习如何进行数据库连接。4 .制作一个简单的数据库访问程序。（DELPHI VR PB等）要求能完成下列处理要求：1 .学生信息的增、删、改及查询操作。2 .选课和课程信息的系列操作。实验步骤：一、VB连接SQL Server数据库方法一：1）打开VB,新建一个“标准EXE。2)在“工程”里面选择“部件”,添加 “Microsoft ADO Data Control (SP6) 和"Microsoft Data

3、Grid Control (SP6)”，点击“确定”。3）在左侧工具中双击 Adodc控件和DataGrid控件并将其放在合适的位置4）右击Adodc1,在弹出的下拉菜单中选择“ ADODCf性”，出现属性页，选择”使 用连接字符串”，点击“生成”，选择“Microsoft OLEDBProvider for SQLServer”, 点击下一步。5）在“数据链接属性”中输入如图所示信息，点击确定6）点击“测试连接”。7）在Form1空白处双击鼠标左键，弹出代码编辑窗口8）在编辑窗口输入如下代码。Private Sub DataGrid1_Click（）=False="select *

4、 from Student"Set =End Sub9）点击“运行”，则连接到JXGL数据库的Student表，出现如图所示的结果10）连接Course表和SC表只需将代码中的表名修改即可，得到如下结果（1）VB和JXGL数据库Course表连接结果：VB和JXGL数据库SC表连接结果：二、VB连接SQL Server数据库方法二以及数据库的访问程序：（一）VB连接SQL Server数据库：1）打开控制面板，双击“数据源”图标。2）在“ ODB做据源管理器”中选择“系统 DSN，点击“添加”按钮，出现“创建新数据源 页面”，选择添加 SQL Server 。3）在创建到SQL Se

5、rver的新数据源中输入“数据源名称”,选择我们需要的服 务器类型。4）在“创建到SQLServer的新数据源”中选择“使用网络登录ID的WindowsNT 验证”。5）在“更改默认的数据库为（D）”选择我们所需的数据源名称，点击“下一步”,再点击“完成”。6）点击“测试数据源”，出现“测试成功”，则连接成功（二）数据库的访问程序：1、对数据库的查询：1）双击“Adodc控件”，添加如图所示的控件。2）右击“Adodc控件”设置其属性如下所示。3）在右侧属性-Form1 中分另U设置 Text1 的 DataSource 为 “AdodcT' , DataField 为 “Sno&qu

6、ot;，Text2 的 DataSource 为 “Adodcl"，DataField 为 “Snam3, Text3 的 DataSource 为 “AdodcT' , DataField 为 “Ssex”。4）点击VB中的“运行”按钮，则可以成功查询 Student表中学生的信息。5）点击“Adodc控件”中向右的图标，则可以查询到所有学生的信息。2、对数据库中数据的添加：1）在VB中新建一个窗体，如图所示。2）在左侧工具中双击“ Adodc控件”和“ DataGrid控件”并将其放在合适的位3）对“Adodc控件”属性的设置和前面相同。4）双击退出按钮，对此按钮进行编程

7、。5）对Form1加入如图所示的按钮。6）双击新添加的各个按钮对其编程：Private Sub Command1_Click（）End SubPrivate Sub Command2_Click（） ="" ="" =""=False '添加数据按钮禁用=True '保存数据按钮启用End SubPrivate Sub Command3_Click（）If = "" ThenMsgBox （" 请输入学号"）ElseIf = "" ThenMsgBox （&q

8、uot; 请输入姓名"）ElseIf = "" ThenMsgBox （" 请输入性别"）Else（" 学号"）=（" 姓名"）=（" 性别"）=True=FalseEnd IfEnd SubPrivate Sub Command4_Click()Unload FormlUnload Form2End Sub7)编写好程序后即可实现对该数据库中学生信息的添加实验总结在本次数据库实验中，我将数据库中的理论知识，运用到实践中来。同 时我也遇到很多困难，在解决它们的同时我学到了很多，受益匪浅，特别是如何 分析、建立、开发一个系统。在实验中我熟练掌握了常用控件的添加、窗体的调试、控件的布局以及其 对应属性的设置！并且对我们不了解的 VB代码有了一定的了解。由于开始对VB和SQL Server的连接没有什么了解，而且我们也没有学习 过VB,所以这次的实验我基本上都是自己查找各种资料来独立完成此次试验。 在实验中我学习到了两种数据库和 VB连接