4、

　　(1)command1的click事件代碼

　　set talk off

　　sele 學生

　　bjh=alltrim(thisform.text1.value)

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

　　if found()

　　sum 學生.獎學金 to jxj for substr(學號,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