</p> loca for substr(学号,1,4)=bjh, A0 Y6 @9 v2 c/ y; K% Y
if found()
( n% a- E. r5 f sum 学生.奖学金 to jxj for substr(学号,1,4)=bjh/ M, d8 H0 i( q& N# ?9 v# g5 {
thisform.text2.value=bjh& _& ^: J- {3 Y7 y
thisform.text3.value=jxj3 q' O( E# N9 d5 W! K% d
else2 w% R, h/ R$ a0 U
thisform.text2.value=""3 R0 m$ _5 J7 m+ n
thisform.text3.value=""
$ e5 I' @) }! N$ ~# J messagebox("该班级不存在!")
' g. E0 C5 A3 v S5 g endif
. q7 j" Z0 v& H" Y! s5 l: C thisform.refresh
" d0 u* l8 R( w1 a: g# @3 P# `0 \ (2)Command2的click事件代码
; g4 \: H* @0 f9 u w thisform.release
) T. {. m" P7 S. A1 } 5、; |$ `' f1 Y7 M5 Z) m
text1的valid事件代码:2 E/ q: u' r1 z6 h- `4 K
tbn=alltrim(thisform.text1.value)- M6 a6 ^6 k3 i6 d! a9 @' g
if file("&tbn..dbf")' n- f, P% y0 n
use (tbn)
& @( }/ F: W2 [( c, H7 @ s thisform.list1.clear& \, d( R; ]9 s$ @6 i6 Z
for i=1 to fcount()8 ]2 V/ P6 G& ?8 f5 q' b: b
thisform.list1.additem(field(i))4 C# e2 f4 R8 V+ h
endfor
. h! ^( u4 O- r# D1 d6 f use
; P! s* h0 ^$ N" E else
7 F* M) n$ V/ I2 ~5 ~4 [+ ] message("指定的表文件不存在!请重新输入!")
# _( S' |5 k* J) X: w Z9 V% R. h( } endif
~6 B5 ^) r: W' I! ~ thisform.refresh1 k- I% [* i0 O* k& b
6、
4 b0 A5 ^$ p1 ^+ i6 e (1)command1的click事件代码7 V3 r5 ^0 Z5 L y, I
bjh=alltrim(thisform.text1.value)& d n& s2 m% F7 J
sele 学生
6 e) A3 p3 e/ e" I loca for substr(学号,1,4)=bjh
, X7 V" Z+ x5 e. _. L( y, M thisform.combo1.clear
, _4 u2 d7 P& G+ q- c' C# a' @ if found()& l- {5 b8 Y/ }1 ^6 R1 S' ~
thisform.combo1.clear
! c" U9 v0 W& L9 c' F! I thisform.combo1.displayvalue=学生.姓名
. t6 Q d) J; y0 Q do while substr(学号,1,4)=bjh
% a$ P3 W* X, k* F' w3 |" d thisform.combo1.additem(学生.姓名)
' {& {" E; z+ l' h: T6 T9 ` q" O% |- y skip* A0 p6 D# ?; P1 _5 b1 o+ O4 F+ J
enddo3 ~ S& n& d$ Q6 j
else
' l( X, h/ @& r$ r2 b' }$ B8 o messagebox("没有该班级")+ K+ f& J. Z0 F) n* E2 w# L
thisform.text1.value=""
7 @4 l0 `. R5 r# y thisform.text1.setfocus7 A1 c+ |" i/ F; U
endif
0 R/ F9 B" D5 q' c/ w5 P# l (2)Command2的click事件代码
" D7 Q" t- T+ Z0 p, G% Y K" W thisform.release
7 q& V& a, Z. k 7、
3 B2 I3 S0 t( U7 p" H& N2 N- |/ T (1)Form1的init事件代码:6 h3 W* y) b& ~: i Q9 @! }$ G9 \2 L
public h,m,s
# K8 N4 c: j! o) U store 0 to h,m,s
9 B" p7 O" M. A) k) C- w- M6 ?. h. K thisform.timer1.enabled=.f.
+ O% u0 O: Z: J$ N1 c" j: p0 q% ? thisform.text1.value='00'. C' \$ R1 p. a3 w0 u% f6 ]* ]
thisform.text2.value='00'" y: j" C5 x$ t5 ~/ Q L( n0 I5 @
thisform.text3.value='00'
# Y1 }, j. X8 {/ d2 v (2)Timer1的timer事件代码:" C3 j. {/ ~* C0 ^" s, [
s=s+1
& `+ U! V* O& n6 q8 g if s>59
" d+ v) P: {! z# d9 @9 X! _- u% @( A s=0
! B% U* G8 J" Z% H) ~6 i% m) ]+ y m=m+1
7 w" A* {$ @ W: @ endif
9 I8 b' k8 [& q$ O% W# L, Z, g; q if m>59
y. y+ s, U. T* C m=0
" ~( W* m% \+ F i$ p6 q, q9 e0 Y h=h+1$ F( @7 E/ F8 q
endif+ y; v, z+ u. b! Z( v
if h>24% A4 }! e/ y2 O3 o+ S1 X
h=0
+ e5 v) W7 a/ l% x. z% ?! b! {9 ^- T endif) H5 m0 z8 R. l
* ^" y2 u* m0 Y' H. ?' T c0 E8 f s1=iif(s |