¿é¸ø³ö×ã¹»ÏêϸµÄ¹ý³ÌÐÔÃèÊö¡£Ö÷ÒªÈÎÎñÈçÏ£º¢ÙΪÿ¸öÄ£¿éÈ·¶¨²ÉÓõÄËã·¨£¬Ñ¡ÔñijÖÖÊʵ±µÄ¹¤¾ß±í´ïËã·¨µÄ¹ý³Ì£¬Ð´³öÄ£¿éµÄÏêϸ¹ý³ÌÐÔÃèÊö£»¢ÚÈ·¶¨Ã¿Ò»Ä£¿éʹÓõÄÊý¾Ý½á¹¹£»¢ÛÈ·¶¨Ä£¿é½Ó¿ÚµÄϸ½Ú£¬°üÀ¨¶ÔϵͳÍⲿµÄ½Ó¿ÚºÍÓû§½çÃ棬¶ÔϵͳÄÚ²¿ÆäËüÄ£¿éµÄ½Ó¿Ú£¬ÒÔ¼°Ä£¿éÊäÈëÊý¾Ý¡¢Êä³öÊý¾Ý¼°¾Ö²¿Êý¾ÝµÄÈ«²¿Ï¸½Ú¡£¢ÜҪΪÿһ¸öÄ£¿éÉè¼Æ³öÒ»×é²âÊÔÓÃÀý£¬ÒÔ±ãÔÚ±àÂë½×¶Î¶ÔÄ£¿é´úÂ루¼´³ÌÐò£©½øÐÐÔ¤¶¨µÄ²âÊÔ£¬Ä£¿éµÄ²âÊÔÓÃÀýÊÇÈí¼þ²âÊԼƻ®µÄÖØÒª×é³É²¿·Ö£¬Í¨³£Ó¦°üÀ¨ÊäÈëÊý¾Ý£¬ÆÚÍûÊä³öµÈÄÚÈÝ¡£
3£®2£®2ÏêϸÉè¼ÆµÄ·½·¨
³ÌÐòÁ÷³Ìͼ¡¢N-Sͼ¡¢PADͼ¡¢IPOͼ
±¾ÏµÍ³ÔÚ¿ª·¢¹ý³ÌÖÐËù²ÉÓõÄÏêϸÉè¼Æ·½·¨ÎªIPOͼ£º
1¡¢ÐÅϢά»¤Ä£¿éIPOͼ£º
2¡¢²éѯģ¿éIPOͼ£º
3¡¢Óû§¹ÜÀíÄ£¿éIPOͼ£º
µÚËÄÕÂÊý¾Ý¿âÉè¼Æ
4£®1Êý¾Ý¿âAccess¼ò½é
Êý¾Ý¿âµÄ¸ÅÄî
Êý¾Ý¿âÊÇÒ»ÖÖ´æ´¢Êý¾Ý²¢¶ÔÊý¾Ý½øÐвÙ×÷µÄ¹¤¾ß¡£Êý¾Ý¿âµÄ×÷ÓÃÔÚÓÚ×éÖ¯ºÍ±í´ïÐÅÏ¢£¬¼ò¶øÑÔÖ®£¬Êý¾Ý¿â¾ÍÊÇÐÅÏ¢µÄ¼¯ºÏ¡£¼ÆËã»úµÄÊý¾Ý¿â¿ÉÒÔ·ÖΪÁ½Àࣺ·Ç¹ØϵÊý¾Ý¿â£¨flat-file£©ºÍ¹ØϵÊý¾Ý¿â£¨relational£©¡£¹ØϵÊý¾Ý¿âÖаüº¬Á˶à¸öÊý¾Ý±íµÄÐÅÏ¢£¬Êý¾Ý¿âº¬Óи÷¸ö²»Í¬²¿·ÖµÄÊõÓÏó¼Ç¼¡¢ÓòµÈ¡£
н¨Ò»¸öÊý¾Ý¿â
´´½¨ÈκÎÒ»¸öÊý¾Ý¿âµÄµÚÒ»²½ÊÇ×ÐϸµÄ¹æ»®Êý¾Ý¿â£¬Éè¼Æ±ØÐëÊÇÁé»îµÄ¡¢ÓÐÂß¼µÄ¡£´´½¨Ò»¸öÊý¾Ý¿â½á¹¹µÄ¹ý³Ì±»ÈÏΪÊÇÊý¾ÝÄ£ÐÍÉè¼Æ¡£
1£®±êʶÐèÒªµÄÊý¾Ý£»
2£®ÊÕ¼¯±»±êʶµÄ×ֶε½±íÖУ»
3£®±êʶÖ÷¹Ø¼ü×Ö×ֶΣ»
4£®»æÖÆÒ»¸ö¼òµ¥µÄÊý¾Ýͼ±í£»
5£®¹æ·¶Êý¾Ý£»
6£®±êʶָ¶¨×ֶεÄÐÅÏ¢£»
7£®´´½¨ÎïÀí±í¡£
ÐÞ¸ÄÒѽ¨µÄÊý¾Ý¿â
Êý¾Ý¿âµÄÐ޸ķÖΪ£ºÌí¼Ó¡¢±à¼ºÍɾ³ý¼Ç¼¡£ÕâÈýÖÖ²Ù×÷¾ù¿ÉÓÉVisualBasic´´½¨µÄ³ÌÐòÀ´Íê³É£¬ÏÂÃæµÄÕ½ڽ«ÏêϸÃèÊöʵÏֵľßÌå·½·¨¡£
ʵÏÖÊý¾Ý¿âÖ®¼äµÄÁªÏµ
Êý¾Ý¿âÖ®¼äµÄ¹ØϵָÃ÷Á½¸ö¿âÖ®¼ä¹²ÏíÒ»¸ö¹²Í¬µÄ¹Ø¼ü×ÖÖµ¡£Ò»¸öÁ¬½ÓÊÇÖ¸Ò»ÖÖÐéÄâµÄ±í£¬ÕâÖÖ±íÊÇÔÚµ±Óû§ÒªÇó´ÓÏ໥¹ØÁªµÄ¸÷¸ö²»Í¬µÄ±íÖлñÈ¡ÐÅϢʱ½¨Á¢µÄ£¬¹Ø¼ü×Ö¶ÎÓÃÓÚÔÚÏ໥Á¬½ÓµÄ²»Í¬±íÖвéÕÒÆ¥ÅäµÄ¼Ç¼¡£Ò»¸ö¸ü¸ß¼¶µÄÁ¬½ÓÐÎʽ³ÆΪ×ÔÁ¬½Ó¡£ÕâÖÖÁ¬½ÓÊÇÖ¸Ò»¸ö±í±»Á¬½Óµ½Ëü×Ô¼ºµÄÒ»¸ö×ֶΣ¬»òÔÚ²»Í¬µÄ¼Í¼ÖÐÓÉÖظ´Êý¾ÝµÄ×éºÏ×ֶΡ£Êý¾Ý¿âÖÐÓÐÈýÖÖ²»Í¬ÀàÐ͵Ĺؼü×Ö£ºÖ÷¹Ø¼ü×Ö¡¢×éºÏ¹Ø¼ü×ÖºÍÍâ¹Ø¼ü×Ö¡£ÔÚ±íÖÐʹÓõĹؼü×ÖÀàÐÍÓÃÓÚÃèÊö¿â±íʾʲôÒÔ¼°ÔÚÊý¾Ý¿âÖÐÈçºÎÓëÆäËüµÄ¿â½¨Á¢¹Øϵ¡£
4£®2Êý¾Ý¿âÐèÇó·ÖÎö
¸ù¾Ý±¾ÈËͨѶ¼¹ÜÀíµÄʵ¼ÊÇé¿ö£¬·ÖÎöµÃµ½ÈçϵÄE-Rͼ¡£
passwordtable񡜧
table3񡜧
4£®3Êý¾Ý¿âÐèÇó·ÖÎö
ÏêϸÊý¾Ý¿â½á¹¹ÈçÏ¡£
passwordtable񡜧
table3񡜧
²âÊÔÓÃÀýÏê¼û±í
µÚÎåÕÂÏêϸÉè¼Æ
5£®1ϵͳµÇ¼ģ¿é
1£®Á÷³Ìͼ
2£®½çÃ棺
½çÃæ°üÀ¨µÄ¿Ø¼þÓбêÇ©¡¢Îı¾¿ò¡¢×éºÏ¿ò¡¢ÃüÁî°´Å¥µÈ¿Ø¼þ¡£
3£®ÊµÏÖ¹ý³Ì£º
µÚÒ»²½½«ËùÐèµÄ¿Ø¼þ·Åµ½´°ÌåµÄÏàӦλÖã»·½·¨£ºÊ×ÏÈÔÚ"¹¤¾ßÏä"ÖÐÑ¡ÖÐËùÐèµÄ¿Ø¼þͼ±ê£¬È»ºóÔÚ±íµ¥µÄÇ¡µ±Î»ÖÃÉϵ¥»÷Êó±ê²¢Í϶¯Êó±ê£¬¼´¿É°ÑÓÉËùÑ¡È¡µÄ¿Ø¼þÉú³ÉµÄ¶ÔÏóÌí¼Óµ½´°ÌåÉÏ¡£ÈçÏÂͼ£º
µÚ¶þ²½£¬Ñ¡Ôñ´°Ìå»ò¿Ø¼þ½øÐÐÊôÐÔÉèÖã¬ÈçͼΪ"È·¶¨"°´Å¥µÄÊôÐÔÉèÖýçÃæ:
µÚÈý²½Ë«»÷ÏàÓ¦µÄ¿Ø¼þ£¬ÔڿؼþµÄÏàÓ¦¹ý³ÌÖбàд´úÂ룺
Èç´Ë´°ÌåÉÏ"È·¶¨"Óë"È¡Ïû"°´Å¥µÄ´úÂëÈçÏ£º
PrivateSubcmdOK_Click()
'¼ì²éÕýÈ·µÄÃÜÂë
Dimpa,pt,pa1,pt1AsString
DimiAsInteger
ret.MoveFirst
ret.Find"name='"&Combo1.Text&"'"
pt=ret("password")
pa=pt
IftxtPassword=paThen
'frmSplash.show
LoginSucceeded=True
Me.Hide
frmMain.Show
UnloadMe
Else
MsgBox"ÎÞЧµÄÃÜÂ룬ÇëÖØÊÔ!",,"µÇ¼"
LOGINNO=LOGINNO+1
IfLOGINNO>2Then
MsgBox"¶Ô²»Æð£¬Äú²»ÄÜʹÓøÃϵͳ£¡",64,"µÇ¼ʧ°Ü"
UnloadMe
UnloadfrmLogin
ExitSub
EndIf
txtPassword.SetFocus
SendKeys"{Home}+{End}"
EndIf
EndSub
PrivateSubcmdCancel_Click()
'ÉèÖÃÈ«¾Ö±äÁ¿Îªfalse
'²»Ìáʾʧ°ÜµÄµÇ¼
LoginSucceeded=False
Me.Hide
UnloadMe
EndSub
´Ë³ÌÐò¶ÎÖУ¬"IF"Óï¾äµÄ×÷ÓÃÊÇÅжÏÓû§ÊäÈëµÄÓû§ÃûÓëÃÜÂëºÍÊý¾Ý¿âµÄÊÇ·ñÏàͬ£¬Èç¹ûÏàͬ£¬ÔòÖ´ÐÐ
ÉÏһƪ£º
vbͨѶ¼¹ÜÀíÐÅϢϵͳvb+accessÔ´´úÂë+¿ÉÖ´ÐгÌÐò+ÂÛÎÄ+¿ªÌⱨ¸æ+ÍâÎÄ·Òë(ÂÛÎĺͳÌÐò)
ÏÂһƪ£º
¶Ô˶ʿ±ÏÒµÉúǨÒÆʧҵĿµÄµØµÄʵ֤ÑÐÌÖ