四川大学数据库实验五报告

1、word实验五 VB.NET数据库应用程序一、实验目的通过本实验，学习和掌握ADO.NET中对象SqlDataAdapter和对象DataSet的应用，同时掌握通过绑定对象实现数据库的数据浏览操作和更新操作。学习和掌握ADO.NET中对象SqlCommand的应用；学习存储过程的调用。二、实验环境l Microsofe Visual Studio .NET 2022和Book数据库三、 实验内容1. 按书名查询书的作者、价格和出版社名称：输入书名中的局部字或词，查询所有相关书的情况。运行效果如下列图所示。提示：1响应“查询按钮的click事件，在其中构造sql语句，填充数据集，并将DataGr

2、idView的数据源设为该数据集中的相应数据表。2构造Select语句时：查询结果来自T_BookInfo和T_Publisher两个表；使用Like运算构造查询条件，使用As为查询字段重命名为中文；3利用生成的sql语句，使用SqlDataAdapter对象，填充数据集的一个数据表，并将其作为DataGridView的数据源窗体对象属性对象属性设置值Form1Text书籍查询Label1Text请输入书名Textbox1TextButton1Text查询首先建立一个VB窗体文件。翻开VS2022并建立新工程。得到一个新的窗体。参加相应的Label，Textbox，Button及DataGri

3、d需要注意的是，DataGridView在工具箱，数据一栏。接下来添加数据源以使得GridView视图可以使用。选中GridView视图，在属性栏中找到DataSource这一选项。添加新的数据源双击按钮进入代码界面，输入如下的代码：Imports System.DataImportsPublic Class Form1 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim sqlcn As SqlConnection sqlcn = New SqlConnection() s

4、qlcn.ConnectionString = server=DESKTOP-VG5U6QKHANLI;Database=Book;User ID=sa;Password=oymtxdy1011 sqlcn.Open() 翻开连接 Dim dsDA As New SqlDataAdapter() 声明SqldataAdapter对象 dsDA.SelectCommand = New SqlCommand() 设置SelectCommand属性 dsDA.SelectCommand.Connection = sqlcn 设置连接对象 dsDA.SelectCommand.CommandText

5、= Select BookName AS 书名,Price AS 价格,Publisher AS 出版社 & FROM T_BookInfo a,T_Publisher b & WHERE a.PublisherCode=b.PublisherCode & AND a.BookName LIKE % & Trim(TextBox1.Text) & % Dim dset As New DataSet() 声明数据集对象 dsDA.Fill(dset, book_info) 调用Fill方法，从数据源读取数据，并将数据填充到数据集对象 DataGridView1.DataSource = dset

6、 设置DatagGridView1对象的数据源属性 DataGridView1.DataMember = book_info 设置DataGridView1对象的数据源之数据表 End SubEnd Class现在运行程序。输入任意关键字进行查询，我这里输入的是计算机。视图中出现了对应的数据。2. 通过查询实验三第11题所创立的视图view_book3，实现查询各学院领书情况，如下列图所示。提示： 1 查询学院使用ComboBox选择。可以在窗体的Load事件中，先创立数据集，使用ComboBox的DataSource属性设置数据集，使用ComboBox的DisplayMember属性设置显示

7、数据集的数据字段。2 响应学院ComboBox的Change事件，在其中生成sql语句，填充数据表，将数据表设置为DataGridView的DataSource。窗体对象属性对象属性设置值Form1Text学院领书情况Label1Text选择学院ComboBox1TextDataGrid1CaptionText查询结果首先建立一个VB窗体文件。翻开VS2022并建立新工程。得到一个新的窗体。将窗体界面设计成需要的样子如下：需要注意的是，编辑选项需点开combobox右边的箭头选择编辑项。将选项分行依次输入即可。之后双击Combobox进入下拉选择框并输入如下的代码。Imports System

8、.DataImportsPublic Class Form1 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load TODO: 这行代码将数据加载到表“BookDataSet.view_book3中。您可以根据需要移动或删除它。 Me.View_book3TableAdapter.Fill(Me.BookDataSet.view_book3) End Sub Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As Eve

9、ntArgs) Handles ComboBox1.SelectedIndexChanged Dim sqlcn As SqlConnection sqlcn = New SqlConnection() sqlcn.ConnectionString = server=DESKTOP-VG5U6QKHANLI;Database=Book;User ID=sa;Password=oymtxdy1011 sqlcn.Open() 翻开连接 Dim dsDA As New SqlDataAdapter() 声明SqldataAdapter对象 dsDA.SelectCommand = New SqlC

10、ommand() 设置SelectCommand属性 dsDA.SelectCommand.Connection = sqlcn 设置连接对象 dsDA.SelectCommand.CommandText = Select 教师姓名 ,学院名称 ,预定书名,是否领走 & FROM dbo.view_book3 & WHERE 学院名称= & Trim(ComboBox1.Text) & Dim dset As New DataSet() 声明数据集对象 dsDA.Fill(dset, book_info) 调用Fill方法，从数据源读取数据，并将数据填充到数据集对象 DataGridView1

