金蝶Bos基础学习知识二次开发

《金蝶Bos基础学习知识二次开发》由会员分享，可在线阅读，更多相关《金蝶Bos基础学习知识二次开发（20页珍藏版）》请在装配图网上搜索。

1、1 常用二次开发方法1.1 登陆界面图片修改1）在中间层方式：在中间层KDCOM目录新建两个图片文件：LOGIN_PIC_LOG_TOP.bmp适用于10.4版本+PT007378，或VII版本及以后版本 LOGIN_PIC_LOG_BOTTOM.bmp 适用于 10.4 版本+PT007378，或 VII 版本及以后版本 MAIN_PIC_LOG_RIGHT_FLOWCHART.bmp,适用于 10.4 版本+PT007378,或 VII 版本MAIN_PIC_LOG_LEFT_FLOWCHART.bmp,适用于 10.4 版本+PT007378，或 VII 版本 MAIN_PIC_LOG_

2、LEFT.bmp,适用于 10.4 版本+PT007378，或 VII 版本 MAIN_PIC_LOG_RIGHT.bmp,适用于 10.4 版本+PT007378，或 VII 版本 该方式不需要每个客户端机器安装图片，登陆时自动显示。2）客户端方式：直接修改以下图片文件，适用于V12及以后版本：F:Program FilesKingdeeK3ERPk3StandardKDSYSTEMKEE_imgLogo.bmp3）企业LOG方式在中间层新建一个文件夹，命名为eptlogo并将其设置为只读共享，然后制作两个 BMP格式的图片，分别作为logo和背景图，大小为145x180，分别命名为 ent

3、erpriseogo.bmp,enterprise_bg.bmp,在客户端的主控台编辑器启用企业界面即可。1.2 主控台无界面登陆适用版本：（K/3V11.0.1+PT016290或V12以上版本）1）域用户登录：提供命令行参数:KDMain.exe -LoginWin |账套代码丨机构密码，无界面直 接登录到K/3系统主控台2）命名用户登录：提供命令行参数KDMain.exe -LoginUser|账套代码丨机构密码|用户名| 用户密码，无界面直接登录K/3系统主控台3）参数之间的分隔符默认为”|”，由于用户密码可能包含特殊字符，用户可以通过修改 注册表改变分隔符，注册表参数：路径：HKEY

4、_CURRENT_USERSoftWareKingDeeK3键：LoginParm4）获取账套代码的接口组件名：KdLogin.dll组件部署：客户端%Kdsys tem%程序名：KdLogin.clsLogin方法名：Get Accou nt Lis t参数描述GetAccountList（） As ADODB.Recordset参数：无返回值类型：ADODB.Recordset,包含字段：序号字段名描述1FAcctID账套ID2FAcctNumber账套代码3FAcctName账套名称5) 测试登录参数设置是否成功的接口组件名：KdLogin.dll组件部署：客户端%Kdsys tem%程

5、序名：KdLogin.NoUILogin方法名：LoginUser参数描述Public Function LoginUser(ByVal sLoginType As String _, ByVal sAcctNumber As String _, ByVal sOrgPass As String _, ByVal sUserName As String _, ByVal sUserPass As String) As String参数:序号字段名参数类型描述1sLoginTypeString登录方式：-LoginWin域用户身份登录 -LoginUser命名用户身份登录2sAcctNumber

6、String账套代码3sOrgPassString组织机构密码例如：账套代码为：10.02,则为组织机构10的密码.4sUserNameString用户名，域用户身份登录时为空5sUserPassString用户密码，域用户身份登录时为空返回值类型：St ring，空字符串代表登录成功，否则登陆不成功，内容为登录不成功的原因。1.3 基础资料的图片读写1. 显示图片1.1) 从数据库取得图片的二进制数据Dim bytFile() As Byte根据取数 SQL 生成记录集:select FFile from t AccessorybytFile= rs.Fields(FFILE)1.2) 保存

