U8开发之单据控件 - 图文(7)

U8知识库文档

示例 Public Sub Command_Click() Voucher.Col=50 Voucher.Row=20 Debug.Print Voucher1.Col Debug.Print Voucher1.Row Debug.Print Voucher1.ColSel Debug.Print Voucher1.RowSel End Sub ? TitleCaption,TitleFont,TitleForeColor,ToolTipText 返回或设置标题各项属性值

语法：

voucher. TitleCaption [=string] voucher. TitleFont [=font]

voucher. TitleForeColor [=color] voucher. ToolTipText [=string] 参数说明：

参数 Voucher Color string Font 描述 单据控件名称 一个指定的颜色值 字符串表达式 指定的字体对象 注： 这些属性的赋值操作必须在setTemplateData方法后，否则你的操作将会 得不到处理(因为你的这些操作会被setTemplateData方法覆盖)。

? Left,Top,Width,Height属性 返回或设置单据控件大小属性 语法：

voucher.Left [=value] voucher.Top[=value] voucher.Widht[=value] voucher.Height[=value]

参数说明：

参数 Voucher value

描述 单据控件名称 数值 www.yonyou.com

U8知识库文档

备注： 在执行完setTemplateData方法后，setTemplateData会按照单据设计设计的宽度和高度自动设置Width和Height属性。

? HeadText属性

设置或返回表头项目的值 语法：

voucher.HeadText(Index)= [=string]

参数 描述 Voucher 单据控件名称 Index下标，可以是数值，也可是关键字，用来标识表头项目 string 字符串或数值 Example：

示例 Public Sub Command1_Click() Voucher.headText(1)=‘用友软件公司’ Voucher.headText(‘cCusName’)= ‘用友软件公司’ cCusName= ‘客户名称’ End Sub 备注： 如果你要设置的项目(Index)不存在，单据控件将会产生一个错误，具体的错误信息可以通过GetLastError方法得到。

? BodyText属性 设置或返回表体项目的值 语法： voucher.HeadText(Row as Long,Col as Variant)= [=string] 参数 描述 Voucher 单据控件名称 Row数值，表示表体里的哪一行 Col 可变 体，可以是列，也可用关键值来表示表体里的哪一行。 String 字符串表达 式

示例 Public Sub Command1-_Click() Voucher.bodyText(1,1)=‘用友软件公司’ Voucher.bodyText(1,‘cCusName’)= ‘用友软件公司’ ‘ cCusName=‘客户名称’ End Sub ? BodyColWidth属性 设置表体指定行的宽度 语法： voucher. BodyColWidth (Col as Variant)= [=value] 参数 描述 Voucher 单据控件名称 Col 可变体，可以是列，也可用关键值来表 示表体里的哪一行。 value数值

www.yonyou.com

U8知识库文档

示例 Public Sub Command1-_Click() Voucher.bodyColWidth(1)=300 Voucher.bodyColWidth (‘cCusName’)= 300 ‘cCusName=‘客户名称’ End Sub 备注： 有些属性用来给程序员动态的控制单据表体的某一列显示。请在做具体的操 作时，考虑用户权限的问题。

? BodyMaxRows

返回或设置表体可输入的最大行数 语法： voucher. BodyMaxRows[=Value] 参数 描述 Public Sub Command1- _Click()

Voucher.bodymaxRows = 2

表体最多可以输入2行数据 End Sub

? BodyRows

返回当前表行数据行的总数(只包括有数据的行) 语法：

voucher. BodyRows [=Value] 参数 描述

Public Sub Command1-_Click() Debug.print voucher.bodyRows End Sub

? MultiLineSelect 返回或设置是否是多行选择 语法： voucher.MultiLineSelect = [Boolean] 备注： 在表体参照的时候如果你需要参照返回多条数据时，在你参照前请记得先把 该属性设置为TRUE,参照完成后记得一定要把改属性设置成FALSE （如果不进行处理,有可能会产生单据单据不能离开焦点的BUG）。

主要方法

? setTemplateData方法 功能：

设置单据控件的模版数据记录集，在第一次初始化单据控件时，必须设 置单据模版数据。

www.yonyou.com

U8知识库文档

语法： Public Sub setTemplateData(rstTemplate As Recordset) 参数： rstTemplate: 单据模版数据结果记录集 备注：

本操作是将单据设计好的结果集传递给单据控件进行显示界面初始化处理。包括定位、模版信息。

该数据结果集是能过调用单据控件后台服务来获得的

示例 Public Sub Command1_Click() Dim o as Object Dim rst as Recordset Set o = CreateObject(‘UFVoucherServer85.clsVoucherTemplate’) If o is nothing then Exit Sub ‘如果创建对象Fail,则退出 Set rst = o.GetTemplateData2(数据库连接(Connection),单据(CardNumber), 模版号(VT_ID)) Voucher.SetTemplateData(rst) ‘设置模版 End Sub ? setVoucherDataXML方法 功能：

设置单据数据到单据控件上。 语法： Public Function setVoucherDataXML(oDOmHead As Variant,oDomBody As Variant) As Boolean 参数： oDOmHead:单据表头Dom信息 oDomBody:单据表体Dom信息 备注：

本操作是将从后台获取的单据数据加载到单据界面上。

示例 Private Sub SetVoucherData() On Error Resume Next Dim DomHead As New DOMDocument Dim DomBody As New DOMDocument Dim rstHead As New Recordset Dim rstBody As New Recordset Dim sSql1 As String Dim sSql2 As String Screen.MousePointer = vbHourglass rstHead.CursorLocation = adUseClient rstBody.CursorLocation = adUseClient

www.yonyou.com

U8知识库文档

'Select * ,'' as editprop From SaleOrderSQ where id = 3 order by autoid 'Select * from SaleOrderQ where id=3 Debug.Print \从数据库加载数据...\ sSql1 = \top 1 *,'' as editprop From ctlVoucher1.GetVoucherState.sBtViewTable sSql2 = \top 3 *,'' as editprop From ctlVoucher1.GetVoucherState.sBwViewTable rstHead.Open sSql1, m_strConnect, adUseClient, adOpenStatic, adCmdText rstBody.Open sSql2, m_strConnect, adOpenStatic, adLockOptimistic rstHead.Save DomHead, adPersistXML rstBody.Save DomBody, adPersistXML DomHead.Save \ DomBody.Save \ 'domhead.Load \ 'dombody.Load \ 'dombody.Save \ Debug.Print \正在加载数据到单据控件中...\ ctlVoucher1.setVoucherDataXML DomHead, DomBody Debug.Print \操作完成\ Screen.MousePointer = vbDefault End Sub

? AddLine方法 功能： 在单据表体增加一行 语法： Public Sub AddLine(optional nRow as Long,Option sLine as String = ’‘,Option Relative as AddLineState = ALSLast)

? DelLine方法 功能： 单据表体删除指定的行，如果没指定行删除当前所在的行。 语法： Public Sub DelLine(Optional Byval nRow as Long) 参数： nRow 为单据表体的具体行号 返回值：无

? AddNew方法 功能：增加一张新单据

语 …… 此处隐藏：2583字，全部文档内容请下载后查看。喜欢就下载吧 ……