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

MS Development Zooflow 1.0

Browse Source
This commit is contained in:
SchreiberM
2022-02-17 12:03:46 +01:00
parent 5f69002668
commit fddd79ae17
21 changed files with 1616 additions and 278 deletions
Download Patch File Download Diff File Expand all files Collapse all files

38
GUIs.ZooFlow/Administration/frmAdmin_IDBAttribute.vb
View File

@@ -62,8 +62,8 @@
Try
VWIDB_BE_ATTRIBUTEBindingSource.EndEdit()
'If DSIDB_Stammdaten.VWIDB_BE_ATTRIBUTE.GetChanges() IsNot Nothing Or IsInsert Then
HasChanges = True
If DSIDB_Stammdaten.VWIDB_BE_ATTRIBUTE.GetChanges() IsNot Nothing Or IsInsert Then
HasChanges = True
If IsInsert Then
txtAddedWho.EditValue = My.Application.User.UserName
@@ -73,29 +73,29 @@
VWIDB_BE_ATTRIBUTEBindingSource.EndEdit()
' TODO: Update Database
If Not IsInsert Then
Dim oUpdate As String = $"UPDATE TBIDB_ATTRIBUTE " &
$"SET TITLE = '{TextEdit2.Text}', TYP_ID = {ComboBoxEdit1.EditValue}, VIEW_SEQUENCE = {SpinEdit1.Value}, VIEW_VISIBLE = '{CheckEdit2.Checked}'" &
' TODO: Update Database
If Not IsInsert Then
Dim oUpdate As String = $"UPDATE TBIDB_ATTRIBUTE " &
$"SET TITLE = '{TextEdit2.Text}', TYP_ID = {ComboBoxEdit1.EditValue}, VIEW_SEQUENCE = {SpinEdit1.Value}, VIEW_VISIBLE = '{CheckEdit2.Checked}'" &
$",MULTI_CONTEXT = '{CheckEditMulticontext.Checked}', COMMENT = '{TextEdit3.Text}', CHANGED_WHO = '{My.Application.User.UserName}' " &
$"WHERE (GUID = {TextEdit1.Text})"
If My.DatabaseIDB.ExecuteNonQuery(oUpdate) = False Then
Return False
End If
Else
Dim oInsert As String = $"INSERT INTO TBIDB_ATTRIBUTE " &
"(TITLE, TYP_ID, VIEW_SEQUENCE, VIEW_VISIBLE, ADDED_WHO,COMMENT) " &
$"VALUES ('{TextEdit2.Text}',{ComboBoxEdit1.EditValue},{SpinEdit1.Value},'{CheckEdit2.Checked}','{My.Application.User.UserName}', '{TextEdit3.Text}')"
If My.DatabaseIDB.ExecuteNonQuery(oInsert) = True Then
IsInsert = False
If My.DatabaseIDB.ExecuteNonQuery(oUpdate) = False Then
Return False
End If
Else
Return False
Dim oInsert As String = $"INSERT INTO TBIDB_ATTRIBUTE " &
"(TITLE, TYP_ID, VIEW_SEQUENCE, VIEW_VISIBLE, ADDED_WHO,COMMENT,MULTI_CONTEXT) " &
$"VALUES ('{TextEdit2.Text}',{ComboBoxEdit1.EditValue},{SpinEdit1.Value},'{CheckEdit2.Checked}','{My.Application.User.UserName}', '{TextEdit3.Text}','{CheckEditMulticontext.Checked}')"
If My.DatabaseIDB.ExecuteNonQuery(oInsert) = True Then
IsInsert = False
Else
Return False
End If
End If
' VWIDB_BE_ATTRIBUTETableAdapter.Update(DSIDB_Stammdaten.VWIDB_BE_ATTRIBUTE)
End If
' VWIDB_BE_ATTRIBUTETableAdapter.Update(DSIDB_Stammdaten.VWIDB_BE_ATTRIBUTE)
'End If
Return True
Catch ex As Exception