AppStd/FileFlow
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

jj 26.06

Browse Source
This commit is contained in:
Jonathan Jenne
2017-06-26 15:46:57 +02:00
parent cc25b8d3aa
commit bddcc0adeb
24 changed files with 3671 additions and 2832 deletions
Download Patch File Download Diff File Expand all files Collapse all files

56
Global_Indexer/frmConnections.vb
View File

@@ -40,29 +40,45 @@ Public Class frmConnections
Select Case Me.SQL_PROVIDERComboBox.SelectedItem
Case "MS-SQLServer"
Me.lblDataSource.Text = "Datenbank-Server (IP-Adresse oder Name)*:"
Me.lblInitialCatalog.Text = "Datenbank-Name:"
If USER_LANGUAGE = "de-DE" Then
Me.lblDataSource.Text = "Datenbank-Server (IP-Adresse oder Name)*:"
Me.lblInitialCatalog.Text = "Datenbank-Name:"
Me.lblUserId.Text = "UserId:"
Me.lblPassword.Text = "Passwort:"
Else
Me.lblDataSource.Text = "Database-Server (IP-Adress or Name)*:"
Me.lblInitialCatalog.Text = "Database-Name:"
Me.lblUserId.Text = "UserId:"
Me.lblPassword.Text = "Passwort:"
End If
Me.SERVERTextBox.ReadOnly = False
Me.SERVERTextBox.BackColor = System.Drawing.SystemColors.Window
Me.SERVERTextBox.Text = ""
Me.lblUserId.Text = "UserId:"
Me.lblPassword.Text = "Passwort:"
Me.lblInitialCatalog.Visible = False
Me.DATENBANKTextBox.Visible = False
Me.cmbInitialCatalog.Visible = True
Me.lblDatenbank.Visible = True
CheckBoxwin_aut.Visible = True
Case "Oracle"
If USER_LANGUAGE = "de-DE" Then
Me.lblDataSource.Text = "IP Oracle-Server:"
Me.lblInitialCatalog.Text = "Servicename:"
Me.lblUserId.Text = "UserId:"
Me.lblPassword.Text = "Passwort:"
Else
Me.lblDataSource.Text = "IP Oracle-Server:"
Me.lblInitialCatalog.Text = "Servicename:"
Me.lblUserId.Text = "UserId:"
Me.lblPassword.Text = "Password:"
End If
Me.cmbInitialCatalog.Visible = False
Me.lblDataSource.Text = "IP Oracle-Server:"
Me.lblInitialCatalog.Text = "Servicename:"
Me.SERVERTextBox.ReadOnly = False
Me.SERVERTextBox.BackColor = System.Drawing.SystemColors.Window
Me.SERVERTextBox.Text = ""
Me.lblUserId.Text = "UserId:"
Me.lblPassword.Text = "Passwort:"
Me.lblInitialCatalog.Visible = True
Me.DATENBANKTextBox.Visible = True
chkOR_ohne_TNS.Visible = True
End Select
@@ -123,7 +139,15 @@ Public Class frmConnections
Dim connection As New SqlClient.SqlConnection(con)
connection.Open()
Cursor = Cursors.Default
MsgBox("Die SQL-Server Verbindung wurde erfolgreich aufgebaut!", MsgBoxStyle.Information, "Erfolg:")
If USER_LANGUAGE = "de-DE" Then
MsgBox("Die SQL-Server Verbindung wurde erfolgreich aufgebaut!", MsgBoxStyle.Information, "Erfolg:")
Else
MsgBox("Connection to Server successfully established!", MsgBoxStyle.Information, "Success:")
End If
My.Settings.Save()
'DialogResult = Windows.Forms.DialogResult.OK
Case "Oracle"
@@ -147,7 +171,11 @@ Public Class frmConnections
Dim connection As New OracleConnection(connstr)
connection.Open()
MsgBox("Die Verbindung wurde erfolgreich aufgebaut!", MsgBoxStyle.Information, "Erfolg:")
If USER_LANGUAGE = "de-DE" Then
MsgBox("Die SQL-Server Verbindung wurde erfolgreich aufgebaut!", MsgBoxStyle.Information, "Erfolg:")
Else
MsgBox("Connection to Server successfully established!", MsgBoxStyle.Information, "Success:")
End If
My.Settings.Save()
Catch ex As Exception
@@ -155,7 +183,11 @@ Public Class frmConnections
End Try
Case Else
MsgBox("Test zur Zeit nicht möglich", MsgBoxStyle.Information, "Achtung:")
If USER_LANGUAGE = "de-DE" Then
MsgBox("Test zur Zeit nicht möglich", MsgBoxStyle.Information, "Achtung:")
Else
MsgBox("Test not available", MsgBoxStyle.Information, "Warning:")
End If
End Select
End If