計算機(jī)等級考試二級VFP上機(jī)試題及解題思路(8)

　　4、

　　(1)command1的click事件代碼

　　set talk off

　　sele 學(xué)生

　　bjh=alltrim(thisform.text1.value)

　　loca for substr(學(xué)號,1,4)=bjh

　　if found()

　　sum 學(xué)生.獎學(xué)金 to jxj for substr(學(xué)號,1,4)=bjh

　　thisform.text2.value=bjh

　　thisform.text3.value=jxj

　　else

　　thisform.text2.value=""

　　thisform.text3.value=""

　　messagebox("該班級不存在!")

　　endif

　　thisform.refresh

　　(2)Command2的click事件代碼

　　thisform.release

　　5、

　　text1的valid事件代碼：

　　tbn=alltrim(thisform.text1.value)

　　if file("&tbn..dbf")

　　use (tbn)

　　thisform.list1.clear

　　for i=1 to fcount()

　　thisform.list1.additem(field(i))

　　endfor

　　use

　　else

　　message("指定的表文件不存在!請重新輸入!")

　　endif

　　thisform.refresh