46 lines
3.2 KiB
VB.net
46 lines
3.2 KiB
VB.net
Imports DevExpress.Xpf.Core
|
|
Imports tsl5
|
|
Imports Enumeraciones
|
|
|
|
Public Class Menus
|
|
'Shared Sub GeneraMenus(BarraMenu As DevExpress.Xpf.Bars.Bar, datconexcli As Datos.DatosConexionCliente, datsesioncli As Datos.DatosSesionCliente, Evento As DevExpress.Xpf.Bars.ItemClickEventHandler)
|
|
' Dim bd As tsl5.tsl5Model.tsl5Entities
|
|
' Select Case datconexcli.BasesDatos(datconexcli.NumeroBDConfiguracion).Tipo
|
|
' Case TipoBD.MYSQL
|
|
' bd = bbdd.ConectarTsl5EntityMySQL(datconexcli.BasesDatos(datconexcli.NumeroBDConfiguracion).Servidor, datconexcli.BasesDatos(datconexcli.NumeroBDConfiguracion).DataBase, datconexcli.BasesDatos(datconexcli.NumeroBDConfiguracion).Puerto, datconexcli.BasesDatos(datconexcli.NumeroBDConfiguracion).Usuario, datconexcli.BasesDatos(datconexcli.NumeroBDConfiguracion).Password, "tsl5Model", datconexcli.BasesDatos(datconexcli.NumeroBDConfiguracion).Pooling, datconexcli.BasesDatos(datconexcli.NumeroBDConfiguracion).SSL, datconexcli.BasesDatos(datconexcli.NumeroBDConfiguracion).FicheroCertificado, datconexcli.BasesDatos(datconexcli.NumeroBDConfiguracion).PasswordCertificado)
|
|
' Case TipoBD.SQLSERVER
|
|
' bd = bbdd.ConectarTsl5EntitySQLServer(datconexcli.BasesDatos(datconexcli.NumeroBDConfiguracion).Servidor, datconexcli.BasesDatos(datconexcli.NumeroBDConfiguracion).DataBase, datconexcli.BasesDatos(datconexcli.NumeroBDConfiguracion).Usuario, datconexcli.BasesDatos(datconexcli.NumeroBDConfiguracion).Password, "tsl5Model")
|
|
' Case TipoBD.LOCALDB
|
|
' bd = bbdd.ConectarTsl5EntityLocalDB(datconexcli.BasesDatos(datconexcli.NumeroBDConfiguracion).Servidor, datconexcli.BasesDatos(datconexcli.NumeroBDConfiguracion).Fichero, datconexcli.BasesDatos(datconexcli.NumeroBDConfiguracion).DataBase, "tsl5Model")
|
|
' Case Else
|
|
' Throw New Exception("Tipo de bd no soportado")
|
|
' End Select
|
|
|
|
' Dim menuiniciales = (From m In bd.menus Where m.idGrupoMenu = datsesioncli.idGrupoMenu Order By m.Orden Select m).ToList
|
|
' Dim bsi As DevExpress.Xpf.Bars.BarSubItem
|
|
' For Each mi In menuiniciales
|
|
' bsi = New DevExpress.Xpf.Bars.BarSubItem
|
|
' bsi.Content = mi.Texto
|
|
' Call generamenurecursivo(bd, bsi, mi, Evento)
|
|
' BarraMenu.ItemLinks.Add(bsi)
|
|
' Next
|
|
'End Sub
|
|
'Private Shared Sub generamenurecursivo(bd As tsl5.tsl5Model.tsl5Entities, ByRef bsi As DevExpress.Xpf.Bars.BarSubItem, mi As tsl5.tsl5Model.menus, Evento As DevExpress.Xpf.Bars.ItemClickEventHandler)
|
|
' Dim bsih As DevExpress.Xpf.Bars.BarSubItem
|
|
' Dim bbi As DevExpress.Xpf.Bars.BarButtonItem
|
|
' Dim submenus = (From m In bd.menus Where m.idMenuPadre = mi.idMenus Order By m.Orden Select m).ToList
|
|
' For Each sm In submenus
|
|
' If sm.Accion.Trim = "" Then
|
|
' bbi = New DevExpress.Xpf.Bars.BarButtonItem
|
|
' bbi.Content = sm.Texto
|
|
' AddHandler bbi.ItemClick, Evento
|
|
' Else
|
|
' bsih = New DevExpress.Xpf.Bars.BarSubItem
|
|
' bsih.Content = sm.Texto
|
|
' Call generamenurecursivo(bd, bsih, mi, Evento)
|
|
' bsi.ItemLinks.Add(bsih)
|
|
' End If
|
|
' Next
|
|
'End Sub
|
|
End Class
|