表单设计题

（230101）
1.设计表单，各对象的大小，布局大致属性窗口设置属性，要求如下：
1）表单FORM1标题为“画图”；（caption）
2）形状控件Shape1为100*60的矩形，左上角位置为（40，30），边框为蓝色即RGB（0，0，255）；（height 100 width 60）（left 40 top 30）（全部bordercolor）
3）两个命令按钮Command1和Command2标题分别为“画图”和“清屏”；
4）文件名保存为shape.scx。

（再练习：形状控件改为画线的情况。

）
2.打开表单ddcx.scx，根据orders表查询指定日期及以后签订的订单信息（订单号、签订
日期和金额）。

要求如下：（数据value =date（））
文本框Text1默认值为当前系统日期（日期型，格式不限），在文本框中输入要查询的日期后，单击“查询”按钮，表格Grid1中显示该日期及以后签订的订单信息。

请设置文本框属性及编写“查询”代码。

（单击右键）
注：不得新建表单、不得增、删原表单上的控件、不得更改Class属性（类名）和Name 属性（对象名）；
表单需运行且关闭，否则不得分。

“查询”按钮的click事件代码如下：
thisform.grid1.recordsourcetype=4
thisform.grid1.recordsource="select 订单号,签订日期,金额from orders ;
where 签订日期=thisform.text1.value into cursor tmp"
thisform.refresh
3．打开表单addcal.scx，运行界面如图，通过对“添加并计算”按钮编写代码，实现：将文本框Text1中输入的字符串添加到列表框List1中，并将该串长度添加到列表框List2中。

注：删除字符串前导和后置空枨功能已具备，无须考生设置；
不得新建表单、不得增、删原表单上的控件、不得更改Class属性（类名）和Name属性（对象名）；
表单需运行且关闭，否则不得分。

（全部name C语言）
“添加并计算”按钮command1的click事件代码如下：
thisform.list1.additem(thisform.text1.value)
thisform.list2.additem(str(len(alltrim(thisform.text1.value))))
（230102）
1.设计表单，各对象的大小，布局大致属性窗口设置属性，要求如下：
1)表单FORM1标题为“奖牌查询”，运行时居中；(autocenter)
2)列表框List1数据源为“6-字段”类型，取自country表的“国家名称”字段；（数
据RowSourceType）
3)命令按钮Command1标题为“查询”；
4)文件名保存为jpb.scx。

2．sjtj.scx，运行界面如图，对“按从小到大排列”按钮的Click事件编写代码，使Text1、Text2中的值按从小到大的顺序分别显示在Text3,Text4中。

注：“退出”按钮的功能已具备，无须考生编写代码。

不得新建表单、不得增、删原表单上的控件、不得更改Class属性（类名）和Name属性（对象名）；
表单需运行且关闭，否则不得分
（种类是标签，统计是命令按钮，种类旁边的是组合框）
“统计”命令按钮command1的click事件代码如下：
set talk off
sum 数量to a for 种类=bo1.value
sum 单价*数量to b for 种类=bo1.value
thisform.text1.value=a
thisform.text2.value=b
thisform.refresh
或者：
select sum(数量),sum(单价*数量) from book1 where 种类=bo1.value into
array a
thisform.text1.value=a(1)
thisform.text2.value=a(2)
thisform.refresh
（230103）
1.设计表单，各对象的大小，布局大致属性窗口设置属性，要求如下：
1）表单FORM1标题为“形状图像”；(fontsize 18号字FontBold 加粗)
2）标签Label1标题为“落日”、18号、加粗‘黄色即RGB（255，255，0），背景透明；（Backstyle forecolor 255,255,0）(picture )
3）图像控件Image1显示的图像来自K：\Fjexam95\sunset.jpg，变比填充调整大小；
(stretch)
4）文件名保存为imsh2.scx。

2．打开表单ddpx.scx，运行界面如图，功能如下：
利用orders表按职员号分组统计每个职员所签订单的平均金额，并将结果按选定的排序方式生成新的表（包含职员号和平均金额2个字段），当选择“按金额升序”时，按平均金额升序生成表文件px_a；当选择“按金额降序”时，按平均金额升序生成表文件px_d，请编写“生成表”按钮的事件代码。

