瀹為獙
6
鍗佷簩涓夊洓銆?/p>
VFP
涓〃鍗曡璁″櫒鍙婂悇绫绘帶浠?/p>
涓�銆佸疄楠岀洰鐨勪笌瑕佹眰锛?/p>
锛堬紤锛夋帉鎻＄被銆佸璞＄殑璁捐鍙婅皟鐢ㄦ柟娉曠瓑銆?/p>
锛堬紥锛夋帉鎻＄敤琛ㄥ崟鍚戝璁捐鍗曡〃銆佸琛ㄨ〃鍗曠殑鎿嶄綔銆?/p>
锛堬紦锛夋帉鎻＄敤琛ㄥ崟璁捐鍣ㄨ璁¤〃鍗曠殑鏂规硶銆?/p>
锛堬紨锛夋帉鎻￠噸瑕佽〃鍗曟帶浠剁殑浣跨敤鍜屼娇鐢ㄦ帶浠剁敓鎴愬櫒鐢熸垚鎺т欢銆?/p>
浜屻�佸疄楠屽唴瀹癸細
瀹為獙
6-1
璁捐涓�涓敤鎴风櫥褰曡〃鍗曪紝
鍦ㄨ〃鍗曚笂鍒涘缓涓�涓粍鍚堟鍜屼竴涓枃鏈锛?/p>
浠庣粍鍚堟閫夋嫨鐢?/p>
鎴峰悕锛屽湪鏂囨湰妗嗕腑杈撳叆鍙ｄ护锛屼笁娆′笉姝ｇ‘閫�鍑恒�?/p>
鏂规硶姝ラ锛?/p>
鍥?/p>
6.1
锛?/p>
1
锛夋柊寤鸿〃鍗?/p>
Form1
锛屼粠琛ㄥ崟鎺т欢宸ュ叿鏍忎腑鎷栧叆涓や釜鏍囩
Label1
銆?/p>
Label2
锛屼袱涓懡浠?/p>
鎸夐挳
Command1
銆?/p>
Command2
锛屼互鍙婁竴涓粍鍚堟鎺т欢
Combo1
鍜屼竴涓枃鏈鎺т欢
Text1
銆傚苟鎸夊浘
6.1
璋冩暣濂藉叾浣嶇疆鍜屽ぇ灏忋�?/p>
锛?/p>
2
锛?/p>
璁剧疆
Label1
鐨?/p>
Caption
灞炴�у�间负
鈥滅敤鎴峰悕鈥?/p>
锛?/p>
Label2
鐨?/p>
Caption
灞炴�у�间负
鈥滃瘑鐮佲�?/p>
锛?/p>
Command1
銆?/p>
Command2
鐨?/p>
Caption
灞炴�у�煎垎鍒负鈥滅櫥褰曗�濆拰鈥滈��鍑衡�?/p>
銆?/p>
Form1
鐨?/p>
Caption
灞炴�у�?/p>
涓衡�滅櫥褰曗�?/p>
銆?/p>
锛?/p>
3
锛?/p>
璁剧疆
Combo1
鐨?/p>
RowSourceType
灞炴�т负
鈥?/p>
1-
鍊尖�?/p>
锛?/p>
RowSource
灞炴�т负
鈥滃瓩鐟烇紝
鍒樼嚂鈥?/p>
锛?/p>
Text1
鐨?/p>
PasswordChar
灞炴�т负鈥?/p>
*
鈥?/p>
銆?/p>
锛?/p>
4
锛夊湪
Form1
鐨?/p>
Init Event
杩囩▼涓姞鍏ュ涓嬩唬鐮侊細
public num
num=0
鍦?/p>
Command1
鐨?/p>
Click Event
杩囩▼涓姞鍏ュ涓嬬殑绋嬪簭浠ｇ爜锛?/p>
if (alltrim(thisform.combo1.value)=="
瀛欑憺
" and alltrim(thisform.text1.value)=="123456")
or (alltrim(thisform.combo1.value)=="
鍒樼嚂
" and alltrim(thisform.text1.value)=="abcdef")
thisform.release
do
涓昏彍鍗?/p>
.mpr
else
num=num+1
if num<3