“销售”数据库中含有两个数据库表“商品信息”和“销售汇总”。对“销售”数据库设计一个表单“bd3”,表单的标题为“商品销售汇总”,表单中有标题为“请选择商品”标签和用于选择“商品编号”的组合框及“查询”和“关闭”两个命令按钮,表单中还有一个表格控件。
表单运行时,用户在组合框中选择“商品编号”,单击“查询”按钮,在表单上的表格控件显示查询该商品的“商品编号”、“商品名称”、“年度”、“数量”和“金额”。
单击“关闭”按钮,关闭表单。
【考点指引】本大题考查的是表单的设计及表格控件和组合框的使用,主要注意表格控件数据源的设置。
【操作步骤】
①选择【文件】→【新建】命令,选择“表单”,单击“新建文件”按钮打开表单设计器,在表单属性窗口中将“Caption”属性值修改为“商品销售汇总”。单击表单控件工具栏上的“标签”控件图标,为表单添加~个标签Label1,单击表单控件工具栏上的“组合框”控件图标,为表单添加一个组合框Com-bol,单击表单控件工具栏上的“命令按钮”控件图标,为表单添加两个命令按钮Command1和Command2,单击表单控件工具栏上的“表格”控件图标,添加一个表格控件Grid1。
②选择标签Label1,在标签属性窗口中将Caption属性值修改为“请选择商品”,分别选择命令按钮,将Command1的Caption属性值修改为“查询”,将Command2的Caption属性值修改为“关闭”,如图90-1所示。双击“关闭”命令按钮,在Click事件中输入代码:ThisForm.Release,用来关闭表单。
③选择表格控件“Grid1”,在表格控件属性窗口中将“ReeordSource”属性值修改为“""”,将“RecordSourceType”属性值修改为“1”。
④选择组合框,在组合框属性窗口中双击“Init Event”,打开Init事件代码编辑窗口,输入以下过程代码:
SELECT*INTO ARRAY aa FROM商品信息
FOR i=1 TO ALEN(aa)/2
ThisForm.Comb01.Addltem(aa(i,1))
NEXT
⑤双击“查询”命令按钮,打开Click事件代码编辑窗口,输入以下过程代码:
SELECT商品信息.商品编号,商品名称,年度,数量,
金额INTO CURSOR tmp FROM商品信息,销售汇总
WHERE商品信息.商品编号=销售汇总.商品编号
AND商品信息.商品编号=ThisForm.Comb01.dis-
playvalue
ThisForm.Grid1.RecordSourceType=1
ThisForm.Grid1.RecordSource="trap"
ThisForm.Grid1.Refresh
⑥选择【表单】→【执行表单】命令,系统首先要求保存该表单文件,在弹出的“另存为”对话框中输入表单文件名 “bd3”,保存在考生文件夹下,然后运行表单。
第1题:
考生文件夹下存在数据库“销售”,其中包含表“购买信息”和表“会员信息”,这两个表存在一对多的联系。对销售数据库建立文件名为myf的表单,其中包含两个表格控件。
第一个表格控件用于显示表“会员信息”的记录,第二个表格控件用于显示与表“会员信息”当前记录对应的“购买信息”表中的记录。
表单中还包含一个标题为“关闭”的命令按钮,单击此按钮退出表单。
第2题:
ec数据库中含有两个数据库表“购买”和“会员”。对ec数据库设计一个表单myf。表单的标题为“会员购买统计”。表单左侧有标题为“请选择会员”标签和用于选择“会员号”的组合框以及“查询”和“退出”两个命令按钮。表单中还有一个表格控件。
表单运行时,用户在组合框中选择会员号,单击“查询”按钮,在表单上的表格控件显示查询该会员的“会员号”、“姓名”和所购买的商品的“总金额”。
单击“关闭”按钮,关闭表单。
第3题:
“ec”数据库中含有“购买”和“会员”两个数据库表。对“ec”数据库设计一个表单“myform”。表单的标题为“会员购买统计”。表单左侧有标题为“请选择会员”标签和用于选择“会员号”的组合框以及“查询”和“退出”两个命令按钮。表单中还有1个表格控件。表单运行时,用户在组合框中选择会员号,单击“查询”按钮,在表单上的表格控件显示查询该会员的“会员号”、“姓名”和所购买的商品的“总金额”。单击“退出”按钮,关闭表单。
表单界面如图所示。
第4题:
“成绩管理”数据库中含有三个数据库表学生、分数和课程。为了对“成绩管理”数据库数据进行查询,设计一个表单my,表单标题为“成绩查询”;表单有“查询”和“关闭”两个命令按钮。
表单运行时,单击“查询”按钮,查询每门课程的最高分,查询结果中含“课程名”和“最高分”字段,结果按课程名升序保存在表myt中。
单击“关闭”按钮,关闭表单。
第5题:
考生文件夹下存在数据库“产品”,其中包含表“零件”和表“产品”,这两个表存在一对多的联系。对数据库建立文件名为“bd3”的表单。
其中包含两个表格控件。第一个表格控件用于显示表“零件”的记录,第二个表格控件用于显示与表“零件”当前记录对应的“产品”表中的记录。
表单中还包含一个标题为“关闭”的命令按钮,要求单击此按钮退出表单。
【考点指引】本大题考查的是表单的设计及表格控件的使用,注意表格控件数据源的设置。
【操作步骤】
①选择【文件】→【打开】命令打开数据库“产品”。
②选择【文件】→【新建】命令,选择“表单”,单击“新建文件”按钮打开表单设计器,单击表单控件工具栏上的“命令按钮”控件图标,为表单添加一个命令按钮Command1;单击表单控件工具栏上的“表格”控件图标,再添加两个表格控件“Grid1”和“Grid2”。
③选择命令按钮,在按钮属性窗口中将命令按钮Command1的Name属性值修改为“emdClose”,将Caption属性值修改为“关闭”。双击“关闭”命令按钮,在Click事件中输入代码:ThisForm.Release,用来关闭表单。
④在表单设计器中,用鼠标右键单击表单空白处,在弹出的快捷菜单中选择“数据环境”命令,打开表单的数据环境,选择数据库“产品”,将数据表文件“产品”和“零件”添加
到数据环境中,如图110-1所示。
⑤选择表格控件“Grid1”,在表格控件属性窗口中将“RecordSource”属性值修改为“零件”,将“RecordSource-Type”属性值修改为“0”,将“ReadOnly”属性值修改为“.T.”;选择表格控件“Grid2”,在表格控件属性窗口中将“ReeordSource”属性值修改为“""”,将“RecordSourceType”属性值修改为“1”。
⑥在表单设计器中,选择“Grid1”,在属性窗口中双击“AfterRowColChange Event”,弹出事件过程代码编辑窗口,输入以下代码:
SELECT产品.*INTO CURSOR tmp FROM产品
WHERE产品{零件编号=ThisForm.Grid1.columns(1).
textl.value
ThisForm.Grid2.RecordSourceType=1
ThisForm.Grid2.RecordSource="tmp"
ThisForm.Grid2.Refresh
⑦选择【表单】→【执行表单】命令,系统首先要求保存该表单文件,在弹出的“另存为”对话框中输入表单文件名“bd3”,保存在考生文件夹下,然后运行表单。