7、到文件Dim smFile As adodb.StreamSet smFile = New adodb.StreamsmFile.Type = adTypeBinarysmFile.OpensmFile.Write bytFilesmFile.SaveToFile m_sTempFileName, adSaveCreateOverWrite1.3) 解压缩Dim ozip As ObjectSet ozip = CreateObject(KDZIP.ZIP)ozip.DeCompress m_sTempFileName, sFileName1.4) 显示出来Set Img.Picture =

8、LoadPicture(sFileName)1. 保存图片2.1) 对图片进行压缩，压缩强度为 6Set dzip = CreateObject(KDZIP.ZIP) dzip.Compress App.Path & 1.bmp, App.Path & 1.zip, 62.2) 读取文件Set mstream = New ADODB.Stream mstream.Type = adTypeBinary mstream.Open mstream.LoadFromFile App.Path & 1.zip Dim varFile() As Byte varFile = mstream.Read()

9、2.3) 修正字节数,必须是偶数个(从0到奇数)lFileSize = UBound(varFile) + 1 - (UBound(varFile) Mod 2) ReDim Preserve varFile(0 To lFileSize) As Byte2.4) 把压缩后的图片导入到accessory表中con = Persist Security Info=True;Provider=SQLOLEDB.1;User ID=sa;Password=;Data Source=?;Initial Catalog=AIS20091116094820sql1 = select * from t_ac

10、cessory where FID=1Set rs = New ADODB.Recordsetrs.Open sql1, con, adOpenDynamic, adLockOptimistic rs.Fields(FFile).AppendChunk varFile() rs.Update1.4 K/3 自定义认证开发方法目的：提供用户可定义的K/3主控台登陆方法，用户可以按自己的方式验证，例 如：实现指纹认证，声音认证。适用于K/3V10.3及以后版本。：1. 新建 VB 工程：Selfldentity.VBP2. 添加一个窗体Form.frm3. 添加一个模块Modulel.mod包含以

11、下定义：Public g_strAcctName As StringPublic g_UserName As StringPublic g_UserPassWord As String4. 添加类 Clsldentity.cls包含以下两个接口Public Function SeftClientSign(strAcctName As String, UserName As String, UserPassWord As String, ErrMsg As String) As LongIf UserName = g_UserName And g_strAcctName = strAcctNam

12、e And g_UserPassWord = Trim(UserPassWord) ThenSeftClientSign = 1End IfEnd FunctionPublic Function GetSelfPassWord(ByVal strAcctName As String, ByRef UserPassWord As String) As String弹出指纹任证界面，直到GetSelfPassWord返回值不为空Form1.Show vbModalGetSelfPassWord = testUserPassWord = 123 g_strAcctName = strAcctName

13、g_UserName = GetSelfPassWordg_UserPassWord = UserPassWordEnd Function5. 在账套管理账套参数设置，选择“自定义认证方式”6. 在用户管理，设置用户test属性为“自定义认证方式”7. 以test用户登陆。1.5 基础资料插件化开发基础资料-插件接口由 K3BaseDataEvents.dll 提供：1、概述要使用插件，需要写一个插件的DLL，弓|用K3BaseDataEvents.dll,处理其提供的 接口即可。编写好插件DLL后，需要在数据库表中增加该插件的注册记录，如下： 表名：t_ThirdPartyComponent

14、关键字段及意义：FTypeID： 101FTypeDetailID： 1-19， =2000,核算项目类别 IDFComponentName :客户端插件类的ProgIDFComponentSrv：服务端插件类的ProgID -未实现FDescription： 描述注：其中FTypeDetaillD为0时表示该插件对所有核算项目都有效，比如对所 有核算项目指定统一的编码规则、自定义某个通用行的名称等。2、K3BaseDataEvents.ItemEvents 类该类定义了核算项目编辑界面所有的事件。 Public Event AfterGridLoad() 加载各字段后触发，可以在该事件中处理

