TextBox2.Text = \ TextBox3.Text = \End Sub
Private Sub MenuItem4_Click(……) Handles MenuItem4.Click Dim frm1 As New Form1 Me.Hide() frm1.Show() End Sub
10.6 实验六 VB.NET数据库应用程序（1）
一．实验目的
通过本实验，学习和掌握ADO.NET中对象SqlDataAdapter和对象DataSet的应用，同时掌握通过绑定对象实现数据库的数据浏览操作和更新操作。
二．实验环境
? Microsofe Visual Studio .NET 2003和Book数据库 三．实验内容
1．利用绑定对象编程实现对Book数据库中教材订购表的信息浏览和信息更新，功能界面见下图
图10-34 用数据绑定实现表T_BookOrder的数据浏览和更新
实验辅导：
定义绑定对象：Dim BookOrder_bind As BindingManagerBase
设置绑定数据源：BookOrder_bind = BindingContext(DataSet11, \翻到头：BookOrder_bind.Position = 0
前翻：BookOrder_bind.Position = BookOrder_bind.Position - 1 后翻：BookOrder_bind.Position = BookOrder_bind.Position + 1 翻到尾：BookOrder_bind.Position = BookOrder_bind.Count - 1 增加一门新课程：BookOrder_bind.AddNew()
删除一门课程：BookOrder_bind.RemoveAt(BookOrder_bind.Position)
窗体对象属性 对象 Label1 Text 属性 设置值 教材订购信息查询 GroupBox1 Label2 Label3 Label4 Label5 Label6 Label7 Label8 Textbox1 Textbox2 Textbox3 Textbox4 Textbox5 Textbox6 Button1 Button2 Button3 Button4 Button5 Button6 Button7 Button8 Button9 DataGrid1
//窗体加载
Text Text Text Text Text Text Text Text DataBindings.Text DataBindings.Text DataBindings.Text DataBindings.Text DataBindings.Text DataBindings.Text Text Text Text Text Text Text Text Text Text 教材订购信息浏览 教材编号 教师编号 学生人数 教师人数 订购时间 领取否 备注 DataSet11-T_BookOrder.BookCode DataSet11-T_BookOrder.TeacherCode DataSet11-T_BookOrder.StuBookNum DataSet11-T_BookOrder.TeaBookNum DataSet11-T_BookOrder.TakeAway DataSet11-T_BookOrder.Description DataSet11-T_BookOrder.OrderTime |< << >> >| 订购新教材 删除教材 撤销更新 确认更新 退出系统 DataTimePicker1 DataBindings.Text Private Sub Form1_Load(……) Handles MyBase.Load SqlDataAdapter1.Fill(Me.DataSet11.T_BookOrder)
BookOrder_bind = Me.BindingContext(DataSet11, \ DataGrid1.DataSource = DataSet11.Tables(\ End Sub //翻到首记录
Private Sub Button1_Click(……) Handles Button1.Click BookOrder_bind.Position = 0
DataGrid1.CurrentRowIndex = BookOrder_bind.Position End Sub
//前翻一条记录
Private Sub Button2_Click(……) Handles Button2.Click BookOrder_bind.Position = BookOrder_bind.Position - 1 DataGrid1.CurrentRowIndex = BookOrder_bind.Position End Sub //后翻一条记录
Private Sub Button3_Click(……) Handles Button3.Click
BookOrder_bind.Position = BookOrder_bind.Position + 1 DataGrid1.CurrentRowIndex = BookOrder_bind.Position End Sub //翻到尾记录
Private Sub Button4_Click(……) Handles Button4.Click BookOrder_bind.Position = BookOrder_bind.Count - 1 DataGrid1.CurrentRowIndex = BookOrder_bind.Position End Sub
// 单击DataGrid1绑定对象指针同步移动
Private Sub DataGrid1_Click(……) Handles DataGrid1.Click BookOrder_bind.Position = DataGrid1.CurrentRowIndex End Sub
//增加记录
Private Sub Button5_Click(……) Handles Button5.Click BookOrder_bind.AddNew() End Sub
//删除记录
Private Sub Button6_Click(……) Handles Button6.Click BookOrder_bind.RemoveAt(BookOrder_bind.Position) End Sub //取消修改
Private Sub Button7_Click(……) Handles Button7.Click BookOrder_bind.CancelCurrentEdit() End Sub
//确定修改
Private Sub Button8_Click(……) Handles Button8.Click BookOrder_bind.EndCurrentEdit()
SqlDataAdapter1.Update(Me.DataSet11.T_BookOrder) End Sub //退出系统
Private Sub Button9_Click(……) Handles Button9.Click End
End Sub
2．按书名查询书的作者、价格和出版社名称：输入书名中的部分字或词，查询所有相关书的情况。运行效果如图10-x所示。
10-x 根据书名查询书的情况
提示：
（1）构造Select语句时：查询结果来自T_BookInfo和T_Publisher两个表；使用Like运算构造查询条件，使用As为查询字段重命名为中文；
（2）DataGrid标题“查询结果”的设置通过DataGrid的CaptionText属性实现。
窗体对象属性
对象 Form1 Label1 属性 Text Text Text Text 设置值 书籍查询 请输入书名 查询 Textbox1 Button1
DataGrid1 CaptionText 查询结果 Private Sub Button1_Click(……) Handles Button1.Click
Dim sql As String = \书名,price as 价格,publisher as 出版社\ & \
& \ & \ Dim myconn As New SqlConnection(\ \
Dim myadapter As SqlDataAdapter = New SqlDataAdapter(sql, myconn) Dim mydataset As New Data.DataSet myadapter.Fill(mydataset, \
DataGrid1.DataSource = mydataset.Tables(\ End Sub
3．通过查询实验三第11题所创建的视图view_book3，实现查询各学院领书情况，如图10-k所示。
图10-k 各学院领书情况
提示：
查询学院使用ComboBox选择。可以先创建数据集，使用ComboBox的DataSource属性设置数据集，使用ComboBox的DisplayMember属性设置显示数据集的数据字段。
窗体对象属性
对象 Form1 Label1 属性 Text Text 设置值 学院领书情况 选择学院 ComboBox1 Text DataGrid1
Private Sub Form1_Load(……) Handles MyBase.Load
CaptionText 查询结果 Dim sql As String = \
Dim myconn As New SqlConnection(\ & \
Dim myadapter As SqlDataAdapter = New SqlDataAdapter(sql, myconn) Dim mydataset As New Data.DataSet myadapter.Fill(mydataset, \学院名\
ComboBox1.DataSource = mydataset.Tables(\学院名\
ComboBox1.DisplayMember = mydataset.Tables(\学院名\ End Sub
Private Sub ComboBox1_SelectedIndexChanged(……) Handles ComboBox1.SelectedIndexChanged Dim sql As String = \ & \ Dim myconn As New SqlConnection(\ & \
Dim myadapter As SqlDataAdapter = New SqlDataAdapter(sql, myconn) Dim mydataset As New Data.DataSet myadapter.Fill(mydataset, \
DataGrid1.DataSource = mydataset.Tables(\ End Sub
10.7 实验七 VB.NET数据库应用程序（2）
一．实验内容
通过本次实验，学习和掌握ADO.NET中对象SqlCommand的应用；学习存储过程的调用。
二．实验环境
? Microsofe Visual Studio .NET 2003和Book数据库
三．实验内容
SqlCommand对象既可以完成对数据库的读操作，又可以完成对数据库的写操作。本实验要求完成下列数据库访问操作：
1. 用SqlCommand完成数据查询操作。具体要求如下：
从控件ComboBox1中选择不同的书号时，右侧的教材订购信息将随之变化。即实现查询功能：给定教材代号，查出相应教材的教材名称，统计学生订数和教师订数。运行界面如图10-35所示。