VF简单应用Word格式.docx
- 文档编号:15175851
- 上传时间:2022-10-28
- 格式:DOCX
- 页数:61
- 大小:53.29KB
VF简单应用Word格式.docx
《VF简单应用Word格式.docx》由会员分享,可在线阅读,更多相关《VF简单应用Word格式.docx(61页珍藏版)》请在冰豆网上搜索。
DOmenu_quick.mpr"
。
步骤4:
保存并运行表单。
【小技巧】也可以通过以下方法获得查询设计器中的SQL语句:
在查询设计器中右键单击空白处,在弹出的快捷菜单中单击"
查看SQL"
命令。
2
(1)
打开表单myform4-4,并按照题目的要求修改表单的标题。
在表单设计器窗口中,按照题目的要求修改文本的相关属性。
在表单中添加命令按钮,修改其Caption属性为"
关闭"
,并为其Click事件添加代码"
ThisForm.Release"
按照题目的要求新建一个名为"
myform4"
的表单。
编写两个命令按钮的Click事件代码。
******"
查询"
按钮的Click事件代码******
SELECTAuthors.作者姓名,Authors.所在城市;
FROMauthors,books;
WHEREAuthors.作者编号=Books.作者编号;
GROUPBYAuthors.作者姓名HAVINGCOUNT(Books.图书编号)>
=3;
ORDERBYAuthors.作者姓名;
INTOTABLENEW_VIEW4
************************************
退出"
THISFORM.RELEASE
保存表单为myform4并运行。
【小技巧】也可以先按照题目的要求通过查询设计器建立查询,然后打开查询设计器工具栏中的工具按钮将其中的SQL语句复制到指定的程序文件中。
3
(1)
按照题目的要求,通过查询设计器新建查询,或者在命令窗口输入以下命令。
***************************************
SELECT项目信息.项目号,项目信息.项目名,零件信息.零件号,;
零件信息.零件名称;
FROM使用零件情况!
零件信息INNERJOIN使用零件情况!
使用零件;
INNERJOIN使用零件情况!
项目信息;
ON使用零件.项目号=项目信息.项目号;
ON零件信息.零件号=使用零件.零件号;
ORDERBY项目信息.项目号DESC,零件信息.零件号;
INTOTABLEitem_temp.dbf
按照题目的要求新建文本文件item.txt,并将满足条件的SQL语句粘贴到文本文件中。
在命令窗口输入"
DOitem.txt"
并按回车键运行查询。
打开数据库设计器,按照题目的要求新建本地视图。
注意,将表全部添加到视图中时,按默认联接即可。
按照题目的要求设计视图。
按照题目的要求保存视图。
4
(1)
打开表单设计器,将题目要求的两个表添加到其数据环境中。
然后关闭数据环境设计器。
按照题目的要求,在属性窗口中修改控件的相关属性。
双击组合框,按照题目的要求修改组合框的相关方法。
***********程序提供的代码***********
*下面代码的功能是读取所选职员的职员号,然后计算该职员所签订单的平均金额,并显示在文本框内。
*修改所有***FOUND***下面的一条语句。
*不能修改其他语句。
不能增加语句,也不能删除语句。
dimea(1,1)
a(1,1)=0
m1=employee.职员号
selectavg(金额)fromorderswhere职员号=m1intoarraya
m2=a(1,1)
***FOUND***
text1.value=m2
**********************************
其中,需将命令语句"
Text1.Value=m2"
改为"
ThisForm.Text1.Value=m2"
新建一个查询,将表employee和orders添加到查询中。
按照题目的要求为查询添加相应的字段。
按照题目的要求对指定的字段进行排序,并定义查询去向为表"
tableone"
最后将查询保存为"
queryone.qpr"
,并单击常用工具栏中的按钮运行查询。
5
(1)
新建查询,为查询添加order、orderitem和goods三个表。
按题目要求为查询添加字段。
在"
筛选"
选项卡中,为查询添加筛选条件。
排序依据"
选项卡中按要求设置排序条件。
步骤5:
为查询设置查询去向。
步骤6:
以"
为文件名保存查询,最后单击常用工具栏中的"
运行"
按钮运行查询。
将菜单设置为"
顶层表单"
在命令窗口执行命令,新建表单form_menu,修改表单的ShowWindow属性为"
2-作为顶层表单"
双击表单空白处,分别输入表单Init和Destroy事件。
************Init**************
DOmenu_lin.mprWithThis,"
abc"
*****************************
***********destroy************
ReleaseMenuabcExtended
6
(1)
打开考生文件夹下的程序文件,并按题目的要求进行改错,修改完成后运行程序文件。
SELECT零件名称FROM零件信息WHERE零件号=;
(SELECT零件号FROM使用零件;
GROUPBY项目号HAVINGCOUNT(项目号)=3);
ORDERBY零件名称;
INTOFILEresults
其中,第1行中的"
="
需改为"
IN"
;
第3行中的"
GROUPBY项目号"
GROUPBY零件号"
第5行中的"
INTOFILE"
TOFILE"
打开考生文件夹下的"
项目信息"
表,通过一对多报表向导创建一个报表。
选择表并添加相应的字段到选定字段中。
按题目要求选择排序并设置报表样式。
步骤6-完成"
中输入报表标题。
输入报表文件名REPORT。
7
(1)
打开表单formone,在表单的空白处单击右键,将Orders表添加到表单的数据环境中。
修改列表框和表格的属性。
双击"
显示"
按钮,修改其Click事件代码如下。
************程序提供的************
*下面代码的功能是根据用户对列表框的选择结果构建字段列表,然后进一步构建select语句并据此为表格的相关属性设值。
*修改所有***FOUND***下面的一条语句。
*不能修改其他语句。
s="
"
f=.T.
***************FOUND***************
FORi=1TOthisform.List1.ColumnCount
IFthisform.List1.Selected(i)
IFf
s=thisform.List1.value
f=.F.
ELSE
s=s+thisform.List1.value
ENDIF
ENDFOR
st="
select&
sfromordersintocursortmp"
thisform.Grid1.RecordSource=st
******************************
错误1:
修改为:
FORi=1TOthisform.List1.ListCount
错误2:
s=thisform.List1.value
s=thisform.List1.List(i)
错误3:
s=s+thisform.List1.value
s=s+"
"
+thisform.List1.List(i)
保存并运行表单查看结果。
单击常用工具栏中的"
新建"
按钮,新建查询,将表"
orders"
、"
employee"
和"
customer"
添加到查询中。
分别选择字段orders.订单号、orders.签订日期、orders.金额、employee.姓名AS签订者、customer.客户名,添加到可用字段中。
在筛选选项卡中设置筛选条件为"
orders.签订日期>
={^2001-05-01}"
在排序选项卡中指定排序选项为降序,添加字段orders.签订日期,orders.金额。
选择系统菜单中的查询→查询去向→表,输入表名为"
保存查询,输入查询名"
queryone"
,在常用工具栏中单击运行按钮,运行该查询。
8
(1)
打开考生文件夹下的程序文件temp.prg,并按题目的要求进行改错,修改完成后运行程序文件,如下所示。
&
下句只有一处有错误
SELECT课程号FROM课程表WHERE课程名="
数据结构"
TOARRAYa
下句有错误
OPEN教师表
STORE0TOsum
下句两处有错误
SCANOF课程号=aOR工资>
=4000
sum+1
EN
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VF 简单 应用