K3查询基础资料开发代码

最新推荐文章于 2017-07-18 16:34:00 发布
最新推荐文章于 2017-07-18 16:34:00 发布
阅读量3.9k 收藏 3
点赞数
分类专栏： K3 
'视图查询一个科目 
Private Sub ViewAccount() 
'添加错误陷阱 
On Error GoTo HERROR 
Dim obj As Object 

Dim retObj As Object 

Set obj = CreateObject("EBCGLView.GLView") 
Set retObj = obj.AccountLookup() 
If retObj.ReturnOK Then 
txtNumber.Text = retObj.ReturnObject.Number 
': AccountID : 1003 : Long : frmLookUp.ViewAccount 
'如果要得到更加详细的信息可以访问retObj.ReturnObject对象 
End If 
Set obj = Nothing 
Set retObj = Nothing 
Exit Sub 
HERROR: 
MsgBox Err.Description 
End Sub 

'查询指定科目 
Private Sub SearchAccount(ByVal FNumber As String) 
'添加错误陷阱 
On Error GoTo HERROR 
Dim obj As Object 
Dim retObj As Object 

Set obj = CreateObject("EBCGLView.GLData") 
Set retObj = obj.GetAccount(FNumber) 
If Not retObj Is Nothing Then 
MsgBox "代码为：" & FNumber & "的科目存在" 
Else 
MsgBox "代码为：" & FNumber & "的科目不存在" 
End If 
Set obj = Nothing 
Set retObj = Nothing 
Exit Sub 
HERROR: 
MsgBox Err.Description 
End Sub 

'视图查询一个客户 
Private Sub ViewCust() 
'添加错误陷阱 
On Error GoTo HERROR 
Dim obj As Object 
Dim retObj As Object 

Set obj = CreateObject("EBCGLView.GLView") 
Set retObj = obj.ItemLookup(1) 
If retObj.ReturnOK Then 
txtNumber.Text = retObj.ReturnObject.Number 
': AccountID : 1003 : Long : frmLookUp.ViewAccount 
'如果要得到更加详细的信息可以访问retObj.ReturnObject对象 
End If 
Set obj = Nothing 
Set retObj = Nothing 
Exit Sub 
HERROR: 
MsgBox Err.Description 
End Sub 
'查询指定客户 
Private Sub SearchCust(ByVal FNumber As String) 
'添加错误陷阱 
On Error GoTo HERROR 
Dim obj As Object 
Dim retObj As Object 

Set obj = CreateObject("EBCGLView.GLData") 
Set retObj = obj.GetItem(1, , FNumber) 
If Not retObj Is Nothing Then 
MsgBox "代码为：" & FNumber & "的客户存在" 
Else 
MsgBox "代码为：" & FNumber & "的客户不存在" 
End If 
Set obj = Nothing 
Set retObj = Nothing 
Exit Sub 
HERROR: 
MsgBox Err.Description 
End Sub 

'视图查询一个部门 
Private Sub ViewDept() 
'添加错误陷阱 
On Error GoTo HERROR 
Dim obj As Object 
Dim retObj As Object 

Set obj = CreateObject("EBCGLView.GLView") 
Set retObj = obj.ItemLookup(2) 
If retObj.ReturnOK Then 
txtNumber.Text = retObj.ReturnObject.Number 
': AccountID : 1003 : Long : frmLookUp.ViewAccount 
'如果要得到更加详细的信息可以访问retObj.ReturnObject对象 
End If 
Set obj = Nothing 
Set retObj = Nothing 
Exit Sub 
HERROR: 
MsgBox Err.Description 
End Sub 
'查询指定部门 
Private Sub SearchDept(ByVal FNumber As String) 
'添加错误陷阱 
On Error GoTo HERROR 
Dim obj As Object 
Dim retObj As Object 

Set obj = CreateObject("EBCGLView.GLData") 
Set retObj = obj.GetItem(2, , FNumber) 
If Not retObj Is Nothing Then 
MsgBox "代码为：" & FNumber & "的部门存在" 
Else 
MsgBox "代码为：" & FNumber & "的部门不存在" 
End If 
Set obj = Nothing 
Set retObj = Nothing 
Exit Sub 
HERROR: 
MsgBox Err.Description 
End Sub 

