U8门户开发手册(DOC)说课讲解

附录：门户示例详解

内容 ：增加产品 操作窗口 写入门户消息 联查其他功能

第一步：增加产品

在UFsystem 中执行下列sql --增加门户菜单

INSERT INTO [UFSystem].[dbo].[UA_Menu]([cMenu_Id], [cMenu_Name], [cMenu_Eng], [cSub_Id],

[IGrade], [cSupMenu_Id], [bEndGrade], [cAuth_Id], [iOrder], [iImgIndex], [Paramters], [Depends], [Flag])

VALUES('LZ','测试产品',null,'LZ',0,'SCMG',0,NULL,0,0,NULL,NULL,NULL)

INSERT INTO [UFSystem].[dbo].[UA_Menu]([cMenu_Id], [cMenu_Name], [cMenu_Eng], [cSub_Id],

[IGrade], [cSupMenu_Id], [bEndGrade], [cAuth_Id], [iOrder], [iImgIndex], [Paramters], [Depends], [Flag])

VALUES('LZ01','测试产品单据1',null,'LZ',1,'LZ',1,NULL,0,0,NULL,NULL,NULL)

INSERT INTO [UFSystem].[dbo].[UA_Menu]([cMenu_Id], [cMenu_Name], [cMenu_Eng], [cSub_Id],

[IGrade], [cSupMenu_Id], [bEndGrade], [cAuth_Id], [iOrder], [iImgIndex], [Paramters], [Depends], [Flag])

VALUES('LZ02','测试产品单据1列表',null,'LZ',1,'LZ',1,NULL,0,0,NULL,NULL,NULL) --增加idt对应记录

select * from ua_idt

INSERT INTO [UFSystem].[dbo].[ua_idt]([id], [assembly], [catalogtype], [type], [class], [entrypoint],

[parameter], [reserved])

VALUES('LZ01','TestVBActiveXDll.Person',0,0,null,null,null,null)

INSERT INTO [UFSystem].[dbo].[ua_idt]([id], [assembly], [catalogtype], [type], [class], [entrypoint],

[parameter], [reserved])

VALUES('LZ02','TestVBActiveXDll.Person',0,0,null,null,null,null)

效果如下

第二步：编译

编译TestVBActiveXDll.vbp 到 u8soft\%ufcomsql 目录下

第三步：打开产品

登录 u8打开测试产品单据1 效果如下

第四步：打开单据

界面包含四个部分 1、有关工具条的操作 2、有关窗口操作 3、有关消息中心 4、有关联查单据

1，2 对照代码参考即可

第五步：消息中心

要往门户发自己的消息分两个步骤

1：增加一个消息类型（如果是发现有类型的消息，则忽略该步骤） --预置一条消息类型，指定类型为notice 通知

If Not Exists (Select 1 From UFSystem..UA_MessageType where MsgTypeId = 313555) Insert Into UFSystem..UA_MessageType(MsgTypeId,MsgTypeName,HandlerName,SourceId,NeedProcess,OnlySupportBS) values(313555,'新增通知类型-test','Notice','04',1,0)

go

--在消息导航中增加一条记录

if not exists(select 1 from UA_NavigationNode where Name=N'313555') insert into Ufsystem..UA_NavigationNode(Name,Text,Visible,MsgTypeID,ParentNodeName) values(N'313555',N'313555',0,N'313555',N'Alarmed') GO

2：往门户发送消息，门户消息存于UA_message表中， 可以直接写表，但是不推荐 推荐调用组件写入 '向门户消息中心表中写入数据 '方式1：直接写表

'方式2：调用u8现有组件写入

Private Sub cmdSendMessageToMTC_Click() Dim objMsg As SendMsg.CSendMsg

Set objMsg = CreateObject(\ '设置登录对象

Dim oLoginTmp As Object

Set oLoginTmp = g_business.GetVBclsLogin()

If Not objMsg.SetLogin(oLoginTmp) Then MsgBox \设置登录对象失败\ End If

'调用方法

'用于联查的消息

Dim cn As New ADODB.Connection

cn.ConnectionString = oLoginTmp.ufsystemdb.Name cn.Open

Call objMsg.AddNotifyInfo(cn, \联查单据测试\ cn.Close

Set cn = Nothing ' objMsg.Notify