二次开发T6 的clsProductFacade接口要怎么实现

zh3305

求解释.二次开发T6 的clsProductFacade接口要怎么实现




  clsProductFacade接口中用于协调子窗体与原MDI主窗体的交互的SetFrmProxy函数总是提示初始化插件失败!自己 乱整了一天都没结果呀.  哭呀.....百度了一天找到的VB  好难懂

                               
登录/注册后可看大图

                               
登录/注册后可看大图

百度来的VB Code

1. VERSION 1.0 CLASS
   
2. BEGIN
   
3.   MultiUse = -1  'True
   
4.   Persistable = 0  'NotPersistable
   
5.   DataBindingBehavior = 0  'vbNone
   
6.   DataSourceBehavior  = 0  'vbNone
   
7.   MTSTransactionMode  = 0  'NotAnMTSObject
   
8. END
   
9. Attribute VB_Name = "clsProductFacade"
   
10. Attribute VB_GlobalNameSpace = False
    
11. Attribute VB_Creatable = True
    
12. Attribute VB_PredeclaredId = False
    
13. Attribute VB_Exposed = True
    
14. Option Explicit
    
15. 
    
16. 'by lg070314　新增兼容u870的新接口调用
    
17. '函数ILoginable_CallFunction
    
18. '函数ILoginable_Login
    
19. '属性Business
    
20. '函数ILoginable_LogOff
    
21. Implements UFPortalProxyInterface.ILoginable
    
22. Private Function ILoginable_CallFunction(ByVal cMenuId As String, ByVal cMenuName As String, ByVal cAuthId As String, ByVal cCmdLine As String) As Object
    
23.     Set ILoginable_CallFunction = CallFunction(cMenuId, cMenuName, cAuthId, cCmdLine)
    
24. End Function
    
25. Private Function ILoginable_Login() As Boolean
    
26.     If ((Not g_business Is Nothing) And g_bLogined = False) Then
    
27.         Dim oLoginTmp As Object
    
28.         Set oLoginTmp = g_business.GetVBclsLogin()
    
29.         Set m_login = oLoginTmp
    
30.         ILoginable_Login = login(oLoginTmp)
    
31.         Set ClsBill = New USERPCO.VoucherCO
    
32.         ClsBill.IniLogin m_login, errStr
    
33.         Set moLogin = ClsBill.login
    
34. 
    
35.         If (ILoginable_Login = True) Then
    
36.             g_bLogined = True
    
37.         End If
    
38.     Else
    
39.         ILoginable_Login = True
    
40.     End If
    
41. End Function
    
42. Public Property Get Business() As Object
    
43.     Set Business = g_business
    
44. End Property
    
45. Public Property Set Business(busVal As Object)
    
46.     Set g_business = busVal
    
47.     Call Create_Odl_Cls
    
48.     Set Old_ModuleCls.Business = busVal
    
49. End Property
    
50. Private Function ILoginable_LogOff() As Boolean
    
51.     ILoginable_LogOff = True
    
52.     If (g_bLogined = True) Then
    
53.         ILoginable_LogOff = LogOff()
    
54.         If (ILoginable_LogOff = True) Then
    
55.             g_bLogined = False
    
56.         End If
    
57.     End If
    
58. End Function
    
59. '调用子窗体接口，与原左树菜单控件接口一致，gd_frmMain为原MDI主窗口对象
    
60. '优先处理二次开发的功能节点，之后再处理系统原有的功能菜单'
    
61. ' by 客户化开发中心 2006/03/01
    
62. Public Function CallFunction(ByVal cMenuId As String, ByVal cMenuName As String, ByVal cAuthId As String, ByVal cCmdLine As String) As Object
    
63.     g_FormbillShow = False
    
64.     If bLoadmain = False Then
    
65.         g_bLoginSuccess = False
    
66.         Call Main
    
67.         
    