'视图查询一个职员 
Private Sub ViewEMP() 
'添加错误陷阱 
On Error GoTo HERROR 
Dim obj As Object 
Dim retObj As Object 

Set obj = CreateObject("EBCGLView.GLView") 
Set retObj = obj.ItemLookup(3) 
If retObj.ReturnOK Then 
txtNumber.Text = retObj.ReturnObject.Number 
': AccountID : 1003 : Long : frmLookUp.ViewAccount 
'如果要得到更加详细的信息可以访问retObj.ReturnObject对象 
End If 
Set obj = Nothing 
Set retObj = Nothing 
Exit Sub 
HERROR: 
MsgBox Err.Description 
End Sub 
'查询指定职员 
Private Sub SearchEMP(ByVal FNumber As String) 
'添加错误陷阱 
On Error GoTo HERROR 
Dim obj As Object 
Dim retObj As Object 

Set obj = CreateObject("EBCGLView.GLData") 
Set retObj = obj.GetItem(3, , FNumber) 
If Not retObj Is Nothing Then 
MsgBox "代码为：" & FNumber & "的职员存在" 
Else 
MsgBox "代码为：" & FNumber & "的职员不存在" 
End If 
Set obj = Nothing 
Set retObj = Nothing 
Exit Sub 
HERROR: 
MsgBox Err.Description 
End Sub 


'视图查询一个物料 
Private Sub ViewICItem() 

'添加错误陷阱 
On Error GoTo HERROR 

Dim obj As Object 
Dim retObj As Object 

Set obj = CreateObject("EBCGLView.GLView") 
Set retObj = obj.ItemLookup(4) 
If retObj.ReturnOK Then 
txtNumber.Text = retObj.ReturnObject.Number 
': AccountID : 1003 : Long : frmLookUp.ViewAccount 
'如果要得到更加详细的信息可以访问retObj.ReturnObject对象 
End If 
Set obj = Nothing 
Set retObj = Nothing 
Exit Sub 
HERROR: 
MsgBox Err.Description 
End Sub 
'查询指定物料 
Private Sub SearchICItem(ByVal FNumber As String) 
'添加错误陷阱 
On Error GoTo HERROR 
Dim obj As Object 
Dim retObj As Object 

Set obj = CreateObject("EBCGLView.GLData") 
Set retObj = obj.GetItem(4, , FNumber) 
If Not retObj Is Nothing Then 
MsgBox "代码为：" & FNumber & "的物料存在" 
Else 
MsgBox "代码为：" & FNumber & "的物料不存在" 
End If 
Set obj = Nothing 
Set retObj = Nothing 
Exit Sub 
HERROR: 
MsgBox Err.Description 
End Sub 


'视图查询一个仓库 
Private Sub ViewStock() 
'添加错误陷阱 
On Error GoTo HERROR 
Dim obj As Object 
Dim retObj As Object 

Set obj = CreateObject("EBCGLView.GLView") 
Set retObj = obj.ItemLookup(5) 
If retObj.ReturnOK Then 
txtNumber.Text = retObj.ReturnObject.Number 
': AccountID : 1003 : Long : frmLookUp.ViewAccount 
'如果要得到更加详细的信息可以访问retObj.ReturnObject对象 
End If 
Set obj = Nothing 
Set retObj = Nothing 
Exit Sub 
HERROR: 
MsgBox Err.Description 
End Sub 
'查询指定仓库 
Private Sub SearchStock(ByVal FNumber As String) 
'添加错误陷阱 
On Error GoTo HERROR 
Dim obj As Object 
Dim retObj As Object 

Set obj = CreateObject("EBCGLView.GLData") 
Set retObj = obj.GetItem(5, , FNumber) 
If Not retObj Is Nothing Then 
MsgBox "代码为：" & FNumber & "的仓库存在" 
Else 
MsgBox "代码为：" & FNumber & "的仓库不存在" 
End If 
Set obj = Nothing 
Set retObj = Nothing 
Exit Sub 
HERROR: 
MsgBox Err.Description 
End Sub 


