模拟考题答案

str = str + \ Else

str = str + \ End If

If TextBox16.Text = \ Then str = str + \ Else

str = str + \ + TextBox16.Text + \ End If

If TextBox18.Text = \ Then str = str + \ Else

str = str + \ + TextBox18.Text + \ End If

If TextBox19.Text = \ Then str = str + \ Else

str = str + \ + TextBox19.Text + \ End If cn.Open()

cmd = New SqlCommand(\产品id,产品名,供货商id,类id,每件数量,单价,discontinued,每件体积,库存量,预订量) values(\ + str + \, cn) dr = cmd.ExecuteReader MsgBox(\添加成功！\)

9、在“产品管理”选项卡，对产品表进行添加（方法2:借助insertcommand）

5. 在“产品管理”的选项卡，进行合适的编程，要求：单击“添加”按钮后，“ComboBox1”

会显示一个新的产品ID值，文本框（TextBox）中的内容清空，如下图所示，库存量和预订量设为“0”，价格设臵为“0.0”，所属大类和供货商设臵为“1”；在相应的文本框（TextBox）中键入新产品的内容后，再按“确定”按钮，则表“Products”会把新记录添加到表。（10分）

17

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

4、 将数据源sqlzjds中的表products到“产品管理”选项卡，删除自动生成的表格对象。

（只保留productsBindingSource和productsTableAdapter对象） 3、补充定义类级变量id

Public Class Form1 Dim sta As String

Dim id As Integer

4、“添加”按钮事件

Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click

TextBox12.Text = \ TextBox13.Text = \ TextBox14.Text = \ TextBox15.Text = \ TextBox16.Text = \ TextBox17.Text = \ TextBox18.Text = \ TextBox19.Text = \

CheckBox1.CheckState = CheckState.Unchecked

ComboBox1.Text = CStr(Me.SqlzjDs.Products.Count + 1) sta = \

5、重置按钮事件 (清空要输入内容的文本框)

Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click

If sta = \ Then TextBox12.Text = \ TextBox13.Text = \ TextBox14.Text = \ TextBox15.Text = \

18

TextBox16.Text = \ TextBox17.Text = \ TextBox18.Text = \ TextBox19.Text = \

CheckBox1.CheckState = CheckState.Unchecked End If

6、取消按钮事件：（单击取消，显示第一条产品记录）

Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click

If sta = \ Then ComboBox1.Text = \

TextBox12.Text = Me.SqlzjDs.Products(0).产品名.ToString TextBox13.Text = Me.SqlzjDs.Products(0).类ID.ToString TextBox14.Text = Me.SqlzjDs.Products(0).供货商ID.ToString TextBox15.Text = Me.SqlzjDs.Products(0).每件数量.ToString TextBox16.Text = Me.SqlzjDs.Products(0).每件体积.ToString TextBox17.Text = Me.SqlzjDs.Products(0).单价.ToString TextBox18.Text = Me.SqlzjDs.Products(0).库存量.ToString TextBox19.Text = Me.SqlzjDs.Products(0).预订量.ToString If Me.SqlzjDs.Products(0).Discontinued = True Then CheckBox1.CheckState = CheckState.Checked Else

CheckBox1.CheckState = CheckState.Unchecked End If sta = \ End If

7、“确定”按钮的事件（添加后的）

Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click

If sta = \ Then

If TextBox12.Text = \ Then MsgBox(\产品名不能为空\) Else

If ComboBox1.Text = \ Then MsgBox(\产品id不能为空\) Else

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

Me.SqlzjDs.Products.AddProductsRow(CStr(ComboBox1.Text), TextBox12.Text, CInt(TextBox14.Text), CInt(TextBox13.Text), TextBox15.Text, CInt(TextBox17.Text), 0, 0, 0, CBool(CheckBox1.CheckState), TextBox16.Text)

'Me.SqlzjDs.Products.AddProductsRow(CStr(ComboBox1.Text), TextBox12.Text,

19

CInt(TextBox14.Text), CInt(TextBox13.Text), TextBox15.Text, CInt(TextBox17.Text), 0, 0, 0, CBool(CheckBox1.CheckState))

Id = CInt(ComboBox1.Text)

Me.ProductsTableAdapter.Update(Me.SqlzjDs.Products) ProductsTableAdapter.Fill(Me.SqlzjDs.Products) ComboBox1.Text = CStr(Me.SqlzjDs.Products.Count) End If End If sta = \ End If

10、在“产品管理”选项卡，对产品表进行编辑

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的属性,新建updateCommand命令，内容为如下：设置updateCommand命令的commandtext内容如下：

（注意：要

修改的字段要根据题目中窗体的具体操作要求来合理设置）

20