vbѧϰ7ÌìºóÓöµ½µÄÎÊÌâ
ÎÒÀûÓù¤×÷ÒµÓàʱ¼äѧÁ˵ãVB£¬¾ÍѧÁËÒ»¸öÐÇÆÚ£¬Ïë×ö¸ö³ÌÐò£¬½á¹ûµ÷ÁË2¸öСʱҲûµ÷³öÀ´£¬Çë¸ßÊÖ¸øÎÒÖ¸µãÏÂÎҵijÌÐòΪʲôÓм¸¸ö²»ÄÜʵÏÖ£¬¸ÃÔõôÐ޸ģ¿
ÓÉÓÚÎÒûʲô±à³Ì»ù´¡£¬¿ÉÄܳÌÐòÖÐÓкܶàÔÔòÐÔ´íÎó£¬Çë²»Òª³°Ð¦ÎÒ
ÎÒµÄÎÊÌâÓúìɫעÊͱêʾ³öÀ´ÁË
1.¼Ç¼´òÖеÄÊý¾ÝΪʲôÏÔʾ×ܲ¿ÕýÈ·
2.¼Ç¼δ´òÖеÄÊý¾ÝΪʲô×ÜÏßÊDz»ÕýÈ·
3.ÎÒÍ˳öµÄʱºò£¬ÔõôÄÜÕæÕýÍ˳ö
4.»÷ÖÐ×Ö»á³öÏÖ±¬Õ¨Í¼Æ¬µÄ£¬ÄÇÎÒkeyupµÄʱºòÏûʧ£¬¸ÃÔõô×ö£¿
³ÌÐò´úÂëÈçÏ£º
Private Sub Form_Load()
Dim j As Integer 'Ñ»·Í³¼ÆLabel3
Dim keychange As String '¶¨ÒåËæ¼´³öÏÖµÄ×Ö
Record = 0 '¼Ç¼´òÖеÄ×Ö
missword = 0 '¼Ç¼δ´òÖеÄ×Ö
Image1.Visible = False
For j = 0 To Label3.Count - 1
Label3(j).Top = 0 - 600 * Rnd 'ÒÀ´ÎÉèÖÃÿ¸ö×ֵĸ߶È
Label3(j).Left = 4800 * Rnd 'ÒÀ´ÎÉèÖÃÿ¸ö×ÖµÄλÖÃ
If Form2.Option1.Value Then
keychange = Chr((97 - 65 + 1) * Rnd + 65) 'Ëæ¼´³öÏÖ×ÖĸµÄAssciÂë,Ð
Ïà¹ØÎÊ´ð£º
ÔÚÏÂÊÇvbµÄÐÂÊÖ£¬Ïëд¶Î³ÌÐò£¬ÔÚvbÖУ¬Ê¹ÓÃwscriptµ÷ÓÃһЩÍⲿµÄÃüÁµ«ÊdzÌÐòÖ´ÐÐÒ»Ö±ÓдíÎó£¬Çë¸÷λ¸ßÊÖ°ïæ½â´ðÏ£¬Ð»Ð»¡£
´úÂëÈçÏ£º
VB code:
Private Function getFile_CMD(filename, filepath) As Bo ......
µÚÒ»´Î½Ó´¥CrystalReport
¼±Ñ°ÕÒVb.net Access ͨ¹ý²éѯ³öµÄÊý¾ÝÊä³öµ½CrystalReportµÄÀý×Ó.
ÓеÄÅóÓÑÂé·³·¢À´Ñ§Ï°.¶àл!
¸úÄãµÄÒªÇó²î²»¶à£¬²Î¿¼Ò»Ï£º
http://topic.csdn.net/u/20090823/21/87af02d3-f4ca-480 ......
ÎÒÔÚÓÃVBдһ¸ö½«ÊÓÆµÎļþÉÏ´«µ½Ô¶³ÌÊý¾Ý¿âµÄС³ÌÐò£¬ÏÖÔÚÏëÒªÓýø¶ÈÌõÀ´ÏÔʾµ±Ç°ÉÏ´«µÄ½ø¶È£¬ÇëÎÊÒªÔõô×öÄØ£¿ÎÒÊǸöÐÂÊÖ£¬ËùÒÔÂé·³´ó¼Ò°ÑÒâ¼ûдÇå³þһЩ£¬ÓдúÂë×îºÃÀ²£¬Ð»Ð»£¡
ÒªÍêÈ«ÕýÈ·±È½ÏÀ§ÄÑ¡£
¹À¼ÆÏ° ......
Private Sub Form_Load()
recs = Adodc1.Recordset.RecordCount 'Çóµ±Ç°¼Ç¼Êý
If recs > 0 Then 'ÒÑÓп¼Éú
Adodc1.Recordset.MoveLast 'ÒÆµ½×îºóÒ»Ìõ¼Ç¼
num = V ......
¸÷λ¸ßÊÖ£¬Ð¡µÜÏëдһ¸ö³ÌÐò£¬¶ÁÈ¡·þÎñÆ÷ÉϵÄÒ»¸ö¹²ÏíÎļþ£¬µ±Õâ¸öÎļþ±»Ð޸ĺ󣬽«´ËÎļþ¿½±´µ½±¾µØ¼ÆËã»ú¸²¸Ç±¾µØÔÀ´µÄÎļþ¡£Çë¸÷λ´óÏÀд¶Î´úÂ룬ºÍ½âÊÍ£¬Ð»Ð»£¡
ÅжÏÎļþ´óС»òÐÞ¸ÄÈÕÆÚ£¬²»Ò»Ñù¾Í¿½±´µ½±¾µØ
......