vfp设计题目第二三题Word格式.docx
- 文档编号:21927117
- 上传时间:2023-02-01
- 格式:DOCX
- 页数:18
- 大小:983.28KB
vfp设计题目第二三题Word格式.docx
《vfp设计题目第二三题Word格式.docx》由会员分享,可在线阅读,更多相关《vfp设计题目第二三题Word格式.docx(18页珍藏版)》请在冰豆网上搜索。
endif
thisform.text3.value=m
thisform.text4.value=n
thisform.refresh
1)用生成器将组合框与字段“teach1.教师号”绑定
2)对组合框的Click事件进行如下编程:
在表单vfp03021的init事件中加入
Bo1.listindex=1
用生成器将text1与字段“ddm1.系名”绑定
3)在数据环境里将两个表进行关联。
从teach1表的”系号”字段拖到ddm1的“系号”索引
在计算按钮的click事件中加入:
m=val(thisform.text1.value)
n=val(thisform.text2.value)
else
m=val(thisform.text2.value)
n=val(thisform.text1.value)
k=0
fori=ntom
ifmod(i,3)=0
k=k+i
endif
thisform.text3.value=k
endfor
1)选中命令组合框Commandgroup1,鼠标右键选中编辑,然后双击“上一页”按纽,在Click事件中写入如下代码:
ifbof()!
=.t.
skip-1
if是否借出=.t.
thisform.check1.forecolor=rgb(0,0,128)
thisform.check1.forecolor=rgb(0,0,0)
endif
2)同样在“下一页”按纽的Click事件中写入如下代码:
k=reccount()
ifrecno()!
=k
skip
在“逆序”按钮的click事件中加入:
(其中草绿色代码,为题目已提供)
c1=alltrim(thisform.text1.value)&
c1为原字符串
c2='
'
&
c2逆序字符串
***********在两线条间完成其他语句**************
k=len(c1)
fori=kto1step-1
m=substr(c1,i,1)
c2=c2+m
endfor
***********************************************
thisform.text2.value=c2
1)单击复选框check1的click事件中写入如下代码:
ifthisform.check1.value=1
mand1.enabled=.t.
else
mand1.enabled=.f.
2)在“计算”按纽的Click事件中写入如下代码:
updatespset金额=数量*单价
1)分别设置text1、text2的属性readonly为.t.
2)在列表框list1的click事件添加代码如下:
SELECTcount(*),sum(基本工资);
FROMddm1,teach1;
WHEREddm1.系号=teach1.系号andddm1.系名=thisform.list1.valueintoarrayaa
thisform.text1.refresh
1)用生成器将组合框与字段“teach1.教师号”绑定
在“计算”按钮的click事件中加入:
sl=thisform.text1.value&
al为纳税人的收入
*********在两线间编写其他语句**************
ifsl>
=0andsl<
=1600
q=0
1600andsl<
=3000
q=(sl-1600)*0.1
=3000andsl<
=5000
q=(3000-1600)*0.1+(sl-3000)*0.2
q=(3000-1600)*0.1+(5000-3000)*0.2+(sl-3000)*0.3
thisform.text2.value=q
*******************************************
【要点解答】在确定按钮的click事件中加入:
locatefor姓名=bo1.value
ifthisform.text1.value=口令
thisform.label3.caption='
成功登陆'
口令错,请重输'
在开始按钮的click事件中加入:
thisform.timer1.enabled=.t.
在timer1控件的timer事件中加入:
thisform.text1.value=thisform.text1.value-1
ifthisform.text1.value=0
thisform.timer1.enabled=.f.
thisform.text1.refresh
1)Timer1的enabled属性设为.f.interval属性设为50,command1的caption属性设为”开始”
2)对command1的click事件中加入:
ifmand1.caption="
开始"
mand1.caption="
停止"
thisform.timer1.enabled=.t.
else
thisform.timer1.enabled=.f.
在统计按钮的click事件中加入:
K=0
m=alltrim(thisform.text1.value)
fori=1tolen(thisform.text1.value)
n=substr(m,i,1)
ifasc(n)>
65andasc(n)<
90
K=K+1
endif
thisform.text2.value=K
在CHECK1的click事件中加入:
mand1.enabled=.t.
mand1.enabled=.f.
在command1按钮的click事件中加入:
insertintostu51values('
200211'
'
张三'
男'
{^1983/06/28})
thisform.grdstu51.refresh
thisform.text3.value=k
【要点解答】在书号按钮的click事件中加入:
setorderto书号
在command1即比较按钮的click事件中加入:
m=thisform.text1.value
m=thisform.text2.value
ifthisform.text3.value>
m
thisform.text4.value=m
thisform.text4.value=thisform.text3.value
2.【要点解答】
1)组合框属性:
controlsource:
bmdm.部门号;
rowsourcetype为6字段;
rowsource为部门号
2)对组合框的Click事件进行如下编程:
selectwork.工号,work.姓名,work.职称,bmdm.部门名;
FROMWORKERS!
BMDMINNERJOINWORKERS!
WORK;
ONBMDM.部门号=WORK.部门号;
whereBMDM.部门号=bo1.valueintocursortmp
thisform.list1.rowsource='
tmp'
thisform.list1.rowsourcetype=6
thisform.list1.columncount=4
3.【要点解答】
M=VAL(THISFORM.TEXT1.VALUE)
M1=MOD(M,10)
t=INT(M/10)
M2=MOD(t,10)
M3=INT(t/10)
IFM1^3+M2^3+M3^3=M
THISFORM.TEXT2.VALUE='
是'
不是'
ENDIF
THISFORM.refresh
统计按钮click事件如下:
selectteach
SELECTAVG(Teach.基本工资);
FROMjsgl!
teachINNERJOINjsgl!
ddm;
ONTeach.系号=Ddm.系号;
WHEREDdm.系名=thisform.opg1.valueintoarrayaa
计算按钮click事件如下:
m=val(thisform.text1.value)
m=(m-int(m))*1000
m1=mod(m,10)
t=int(m/10)
m2=mod(t,10)
m3=int(t/10)
thisform.text2.value=int(m1+m2+m3)
在表单vfp211的init事件中加入
将部门名与表BMDM的字段:
部门名绑定
从work表的字段拖到bmdm的索引
‘等于’按钮click事件如下:
n=val(thisform.text2.value)
ifthisform.optiongroup1.value=1
k=m+n
k=m-n
ifk>
thisform.text3.forecolor=rgb(0,0,255)
thisform.text3.forecolor=rgb(255,0,0)
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- vfp 设计 题目 第二
![提示](https://static.bdocx.com/images/bang_tan.gif)