上机答案.docx
《上机答案.docx》由会员分享,可在线阅读,更多相关《上机答案.docx(17页珍藏版)》请在冰点文库上搜索。
上机答案
1.modistrubcd
选择“插入”
添加数据:
在游览模式下点击“显示—追加方式”
2.delefor姓名!
=”蒋”
pack
3.usezgda
copytoadgzfor职称=”高工”fields编号,姓名,职称,基本工资
closeall
5、usesysle3
sorton姓名toXMPX
closeall
6、usesysle3
sorton性别,出生日期/dtoXBRQPX
Closeall
7、usezgda
Replace实发工资with基本工资*1.52+80for职称=”高工”
Replace实发工资with基本工资*1.11+50for职称!
=”高工”
Closeall
8、usegzb
replace实发工资with基本工资*1.25+val(补发工资)
Closeall
9、usezgda
Indexon职称+str(基本工资)tagxxx
Closeall
10、usezgda
indexon职称tagXXX
closeall
11、usezgda
Indexon婚否+str(99999-基本工资)tagxxx
CLOSEALL
12、usezgda
Indexon职称+str(99999-基本工资)tagxxxdesc
Closeall
13、createdata诗词
点击新建表
按要求输入
14、modidata管理
右击表—修改
按要求修改输入
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
Forecolor0,0,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
endif
thisform.LABEL5.caption=ALLT(STR(JE,10,2))
31.
Form1属性
Height300
Width500
文本框属性
Name又一村
Left156
Top48
Height48
Width215
Fontname黑体
Fontsize24
Visible.f.
Command1属性command2属性command3属性
Caption显示文本框隐藏文本框退出
Height282828
Width757575
Command1事件
THISFORM.又一村.visible=.t.
Command2事件
THISFORM.又一村.visible=.f.
Command3事件
Thisform.release
32.
Text1的interactivechange事件
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<=10
THISFORM.aaa.caption=THISFORM.aaa.caption+[*]
gs=gs+1
enddo
retu
清空的click事件
Thisform.aaa.caption=[]
Retu
34.
标签显示的click事件
Thisform.ccc.value=thisform.aaa.caption
文本框显示的click事件
thisform.aaa.caption=Thisform.ccc.value
清空的click事件
Thisform.ccc.value=[]
thisform.aaa.caption=[]
退出的click事件
Thisform.release
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.
DOCASE
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)
CASETHIS.VALUE=4
THISFORM.RELEASE
ENDCASE
RETU
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.leftthisform.shape1.left=thisform.shape1.left+50
else
thisform.shape1.left=0
endif
41.
Form1的属性
Height200
Width400
Autocenter.t.
页框属性
Pagecount3
右键页框—编辑—依次对每一页编辑
42.
对双表都建立以学号字段的索引
右键form1的界面—数据环境—选择表单添加到环境中
将student的学号拉到borrow的学号中
右键页框--编辑---选择第一页--将数据环境的姓名拉到第一页
选择第二页---将数据环境的学号拉到第二页
43.
Form1属性
Height200
Width400
Autocenter.t.
加入图像控件
属性
Height144
Width132
Left144
Top24
Streth1-等比填充
Picture机器猫
44
Form1属性
Height200
Width400
Autocenter.t.
Left400
Top200
Interval150
Timer1的timer事件
T=5
ifthisform.猫.left+thisform.猫.width>0
thisform.猫.left=thisform.猫.left-2*T
thisform.猫.top=thisform.猫.top-T
else
thisform.猫.left=400
thisform.猫.top=200
endif
retu
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
ENDCASE
Timer1的timer事件
ift=0
THISFORM.SHAPE1.curvature=0
t=1
else
THISFORM.SHAPE1.CURVATURE=90
t=0
endif
if-1*thisform.shape1.topTHISFORM.SHAPE1.TOP=thisform.shape1.top-10
else
thisform.shape1.TOP=thisform.HEIGHT
endif
47.
阶乘的click事件
L=1
FORk=1tott
L=L*K
ENDFOR
tt=L
RETU
开始计算的click事件
STOR0TOT1,T2
TT=thisform.SZA.VALUE
thisform.阶乘.click
T1=TT
TT=thisform.SZB.VALUE
thisform.阶乘.click
T2=TT
TT=ABS(THISFORM.SZA.VALUE-THISFORM.SZB.VALUE)
thisform.阶乘.click
THISFORM.TEXT3.VALUE=T1/(T2*TT)
THISFORM.COMMAND3.SETFOCUS
48.
CreateKT
依次输入字段及类型
按要求输入数据
49.
Use基本表
Delefor基本工资+val(补发工资)!
=1100
Pack
50.
Form1属性
Name我的表单
Height220
Width500
Antucenter.t.
标签属性
Height49
Width320
Left84
Top36
Caption我的第一个表单练习
Fontname楷体
Fontsize24
按钮属性
Left168
Top156
Height36
Width144
Caption退出
Fontsize24
51.
确认的click事件
JE=THISFORM.TEXT1.value&&&&&&在本行?
?
?
?
处输入合适的内容[_T_0]
doCASE&&&&&&在本行?
?
?
?
处输入合适的内容[_T_1]
CASEJE<300
JE=JE
CASEJE<600
JE=JE*0.95
CASEJE<1000
JE=JE*0.9
OTHER
JE=JE*0.85
ENDCASE
THISFORM.LABEL4.CAPTION=ALLT(STR(JE,7,2))
清零事件
THISFORM.TEXT1.value=0
THISFORM.label4.CAPTION=[]
THISFORM.TEXT1.SETFOCUS