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
Ïà¹ØÎĵµ£º
JavaScript/VB Script½Å±¾³ÌÐòÒ»°ãÓÐÁ½ÖÖÖ´Ðз½Ê½£¬Ò»ÖÖÊÇǶÈëÔÚËÞÖ÷³ÌÐòÀïÃæÖ´ÐУ¬±ÈÈçÔÚIEä¯ÀÀÆ÷ÀïÃæÖ´ÐУ»ÁíÍâÒ»ÖÖ£¬ÔÚ×ÊÔ´¹ÜÀíÆ÷ÀïÃæË«»÷Ö´ÐУ¨ËäÈ»»¹ÊÇͨ¹ýÁíÍâÒ»¸ö³ÌÐò½âÊÍÖ´ÐУ¬µ«ÊǸøÈ˵ĸоõ±Ï¾¹ÊÇÖ±½ÓÔËÐУ©¡£
ÕâÁ½ÖÖ·½Ê½£¬¶¼¿ÉÒÔʹÓÃVisual StudioÀ´½øÐе÷ÊÔ£¬ÏÈ¿´´ó¼ÒÓÃµÃ±È½ÏÆµ·±µÄÍøÒ³½Å±¾³ÌÐòµÄµ÷ÊÔ£º
1 ......
·ÖÀࣺVBѧϰ ×ֺţº ´ó´ó ÖÐÖРСС mid(×Ö·û´®£¬´ÓµÚ¼¸¸ö¿ªÊ¼£¬³¤¶È) ÔÚ[×Ö·û´®]ÖÐ[´ÓµÚ¼¸¸ö¿ªÊ¼]È¡³ö[³¤¶È¸ö×Ö·û´®]
ÀýÈç mid("СÐÀÎÞµÐ",1,3) Ôò·µ»Ø "СÐÀÎÞ"
instr(´ÓµÚ¼¸¸ö¿ªÊ¼,×Ö·û´®1,×Ö·û´®2) ´Ó¹æ¶¨µÄλÖÿªÊ¼²éÕÒ£¬·µ»Ø×Ö·û´®2ÔÚ×Ö·û´®1Öе ......
VBµ÷ÓÃϵͳµÄ"´òÓ¡»úÉèÖÃ"ºÍ"Ò³ÃæÉèÖÃ".
Option Explicit
Const FW_NORMAL = 400
Const DEFAULT_CHARSET = 1
Const OUT_DEFAULT_PRECIS = 0
Const CLIP_DEFAULT_PRECIS = 0
Const DEFAULT_QUALITY = 0
Const DEFAULT_PITCH = 0
Const FF_ROMAN = 16
Const CF_PRINTERFONTS = &H2
Const C ......