56 lines
2.0 KiB
VB.net
56 lines
2.0 KiB
VB.net
Imports System
|
|
Imports System.ComponentModel
|
|
Imports System.Collections.Generic
|
|
Imports System.Diagnostics
|
|
Imports System.Text
|
|
|
|
Imports DevExpress.ExpressApp
|
|
Imports DevExpress.ExpressApp.Actions
|
|
Imports DevExpress.Persistent.Base
|
|
Imports DevExpress.ExpressApp.SystemModule
|
|
Imports DevExpress.Persistent.BaseImpl
|
|
Imports DevExpress.Data.Filtering
|
|
|
|
Public Class AboutInfoCustomizationVC
|
|
Inherits DevExpress.ExpressApp.WindowController
|
|
|
|
Public Sub New()
|
|
MyBase.New()
|
|
|
|
'This call is required by the Component Designer.
|
|
InitializeComponent()
|
|
RegisterActions(components)
|
|
|
|
End Sub
|
|
Protected Overrides Sub OnActivated()
|
|
MyBase.OnActivated()
|
|
AboutInfo.Instance.AboutInfoString = GetCustomAboutString()
|
|
End Sub
|
|
Function GetCustomAboutString() As String
|
|
Dim _CustomAboutString As String = ""
|
|
Dim _User As User
|
|
Dim _Contacts As Contacts
|
|
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
|
Dim _PartnerInfo As String = ""
|
|
|
|
_User = _onew.GetObject(TryCast(SecuritySystem.CurrentUser, User))
|
|
|
|
If _User IsNot Nothing Then
|
|
_Contacts = _onew.FindObject(Of Contacts)(CriteriaOperator.Parse("User=?", _User))
|
|
If _Contacts IsNot Nothing Then
|
|
_PartnerInfo = _Contacts.Customers.FullName
|
|
End If
|
|
End If
|
|
|
|
_CustomAboutString = TryCast(SecuritySystem.CurrentUser, User).FullName & "<br>"
|
|
If GLOBAL_Company_Info <> "" Then _CustomAboutString += "<b>" & GLOBAL_Company_Info & "</b><br><br>"
|
|
If _PartnerInfo <> "" Then _CustomAboutString += "<b>" & _PartnerInfo & "</b><br><br>"
|
|
_CustomAboutString += Application.Model.Application.Description & "<br>"
|
|
_CustomAboutString += "Version: " & System.Reflection.Assembly.GetExecutingAssembly.GetName.Version.ToString & "<br>"
|
|
_CustomAboutString += "Copyright (C) " & Application.Model.Copyright
|
|
|
|
Return _CustomAboutString
|
|
End Function
|
|
|
|
End Class
|