U8二次开发-基础篇【创意版】.ppt

VB应用讲解（规范） 强制显式声明模块中的所有变量 Option Explicit 变量一定要在前面声明 Private Sub cmdCreateXML_Click() Dim oEle As IXMLDOMElement Dim oRoot As IXMLDOMElement Dim oNode As IXMLDOMNode 注意缩进 ‘Xml 标准元素 ‘Xml 根节点 ‘Xml 标准节点 If A = B Then A = A + 1 End IF While A < 100 A = A + 1 Wend For i = 1 to 100 A = A + 1 Next Private Sub Test() Msgbox “This is a test sub” Next Select Case Val(x) Case 1 Print “Value Is 1” End Select 适当的换行 Private Sub cmdCreateXML_Click() Dim oEle As IXMLDOMElement Do Code End Sub Private Sub AnotherSub 优选文档 * 降低断行标示“_”的使用频度，脚本换行增加换行标示 sSql = “Select * From Table” & _ “Where Code =‘1001’” sSql = “Select * From Table”& VbCrlf sSql = sSql &“Where Code =‘1001’”  VB应用讲解（规范） 每个函数段最好不要超过30行 Private Sub cmdCreateXML_Click() Dim oEle As IXMLDOMElement Do Code End Sub 30 优选文档 * VB应用讲解（规范） ‘获取Xml节点属性值 Private Function GetXmlAttr(Byref eItem As XmlElement, Byval sName as String) As String On Error Goto ErrExist Dim vValue As Variant ‘获取的Xml属性值 vValue = eItem.GetAttribute（sName) If IsNull(vValue) Then ‘判断该属性是否存在 GetXmlAttr = “” ‘不存在，返回空串 Else GetXmlAttr = vValue Endif ErrExist: GetXmlAttr = “” ‘取数失败，返回空串 End Function 优选文档 * 讲演主题 VB应用讲解 XML应用讲解 SQL Sever应用讲解 优选文档 * Node 节点，类似于数组，有文本属性 Element 元素，带属性的节点 Attribute 属性，类似于集合，不可重复 Text 文本，不具备任何扩展属性 备注 <!--备注-- > DocumentElement 根节点，Dom只可以有一个根节点，该节点为Element属性 XML应用讲解 XML介绍 <?xml version = '1.0' encoding = 'gb2312' ?> 优选文档 * XML应用讲解 XML介绍 节点 SelectSingleNode selectNodes firstChild lastChild nextSibling appendChild removeChild text 优选文档 * XML应用讲解 XML介绍 属性 attributes getAttributeNode getAttribute setAttribute removeAttribute text 优选文档 * XML应用讲解 字符 转义 “ " ‘ &apos; < < > > & & XML字符转义 有些特殊字符无法在Xml中直接保存，会使用转义字符进行描述。 该描述会影响XML的保存内容，但是显示仍然会按照原始内容显示，而非转义内容。 VB中对属性等赋值取数直接使用特殊字符，只是影响Xml的保存文件。 但是如果对Xml的Xml属性直接操作时就是转义字符了。 优选文档 * XML应用讲解 XPath 使用“/”进行路径操作，如