68.         If Screen.MousePointer = vbHourglass Then Screen.MousePointer = vbDefault
    
69.         If g_bLoginSuccess = False Then Exit Function
    
70.     End If
    
71.     Select Case cMenuId
    
72.         Case "MT0001", "MT0101", "MT0102", "MT0103", "MT0104", "MT0201", "MT0202", "MT0203", "MT0204", "MT0301", "MT0302", "MT0303", "MT0304", "MT0305", "MT0306"
    
73.             gd_frmMain.m_oMenu_OnCommand cMenuId, cMenuName, cAuthId, cCmdLine
    
74.         Case "MT0105" '材料出库生单
    
75.             If objKCGL Is Nothing Then
    
76.                 Set objKCGL = CreateObject("KCGLSQL.clsProductFacade")
    
77.             End If
    
78.             Dim gobjLogin As New U8Login.clsLogin
    
79.             Set gobjLogin = m_login
    
80.             gobjLogin.login ("ST")
    
81.             Set objKCGL.Business = g_business
    
82.             objKCGL.login gobjLogin
    
83.             '==============jiang==============
    
84.             objKCGL.CallFunction "ST020202", cMenuName, "ASM0401", cCmdLine
    
85.         '安洽项目
    
86. 
    
87.                    ''''''''''''''''''''cshu''''''''''''''''''''''''''''''
    
88.     End Select
    
89. End Function
    
90. '设置命令行参数，用于自动登录，860不用
    
91. Public Function SetCommandLine(ByVal cCmd As String) As Boolean
    
92.     SetCommandLine = True
    
93.     Old_ModuleCls.SetCommandLine cCmd
    
94. End Function
    
95. '发送注销消息,gd_frmMain为原MDI主窗口对象
    
96. Public Function LogOff() As Boolean
    
97.     g_bCanExit = False
    
98.     If bLoadmain = True Then
    
99.         Unload gd_frmMain
    
100.         '卸载主窗体过程中需要关闭所有本产品打开的窗体，如果成功，将g_bCanExit设为True，否则，将g_bCanExit设为False。
     
101.         LogOff = g_bCanExit
     
102.     Else
     
103.         LogOff = True
     
104.         Exit Function
     
105.     End If
     
106.    
     
107.     If LogOff = True Then
     
108.         'LogOff = Old_ModuleCls.LogOff
     
109.     End If
     
110. 
     
111. End Function
     
112. '设置窗口管理器对象，用于协调子窗体与原MDI主窗体的交互，g_oMainFrmProxy为门户主窗体代理全局对象
     
113. Public Function SetFrmProxy(ByRef oFrmProxy As Object) As Boolean
     
114. '    Call Create_Odl_Cls
     
115.     Set g_oMainFrmProxy = oFrmProxy
     
116.     Old_ModuleCls.SetFrmProxy oFrmProxy
     
117. End Function
     
118. '设置报表管理器，pRepLst为报表管理器全局对象
     
119. Public Sub SetReportMgr(pRep As clsReportManager)
     
120.     Set pRepLst = pRep
     
121.     Old_ModuleCls.SetReportMgr pRep
     
122. End Sub
     
123. '设置报表系统接口，pRepSysinfo为报表系统接口全局对象
     
124. Public Sub SetSysInterface(pSys As clsSysInterface)
     
125.     Set pRepSysinfo = pSys
     
126.     Old_ModuleCls.SetSysInterface pSys
     
127. End Sub
     
128. '设置Login对象，初始化产品，g_oLogin为产品使用的全局U8Login对象，此接口必须显式返回True或False
     
129. Public Function login(oLogin As Object) As Boolean
     
130.     Dim rst As ADODB.Recordset
     
131. '    Call Create_Odl_Cls
     
132.     Set m_login = oLogin
     
133. '    Old_ModuleCls.login oLogin
     
134.     Call Create_Report_Object
     
135.     If cModeCode = "" Then
     
