实验8CS体系结构的数据库应用系统开发[修订]

《实验8CS体系结构的数据库应用系统开发[修订]》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、实验7C/S体系结构的数据库应用系统开发一、实验目的使用熟悉的客户端编程语言与开发工具，开发Client/Server体系结构的应用程序，初步掌握Client/Server体系结构二层结构的数据库M用系统的开发技术与方法。二、实验准备1.环境操作系统：Windows2000Server数据库管理系统：SQLServer2000开发环境：MicrosoftVisualBasic6.02.准备工作采用实验2创建的学牛:数据库SDBo将实验2的数据库分离的数据库文件拷贝到D：盘的自己建立存储数据库文件的文件夹下，在SQLServer的企业管理器屮利用数据库附加功能将数据库进行恢复。三、实

2、验内容使用VisualBasic6.0、或者VB.NET、或者C#作为客戶端开发工具开发Client/Server体系结构的客户端应用程序，访问服务端的SQLServer数据库。四、实验要求首先利用资源管理器在D：盘上建立以口己的“学号姓名”命名的文件夹，以便保存本次实验的程序。学生可以选择自己熟悉的开发语言与工具实现。分别编写两种不同的形式的Client/Server体系结构的客户端应用程序，访问服务端的SQLServer数据库，实现对S表操作。1.在界血冲按表格方式显示学生表S屮的数据。界面上要求有记录移动到第一条、上一条、下一条、最后一条功能按钮，界而如图1。在界血冲按单记录

3、方式显示学生表S屮的数据。界而上要求有记录移动到首条、上翻、卜翻、末条、插入、修改、删除和退出功能按钮，界而如图2。要求利用VBAD0控件实现功能，具体操作可参考教学网站屮实验教学里的程序教学实验下VB使用控件连接数据库。—snosnagesexdnocreditw1721s2辛国年18男61s3徐玮20女_:11s4邓一欧21男61s5张激扬19男62s622女311s7王克菲18男62-s8王刃19男321□回冈下一条摄后一条图21.在界血冲按单记录方式显示学生表S屮的数据。界血•上要求有记录移动到首条、上翻、下翻、末条、插入、修改、删除和退出功能按钮，界而如下。要求选择利用

4、VB程序实现分别实现，具体操作可参考数据库教学网站中实验教学的程序教学实验下的VB使用程序连接数据库。五、实验报告1.实验报告严格按照北京林业人学实验报告來写，使用WORD格式，文件名为“学号姓名-7”,上传到FTP服务器中实验7目录中。实验报告中必须有实验要求2中的数据库连接代码；将记录移动到笫一项、插入记录、修改记录和删除记录功能模块的代码。2.将本次实验所建立的程序分别放入两个文件夹中，这两个文件夹存放到D：//“学号姓名-VB”命名的文件夹中，压缩打包上传到教师指定的FTP服务器实验7H录中，压缩包命名为“学号姓名-VB”，实验报告单独上传不用打包，只打包代码。六、实验参考

5、下面以VisualBasic6.0作为客户端开发工具开发Client/Server体系结构的在界面中按表格方式显示学主表S屮的数据的客户端应用程序。步骤如下：1.建立一个窗口界而，在界面中显示学生数据库中S表中的全部数据(1)利用资源管理器在D：盘上建立以自己的“学号姓名-VB”命名的文件夹，以便保存程序。(2)启动VB程序,新建一个工程(标准Exe)o(3)选择菜单->“工程”->“部件”选项,在出现的“部件”对话框中选择"MicrosoftADODataControl6.0(OLEDB)”和"MicrosoftDataGridControl6.0(OLEDB)”部件。⑷在窗体F

6、orml_h面,添加MicrosoftADODataControl6.0(OLEDB)和MicrosoftDataGridControl6.0(OLEDB)部件。(5)通过设置ADO控件Adodcl的属性,在Adodcl属性窗口中设置ConnectionString的属性指定与数据库进行连接，设置查询类型;设置RecordSource的属性，选择要访问的表;将Datagrid控件与ADO控件绑定，运行程序，杏看运行结果。(5)鼠标选择“Adodcl”控件，在属性窗口中将“Visible"属性置为“True”。(6)在窗口界面上添加四个按钮，分别修改四个按钮的“Caption"值，分

7、别为第—•条、上一条、下一条、最后一条。⑻分别单击4个按钮，输入对应的代码：PrivateSubCommandl_Click()Adodcl.Recordset.MoveFirstEndSubPrivateSubCommand2_C1ick()Adodcl.Recordset.MovePreviousIfAdodcl.Recordset.BOF=TrueThenAdodcl.Recordset.MoveFirstEndIfEndSubPrivateSubCommand