上机答案Word下载.docx
《上机答案Word下载.docx》由会员分享，可在线阅读，更多相关《上机答案Word下载.docx（17页珍藏版）》请在冰点文库上搜索。
15、modidata产品
编号字段排序为升序----切换到索引栏
改索引名
在打开表—追加项目
16、createdata管理_a
Modidata管理
依次添加表单
选择zgda中编号，点击拉到zjgz中编号
双击直线
按要求修改
17、creaqueryxzcx
按要求选择选取
18.sele姓名,年龄,出生日期,籍贯fromstudent;
Where籍贯in（“北京”,”四川”）
19.sele姓名.student,借书日期.borrow,书名.borrow,班级.studnetfromstudent,borrow;
Where性别=”男”;
Orderby姓名+dtoc（date（）-借书日期）desc
20.sele姓名,年龄,班级fromstudent;
Wherer姓名like“__李%”
21.sele班级count（*）as人数;
Fromstudent;
groupby班级
22.sele*fromcxb_a;
where基本工资+临时工资+val（补发工资）>
1600and已婚=.t.;
where职称=”工程师”
23.createdata练习_a
Createtable进货单（供应商号C（8）PRIMARYkey,供应商名C（16）,地址M;
primarykey供应商号tagGHYH）
24.sele姓名,val（补发工资）+增资额as津贴from管理_a!
gztz
25.modiform再学习
Form的属性height300width400
标签属性:
Name-好好学习
Caption-标签属性
Left96top36
Height40width150
Fontsize24fontname黑体
Backcolor192,192,192
Forecolor0,0,255
26.
Text1与text2的click事件
Thisform.text1.value=[]
Thisform.text2.value=[]
Text1的interactivechange事件
a=val（this.value）
thisform.text2.value=（a-32）*5/9
Text2的interactivechange事件
b=val（allt（this.value））
thisform.text1.value=b*9/5+32
27.
执行计算的click事件
BL1=THISFORM.TEXT1.value
BL2=THISFORM.text2.VALUE
THISFORM.LABEL5.caption=ALLT（STR（BL1+BL2,10））
清零的click事件
thisform.TEXT1.value=0
thisform.text2.value=0
thisform.label5.CAPTION=[]
thisform.text1.setfocus
28.
Createform再进步
Modiform再进步
Form1的属性
Height300width500
文本框属性
Name又一框
Left156top48
Height48width215
Fontname黑体
Fontsize24
Backcolor200,200,255
Visible.f.
29.
Form1属性
Height260
Width400
Autocenter
Label属性
Height75
Width300
Fontname黑体
Fontsize36
Alignment.t.
Left36
Top84
Label的click事件
IFCS<
3
CS=CS+1
ELSE
CS=1
endif
docase
CASEcs=1
thisform.abcd.fontsize=36
casecs=2
thisform.abcd.fontsize=46
casecs=3
thisform.abcd.fontsize=56
enddo
30.
计算click事件
JE=SL*DJ
IFJE<
=0
thisform.text1.value=0
thisform.text2.value=0
thisform.text1.setfocus
RETU
ENDIF
IFSL>
=10
je=JE*0.92
thisform.LABEL5.caption=ALLT（STR（JE,10,2））
31.
Form1属性
Height300
Width500
Name又一村
Left156
Top48
Height48
Width215
Command1属性command2属性command3属性
Caption显示文本框隐藏文本框退出
Height282828
Width757575
Command1事件
THISFORM.又一村.visible=.t.
Command2事件
THISFORM.又一村.visible=.f.
Command3事件
Thisform.release
32.
zf=[]
zfcd=len（allt（thisform.text1.value））
FORt=zfcdto1step-1
zf=zf+subs（allt（thisform.text1.value）,t,1）
endfor
thisform.text2.value=zf
retu
33.
显示的click事件
THISFORM.COMMAND3.CLICK
GS=1
DOwhilegs<
THISFORM.aaa.caption=THISFORM.aaa.caption+[*]
gs=gs+1
清空的click事件
Thisform.aaa.caption=[]
Retu
34.
标签显示的click事件
Thisform.ccc.value=thisform.aaa.caption
文本框显示的click事件
thisform.aaa.caption=Thisform.ccc.value
Thisform.ccc.value=[]
thisform.aaa.caption=[]
退出的click事件
35.
DOCASE
CASETHISFORM.QQQ.VALUE=1
THISFORM.AAA.FORECOLOR=RGB（255,0,0）
CASETHIS.VALUE=2
THISFORM.AAA.FORECOLOR=rgb（0,255,0）
CASETHIS.VALUE=3
THISFORM.AAA.FORECOLOR=rgb（0,0,255）
CASETHIS.VALUE=4
THISFORM.RELEASE
ENDCASE
RETU
36.
CASETHISFORM.你好.VALUE=1
THISFORM.广东医.FORECOLOR=RGB（255,0,0）
CASETHISFORM.你好.VALUE=2
THISFORM.广东医.FORECOLOR=rgb（0,255,0）
CASETHISFORM.你好.VALUE=3
THISFORM.广东医.FORECOLOR=rgb（0,0,255）
37.
在form1里右键---数据环境—选择”基本表.dbf”---拉取字段”编号”和”姓名”到form1里
编号属性编号的文本框姓名属性姓名的文本框
Left4375189221
Top48484848
Height2020
Width5757
Fontsize99
选项按钮组
Height26
Fontsize9
Left84
Top96
右击选项按钮组----生成器---按钮数目组（3）----选择布局栏----选择水平
在按钮栏---修改标题为题目要求
38.
右击选项按钮组----值一栏中选择基本表的职称
命令按钮组的click事件DOCASECASETHISFORM.commandgroup1.value=1IF!
EOF（）SKIPELSEGOTOPendifCASETHISFORM.commandgroup1.value=2ifbof（）GOBOTTELSESKIP-1ENDIFCASETHISFORM.commandgroup1.value=3GOTOPCASETHISFORM.commandgroup1.value=4GOBOTTCASETHIS.commandgroup1.value=5
thisform.releaseendcaseTHISFORM.refreshRETU
39.
与38雷同
40.
Timer属性
Interval500
Timer1的timer事件
ift=0
thisform.shape1.curvature=0
t=1
else
thisform.shape1.curvature=90
t=0
endif
ifthisform.shape1.left<
thisform.width
thisform.shape1.left=thisform.shape1.left+50
else
thisform.shape1.left=0
41.
Height200
Width400
Autocenter.t.
页框属性
Pagecount3
右键页框—编辑—依次对每一页编辑
42.
对双表都建立以学号字段的索引
右键form1的界面—数据环境—选择表单添加到环境中
将student的学号拉到borrow的学号中
右键页框--编辑---选择第一页--将数据环境的姓名拉到第一页
选择第二页---将数据环境的学号拉到第二页
43.
加入图像控件
属性
Height144
Width132
Left144
Top24
Streth1-等比填充
Picture机器猫
44
Left400
Top200
Interval150
T=5
ifthisform.猫.left+thisform.猫.width>
0
thisform.猫.left=thisform.猫.left-2*T
thisform.猫.top=thisform.猫.top-T
thisform.猫.left=400
thisform.猫.top=200
45.
THISFORM.LABEL1.CAPTION=[]
K=1
DOWHILEK<
=7
M=1
DOWHILEM<
=2*K-1
THISFORM.LABEL1.CAPTION=THISFORM.LABEL1.CAPTION+[*]
M=M+1
ENDDO
THISFORM.LABEL1.CAPTION=THISFORM.LABEL1.CAPTION+CHR（13）
K=K+1
ENDDO
46.
Timer属性interval200
命令选项组click事件
docase
casethis.value=1
thisform.timer1.enabled=.f.
casethis.value=2
thisform.timer1.enabled=.t.
OTHER
thisform.RELEASE
THISFORM.SHAPE1.curvature=0
THISFORM.SHAPE1.CURVATURE=90
if-1*thisform.shape1.top<
thisform.shape1.HEIGHT
THISFORM.SHAPE1.TOP=thisform.shape1.top-10
thisform.shape1.TOP=thisform.HEIGHT
47.
阶乘的click事件
L=1
FORk=1tott
L=L*K
ENDFOR
tt=L
开始计算的click事件
STOR0TOT1,T2
TT=thisform.SZA.VALUE
thisform.阶乘.click
T1=TT
TT=thisform.SZB.VALUE
T2=TT
TT=ABS（THISFORM.SZA.VALUE-THISFORM.SZB.VALUE）
THISFORM.TEXT3.VALUE=T1/（T2*TT）
THISFORM.COMMAND3.SETFOCUS
48.
CreateKT
依次输入字段及类型
按要求输入数据
49.
Use基本表
Delefor基本工资+val（补发工资）!
=1100
Pack
50.
Name我的表单
Height220
Antucenter.t.
标签属性
Height49
Width320
Left84
Top36
Caption我的第一个表单练习
Fontname楷体
按钮属性
Left168
Top156
Height36
Width144
Caption退出
51.
确认的click事件
JE=THISFORM.TEXT1.value&
&
在本行?
?
处输入合适的内容[_T_0]
doCASE&
处输入合适的内容[_T_1]
CASEJE<
300
JE=JE
600
JE=JE*0.95
1000
JE=JE*0.9
OTHER
JE=JE*0.85
THISFORM.LABEL4.CAPTION=ALLT（STR（JE,7,2））
清零事件
THISFORM.TEXT1.value=0
THISFORM.label4.CAPTION=[]
THISFORM.TEXT1.SETFOCUS
升级会员 