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

MS

Browse Source
This commit is contained in:
Digital Data - Marlon Schreiber
2019-02-05 18:49:13 +01:00
parent acc94a29e4
commit 3a25947af0
90 changed files with 265900 additions and 11791 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
ToolCollection/frmNIProfilhinzufuegen.vb
View File

@@ -1,7 +1,7 @@
Imports Oracle.ManagedDataAccess.Client
Public Class frmNIProfilhinzufuegen
Private _oDokumentTypen As WINDREAMLib.WMObjects
Public Shared _windream As New ClassWindream_allgemein
Public Shared _windream As New ClassWindream_allgemein(CURR_MyLogger)
Private Shared _Instance As frmNIProfilhinzufuegen = Nothing
Private licenseManager As ClassLicenseManager = Nothing
@@ -46,7 +46,7 @@ Public Class frmNIProfilhinzufuegen
initialCatalog = Me.txtInitialCatalog.Text
End If
' und der Objekttyp auf dem aktuellen windream-Server vorhanden ist
If _windream.GetObjecttypeByName(Me.cmbObjektTypen.SelectedItem) IsNot Nothing Then
If _windream.GetObjecttypeByName(Me.cmbObjektTypen.SelectedItem, True) IsNot Nothing Then
If Not ClassNIProfile.Exists(Me.txtProfilname.Text) Then
@@ -55,25 +55,25 @@ Public Class frmNIProfilhinzufuegen
If Me.txtPassword.Text <> "" Then
' das Profil hinzufügen
ClassNIProfile.Add(Me.txtProfilname.Text, Me.cmbObjektTypen.SelectedItem, Me.txtWindreamSuche.Text, "db", "", _
ClassNIProfile.Add(Me.txtProfilname.Text, Me.cmbObjektTypen.SelectedItem, Me.txtWindreamSuche.Text, "db", "",
Me.cmbDbArt.SelectedItem, Me.txtDataSource.Text, Me.txtUserId.Text, Me.txtPassword.Text, initialCatalog, Me.cmbIndexValidierung.Text, "", 0, Me.chkbxGetOrdnerRechte.Checked, Me.cmbOrdnertyp.Text)
Else
' das Profil hinzufügen mit WIN-AUTHENTIFIZIERUNG
ClassNIProfile.Add(Me.txtProfilname.Text, Me.cmbObjektTypen.SelectedItem, Me.txtWindreamSuche.Text, "db", "", _
ClassNIProfile.Add(Me.txtProfilname.Text, Me.cmbObjektTypen.SelectedItem, Me.txtWindreamSuche.Text, "db", "",
Me.cmbDbArt.SelectedItem, Me.txtDataSource.Text, Me.txtUserId.Text, "", initialCatalog, Me.cmbIndexValidierung.Text, "", 0, Me.chkbxGetOrdnerRechte.Checked, Me.cmbOrdnertyp.Text)
End If
Else
If Me.CheckBoxwin_aut.Visible = True And Me.CheckBoxwin_aut.Checked Then
' das Profil hinzufügen - Windows Authentifizierung
ClassNIProfile.Add(Me.txtProfilname.Text, Me.cmbObjektTypen.SelectedItem, Me.txtWindreamSuche.Text, "db", "", _
ClassNIProfile.Add(Me.txtProfilname.Text, Me.cmbObjektTypen.SelectedItem, Me.txtWindreamSuche.Text, "db", "",
Me.cmbDbArt.SelectedItem, Me.txtDataSource.Text, "WINAUTH", Nothing, initialCatalog, Me.cmbIndexValidierung.Text, "", 0, Me.chkbxGetOrdnerRechte.Checked, Me.cmbOrdnertyp.Text)
Else
' das Profil hinzufügen
ClassNIProfile.Add(Me.txtProfilname.Text, Me.cmbObjektTypen.SelectedItem, Me.txtWindreamSuche.Text, "db", "", _
ClassNIProfile.Add(Me.txtProfilname.Text, Me.cmbObjektTypen.SelectedItem, Me.txtWindreamSuche.Text, "db", "",
Me.cmbDbArt.SelectedItem, Me.txtDataSource.Text, Nothing, Nothing, initialCatalog, Me.cmbIndexValidierung.Text, "", 0, Me.chkbxGetOrdnerRechte.Checked, Me.cmbOrdnertyp.Text)
End If
End If
@@ -99,7 +99,7 @@ Public Class frmNIProfilhinzufuegen
Me.cmbEndung_xml.SelectedIndex <> -1 Then
If Me.rbxls.Checked Or Me.rbxml.Checked Then
' und der Objekttyp auf dem aktuellen windream-Server vorhanden ist
If _windream.GetObjecttypeByName(Me.cmbObjektTypen.SelectedItem) IsNot Nothing Then
If _windream.GetObjecttypeByName(Me.cmbObjektTypen.SelectedItem, True) IsNot Nothing Then
If Not ClassNIProfile.Exists(Me.txtProfilname.Text) Then
Dim _Typ As String
If Me.rbxml.Checked Then
@@ -111,7 +111,7 @@ Public Class frmNIProfilhinzufuegen
'DbArt = "Dateityp"
'datasource = Dateiendung
'initialCatalog = löschen
ClassNIProfile.Add(Me.txtProfilname.Text, Me.cmbObjektTypen.SelectedItem, Me.txtWindreamSuche.Text, _
ClassNIProfile.Add(Me.txtProfilname.Text, Me.cmbObjektTypen.SelectedItem, Me.txtWindreamSuche.Text,
_Typ, Me.cmbEndung_xml.Text, "", "", "", "", "", Me.cmbIndexValidierung.Text, Me.chkbxdelete.Checked, 0, Me.chkbxGetOrdnerRechte.Checked, Me.cmbOrdnertyp.Text)
' und das Formular schließen
Me.Close()