Ïë×öÒ»¸öVB¶¨Ê±¿ª»ú²¢ÇÒ×Ô¶¯ÔËÐÐijϵͳµÄ³ÌÐò£¬²»ÖªµÀÈçºÎ×ö£¬Çë¸÷λ´óÏÀ°ï°ï棡£¡
ÈçÎÒÏëÿÌìÔçÉÏ8µã¶¨Ê±¿ª»ú£¬¿ª»úºóÂíÉÏÆô¶¯×ÔдµÄÒ»¸öСϵͳ£¬ÔËÐÐϵͳÄÚÖ¸¶¨µÄÄ£¿é£¨²»¹ý½øÈëÕâ¸öСϵͳ»¹ÐèÒªÓû§
ÃûºÍÃÜÂ룩
Ó¦¸ÃÔõô×ö£¿
ͨ¹ýCMOSÉèÖÃʵÏÖ¶¨Ê±¿ª»úµÄÉèÖùý³ÌÈçÏ£ºÊ×ÏȽøÈë¡°CMOS SETUP¡±³ÌÐò(´ó¶àÊýÖ÷°åÊÇÔÚ¼Æ ......
Dim USERNAME As String
Dim BRIDATE As Data
Dim SEX As String
Dim NUM As Integer
//////////////////Òª²åÈëµÄÊý¾ÝÔÚÉϱß4¸ö¶¨ÒåµÄ±äÁ¿Öдæ·Å
±í×Ö¶ÎÃû £º±àºÅ£¬ÐÕÃû£¬³öÉúÈÕÆÚ£¬ÐÔ±ð ·Ö±ð¶ÔÓ¦ NUM USERNAME BRIDATE SEX
Òª°ÑÕâ¸ö¼Ç¼¼Óµ½±íµÄĩβ ¸ÄÔõô×ö ÓÈÆäÊÇ insert into ºó Êý¾Ý¸ñʽÎÊÌâ
ÇëÖ¸½Ì
......
RaiseEvent Sms_income(Me, e)
ReDim phonebook(9999)
Delegate Sub sms_1(ByVal sender As Object, ByVal fe As sms_income_EventArgs)
Public Event Sms_income As sms_1
ÉÏÃæÕâЩVBÓï¾ä
ÔÚC#ÖÐÈçºÎдÄØ
лл°¡
ReDim ÊÇvbÌØÓеĶ«Î÷£¬C#ûÓÐÓëÖ®¶ÔÓ¦µÄ¹Ø¼ü×Ö
ÒýÓÃ
ReDim ÊÇvbÌØÓеĶ«Î÷£¬C#ûÓÐÓëÖ®¶ÔÓ¦µÄ¹Ø¼ ......
ÎÒÏëÇë½Ì¸÷λ¸ßÊÖһЩÎÊÌ⣬¼ÙÉèÎÒÏëµ÷Óôò¿ª´°¿ÚÑ¡Ôñ×Ô¼ºÒªµÄÎļþ£¬È»ºó¸´ÖÆij¸öÎļþµ½C:\aaaÎļþĿ¼Ï£¬²¢ÇÒ¸ÄÃû¸ÃÔõôдÄØ£¿×ÊÔ´ÀïÕÒÁ˺ö࣬µ«ÊǺÃÏñûÓÐÕÒµ½ÀàËƵÄ
°ï¶¥£¡
ÒýÓÃ
°ï¶¥£¡
лл~~
ʹÓÃCommonDialog¿Ø¼þʵÏÖÑ¡ÔñÎļþµÄ¶Ô»°¿ò¡£
CommonDialog1.ShowOpen
FileCopy CommonDialog1.FileNmae, " ......
Çë½Ì´ó¼ÒÁ½¸öÎÊÌâ
1£ºµçÄÔ¿ª»úʱ×Ô¶¯µ÷ÓÃÎÒÓÃvb±àºÃµÄÈí¼þ£¿
2: µçÄԹػúʱ×Ô¶¯Ö´ÐÐÎÒµÄvbÈí¼þÖйرհ´Å¥µÄ´¥·¢Ê¼þ£¿
лл´ó¼Ò£¡ »á¾¡¿ì½áÌù¸ø·Ö
1¡¢Ìí¼ÓÄãµÄÈí¼þ³ÌÐòµ½×¢²á±íµÄRunÀïÃ棬ÍøÉÏ´úÂëÒ»´ó¶Ñ
2¡¢¹Ø»úµÄʱºò£¬ÄãµÄ³ÌÐò»áÖ´ÐÐQueryUnloadʼþ£¬ÄãÔÚÕâ¸öʼþÀïÃæ¸É»î¼´¿É¡£
(Ò²¿ÉÒÔ²¶»ñ¹Ø»úÏûÏ¢£¬wMsgΪ22£¬ ......
²éѯ½á¹ûÓ¦¸Ã»áÓÐÁ½Ìõ¼Ç¼£¬ÎÒϱߵĴúÂëÖ»ÄܶÁ³öµÚÒ»ÌõÊý¾Ý£¬ÎªÊ²Ã´£¿
rd.NextResultºÃÏñÎÞЧµÄ£¬ÒªÈçºÎʹÓã¿
VB.NET code:
Dim rd As SqlClient.SqlDataReader = cmd.ExecuteReader()
Dim p As String
p = "---------------------------------------------------- ......