1、实验类别操作性() 验证性() 设计性( ) 综合性( ) 其它( )实验目的及要求1. 依照数据库设计的方法,完成学生管理系统的数据库设计。2. 掌握程序设计语言和SQL-Server的连接方法。3. 建立简单的数据库访问界面。掌握数据库应用系统开发的基本方法。成 绩 评 定 表类 别评 分 标 准分值得分合 计上机表现积极出勤、遵守纪律主动完成实验设计任务30分程序代码比较规范、基本正确功能达到实验要求实验报告及时递交、填写规范内容完整、体现收获40分说明: 评阅教师: 日 期: 2013 年 月 日实 验 内 容实验内容:依照学生管理系统的要求,完成如下任务 1.设计适合此应用需求的规范
2、化的数据库。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,在弹出的
3、下拉菜单中选择“ADODC属性”,出现属性页,选择“使用连接字符串”,点击“生成”,选择“Microsoft OLE DB Provider for SQL Server”,点击下一步。5)在“数据链接属性”中输入如图所示信息,点击确定。6)点击“测试连接”。7) 在Form1空白处双击鼠标左键,弹出代码编辑窗口。8)在编辑窗口输入如下代码。Private Sub DataGrid1_Click()Adodc1.Visible = FalseAdodc1.RecordSource = select * from StudentAdodc1.RefreshSet DataGrid1.DataSo
4、urce = Adodc1.RecordsetDataGrid1.RefreshEnd Sub9)点击“运行”,则连接到JXGL数据库的Student表,出现如图所示的结果。10)连接Course表和SC表只需将代码中的表名修改即可,得到如下结果。(1)VB和JXGL数据库Course表连接结果:(2) VB和JXGL数据库SC表连接结果:2、VB连接SQL Server数据库方法二以及数据库的访问程序:(一)VB连接SQL Server数据库:1)打开控制面板,双击“数据源”图标。2)在“ODBC数据源管理器”中选择“系统DSN”,点击“添加”按钮,出现“创建新数据源页面”,选择添加SQL
5、Server。3)在创建到SQL Server的新数据源中输入“数据源名称”,选择我们需要的服务器类型。4)在“创建到SQL Server的新数据源”中选择“使用网络登录ID的Windows NT验证”。5)在“更改默认的数据库为(D)”选择我们所需的数据源名称,点击“下一步”,再点击“完成”。6)点击“测试数据源”,出现“测试成功”,则连接成功。(2)数据库的访问程序:1、对数据库的查询:1)双击“Adodc控件”,添加如图所示的控件。2)右击“Adodc控件”设置其属性如下所示。3)在右侧属性-Form1中分别设置Text1的DataSource为“Adodc1”,DataField为“S
6、no”,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)双击新
7、添加的各个按钮对其编程:Private Sub Command1_Click()Form.ShowPrivate Sub Command2_Click()tex_Sno.Text = tex_Sname.Text = tex_Ssex.Text = Adodc1.Recordset.AddNewcmd_add.Enabled = False 添加数据按钮禁用cmd_save.Enabled = True 保存数据按钮启用Private Sub Command3_Click()If tex_Sno.Text = Then MsgBox (请输入学号)ElseIf tex_Sname.Text =
8、 请输入姓名ElseIf tex_Ssex.Text = 请输入性别Else Adodc1.Recordset(学号) = tex_Sno.Text姓名) = tex_Sname.Text性别) = tex_Ssex.Text cmd_add.Enabled = Truecmd_save.Enabled = FalseEnd IfPrivate Sub Command4_Click()Unload Form1Unload Form27)编写好程序后即可实现对该数据库中学生信息的添加。实 验 总 结 在本次数据库实验中,我将数据库中的理论知识,运用到实践中来。同时我也遇到很多困难,在解决它们的同
9、时我学到了很多,受益匪浅,特别是如何分析、建立、开发一个系统。在实验中我熟练掌握了常用控件的添加、窗体的调试、控件的布局以及其对应属性的设置!并且对我们不了解的VB代码有了一定的了解。由于开始对VB和SQL Server的连接没有什么了解,而且我们也没有学习过VB,所以这次的实验我基本上都是自己查找各种资料来独立完成此次试验。在实验中我学习到了两种数据库和VB连接的方法,在数据库访问程序中需要编写大量的代码,但是由于我们对VB掌握的限制,我仅仅编写了添加程序,而没有编写删除等程序。我所做的实验都是尽量避免使用太复杂的代码,使更多人能更加容易理解。通过这个实验,我对数据库有了更好的掌握,对我在今后数据库的学习有很大的帮助。