'视图查询一个计量单位 
Private Sub ViewUnit() 
'添加错误陷阱 
On Error GoTo HERROR 
Dim obj As Object 
Dim retObj As Object 

Set obj = CreateObject("EBCGLView.GLView") 
Set retObj = obj.UnitGroupLookup() 
If retObj.ReturnOK Then 
txtUnitGroup.Tag = retObj.ReturnValue 
txtUnitGroup = retObj.ReturnObject.Name 
': m_GroupName : "寸" : String : frmLookUp.ViewUnit 
Set retObj = obj.UnitLookup(retObj.ReturnValue) 
If retObj.ReturnOK Then 
txtNumber.Text = retObj.ReturnObject.Number 
': AccountID : 1003 : Long : frmLookUp.ViewAccount 
'如果要得到更加详细的信息可以访问retObj.ReturnObject对象 
End If 
End If 
Set obj = Nothing 
Set retObj = Nothing 
Exit Sub 
HERROR: 
MsgBox Err.Description 
End Sub 
'查询指定计量单位 
Private Sub SearchUnit(ByVal FNumber As String) 
'添加错误陷阱 
On Error GoTo HERROR 
Dim obj As Object 
Dim retObj As Object 

Set obj = CreateObject("EBCGLView.GLData") 

Set retObj = obj.GetUnit(Val(txtUnitGroup.Tag), , FNumber) 
If Not retObj Is Nothing Then 
MsgBox "计量单位组为:" & txtUnitGroup & "代码为：" & FNumber & "的计量单位存在" 
Else 
MsgBox "计量单位组为:" & txtUnitGroup & "代码为：" & FNumber & "的计量单位不存在" 
End If 
Set obj = Nothing 
Set retObj = Nothing 
Exit Sub 
HERROR: 
MsgBox Err.Description 
End Sub 


'视图查询一个供应商 
Private Sub ViewSupply() 
'添加错误陷阱 
On Error GoTo HERROR 
Dim obj As Object 
Dim retObj As Object 

Set obj = CreateObject("EBCGLView.GLView") 
Set retObj = obj.ItemLookup(8) 
If retObj.ReturnOK Then 
txtNumber.Text = retObj.ReturnObject.Number 
': AccountID : 1003 : Long : frmLookUp.ViewAccount 
'如果要得到更加详细的信息可以访问retObj.ReturnObject对象 
End If 
Set obj = Nothing 
Set retObj = Nothing 
Exit Sub 
HERROR: 
MsgBox Err.Description 
End Sub 
'查询指定供应商 
Private Sub SearchSupply(ByVal FNumber As String) 
'添加错误陷阱 
On Error GoTo HERROR 
Dim obj As Object 
Dim retObj As Object 

Set obj = CreateObject("EBCGLView.GLData") 
Set retObj = obj.GetItem(8, , FNumber) 
If Not retObj Is Nothing Then 
MsgBox "代码为：" & FNumber & "的供应商存在" 
Else 
MsgBox "代码为：" & FNumber & "的供应商不存在" 
End If 
Set obj = Nothing 
Set retObj = Nothing 
Exit Sub 
HERROR: 
MsgBox Err.Description 
End Sub 

'视图查询一个辅助资料(职务) 
Private Sub ViewSubMessage(ByVal TypeID As Long) 
'添加错误陷阱 
On Error GoTo HERROR 
Dim obj As Object 
Dim retObj As Object 

Set obj = CreateObject("EBCGLView.GLView") 
Set retObj = obj.SubMesLookup(TypeID) 
If retObj.ReturnOK Then 
txtNumber.Text = retObj.ReturnObject.Number 
': AccountID : 1003 : Long : frmLookUp.ViewAccount 
'如果要得到更加详细的信息可以访问retObj.ReturnObject对象 
End If 
Set obj = Nothing 
Set retObj = Nothing 
Exit Sub 
HERROR: 
MsgBox Err.Description 
End Sub 
'查询指定辅助资料(职务) 
Private Sub SearchSubMessage(ByVal FNumber As String, ByVal TypeID As Long) 
'添加错误陷阱 
On Error GoTo HERROR 
Dim obj As Object 
Dim retObj As Object 

