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

MS Integration Services und fileOps

Browse Source
This commit is contained in:
Digital Data - Marlon Schreiber
2018-12-28 13:59:55 +01:00
parent a567d18e46
commit f22d7ce643
86 changed files with 6734 additions and 108 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
GUI_EDMI/frmEmailAccount.vb
View File

@@ -57,12 +57,8 @@ Public Class frmEmailAccount
.DeleteCommand = New FbCommand(),
.ContinueUpdateOnError = True
}
_tableAdapter.Fill(_dataSet, _tableName)
oTable = _dataSet.Tables.Item(_tableName)
GridControl1.DataSource = BindingSourceForm
BindingNavigator1.BindingSource = BindingSourceForm
GridView1.BestFitColumns(True)
txtGUID.DataBindings.Add(New Binding("Text", BindingSourceForm, "GUID"))
txtPROFILE_NAME.DataBindings.Add(New Binding("Text", BindingSourceForm, "PROFILE_NAME"))
@@ -71,7 +67,7 @@ Public Class frmEmailAccount
txtSERVER_OUT.DataBindings.Add(New Binding("Text", BindingSourceForm, "SERVER_OUT"))
txtEMAIL_USER.DataBindings.Add(New Binding("Text", BindingSourceForm, "EMAIL_USER"))
txtEMAIL_PW.DataBindings.Add(New Binding("Text", BindingSourceForm, "EMAIL_PW"))
txtPORT_IN.DataBindings.Add(New Binding("Text", BindingSourceForm, "PORT_IN"))
' txtPORT_IN.DataBindings.Add(New Binding("Text", BindingSourceForm, "PORT_IN"))
txtPORT_OUT.DataBindings.Add(New Binding("Text", BindingSourceForm, "PORT_OUT"))
cmbAUTH_TYPE.DataBindings.Add(New Binding("Text", BindingSourceForm, "AUTH_TYPE"))
cmbPOP_IMAP.DataBindings.Add(New Binding("Text", BindingSourceForm, "POP_IMAP"))
@@ -80,6 +76,11 @@ Public Class frmEmailAccount
CHANGED_WHOTextBox.DataBindings.Add(New Binding("Text", BindingSourceForm, "CHANGEDWHO"))
CHANGED_WHENTextBox.DataBindings.Add(New Binding("Text", BindingSourceForm, "CHANGEDWHEN"))
GridControl1.DataSource = BindingSourceForm
BindingNavigator1.BindingSource = BindingSourceForm
GridView1.BestFitColumns(True)
oConnection.Close()
End Sub
Private Function GetSelectCommand(Connection As FbConnection) As FbCommand
@@ -172,13 +173,16 @@ Public Class frmEmailAccount
End Sub
Private Sub tsbtnSaveEmailAccount_Click(sender As Object, e As EventArgs) Handles tsbtnSaveEmailAccount.Click
Me.Validate()
Me.BindingSourceForm.EndEdit()
oTable.AcceptChanges()
If Not IsNothing(oTable.GetChanges) Then
_tableAdapter.Update(oTable)
MsgBox("DONE!")
Else
MsgBox("No changes")
End If
_tableAdapter.Update(oTable)
End Sub
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click