Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

Delphi´úÂë»»³ÉVB´úÂë ¼±¼±

type SFPRDA=packed record
¡¡¡¡¡¡¡¡¡¡¡¡czmm:Word;¡¡¡¡¡¡¡¡¡¡¡¡//²Ù×÷ÃÜÂë¡£
¡¡¡¡¡¡¡¡¡¡¡¡sqcz:array[1..8] of packed record dm:Byte; mm:Word end;¡¡
¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡//8¸öÊÚȨ²Ù×÷Ô±´úÂëºÍÃÜÂë¡£dm´úÂ룬mmÃÜÂë¡£
¡¡¡¡¡¡¡¡¡¡¡¡sdje:array[0..3] of packed record dz,jz:Word end;
¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡//4¸öʱ¶ÎµÄĬÈ϶¨ÖµºÍ¼ÇÕʽð¶î¡£dz¶¨Öµ£¬jz¼ÇÕÊ¡£
¡¡¡¡¡¡¡¡¡¡¡¡open_xffs:Byte;¡¡¡¡¡¡ //¿ª»úȱʡÏû·Ñ·½Ê½¡£0ÆÕͨ£¬1¶¨Öµ£¬2¼ÇÕÊ¡£
¡¡¡¡¡¡¡¡¡¡¡¡open_menu:Byte;¡¡¡¡¡¡ //¿ª»úȱʡ¼üÅÌ·½Ê½¡£0½ð¶î£¬1Æ·ÖÖ¡£
¡¡¡¡¡¡¡¡¡¡¡¡open_online:Byte;¡¡¡¡ //¿ª»úȱʡÔËÐз½Ê½¡£0ÍÑ»ú£¬1Áª»ú¡£
¡¡¡¡¡¡¡¡¡¡¡¡ena_jz:Byte;¡¡¡¡¡¡¡¡¡¡//1ÔÊÐí¼ÇÕÊ£¬0²»ÔÊÐí¡£
¡¡¡¡¡¡¡¡¡¡¡¡ena_mu:Byte;¡¡¡¡¡¡¡¡¡¡//1ÔÊÐíÆ·ÖÖÇл»£¬0²»ÔÊÐí¡£
¡¡¡¡¡¡¡¡¡¡¡¡ena_zk:Byte;¡¡¡¡¡¡¡¡¡¡//1ÔÊÐíÍⲿÕÛ¿Û£¬0²»ÔÊÐí¡£
¡¡¡¡¡¡¡¡¡¡¡¡ena_qk:Byte;¡¡¡¡¡¡¡¡¡¡//1ÔÊÐíÈ¡¿î£¬0²»ÔÊÐí¡£
¡¡¡¡¡¡¡¡¡¡¡¡ena_glf:Byte;¡¡¡¡¡¡¡¡ //1ÔÊÐíÊäÈë¹ÜÀí·Ñ£¬0²»ÔÊÐí¡£
¡¡¡¡¡¡¡¡¡¡¡¡ena_cont:Byte;¡¡¡¡¡¡¡¡//1¶¨Öµ¼ÇÕÊÁ¬ÐøË¢¿¨·½Ê½£¬0²»Á¬Ðø¡£
¡¡¡¡¡¡¡¡¡¡¡¡ena_ord:Byte;¡¡¡¡¡¡¡¡ //1¿Û¿îÏû·ÑÏÔʾÐòÊý£¬0²»ÏÔʾ¡£
¡¡¡¡¡¡¡¡¡¡¡¡btph,syrq:Word;¡¡¡¡¡¡ //btph²¹ÌùÅúºÅ¡£syrqͬ²½ÈÕÆÚ¡£
¡¡¡¡¡¡¡¡¡¡¡¡xfjb:Byte;¡¡¡¡¡¡¡¡¡¡  //ÔÊÐíÏû·Ñ¼¶±ð¡£8λ´ÓµÍµ½¸ßÒÀ´Ë±íʾÊÇ·ñÔÊÐí¼¶±ð0µ½8µÄ¿¨Ïû·Ñ¡£
¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡//1ÔÊÐí£¬0½ûÖ¹¡£
¡¡¡¡¡¡¡¡¡¡¡¡max_xf:Word;¡¡¡¡¡¡¡¡¡¡//ÿ´Î×î´óÏû·Ñ½ð¶î¡£0²»ÏÞÖÆ¡£
¡¡¡¡¡¡¡¡¡¡¡¡max_cz:Integer;¡¡¡¡¡¡ //ÿ´Î×î´ó³äÖµ½ð¶î¡£0²»ÏÞÖÆ¡£ <


