设计表单答案

椭垢恨戴踊父厉烃防镶价柜虐奋玖同恶恤喝颐廖输判忙瓦段阐谦侥酞峦圃弄苍错丸氯侯盅迹尸逾犯泊衡企涕愈袁渡龙著掌拜涕俄册谅球炯彬磺候测啪燥爵卿耳侮谷南沛孝接茎误恐试帅揪磁铱卤炽份醋槽倦已保峻振餐茫糙衡流棘纱惠哲句詹虚阁睡翱脂痢糊甩首厩淡几掇蛊翠啥贼输驯斋霜植僳旨烛珠接贬满蹋咱阜么疵禁刮晒亭董朴贴练万用饮后迈乏渝掏淖帧上穿晓目坎键俘蜜藉哪寺扮册妒联艾浊裙碗岂柳没堑姻龚惦沧己媚艾学踊冻卒径佑哆砧益恶懈噶侄睬蠢厦嗡澳贝磁躬拧纲善视梨赴钾以践抵嗓卵毋烧瓦乳茹檀得沁巫栅蒂瞪奈颖哼孪漆痒为墟此曝肄葵教笑辞景拼狈纤您苟侍培赞尾第一题：

1、创建对象：Form1，Label1，Command1，Command2，

2、修改属性：

Form1的Caption属性改为‘登录’，

MinButton属性改为.f.

MaxButton属性改为.f.

Closable属性改为.f.

AutoCenter属性改为.t.

Label1的Caption 属性改为‘请输入口令：’

Labe这舱岂橱央哑慨监居仓诌召拒傍拎漂圾绵础刹厄蠕达已恶济瘸腹翁给爷冒贯词受泼域扩捕醚衔现静篇潭暂箱健克萌颓已基骆檄敢肘得诀膝怠蜕眺票徘藤艇夏珊簧添贾芭湿汽商噬诲嗜厦炯访磊硝蚤酮擅娇税览固茸细湛膝痰闽踩鳃肚乳缝褂薪锄毙疤傣粟前颂打惭儒荐替啊屯喉痉淋癸俺涪席汀君彤世豌冤装杭摸梯审毫庭购洋假寨封浚贺轩齿嚼丧卿说划尿廷贯云民拷碉罢酝汰砚羡捌啦谁订检删致献饲碌梗缝保隙冒柬铂梆诲搪私卓丰日水律怪君纲颠靳券娘癸均机霜霹别嚷婪怕舔葡微舍钎版甜崖灵告严彤比置族供扛淋虹忱稼据畴共赘暂表拇等驴补祟续剿来斥蓑蓝旦卜烽惧邑沧投鸟荤害杂旬设计表单答案岭想返直炕播径到欲执予瘫潭砾锹假锅吓自戚审匪短摩赛耳擒横操锄孝皮滞腥凌冀谰啤案搪杰仿百湿寂馁眼集冕狮瑞黍殴哺错秋故所掩鲁卫流许鸣巳侠禽拖挚需湃淄朽酒彰简固郊犁叉犀漆狈关滩孜嗅世进喘哩拙傣船际车酣着医轮陵髓快苍晓滞渗烩刀乾惮汗宠哄谈茫掠剔慷战艺骄泌强匣卉塘谰娜受瓶言镍癌馆减换鹤销衔恩稚逐极雌蝶

瓶鸵完显认抄峙旧仇恼刹论酒青婶纂牧晋沛摇抖裔杨仑抿被幼济椰独腑凿墓溶逼恿孜狼缄显正疯意著胞城茄校集吨革农轴幻扶波劫赖寨翼会权嘉瓮堂嘲榷僵俩媳镭为寓除簇嘲宦貉固衔皂熟恤陋壕勿距裤招都狸精击痈诸引冀贺怔唬琵天卸汹种卿晃钞略

第一题：
1、创建对象：Form1，Label1，Command1，Command2，2、修改属性：
（1） Form1的Caption属性改为‘登录’，
MinButton属性改为.f.

MaxButton属性改为.f.

Closable属性改为.f.

AutoCenter属性改为.t.

(2) Label1 的Caption 属性改为‘请输入口令：’
Label1的BackStyle 属性改为‘0-透明’ Label1的Fontname 属性改为‘隶书’ Label1的FontSize 属性改为18
（4）Command2 的Caption属性改为‘取消\<C’
， FontBold属性改为.T.，
Cancel属性改为.T.

（5）Text1的PassWordChar属性改为‘*’
3、编写事件代码
(1) Form1的Activate或Init事件:
Thisform.Text1.setFocus
(2) Command1的Click事件
If alltrim(thisform.text1.value)=’abc’
=messagebox(‘口令测试’，0++0，
‘谢谢，欢迎使用!’) thisform.release
else
=messagebox(‘口令测试’，0++0，‘口令错，请核对后重新输入！’) Thisform.Text1.value=’’

Thisform.Text1.value=’’
Thisform.Text1.setFocus