136.         bLoadmain = False
     
137.         login = True
     
138.     End If
     
139. End Function
     
140. '扩展解决与外部接口问题
     
141. Public Function SetUseModeName(sUseModeName As String) As Boolean
     
142.     cModeCode = UCase(sUseModeName)
     
143. End Function
     
144. Public Function GetVouchForm() As Object
     
145.    Set GetVouchForm = GetActiveForm()
     
146. End Function
     
147. '设置产品按钮风格，在门户中改变按钮风格时调用
     
148. Public Function SetButtonStyle(ByVal cBtnStyle As String) As Boolean
     
149.     'cBtnStyle为"T"表示文本按钮；cBtnStyle为"P"表示图片按钮
     
150.     Call GetApperance
     
151.     g_bTextButton = IIf(UCase(cBtnStyle) <> "P", True, False)
     
152.     Call ChangeToolbar
     
153.     SetButtonStyle = True
     
154. End Function
     
155. '将系统类传出供外部系统更改部分参数
     
156. Public Function GetSASysInfObject() As Object
     
157.     Set GetSASysInfObject = clsSAWeb
     
158. End Function
     
159. '是否实现加载了单据窗体
     
160. Public Property Get bSuccessShowVoucher() As Boolean
     
161.     bSuccessShowVoucher = g_FormbillShow
     
162. End Property
     
163. '读取配置文件
     
164. 'by 客户化开发中心  2006/03/01
     
165. Public Sub Create_Odl_Cls()
     
166. On Error GoTo Err
     
167.     'Old_ModuleCls_name表示要替换的原先的类名称
     
168.     Old_ModuleCls_name = "UfSubSys.clsProductFacade"
     
169.         
     
170.     If Trim(Old_ModuleCls_name) <> "" Then
     
171.         If Old_ModuleCls Is Nothing Then
     
172.             Set Old_ModuleCls = CreateObject(Old_ModuleCls_name)
     
173.         End If
     
174.     End If
     
175. Exit Sub
     
176. Err:
     
177.     MsgBox "类参数配置错误，请检查！" & Err.Description
     
178. End Sub
     
179. 'by ahzzd 20070323
     
180. '处理870不能对老报表的支持
     
181. '在这里初始化这两个对象
     
182. 'Public pRepSysinfo  As clsSysInterface
     
183. Public Sub Create_Report_Object()
     
184.     On Error Resume Next
     
185.     If pRepSysinfo Is Nothing Then
     
186.       Dim adoConn As New ADODB.Connection
     
187.       adoConn.ConnectionString = m_login.UfDbName
     
188.       adoConn.Open
     
189.       Set pRepSysinfo = New clsSysInterface
     
190.       pRepSysinfo.systemId = m_login.cSub_Id
     
191.       pRepSysinfo.ServerRunmode = False
     
192.       Set pRepSysinfo.objU8Login = m_login
     
193.       pRepSysinfo.InitInterFace m_login.cSub_Id, , , adoConn, , , , , , , , , m_login
     
194.       Set pRepLst = pRepSysinfo.GetReportEngine()
     
195.       If pRepLst Is Nothing Then MsgBox " pRepLst Is Nothing "
     
196.       Old_ModuleCls.SetSysInterface pRepSysinfo
     
197.       Old_ModuleCls.SetReportMgr pRepLst
     
198.       pRepSysinfo.HelpFile = App.HelpFile
     
199.       Set adoConn = Nothing
     
200.     End If
     
201. End Sub
     

复制代码

jamleaf

这个解决了没有啊？

bugs

这不是T6的。 看180行，这起码是U870以上版本用的。

zh3305

郁闷呀.  整了两天 自己整出来了.     原因是后来生成的com组建一直没有更新...  好郁闷呀....

zh3305

..........................

大脸猫86

学习了，尽管我什么都没看懂。

xjy2004

楼主，是不是T6呀，SQL部分有没有？