»ùÓÚ Visual Foxpro 6.0µÄѧÉú³É¼¨¹ÜÀíϵͳ

·¢²¼Ê±¼ä : ÐÇÆÚÒ» ÎÄÕ»ùÓÚ Visual Foxpro 6.0µÄѧÉú³É¼¨¹ÜÀíϵͳ¸üÐÂÍê±Ï¿ªÊ¼ÔĶÁ

else if b==\

n=messagebox(\ÇëÊäÈëÃÜÂë\ѧÉú³É¼¨¹ÜÀíϵͳµÇ¼\do case case n=6

thisform.text2.value=\thisform.text2.setfocus case n=7 thisform.release endcase endif endif

locate for alltrim(пÚÁî±í.ѧºÅ)==alltrim(a) if found()

if alltrim(пÚÁî±í.ÃÜÂë)==alltrim(b) do c:\\vfp98\\ѧÉú³É¼¨¹ÜÀíϵͳ\\²Ëµ¥1.mpr thisform.release else

if alltrim(пÚÁî±í.ȨÏÞ)==alltrim(b) do c:\\vfp98\\ѧÉú³É¼¨¹ÜÀíϵͳ\\zhumenu.mpr thisform.release else

messagebox(\ÃÜÂë´íÎó£¬ÇëÖØÐÂÊäÈë\ѧÉú³É¼¨¹ÜÀíϵͳµÇ¼\

15

errornumber=errornumber+1 endif endif else

messagebox(\Óû§\²»´æÔÚ£¡\ѧÉú³É¼¨¹ÜÀíϵͳµÇ½¼\ errornumber=errornumber+1 endif

if errornumber=3

MESSAGEBOX(\ÄúÒѾ­ÊäÈë3´Î´íÎó£¬Çë°´È·¶¨Í˳ö\ѧÉú³É¼¨¹ÜÀíϵͳ\ ask=messagebox(\È·¶¨ÒªÍ˳öÂð£¿\ѧÉú³É¼¨¹ÜÀíϵͳ\if ask=6 close all quit else endif endif Í˳ö°´Å¥

ask=messagebox(\È·¶¨ÒªÍ˳öÂð£¿\ѧÉú³É¼¨¹ÜÀíϵͳ\if ask=6 thisform.release else Endif

16

3.4.2³É¼¨Êý¾Ý¼Èë

Form1±àд±íµ¥µÄInitʱ¼ä´úÂë

use c:\\vfp98\\ѧÉú³É¼¨¹ÜÀíϵͳ\\³É¼¨±í.dbf exclusive go top

thisform.txtѧºÅ.enabled=.t. thisform.txtÐÕÃû.enabled=.t. thisform.txtѧÆÚ.enabled=.t. thisform.txt¿Î³ÌÃû³Æ.enabled=.t. thisform.txt³É¼¨.enabled=.t. °´Å¥µÚÒ»¸ö go top this.enabled=.t.

thisform.command2.enabled=.f. thisform.command3.enabled=.t. thisform.command4.enabled=.t. thisform.command5.enabled=.t. Thisform.refresh ÉÏÒ»¸ö skip -1

thisform.command1.enabled=.t. thisform.command3.enabled=.t. thisform.command4.enabled=.t.

17

thisform.command5.enabled=.t. if bof()

messagebox(\ÒѾ­µ½Á˱íÍ·\Ìáʾ\this.enabled=.f. else

this.enabled=.t. endif

thisform.refresh ÏÂÒ»¸ö skip

thisform.command1.enabled=.t. if eof() this.enabled=.f.

messagebox(\ÒѾ­µ½Á˱íÍ·\Ìáʾ\thisform.command1.enabled=.t. thisform.command2.enabled=.t. thisform.command3.enabled=.f. thisform.command5.enabled=.t. thisform.refresh else

this.enabled=.t.

thisform.command1.enabled=.t. thisform.command2.enabled=.t.

18

ÁªÏµºÏͬ·¶ÎÄ¿Í·þ£ºxxxxx#qq.com(#Ì滻Ϊ@)