Çó½ÌÒ»¸övbµÄÓï·¨ÎÊÌâ - VB / »ù´¡Àà
Çó½ÌÒ»¸övbµÄÓï·¨ÎÊÌ⣺ÏÂÃæÊÇÒ»¸öÑéÖ¤Óû§ÃÜÂëµÄº¯Êý£¬ËÄܸæËßÎÒÕâ¸öÓï¾äÊÇʲôÒâ˼¡°PassIsTrue = (Rs(0).Value = 1)¡±£¬ÄѵÀÊÇvbÖÐifÅжϼò»¯Ð´·¨£¿
''''''''''''''''''''''''''
Public Function PassIsTrue(ByVal strUname As String, ByVal strPass As String, Optional ByVal strTable As String = "Users") As Boolean
Dim Rs As Recordset
Set Rs = g_Conn.Execute("SELECT COUNT(*) from " & strTable & " Where UserName='" & strUname & "' and Upass='" & strPass & "'")
PassIsTrue = (Rs(0).Value = 1)
Set Rs = Nothing
End Function
Rs(0).Value = 1 ·µ»ØÒ»¸ö²¼¶û±í´ïʽ true or false
È»ºó¸³Öµ¸øPassIsTrue
PassIsTrue = (Rs(0).Value = 1
·µ»ØÒ»¸ö²¼¶ûÖµ TRUE or FALSE ! £¨Õæ¼ÙÁ½¸öÖµ£©
if ÅжÏÓï¾äµÄ·µ»Ø½á¹ûÀàËÆËü Ìõ¼þҪô³ÉÁ¢£¬ÒªÃ´²»³ÉÁ¢£¨Ò²ÊÇÁ½¸öÖµ£©
ok£¬ÔÀ´£¨£©ÄÚÊǸö¹ØÏµ±í´ïʽ£¬Ð»Ð»Â¥É϶þλÁË£¡£¡£¡£¡
Ïà¹ØÎÊ´ð£º
ÎÒÔÚÀàÖÐÓÐÒ»¸öº¯Êý
Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean
siteconfigÊÇÎÒ×Ô¶¨ÒåÀàÐ͵ÄÊý¾Ý£¬ÎªÊ²Ã´»áÌáʾ¡°Ö»ÓÐÔÚ¹«¹²¶ÔÏóÄ£¿éÖж ......
ΪʲôÎÒÓÃform.showºÍform.hide¶à´ÎÁ¬½ÓÁËÁ½¸ö´°¿ÚÖ»ÄÜ»¥»»Á´½ÓÁ½´Î°¡£¿
´úÂë¿´¿´
ÕÕµÀÀíform.show û´ÎÊýÏÞ¶¨µÄ°É
ÎÒÒ²¿ì·èÁË¡£
Â¥Ö÷ÖªµÀÔõô·¢Ìùô£¿
ÒýÓÃ
ÎÒÒ²¿ì·èÁË¡£
Â¥Ö÷ÖªµÀÔõô·¢Ìùô£¿
Â¥Ö÷Ò² ......
Private Sub Command1_Click()
Dim MyString() As String
Open "a.xml" For Binary As #1 ' ´ò¿ª¸Õ´´½¨µÄÎļþ¡£
ReDim MyString(LOF(1) - 1)
Put #1, , MyRecord ' ¶ÁÈëËùÓÐ×Ö·ûµ½±äÁ¿ÖÐ ......
vbÖÐ ÏÖÔÚÎÒÒª°ÑÊý¾Ý¿âÀï´æ´¢µÄÒ»¸ö¸½¼þµÄÄÚÈÝÌæ»»ÁË£¬Ôõô×ö£¬Ö»ÊÇÌæ»»ÎÒÖ¸¶¨µÄλÖ㬲»ÊÇÈ«²¿Ìæ»»
Ç뽫ÎÊÌâ˵Ã÷°×£¬´æ´¢×ֶθñʽ£¬Èç¹ûÊÇBinary¸ñʽµÄ±È½ÏÂé·³£¬Èç¹ûÊÇ×Ö´®£¬Ö±½ÓÌæ»»¡£×îºÃ²»Òª½øÐÐÖ¸¶¨Î»ÖÃÌæ»»¡ ......
¸Õ½¨ÁËÒ»¸öȺ:ÖÐɽVB±à³Ì(105787219)
ÓÐÔÚÖÐɽ¼°ÖÐɽÖܱߵijÌÐòÔ±Çë¼ÓÈë.´ó¼ÒÒ»Æð̽ÌÖÎÊÌâ.ºÏ×÷ÏîÄ¿.
¾¡¹Ü°³²»ÊÇÖÐɽµÄ£¬Ò²½øÀ´²ä·Ö¡¡
·ðɽµÄÐÐÂð,¹ãÖݵÄÐÐÂð?
ÓÑÇéÖ§³Ö
»Ø¸´ÄÚÈÝÌ«¶ÌÁË£¡
°ï¶¥ ......