Dim sql As String = \
& \
Dim myconn As New SqlConnection(\ & \
Dim mycmd As SqlCommand = New SqlCommand(sql, myconn) Dim i As Integer myconn.Open() Try
i = mycmd.ExecuteNonQuery() If i > 0 Then
MsgBox(\记录删除成功\ TextBox1.Text = \ TextBox2.Text = \ TextBox3.Text = \ End If
Catch ex As Exception MsgBox(ex.Message) End Try myconn.Close() End Sub //确认修改
Private Sub Button4_Click(……) Handles Button4.Click
Dim sql As String = \ & TextBox2.Text & \ & TextBox3.Text & \
& \
Dim myconn As New SqlConnection(\ & \
Dim mycmd As SqlCommand = New SqlCommand(sql, myconn) Dim i As Integer myconn.Open() Try
i = mycmd.ExecuteNonQuery() If i > 0 Then
MsgBox(\记录修改成功\ TextBox1.Text = \ TextBox2.Text = \ TextBox3.Text = \ End If
Catch ex As Exception MsgBox(ex.Message) End Try myconn.Close() End Sub
//取消修改
Private Sub Button5_Click(……) Handles Button5.Click
Dim sql As String = \ & \
Dim myconn As New SqlConnection
myconn.ConnectionString = \ & \ Dim mycmd As SqlCommand = New SqlCommand(sql, myconn) Dim myread As SqlDataReader myconn.Open()
myread = mycmd.ExecuteReader If (myread.Read) Then
TextBox2.Text = myread.Item(0) TextBox3.Text = myread.Item(1) Else
TextBox2.Text = \ TextBox3.Text = \ End If
myconn.Close()
End Sub
4．通过调用实验三第2题所创建的存储过程proc_book2，实现程序查询指定图书的预订数量，如图10-z所示。
图10-z调用存储过程查询教材预订量
窗体对象属性
对象 Label1 Label2 Label3 Button1
Private Sub Button1_Click(……) Handles Button1.Click
Dim myconn As New SqlConnection(\ & \ Dim mycmd As SqlCommand
属性 Text Text Text Text 设置值 书号 预订数量 查询 Textbox1 Text mycmd = New SqlCommand(\ mycmd.CommandType = CommandType.StoredProcedure
Dim myParm As SqlParameter = mycmd.Parameters.Add(\ myParm.Value = TextBox1.Text myconn.Open()
Label3.Text = Format(mycmd.ExecuteScalar, \ myconn.Close() End Sub
10.8 实验八 VB.NET数据报表和数据图表
一．实验目的
掌握利用Crystal Reports for VS.NET创建数据报表和数据图表的基本方法和操作步骤；熟练掌握利用“标准报表专家”向导创建水晶报表；掌握在嵌入式 Crystal Report Designer中设计和调整水晶报表布局的方法和技巧；掌握水晶报表数据访问的拉（PULL）模式和推（PUSH）模式的实现方法；了解图表延伸的实现方法；掌握水晶报表的导出与打印。
二．实验环境
? Microsofe Visual Studio .NET 2003和Book数据库
三．实验内容
1． 利用Crystal Reports创建一个如图10-37所示的教材一览表。提示：使用报表专家。
图10-37 教材一览表
教材一览表初始布局：
教材一览表最终布局：
教材一览表：
2．创建一个如图10-39所示的机械工业出版社教材一览表。提示：可使用“来自于现有的报表”创建。 图10-39 机械工业出版社教材
机械工业出版社教材一览表初始布局：
机械工业出版社教材一览表最终布局：
机械工业出版社教材一览表：
3．创建教师一览表。
（1）创建一个如图10-40所示的教师一览表。要求按学院分组显示每个学院下的教师姓名、职称、性别和联系电话，并统计每个学院的教师人数以及该校教师总人数。提示：使用报表专家。
图10-40教师一览表