15、界面初始化、默认编码等等 Public Event GridChange(ByVal lRow As Long) 某一行单元格值更新后触发 Public Event EnterGrid(ByVal lRow As Long) 焦点进入某一行触发 - 如判断使用后不允许修改 Public Event OnPressF7 (ByVal lRow As Long,ByRef RetCol As KDVBF.ReturnCollection, ByRef Cancel As Boolean)按 F7 时触发，可以在该事件中自己处理弹出 F7 操作 Public Event BeforeList(ByV

16、al lRow As Long, ByRef strSqlReturn As String)弹出下拉列表前触发，用strSqlRetur返回查询列表的SQL语句，要求包括FNumber、FName 等字段。 Public Event BeforeSave(Cancel As Boolean)保存前触发-自定义校验数据3、K3BaseDataEvents. ItemEditInterface 类该类定义了对核算项目编辑操作的一些属性、接口和方法 属性 Public Property Get PropsString() As String功能未公开(Reserved) Public Propert

17、y Get Grid() As Object功能未公开(Reserved) Public Property Get ItemObject() As EBCGL.Item获得当前的核算项目对象，可以访问其属性 Public Property Get ItemClass() As EBCGL.ItemClass获取核算项目类别对象，如类别为物料 Public Property Get ItemClassId() As Long获取核算项目类别ID,如物料类别ID为4 Public Property Get ParentID() As Long获取核算项目上级组ID,为0则没有上级组 Public

18、Property Get ParentItemObject() As EBCGL.Item获取上级组对象,通过该对象可访问上级组代码、名称等属性 方法 Public Function GetRowNumber(FieldName As String) As Long 根据字段名称查找行号。 Public Function GetRowFieldProp(ByVal lRow As Long) As CustomProperty 根据行号 获得字段属性 Public Sub SetRowFocus(ByVal lRow As Long)设置焦点 Public Sub SetRowLock(ByV

19、al Row As Long) 设置单元只读。 Public Sub SetRowUnLock(ByVal Row As Long) 设置单元为缺省非只读 Public Sub SetRowNotNull(ByVal Row As Long) 设置为必录项 Public Sub SetRowBeNull(ByVal Row As Long) 设置为非必录项 Public Sub SetRowValue(ByVal Row As Long, Optional NewVal As Variant = , Optional NewID As Variant = 0)设置行的值 Public Func

20、tion ReadCellText(ByVal lCol As Long, ByVal lRow As Long) As String 读取 Text Public Function ReadID(ByVal Row As Long) As Long 读取内部 ID Public Function ReadValue(ByVal Row As Long) As Variant 读取数据 Public Function GetAnyRecordset(ByVal SQL As String) As ADODB.Recordset 保留的 Public Function IsItemInUsed(

21、) As Boolean判断该项目是否被使用 -wScan Public Function GetDecimalDigits(ByVal dblVal As Double) As Long 计算一个数值的小数位数 Public Function GetSystemProfileValue(ByVal sCagegory As String, ByVal sKey As String, Optional ByVal sDefault As String = ) As String获得系统参数信息 Public Function ItemIsDetail() As Boolean获得该核算项目是否

22、是明细，还是上级组 Public Sub SetRowCaption(ByVal lRow As Long, sCaption As String)设置行标题4、K3BaseDataEvents.ItemEditInterface 对象该对象不可直接创建，需由 K3BaseDataEvents.ItemEvents 的属性获得：Public Property Get EditInterface() As ItemEditInterface5、插件编写方法内部引用，初始化，并实现事件接口即可，(请参考组件K3BaseItemPlugin.dll的实 现)步骤如下：a) 新建DLL工程如Test.

23、dll，并引用插件类库K3BaseItemPlugin.dllb) 新建类如MeterialPlug(物料插件)c) 定义 WithEvents 的 K3BaseDataEvents.ItemEvents 对象，并处理其事件d) 编写接 口函数 Public Sub Show(ByVl oEvents As ItemEvents),在该函数中初始 化插件对象，必须的！e) 可以使用K3BaseDataEvents.ItemEditInterface 中提供的方法f) 插件写好后，编译成Test.dl 1,向数据库表中插入数据注册该插件即可，如下SQL：insert into t_ThirdPa