注：“退出”按钮功能已具备，无须考生编写代码。

不得新建表单、不得增、删原表单上的控件、不得更改Class属性（类名）和Name属性（对象名）；
表单需运行且关闭，否则不得分。

“生成表”按钮CLICK事件代码如下：
do case
case thisform.optiongroup1.value=1
select 职员号,avg(金额) as 平均金额from orders;
group by 职员号;
order by 2;
into table px_a.dbf
case thisform.optiongroup1.value=2
select 职员号,avg(金额) as 平均金额from orders;
group by 职员号;
order by 2 desc;
into table px_b.dbf
endcase
3．打开表单calc.scx，运行界面如图，对“计算”按钮编写代码，实现求如下分段函数的值；
SIN(x) (x<10)
|X|+1 (10<=x<20)
Y=
3x-10 ( x>20)
在文本框Text1中输入的X的值勤，单击“计算”按钮，在文本框Text2k 显示y的值。

注：不得新建表单、不得增、删原表单上的控件、不得更改Class属性（类名）和Name 属性（对象名）；
表单需运行且关闭，否则不得分。

“计算”按钮的click事件代码如下：
x=thisform.text1.value
do case
case x<10
y=x/3
case x<20
y=2*x+
case x>=20
y=3*x-10
endcase
thisform.text2.value=y
（230104）
1.设计表单，各对象的大小，布局大致属性窗口设置属性，要求如下：
1）表单FORM1标题为“显示日期时间”；
2）页框Pageframe1设置两个页面，页面page1、page2的标题分别是“日期”、“时间”；3）Page1中的标签Label1显示系统当前日期（以MM/DD/YY格式显示），14号，斜体；4）Page2中的标签Name属性值为Label2，显示系统当前日期（以时：分：秒格式显示）；5）文件名保存为sjrq2.scx。

2．打开表单ddtj.scx，根据orders表实现如下功能：
在选择按钮组中选择客户号或职员号，单击“统计”按钮，统计每个客户或每个职员的单数和总金额，结果在表格Grid1中显示。

请编写“统计”按钮的事件代杩。

注：不得新建表单、不得增、删原表单上的控件、不得更改Class属性（类名）和Name 属性（对象名）；
表单需运行且关闭，否则不得分。

“统计”按钮的CLICK事件代码如下：
thisform.grid1.recordsourcetype=1
do case
case thisform.optiongroup1.value=1
select 客户号,职员号,sum(订单数) as 订单数,sum(金额) as 金额from orders group by 客户号into cursor temp
thisform.grid1.recordsource="temp"
case thisform.optiongroup1.value=2
select 客户号,职员号,sum(订单数) as 订单数,sum(金额)as 金额from orders group by 职员号into cursor temp
thisform.grid1.recordsource="temp"
endcase
3．打开表单chadate.scx，运行界面如图。

通过对文本框Text1设置Value属性和对微调控件Spinner1编写代码，实现如下功能：
文本框显示当前系统日期（日期型，格式不限），可利用微调控件调整日期，点击向上箭头日期减1天，点向下箭头日期加工厂天。

注：“退出”按钮功能已具备，无须考生编写代码。

不得新建表单、不得增、删原表单上的控件、不得更改Class属性（类名）和Name属性（对象名）；
表单需运行且关闭，否则不得分。

微调按钮的downclick事件代码如下：
thisform.text1.value=thisform.text1.value-1
微调按钮的upclick事件代码如下：
thisform.text1.value=thisform.text1.value+1
（230105）
1.设计表单，各对象的大小，布局大致属性窗口设置属性，要求如下：
1）表单FORM1中标签Label1标题为“北京欢迎您”，隶书，32号，背景透明；
2）复制标签Label1生成Label2，改Label2文字为红色即RGB（255，0，0）；
3）调整标签Label1、Label2e的位置以产生阴影效果，Label1的位置为（Left=70,Top=24）, Label2的位置为（Left=73,Top=20）
4）文件名保存为oy2.scx。

