u8門戶開發(fā)手冊-資料下載頁
2025-06-06 17:26本頁面
【正文】 , [cAuth_Id], [iOrder], [iImgIndex], [Paramters], [Depends], [Flag])VALUES(39。LZ39。,39。測試產(chǎn)品39。,null,39。LZ39。,0,39。SCMG39。,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(39。LZ0139。,39。測試產(chǎn)品單據(jù)139。,null,39。LZ39。,1,39。LZ39。,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(39。LZ0239。,39。測試產(chǎn)品單據(jù)1列表39。,null,39。LZ39。,1,39。LZ39。,1,NULL,0,0,NULL,NULL,NULL)增加idt對應(yīng)記錄select * from ua_idtINSERT INTO [UFSystem].[dbo].[ua_idt]([id], [assembly], [catalogtype], [type], [class], [entrypoint], [parameter], [reserved])VALUES(39。LZ0139。,39。39。,0,0,null,null,null,null)INSERT INTO [UFSystem].[dbo].[ua_idt]([id], [assembly], [catalogtype], [type], [class], [entrypoint], [parameter], [reserved])VALUES(39。LZ0239。,39。39。,0,0,null,null,null,null)效果如下第二步：編譯 到 u8soft\ufsql 目錄下第三步：打開產(chǎn)品登錄 u8打開測試產(chǎn)品單據(jù)1效果如下第四步：打開單據(jù)界面包含四個部分有關(guān)工具條的操作有關(guān)窗口操作有關(guān)消息中心有關(guān)聯(lián)查單據(jù) 1，2 對照代碼參考即可第五步：消息中心 要往門戶發(fā)自己的消息分兩個步驟1：增加一個消息類型（如果是發(fā)現(xiàn)有類型的消息，則忽略該步驟）預(yù)置一條消息類型，指定類型為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,39。新增通知類型test39。,39。Notice39。,39。0439。,1,0)go在消息導(dǎo)航中增加一條記錄if not exists(select 1 from UA_NavigationNode where Name=N39。31355539。) insert into Ufsystem..UA_NavigationNode(Name,Text,Visible,MsgTypeID,ParentNodeName) values(N39。31355539。,N39。31355539。,0,N39。31355539。,N39。Alarmed39。)GO2：往門戶發(fā)送消息，門戶消息存于UA_message表中，可以直接寫表，但是不推薦推薦調(diào)用組件寫入 39。向門戶消息中心表中寫入數(shù)據(jù)39。方式1：直接寫表39。方式2：調(diào)用u8現(xiàn)有組件寫入Private Sub cmdSendMessageToMTC_Click() Dim objMsg As Set objMsg = CreateObject() 39。設(shè)置登錄對象 Dim oLoginTmp As Object Set oLoginTmp = () If Not (oLoginTmp) Then MsgBox 設(shè)置登錄對象失敗 End If 39。調(diào)用方法 39。用于聯(lián)查的消息 Dim As New = Call (, 313555, 001, DEMO, 17, 0001, LZ01, , 聯(lián)查單據(jù)測試) Set = Nothing 39。 39。InsertMsg 39。 End Sub寫完消息后，門戶消息中心 刷新一次 會看到剛才增加的消息第六步：消息中心聯(lián)查單據(jù)關(guān)閉 測試單據(jù)頁簽，到消息中心雙擊剛才增加的記錄 “聯(lián)查單據(jù)測試”可以看到雙擊后門戶自動打開了測試單據(jù)001第七步：調(diào)用其他功能，如聯(lián)查其他單據(jù)Private Sub cmdViewSaleOrder_Click()代碼如下 Call Dim strNewCommandline As String strNewCommandline = ID:SAM030201amp。amp。amp。Name:銷售訂單amp。amp。amp。SubSysID:SAamp。amp。amp。AuthID:SA03010104amp。amp。amp。CmdLine: amp。 vbTab amp。 1 Call (strNewCommandline)End Sub
公司管理相關(guān)推薦
鄂ICP備17016276號-1