模拟考题答案.docx
- 文档编号:17894980
- 上传时间:2023-08-04
- 格式:DOCX
- 页数:61
- 大小:497.84KB
模拟考题答案.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
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 模拟 考题 答案