MS SQL Command IDB

This commit is contained in:
2022-05-17 10:13:15 +02:00
parent c1ffeb01e7
commit 11c7b4e5e9
14 changed files with 225 additions and 206 deletions

View File

@@ -172,10 +172,10 @@
<Compile Include="GridBuilder.vb" />
<Compile Include="IBaseForm.vb" />
<Compile Include="IResultForm.vb" />
<Compile Include="MsgBoxEx.Designer.vb">
<DependentUpon>MsgBoxEx.vb</DependentUpon>
<Compile Include="NNMsgBoxEx.Designer.vb">
<DependentUpon>NNMsgBoxEx.vb</DependentUpon>
</Compile>
<Compile Include="MsgBoxEx.vb">
<Compile Include="NNMsgBoxEx.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="My Project\AssemblyInfo.vb" />
@@ -232,8 +232,8 @@
<EmbeddedResource Include="frmWorkflow_Adhoc_start.resx">
<DependentUpon>frmWorkflow_Adhoc_start.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="MsgBoxEx.resx">
<DependentUpon>MsgBoxEx.vb</DependentUpon>
<EmbeddedResource Include="NNMsgBoxEx.resx">
<DependentUpon>NNMsgBoxEx.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="My Project\licenses.licx" />
<EmbeddedResource Include="My Project\Resources.resx">

View File

@@ -1,5 +1,5 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class MsgBoxEx
Partial Class NNMsgBoxEx
Inherits DevExpress.XtraEditors.XtraForm
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.

View File

@@ -1,7 +1,7 @@
Imports System.Drawing
Imports System.Windows.Forms
Public Class MsgBoxEx
Public Class NNMsgBoxEx
Public Sub New(message As String, title As String)
Me.New(message, title, MessageBoxIcon.None)
End Sub

View File

@@ -441,15 +441,15 @@ Public Class frmDocumentResultList
Dim oDisplayName = pFile.Document.DisplayFileName
Dim oMessage = $"Die Datei '{oDisplayName}' wurde außerhalb des Systems verändert. Wollen Sie diese Änderung als neue Version in das System übernehmen oder überschreiben?"
Dim oMessageBox As New MsgBoxEx(oMessage, "Datei verändert", MessageBoxIcon.Question)
Dim oMessageBox As New NNMsgBoxEx(oMessage, "Datei verändert", MessageBoxIcon.Question)
oMessageBox.SetButtons("Überschreiben", "Neue Version", "Abbrechen")
oMessageBox.ShowDialog()
Select Case oMessageBox.Result
Case MsgBoxEx.DialogBoxResult.Button1
Case NNMsgBoxEx.DialogBoxResult.Button1
Await Watcher_OverwriteFile(pFile)
Case MsgBoxEx.DialogBoxResult.Button2
Case NNMsgBoxEx.DialogBoxResult.Button2
Await Watcher_VersionFile(pFile)
Case Else