Set obj = CreateObject("EBCGLView.GLData") 
Set retObj = obj.GetSubMes(TypeID, , FNumber) 
If Not retObj Is Nothing Then 
MsgBox "代码为：" & FNumber & "的辅助资料存在" 
Else 
MsgBox "代码为：" & FNumber & "的辅助资料不存在" 
End If 
Set obj = Nothing 
Set retObj = Nothing 
Exit Sub 
HERROR: 
MsgBox Err.Description 
End Sub 


Private Sub cboClass_Click() 

If Val(Mid(cboClass.Text, 100)) = 7 Then 
txtUnitGroup.Visible = True 
lblUnitGroup.Visible = True 
Else 
txtUnitGroup.Visible = False 
lblUnitGroup.Visible = False 
End If 
End Sub 

Private Sub cmdExplore_Click() 
Select Case Val(Mid(cboClass.Text, 100)) 
Case 0 
ViewAccount 
Case 1 
ViewCust 
Case 2 
ViewDept 
Case 3 
ViewEMP 
Case 4 
ViewICItem 
Case 5 
ViewStock 
Case 7 
ViewUnit 
Case 8 
ViewSupply 
Case 29 
ViewSubMessage 29 
Case 35 
ViewSubMessage 35 
Case 130 
Case 32 
End Select 

End Sub 

Private Sub cmdFind_Click() 
If Len(txtNumber) = 0 Then Exit Sub 
Select Case Val(Mid(cboClass.Text, 100)) 
Case 0 
SearchAccount txtNumber 
Case 1 
SearchCust txtNumber 
Case 2 
SearchDept txtNumber 
Case 3 
SearchEMP txtNumber 
Case 4 
SearchICItem txtNumber 
Case 5 
SearchStock txtNumber 
Case 7 
SearchUnit txtNumber 
Case 8 
SearchSupply txtNumber 
Case 29 
SearchSubMessage txtNumber, 29 
Case 35 
SearchSubMessage txtNumber, 35 
Case 130 
Case 32 
End Select 
End Sub 

Private Sub UserForm_Initialize() 
'信息参见表t_ItemClass、t_SubMesType 
cboClass.AddItem "科目" & Space(100) & "0" 
cboClass.AddItem "客户" & Space(100) & "1" 
cboClass.AddItem "部门" & Space(100) & "2" 
cboClass.AddItem "职员" & Space(100) & "3" 
cboClass.AddItem "物料" & Space(100) & "4" 
cboClass.AddItem "仓库 " & Space(100) & "5" 
cboClass.AddItem "计量单位" & Space(100) & "7" 
cboClass.AddItem "供应商" & Space(100) & "8" 
cboClass.AddItem "辅助资料(职务)" & Space(100) & "29" 
cboClass.AddItem "辅助资料(结算期限)" & Space(100) & "35" 
'如果是其他资料就采用类似的方法，自定义核算项目和系统预设的核算处理方式相同 
cboClass.ListIndex = 0 
InitText 
End Sub 

