Ϊָ¶¨Îļþ¡£
¡¡IfsFile=""Then
¡¡LoadTips=False
¡¡ExitFunction
¡¡EndIf
¡¡'ÔÚ´ò¿ªÇ°È·±£Îļþ´æÔÚ¡£
¡¡IfDir(sFile)=""Then
¡¡LoadTips=False
¡¡ExitFunction
¡¡EndIf
¡¡'´ÓÎı¾ÎļþÖжÁÈ¡¼¯ºÏ¡£
¡¡OpensFileForInputAsInFile
¡¡WhileNotEOF(InFile)
¡¡LineInput#InFile,NextTip
¡¡Tips.AddNextTip
¡¡Wend
¡¡CloseInFile
¡¡'Ëæ»úÏÔʾһÌõÌáʾ¡£
¡¡DoNextTip
¡¡LoadTips=True
¡¡EndFunction
¡¡Ö÷Ҫͨ¹ýopen´ò¿ªÎļþ£¬È»ºóͨ¹ýlineinput·ÖÐжÁÈ¡ÌáʾÐÅÏ¢¡£
µÚÁùÕÂϵͳʹÓÃ˵Ã÷
6£®1ʹÓÃ˵Ã÷
1¡¢ÔËÐÐÓÚWindows98ÒÔÉϲÙ×÷ϵͳ¡£
2¡¢Êý¾Ý¿âµÄĬÈÏ·¾¶£ºapp.path\userdatabase\tsl.mdb
3¡¢ÏµÍ³Ä¬ÈÏÓû§ÃûºÍÃÜÂ룺admin
6£®2ÔËÐл·¾³
1¡¢ÔËÐл·¾³£ºWindows98ÒÔÉϲÙ×÷ϵͳ¡£
2¡¢ADOÊý¾ÝÒýÇæ
µÚÆßÕÂÉè¼ÆÐĵÃ
¾¹ýÈý¸ö¶àÔµÄÉè¼ÆºÍ¿ª·¢£¬Í¨Ñ¶Â¼¹ÜÀíϵͳ»ù±¾¿ª·¢Íê±Ï¡£
µ«ÊÇÓÉÓÚ±ÏÒµÉè¼Æʱ¼ä½Ï¶Ì£¬ËùÒÔ¸Ãϵͳ»¹ÓÐÐí¶à²»¾¡ÈçÈËÒâµÄµØ·½£¬±ÈÈçÁª»úÎĵµ±È½ÏÉÙ£¬Óû§½çÃæ²»¹»ÃÀ¹Û£¬³ö´í´¦Àí²»ÍêÉƵȶ෽ÃæÎÊÌâ¡£ÕâЩ¶¼Óдý½øÒ»²½¸ÄÉÆ¡£
²Î¿¼ÎÄÏ×
1.¡¶¹ÜÀíÐÅϢϵͳ¡·Ñ¦»ª³ÉÇ廪´óѧ³ö°æÉç1996Äê
2.¡¶Êý¾Ý¿âϵͳÔÀíÓëÓ¦Óá·ÉÁËÄÇåÇ廪´óѧ³ö°æÉç1999Äê
3.¡¶VisualBasic6.0³ÌÐòÉè¼Æ¡·ÁõÊÀ·åÖÐÑë¹ã²¥µç´ó³ö°æÉç2003Äê
4.¡¶VisualBasic³ÌÐòÉè¼Æ¡·³ÂÃ÷ÖÐÑë¹ã²¥µç´ó³ö°æÉç2001Äê
5.¡¶Èí¼þ¹¤³Ì¡·ÑîÎÄÁúµç×Ó¹¤Òµ³ö°æÉç2001Äê
??
??
??
??
1
ÉÏһƪ£º
vbͨѶ¼¹ÜÀíÐÅϢϵͳvb+accessÔ´´úÂë+¿ÉÖ´ÐгÌÐò+ÂÛÎÄ+¿ªÌⱨ¸æ+ÍâÎÄ·Òë(ÂÛÎĺͳÌÐò)
ÏÂһƪ£º
ºÚÉ«µÄÉãÓ°Íøվչʾ¹¦ÄÜÇ¿´óÍøÉÏÉÙ¼ûjs¼¼ÊõÇ¿º·