设计题答案.docx

1、设计题答案设计题答案解：1、check1的click事件编写如下代码：if thisform.check1.value=1 mand1.enabled=.t.else mand1.enabled=.f.endif 2、command1的click事件编写如下代码：appe blankrepl 学号 with 200211repl 姓名 with 张三repl 性别 with 男repl 出生日期 with 1983/06/28thisform.refresh解：command1的click事件编写如下代码：a=val(thisform.text1.value)b=val(thisform.te

2、xt2.value)n=0if a=90 thisform.label1.caption=一等endifif c=80 and c90 thisform.label1.caption=二等endifif c80 thisform.label1.caption=无endif解：command1到command12的click事件编写如下代码：thisform.text1.value=thisform.text1.value-1thisform.text1.value=thisform.text1.value-2thisform.text1.value=thisform.text1.value-3

3、thisform.text1.value=thisform.text1.value-4thisform.text1.value=thisform.text1.value-5thisform.text1.value=thisform.text1.value-6thisform.text1.value=thisform.text1.value-7thisform.text1.value=thisform.text1.value-8thisform.text1.value=thisform.text1.value-9thisform.text1.value=thisform.text1.value-

4、0thisform.text1.value=thisform.text1.value-*thisform.text1.value=thisform.text1.value-#解：1、选中组合框，右击生成器，在列表项选项卡中添加work表中的“工号”字段，并在值选项卡中添加work表中的“工号”字段； 2、combo1的click事件编写代码如下：s1=alltrim(thisform.Combo1.Value)select 姓名,基本工资,职称,部门号 from work where 工号=s1 into array aSELECT 部门名 FROM bmdm where 部门号=a(4) i

5、nto array bthisform.txt姓名.value=a(1)thisform.txt基本工资.value=a(2)thisform.txt职称.value=a(3)thisform.text1.value=b(1)解：command1的click事件编写代码如下：a=val(thisform.text1.value)b=val(thisform.text2.value)if thisform.optiongroup1.value=1 c=a+belse c=a-bendifthisform.text3.value=cif c1 skip -1endifif 是否借出=.t. thi

6、sform.check1.forecolor=rgb(0,0,128)else thisform.check1.forecolor=rgb(0,0,0)endif thisform.refresh command2的click事件编写代码如下：if recn()reccount() skipendifif 是否借出=.t. thisform.check1.forecolor=rgb(0,0,128)else thisform.check1.forecolor=rgb(0,0,0)endif thisform.refresh解：command1的click事件编写代码如下：a=thisform.

7、text1.valueb=thisform.text2.valuec=thisform.text3.valued=thisform.text4.valuethisform.text5.value=round(a*b+c*d,1)解：command1的click事件编写代码如下：loca for 学校名称=allt(thisform.text1.value)if found() thisform.label2.caption=欢迎到来 mand2.enabled=.f.else thisform.label2.caption=库中暂缺，添加吗？ mand2.enabled=.t.endifcom

8、mand2的click事件编写代码如下：appe blan repl 学校名称 with thisform.text1.value解：command1到command12的click事件编写如下代码：thisform.text1.value=thisform.text1.value-1thisform.text1.value=thisform.text1.value-2thisform.text1.value=thisform.text1.value-3thisform.text1.value=thisform.text1.value-4thisform.text1.value=thisfor

9、m.text1.value-5thisform.text1.value=thisform.text1.value-6thisform.text1.value=thisform.text1.value-7thisform.text1.value=thisform.text1.value-8thisform.text1.value=thisform.text1.value-9thisform.text1.value=thisform.text1.value-0thisform.text1.value=thisform.text1.value-+thisform.text1.value=thisform.text1.value-command13的click事件编写如下代码：a=thisform.text1.valuel=len(a)if +$a b=at(+,a) thisform.text1.value=str(val(subs(a,1,b-1)+val(subs(a,b+1,l)endifif -$a b=at(-,a) thisform.text1.value=str(val(subs(a,1,b-1)-val(subs(a,b+1,l)endif