Private Sub InitText() 
Text1.Text = "名称 内部内码值 查询方法 查找方法" & vbCrLf & _ 
"科目 <无> EBCGLView.GLView.AccountLookup() EBCGLView.GLData.GetAccount(FNumber)" & vbCrLf & "币别 <无> EBCGLView.GLView.CurrencyLookup() EBCGLView.GLData.GetCurrency(FNumber)" & vbCrLf & _ 
"计量单位 <无> EBCGLView.GLView.UnitLookup(GroupID) EBCGLView.GLData.GetUnit(,,FNumber)" & vbCrLf & "计量单位组 <无> EBCGLView.GLView.UnitGroupLookup() EBCGLView.GLData.GetUnitGroup(FNumber)" & vbCrLf & _ 
"客户 1 EBCGLView.GLView.ItemLookup(1) EBCGLView.GLData.GetItem(1, , FNumber)" & vbCrLf & "部门 2 EBCGLView.GLView.ItemLookup(2) EBCGLView.GLData.GetItem(2, , FNumber)" & vbCrLf & _ 
"职员 3 EBCGLView.GLView.ItemLookup(3) EBCGLView.GLData.GetItem(3, , FNumber)" & vbCrLf & "物料 4 EBCGLView.GLView.ItemLookup(4) EBCGLView.GLData.GetItem(4, , FNumber)" & vbCrLf & _ 
"仓库 5 EBCGLView.GLView.ItemLookup(5) EBCGLView.GLData.GetItem(5, , FNumber)" & vbCrLf & _ 
"供应商 8 EBCGLView.GLView.ItemLookup(8) EBCGLView.GLData.GetItem(8, , FNumber)" & vbCrLf & _ 
"采购费用种类 20 EBCGLView.GLView.SubMesLookup(20) EBCGLView.GLData.GetSubMes(20, , FNumber)" & vbCrLf & _ 
"运输方式 21 EBCGLView.GLView.SubMesLookup(21) EBCGLView.GLData.GetSubMes(21, , FNumber)" & vbCrLf & _ 
"原因 22 EBCGLView.GLView.SubMesLookup(22) EBCGLView.GLData.GetSubMes(22, , FNumber)" & vbCrLf & _ 
"职称 24 EBCGLView.GLView.SubMesLookup(24) EBCGLView.GLData.GetSubMes(24, , FNumber)" & vbCrLf & _ 
"行业 25 EBCGLView.GLView.SubMesLookup(25) EBCGLView.GLData.GetSubMes(25, , FNumber)" & vbCrLf & _ 
"区域 26 EBCGLView.GLView.SubMesLookup(26) EBCGLView.GLData.GetSubMes(26, , FNumber)" & vbCrLf & _ 
"付款期限 28 EBCGLView.GLView.SubMesLookup(28) EBCGLView.GLData.GetSubMes(28, , FNumber)" & vbCrLf & _ 
"供应商类别 27 EBCGLView.GLView.SubMesLookup(27) EBCGLView.GLData.GetSubMes(27, , FNumber)" & vbCrLf & _ 
"职务 29 EBCGLView.GLView.SubMesLookup(29) EBCGLView.GLData.GetSubMes(29, , FNumber)" & vbCrLf & _ 
"职员类别 30 EBCGLView.GLView.SubMesLookup(30) EBCGLView.GLData.GetSubMes(30, , FNumber)" & vbCrLf & _ 
"结算期限 35 EBCGLView.GLView.SubMesLookup(35) EBCGLView.GLData.GetSubMes(35, , FNumber)" & vbCrLf & _ 
"所有制 50 EBCGLView.GLView.SubMesLookup(50) EBCGLView.GLData.GetSubMes(50, , FNumber)" & vbCrLf & _ 
"资产关系 51 EBCGLView.GLView.SubMesLookup(51) EBCGLView.GLData.GetSubMes(51, , FNumber)" & vbCrLf & _ 
"上级主管 52 EBCGLView.GLView.SubMesLookup(52) EBCGLView.GLData.GetSubMes(52, , FNumber)" & vbCrLf & _ 
"结算方式 130 EBCGLView.GLView.SubMesLookup(130) EBCGLView.GLData.GetSubMes(130, , FNumber)" & vbCrLf & _ 
"文化程度 23 EBCGLView.GLView.SubMesLookup(23) EBCGLView.GLData.GetSubMes(23, , FNumber)" & vbCrLf & _ 
"交货方式 32 EBCGLView.GLView.SubMesLookup(32) EBCGLView.GLData.GetSubMes(32, , FNumber)" & vbCrLf & _ 
"价格类型 245 EBCGLView.GLView.SubMesLookup(245) EBCGLView.GLData.GetSubMes(245, , FNumber)" 
End Sub