24、rtyComponent(FTypelD FTypeDetaillD, FIndex FComponentNamevalues (101,41, Tes t.MeterialPlug)-101表示基础资料，4表示物料-该sql表示当编辑物料时，加载Test.MeterialPlug插件，若要该插件在所有核算项目编辑中都加载，只要将FTypeDetailID设为0即可g) 测试、发布物料-插件Private Const ID_ITEMCLASSID = 4 物料Private WithEvents BaseltemEvents As K3BaseDataEvents.ItemEvents 事 件

25、引擎Private m_EditInterface As K3BaseDataEvents.ItemEditInterfaceAPI接口该函数为接口函数，调用该函数进行初始化Public Sub Show(ByVal oEvents As ItemEvents)IfoEvents.EditInterface.ItemClassID ID_ITEMCLASSID Then Exit SubSet BaseItemEvents = oEventsSet m_EditInterface = BaseItemEvents.EditInterfaceEnd Sub/*/*函数名称：BaseItemEve

26、nts AfterGridLoad/*日期：2009-06-11 14:18/*作者：wScan/*描述：/*参数：数据加载后触发，方便根据系统参数做某些特殊控制1 /*/Private Sub BaseItemEvents_AfterGridLoad() 加载各字段后触发End Sub6、实例：实现客户需要功能的代码a) 定义插件对象并初始化Private WithEvents BaseltemEvents As K3BaseDataEvents.ItemEvents事件引擎Privatem_EditInterfaceAs K3BaseDataEvents.ItemEditInterface

27、API 接口该函数为接口函数，调用该函数进行初始化Public Sub Show(ByVal oEvents As ItemEvents)Set BaseItemEvents = oEventsSet m_EditInterface = BaseltemEvents.EditInterfaceEnd Subb) 实现： 录入物料的时候，不需要录入上级组代码。系统自动 带出上级组代码； 核算项目录入界面的前两个字段是代码 和名称，对任何核算项目都是这样。客户要求加上前缀，如 物料代码，客户代码。Private Sub BaseItemEvents_AfterGridLoad()加载各字段后触发D

28、im lRow As LongDim sParentNumber As StringOn Error GoTo Err_HandlerlRow = m_EditInterface.GetRowNumber(FNumber)If m_EditInterface.ParentID 0 ThensParentNumber =End If自动根据上级组编码填入前缀Ifm_EditInterface.ItemObject.ItemID = 0 And m_EditInterface.ParentID 0 Then 噺增m_EditInterface .SetRowValue lRow, sParentN

29、umber & .End If设置个性化的行标题，如 物料代码、物料名称等m_EditInterface.SetRowCaption 1, m_EditInterface.ItemClass.Name & 代码!m_EditInterface.SetRowCaption 2, m_EditInterface.ItemClass.Name & 名称!m_EditInterface.SetRowCaption 3, m_EditInterface.ItemClass.Name & 全名!Exit SubErr_Handler:End Subc) 自动编码实现和上面原理一样，指定一个规则，自动生成代

