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

MS27062016

Browse Source
This commit is contained in:
SchreiberM
2016-06-27 13:43:47 +02:00
parent 59371f3fba
commit c5f276c37d
27 changed files with 1192 additions and 626 deletions
Download Patch File Download Diff File Expand all files Collapse all files

27
app/DD-Record-Organiser/frmEntities.vb
View File

@@ -292,11 +292,15 @@ Public Class frmEntities
End Sub
Private Sub btndelete_Click(sender As Object, e As EventArgs) Handles btndelete.Click
Dim result As MsgBoxResult = MsgBox("Wollen Sie das Formular wirklich löschen?" & vbNewLine & "Alle Daten werden unwiderruflich gelöscht!", MsgBoxStyle.YesNo, "Bestätigung notwendig:")
Dim msg As String = "Wollen Sie diese Entität wirklich löschen?" & "Alle Daten werden unwiderruflich gelöscht!"
If USER_LANGUAGE <> "de-DE" Then
msg = "Do You really want to delete this entity?" & "All data will be lost!"
End If
Dim result As MsgBoxResult = MsgBox(msg, MsgBoxStyle.YesNo)
If result = MsgBoxResult.Yes Then
Try
Dim CurrentID = GetCurrentGUID()
Dim sql = "EXEC PRPMO_DELETE_ENTITY " & CurrentID
Dim sql = "EXEC PRPMO_DELETE_ENTITY " & CurrentID
If ClassDatabase.Execute_non_Query(sql) = True Then
MsgBox("Entity was deleted!", MsgBoxStyle.Information)
Load_TreeView()
@@ -304,8 +308,10 @@ Public Class frmEntities
End If
Catch ex As Exception
MsgBox("Unexpected Error in Delete Entity:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
MsgBox("Unexpected Error in delete Entity:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
Else
MsgBox("Unexpected error in delete Entity! Check log!", MsgBoxStyle.Exclamation)
End If
End Sub
@@ -332,7 +338,11 @@ Public Class frmEntities
End Sub
Private Sub btncopy_Click(sender As Object, e As EventArgs) Handles btncopy.Click
Dim result As MsgBoxResult = MsgBox("Wollen Sie diese Entität kopieren?", MsgBoxStyle.YesNo, "Frage:")
Dim msg As String = "Wollen Sie diese Entität kopieren?"
If USER_LANGUAGE <> "de-DE" Then
msg = "Do You want to copy that entity?"
End If
Dim result As MsgBoxResult = MsgBox(msg, MsgBoxStyle.YesNo)
If result = MsgBoxResult.Yes Then
Try
Dim CurrentID = GetCurrentGUID()
@@ -343,7 +353,6 @@ Public Class frmEntities
Load_Forms(999999999)
lblStatus.Text = "Die Entität wurde erfolgreich kopiert."
lblStatus.Visible = True
MsgBox("Die Entität wurde erfolgreich kopiert!", MsgBoxStyle.Information)
Else
lblStatus.Visible = False
End If
@@ -364,7 +373,11 @@ Public Class frmEntities
Try
Dim CurrentID = GetCurrentGUID()
If CurrentID > 0 Then
Dim result As MsgBoxResult = MsgBox("Achtung mit dieser Funktion wird ein NEUES Kombi-Formular erzeugt!" & vbNewLine & "Wollen Sie fortfahren?", MsgBoxStyle.YesNo, "Frage:")
Dim msg As String = "Achtung mit dieser Funktion wird ein neuer Constructor erzeugt!" & vbNewLine & "Wollen Sie fortfahren?"
If USER_LANGUAGE <> "de-DE" Then
msg = "Do You really want to create a new constructor-form?"
End If
Dim result As MsgBoxResult = MsgBox(msg, MsgBoxStyle.YesNo, "Question:")
If result = MsgBoxResult.Yes Then
INTEGER1 = CurrentID
frmNewKombiForm.ShowDialog()