VBÖйØÓÚÃÜÂëÈÏÖ¤
ÔÚÎҵijÌÐòÀ½øÈ롰ɾ³ýÓû§¡±£¬"Ìí¼ÓÓû§"´°Ìå֮ǰ¾ùÏȵ¯³öÒ»¸ö´°ÌåÒªÇóÊäÈë¹ÜÀíÔ±ÃÜÂ룬ÊäÈëÕýÈ·Ö®ºó²ÅÄܽøÈëÏàÓ¦½çÃæ£¬ÈçºÎÉè¼Æ´úÂ룿
¶ÁÊý¾Ý¿âÀïÃæ¹ÜÀíÔ±µÄÃÜÂë
È»ºó¸úÊäÈëµÄÄÚÈݱȽÏ
ºÜ¼òµ¥µÄ¶«Î÷ÔõôҲҪ´úÂë
²»ÊÇ£¬ÎÒÊÇÒªÊäÈëÕýÈ·Ö®ºóµ¯³ö²»Í¬µÄ´°Ì壬±ÈÈ磬ÎÒµãµÄÊÇ¡°É¾³ýÓû§¡±Õâ¸öʱºòµ¯³ö´°ÌåÒªÇóÊäÈë¹ÜÀíÔ±ÃÜÂ룬ÊäÈëÕýÈ·Ö®ºó¾Í½øÈëɾ³ýÓû§µÄ½çÃæ£¬µ«ÊÇÈç¹ûÎÒµãµÄÊÇ¡°Ìí¼ÓÓû§¡±£¬Õâ¸öʱºòµ¯³öÒªÇóÊäÈë¹ÜÀíÔ±ÃÜÂ룬ÊäÈëÕýÈ·Ö®ºóÊǽøÈëÌí¼ÓÓû§½çÃæ£¬ÈçºÎÔÚÊäÈë¹ÜÀíÔ±ÃÜÂëÕýÈ·Ö®ºó¸ù¾Ý²»Í¬µÄ²Ù×÷½øÈ벻ͬµÄ½çÃæ£¿
ÔÚͨÓÃÀﶨÒåÒ»¸ö±äÁ¿,µã¡°É¾³ýÓû§¡±µÄʱºò ÓÃÕâ¸ö±äÁ¿¼Ç¼һÏÂÄã²Ù×÷µÄÊÇɾ³ýÓû§»¹ÊÇÌí¼ÓÓû§
È»ºóÔÚÅжÏÕýÈ·Óë·ñºóÔÙÇø·Ö
ʹÓÃAccessÊý¾Ý¿â¼´¿É£¬Êý¾Ý¿âÖÐÉè¼ÆÒ»¸ö±í£¬±íÖк¬ÓУºÓû§ÃûºÍÓû§ÃÜÂëÁ½¸ö×ֶΣ¬´ò¿ªÊ±½øÐÐÌõ¼þ²éѯ¼´¿É£¬Èç¹ûÂ¥Ö÷ÊdzõѧÕߵϰ£¬½¨ÒéÄãÏÈ¿´Ò»Ð©¹ØÓÚÊý¾Ý¿â±à³Ì·½ÃæµÄ»ù´¡Êé¼®¡£
1.Êý¾Ý¿âÖмǼÕ˺ÅÃÜÂë;
2.Èç¹û½öÐèÑéÖ¤¹ÜÀíÔ±ÃÜÂë,¶ø²»ÓÃÊäÈëÕ˺Å,Ö±½ÓÓøöinputbox¾Í¿ÉÒÔÁË;·ñÔò,ÐèŪһ¸öСµÄµ¯³ö´°¿ÚÑéÖ¤;
3.¸ù¾Ý²»Í¬µÄÐèÒª(ɾ³ýÓû§orÌí¼ÓÓû§)½øÈ벻ͬµÄ²Ù×÷½çÃæ;
Äã¿ÉÒÔÔÚµãµÄÊÇ¡°É¾³ýÓû§¡±°´Å¥µÄʼþÀïÉèÖÃתµ½ÄǸö´°Ì壬µ«ÔÚÕâ֮ǰҪ¼ÓÉÏÑéÖ¤Óû
Ïà¹ØÎÊ´ð£º
ÎÒÓÃVB°´MVCµÄ¹¹¼Üд×é¼þ¹©ASPµ÷ÓÃ
BLL²ã
VB code:
Private Dal As New moonPotato_DAL
Public Sub inSertUser(Model As moonPotato_Model)
Dal.InSertCls (Model)
End Sub
ASPÖе÷ÓÃ
VB c ......
ÔÚ×öÊ÷ÐÍĿ¼ʱ³öÏֵģ¬ÒÔÏÂÊDz¿·Ö´úÂë
VB code:
Function TreeMenu(id)
sql = "select * from Class where CateID=1"
rs.Open sql, cover, 1, 1
While Not rs.EOF
Response.Write rs(&quo ......
Ò»¸ö´°Ì壬3¸ödatagrid£¬¹²¼Æ3¸ö±í£¬Ò»¸ö±í¶ÔÓ¦Ò»¸ödatagrid£¬µã»÷datagrid1(´ò¿ª¸Ã´°ÌåʱÒѾ±»¸³Öµ)£¬¸ù¾Ýdatagrid1ÖеÄij¸öÖµ£¬²éѯ±í2ºÍ±í3£¬²¢°Ñ·ûºÏÌõ¼þµÄ·Ö±ð¸³Öµ¸ødatagrid2ºÍdatagrid3£¬ÒªÔõôд
VB ......
´úÂëÈçÏ£º
Private Sub MSFlexGrid1_SelChange()
If MSFlexGrid1.Rows = 1 Then Exit Sub
If MSFlexGrid1.Row = 0 Then Exit Sub
grid_row = MSFlexGrid1.Row
......