VBµ÷ÓÃDLLÖеĺ¯Êý - VB / ¿Ø¼þ
ÎÒÏëʵÏÖÕâÑùÒ»¸ö¹¦ÄÜ£¬ÎÒÓÐÒ»¸öXMLÎļþ¸ñʽÈçÏÂ
<Field cnName="ÕʺÅ" fieldType="varchar" fieldLen="40" fieldScale="" ></Field>
<Field cnName="ÕË»§Ãû³Æ" fieldType="varchar" fieldLen="80" fieldScale="" ></Field>
<Field cnName="²¿ÃÅ " fieldType="varchar" fieldLen="4" fieldScale="" ></Field>
<Field cnName="¹ñÔ±×é " fieldType="char" fieldLen="2" fieldScale=""></Field>
cnName= ×Ö¶ÎÃû³Æ fieldType=×Ö¶ÎÀàÐÍ fieldLen=×ֶγ¤¶È fieldScale=СÊýµãµÄλÊý
ÎÒÏë°ÑXMLµÄ¸÷¸ö×Ö¶ÎÊôÐÔ¶ÁÈë±£´æµ½Êý×éÖУ¬È»ºó°ÑÊý×é×÷Ϊ²ÎÊý´«µÝ¸øActivex DLLÖк¯Êý£¬VBͨ¹ýµ÷Óøú¯Êý£¬°Ñ¸÷¸ö×ֶγÉÒ»¸öÄ£°å£¨Ö»Òª°Ñ×Ö¶ÎÒ»´Î´«¸ø¸Ãº¯ÊýµÄ²ÎÊý¼´¿É£©
DLLÃû³ÆÎªmakerdf.dll ÆäÖÐÀàΪ IdeaRDF
º¯ÊýΪAppendField(name As String,desc As String, vartype As Integer, Length As Integer, dec As Integer, impliedDec As Boolean, parameter As String))
name //×Ö¶ÎÃû³Æ>
desc //×Ö¶Î˵Ã÷>
vartype // 1-×Ö·û 2-Êý×Ö 5-ÈÕÆÚ Ê±¼ä 0-ÎÞЧÀàÐÍ>
offset //Æ«ÒÆ ¹Ì¶¨Îª0>
length //³¤¶È>
dec /СÊýλÊý> impliedDec //Èç¹ûÔ´Êý¾Ý°üÀ¨Ð¡Êýλȡfalse ²»°üÀ¨È¡true>
parameter //¸ñʽÑÚÂë ÈçÈÕÆÚÐ͵ĸñʽ¡°ÄêÄêÄêÄêÔÂÔÂÈÕÈÕ¡±
ÎÒдµÄ³ÌÐòÈçÏ£º£¨Ö»Ð´Á˶ÁÈëXML£¬ºÍÒýÓÃDLL²¿·Ö£¬µ÷Óò¿·ÖÂé·
Ïà¹ØÎÊ´ð£º
ÔÚvbÖÐÈçºÎ¶ÁÈ¡WordÄÚÈÝ(°üº¬±í¸ñ£¬Í¼Æ¬£¬µÈ£©
¾¹È»²»ÊÇzero¡£
²»ÖªµÀÔõôʵÏֵIJ»ÒªËµ»°
Õâ¸öÖ»ÄܶÁÎı¾,
VB code:
Private Sub Command1_Click()
Dim WordApp As Object
Set WordApp = CreateObject(& ......
Private Sub btnPrint_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnPrint.Click
MouseWait()
Dim ClearTempTabelSQL As String
'If Not ......
xmlDoc1.loadXML(h)×ÜÊÇ·µ»Øfalse£¬ÎªÊ²Ã´£¿Ð»Ð»°ïæ»Ø´ðÒ»ÏÂ
hÊÇÊ²Ã´ÄØ¡£¡£¡£¡£¡£¡£¡£¡£¡£
hÊÇxml¸ñʽµÄ×Ö·û´®
ÄãÊÇÏë´ò¿ª¡£XML¸ñʽµÄÎļþ°É£¿
ÎÒÊǰÑh·ÅÔÚxmlDoc1ÀÓÃxmlDoc1.loadXML(h)£¬È»ºóÈ¡xmlDo ......
ÈçÌ⣬VBÖÐÈçºÎʵÏÖÒ»PC¿ØÖÆN̨PC»úµÄ¿ª¹Ø»ú»òÕ߯äËûÃüÁîÄØ£¿
Õâ¸öÎÊÌâÓеã´óŶ.Èç²»ÄÜÔÚÆäËü»úÆ÷ÉÏÒ²×°³ÌÐòµÄ»°,ÄÇÖ»Òª¿´ËûÃÇÓÐûÅäÖÃÓÐÔ¶³Ì¿ØÖÆ¿ª¹Ø»úÁË
Èç¹ûÊÇÄÇÖÖ¿Í»§/·þÎñ¶ËµÄ·½Ê½ £¬¾ÍÊDZ»¿ØÖÆPCÒ²ÐèÒª°²× ......
¸Õ½¨ÁËÒ»¸öȺ:ÖÐɽVB±à³Ì(105787219)
ÓÐÔÚÖÐɽ¼°ÖÐɽÖܱߵijÌÐòÔ±Çë¼ÓÈë.´ó¼ÒÒ»Æð̽ÌÖÎÊÌâ.ºÏ×÷ÏîÄ¿.
¾¡¹Ü°³²»ÊÇÖÐɽµÄ£¬Ò²½øÀ´²ä·Ö¡¡
·ðɽµÄÐÐÂð,¹ãÖݵÄÐÐÂð?
ÓÑÇéÖ§³Ö
»Ø¸´ÄÚÈÝÌ«¶ÌÁË£¡
°ï¶¥ ......