30、码，并锁定不允许修改即可。d) 客户要求自动带出上级组代码，由于按上面的方法上级组代码仍然可以被修改 掉，因此一种方法是：可以让客户只录最后一级代码，在保存前自动加上其上 级组代码，处理BeforeSave事件即可。/*函数若称:Baselt emEvent s_BeforeF7 IE期乍害工痿歎F2.实现对物料的默认仓库属性的 F7 功能和下拉列表功能的进一步过滤，使其只显示包 含“6.”的仓库:Basel: emi ven: ef 3 i eF1/$:2010-04-03 11:oes zkarif:fe7：后！彈占Ft界面蒯蝮:珥的选择讯1股是固建的,飓只要臬些数据,可以通JStrFil

31、terREtur挝滤务件舸自定义Prmte Sud Easel:tmZverL-j freFfEvVal 1 艮叫 As Long, s-iFiltsrEe-un As String 揃低弹出珥界Ml触发:靶下也愫前槪Dim sField ks StringI)im ID As LongDun y As EBCG1.CjstotlFr3jerty 1ID = n_Edit Ini e rf ac e. idll (IRcw 11Set=iilEditInterface, GetRowFle 1 dProp(IRov) sField = X. SQLColurfw Select Case UCa

32、sej (sFieLd)KtrFillerEjetum = 1 tl.FHuiiber Liie X6L沁库下拉列表End SelectSet = Nothing End Subt 半屮 *半 * j| *屮 * * * * * 彳F * * * 屮屮 * 屮屮卡 ” * * * 屮|屮屮屮 * * * *屮 * * F 屮屮 i、率歎名称:Easelt ejnEvent s_EeforeLi7ffl: 2009-06-11 14:19/ 4W:辰 an卅咸:学廿下罰翩槪 、丿*卷顎:jtrSqlREt irn卞捡列表皱况谡行定义孤叫select FMunb% FNane iron .l ii

33、t飞、密+* K 勒京dS 常 itiit* 常 *帝 * 却忒 X 水常 Ji 水忒常*dh 常 tit |i 沖 t水 X 密A in 1 |i f| itit1 常 ituti 芥 器 Ji ?|l 由水+* 飞、Private Sub Basel:em3veti7 5 3efoieList (EyVal IF.ov As Lons, strSqlReturn As String1 強下按俵訓螃_Pirn sField 脑 StringDim 1ID As LongDim X As EBOGL.CustonProperty1ID = n_Edit Int erf ac e. Rb adI

34、D (IRow)Set S = m_Eci:Interface. GetEowFie 1 cPi:op(IF.ov)sField = K. EQlColwnnJlEinSelect Case UCtssS (sFielc)strSqlKetiun = J select FNU& ENmiier froi t it a There FItBilassI=5 and Flutber Like那縈3叽裁MF血仙HLW)书尼埒利感认仑库下厠俵End SelectSet X = Nothing End Sub1.6 用户权限管理插件化开发用户权限管理-插件接口由 K3BaseDataEvents.dll

35、 提供：组件位置： $/CodePublic/K3BASE/BaseData/client/K3BaseDataEvents/K3BaseDataEvents.vbp 实例插件代码位置：$/CodePublic/K3BASE/BaseData/client/K3BaseAccessPlugin/K3BaseAccessPlugin.vbp1. 概述要使用插件，需要写一个插件的DLL，弓|用K3BaseDataEvents.dll,处理其提供的 接口即可。编写好插件DLL后，需要在数据库表中增加该插件的注册记录，如下： 表名：t_ThirdPartyComponent关键字段及意义：FTypeI

36、D： 102FTypeDetaillD：从1开始，按照已有顺序+1定义。FComponentName :客户端插件类的ProgIDFComponentSrv：服务端插件类的ProgID -未实现FDescription： 描述2. K3BaseDataEvents. AccessEvents 类该类定义了权限管理保存后的相关事件。Public Event AfterSaveUserAccessGroup(ByVal UserID As Long, vctPermData AsVector, ByVal UserName As String, ByVal sMachineName As Stri

37、ng, ByVal sIPAddress As String)用户组权限保存后触发Public Event Public Event AfterSaveUserAccessDetail(ByVal ObjectType As Long, _ ByVal ObjectID As Long, _ByVal vctSecurityInfo As Object, _ByVal UserID As Long, _ByVal sUserName As String, _ByVal sMachineName As String, _ByVal sIPAddress As String, _ByVal vct

38、DelAccess As KFO.Vector)用户明细权限保存后触发3. 插件编写方法内部引用，初始化，并实现事件接口即可，（请参考组件K3BaseAccessPlugin.dll的实现）步骤如下：a） 新 建 DLL 工 程 如 K3BaseAccessPlugin.dll ， 并 引 用 插 件 类 库 K3BaseDataEvents.dllb）新建类如CBIAccessEdit （BI模块在权限修改后做相关处理的插件）c）定义 WithEvents 的 K3BaseDataEvents. AccessEvents 对象，并处理其事件d）编写接 口函数 Public Sub Show（

39、ByVl oEvents As AccessEvents）,在该函数中初 始化插件对象，必须的！e）插件写好后，编译成K3BaseAccessPlugin.dll,向数据库表中插入数据注册该插 件即可，如下SQL：insert into t_ThirdPartyComponent（FTypelD, FTypeDetaillD, FIndex. FComponentNamevalues 102,1, 1, K3BaseAccessPlugin.CBIAccessEdit - 102表示权限修改的插件类对该类插件是固定的。在权限修改界面会加载所有 定义成该类型的用户插件- 该 sql 表示当修改用

40、户权限时，加载 K3BaseAccessPlugin.CBIAccessEdit 插件。f）测试、发布Private Const ID_TypeDetailID = 1 BI 权限管理Private WithEvents m_BaseAccessEvents As K3BaseDataEvents.AccessEvents 事件引擎该函数为接口函数，调用该函数进行初始化Public Sub Show(ByVal oEvents As AccessEvents)Set m_BaseAccessEvents = oEventsEnd Sub卸载例程Private Sub Class_Termina

41、te()Set m_BaseAccessEvents = NothingEnd Sub4.实例：实现客户需要功能的代码a) 定义插件对象并初始化该函数为接口函数，调用该函数进行初始化Public Sub Show(ByVal oEvents As AccessEvents)Set m_BaseAccessEvents = oEventsEnd Subb）实现:权限修改完成后触发，请在这里填写你的业务逻辑代码 Private Sub m_BaseAccessEvents_AfterSaveUserAccessDetail(ByVal ObjectType As Long, ByVal Objec

42、tID As Long, ByVal Securityinfo As Object, ByVal Userl As Long, ByVal sUserName As String, ByVal sMachineName As String, ByVal sIPAddress As String, ByVal vctDelAccess As KFO.Vector)Dim strRet As StringDim strFaccessType As StringDim strFaccessMask As StringIf Not Securityinfo Is Nothing ThenstrFacc

43、essType = SecurityInfo(1)(FaccessType)strFaccessMask = SecurityInfo(1)(FaccessMask)End IfstrRet = ObjectType= & CStr(ObjectType) & vbCrLf & _ObjectID= & CStr(ObjectID) & vbCrLf & _FaccessType= & strFaccessType & vbCrLf & _FaccessMask= & strFaccessMask & vbCrLf & _UserID= & CStr(UserID) & vbCrLfMsgBo

44、x strRetEnd Sub权限修改完成后触发，请在这里填写你的业务逻辑代码Private Sub m_BaseAccessEvents_AfterSaveUserAccessGroup(ByVal UserID As Long, vctPermData As KFO.Vector, ByVal UserName As String, ByVal sMachineName As String, ByVal sIPAddress As String)Dim strRet As StringDim strFaccessType As StringDim strFaccessMask As Str

45、ingDim strGroupID As StringDim strSubSys As StringIf Not vctPermData Is Nothing ThenstrFaccessType = vctPermData(1)(Faccess) strFaccessMask = vctPermData(1)(FMask) strSubSys = vctPermData(1)(FSubSys) strGroupID = vctPermData(1)(FGroupID)End IfstrRet = FSubSys= & CStr(strSubSys) & vbCrLf & _FGroupID=

46、 & CStr(strGroupID) & vbCrLf & _FaccessType= & strFaccessType & vbCrLf & _FaccessMask= & strFaccessMask & vbCrLf &UserID= & CStr(UserlD) & vbCrLfMsgBox strRetEnd Sub1.7 系统参数平台插件化开发用户权限管理-插件接口由 K3ParaConsoleEvents.dll 提供： 组件位置：$/CodePublic/K3BASE/K3ParameterConsole/Client/K3ParaConsoleEvents/K3ParaCo

47、nsoleE vents.vbp实例插件代码位置：1. 概述要使用插件，需要写一个插件的DLL，弓|用K3BaseDataEvents.dll,处理其提供的 接口即可。编写好插件DLL后，需要在数据库表中增加该插件的注册记录，如下： 表名：t_ThirdPartyComponent关键字段及意义：FTypeID： 103FTypeDetaillD：按照对应功能的子系统ID*1000子系统ID*999定义 FComponentName :客户端插件类的ProgIDFComponentSrv：服务端插件类的ProgID -未实现 FDescription： 描述方法：Public Sub AddP

48、ara(dctPara as KFO.Dictionary)添加一个系统参数,dctPara是系统参数的详细信息，包括参数类型，参数值，相关组件等 信息。如果参数这中有一个名为” vctParas” 的值的话，系统会认它是一个KFO.Vector,这时进行批量添加系统参数，该原则同样适用于SetPara 中的参数值。这样可以尽量减少接口的数量。FParaType(0： CheckBox,1:TextBox,2: DropDownList,3:Button)FParaValue(CheckBox 的值用 0,1 表示；TextBox的值直接填充；DropDownList的值用chr(1)分隔显示

49、名称和值，用chr(2)分隔每个DropDownList的值； Chr(3)分隔下拉列表的初始化值和当前选中的值Button 的值用来填写要调用组件的名称，参数和要调用的方法，组件名称也就是用CreateObject调用的“工程名.类名”用chr( 1)分隔组件名称，参数和要调用的方法，如有多个参数，用chr(2)分隔各个参数， 程序解析时，首先用chr( 1)为分隔符分组，可以将参数分为一个ary(2),其中 ary(0)= “工程名.类名”ary(1)=系统参数的集合(用chr分隔)ary(2)被调用的接口方法如果想触发ClickButtonPara事件 而不想使用系统本身的方法调用相关组

50、件请使用 dct(FValue)Chr(1)Public Sub SetCellFocus(ByVal lRow As Long, ByVal lCol) 设置单元获得焦点焦点Public Sub SetCellLock(ByVal lRow As Long, ByVal lCol, bLock As Boolean) 设置单元只读属性Public Function GetCellText(ByVal lRow As Long, ByVal lCol As Long) As String 读取某个单元格的TextPublic Function SetCellText(ByVal lRow As

51、 Long, ByVal lCol As Long, Optional NewVal As Variant ) As String设置某个单元格的Text同步显示值和真实的值Public Sub SyncParaValue(ByVal lRow As Long)得到当前参数值，即调整后状态值Public Function GetParaValue(ByVal lRow As Long) As String得到当前参数值，即调整后状态值Public Function GetParaValueByParaID(ByVal ParaID As String) As String通过ParaID获取当

52、前参数所在的行号，如果该参数没有在界面上显示，则返回-1 Public Function GetParaRowByParaID(ByVal ParaID As String) As Long用子系统ID重新刷新该子系统下的所有参数到界面Public Sub RefreshParaBySubSysID(ByVal lSubSysID As Long)设置参数值Public Sub SetParaValue(ByVal lRow As Long, ByVal dctData As KFO.Dictionary)Public Sub SetParaValueByParaID(ByVal ParaID

53、 As String, ByVal dctData As KFO.Dictionary)事件：修改系统参数值时触发，dctPara为被修改参数的相关数据，Cancel=True取消修改 Public Event ChangeParaValue(ByVal dctPara As KFO.Dictionary)系统参数平台点保存，在更新数据库值之前触发Public Event BeforeSave(ByRef Cancel As Boolean)系统参数平台点保存，在修改数据库值之后触发Public Event AfterSave()点击按钮类型的系统参数后触发Public Event Click

54、ButtonPara(ByVal dctPara As KFO.Dictionary)行业配置改变时触发Public Event TradeChange(ByVal dctPara As KFO.Dictionary)子系统改变时触发Public Event SubSysNodeClick(ByVal dctPara As KFO.Dictionary)点击参数平台Public Event GridClick(ByVal dctPara As KFO.Dictionary)KeyDown 事件， F7 功能可以在该事件中实现Public Event GridKeyDown(ByVal dctP

55、ara As KFO.Dictionary)点击工具栏上的刷新 Refresh 时触发该事件事件Public Event ClickRefresh(ByVal dctPara As KFO.Dictionary)2. 系统参数定义表t ParaData系统参数平台主表FID参数唯一IDFSubSyslD子系统 IDFParaID系统参数IDFParaType系统参数类型 FSysDefaultValue系统预设默认值 FTradeValue行业配置状态值 FValue调整后状态值FSourceValueSQL系统参数来源 SQLintplintn varchar(200)intn varcha

56、r(200)n varchar(200)n varchar(200)n varchar(800)t ParaTradeData系统参数行业数据定义FID 参数 IDintFTradeID行业 IDintFParaID 参数字符型IDNVARCHAR(200)FTradeValue行业默认参数值UndefiNVARCHAR(200)T_ParaData 表：FID：参数IDID根据下面公式计算：子系统ID*10000ID*10000 + 9999目前该子系 统已有最大编号+1FSubSysID:子系统 IDFParaType：系统参数类型 0： CheckBox,1:TextBox,2: Dro

57、pDownList,3:ButtonFParalD:系统参数ID可以用字符表示的参数ID,全局唯一方便业务组标识参数 FSysDefaultValue：系统预设默认值FTradeValue：行业配置状态值FValue：调整后状态值FSourceValueSQL参数值来源SQL,定义了该字段后，保存系统参数时同时更新目标字段 注意： 业务组可以根据自己的情况填写改语句来同步更新自己的系统参数,系统用 Value来表示当前值。例如：Update t_SystemProfile Set FValue=Value Where FCategory=Base and FKey=CurrentTradeID

58、T_ParaTradeData 表：FID:请与 t_ParaTradeData 保持一致FTradeID:目前在系统中与插入了下面数据：Insert Into t_SystemProfile (FCategory,FKey,FValue) Values (Base_Trade,Trade_0,标准行业 (默认)Insert Into t_SystemProfile (FCategory,FKey,FValue) Values (Base_Trade,Trade_ 1机械行业) Insert Into t_SystemProfile (FCategory,FKey,FValue) Values

59、 (Base_Trade,Trade_2汽配行业) Insert Into t_SystemProfile (FCategory,FKey,FValue) Values (Base_Trade,Trade_3食品行业) Insert Into t_SystemProfile (FCategory,FKey,FValue) Values (Base_Trade,Trade_4医药行业) GOFTradeID与对应的ID保持一致：即0:标准行业；1:机械行业；2:汽配行业；3:食品行业; 4: 医药行业注：系统预设值其实总是与0：标准行业的值是一样的。换句话说，初始化系统预设值实际 上就是读取 0

60、:标准行业的值T_ParaData 与 T_ParaTradeData 中的预定义数据需要业务组根据需求插入。 可以通过下面语句得到当前帐套设置的行业值Select FValue from t_SystemProfile Where FCategory=Base and FKey=CurrentTradeID3. 系统参数平台界面列定义Public Enum GridColDefineCOL_FID = 1参数ID ID根据下面公式计算：子系统ID*10000ID*10000 + 9999目前该子系统已有最大编号+1COL_SUBSYS_ID = 2 子系统 IDCOL_PARA_Type =

61、 3 系 统参数类型0： CheckBox,1:TextBox,2: DropDownList,3:ButtonCOL_PARA_ID = 4系统参数ID可以用字符表示的参数ID,全局唯一COL_SYSDEFAULT_VALUE = 5 系统预设默认值COL_TRAD_VALUE = 6 行业配置状态值COL_VALUE = 7 调整后状态值COL_SUBSYS_NAME = 8 子系统名称COL_PARA_NAME = 9 参数名称COL_SYSDEFAULT_DISPLAY = 10系 统预设默认值显示列COL_TRAD_DISPLAY = 11 行 业配置状态值显示列COL_VALUE_DISPLAY = 12 调 整后状态值显示列COL_DIFF = 13 差异分析End Enum参数类型Publ