vf125每套图的精华考试必备.docx
- 文档编号:12571085
- 上传时间:2023-04-20
- 格式:DOCX
- 页数:27
- 大小:26.73KB
vf125每套图的精华考试必备.docx
《vf125每套图的精华考试必备.docx》由会员分享,可在线阅读,更多相关《vf125每套图的精华考试必备.docx(27页珍藏版)》请在冰豆网上搜索。
vf125每套图的精华考试必备
第一套
列出所有与红颜色零件相关的信息
SELECT供应.供应商号,供应.工程号,供应.数量;
FROM零件,供应WHERE供应.零件号=零件.零件号;
AND零件.颜色="红";
ORDERBY供应.数量desc;
INTODBFsupply_temp
选择RightClick,输入代码:
domenu_quick.mpr
设计一个名为mysupply的表单
双击"查询"命令按钮,并输入如下代码:
Select零件.零件名,零件.颜色,零件.重量;
From供应,零件;
Where零件.零件号=供应.零件号and供应.工程号=thisform.text1.value;
OrderBy零件名;
Intodbfpp
ThisForm.Grid1.RecordSource="pp"
第二套
打开表单MYFORM4-4
SELECT作者姓名,所在城市;
FROMAUTHORS;
WHERE作者编号IN;
(SELECT作者编号FROMBOOKSGROUPBY作者编号HAVINGCOUNT(*)>=3);
ORDERBY作者姓名;
INTOTABLENEW_VIEW4
将BOOKS表中所有书名中含有“计算机”
1、SELECT*FROMBOOKSWHERE书名LIKE"%计算机%"INTOTABLEBOOKS_BAK
2、UPDATEBOOKS_BAKSET价格=价格*(1-0.05)
3、SELECTTOP1Books_bak.出版单位,avg(books_bak.价格)as均价;
FROMbooks_bak;
GROUPBYBooks_bak.出版单位;
HAVING均价>=25;
ORDERBY2;
INTOTABLEnew_table4.dbf
第三套
查询项目的项目号,项目名,和项目使用的零件号、零件名称
SELECT项目信息.项目号,项目信息.项目名,零件信息.零件号,;
零件信息.零件名称;
FROM使用零件情况!
零件信息INNERJOIN使用零件情况!
使用零件;
INNERJOIN使用零件情况!
项目信息;
ON使用零件.项目号=项目信息.项目号;
ON零件信息.零件号=使用零件.零件号;
ORDERBY项目信息.项目号DESC,零件信息.零件号;
INTOTABLEitem_temp.dbf
设计一个表单名和文件名均为foem_item的表单S1S2S3
双击表单空白处,在表单的Init事件中输入如下代码:
Publica(3)
A
(1)="s1"
A
(2)="s2"
A(3)="s3"
"统计"按钮的Click事件代码如下:
x=allt(bo1.value)
SELECTSUM(使用零件.数量*零件信息.单价)asje;
FROM使用零件情况!
使用零件INNERJOIN使用零件情况!
零件信息;
ON使用零件.零件号=零件信息.零件号;
WHERE使用零件.项目号=xintoarrayb
thisform.text1.value=allt(str(b[1]))
"退出"按钮的Click事件代码如下:
thisform.release
第四套
有表单文件formonescx只读
组合框的Style属性为"2-下拉列表框"、RowSourceType属性为"6-字段"、RowSource属性为"employee.姓名";设置文本框Text1的ReadOnly属性为".T.-真"。
步骤3:
双击组合框,在代码编辑器中将语句"Text1.Value=m2"改为"ThisForm.Text1.Value=m2"
创建一个名为mymenu的下拉菜单帮助子菜单之前插入一个考试子菜单
选择"统计"行,单击该行中的"创建"按钮,在弹出的窗口中输入如下代码:
SELECTEmployee.组别,Employee.姓名AS负责人,sum(orders.金额)as合计;
FROMemployee,orders;
WHEREEmployee.职员号=Orders.职员号;
ANDEmployee.职务="组长";
GROUPBYEmployee.组别;
ORDERBY3DESC;
INTOTABLEtabletwo.dbf
步骤4:
选择"返回"行,,单击该行中的"创建"按钮,在弹出的窗口中输入如下代码:
SETSYSMENUTODEFAULT
第五套
田亮和顶层
SELECTBook.书名,Book.作者,Book.价格;
FROMbook,loans,borrows;
WHERELoans.借书证号=Borrows.借书证号;
ANDBook.图书登记号=Loans.图书登记号;
ANDBorrows.姓名="田亮";
ORDERBYBook.价格DESC;
INTOTABLEbook_temp.dbf
选在"显示"菜单下的"常规选项"命令,在"常规选项"对话框中选择"顶层表单"复选框。
在命令窗口输入命令createformform_menu,新建表单form_menu,设置表单的ShowWindow属性为"2-作为顶层表单"
步骤3:
双击表单空白处,打开代码编辑窗口,选择表单对象的Init事件,输入以下代码:
DOmenu_lin.mprWithThis,"abc"
再选择表单对象的Destroy事件,输入以下代码:
ReleaseMenuabcExtended
清华北航科学
组合框的RowSourceType属性为"1-值"、Style属性为"2-下拉式列表框"、RowSource属性为"清华,北航,科学",
"统计"按钮的Click事件代码如下:
SELECTCOUNT(*)FROMBOOK;
WHERE出版社=THISFORM.COMBO1.VALUE;
INTOARRAYTEMP
THISFORM.TEXT1.VALUE=TEMP
(1)
第六套
P7pn71020
INSERTINTO零件信息VALUES("p7","PN7",1020)
DELEFROM零件信息WHERE单价<600
UPDATE零件信息SET单价=1090WHERE零件号="p4"
Modil.prg程序文件
第1行中的"="需改为"IN";第3行中的"GROUPBY项目号"需改为"GROUPBY零件号";第5行中的"INTOFILE"需改为"TOFILE"。
双击命令按钮,编写其Click事件代码如下:
x=thisform.text1.value
a="SELECT零件信息.零件号,零件信息.零件名称,零件信息.单价,使用零件.数量;
FROM零件信息,使用零件;
WHERE零件信息.零件号=使用零件.零件号and使用零件.项目号=x;
ORDERBY零件信息.零件号INTOTABLE"+x
&a
表格控件的RecordSourceType属性为"3-查询"、RecordSource属性为"chaxun",
第七套
修改显示的click事件代码
MultiSelect属性为".T.-真",定义允许多重选择
错误1:
FORi=1TOthisform.List1.ColumnCount
修改为:
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)
创建一个顶层表单myform。
Scx
将表单的ShowWindow属性设置为"2-作为顶层表单",然后设置其Caption属性值为"考试"。
步骤3:
双击表单空白处,编写表单的Init事件代码:
DOmymenu.mprWITHTHIS,"myform"
******"统计"菜单中的命令语句******
SELECTCustomer.客户号,Customer.客户名,sum(orders.金额)as合计;
FROMcustomer,orders;
WHERECustomer.客户号=Orders.客户号;
GROUPBYCustomer.客户号;
ORDERBY3DESC;
INTOTABLEtabletwo.dbf
第八套10987654321
ALTERTABLE课程表ADDUNIQUE课程号TAGtemp
DOWHILEi>=1
修改并执行程序temp
错误1:
将TO改为INTO。
错误2:
将OPEN改为USE。
错误3:
将SCANOF改为SCANFOR。
错误4:
将OR改为AND。
错误5:
将sum+1改为sum=sum+1。
大于等于小于300040005000
:
双击表单空白处,编写表单的load事件代码:
********表单的load事件代码*********
publica(3)
a
(1)="3000"
a
(2)="4000"
a(3)="5000"
双击命令按钮,分别编写"生成"和"退出"按钮的Click事件代码。
******"生成"按钮的Click事件代码*******
x=val(bo1.value)
ifthisform.optiongroup1.value=1
sele*from教师表where工资>=xorderby工资desc,姓名intotablesalary
else
sele*from教师表where工资 endif 第九套 用sql语句建立索引99035001 ALTERTABLEstudentADDUNIQUE学号TAG学号 给定表单modi2.scx修改 错误1: 改为STORE0TOx,s1,s2,s3。 错误2: 改为x=val(thisform.text1.value)。 错误3: 改为ifmod(x,3)=0。 Zonghe的表单文件 双击"确定"命令按钮,完善其Click事件代码如下。 ********"确定"按钮的Click事件代码********* SELECTStudent.姓名,Course.课程名称,Score.考试成绩; FROMstudentINNERJOINscore; INNERJOINcourse; ONScore.课程编号=Course.课程编号; ONStudent.学号=Score.学号; where&cn; ORDERBYCourse.课程名称,Score.考试成绩DESC; INTOTABLEzonghe.dbf 第十套 在SCORE_MANAGER数据库中查询学生和2003年的年龄 SELECT姓名,2003-Year(出生日期)as年龄FROMstudentINTOTABLEnew_table1.dbf 在"退出"的结果中选择"命令",并在后面的框中输入: SETSYSMENUTODEFAULT 三个数据库studentsccore1course 表单的Caption属性为"成绩查询",标签控件的Caption属性为"输入学号",Command1的Caption属性为"查询",Command2的Caption属性为"退出";设置表格的ColumnCount属性为"2",RecordSourceType属性为"0-表",第1列的Caption属性为"课程名",第2列的Caption属性为"成绩" : 双击命令按钮,编写命令按钮的Click事件代码。 ******"查询"按钮的Click事件代码****** SELECTcourse.课程名,score1.成绩; FROMcourse,score1; WHEREcourse.课程号=score1.课程号ANDscore1.学号=ThisForm.Text1.text; INTOTABLEcoruse_cursor IFRECC()=0 MESSAGEBOX("学号不存在,请重新输入学号") ELSE ThisForm.Grid1.RecordSource="coruse_cursor" ThisForm.Grid1.refresh ENDIF 第十一套 用sql语句从rate_exchange表中提取外币名称 ********one.txt中输入的代码******** SELECT外币名称,现钞买入价,卖出价; FROMrate_exchange; INTOTABLErate_ex.dbf ********two.txt中输入的代码********* UpdateRate_exchangeset卖出价=829.01where外币名称='美元' 计时器 设置标签的Alignment属性为"2-中央" ******"暂停"按钮的Click事件代码****** ThisForm.Timer1.Interval=0 ************************************ ******"继续"按钮的Click事件代码***** ThisForm.Timer1.Interval=500 *********************************** ******"退出"按钮的Click事件代码***** ThisForm.Release *********************************** ******"计时器"的timer事件代码******* ThisForm.Label1.Caption=time() 第十二套 数据库college SELECT*; FROMcollege! 教师表; WHERE教师表.工资>4500; ORDERBY教师表.职工号; TOFILEone.txt 修改four程序学院表教师表信息管理 第一处: WHILE改为WHERE。 第二处: OPEN改为USE。 第三处: WHERE改为FOR。 第四处: 填入num=num+1。 Oneform表单文件平均工资总工资 x=bo1.value ifthisform.optiongroup1.value=1 SELECT学院表.系名,学院表.系号,avg(教师表.工资)as平均工资; FROMcollege! 学院表INNERJOINcollege! 教师表; ON学院表.系号=教师表.系号; WHERE学院表.系名=x; GROUPBY学院表.系号; INTOTABLEsalary.dbf else SELECT学院表.系名,学院表.系号,sum(教师表.工资)as总工资; FROMcollege! 学院表INNERJOINcollege! 教师表; ON学院表.系号=教师表.系号; WHERE学院表.系名=x; GROUPBY学院表.系号; INTOTABLEsalary.dbf Endif 第十三套 林诗音持有的所有外币名称 ********rate.txt文件中的代码********* SELECTRate_exchange.外币名称,Currency_sl.持有数量; FROMcurrency_sl,rate_exchange; WHERECurrency_sl.外币代码=Rate_exchange.外币代码; ANDCurrency_sl.姓名="林诗因"; ORDERBYCurrency_sl.持有数量; INTOTABLErate_temp.dbf 陆小平currency_form ******查询按钮的Click事件代码******** select外币名称,现钞买入价*持有数量as人民币数量; fromrate_exchange,currency_sl; whererate_exchange.外币代码=currency_sl.外币代码andcurrency_sl.姓名=thisform.text1.value; orderby人民币数量desc; intodbfdbfa thisform.grid1.recordsource="dbfa" 第十四套 宾馆数据库 (4)单击工具栏中的"新建"按钮,建立一个程序文件,输入如下代码: SELECT客户号,身份证,姓名,工作单位FROM客户WHERE性别="男"INTOTABLETABA.DBF 修改宾馆数据库 第3行改为: FROM客户,入住WHERE客户.客户号=入住.客户号; 第5行改为: (SELECT入住日期; 第7行改为: WHERE客户.客户号=入住.客户号AND姓名="姚小敏"); 第8行改为: INTOTABLETABC : 双击"查询"按钮,为"查询"命令按钮的Click事件编写程序代码: 打开数据库宾馆 ******"查询"按钮的Click事件代码******* SETCENTURYON SETDATETOYMD SELECT客户.客户号,客户.身份证,客户.姓名,客户.工作单位,客房.客房号,房价.类型名,房价.价格; FROM客户,房价,入住,客房; WHERE客户.客户号=入住.客户号; AND客房.客房号=入住.客房号; AND房价.类型号=客房.类型号; AND入住.退房日期>=ctod(ThisForm.Text1.value); ORDERBY房价.价格DESC; INTOTABLEtabd 第十五套 表单one两个图 ThisForm.Text1.Value=year(date()) 在"表单"菜单中选择"新建方法程序"命令,新建一个名为test的方法,在属性窗口中双击此方法,在弹出的窗口中编写用户自定义过程代码: ThisForm.Command1.Enabled=.f. 在表单设计器环境下双击"测试"命令按钮,编写Click事件代码: ThisForm.Test。 在命令窗口输入命令: altertable教师表alter职工号setcheckLEFT(职工号,3)="110" 课程管理数据库建立视图salary CREATEsqlVIEWsalaryASSELECT教师表.系号,AVG(教师表.工资)AS平均工资FROM教师表; GROUPBY教师表.系号ORDERBY2DESC 步骤2: 修改程序中的错误如下。 错误1: 将"WHILE"改为"DOWHILE"。 错误2: 将"NEXT"改为"SKIP"。 错误3: 将"CASE"改为"IF"。 生成表 双击"生成表"按钮,为"生成表"命令按钮编写Click事件代码: *****"生成表"按钮的Click事件代码***** a=ThisForm.Check1.Value b=ThisForm.Check2.Value c=ThisForm.Optiongroup1.Option1.Value d=ThisForm.Optiongroup1.Option2.Value ifa=1andb=1 ifc=1 select职工号,姓名,系名,工资,课程号from教师表,学院表; where教师表.系号=学院表.系号; orderby职工号; intotabletwo.dbf else ifd=1 select职工号,姓名,系名,工资,课程号from教师表,学院表; where教师表.系号=学院表.系号; orderby职工号desc; intotabletwo.dbf endif endif endif ifa=1andb=0 ifc=1 select职工号,姓名,系名,课程号from教师表,学院表; where教师表.系号=学院表.系号; orderby职工号; intotableone_x.dbf else ifd=1 select职工号,姓名,系名,课程号from教师表,学院表; where教师表.系号=学院表.系号; orderby职工号desc; intotableone_x.dbf endif endif endif ifa=0andb=1 ifc=1 select职工号,姓名,工资,课程号from教师表,学院表; where教师表.系号=学院表.系号; orderby职工号; intotableone_xx.dbf else ifd=1 select职工号,姓名,工资,课程号from教师表,学院表; where教师表.系号=学院表.系号; orderby职工号desc; intotableone_xx.dbf endif endif endif 第十六套 表单one移动顺序关闭到退出 (1)单击工具栏中的"打开"按钮,打开考生文件夹下的表单one,设置Command1的TabIndex属性为1,Command2的TabIndex属性2,Command3的TabIndex属性为3。 (2)单击工具栏中的"打开"按钮,打开考生文件夹下的表单two,按下SHIFT键的同时选中3个命令按钮控件,通过"布局"工具栏设置其对齐方式为"顶边对齐"。 (3)单击工具栏中的"新建"按钮,新建一个程序文件,输入下列命令: Createtable分组情况表(组号c (2),组名c(10)) 将该程序保存为three.prg并运行。 (4)方法同上建立程序four.prg,输入命令: INSERTINTO分组情况表VALUES("01","通俗唱法") 歌手比赛分为4个组 第1处: 将"WHILE"改为"DOWHILE"; 第2处: 将"歌手表.歌手编
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- vf125 每套图的精华 考试必备 每套 精华 考试 必备