VBͼÏñ´¦Àí¶à´ÎundoÈçºÎʵÏÖ
×ö±ÏÒµÂÛÎĵÄʱºòÓöµ½µÄÒ»¸öÎÊÌ⣬Çë½Ì¶¹°êÉϵÄÍøÓѲÅÓÐÁ˴𰸡£Ð»Ð»Õâλ½Ð“Òì²Ê”µÄÅóÓÑ¡£ÄóöÀ´Óë´ó¼Ò·ÖÏí¡£
¡¡¡¡ÓÃVB×öͼÏñ´¦ÀíÈí¼þµÄ±ÏÒµÂÛÎÄ£¬Óöµ½Ò»¸öÎÊÌâ¡£¼ÓÔØÒ»·ùͼƬ£¬Óöà¸öÂ˾µ·Ö±ð´¦Àí£¬ÏëÒ»²½Ò»²½UNDOµ½×îÔʼµÄͼÏñ£¬¶à´ÎUNDOÔõôʵÏÖ?
²Î¿¼·½°¸£º
Èç¹ûÏë×öµ½¶à´ÎUNDOµÄ»°, ÎÞÒÉÊÇÐèÒª¼Ç¼²Ù×÷µÄÿ´Î²½Öè. ¾ßÌåÓÐÁ½ÖÖÐÎʽ:
¡¡¡¡
¡¡¡¡1, ÔÚ³ÌÐòÄÚ´æÖдæÖü:
¡¡¡¡ ÔÚ³ÌÐòÖн¨Á¢Õ»(²»ÖªµÀÄãѧ¹ýûѧ¹ýÕ», Èç¹ûûÓеϰ¿ÉÖ±½ÓÀí½âΪÊý×é), Õ»Âú×ãÁ˺ó½øÏȳö(LIFO)µÄµÄ¹æÔò.
¡¡¡¡ ÔÚÿ´Î½øÐжÔͼÏñµÄ²Ù×÷ʱ, ¶¼½«ÉÏÒ»·ùͼÏñ±¸·Ý(×¢ÒâÊÇÉî²ã±¸·Ý, Èç¹ûÊÇdz±íÒýÓõϰÊÇÆð²»µ½Ð§¹ûµÄ)µ½µ½Õâ¸öÕ»ÖÐ. ÕâÑù, µ±Ö´ÐÐUNDOʱ, ¾Í¿ÉÒÔ´ÓÕ»ÀïÃæÌáȡһ¸öÉÏÒ»´Î±£´æµÄͼÏñ, Ìæ´úµ±Ç°Í¼Ïñ(²¢É¾³ýÕâ¸ö±¸·Ý), ÖªµÀÕâ¸öջΪ¿Õ. ʵÏÖÁ˶à´ÎUNDO.
¡¡¡¡ ÕâÖÖ·½·¨µÄÌØµãÊÇ´¦ÀíÊý¶È±È½Ï¿ì, µ«ÊÇÒ²·Ç³£ÏûºÄÄÚ´æ.
¡¡¡¡
¡¡¡¡2. ÔÚÎļþÖд洢:
¡¡¡¡ ͬÑùÊDZ¸·Ýÿ¸ö²Ù×÷ǰµÄͼÏñ,µ«Õâ´ÎÊÇ´æ´¢µ½Ó²ÅÌÉÏ, ÕâÐèÒªÄãÒÔÒ»¶¨µÄÎļþÃû¹æ·¶(xxx_temp_1.jpg, xxx_temp_2.jpgÒÀ´ÎµÈµÈ)È¥·ÀÖ¹ÖØÃûµÄÇé¿ö. ͬÑùÔÚUNDOµÄʱºò, È¥¼ÓÔØÉÏÒ»¸ö±àºÅµÄÎļþ, ²¢É¾³ýÖ®, ÕâÑùҲʵÏÖÁ˶à´ÎUNDO.
¡¡¡¡
¡¡¡¡ ÕâÖÖ·½·¨µÄÌØµã×ÔÈ»ÊÇÏûºÄÄÚ´æÉÙ, µ«ÊÇundoµÄ´¦ÀíËÙ¶ÈûÓÐǰÕß¿ì.
¡¡¡¡
¡¡¡¡3. Á½ÖÖ·½·¨½áºÏ.
¡¡¡¡ ÂÔ...
¡¡¡¡
¡¡
Ïà¹ØÎĵµ£º
DB2ConnectionString
b2str = "Provider=MSDASQL.1;Password=a$sk6G7;Persist Security Info=True;User ID=DBA;Data Source=ConDB2SFXXK"
AccessConnectonString
accessstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\DMSJK.mdb;Jet OLEDB:database password=" ......
×ÜÊö
±¾ÎÄÐðÊöÁËÈçºÎÔÚVBÖÐʵÏֿؼþµÄIobjectSafety½Ó¿Ú£¬ÒÔ±êÖ¾¸Ã¿Ø¼þÊǽű¾°²È«ºÍ³õʼ»¯°²È«µÄ¡£VB¿Ø¼þĬÈϵĴ¦Àí·½Ê½ÊÇÔÚ×¢²á±íÖÐ×¢²á×é¼þÀàÀ´±êʶÆä°²È«ÐÔ£¬µ«ÊµÏÖIobjectSafety½Ó¿ÚÊǸüºÃµÄ·½·¨¡£±¾ÑÔÓï°üÀ¨ÁËʵÏÖ¹ý³ÌÖÐËùÐèµÄËùÓдúÂë¡£
Çë×¢Ò⣬¿Ø¼þÖ»ÓÐȷȷʵʵÊǰ²È«µÄ£¬²ÅÄܱ»±êʶΪ“°²È«µÄ”¡£±¾ ......
VB ×Ö½ÚÊý×éºÍ×Ö·û´®µÄת»»ÎÊÌâ (String<>Byte)
Posted by JiaJia 16 March,2009 (2)Comment
Ò»¡¢ ǰÑÔ
¡¡¡¡ Êý¾ÝÀàÐÍת»»ÔÚ±à³ÌÖо³£Óõ½£¬VB6ÌṩÁËÒ»ÕûÌ×ÀàÐÍת»»µÄº¯Êý¡£µ«ÊÇ£¬ÔÚ½øÐÐÀàÐÍת»»Ê±£¬ÓÐʱºò½ö½öÒÀ¿¿VBÌṩµÄº¯ÊýÊDz»ÄÜ´ïµ½×Ô¼ºµÄÄ¿µÄµÄ¡£Òò´Ë£¬ÐèÒª¿¼ÂÇÓÃÆäËûµÄ·½·¨À´Íê³ÉÊý¾ÝÀàÐÍת»»¡£±¾ÎĽ ......
Option Explicit
'==================================================
' º¯Êý: ReturnSM
'
' ¹¦ÄÜ: ·µ»Ø×Ö·û´®ÖÐû¸ö×Ö·ûµÄÆ´ÒôÉùĸµÚÒ»¸ö×Öĸ
'
' ×¢Òâ: ¸Ãº¯ÊýÖ»ÄÜ´¦Àí3755¸ö³£Óúº×Ö(B0 - D7)
' Èô³¬³öº¯ÊýµÄ·¶Î§½«·µ»Ø³£Êý ERR_RESULT$
'
' Èë¿Ú: Str ´ý´¦ÀíµÄ×Ö·û´®
'
Public Function ReturnSM$(ByVal S ......