MS_KW9
This commit is contained in:
SchreiberM
@@ -146,59 +146,116 @@ Public Class frmMain
|
||||
End Function
|
||||
|
||||
Public Sub LoadMenuItems2()
|
||||
Dim SQL As String = "SELECT * FROM TBPMO_MENU_FORM"
|
||||
Dim dtRootMenu As DataTable = ClassDatabase.Return_Datatable(SQL)
|
||||
Try
|
||||
Dim SQL2 As String = String.Format("SELECT GUID, dbo.FNPMO_GETOBJECTCAPTION('{0}', 'CONSTR_MENUE' + CONVERT(VARCHAR(5), GUID), {1}) AS FORM_TITLE, SEQUENCE_MENU, ADDED_WHO, ADDED_WHEN, CHANGED_WHO," & _
|
||||
"CHANGED_WHEN, MENU_IMG, SHORT_TITLE, LANGUAGE, " & _
|
||||
"'CONSTR_MENUE' + CONVERT(VARCHAR(5), GUID) as OBECTNAME FROM TBPMO_FORM_CONSTRUCTOR where GUID in (SELECT CONSTRUCT_ID FROM TBPMO_CONSTRUCTOR_USER WHERE HOME_MENUE = 0 AND USER_ID = {2}) ORDER BY SEQUENCE_MENU", USER_LANGUAGE, CURRENT_SCREEN_ID, USER_GUID)
|
||||
Dim dt As DataTable = ClassDatabase.Return_Datatable(SQL2)
|
||||
Dim image2 As Bitmap = LoadNoImage()
|
||||
|
||||
pageForms.Groups.Clear()
|
||||
|
||||
If dtRootMenu.Rows.Count <> 0 Then
|
||||
|
||||
For Each row As DataRow In dtRootMenu.Rows
|
||||
|
||||
Dim MenuID As Integer = row.Item("GUID")
|
||||
Dim groupTitle As String = row.Item("MENU_ENTRY")
|
||||
Dim group As New RibbonPageGroup(groupTitle)
|
||||
Dim dtSubMenu As DataTable
|
||||
Dim image As Bitmap = LoadImage(row.Item("ICON_PATH"))
|
||||
|
||||
group.Glyph = image
|
||||
group.AllowTextClipping = False
|
||||
|
||||
SQL = "SELECT * FROM TBPMO_MENU_FORM_ENTRIES WHERE MENU_FORM_ID = " & MenuID
|
||||
dtSubMenu = ClassDatabase.Return_Datatable(SQL)
|
||||
|
||||
If dtSubMenu.Rows.Count <> 0 Then
|
||||
|
||||
For Each subRow As DataRow In dtSubMenu.Rows
|
||||
|
||||
Dim itemTitle As String = subRow.Item("MENU_ENTRY")
|
||||
Dim tag As String = subRow.Item("FORM_ID")
|
||||
Dim item As New BarButtonItem(ribbonMain.Manager, itemTitle)
|
||||
|
||||
Dim subimage As Bitmap = LoadImage(subRow.Item("ICON_PATH"))
|
||||
|
||||
item.RibbonStyle = RibbonItemStyles.SmallWithText
|
||||
item.Tag = tag
|
||||
item.Glyph = subimage
|
||||
|
||||
AddHandler item.ItemClick, AddressOf BarButtonItemClick
|
||||
|
||||
group.ItemLinks.Add(item)
|
||||
|
||||
Next
|
||||
|
||||
pageForms.Groups.Add(group)
|
||||
Try
|
||||
If Not IsNothing(groupQuickAccessForm) Then
|
||||
Do While 0 < groupQuickAccessForm.ItemLinks.Count
|
||||
groupQuickAccessForm.ItemLinks.Remove(groupQuickAccessForm.ItemLinks(0))
|
||||
Loop
|
||||
End If
|
||||
Catch ex As Exception
|
||||
|
||||
Next
|
||||
End Try
|
||||
|
||||
End If
|
||||
|
||||
|
||||
If dt.Rows.Count <> 0 Then
|
||||
|
||||
For Each row As DataRow In dt.Rows
|
||||
If Not IsDBNull(row.Item("MENU_IMG")) Then
|
||||
Dim bimg() As Byte = row.Item("MENU_IMG")
|
||||
Dim bitmap As Bitmap = ByteArrayToBitmap(bimg)
|
||||
image2 = bitmap
|
||||
End If
|
||||
Dim title = row.Item("FORM_TITLE")
|
||||
If title = "CAPTION (OBJ) NOT TRANSLATED" Then
|
||||
Dim objectname = row.Item("OBECTNAME")
|
||||
Dim objectname_temp = String.Format("Object {0} not translated", objectname)
|
||||
Dim ins = String.Format("INSERT INTO TBPMO_LANGUAGE_OBJECT (LANGUAGE_TYPE,SCREEN_ID,PMO_OBJECT_NAME,CAPTION) VALUES " & _
|
||||
"('{0}',{1},'{2}', '{3}')", USER_LANGUAGE, CURRENT_SCREEN_ID, objectname, objectname_temp)
|
||||
If ClassDatabase.Execute_non_Query(ins) = True Then
|
||||
title = objectname_temp
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
Dim index As Integer = row.Item("SEQUENCE_MENU")
|
||||
Dim tag As Integer = row.Item("GUID")
|
||||
Dim item As New BarButtonItem(ribbonMain.Manager, title)
|
||||
item.RibbonStyle = RibbonItemStyles.Large
|
||||
item.Caption = title
|
||||
item.Tag = tag
|
||||
item.Glyph = image2
|
||||
|
||||
AddHandler item.ItemClick, AddressOf ToolbarButtonItemClick
|
||||
groupQuickAccessForm2.ItemLinks.Add(item)
|
||||
|
||||
Next
|
||||
|
||||
End If
|
||||
Catch ex As Exception
|
||||
MsgBox("Unexpected Error in Load QuickStart-Items:" & vbNewLine & ex.Message)
|
||||
End Try
|
||||
|
||||
'Dim SQL As String = "SELECT * FROM TBPMO_MENU_FORM"
|
||||
'Dim dtRootMenu As DataTable = ClassDatabase.Return_Datatable(SQL)
|
||||
'ss()
|
||||
'pageForms.Groups.Clear()
|
||||
|
||||
'If dtRootMenu.Rows.Count <> 0 Then
|
||||
|
||||
' For Each row As DataRow In dtRootMenu.Rows
|
||||
|
||||
' Dim MenuID As Integer = row.Item("GUID")
|
||||
' Dim groupTitle As String = row.Item("MENU_ENTRY")
|
||||
' Dim group As New RibbonPageGroup(groupTitle)
|
||||
' Dim dtSubMenu As DataTable
|
||||
' Dim image As Bitmap = LoadImage(row.Item("ICON_PATH"))
|
||||
|
||||
' group.Glyph = image
|
||||
' group.AllowTextClipping = False
|
||||
|
||||
' SQL = "SELECT * FROM TBPMO_MENU_FORM_ENTRIES WHERE MENU_FORM_ID = " & MenuID
|
||||
' dtSubMenu = ClassDatabase.Return_Datatable(SQL)
|
||||
|
||||
' If dtSubMenu.Rows.Count <> 0 Then
|
||||
|
||||
' For Each subRow As DataRow In dtSubMenu.Rows
|
||||
|
||||
' Dim itemTitle As String = subRow.Item("MENU_ENTRY")
|
||||
' Dim tag As String = subRow.Item("FORM_ID")
|
||||
' Dim item As New BarButtonItem(ribbonMain.Manager, itemTitle)
|
||||
|
||||
' Dim subimage As Bitmap = LoadImage(subRow.Item("ICON_PATH"))
|
||||
|
||||
' item.RibbonStyle = RibbonItemStyles.SmallWithText
|
||||
' item.Tag = tag
|
||||
' item.Glyph = subimage
|
||||
|
||||
' AddHandler item.ItemClick, AddressOf BarButtonItemClick
|
||||
|
||||
' group.ItemLinks.Add(item)
|
||||
|
||||
' Next
|
||||
|
||||
' pageForms.Groups.Add(group)
|
||||
' End If
|
||||
|
||||
' Next
|
||||
|
||||
'End If
|
||||
End Sub
|
||||
Public Sub LoadQuickStartItems()
|
||||
Try
|
||||
Dim SQL2 As String = String.Format("SELECT GUID, dbo.FNPMO_GETOBJECTCAPTION('{0}', 'CONSTR_MENUE' + CONVERT(VARCHAR(5), GUID), {1}) AS FORM_TITLE, SEQUENCE_MENU, ADDED_WHO, ADDED_WHEN, CHANGED_WHO," & _
|
||||
"CHANGED_WHEN, MENU_IMG, SHORT_TITLE, LANGUAGE, " & _
|
||||
"'CONSTR_MENUE' + CONVERT(VARCHAR(5), GUID) as OBECTNAME FROM TBPMO_FORM_CONSTRUCTOR where GUID in (SELECT CONSTRUCT_ID FROM TBPMO_CONSTRUCTOR_USER WHERE USER_ID = {2}) ORDER BY SEQUENCE_MENU", USER_LANGUAGE, CURRENT_SCREEN_ID, USER_GUID)
|
||||
"'CONSTR_MENUE' + CONVERT(VARCHAR(5), GUID) as OBECTNAME FROM TBPMO_FORM_CONSTRUCTOR where GUID in (SELECT CONSTRUCT_ID FROM TBPMO_CONSTRUCTOR_USER WHERE HOME_MENUE = 1 AND USER_ID = {2}) ORDER BY SEQUENCE_MENU", USER_LANGUAGE, CURRENT_SCREEN_ID, USER_GUID)
|
||||
Dim dt As DataTable = ClassDatabase.Return_Datatable(SQL2)
|
||||
Dim image2 As Bitmap = LoadNoImage()
|
||||
|
||||
|
||||
Reference in New Issue
Block a user