Enhancement for issue #87

2017-06-22 09:53:34 -06:00
parent 91b9554f40
commit 5fa746da8e
7 changed files with 10 additions and 4 deletions
@@ -815,9 +815,11 @@ Public Class frmMain
        Dim sVersion As String = My.Application.Info.Version.Major & "." & My.Application.Info.Version.Minor & "." & My.Application.Info.Version.Build
        Dim sProcessType = [Enum].GetName(GetType(System.Reflection.ProcessorArchitecture), iProcessType)
        Dim sRevision As String = My.Application.Info.Version.Revision
+        Dim oDatabase As New mgrSQLite(mgrSQLite.Database.Local)
+        Dim sSqliteVersion As String = oDatabase.ReportVersion
        Dim sConstCopyright As String = Chr(169) & mgrCommon.FormatString(App_Copyright, Now.Year.ToString)

-        mgrCommon.ShowMessage(frmMain_About, New String() {sVersion, sProcessType, sRevision, sConstCopyright}, MsgBoxStyle.Information)
+        mgrCommon.ShowMessage(frmMain_About, New String() {sVersion, sProcessType, sRevision, sSqliteVersion, sConstCopyright}, MsgBoxStyle.Information)
    End Sub

    Private Sub OpenTags()