U二次开发基础篇.ppt

THANK YOU SUCCESS * * 可编辑 * * * * * * * * * * * * * * * * * * * * * * * * 用友软件股份有限公司 EBU客开管理总部 张月昌 2010年05月07日 U8二次开发基础讲解 讲演主题 VB应用讲解 XML应用讲解 SQL Sever应用讲解 VB应用讲解 VB文件介绍 窗体文件 （*.Frm） 类文件 （*.Cls） 模块文件 （*.Bas） 自定义控件 （*.Ctl） 属性页文件 （*.Pag） 窗体资源文件 （*.Frx） 资源文件 （*.Res） 工程文件 （*.Vbp） 工程组文件 （*.Vbg） 工程配置文件 （*.Vbw） 代码管理文件 （*.Scc） 日志文件 （*.Log） VB应用讲解(Frm) VERSION 5.00 Begin VB.Form Form1 Caption = Form1 ClientHeight = 3195 ClientLeft = 60 ClientTop = 345 ClientWidth = 4680 LinkTopic = Form1 ScaleHeight = 3195 ScaleWidth = 4680 StartUpPosition = 3 窗口缺省 Begin VB.CommandButton cmdCreateXML Caption = CreateXml Height = 495 Left = 1680 TabIndex = 1 Top = 1920 Width = 1455 End End Attribute VB_Name = Form1 Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False 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 Xm