2.打开表单ADDS.scx，运行界面如上图，对根据orders表实现如下功能：
在选择按钮组中选择客户号或职员号，单击“统计”按钮，统计每个客户或每个职员的单数和总金额，结果在表格Grid1中显示。

请编写“统计”按钮的事件代杩。

注：不得新建表单、不得增、删原表单上的控件、不得更改Class属性（类名）和Name 属性（对象名）；
表单需运行且关闭，否则不得分。

“允许添加”复选框的interactivechange事件代码如下：
if this.value=1
mand1.enabled=.t.
else
mand1.enabled=.f.
endif
“统计”按钮的click事件代码如下：
repl all 金额with 单价*数量
或者：update sp set 金额=单价*数量
Thisform.refresh
3．打开表单XSYS.scx，运行界面如上图，编写“更新”按钮的CLICK代码，要求如下：1）将形状控件SHAPE1的颜色更新为三个微调按钮值勤所代表的颜色；
2）若三个微调按钮值为255，0，0，将SHAPE1的形状改为正方形（CURV ATURE=0）3）若三个微调按钮值为0，255，0，将SHAPE1的形状改为圆角正方形（CURVA TURE=10）4）若三个微调按钮值为0，0，255，将SHAPE1的形状改为圆形（CURVA TURE=99）
注：不得新建表单、不得增、删原表单上的控件、不得更改Class属性（类名）和Name属性（对象名）；
表单需运行且关闭，否则不得分。

“更新”按钮的click事件代码如下：
r=thisform.spinner1.value
g=thisform.spinner2.value
b=thisform.spinner3.value
thisform.shape1.backcolor=rgb(r,g,b)
do case
case r=255 and g=0 and b=0
thisform.shape1.curvature=0
case r=0 and g=255 and b=0
thisform.shape1.curvature=50
case r=0 and g=0 and b=255
thisform.shape1.curvature=99
endcase
（230106）
1.设计表单，各对象的大小，布局大致属性窗口设置属性，要求如下：
1)表单FORM1的Showtips属性为.T.；
2)标签Label1标题为“哈哈镜”、20号、大小自动适应内容；
3)图像控件Image1的边框为白色单线，显示的图像来自K：\Fjexam95\zebra.jpg，变比填
充调整大小,当鼠标指向图像时显示指示文本“斑马”；
4)文件名保存为horse.scx。

2．打开表单JSCX.scx，利用JSGL1数据库（其中DDM1存放系名信息，TEACH1存放教师信息），按教师号查询教师信息，要求如下：
1）组合框的数据源为TEACH1表的“教师号”字段；
2）表单初始化时，组合框中显示TEACH1表首记录的教师号，各文本框中分别显示该教师的相应信息。

3）在组合框中选择一教师号，各文本框将显示该教师的相应信息。

注：不得新建表单、不得增、删原表单上的控件、不得更改Class属性（类名）和Name 属性（对象名）；
表单需运行且关闭，否则不得分。

Combo1的interactivechange事件代码如下：
select 系名from ddm1 inner join teach1;
on ddm1.系号=teach1.系号;
where 教师号=this.value;
into array x
thisform.text1.value=x(1)
thisform.refresh
表单INIT事件代码如下：
bo1.listindex=1
select 系名from ddm1 inner join teach1;
on teach1.系号=ddm1.系号;
where 教师号=bo1.value;
into array x
thisform.text1.value=x(1)
thisform.refresh
3．打开表单JS.scx，编写“计算”按钮的CLICK代码，完成上图提示的要求。

注：不得新建表单、不得增、删原表单上的控件、不得更改Class属性（类名）和Name 属性（对象名）；
表单需运行且关闭，否则不得分。