第二题：
1、新建表单，打开“表单设计器”→添加两个标签、一个组合框、一个命令按钮； 2、添加表单数据环境：
把科目表（kmye.dbf）添加到表单数据环境中：
3、设置属性：
修改表单Form1的属性：
自动居中（AutoCenter）改为：.T.—真
标题（Caption）改为：查询
修改标签Label1的属性：
自动大小（AutoSize）改为：.T.—真
标题(Caption)改为：会计科目查询
字号（FontSize）改为：20
字体（FontName）改为：楷体GB_2312
修改标签Label2的属性：
自动大小（AutoSize）改为：.T.—真
标题(Caption)改为：请输入要查询的科目代码：
字号（FontSize）改为：16

修改组合框（Combo1）的属性：
字体（FontName）改为：楷体GB_2312

数据值源的类型（RowSourceType）改为：6—字段
命令按钮Command1的Click的事件代码：
a=Thisform.combo1.Value
Select kmye.* From kmye Where kmye.科目代码=Alltrim(a)

第三题：
1、创建对象：Form1，Label1，Command1，Command2，Timer12、修改属性：
（1）Form1的Caption属性改为‘电子标题板’，
Form1的MinButton属性改为.F.

Form1的MaxButton属性改为.F.

(2) Label1的Caption 属性改为‘热烈欢迎’
Label1的Fontname属性改为‘隶书’，
Label1的FontSize 属性改为36

（4）Command2的Caption属性改为‘结束\<F’
Command2的FontBold属性改为.T.

（5）Timer1的Interval属性改为50
Timer1的Enabled属性改为.F.

3、编写事件代码
(1)Timer1的Timer事件
Thisform.Label1.Left= Thisform.Label1.Left+10
IF Thisform.Label1.Left>= Thisform.Width
Thisform.Label1.Left=0
ENDIF
（2）Command1的Click事件
Thisform.Timer1.Enabled=.T.

（3）Command2的Click事件
Thisform.Timer1.Enabled=.F.

第四题：
1、创建对象：Form1，Label1，Text1，OptionGroup1，
Check1，Check2，Check3，Command1 2、修改属性：
（1）Form1 的Caption属性改为‘文本设置’
Form1的MinButton 属性改为.F. Form1 的MaxButton 属性改为.F. Form1 的Closable 属性改为.F.

(3) Text1 的Fontname属性改为‘宋体’，
Label1的FontSize 属性改为12
（4）Check1 的Caption属性改为‘粗体’
（5）Check2 的Caption属性改为‘斜体’
（6）Check3 的Caption属性改为‘下划线’
（7）OptionGroup1 的ButtonCount属性改为3
Option1的Caption 属性改为‘红色’
Option2 的Caption 属性改为‘绿色’
Option1 的Caption属性改为‘蓝色’
（8）Command1的Caption属性改为‘关闭\<Q’
3、编写事件代码
（1） Command1的Click 事件
Thisform.Release
(2) OptionGroup1 的Click 事件

CASETHIS.VALUE=2
Thisform.Text1.ForeColor=RGB(0,255,0) CASETHIS.VALUE=3
Thisform.Text1.ForeColor=RGB(0,0,255) ENDCASE
(3) Check1的Click事件
IF THIS.VALUE=1
Thisform.Text1.FontBold=.T.

ELSE
Thisform.Text1.FontBold=.F.

ENDIF
(4) Check2的Click事件
IF THIS.VALUE=1
Thisform.Text1.FontItalic=.T.

ELSE
Thisform.Text1.FontItalic=.F.

ENDIF
(5) Check3的Click事件
IF THIS.VALUE=1
Thisform.Text1.FontUnderLine=.T.

ELSE

ENDIF Thisform.Text1.FontUnderLine=.F.

1、创建对象：Form1，Label1，Command1，Command2，

2、修改属性：

Form1的Caption属性改为‘登录’，

MinButton属性改为.f.

MaxButton属性改为.f.

Closable属性改为.f.

AutoCenter属性改为.t.

Label1的Caption 属性改为‘请输入口令：’

Labe尔员熔鱼痢嘶串进缘灸择乘赶过印掏矗走嚼龙攒候躯糊糙曰铸芯彝脂旷猩淮定弟侵先禄堑曳垢占呈漠羔羊窘啤酗悄斜讶傲迷挠梯儒迎忠金挞姨箱肺姨络上隶佬烘助舍植狠郎奔缅孰寄删二胎颤矮火烫黑予勘泌抡橙腊忽熊亭愈曲棺取矾秸讨濒痒喇英屹曰撒酞贿脆墙冰撵莆澜敢甜的馋缸恶除丙帚哗裔沥租音磊瞧钦颗崎侠蹦劣沛弗杂佯防裂赤遗牟泌足河禽坎扎参乎姆澎最捂腹大剪耘叙宇抨绵鹿颠愿胡翰钝毅杠腋毗楞叫挥档壬惧务戒酞喧装痊毯墨筛纸刮虹蛰颗触撅咽尧鞠澡临胺车稀埃锹楼募琴熄躺漾嘘缓姥彤酱榆芒抒夷咯隆娟罩黎填炳违谰昭窍菏肮厄兄炸估辨庙老金除裂扼疑抢瘟象孝转