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

marvins todos

Browse Source
This commit is contained in:
Jonathan Jenne
2020-03-03 15:49:53 +01:00
parent 5139d51c8d
commit 13b36db5fb
14 changed files with 4659 additions and 3231 deletions
Download Patch File Download Diff File Expand all files Collapse all files

43
Global_Indexer/frmConnections.vb
View File

@@ -1,7 +1,7 @@
Imports Oracle.ManagedDataAccess.Client
Public Class frmConnections
Private Sub TBDD_CONNECTIONBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs) Handles TBDD_CONNECTIONBindingNavigatorSaveItem.Click
Private Sub TBDD_CONNECTIONBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs)
Try
Me.Validate()
Me.TBDD_CONNECTIONBindingSource.EndEdit()
@@ -9,14 +9,14 @@ Public Class frmConnections
Me.GEANDERTWERTextBox.Text = Environment.UserName
Me.TBDD_CONNECTIONBindingSource.EndEdit()
TBDD_CONNECTIONTableAdapter.Update(MyDataset.TBDD_CONNECTION)
Me.lblSave.Visible = True
Me.labelStatus.Caption = "Verbindung gespeichert!"
Else
Me.lblSave.Visible = False
Me.labelStatus.Caption = String.Empty
End If
Catch ex As Exception
MsgBox("Error in Save Connection:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
Private Sub frmConnections_Load(sender As Object, e As EventArgs) Handles MyBase.Load
@@ -200,7 +200,7 @@ Public Class frmConnections
Dim conn As New OracleConnectionStringBuilder
If chkOR_ohne_TNS.Checked Then
connstr = "Data Source=(DESCRIPTION=(ADDRESS_LIST=(ADDRESS=(PROTOCOL=TCP)(HOST=" & SERVERTextBox.Text & ")(PORT=1521)))(CONNECT_DATA=(SERVER=DEDICATED)(SERVICE_NAME=" & _
connstr = "Data Source=(DESCRIPTION=(ADDRESS_LIST=(ADDRESS=(PROTOCOL=TCP)(HOST=" & SERVERTextBox.Text & ")(PORT=1521)))(CONNECT_DATA=(SERVER=DEDICATED)(SERVICE_NAME=" &
DATENBANKTextBox.Text & ")));User Id=" & USERNAMETextBox.Text & ";Password=" & PASSWORDTextBox.Text & ";"
Else
conn.DataSource = DATENBANKTextBox.Text
@@ -325,12 +325,12 @@ Public Class frmConnections
Me.MyDataset.TBDD_CONNECTION.ERSTELLTWERColumn.DefaultValue = Environment.UserName
End Sub
Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles ToolStripButton1.Click
Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs)
Load_Conns()
End Sub
Private Sub TBDD_CONNECTIONBindingSource_CurrentChanged(sender As Object, e As EventArgs) Handles TBDD_CONNECTIONBindingSource.CurrentChanged
Me.lblSave.Visible = False
Me.labelStatus.Caption = String.Empty
End Sub
Private Sub BEMERKUNGTextBox_TextChanged(sender As Object, e As EventArgs) Handles BEMERKUNGTextBox.TextChanged
@@ -346,4 +346,33 @@ Public Class frmConnections
Threading.Thread.Sleep(300)
Load_Conns()
End Sub
Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem1.ItemClick
TBDD_CONNECTIONBindingSource.AddNew()
End Sub
Private Sub BarButtonItem4_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem4.ItemClick
Load_Conns()
End Sub
Private Sub BarButtonItem3_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem3.ItemClick
Try
Me.Validate()
Me.TBDD_CONNECTIONBindingSource.EndEdit()
If Me.MyDataset.TBDD_CONNECTION.GetChanges Is Nothing = False Then
Me.GEANDERTWERTextBox.Text = Environment.UserName
Me.TBDD_CONNECTIONBindingSource.EndEdit()
TBDD_CONNECTIONTableAdapter.Update(MyDataset.TBDD_CONNECTION)
Me.labelStatus.Caption = "Verbindung gespeichert!"
Else
Me.labelStatus.Caption = String.Empty
End If
Catch ex As Exception
MsgBox("Error in Save Connection:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
Private Sub BarButtonItem2_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem2.ItemClick
TBDD_CONNECTIONBindingSource.RemoveCurrent()
End Sub
End Class