計算機等級考試二級VFP習題及答案：第八章

　　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

　　6、

　　(1)command1的click事件代碼

　　bjh=alltrim(thisform.text1.value)

　　sele 學生

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

　　thisform.combo1.clear

　　if found()

　　thisform.combo1.clear

　　thisform.combo1.displayvalue=學生.姓名

　　do while substr(學號,1,4)=bjh

　　thisform.combo1.additem(學生.姓名)

　　skip

　　enddo

　　else

　　messagebox("沒有該班級")

　　thisform.text1.value=""

　　thisform.text1.setfocus

　　endif

　　(2)Command2的click事件代碼

　　thisform.release

　　7、

　　(1)Form1的init事件代碼：

　　public h,m,s

　　store 0 to h,m,s

　　thisform.timer1.enabled=.f.

　　thisform.text1.value='00'

　　thisform.text2.value='00'

　　thisform.text3.value='00'

　　(2)Timer1的timer事件代碼：

　　s=s+1

　　if s>59

　　s=0

　　m=m+1

　　endif

　　if m>59

　　m=0

　　h=h+1

　　endif

　　if h>24

　　h=0

　　endif

　　s1=iif(s<10,'0'+str(s,1),str(s,2))

　　m1=iif(m<10,'0'+str(m,1),str(m,2))

　　h1=iif(h<10,'0'+str(h,1),str(h,2))

　　thisform.text1.value=h1

　　thisform.text2.value=m1

　　thisform.text3.value=s1

　　(3)Command1的click事件代碼

　　thisform.timer1.enabled=.t.

　　thisform.text1.value='00'

　　thisform.text2.value='00'

　　thisform.text3.value='00'

　　store 0 to s,m,h

　　(4)Command2的click事件代碼

　　thisform.timer1.enabled=.f.

　　(5)Command3的click事件代碼

　　thisform.release