Ïà¹ØÎÊ´ð£º

VB »ñÈ¡ÍøÒ³Ô´´úÂë

Ò»¸ö²éѯijÐÅÏ¢µÄASPÍøÒ³£¬Ìá½»²ÉÓõÄÊÇpost·½·¨£¬²éÕÒ½á¹ûµÄÍøÒ³±ØÐëÓÒ¼üµã»÷¡°²é¿´Ô´Îļþ¡±²ÅÄÜ¿´µ½ÕæÕý²éѯ½á¹ûÍøÒ³µÄÔ´´úÂ룬ÓÃä¯ÀÀÆ÷²Ëµ¥¿´µ½µÄÊDzéѯǰµÄÔ´´úÂë
ÓÃVBÓÐʲô°ì·¨¿ÉÒÔ»ñÈ¡µ½Õâ¸ö²éѯºóµÄÔ´´ú ......

VBÈçºÎ×èֹij³ÌÐòÔËÐС££¿

±ÈÈç½ø³Ì¼ÓÔØÐµijÌÐò¡£

ÔÚÆäÔËÐÐ֮ǰ×èÖ¹¡£

È»ºóÔÊÐíºó·ÅÐС£


±ÈÈç³ÌÐòÖ÷Îļþ·¾¶ÊÇc:\test\test.exe£¬½¨Á¢ÄÚÈÝÈÎÒâµÄÎļþc:\test\test.exe.manifest¡£

¾ÍÊDz»ÖªµÀ³ÌÐòÎļþ·¾¶¡£

ÉèÖ ......

vbдµÄ³ÌÐò±àÒëºó,ÔËÐÐÈô³ö´í,ÈçºÎÖªµÀµ½ÔÚÄÄÒ»ÐÐ?

vbдµÄ³ÌÐò±àÒëºó,ÔËÐÐÈô³ö´í,ÈçºÎÖªµÀµ½ÔÚÄÄÒ»ÐÐ?

°´Ctrl+F5Ô¤±àÒ룬³ö´íʱ»áÌø×ªµ½´íÎóÐÐ

²»ÊÇÄÇÑùµÄÁË,ÎÒÊÇÒªÇó±àÒë³ÉEXEºóÔËÐÐ,Ìáʾ³ö´íÄÜ·ñÌáʾ´íÔÚÄÄÒ»ÐÐ.

ÎÒ±àÒëºóÔÚÎҵĵçÄÔÉÏÔËÐÐûÎÊÌâ,µ«Ô ......

vbÖÐsqlÓï¾äÒýºÅÎÊÌâ

"insert into user1(name,age) values('" & Text1.Text & "','" & Text2.Text & "' )"
ÎÊÌ⣺¶ÔsqlÓï¾äÖе¥¡¢Ë«ÒýºÅÄ£ºý¡£¼ÈÈ» Text1.Text¾Í±íʾ ......

VBÁ¬½ÓÊý¾Ý¿â²éѯ³¬Ê±ÎÊÌâ

ÔÙVBÄ£¿éÖÐÎÒÊÇͨ¹ýÈçÏ·½Ê½À´Á¬½ÓÖ÷¿âºÍÀúÊ·¿âµÄ(ÀúÊ·¿âÊý¾ÝÁ¿´ó)
VB code:

Public Connstr As String
Public objConn As New ADODB.Connection
Public ConnHISstr As String
Public objConnHIS As New A ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