模拟考题答案.docx
《模拟考题答案.docx》由会员分享，可在线阅读，更多相关《模拟考题答案.docx（61页珍藏版）》请在冰点文库上搜索。
模拟考题答案
考前复习注意事项：
1、还原数据库时一定要还原sql2005c2.bak文件，还原的名字为SQLZJ，登陆SQL2005时的服务器名为：
localhost。
2、对照着每个题的视频，先一个一个题的做，最后再完整的做一次模拟题（共10题）
3、前三个选项卡的题目，每个选项卡中一定要最先做在各文本框中显示数据的那个题。
4、考试完成后一定要按要求备份数据库，内含题目至少30分。
5、有导航条的那个考题，需保证它的数据表要最先从数据源中拖出来。
（只有第一次拖出来的数据才会产生导航条）
目录
1、利用数据源方法，在“客户信息查询”选项卡，显示客户表的相关信息2
2、用DataReader方法，在“客户信息查询”选项卡，显示客户表的相关信息2
3、在“客户信息查询”选项卡，在表格中显示客户信息4
4、在“客户信息查询”选项卡，多个文本框进行模糊查询（方法1:
一次完成设置）5
4’’、在“客户信息查询”选项卡，多个文本框进行模糊查询（方法2:
逐个设置）8
5、在“客户信息查询”的表格中删除一条记录11
6、用DataReader方法，在“产品管理”选项卡中显示产品信息12
7、利用数据源方法，在“产品管理”选项卡中显示产品信息14
8、在“产品管理”的选项卡，对产品表进行添加（方法1:
直接利用添加按钮编程）15
9、在“产品管理”选项卡，对产品表进行添加（方法2:
借助insertcommand）17
10、在“产品管理”选项卡，对产品表进行编辑20
11、在“产品管理”选项卡，对产品表进行删除22
12、在“销售订单管理”选项卡，用表格显示数据信息23
13、在“销售订单管理”中，显示多表信息并在表格显示数据23
14、在“销售订单管理”的选项卡中，进行“添加”操作25
15、在“销售订单管理”中，对表格中的数据进行“删除”操作29
16、在“库存管理”选项卡，创建“按类查询”的存储过程30
17、在“库存管理”选项卡，按类查询（用报表显示查询）31
18、在“库存管理”的选项卡，按供应商查询（用报表显示查询）33
19、在“库存管理”的选项卡中，“按产品查询”34
20、在“产品管理”选项卡，创建“相关销售情况”的视图V136
21、在“产品管理”选项卡，创建“相关销售情况”带参数（产品id，起始日期，终止日期）的存储过程：
（以要货日期为准）37
22、在“产品管理”中，查询产品的“相关销售情况”（方法1:
直接利用视图v1）38
23、在“产品管理”中，查询产品的“相关销售情况”（方法2:
利用视图和存储过程）40
24、在“产品管理”选项卡，利用视图直接查询产品的“相关库存情况”42
1、利用数据源方法，在“客户信息查询”选项卡，显示客户表的相关信息
解题步骤：
1、在数据源sqlzjds中添加表customers：
数据---显示数据源—右击sqlzjDs—使用向导配置数据集….选择数据库表对象customers---完成。
（注意：
如果没有数据集sqlzjds，就建立一个连接SqlzjCn下的含有表customers的数据集sqlzjds，但SqlzjCn连接控件在整个考试过程中只能建立一次）
2、拖数据源sqlzjds中的customers到“客户信息查询”选项卡，删除自动生成的表格对象，保留导航条对象。
（只保留customersBindingSource和customersTableAdapter对象）
1、绑定窗体上的各个控件：
文本框Textbox的databindings的“Text”属性设为“customersBindingSource–相应字段”；
4、运行看结果。
2、用DataReader方法，在“客户信息查询”选项卡，显示客户表的相关信息
1.打开考试目录下的项目“sqlzj2005.vbproj”，选择“”的选项卡，要求：
用SqlDataReader将数据库“sqlzj”中表“Customers”的第一条记录显示在相应的TextBox中，如下图所示。
（10分）
操作步骤：
1、引入命名空间
ImportsSystem.Data
ImportsSystem.Data.SqlClient
2、补充定义如下类级（PublicClass）变量：
（如果前面已经定义过了，这里就不能重复定义了）
DimcnAsSqlConnection
DimcmdAsSqlCommand
DimdrAsSqlDataReader
2、在form1_Load中补充如下代码段
PrivateSubform1_Load（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesMyBase.Load
cn=NewSqlConnection（"datasource=.;initialcatalog=sqlzj;integratedsecurity=true"）
cmd=NewSqlCommand（"selecttop1*fromcustomers",cn）
cn.Open（）
dr=cmd.ExecuteReader
Ifdr.IsClosed=FalseThen
dr.Read（）
TextBox1.Text=dr.Item（"客户ID"）.ToString
TextBox2.Text=dr.Item（"公司名"）.ToString
TextBox3.Text=dr.Item（"地址"）.ToString
TextBox4.Text=dr.Item（"城市"）.ToString
TextBox5.Text=dr.Item（"区域"）.ToString
TextBox6.Text=dr.Item（"国家"）.ToString
TextBox7.Text=dr.Item（"邮编"）.ToString
TextBox8.Text=dr.Item（"电话"）.ToString
TextBox9.Text=dr.Item（"传真"）.ToString
TextBox10.Text=dr.Item（"联系人"）.ToString
TextBox11.Text=dr.Item（"联系人职务"）.ToString
EndIf
dr.Close（）
cn.Close（）
3、在“客户信息查询”选项卡，在表格中显示客户信息
2.添加一个新数据源，要求：
与恢复好的数据库“sqlzj”连接，选择表“Customers”，连接名为“sqlzjCn”，DataSet名为“sqlzjDs”；选择“客户信息查询”的选项卡，从刚建的数据连接中，将表“Customers”拖到该选项卡的空白处，如下图
（1）所示；运行后应该如下图
（2）所示：
（10分）
（1）
（2）
操作步骤：
1、添加一个新数据源sqlzjDs：
数据---添加新数据源---数据库---microsoftSQL---新建连接（服务器名：
本机形式：
localhost；数据库选择：
SQLZJ）---是，将连接保存为：
sqlzjCn---选择数据库对象表Customers，输入DataSet名称为：
sqlzjDs---完成。
注意：
新建连接在整个考试过程中只有一次，如果前面的题目已经做过这一步了，在这里就直接选择sqlzjCn这个连接就可以了，后面的选择数据库对象的操作是一样的。
2、数据---显示数据源---从数据源sqlzjDs中拖表Customers到设计窗体中。
（设计窗体中自动出现导航条、表格Customersdataview等控件。
）
3、调整导航条的位置，不要覆盖窗体的运行标签；调整表格的位置和大小到合适程度。
（注意：
因为导航条只有在第一次从数据源中拖表的时候才产生，所以做本题时一定要保证是第一次拖数据源中的表。
）
4、运行调试。
表格中自动显示出Customers表的内容。
4、在“客户信息查询”选项卡，多个文本框进行模糊查询（方法1:
一次完成设置）
在“客户信息查询”的选项卡，进行合适的编程，要求：
单击“重置”按钮后，文本框（TextBox）中的内容清空；在任意的文本框（TextBox）中键入要查询的内容，再按“查询”按钮，则“CustomersDataGridView”会把查询结果显示出来，如下图所示。
注意：
要满足多条件、模糊查询的要求。
（20分）
解题步骤：
PublicClassForm1
DimstrAsString
1.首先在“Form1.vb”的设计窗口模式双击“重置”按钮，进行如下所示的编程：
PrivateSubButton2_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton2.Click
Me.TextBox1.Text=""
Me.TextBox2.Text=""
Me.TextBox10.Text=""
Me.TextBox11.Text=""
Me.TextBox3.Text=""
Me.TextBox4.Text=""
Me.TextBox5.Text=""
Me.TextBox7.Text=""
Me.TextBox6.Text=""
Me.TextBox8.Text=""
Me.TextBox9.Text=""
Str=""
EndSub
2.然后在“Form1.vb”的设计窗口模式双击“查询”按钮，进行如下所示的编程：
PrivateSubButton1_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton1.Click
IfTextBox1.Text<>""Then
str="客户IDlike'"+TextBox1.Text+"%'"
EndIf
IfTextBox2.Text<>""Then
Ifstr=""Then
str="公司名like'"+TextBox2.Text+"%'"
Else
str=str+"and公司名like'"+TextBox2.Text+"%'"
EndIf
EndIf
IfTextBox3.Text<>""Then
Ifstr=""Then
str="地址like'"+TextBox3.Text+"%'"
Else
str=str+"and地址like'"+TextBox3.Text+"%'"
EndIf
EndIf
IfTextBox4.Text<>""Then
Ifstr=""Then
str="城市like'"+TextBox4.Text+"%'"
Else
str=str+"and城市like'"+TextBox4.Text+"%'"
EndIf
EndIf
IfTextBox5.Text<>""Then
Ifstr=""Then
str="区域like'"+TextBox5.Text+"%'"
Else
str=str+"and区域like'"+TextBox5.Text+"%'"
EndIf
EndIf
IfTextBox6.Text<>""Then
Ifstr=""Then
str="国家like'"+TextBox6.Text+"%'"
Else
str=str+"and国家like'"+TextBox6.Text+"%'"
EndIf
EndIf
IfTextBox7.Text<>""Then
Ifstr=""Then
str="邮编like'"+TextBox7.Text+"%'"
Else
str=str+"and邮编like'"+TextBox7.Text+"%'"
EndIf
EndIf
IfTextBox8.Text<>""Then
Ifstr=""Then
str="电话like'"+TextBox8.Text+"%'"
Else
str=str+"and电话like'"+TextBox8.Text+"%'"
EndIf
EndIf
IfTextBox9.Text<>""Then
Ifstr=""Then
str="传真like'"+TextBox9.Text+"%'"
Else
str=str+"and传真like'"+TextBox9.Text+"%'"
EndIf
EndIf
IfTextBox10.Text<>""Then
Ifstr=""Then
str="联系人like'"+TextBox10.Text+"%'"
Else
str=str+"and联系人like'"+TextBox10.Text+"%'"
EndIf
EndIf
IfTextBox11.Text<>""Then
Ifstr=""Then
str="联系人职务like'"+TextBox11.Text+"%'"
Else
str=str+"and联系人职务like'"+TextBox11.Text+"%'"
EndIf
EndIf
Me.CustomersBindingSource.Filter=str
Me.CustomersDataGridView.Refresh（）
Str=""
注意：
记录的字段和相应的文本框要仔细地一一对应，千万不要写错；使用“like”命令可以达到模糊查询的要求。
4’’、在“客户信息查询”选项卡，多个文本框进行模糊查询（方法2:
逐个设置）
3.在“客户信息查询”的选项卡，进行合适的编程，要求：
单击“重置”按钮后，文本框（TextBox）中的内容清空；在任意的文本框（TextBox）中键入要查询的内容，再按“查询”按钮，则“CustomersDataGridView”会把查询结果显示出来，如下图所示。
注意：
要满足多条件、模糊查询的要求。
（20分）
操作步骤：
（做本题的前提是：
客户信息已经在每个文本框中显示出来了！
窗口中的表格也已经正常显示数据了！
）
1、补充定义类级变量：
PublicClassForm1
DimstrAsString
2、重置按钮的事件代码如下：
PrivateSubButton2_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton2.Click
TextBox1.Text=""
TextBox2.Text=""
TextBox3.Text=""
TextBox4.Text=""
TextBox5.Text=""
TextBox6.Text=""
TextBox7.Text=""
TextBox8.Text=""
TextBox9.Text=""
TextBox10.Text=""
TextBox11.Text=""
3、先设置str初始为空：
PrivateSubTabPage1_Enter（ByValsenderAsObject,ByValeAsSystem.EventArgs）HandlesTabPage1.Enter
str=""
EndSub
3、设置每个可以输入条件的文本框：
PrivateSubTextBox1_TextChanged（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesTextBox1.TextChanged
Ifstr=""Then
str="客户idlike'"&TextBox1.Text&"%'"
Else
str=str&"and客户idlike'"&TextBox1.Text&"%'"
EndIf
PrivateSubTextBox2_TextChanged（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesTextBox2.TextChanged
Ifstr=""Then
str="公司名like'"&TextBox2.Text&"%'"
Else
str=str&"and公司名like'"&TextBox2.Text&"%'"
EndIf
PrivateSubTextBox3_TextChanged（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesTextBox3.TextChanged
Ifstr=""Then
str="地址like'"&TextBox3.Text&"%'"
Else
str=str&"and地址like'"&TextBox3.Text&"%'"
EndIf
PrivateSubTextBox4_TextChanged（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesTextBox4.TextChanged
Ifstr=""Then
str="城市like'"&TextBox4.Text&"%'"
Else
str=str&"and城市like'"&TextBox4.Text&"%'"
EndIf
PrivateSubTextBox5_TextChanged（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesTextBox5.TextChanged
Ifstr=""Then
str="区域like'"&TextBox5.Text&"%'"
Else
str=str&"and区域like'"&TextBox5.Text&"%'"
EndIf
PrivateSubTextBox6_TextChanged（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesTextBox6.TextChanged
Ifstr=""Then
str="国家like'"&TextBox6.Text&"%'"
Else
str=str&"and国家like'"&TextBox6.Text&"%'"
EndIf
PrivateSubTextBox7_TextChanged（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesTextBox7.TextChanged
Ifstr=""Then
str="邮编like'"&TextBox7.Text&"%'"
Else
str=str&"and邮编like'"&TextBox7.Text&"%'"
EndIf
PrivateSubTextBox8_TextChanged（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesTextBox8.TextChanged
Ifstr=""Then
str="电话like'"&TextBox8.Text&"%'"
Else
str=str&"and电话like'"&TextBox8.Text&"%'"
EndIf
PrivateSubTextBox9_TextChanged（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesTextBox9.TextChanged
Ifstr=""Then
str="传真like'"&TextBox9.Text&"%'"
Else
str=str&"and传真like'"&TextBox9.Text&"%'"
EndIf
PrivateSubTextBox10_TextChanged（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesTextBox10.TextChanged
Ifstr=""Then
str="联系人like'"&TextBox10.Text&"%'"
Else
str=str&"and联系人like'"&TextBox10.Text&"%'"
EndIf
PrivateSubTextBox11_TextChanged（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesTextBox11.TextChanged
Ifstr=""Then
str="联系人职务like'"&TextBox11.Text&"%'"
Else
str=str&"and联系人职务like'"&TextBox11.Text&"%'"
EndIf
4、查询按钮代码：
PrivateSubButton1_Click（ByValsenderAsSystem.Object,ByValeA
升级会员 