模拟考题答案

UPDATE Products

SET 每件数量 = @每件数量, 单价 = @单价, 每件体积 = @每件体积, Discontinued = @Discontinued

WHERE (产品ID = @产品ID)

2、编辑按钮的代码：

Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click sta = \

id = CInt(ComboBox1.Text)

Me.SqlzjDs.Products.AcceptChanges() TextBox12.Enabled = False TextBox13.Enabled = False TextBox14.Enabled = False TextBox18.Enabled = False TextBox19.Enabled = False

TextBox15.Text = Me.SqlzjDs.Products(id - 1).每件数量.ToString TextBox16.Text = Me.SqlzjDs.Products(id - 1).每件体积.ToString TextBox17.Text = Me.SqlzjDs.Products(id - 1).单价.ToString

3、编辑后的确定（补充代码） If sta = \ Then

Me.SqlzjDs.Products(id - 1).每件数量= TextBox15.Text '产品表中没有“每件体积”字段，对应TextBox16.Text 的内容 Me.SqlzjDs.Products(id - 1).每件体积= TextBox16.Text Me.SqlzjDs.Products(id - 1).单价= CInt(TextBox17.Text)

Me.SqlzjDs.Products(id - 1).Discontinued = CBool(CheckBox1.CheckState) Me.SqlzjDs.Products.GetChanges()

sta = \

'产品表中没有“每件体积”字段，对应TextBox16.Text 的内容

'注意这里的参数个数和类型要和前面的updatecommand的内容一一对应起来。 Me.ProductsTableAdapter.Update(TextBox15.Text, TextBox17.Text, CBool(CheckBox1.CheckState), TextBox16.Text, CInt(ComboBox1.Text))

'Me.ProductsTableAdapter.Update(TextBox15.Text, TextBox17.Text, CBool(CheckBox1.CheckState), CInt(ComboBox1.Text))

Me.ProductsTableAdapter.Update(Me.SqlzjDs.Products) 'me.salesdataset.products.acceptchange() End If

重臵和取消按钮的代码与添加功能里的重臵和取消一样

21

11、在“产品管理”选项卡，对产品表进行删除

1、在数据源sqlzjds中添加表products：数据---显示数据源—右击sqlzjDs—使用向导配臵数据集…. 选择数据库表对象products---完成。(注意：如果没有数据集sqlzjds，就建立一个在连接SqlzjCn下的含有该对象products的数据集sqlzjds，但SqlzjCn连接控件在整个考试过程中只能建立一次)

2、拖数据源sqlzjds中的表products到“产品管理”选项卡，删除自动生成的表格对象。（只保留productsBindingSource和productsTableAdapter对象） 3、补充定义类级变量

Public Class Form1 Dim sta As String

Dim id As Integer

4、显示数据源，右击sqlzjds---使用设计器编辑数据集…,设置ProductsTableAdapter的属性,新建deleteCommand命令，内容为如下：设置deleteCommand命令的commandtext内容如下：

DELETE FROM Products where 产品id=@产品id

5、删除按钮代码： sta = \

6、删除后的确认代码如下： If sta = \ Then

Dim I As Integer = CInt(ComboBox1.Text) sta = \

Me.ProductsTableAdapter.Delete(I)

Me.ProductsTableAdapter.Update(Me.SqlzjDs.Products) End If

22

12、在“销售订单管理”选项卡，用表格显示数据信息

6. 在“销售订单管理”的选项卡中，进行适当的编程，使“DataGridView2”控件，如

下图所示，显示表“OrderDetails”中的内容。要求：当“订单ID”变化后，“DataGrid View2”中的内容会进行相应的变化，即只显示该订单ID的内容。（10分）

解题步骤：

1、在数据源sqlzjds中添加表Orderdetails：数据---显示数据源—右击sqlzjDs—使用向导配臵数据集…. 选择数据库表对象Orderdetails---完成。(注意：如果没有数据集sqlzjds，就建立一个在连接SqlzjCn下的含有该对象Orderdetails的数据集sqlzjds，但SqlzjCn连接控件在整个考试过程中只能建立一次)

2、拖数据源sqlzjds中的Orderdetails到“销售订单管理”选项卡，删除自动生成的表格对象。

（只保留OrderdetailsBindingSource和OrderdetailsTableAdapter对象） 3、DataGridView2”的“DataSource”属性设为“OrderDetailsBindingSource”。 4、到“Form1.vb”的设计窗口，双击“ComboBox2”，进行如下的编程：

Private Sub

ComboBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles ComboBox2.SelectedIndexChanged Me.OrderDetailsBindingSource.Filter = \ If ComboBox2.Text <> \

Me.OrderDetailsBindingSource.Filter = \订单ID=\ Me.DataGridView2.Refresh() End If

13、在“销售订单管理”中，显示多表信息并在表格显示数据

添加一个新数据源，要求：与恢复好的数据库“sqlzj”连接，选择表“Orders”的所有字段，

表“Employees”的“雇员ID”和“姓名”字段（名+ +姓），表“Customers”的“客户ID”和“公司名”字段，表“Shippers”的“承运商ID”和“承运商名”字段，连接名为“sqlzjCn”，DataSet名为“sqlzjDs”。选择“销售订单管理”的选项卡，要求：“DataGridView2”会显示表“Orders”所有记录，“订单ID”的“ComboBox”控件的显示成员（DisplayMember）为表“Orders”中的“产品ID”字段；“雇员”的“ComboBox”

23

控件的显示成员（DisplayMember）为表“Employees”的“姓名”字段，值成员（ValueMember）为表“Employees”的“雇员ID”字段；“客户”的“ComboBox”控件的显示成员（DisplayMember）为表“Customers”的“公司名”字段，值成员（ValueMember）为表“Customers”的“客户ID”字段；“承运商”的“ComboBox”控件的显示成员（DisplayMember）为表“Shippers”的“承运商名”字段，值成员（ValueMember）为表“Shippers”的“承运商ID”字段；如下图所示。

1、创建视图：添加表Customers、Shippers、Employees、Orders，连接表

输出的字段有：Orders表某些字段(不能输出客户id、承运商id，雇员id)，Customers的公司名、客户id；Shippers的承运商名、承运商id；Employees的姓名,雇员id；（注意姓名列的输出方法），完整的视图vorder命令如下：

SELECT dbo.Orders.订货日期, dbo.Orders.运输日期, dbo.Orders.要货日期, dbo.Orders.运价, dbo.Orders.收货商, dbo.Orders.收货地址, dbo.Orders.运达城市,

dbo.Orders.运达区域, dbo.Orders.收货邮编, dbo.Orders.运达国家, dbo.Shippers.承运商名, dbo.Customers.公司名,

dbo.Employees.姓 + N' ' + dbo.Employees.名 AS 姓名, dbo.Shippers.承运商ID, dbo.Employees.雇员ID, dbo.Customers.客户ID, dbo.Orders.订单ID FROM dbo.Customers INNER JOIN

dbo.Orders ON dbo.Customers.客户ID = dbo.Orders.客户ID INNER JOIN

dbo.Shippers ON dbo.Orders.承运商ID = dbo.Shippers.承运商ID INNER JOIN

dbo.Employees ON dbo.Orders.雇员ID = dbo.Employees.雇员ID

2、 在数据源sqlzjds中添加视图VOrder：数据---显示数据源—右击sqlzjDs—使用向导配臵数

24