《K3常用二次开发》由会员分享，可在线阅读，更多相关《K3常用二次开发（21页珍藏版）》请在金锄头文库上搜索。
1、【精品文档】如有侵权，请联系网站删除，仅供学习与交流123 K3常用二次开发.精品文档.4 常用二次开发方法4.1 登陆界面图片修改1) 在中间层方式：在中间层KDCOM目录新建两个图片文件： LOGIN_PIC_LOG_TOP.bmp适用于10.4版本+PT007378，或V11版本及以后版本LOGIN_PIC_LOG_BOTTOM.bmp适用于10.4版本+PT007378，或V11版本及以后版本MAIN_PIC_LOG_RIGHT_FLOWCHART.bmp, 适用于10.4版本+PT007378，或V11版本MAIN_PIC_LOG_LEFT_FLOWCHART.bmp, 适用于10.
2、4版本+PT007378，或V11版本MAIN_PIC_LOG_LEFT.bmp, 适用于10.4版本+PT007378，或V11版本MAIN_PIC_LOG_RIGHT.bmp, 适用于10.4版本+PT007378，或V11版本该方式不需要每个客户端机器安装图片，登陆时自动显示。2) 客户端方式：直接修改以下图片文件，适用于V12及以后版本：F:ProgramFilesKingdeeK3ERPk3StandardKDSYSTEMKEE_imgLogo.bmp3) 企业LOG方式在中间层新建一个文件夹，命名为eptlogo并将其设置为只读共享，然后制作两个BMP格式的图片，分别作为logo和
3、背景图，大小为145180，分别命名为enterprise_logo.bmp,enterprise_bg.bmp,在客户端的主控台编辑器启用企业界面即可。4) 图标替换LOG 替换图片：KDCOM文件夹下名称长*宽(像素)说明LOGIN_PIC_LOG_BOTTOM.bmp 142*39登录界面底部LOGIN_PIC_LOG_TOP.bmp331*101登录界面顶部需要登录主控台-系统-设置-主控台编辑-选项-取消启用企业界面应用方案。V12.0以后不需要下面文件：MAIN_PIC_LOG_LEFT.bmp614*63主控台左上MAIN_PIC_LOG_RIGHT.bmp186*36主控台右上
4、MAIN_PIC_LOG_LEFT_FLOWCHART.bmp614*71流程图左上MAIN_PIC_LOG_RIGHT_FLOWCHART.bmp 191*36流程图右上主控台子系统图标替换：把图标文件后缀名改为.dat文件，替换为：D:Program FilesKingdeeK3ERPSYSTEMICONsys_SubsysID.dat登录界面图片替换：(该替换方式不支持只替换中间层后客户端自动替换)V12.1 V12.2：(图片名称以成长版简体中文为例，如是WISE则将KEE替换为KUE，如是繁体或英文环境则将CHS替换为CHT或EN)KEE_imgLogo.bmp 370*87登录界面
5、左上角KEE_ImgLogin.bmp617*408登录界面背景KEE_imgLogoys.bmp92*52登录界面右下角友商网图标kee_imglogo2.bmp110*52登录界面右下角Kindee图标KEE_help_CHS.gif618*76用户手册顶部图标KEE_KDTool_CHS.gif793*75客户端工具包顶部图标KEE_Login_ACCT_CHS.bmp440*270帐套管理背景图片KEE_About_logo_CHS.bmp365*102关于界面LOGO4.2 主控台无界面登陆适用版本：(K/3V11.0.1+PT016290或V12以上版本)1) 域用户登录：提供命令
6、行参数:KDMain.exe -LoginWin|账套代码|机构密码 ,无界面直接登录到K/3系统主控台2）命名用户登录：提供命令行参数KDMain.exe -LoginUser|账套代码|机构密码|用户名|用户密码, 无界面直接登录K/3系统主控台3） 参数之间的分隔符默认为”|”，由于用户密码可能包含特殊字符，用户可以通过修改注册表改变分隔符，注册表参数：路径：HKEY_CURRENT_USERSoftWareKingDeeK3 键：LoginParm4） 获取账套代码的接口组件名：KdLogin.dll组件部署：客户端%Kdsystem%程序名：KdLogin.clsLogin方法名：G
7、etAccountList参数描述GetAccountList() As ADODB.Recordset参数：无返回值类型：ADODB.Recordset，包含字段：序号字段名描述1FAcctID账套ID2FAcctNumber账套代码3FAcctName账套名称5） 测试登录参数设置是否成功的接口组件名：KdLogin.dll组件部署：客户端%Kdsystem%程序名：KdLogin.NoUILogin方法名：LoginUser参数描述Public Function LoginUser(ByVal sLoginType As String _ , ByVal sAcctNumber As S
8、tring _ , ByVal sOrgPass As String _ , ByVal sUserName As String _ , ByVal sUserPass As String) As String参数:序号字段名参数类型描述1sLoginTypeString登录方式：-LoginWin 域用户身份登录-LoginUser 命名用户身份登录2sAcctNumberString账套代码3sOrgPassString组织机构密码例如：账套代码为：10.02,则为组织机构10的密码.4sUserNameString用户名,域用户身份登录时为空5sUserPassString用户密码,域用
9、户身份登录时为空返回值类型：String，空字符串代表登录成功，否则登陆不成功,内容为登录不成功的原因。4.3 基础资料的图片读写1.显示图片1.1）从数据库取得图片的二进制数据 Dim bytFile() As Byte 根据取数SQL生成记录集:select FFile from t_Accessory bytFile= rs.Fields(FFILE)1.2)保存到文件 Dim smFile As adodb.Stream Set smFile = New adodb.Stream smFile.Type = adTypeBinary smFile.Open smFile.Write b
10、ytFile smFile.SaveToFile m_sTempFileName, adSaveCreateOverWrite1.3)解压缩 Dim ozip As Object Set ozip = CreateObject(KDZIP.ZIP) ozip.DeCompress m_sTempFileName, sFileName1.4)显示出来 Set Img.Picture = LoadPicture(sFileName)1. 保存图片2.1)对图片进行压缩，压缩强度为 6 Set dzip = CreateObject(KDZIP.ZIP) dzip.Compress App.Path
11、 & 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()2.3)修正字节数,必须是偶数个(从0到奇数) lFileSize = UBound(varFile) + 1 - (UBound(varFile) Mod 2) ReDim Preserve varFile(0
12、 To lFileSize) As Byte2.4)把压缩后的图片导入到t_accessory表中 con = Persist Security Info=True;Provider=SQLOLEDB.1;User ID=sa;Password=;Data Source=?;Initial Catalog=AIS20091116094820 sql1 = select * from t_accessory where FID=1 Set rs = New ADODB.Recordset rs.Open sql1, con, adOpenDynamic, adLockOptimistic rs.
13、Fields(FFile).AppendChunk varFile() rs.Update4.4 K/3自定义认证开发方法目的：提供用户可定义的K/3主控台登陆方法，用户可以按自己的方式验证，例如：实现指纹认证，声音认证。适用于K/3V10.3及以后版本。：1. 新建VB工程：SelfIdentity.VBP2. 添加一个窗体Form.frm3. 添加一个模块Module1.mod包含以下定义：Public g_strAcctName As StringPublic g_UserName As StringPublic g_UserPassWord As String4. 添加类ClsIden
14、tity.cls包含以下两个接口Public Function SeftClientSign(strAcctName As String, UserName As String, UserPassWord As String, ErrMsg As String) As Long If UserName = g_UserName And g_strAcctName = strAcctName And g_UserPassWord = Trim(UserPassWord) Then SeftClientSign = 1 End IfEnd FunctionPublic Function GetSelfPassWord(ByVal strAcctName As String, ByRef UserPassWord As String) As String 弹出指纹任证界面,直到GetSelfPassWord返回值不为空