giianhui
关注
  • 0
    点赞
  • 踩
  • 3
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
K3修复补丁（对Automation错误比较有效）
03-15
K3修复补丁（对Automation错误比较有效）
K3基础资料K3基础资料K3基础资料
04-04
K3基础资料K3基础资料K3基础资料K3基础资料K3基础资料K3基础资料K3基础资料K3基础资料K3基础资料K3基础资料
金蝶K3基础组件
05-18
金蝶客户化开发 K3基础组件，非常有用的开发参考工具
K3 ERP查询分析工具
08-20
K/3 ERP查询分析工具 SQL报表查询说明 K3 的“查询分析工具”是K3 系统中一个非常好的报表设计开发工具。通过它可以直接使用 SQL 语句制定符合企业实际需求的各类简单查。
K3基础环境组件修复工具
01-04
K3基础环境组件修复工具是在金蝶软件安装前检查基础安装环境并修复的工具。
C# .NET插件编程 UIOSP插件组件
08-04
UIOSP插件组件集成C# .NET开发，方便学习插件的朋友更容易更快的开发插件程序，安装后里面有帮助文档，重启VS，在WEB项目里就有插件相关信息了，希望对学习喜欢插件编程的朋友有所帮助
k3cloud插件开发帐表，动态表单，基础资料，单据插件开发，例子代码
04-25
k3cloud插件开发全部例子代码，包括简单帐表，基础资料，单据插件开发，动态表单。
K3 Cloud 二次开发文档
01-19
总的来说，这份【K3 Cloud 二次开发文档】是开发者深入理解和定制K3 Cloud系统的重要参考资料，它将帮助企业快速适应变化的业务环境，提升信息化系统的价值。通过仔细研读并实践文档中的内容，开发者可以更加熟练地...
K3 WISE BOS插件开发培训(2018版)
01-03
1. **BOS基础架构**：理解BOS的基础架构是开发插件的第一步。BOS采用服务导向架构（SOA），由业务服务、工作流、报表、数据字典等模块构成，支持跨系统集成和业务流程的灵活配置。 2. **插件开发环境**：搭建开发...
K3用administrator用户登录报运行时错误2007
04-02
K3用administrator用户登录报运行时错误2007
EBCGL组件参考手册.pdf
08-11
EBCGL组件参考手册.金碟二次开发参考资料非常详细.
搭建K3cloud插件开发环境
08-29
1. **K3Cloud服务器端**：这是开发的基础，需要在本地安装K3Cloud的服务器端。你可以从官方开放平台http://open.kingdee.com下载安装包，并申请30天的临时许可，同时导入Demo数据中心以便于开发和测试。 2. **SQL ...
金蝶K3 BOS插件开发手册.pdf
05-31
6. 浏览器控件（BrowseCtl属性）：在金蝶K3 BOS插件开发中，可能需要与浏览器控件进行交互，以实现特定的功能，如数据输入、数据查询等。 7. 开发示例和使用说明：手册中可能会提供一些开发示例和使用说明，帮助...
K3 查询收集
weixin_30279315的博客
07-18 99
外购入库---的--采购方式 select * from t_SubMessage where FTypeID=162 转载于:https://www.cnblogs.com/51yi/p/7201223.html
GLView基本分析
镜子蓝玉的专栏
10-27 5698
GLView是cocos2d-x基于OpenGL ES的调用封装UI库。 OpenGL本身是跨平台的计算机图形实现API，在每个平台的具体实现是不一样。所以每次使用之前先要初始化，去设置平台相关的信息。下面以win32的平台实现去分析：首先进入win32程序实现的入口文件： bool AppDelegate::applicationDidFinishLaunching() { // i
K3整理
weixin_30522183的博客
04-24 121
当金蝶提示“该模块使用已超过正式版许可最大数！”，需要解决的办法是： 打开K3的“帐套管理”系统，“系统(S)”菜单-“系统使用状况(D)”-系统使用状态窗口，然后点击橡皮擦 删除即可了。 转载于:https://www.cnblogs.com/longhao510/p/5427456.html...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值