“计算”按钮的click事件代码如下：
n=0 &&给个数n赋初值
s=0 &&给和s赋初值
***********在两线条间完成其他语句**************
for i=0 to 100
if mod(i,7)=0
n=n+1
s=s+i
endif
endfor
***********************************************
thisform.text1.value=n
thisform.text2.value=s
thisform.refresh
（230107）
1.设计表单，各对象的大小，布局大致属性窗口设置属性，要求如下：
1）表单FORM1标题为“选择”，运行时自动居中；
2）选项按钮组的三个单选按钮Option1、Option2和Option3水平排列，标题分别是“选1号”、“选2号”、“选3号”；
3）命令按钮组Commandgroup1的两个命令按钮Command1和Command2水平排列，标题分别为“确定”和“取消”；
4）文件名保存为Selball2.scx。

2．打开表单login2.scx，运行界面如图，功能如下：
在两个文本框中分别输入学号和密码，单击“确定”按钮，利用stulog表验证学号和密码正确与否，若正确，在标签Label3中显示欢迎信息，否则显示出错信息。

请对“确定”按钮编写代码。

注：不得新建表单，不得增、删原表单上的控件，不得更改Class属性（类名）和Name属性（对象名）；表单需运行且关闭，否则不得分。

表单需运行且关闭，否则不得分。

“确定”按钮CLICK事件代码如下：
Use stulog
locate for 学号=alltrim(bo1.value)
if thisform.text2.value=密码and bo1.value =学号
bel3.caption="欢迎"+alltrim(姓名)+"同学"
else
bel3.caption="学号或密码不对"
endif
3．打开表单FACTOR.scx，运行界面如图，对因子个数编写代码，实现如下功能：
在TEXT1中输入一个正整数，单击“因子个数”按钮，在TEXT2中显示该数的因子个数。

数n的因子个数是指除本身外能够被整除n的数，如6的因子有：1，2，3；10的因子有1，2，5。

注：不得新建表单，不得增、删原表单上的控件，不得更改Class属性（类名）和Name属性（对象名）；表单需运行且关闭，否则不得分。

表单需运行且关闭，否则不得分。

“因子个数”命令按钮的CLICK事件代码如下：
x=thisform.text1.value
n=0 &&因子个数
for i=1 to x-1
if x%i=0
n=n+1 &&因子个数累加
endif
endfor
thisform.text2.value=n
（230108）
1.设计表单，各对象的大小，布局大致属性窗口设置属性，要求如下：
1）表单FORM1标题为“多项选择”；
2）复选框Check1、Check2的标题分别为“选择1”、“选择2”，大小自动适应内容；
3）命令按钮组Commandgroup1的两个命令按钮Command1和Command2水平排列，标题分别为“确定”和“取消”；
4）文件名保存为dxxz2.scx。

2．打开表单TSXZ.SCX，利用BOOK1表按种类统计该类书的总数量和总金额，要求如下：1）在组合框中选择书的种类在选项按钮组中选择统计的类型，将相应的统计数据显示在文本框中。

注：组合框的功能已具备，考生只须编写选项按钮组的代码。

不得新建表单，不得增、删原表单上的控件，不得更改Class属性（类名）和Name属性（对象名）；表单需运行且关闭，否则不得分。

表单需运行且关闭，否则不得分。

“选项按钮组”的interactivechange事件代码如下：
select sum(数量),sum(单价*数量) from book1 where 种类=bo1.value into array a
if this.value=1
thisform.text1.value=a(1)
else
thisform.text1.value=a(2)
endif
thisform.refresh
或者：
set talk off
sum 数量to a for 种类=bo1.value
sum 单价*数量to b for 种类=bo1.value
if this.value=1
thisform.text1.value=a
else
thisform.text1.value=b
endif
3．打开表LEAPYEAR.scx，运行界面如图。

对“是否闰年”按钮编写代码，实现功能如下：在TEXT1中输入一个日期（日期型），单击“是否闰年”按钮，若是闰年，在TEXT2中显示“是闰年”，否则，在TEXT2中显示“不是闰年”。

闰年的条件是：年份能被整除但不能被子00整除，或能被400整除。

注：不得新建表单，不得增、删原表单上的控件，不得更改Class属性（类名）和Name属性（对象名）；表单需运行且关闭，否则不得分。

表单需运行且关闭，否则不得分。

