first public version

2020-09-22 10:50:20 +02:00
parent 82ec7c9ecb
commit 314038d133
24 changed files with 1347 additions and 340 deletions
--- a/WinLineArtikelnummerGenerator/frmCreateArticle.Designer.vb
+++ b/WinLineArtikelnummerGenerator/frmCreateArticle.Designer.vb
@@ -22,51 +22,58 @@ Partial Class frmCreateArticle
    'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
    <System.Diagnostics.DebuggerStepThrough()> _
    Private Sub InitializeComponent()
-        Me.TextBox1 = New System.Windows.Forms.TextBox()
+        Me.txtArticleNumber = New System.Windows.Forms.TextBox()
        Me.Label1 = New System.Windows.Forms.Label()
-        Me.TextBox2 = New System.Windows.Forms.TextBox()
+        Me.txtArticleDescription = New System.Windows.Forms.TextBox()
        Me.Label2 = New System.Windows.Forms.Label()
        Me.GroupBox1 = New System.Windows.Forms.GroupBox()
-        Me.CheckBox1 = New System.Windows.Forms.CheckBox()
+        Me.lblImportantInformation = New System.Windows.Forms.Label()
        Me.Label3 = New System.Windows.Forms.Label()
        Me.Button1 = New System.Windows.Forms.Button()
+        Me.txtRunningNumber = New System.Windows.Forms.TextBox()
+        Me.Label4 = New System.Windows.Forms.Label()
+        Me.Button2 = New System.Windows.Forms.Button()
+        Me.Label5 = New System.Windows.Forms.Label()
+        Me.txtFinalArticleNumber = New System.Windows.Forms.TextBox()
+        Me.GroupBox1.SuspendLayout()
        Me.SuspendLayout()
        '
-        'TextBox1
+        'txtArticleNumber
        '
-        Me.TextBox1.Font = New System.Drawing.Font("Segoe UI", 8.25!)
-        Me.TextBox1.Location = New System.Drawing.Point(12, 28)
-        Me.TextBox1.Name = "TextBox1"
-        Me.TextBox1.ReadOnly = True
-        Me.TextBox1.Size = New System.Drawing.Size(298, 22)
-        Me.TextBox1.TabIndex = 0
+        Me.txtArticleNumber.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.txtArticleNumber.Location = New System.Drawing.Point(12, 28)
+        Me.txtArticleNumber.Name = "txtArticleNumber"
+        Me.txtArticleNumber.ReadOnly = True
+        Me.txtArticleNumber.Size = New System.Drawing.Size(210, 25)
+        Me.txtArticleNumber.TabIndex = 0
        '
        'Label1
        '
        Me.Label1.AutoSize = True
