vbÓëÊý¾Ý¿â
VBÊý¾Ý¿â²Ù×÷ʵÀý
2008-02-22 05:49
VBÊý¾Ý¿â²Ù×÷¶ÔºÜ¶à³õѧÕßÅóÓѸе½±È½Ï³ÔÁ¦£¬Ä¿Ç°½Ì²ÄÖеÄʵÀý¶ÔÊý¾Ý¿â²Ù×÷¶¼±È½Ïµ¥Ò»£¬ºÜ¶àÅóÓÑÌáÒéÎÒ×öÒ»¸ö°üÀ¨ä¯ÀÀ¡¢Ìí¼Ó¡¢Ð޸ġ¢É¾³ý¹¦ÄܵÄÊý¾Ý¿â²Ù×÷ʵÀý£¬ÏÂÃæÕâ¸öʵÀý¾ÍÊÇÒ»¸öÕâÑùµÄÊý¾Ý¿â²Ù×÷ʵÀý¡£
¡¶Êé¿â¹ÜÀíϵͳ¡·ÊÇÒ»¸ö×î¼òµ¥µÄÊý¾Ý¿â²Ù×÷ʵÀý£¬Ëü°üÀ¨ä¯ÀÀ¡¢Ìí¼Ó¡¢Ð޸ġ¢É¾³ý¹¦ÄܵÄÊý¾Ý¿â²Ù×÷£¬Ê¹ÓÃÊý¾ÝÁ´½Ó¿Ø¼þAdodcÁ´½ÓÊý¾Ý¿â¡¢Êý¾ÝÏÔʾ¿Ø¼þMSHFlexGridÏÔʾÊý¾Ý¿âÖеļǼ¡£
ÔÚн¨¹¤³Ìʱ¹¤¾ßÏäÖÐÊÇûÓÐAdodc¿Ø¼þºÍMSHFlexGrid¿Ø¼þµÄ£¬ÎÒÃDZØÐëµã»÷²Ëµ¥Öеġ¾¹¤³Ì¡¿-¡¾²¿¼þ¡¿£¬ÔÚ¶Ô»°¿òÖй´Ñ¡“Microsoft ADO Data Control 6.0 (SP6)”ºÍ“Microsoft Hierarchical FlexGrid Control 6.0 (SP4)”£¬×îºóµã»÷¡¾È·¶¨¡¿£¬ÕâÑùAdodc¿Ø¼þºÍMSHFlexGrid¿Ø¼þ¾ÍÒѾ·ÅÖÃÔÚ¹¤¾ßÏäÖÐÁË¡£
ÆäÖÐAdodc¿Ø¼þµÄConnectionStringÊôÐÔÖµÊÇ£º"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=¼ÒÍ¥Êé¼Ü.mdb;Persist Security Info=False"£¬ËüÉèÖÃÁ´½ÓÁË“¼ÒÍ¥Êé¼Ü.mdb”Õâ¸öAccessÊý¾Ý¿â£¬RecordSourcÊôÐÔÖµÊÇ£º"select ͼÊéµÇ¼Ç±í.ID,ͼÊéµÇ¼Ç±í.Ãû³Æ,ͼÊéµÇ¼Ç±í.ÊéºÅ,ͼÊéµÇ¼Ç±í.×÷Õß,ͼÊéµÇ¼Ç±í.³ö°æÉç,ͼÊéµÇ¼Ç±í.³ö½è״̬,³ö½è¼Ç¼.½èÊéÈË,³ö½è¼Ç¼.µç»°,³ö½è¼Ç¼.µØÖ·,ͼÊéµÇ¼Ç±í.±¸×¢,ͼÊéµÇ¼Ç±í.³ö½è¼Ç¼ from ͼÊéµÇ¼Ç±í,³ö½è¼Ç¼ where ͼÊéµÇ¼Ç±í.ID=³ö½è¼Ç¼.zhuID ORDER BY ͼÊéµÇ¼Ç±í.ID"£¬ÒòΪÔÚ“¼ÒÍ¥Êé¼Ü.mdb”Êý¾Ý¿âÖаüº¬"ͼÊéµÇ¼Ç±í"ºÍ"³ö½è¼Ç¼"¶þ¸öÊý¾Ý±í£¬ÕâÊǶà±íÁ´½ÓµÄµäÐ͵ÄSQLÓï¾ä¡£AdodcµÄÕâ¶þ¸öÊôÐÔÖµÔÚVBµÄÊôÐÔ´°¿Ú½øÐб༣¬Äã¿ÉÒÔ½«ÉÏÊöÊôÐÔÖµÖ±½ÓÊäÈëµ½ÏàÓ¦µÄÊôÐÔÖУ¬ÉèÖÃVisibleµÄֵΪFalse£¬Ä¿µÄÊÇÔÚÔËÐÐÖв»ÏÔʾÕâ¸ö¿Ø¼þ£¬ÆäËûÊôÐÔĬÈÏÖµ¼´¿É¡£
MSHFlexGrid¿Ø¼þµÄÃû³ÆÎÒÃÇÐÞ¸ÄΪMS1£¬ËüµÄÊôÐÔÉèÖÃÉÔÉԱȽÏÂé·³£º
Ê×ÏȽ«ËüµÄDataSourceÊôÐÔÔÚÊôÐÔ´°¿ÚÉèÖÃΪ"Adodc1"£»
È»ºóÔÚ¶ÔÏó´°¿ÚÓÒ»÷¿Ø¼þ£¬ÔÚÏÂÀ²Ëµ¥Öеã»÷¡¾ÊôÐÔ¡¿£¬ÔړͨÓÔ±êÇ©ÖÐÐÞ¸ÄÐÐΪ3£¬ÐÞ¸ÄÁÐΪ11£¬Ð޸Ĺ̶¨ÐÐΪ0£¬Ð޸Ĺ̶¨ÁÐΪ0£¬Èç¹ûÊý¾ÝÁ´½ÓûÓÐÎÊÌ⣬ÔÚÊôÐԵē´øÇø”±êÇ©ÖпÉÒÔ¿´µ½ÁбêÌâºÍÁÐÃû³ÆÒѾÉèÖÃÁË£¬ÆäËûÊôÐÔÒ³µÄÊôÐÔ¿ÉÒÔÈÝÐíĬÈÏÖµ£¬Öеã»÷¡¾È·¶¨¡¿¼´¿É¡£
ÁíÍâÔÚÊôÐÔ´°¿ÚÉèÖÃMSHFlexGrid¿Ø¼þµÄBackColorBkgÊôÐÔΪ&H
Ïà¹ØÎĵµ£º
±¾ÎÄÀ´×Ô´ËÌûµÄÈß³¤ÌÖÂÛ£¬¸ÐлTiger_ZhaoµÄÈ«³ÌÖ¸µãºÍ³Â»Ô¡¢°¢Ó¡¢ÂíÔÆ½£µÈºÜ¶àÅóÓѵÄÈÈÐIJÎÓë¡£±¾ÎÄÆäËû²¿·ÖÔÚ£º£¨¶þ£©¡¢£¨Èý£©¡¢£¨ËÄ£©¡£
»°ËµVB6ÊǸöºÜÈÏÕæÏ¸ÖµÄÂèÂ裬Ëü»áÇÄûÉùµØ°ïÄã×öºÜ¶àÊ¡£½ñÌìÎÒÃÇÀ´ËµµÄÊÇVB6ÔÚAPIµ÷ÓÃʱ×Ô¶¯¶Ô×Ö·û´®²ÎÊý½øÐÐת»»µÄ“ºÃÈ˺ÃÊ”¡£
µÚÒ»½Ú ÌåÌùµÄVBÂè ......
ÏàÐÅÏÖÔÚ¾ø´ó¶àÊý¼ÆËã»úÉÏʹÓõÄÊÇIEä¯ÀÀÆ÷¡£ÈçºÎͨ¹ý±à³Ì¿ØÖÆIEµÄ²Ù×÷ÄØ£¬±¾ÎĽ«Ò»²½²½½éÉÜÈçºÎͨ¹ýVB
µ÷ÓÃIEµÄ¶ÔÏó¿âÀ´¶ÔIE½øÐпØÖÆ¡£
±¾ÎÄʹÓõıà³Ì¹¤¾ßÊÇVB6Ó¢ÎÄÆóÒµ°æ£¬ä¯ÀÀÆ÷ÊÇIE5£¬ÒÔϵĴúÂëÖ»ÄÜÔÚIE4¼°ÒÔÉϰ汾ÏÂÔËÐС£ÁíÍâΪÁËÄÜÉî
ÈëÁ˽â³ÌÐò´úÂ룬×îºÃÄܰ²×°MSDN¡£ ......
Private Sub Command12_Click()
Dim i As Integer
On Error GoTo ABC
ShowPrinterSetup Me
For i = 1 To Adodc1.Recordset.RecordCount
If Picture2.Picture <> LoadPicture("") Then
Printer.PaintPicture Picture2.Picture, 200, Picture1.Top + 1000
Else
......
¡¡ÏÖ½ñÊÐÃæÉÏÁ÷ÐеÄһЩӢÓïѧϰÈí¼þ£¬ÔÚ¹ã¸æ´ÊÉϾ³£Ëµ×Ô¼ºÊ¹ÓÃÁ˹ú¼Ê¶¥¼âµÄÈ«³ÌÓïÒôTTS¼¼Êõ£¬ÄܽøÐÐÕû¶ÎÓ¢ÎĵÄÁ÷ÀûÀÊ
¶Á£¬²¢ÄÜ×ÔÓɵ÷½ÚÀʶÁµÄËÙ¶ÈÓëÆµÂʵȡ£ÄÇô£¬Õâ¸öÉñÆæµÄTTS¾¿¾¹ÊÇʲô¶«Î÷ÄØ£¿
¡¡¡¡Æäʵ£¬TTSÊÇ΢Èí³öÆ·µÄÒ»Ì×ÎÄ×ÖÀʶÁÒýÇæ£¨Text-To-Speech Engine)£¬ÕâЩӢÓïÈí¼þ¾ÍÊǵ÷ÓÃËüÀ´½øÐÐÓ¢ÎÄÀʶÁµÄ¡£ÎÒÃÇÔ ......
ÕâÄêÍ·,ÔÚÕâ¸öÂÛ̳ÀïÃæÒѾûÓÐʲô¼¼ÊõÌùÁË...ºÇºÇ~·¢Ò»Æª¾ªÌìµØ,Æü¹íÉñµÄÌû×Ó.µ±È»Õâ¸öÖ»ÊÇÄ£Äâ¼üÅ̵ÄÖÕ¼«Ä£Äâ.ºÇºÇ~
¼üÅÌÊÇÎÒÃÇʹÓüÆËã»úµÄÒ»¸öºÜÖØÒªµÄÊäÈëÉ豸ÁË£¬¼´Ê¹ÔÚÊó±ê´óÐÐÆäµÀµÄ½ñÌ죬ºÜ¶à³ÌÐòÒÀÈ»Àë²»¿ª¼üÅÌÀ´²Ù×÷¡£µ«ÊÇÓÐʱºò£¬Ò»Ð©Öظ´ÐԵģ¬ºÜ·±ËöµÄ¼üÅ̲Ù×÷×Ü»áÈÃÈËÆ£±¹£¬ÓÚÊÇ ......