VB µÇ¼ - VB / ÍøÂç±à³Ì
user_name = Trim(tbname.Text)
pwd = Trim(tbPwd.Text)
If user_name <> "" Then
Adodc1.Recordset.MoveFirst '´ÓµÚÒ»Ìõ¼Ç¼¿ªÊ¼²é¿´
Adodc1.Recordset.Find ("user =" & "'" & user_name & "'")
If user_name = Adodc1.Recordset.Fields(0) And pwd = Adodc1.Recordset.Fields(2) Then
MsgBox "µÇ¼³É¹¦£¡"
USER_FUN.Show
ElseIf user_name <> Adodc1.Recordset.Fields(0) Then
MsgBox "Óû§Ãû´íÎó£¡", vbOKOnly + vbInformation, "Ìáʾ"
tbname.Text = ""
tbPwd.Text = ""
tbname.SetFocus
ElseIf pwd <> Adodc1.Recordset.Fields(2) Then
MsgBox "Óû§Ãû´íÎó£¡", vbOKOnly + vbInformation, "Ìáʾ"
tbPwd.Text = ""
Else
MsgBox "ϵͳ³öÏÖÎÊÌ⣡", vbCritical, "¾¯Ê¾"
End If
End If
ÔËÐÐʱÀϳöÏÖÓû§Ãû´íÎóµÄÌáʾ£¬ÕâÊÇʲôÔÒò£¿
²¹³ä£º
adodc1ÔÚÊôÐÔÖÐÉèÖÃÁËÁ¬½ÓSQL£¬
tbname£¬tbpwd¸úÊý¾Ý¿âuser±íµÄname,pwdÏîÔÚÊôÐÔÖÐÒ²ÉèÖÃÁËÁ¬½Ó
ÎÒ°ÑÃÜÂë´íÎóʱµÄÌáʾ¸ÄÁË£¬µ«»¹ÊÇÌáʾÓû§Ãû´íÎ󣬿ÉÄÜÊÇÊý¾Ý¿âÖеÄÄÚÈÝ´æÔÚ¿Õ¸ñ
Ôõô°ÑÊý¾Ý¿âÖеÄÄÚÈÝ´æÔڵĿոñÈ¥µãÄØ£¬Ò²ÓÃtrimÂð
ÊÇÁËÏ£¬¼ÓÉÏtrimÔËÐÐÍêÈ«ÕýÈ·
Ïà¹ØÎÊ´ð£º
ΪʲôÎÒÓÃform.showºÍform.hide¶à´ÎÁ¬½ÓÁËÁ½¸ö´°¿ÚÖ»ÄÜ»¥»»Á´½ÓÁ½´Î°¡£¿
´úÂë¿´¿´
ÕÕµÀÀíform.show û´ÎÊýÏÞ¶¨µÄ°É
ÎÒÒ²¿ì·èÁË¡£
Â¥Ö÷ÖªµÀÔõô·¢Ìùô£¿
ÒýÓÃ
ÎÒÒ²¿ì·èÁË¡£
Â¥Ö÷ÖªµÀÔõô·¢Ìùô£¿
Â¥Ö÷Ò² ......
dim a as string,b as string£¬c as string
a="¹¤³Ì±àºÅ,µ¥Î»¹¤³ÌÃû³Æ,·Ö²¿¹¤³Ì±àºÅ"
b="µ¥Î»¹¤³ÌÃû³Æ"
c="µ¥Î»"
Ôõô²ÅÄÜÅжϳöa×Ö·û´®ÖдæÔÚb×Ö·û´®£¬¶ø²»´æÔÚc×Ö·û´®
¿´¿´i ......
ÎÊÌ⣺
ÏÖÔÚAccessÊý¾Ý¿âÖÐÓÐÁ½ÕűíTableAºÍTableB
TableAÖÐÓмǼÈçÏÂ:
×Ö¶Î1(Name) ×Ö¶Î2(Num)
A 3
A 4
B 6
... ......
ÎÒµÄÒªÇóÊÇ£ºÍ¨¹ýץȡ±ðµÄ³ÌÐòÉϵıí¸ñµÄ¾ä±ú£¬È»ºó¶ÁÈ¡Õâ¸ö±í¸ñµÄÄÚÈÝ¡£
±í¸ñ¾ä±ú£¨ÀàÃû£ºMSFlexGridWndClass£©ÎÒÒÑ×¥µ½£¬½ÓÏÂÀ´ÈçºÎ¶ÁÈ¡±í¸ñµÄÄÚÈݾͲ»»áÁË£¿ÇóÖú¡£
ÄܰѴúÂë·¢À´Ñ§Ï°Ï²»£¿
244326867@qq.com ......
ÏÖÔÚСµÜÔÚÓÃvb6.0±àд³ÌÐò£¬Óöµ½Òì²½µÄÎÊÌ⣬¾ßÌåÈçÏ£º
µã»÷°´Å¥Aʱ£¬µ÷ÓÃÍⲿµÄdll(C++)£¬´ËdllÊÇͬ²½·µ»ØÊý¾Ý¡£´ËʱÈç¹ûÔ¶³ÌδÏìÓ¦£¬ÎҵijÌÐò½çÃæ¾Í»á¿¨ËÀ¡£Òò´ËÎÒÏëµ½ÓÃtimerÀ´ÊµÏÖÒì²½ £¬µ«ÊDz»Çå³þ¾ßÌåµÄÊµÏ ......