MS10082016

app/DD-Record-Organiser/frmAbout.vb

@@ -16,6 +16,13 @@
         Me.lblVersion.Text = String.Format("Version {0}", My.Application.Info.Version.ToString)
         Me.lblCompanyName.Text = My.Application.Info.CompanyName
         Me.txtDescription.Text = My.Application.Info.Description
+        Dim version = ClassDatabase.Execute_Scalar("SELECT PRODUCT_VERSION FROM TBDD_MODULES WHERE UPPER(NAME) = UPPER('Record-Organizer')")
+        If Not IsNothing(version) Then
+            Me.lbldatabase.Text = String.Format("Database-Version: {0}", version.ToString)
+        Else
+            Me.lbldatabase.Text = "Could not read database-version"
+        End If
+
     End Sub
     Private Sub OKButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OKButton.Click
         Me.Close()
@@ -28,4 +35,8 @@
         System.Diagnostics.Process.Start("http://www.didalog.de/support")
         LinkLabel2.LinkVisited = True
     End Sub
+
+    Private Sub Label2_Click(sender As Object, e As EventArgs) Handles lbldatabase.Click
+
+    End Sub
 End Class