'******************************************************************************
' *****************************
'Dieses Modul ermittelt alle Controls und Bezeichnungsfelder einer form und 
' beschriftet sie neu
'******************************************************************************
' *****************************
 
Module language
    Public sprachmodus As Boolean = True 'repräsentiert die Modus in dem sich 
    ' die App befindet wird später
 
    Public sprachen As New DataTable    'die globale Tabelle mit allen 
    ' Bezeichnungen in der jeweiligen Sprache
    Public org_form As String           'die Variable hält den aufgerufenen 
    ' formname der aktuellen form auf die 
    'die Prozedur angewendet wird
 
 
    'Baut verbindung zur Sprachen DB auf und ermittelt die erforderlichen DS 
    ' für die gewünschte Sprache (globaler Parameter)
    'wurde sprachen bereits einmal gefüllt, dann kann nur durch den parameter 
    ' force ein refill gemacht werden
 
    Private Sub getlanguage(ByVal lang_name As String, Optional ByVal force As _
      Boolean = False)
        sprachen.DefaultView.RowFilter = ""
        If force = True Or Not sprachen.DefaultView.Count > 0 Then
            Dim CN_lang As New OleDb.OleDbConnection
            Dim DA_lang As New OleDb.OleDbDataAdapter
            Dim CMD_lang As New OleDb.OleDbCommand
            CN_lang.ConnectionString = "Jet OLEDB:Global Partial Bulk Ops=2;Jet" & _
              "OLEDB:Registry Path=;Jet OLEDB:Database Locking Mode=1;Jet" & _
              "OLEDB:Database Password=;" & _
                "Data Source='" & Application.StartupPath & "\setting.mdb';" & _
                "Password=;Jet OLEDB:Engine Type=5;Jet OLEDB:Global Bulk" & _
                "Transactions=1;" & _
                "Provider='Microsoft.Jet.OLEDB.4.0';Jet OLEDB:System" & _
                "database=;Jet OLEDB:SFP=False;" & _
                "Extended Properties=;Mode=Share Deny None;Jet OLEDB:New" & _
                "Database Password=;" & _
                "Jet OLEDB:Create System Database=False;Jet OLEDB:Don't Copy" & _
                "Locale on Compact=False;" & _
                "Jet OLEDB:Compact Without Replica Repair=False;User" & _
                "ID=Admin;Jet OLEDB:Encrypt Database=False"
 
            Try
                CN_lang.Open()
            Catch ex As Exception
                MessageBox.Show("Could not connect to language database!", _
                  "Error", MessageBoxButtons.OK, MessageBoxIcon.Warning)
                Exit Sub
            End Try
            CMD_lang.Connection = CN_lang
            CMD_lang.CommandText = "Select * from sprachen"  'hier kann noch 
            ' die where-Klausel rein where lang_name=deutsch
            DA_lang.SelectCommand = CMD_lang
            Try
                DA_lang.Fill(sprachen)
 
            Catch ex As Exception
                MessageBox.Show("Could not query language data!", "Error", _
                  MessageBoxButtons.OK, MessageBoxIcon.Warning)
            End Try
        End If
    End Sub