11、.DataSource = dset 设置DatagGridView1对象的数据源属性 DataGridView1.DataMember = book_info 设置DataGridView1对象的数据源之数据表 End SubEnd Class试运行并选择一个学院。可以成功执行。3. 利用绑定对象编程实现对Book数据库中教材订购表的信息浏览和信息更新，功能界面见下列图窗体对象属性对象属性设置值Label1Text教材订购信息查询GroupBox1Text教材订购信息浏览Label2Text教材编号Label3Text教师编号Label4Text学生人数Label5Text教师人数Label

12、6Text订购时间Label7Text领取否Label8Text备注Textbox1DataBindings.TextTBookOrderBindingSource.BookCodeTextbox2DataBindings.TextTBookOrderBindingSource.TeacherCodeTextbox3DataBindings.TextTBookOrderBindingSource.StuBookNumTextbox4DataBindings.TextTBookOrderBindingSource.TeaBookNumTextbox5DataBindings.TextTBookO

13、rderBindingSource.TakeAwayTextbox6DataBindings.TextTBookOrderBindingSource.DescriptionDataTimePicker1DataBindings.TextTBookOrderBindingSource.OrderTimeButton1Text|Button2TextButton4Text|Button5Text订购新教材Button6Text删除教材Button7Text撤销更新Button8Text确认更新Button9Text退出系统提示：1绘制窗体，添加各种控件。2添加数据源 BookDataSet3新增数

14、据集对象 BookDataSet14建立相应的数据绑定 TBookOrderBindingSource5设置各按钮的click事件的响应代码第一记录：Me.TBookOrderBindingSource.Position = 0下一记录：Me.TBookOrderBindingSource.Position = Me.TBookOrderBindingSource.Position + 1确认更新：Me.TBookOrderBindingSource.EndEdit() Me.T_BookOrderTableAdapter.Update(Me.BookDataSet1.T_BookOrder)

15、添加各控件使得窗体如图：接下来进行添加数据源的操作。依次点击工程，添加新数据源，如图。点击添加工程数据源。选择数据库。点击下一步。点击新建连接。在效劳器名中找到本机效劳器选择登录方式，这里使用Window身份验证或者SQL Server身份验证皆可。选择Book数据库单击下一步至出现下列图界面这里将表和视图勾选即可，也可全部勾选。再点击完成即可完成数据源的导入。然后完成DataGridView与数据源的数据绑定。点击DataGridView，找到属性中，DataSource这一栏。点击DataSource并展开选择我们要使用的BookDataSet中的T_BookOrder作为对象。这样窗体就

16、出现了相应的窗口。运行程序可以看到视图中出现了相应的数据接下来添加语句使得各按钮能实现相应的功能。双击进入代码编辑界面并添加如下的语句，意思是将选项的指向移动到第一位。Me.TBookOrderBindingSource.MoveFirst()回到窗体界面，双击进入代码编辑界面并添加如下的语句，意思是将选项的指向向前移动一位。输入如下的代码:Me.TBookOrderBindingSource.MovePrevious()回到窗体界面，双击进入代码编辑界面并添加如下的语句，意思是将选项的指向向后移动一位。输入如下的代码:Me.TBookOrderBindingSource.MoveNext()

17、回到窗体界面，双击进入代码编辑界面并添加如下的语句，意思是将选项的指向移动到末尾。输入如下的代码:Me.TBookOrderBindingSource.MoveLast()启动工程试一下。点击，确实移向了下一位。点击，移回第一位。点击，移动到了末尾。点击，移回第一位。再进行TextBox中文本内容的修改。选中一个文本框，在属性栏中找到这一项。点击加号展开。将Text修改为相应的数据，由于我第一个选择的是教材编号，所以与BookCode绑定。同理，将剩下的文本框也与数据源绑定。 设定好之后再翻开程序查看，随意点击一项。文本框中显示了相应的文本。这之后是对五个按钮的设定。添加如下的代码以适用功能。

18、Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click 撤销更新 Me.TBookOrderBindingSource.CancelEdit() End SubPrivate Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click 删除教材 Me.TBookOrderBindingSource.RemoveCurrent() End SubPrivate Sub Button5_Click(sen

19、der As Object, e As EventArgs) Handles Button5.Click 订购新教材 Me.TBookOrderBindingSource.AddNew() End SubPrivate Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click 确认更新 Me.TBookOrderBindingSource.EndEdit() Try Me.T_BookOrderTableAdapter.Update(Me.BookDataSet.T_BookOrder) MsgBox(BookOrder更新成功) Catch a As Exception MsgBox(BookOrder更新失败) End Try End SubPrivate Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click 退出系统 End End Sub翻开程序试运行。点击订购新教材，可以看到指向了新的一行并等待输入。将正确