U8二次开发-基础篇ppt课件.ppt

用友软件股份有限公司EBU客开管理总部张月昌2010年05月07日 U8二次开发基础讲解 讲演主题 VB应用讲解XML应用讲解SQLSever应用讲解 VB应用讲解 VB文件介绍 窗体文件 Frm 类文件 Cls 模块文件 Bas 自定义控件 Ctl 属性页文件 Pag 窗体资源文件 Frx 资源文件 Res 工程文件 Vbp 工程组文件 Vbg 工程配置文件 Vbw 代码管理文件 Scc 日志文件 Log VB应用讲解 Frm VERSION5 00BeginVB FormForm1Caption Form1 ClientHeight 3195ClientLeft 60ClientTop 345ClientWidth 4680LinkTopic Form1 ScaleHeight 3195ScaleWidth 4680StartUpPosition 3 窗口缺省BeginVB CommandButtoncmdCreateXMLCaption CreateXml Height 495Left 1680TabIndex 1Top 1920Width 1455EndEndAttributeVB Name Form1 AttributeVB GlobalNameSpace FalseAttributeVB Creatable FalseAttributeVB PredeclaredId TrueAttributeVB Exposed False VB应用讲解 规范 强制显式声明模块中的所有变量 OptionExplicit 变量一定要在前面声明 PrivateSubcmdCreateXML Click DimoEleAsIXMLDOMElementDimoRootAsIXMLDOMElementDimoNodeAsIXMLDOMNode 注意缩进 Xml标准元素 Xml根节点 Xml标准节点 IfA BThenA A 1EndIF WhileA 100A A 1Wend Fori 1to100A A 1Next PrivateSubTest Msgbox Thisisatestsub Next SelectCaseVal x Case1Print ValueIs1 EndSelect 适当的换行 PrivateSubcmdCreateXML Click DimoEleAsIXMLDOMElementDoCodeEndSubPrivateSubAnotherSub 降低断行标示 的使用频度 脚本换行增加换行标示 sSql Select FromTable WhereCode 1001 sSql Select FromTable VbCrlfsSql sSql WhereCode 1001 VB应用讲解 规范 每个函数段最好不要超过30行 PrivateSubcmdCreateXML Click DimoEleAsIXMLDOMElementDoCodeEndSub 30 VB应用讲解 规范 获取Xml节点属性值PrivateFunctionGetXmlAttr ByrefeItemAsXmlElement ByvalsNameasString AsStringOnErrorGotoErrExistDimvValueAsVariant 获取的Xml属性值vValue eItem GetAttribute sName IfIsNull vValue Then 判断该属性是否存在GetXmlAttr 不存在 返回空串ElseGetXmlAttr vValueEndifErrExist GetXmlAttr 取数失败 返回空串EndFunction 足够的注释信息 最好有错误处理 最好不要用OnErrorResumNext 业务场景考虑全面 避免实时错误 声明参数是按地址传入还是数值 功能单一 就干一件事情 讲演主题 VB应用讲解XML应用讲解SQLSever应用讲解 Node节点 类似于数组 有文本属性Element元素 带属性的节点Attribute属性 类似于集合 不可重复Text文本 不具备任何扩展属性备注DocumentElement根节点 Dom只可以有一个根节点 该节点为Element属性 XML应用讲解 XML介绍 XML应用讲解 XML介绍节点 SelectSingleNodeselectNodesfirstChildlastChildnextSiblingappendChildremoveChildtext XML应用讲解 XML介绍属性 attributesgetAttributeNodegetAttributesetAttributeremoveAttributetext XML应用讲解 XML字符转义 有些特殊字符无法在Xml中直接保存 会使用转义字符进行描述 该描述会影响XML的保存内容 但是显示仍然会按照原始内容显示 而非转义内容 VB中对属性等赋值取数直接使用特殊字符 只是影响Xml的保存文件 但是如果对Xml的Xml属性直接操作时就是转义字符了 XML应用讲解 XPath 使用 进行路径操作 如 Nd Itm Name使用 进行谓词判断 如 Nd Itm Name 使用 对属性进行判断 如 Item Name a 使用 获取dom全路径下的所有节点内容使用 进行模糊匹配XML严格区分大小写 书写时一定要注意 XML应用讲解 Schema 讲演主题 VB应用讲解XML应用讲解SQLSever应用讲解 SQL应用讲解 系统数据库和系统表 Mastermaster是数据库的最重要的数据库 联系着其他的数据库 并记录着用户数据 相当于超级管理员的账户Model模版数据库MsdbSql内部使用 一般用于计划作业和数据库邮件tempdb临时数据库pubs示范数据库 Sysobjects数据库对象表Syscolumns数据库对象字段表sysProcesses master 数据库系统进程 SQL应用讲解 常用对象 数据表标准前缀 EF 项目 XXXX或EF 项目 T XXXX字段视图标准前缀 EF 项目 V XXXX存储过程标准前缀 EF 项目 P XXXX函数标准前缀 EF 项目 F XXXX触发器标准前缀 EF 项目 Tri XXXX自定义变量索引标准前缀 EF 项目 IX XXXX约束标准前缀 EF 项目 CK XXXX SQL应用讲解 常用命令 SP Who检查进程SP Lock检查锁KillSp ID删除进程DBCCInputBuffer SP ID 检查进程内容DBCCSHRINKDATABASE收缩数据库DBCCSHRINKDB收缩数据库DBCCSHRINKFILE收缩数据和日志文件DBCCSHOWCONTIG扫描表密度DBCCREINDEX重建数据库索引DBCCINDEXDEFRAG重建数据库索引 SQL应用讲解 常用命令 SelectTop10 FromXXXWith nolock WhereXX YYSumMaxMinAvgGroupByxx yyHavingSum xx 10000Union All InsertIntoA a b c Values a b c DeleteAWherea a SelectA Into AWherea a LeftJoinRightJoinInnerJoinFullJoinCrossJoin Select FromA B SelectA VouchCode A VouchName B Code C Name B Num B Money FromAWith nolock LeftJoinBWith nolock ONA ID B IDINNERJoinCWith nolock ONA ID C IDAndB Code C CodeWhereA VouDateBetween 2010 5 1 And 2010 5 31 Set SQL SelectA VouchCode A VouchName B Code C Name FromA LeftJoinBONA ID B ID INNERJoinCONA ID C IDAndB Code C Code WhereA VouDateBetween 2010 5 1 And 2010 5 31 SQL应用讲解 编写规范 尽量不要超过五层 关键字前换行 Set SQL SelectA VouchCode A VouchName B Code C NameFromALeftJoinBONA ID B IDINNERJoinCONA ID C IDAndB Code C CodeWhereA VouDateBetween 2010 5 1 And 2010 5 31 SQL变量赋值尽量不要拼很多的串 使用脏读 减少前后台交互次数没有必要的数据不要取到前台避免客户端海量运算减少IN的使用避免使用Union脚本中尽量避免使用游标 尤其不能游标嵌套 存储过程功能清晰 减少业务分支查询 降低预编译时间关键业务字段使用索引处理多使用整形数据判断 避免布尔值判断整理数据表碎片 提升索引效率 SQL应用讲解 效率问题 索引失效 比较字段数据类型转换或运算比较字段内容少于组合索引内容对Null值进行比较比较字段表内内容比较一致 系统没有建立索引使用 来进行索引字段比较使用 IN 来进行条件处理索引表不连续 跨页检索 SQL应用讲解 SQL变量拼接时会向定义最严格的类型进行转换组织视图时避免使用 来降低工作量使用中间表处理时 临时用表应该判断是否存在创建表和视图时 一定要判断是否已经存在注意Null 常见错误 T1 T2 V1 CREATEViewV1ASSelectT1 T2 FromT1 T2 Declare sValuenvarchar 50 Set sValue ABC Select sValue NameFromAWhere1 2Set sValue SelectNameFromAWhere1 2 SQL应用讲解 NULL Null不可以使用 来判断 只能使用 IS Null和任何值比较都会返回 False 开关 SetANSI NULLSOFF CaseWhen CaseWhena 1Then 3 ElseCaseWhena 2Then 4 EndEndCaseaWhen1Then 3 When2Then 4 End ABC Null 空记录集 SQL应用讲解 事件探查器 默认事件 Sql2000AuditLogin AuditLogout ExistingConnectingR