U8二次开发-基础篇

Dim oEle
As IXMLDOWMeEnldement ‘Xml 标准元素
注意缩进 Dim oRoot
Dim oNode
As As
IIXXMMLLDDFoOOArMMENi=lo=Aed1me+teo1nt100‘ ‘XXmmll
根节点 标准节点
Next
适当的换行
Private Sub cmdCreateXMLS_eClleicct kC(a)se Val(x)
XML应用讲解
XPath
使用“/”进行路径操作，如：Nd/Itm/Name 使用“[]”进行谓词判断，如：Nd[Itm/Name] 使用“@”对属性进行判断，如：Item[@Name = ‘a’] 使用“//”获取dom全路径下的所有节点内容 使用“*”进行模糊匹配 XML严格区分大小写，书写时一定要注意
U8二次开发基础讲解
•用友软件股份有限公司 •EBU客开管理总部 •张月昌 •2010年05月07日
讲演主题
VB应用讲解 XML应用讲解 SQL Sever应用讲解
VB应用讲解
VB文件介绍
•窗体文件 •类文件 •模块文件 •自定义控件 •属性页文件 •窗体资源文件 •资源文件 •工程文件 •工程组文件 •工程配置文件 •代码管理文件 •日志文件
降低断行标示“_”的使用频度，脚本换行增加换行标示
sSql = “Select * From Table” & _ “Where Code =‘1001’”
sSql = “Select * From Table”& VbCrlf sSql = sSql &“Where Code =‘1001’”
每个函数段最好不要超过30行
ErrExist:
Next
GetXmlAttr = “”
‘取数失败，返回空串
End Function
讲演主题
VB应用讲解 XML应用讲解 SQL Sever应用讲解
XML应用讲解
XML介绍
<?xml version = '1.0' encoding = 'gb2312' ?>
•Node 节点，类似于数组，有文本属性 •Element 元素，带属性的节点 •Attribute 属性，类似于集合，不可重复 •Text 文本，不具备任何扩展属性 •备注 <!--备注-- > •DocumentElement 根节点，Dom只可以有 一个根节点，该节点为Element属性
ClientHeight = 3195
ClientLeft
= 60
ClientTop
= 345
ClientWidth = 4680
LinkTopic
= "Form1"
ScaleHeight = 3195
ScaleWidth
= 4680
StartUpPosition = 3 '窗口缺省
Begin mandButton cmdCreateXML
vValue = eItem.GetAttribute（sName)
足够If的IsNull(vVa声lue明) T参he数n ‘是判按断地该属性是否存在
注释信GetXmlAtt址r =传“入”还‘是不最数存好值在有，返错回误空处串理，
息
Else GetXmlAttr
=
vValue
Endif
最好不要用On Error Resum
Caption
= "CreateXml"
Height
= 495
Left
= 1680
TabIndex
=1
Top
= 1920
Width
= 1455ຫໍສະໝຸດ EndEndAttribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Dim oEle
As IXMLDOCMaEsleem1ent
Print “Value Is 1”
Do Code
End Select
End Sub
Private Sub Test()
Msgbox “This is a test sub”
Private Sub AnotherSub Next
VB应用讲解（规范）
（*.Frm） （*.Cls） （*.Bas） （*.Ctl） （*.Pag） （*.Frx） （*.Res） （*.Vbp） （*.Vbg） （*.Vbw） （*.Scc） （*.Log）
VB应用讲解(Frm)
VERSION 5.00
Begin VB.Form Form1
Caption
= "Form1"
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
VB应用讲解（规范）
强制显式声明模块中的所有变量
If A = B Then
Option Explicit
A=A+1
End IF
变量一定要在前面声明
While A < 100
Private Sub cmdCreateXML_ClAic=kA()+ 1
XML应用讲解
XML介绍 节点
•SelectSingleNode •selectNodes •firstChild •lastChild •nextSibling •appendChild •removeChild •text
XML应用讲解
XML介绍 属性
•attributes •getAttributeNode •getAttribute •setAttribute •removeAttribute •text
Private Sub cmdCreateXML_Click() Dim oEle As IXMLDOMElement
Do Code End Sub
30
VB应用讲解（规范）
‘获取Xml节点属性值 Private Function GetXmlAttr(Byref eItem As
功Xml能ElOD单enimmeE一nrvtrV,oa，rluB就eyGvoAat干slo sEV一Nraarr业 避件mEiexain务免事stats场实情‘S获t景时r取i考n错的g)虑误XmAls全属S面性tr值i，ng
XML应用讲解
XML字符转义
字符 “ ‘ < > &
转义 &quot; &apos;
&lt; &gt; &amp;
有些特殊字符无法在Xml中直接保存，会使用转义字符进行描述。 该描述会影响XML的保存内容，但是显示仍然会按照原始内容显 示，而非转义内容。 VB中对属性等赋值取数直接使用特殊字符，只是影响Xml的保存 文件。 但是如果对Xml的Xml属性直接操作时就是转义字符了。