Text1的value属性改为{}（即日期型）
“是否闰年”命令按钮的click事件代码如下：
y=year(thisform.text1.value)
if (y%4=0 and y%100!=0 or y%400=0)
thisform.text2.value="是闰年"
else
thisform.text2.value="不是闰年"
endif
（230109）
1.设计表单，各对象的大小，布局大致属性窗口设置属性，要求如下：
1）表单FORM1标题为“选择”；
2）标签Label1标题为“请选择”；
3）组合框Combo1数据源类型为“1-值”，值为“VB，VFP，C语言”；
4）复选框Check1标题为“总成绩”，Check2标题为“平均成绩”；
5）文件名保存为combo.scx。

2．打开表单rccx.scx，根据rcda和cjda表实现如下功能：
在组合框中选择人才编号，单击“显示”按钮，在列表框List1中显示相应的姓名，成果名称和成果类别。

组合框的功能已具备，考生只须编写“显示”按钮的事件代码。

注：不得新建表单，不得增、删原表单上的控件，不得更改Class属性（类名）和Name属性（对象名）；表单需运行且关闭，否则不得分。

3．打开表sata.scx，运行界面如图。

对“偶数字符串”按钮编写代码，下功能：在Text1中输入一个字符串，单击“数字字符个数”按钮，在Text2中显示该字符串中的偶数字符串。

注：不得新建表单，不得增、删原表单上的控件，不得更改Class属性（类名）和Name属性（对象名）；表单需运行且关闭，否则不得分。

表单需运行且关闭，否则不得分。

“偶数字符串”按钮的click事件代码如下：
s=""
c1=alltrim(thisform.text1.value)
for i=1 to len(c1)
c2=substr(c1,i,1)
if c2='0'or c2='2'or c2='4'or c2='6'or c2='8'
s=s+c2
endif
endfor
thisform.text2.value=s
（230110）
1.设计表单，各对象的大小，布局大致属性窗口设置属性，要求如下：
1）表单FORM1标题为“显示”；
2）编辑框Edit1显示“居中显示”，楷体，水平居中；
3）文本框Text1显示当前系统日期、粗体、颜色为RGB（100，0，100），背景色为RGB （200，200，255）；
4）文件名保存为edit.scx。

2．打开表单teach1.scx，根据ddm1和teach1表实现如下功能：
1）表单运行时，在组合框中显示第一个数据项。

2）在组合框中选择系名，若复选框“显示平均工资”已选中，则在Text1中显示该系教师的平均工资，否则Text1为空。

考生只须编写组合框的相应事件代码。

注：不得新建表单，不得增、删原表单上的控件，不得更改Class属性（类名）和Name属性（对象名）；表单需运行且关闭，否则不得分。

表单的初始化事件init代码如下：
bo1.listindex=1
组合框的interactivechange事件代码如下：
if thisform.check1.value=1
select avg(基本工资) from teach1 inner join ddm1 on teach1.系号=ddm1.系号;
where ddm1.系名=this.value into array a
thisform.text1.value=a(1)
else
thisform.text1.value=''
endif
thisform.refresh
3．打开表单SELPAG.SCX，运行界面如上图，通过编写代码，实现如下功能：
1）点击选中“天空”页面时，该页面的颜色变为蓝色（RGB（0，0，255）；
2）点击选中“沙漠”页面时，该页面的颜色变为黄色（RGB（255，255，0）；
3）点击选中“雪原”页面时，该页面的颜色变为白色（RGB（255，255，255）；
注：“退出”按钮已编写代码，考生无须对其编写代码。

不得新建表单、不得增、删原表单上的控件、不得更改Class属性（类名）和Name属性（对象名）；
表单需运行且关闭，否则不得分。

页框pageframe1的click事件如下：
do case
case thisform.pageframe1.activepage=1
this.page1.backcolor=rgb(0,0,255)
case thisform.pageframe1.activepage=2
this.page2.backcolor=rgb(255,0,0)
case thisform.pageframe1.activepage=3
this.page3.backcolor=rgb(255,255,255)
endcase。