-        Me.Label1.Font = New System.Drawing.Font("Segoe UI Semibold", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label1.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label1.Location = New System.Drawing.Point(12, 9)
        Me.Label1.Name = "Label1"
-        Me.Label1.Size = New System.Drawing.Size(82, 13)
+        Me.Label1.Size = New System.Drawing.Size(92, 17)
        Me.Label1.TabIndex = 1
        Me.Label1.Text = "Artikelnummer"
        '
-        'TextBox2
+        'txtArticleDescription
        '
-        Me.TextBox2.Font = New System.Drawing.Font("Segoe UI", 8.25!)
-        Me.TextBox2.Location = New System.Drawing.Point(12, 72)
-        Me.TextBox2.Multiline = True
-        Me.TextBox2.Name = "TextBox2"
-        Me.TextBox2.Size = New System.Drawing.Size(298, 105)
-        Me.TextBox2.TabIndex = 0
+        Me.txtArticleDescription.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.txtArticleDescription.Location = New System.Drawing.Point(12, 72)
+        Me.txtArticleDescription.Multiline = True
+        Me.txtArticleDescription.Name = "txtArticleDescription"
+        Me.txtArticleDescription.Size = New System.Drawing.Size(298, 101)
+        Me.txtArticleDescription.TabIndex = 0
+        Me.txtArticleDescription.Text = "Test Artikel für Artikelnummergenerator"
        '
        'Label2
        '
        Me.Label2.AutoSize = True
-        Me.Label2.Font = New System.Drawing.Font("Segoe UI Semibold", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label2.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label2.Location = New System.Drawing.Point(12, 53)
        Me.Label2.Name = "Label2"
-        Me.Label2.Size = New System.Drawing.Size(108, 13)
+        Me.Label2.Size = New System.Drawing.Size(123, 17)
        Me.Label2.TabIndex = 1
        Me.Label2.Text = "Artikelbeschreibung"
        '
@@ -74,7 +81,8 @@ Partial Class frmCreateArticle
        '
        Me.GroupBox1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.GroupBox1.Font = New System.Drawing.Font("Segoe UI Semibold", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.GroupBox1.Controls.Add(Me.lblImportantInformation)
+        Me.GroupBox1.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.GroupBox1.Location = New System.Drawing.Point(485, 12)
        Me.GroupBox1.Name = "GroupBox1"
        Me.GroupBox1.Size = New System.Drawing.Size(303, 426)
@@ -82,30 +90,29 @@ Partial Class frmCreateArticle
        Me.GroupBox1.TabStop = False
        Me.GroupBox1.Text = "Wichtige Informationen"
        '
-        'CheckBox1
+        'lblImportantInformation
        '
-        Me.CheckBox1.AutoSize = True
-        Me.CheckBox1.Font = New System.Drawing.Font("Segoe UI Semibold", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.CheckBox1.Location = New System.Drawing.Point(15, 223)
-        Me.CheckBox1.Name = "CheckBox1"
-        Me.CheckBox1.Size = New System.Drawing.Size(172, 17)
-        Me.CheckBox1.TabIndex = 3
-        Me.CheckBox1.Text = "Serienummer Artikel anlegen"
-        Me.CheckBox1.UseVisualStyleBackColor = True
+        Me.lblImportantInformation.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.lblImportantInformation.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.lblImportantInformation.Location = New System.Drawing.Point(3, 21)
+        Me.lblImportantInformation.Name = "lblImportantInformation"
+        Me.lblImportantInformation.Size = New System.Drawing.Size(297, 402)
+        Me.lblImportantInformation.TabIndex = 0
+        Me.lblImportantInformation.Text = "Label6"
        '
        'Label3
        '
-        Me.Label3.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label3.Location = New System.Drawing.Point(12, 180)
+        Me.Label3.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label3.Location = New System.Drawing.Point(12, 217)
        Me.Label3.Name = "Label3"
-        Me.Label3.Size = New System.Drawing.Size(298, 40)
+        Me.Label3.Size = New System.Drawing.Size(298, 77)
        Me.Label3.TabIndex = 4
        Me.Label3.Text = "Seriennummer Artikel anlegen" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Diese Einstellung kann, anders als beim Altsystem, " &
    "NICHT mehr im Nachhinein geändert werden!"
        '
        'Button1
        '
-        Me.Button1.Font = New System.Drawing.Font("Segoe UI", 8.25!)
+        Me.Button1.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Button1.Location = New System.Drawing.Point(12, 386)
        Me.Button1.Name = "Button1"
        Me.Button1.Size = New System.Drawing.Size(298, 52)
@@ -113,33 +120,91 @@ Partial Class frmCreateArticle
        Me.Button1.Text = "Artikel anlegen!"
        Me.Button1.UseVisualStyleBackColor = True
        '
+        'txtRunningNumber
+        '
+        Me.txtRunningNumber.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.txtRunningNumber.Location = New System.Drawing.Point(228, 28)
+        Me.txtRunningNumber.Name = "txtRunningNumber"
+        Me.txtRunningNumber.ReadOnly = True
+        Me.txtRunningNumber.Size = New System.Drawing.Size(82, 25)
+        Me.txtRunningNumber.TabIndex = 0
+        '
+        'Label4
+        '
+        Me.Label4.AutoSize = True
+        Me.Label4.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label4.Location = New System.Drawing.Point(225, 9)
+        Me.Label4.Name = "Label4"
+        Me.Label4.Size = New System.Drawing.Size(83, 17)
+        Me.Label4.TabIndex = 1
+        Me.Label4.Text = "Laufende Nr."
+        '
+        'Button2
+        '
+        Me.Button2.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Button2.Location = New System.Drawing.Point(12, 297)
+        Me.Button2.Name = "Button2"
+        Me.Button2.Size = New System.Drawing.Size(298, 52)
+        Me.Button2.TabIndex = 5
+        Me.Button2.Text = "Seriennummerartikel anlegen!"
+        Me.Button2.UseVisualStyleBackColor = True
+        '
+        'Label5
+        '
+        Me.Label5.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label5.Location = New System.Drawing.Point(12, 352)
+        Me.Label5.Name = "Label5"
+        Me.Label5.Size = New System.Drawing.Size(298, 31)
+        Me.Label5.TabIndex = 6
+        Me.Label5.Text = "- ODER -"
+        Me.Label5.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+        '
+        'txtFinalArticleNumber
+        '
+        Me.txtFinalArticleNumber.Font = New System.Drawing.Font("Segoe UI", 15.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.txtFinalArticleNumber.Location = New System.Drawing.Point(12, 179)
+        Me.txtFinalArticleNumber.Name = "txtFinalArticleNumber"
+        Me.txtFinalArticleNumber.ReadOnly = True
+        Me.txtFinalArticleNumber.Size = New System.Drawing.Size(298, 35)
+        Me.txtFinalArticleNumber.TabIndex = 7
+        '
        'frmCreateArticle
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
        Me.ClientSize = New System.Drawing.Size(800, 450)
+        Me.Controls.Add(Me.txtFinalArticleNumber)
+        Me.Controls.Add(Me.Label5)
+        Me.Controls.Add(Me.Button2)
        Me.Controls.Add(Me.Button1)
        Me.Controls.Add(Me.Label3)
-        Me.Controls.Add(Me.CheckBox1)
        Me.Controls.Add(Me.GroupBox1)
        Me.Controls.Add(Me.Label2)
-        Me.Controls.Add(Me.TextBox2)
+        Me.Controls.Add(Me.txtArticleDescription)
+        Me.Controls.Add(Me.Label4)
        Me.Controls.Add(Me.Label1)
-        Me.Controls.Add(Me.TextBox1)
+        Me.Controls.Add(Me.txtRunningNumber)
+        Me.Controls.Add(Me.txtArticleNumber)
        Me.Font = New System.Drawing.Font("Segoe UI Semibold", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Name = "frmCreateArticle"
-        Me.Text = "frmCreateArticle"
+        Me.Text = "Artikel erstellen"
+        Me.GroupBox1.ResumeLayout(False)
        Me.ResumeLayout(False)
        Me.PerformLayout()

    End Sub

-    Friend WithEvents TextBox1 As TextBox
+    Friend WithEvents txtArticleNumber As TextBox
    Friend WithEvents Label1 As Label
-    Friend WithEvents TextBox2 As TextBox
+    Friend WithEvents txtArticleDescription As TextBox
    Friend WithEvents Label2 As Label
    Friend WithEvents GroupBox1 As GroupBox
-    Friend WithEvents CheckBox1 As CheckBox
    Friend WithEvents Label3 As Label
    Friend WithEvents Button1 As Button
+    Friend WithEvents txtRunningNumber As TextBox
+    Friend WithEvents Label4 As Label
+    Friend WithEvents Button2 As Button
+    Friend WithEvents Label5 As Label
+    Friend WithEvents txtFinalArticleNumber As TextBox
+    Friend WithEvents lblImportantInformation As Label
 End Class