23 lines
715 B
VB.net
23 lines
715 B
VB.net
|
Module BarraInformacion
|
||
|
|
Public Sub DatosBarra(ByVal Barra As StatusBar, ByVal usuario As String)
|
||
|
|
|
||
|
|
Dim Command As New Command()
|
||
|
|
Try
|
||
|
|
Command.spsql = "spcbDatosUsuario '" & My.User.Name & "'"
|
||
|
|
Command.Lee(Command.spsql)
|
||
|
|
|
||
|
|
Catch a As Exception
|
||
|
|
MessageBox.Show(a.Message)
|
||
|
|
End Try
|
||
|
|
|
||
|
|
Barra.Panels(0).Text = usuario
|
||
|
|
Barra.Panels(2).Text = Command.dtReader("Nombre")
|
||
|
|
Barra.Panels(1).Text = Command.dtReader("NombrePerfil")
|
||
|
|
Barra.Panels(3).Text = CType(Date.Today, String)
|
||
|
|
Barra.Panels(4).Text = dmModulo._Servidor
|
||
|
|
Barra.Panels(5).Text = dmModulo._DB
|
||
|
|
Command.dtReader.Close()
|
||
|
|
End Sub
|
||
|
|
|
||
|
|
End Module
|