</p> loca for substr(学号,1,4)=bjh
. D. w" p. B, T* q( P* w if found(): }! ~5 b2 v" z6 c/ Z" }2 B* G
sum 学生.奖学金 to jxj for substr(学号,1,4)=bjh
, m+ R: m# v9 H; l1 H3 w thisform.text2.value=bjh2 g* @; Y/ J1 s! I9 o% u! E! ]
thisform.text3.value=jxj
1 V2 a0 H: [' q else
, f |: ~% b J, v/ V* q4 Z0 L' t thisform.text2.value=""
' v" R( W8 \8 n+ ?" D1 [ thisform.text3.value=""$ \0 y2 x- |4 ^" L8 v6 `
messagebox("该班级不存在!")
6 H! R" F& ^7 d8 P; B6 M. \ endif
% k) d. s }$ v! t thisform.refresh
* P+ Q4 U5 Q- o3 H+ n (2)Command2的click事件代码
& H7 ?6 H' }( l: O thisform.release8 z4 {+ u! d# D" C
5、* U0 ~9 ]1 h+ ?
text1的valid事件代码:; a% c8 `6 A# u# v, r2 j$ P
tbn=alltrim(thisform.text1.value)8 A9 w& a8 J5 H; b9 w
if file("&tbn..dbf")' u8 V8 N9 C' Y" `$ H; R. G
use (tbn)
; g* B4 U) h6 H2 g# \% | thisform.list1.clear
0 g9 X; \3 [+ Y for i=1 to fcount(), k# y; a+ g5 V
thisform.list1.additem(field(i))
" s* a x9 W: }! P E6 c endfor7 P' a* K1 i/ }: e7 D
use7 F% R" a ^2 i2 P, W7 y$ p
else* a5 c& Q, ? Y) ]. w
message("指定的表文件不存在!请重新输入!")
$ j V) ^; Z+ Z$ R% U endif
. U7 Y( i5 ?9 B' o, p | thisform.refresh7 ?6 g) \9 ]) o2 o* `
6、
9 r: D8 a7 D- e; i! Z (1)command1的click事件代码5 A0 n0 G7 ]$ G. i* o2 j' b) D
bjh=alltrim(thisform.text1.value)& J8 a- R) ?0 D
sele 学生% U8 M7 W5 O, [' L$ q
loca for substr(学号,1,4)=bjh! e, b+ b0 G0 V' J6 N! {
thisform.combo1.clear! }0 B1 N z& R0 s5 h$ V
if found()
1 m3 s8 ?* C$ p thisform.combo1.clear) D7 L% ~+ P' m5 s9 g+ \: |
thisform.combo1.displayvalue=学生.姓名
6 L' @- d# R. Q( O7 @3 G do while substr(学号,1,4)=bjh
! t- |! F, t3 @3 T9 s* Y' T thisform.combo1.additem(学生.姓名): r, m( R4 O3 b- T
skip$ e$ z, {% P/ ?
enddo
$ b% A0 o- e7 e" W$ b( s" y' R else
5 j; a& f, G3 B) `, H messagebox("没有该班级")% ~9 _8 \" l6 P( Q' ]5 W
thisform.text1.value=""
+ R2 L- D0 |. A( x6 j8 @ thisform.text1.setfocus+ T( |% F9 ~& k @' x4 i4 p2 ^. s
endif; `! E4 \$ ?5 A" C8 y& \4 H7 z
(2)Command2的click事件代码
# X# T& h5 e/ l, B0 P- k) R6 Q thisform.release# g, _) O+ y- j
7、. n5 M+ |& i& ^1 d$ c$ Q
(1)Form1的init事件代码:9 U+ `+ K Q6 v6 z. A/ P9 c' w
public h,m,s
6 \; ^# n7 ^! u' d9 t: Z: X8 x store 0 to h,m,s
. O9 Q- p2 C) {- d. u" A thisform.timer1.enabled=.f.( C1 T5 K0 ]2 J2 [1 X7 y
thisform.text1.value='00'
- u1 H: V' O! s X, ?0 A# T2 l2 E thisform.text2.value='00'
! f0 S, h! x8 F* K6 b2 `. g/ J, {6 N! D thisform.text3.value='00'
; {2 I' i# v' |- l1 F3 i% s- V (2)Timer1的timer事件代码:# z% \! U6 A+ G0 S8 Z
s=s+1
0 `5 E4 s9 W7 E4 s( a! K3 w. M" ~ if s>59+ ]% i9 L6 [. w4 R* _6 T" ^- }/ m
s=0
[0 `0 s9 u. T* x# ^( M m=m+1
# M" \9 c! b% E6 K* Z" u/ o/ A, B endif
. D& g {: M) a. c% @8 N' P if m>59; x: o c B) n( N* D
m=02 B4 I/ n9 P' u( z: A. u- G
h=h+1
5 I; h! v" j( T- ]; T. i endif, ^5 w) d, d; `! d* C' b" B, d" M
if h>24
$ d- f y- ~1 b h=0
Z" }9 S# C% F( H* g- H; F endif0 E9 f% J+ {5 ^& q0 O* q6 M- M) T
3 ?8 a H% T2 |9 B3 M+ ^* F s1=iif(s |