Initial commit 3

2021-10-01 11:11:04 +02:00
parent 8d9b529721
commit 70e2645059
486 changed files with 279955 additions and 0 deletions
@@ -0,0 +1,141 @@
+VERSION 5.00
+Begin VB.Form frmNeueTestSerienNummer 
+   BorderStyle     =   1  'Fest Einfach
+   Caption         =   "Pruef2000"
+   ClientHeight    =   3855
+   ClientLeft      =   45
+   ClientTop       =   330
+   ClientWidth     =   5340
+   ControlBox      =   0   'False
+   LinkTopic       =   "Form1"
+   MaxButton       =   0   'False
+   MinButton       =   0   'False
+   ScaleHeight     =   3855
+   ScaleWidth      =   5340
+   StartUpPosition =   3  'Windows-Standard
+   Begin VB.CommandButton cmdOK 
+      Caption         =   "OK"
+      Default         =   -1  'True
+      BeginProperty Font 
+         Name            =   "MS Sans Serif"
+         Size            =   9.75
+         Charset         =   0
+         Weight          =   700
+         Underline       =   0   'False
+         Italic          =   0   'False
+         Strikethrough   =   0   'False
+      EndProperty
+      Height          =   615
+      Left            =   1620
+      TabIndex        =   4
+      Top             =   2940
+      Width           =   1935
+   End
+   Begin VB.Frame frMain 
+      Height          =   3435
+      Left            =   60
+      TabIndex        =   0
+      Top             =   360
+      Width           =   5235
+      Begin VB.Label lblSerienNr 
+         BackColor       =   &H00E0E0E0&
+         BorderStyle     =   1  'Fest Einfach
+         Caption         =   "Label1"
+         BeginProperty Font 
+            Name            =   "MS Sans Serif"
+            Size            =   9.75
+            Charset         =   0
+            Weight          =   400
+            Underline       =   0   'False
+            Italic          =   0   'False
+            Strikethrough   =   0   'False
+         EndProperty
+         Height          =   315
+         Left            =   1920
+         TabIndex        =   3
+         Top             =   1620
+         Width           =   1275
+      End
+      Begin VB.Label lblHinweis 
+         Caption         =   "Es wurde eine neue Seriennummer aus dem Testzähler - Nummernband erzeugt!"
+         BeginProperty Font 
+            Name            =   "MS Sans Serif"
+            Size            =   9.75
+            Charset         =   0
+            Weight          =   400
+            Underline       =   0   'False
+            Italic          =   0   'False
+            Strikethrough   =   0   'False
+         EndProperty
+         Height          =   615
+         Left            =   720
+         TabIndex        =   2
+         Top             =   480
+         Width           =   4155
+      End
+   End
+   Begin VB.Label Label2 
+      Caption         =   "Neue Seriennummer für Test-Prüfzähler"
+      BeginProperty Font 
+         Name            =   "MS Sans Serif"
+         Size            =   12
+         Charset         =   0
+         Weight          =   700
+         Underline       =   0   'False
+         Italic          =   0   'False
+         Strikethrough   =   0   'False
+      EndProperty
+      Height          =   315
+      Left            =   120
+      TabIndex        =   1
+      Top             =   60
+      Width           =   12015
+   End
+End
+Attribute VB_Name = "frmNeueTestSerienNummer"
+Attribute VB_GlobalNameSpace = False
+Attribute VB_Creatable = False
+Attribute VB_PredeclaredId = True
+Attribute VB_Exposed = False
+Option Explicit
+
+' Private Member
+' --------------
+Private m_Nummernband As CNummernband
+Private m_nRet As Integer
+Public m_SerienNr As Long
+Public m_Einbauplatz As Integer
+Private rs As CRecordset
+
+' @return Code, mit dem endDialog aufgerufen wurde
+'
+Public Function getExitCode() As Integer
+    getExitCode = m_nRet
+End Function
+
+'------------------------------------------------------------------------------
+' Private Funktionalität
+'------------------------------------------------------------------------------
+
+
+' Dialog beenden
+'
+' @param nRet   Returncode des Dialogs
+'
+Private Sub endDialog(nRet As Integer)
+    m_nRet = nRet
+    Me.Hide
+End Sub
+
+Private Sub cmdOK_Click()
+   Call endDialog(IDOK)
+End Sub
+
+'------------------------------------------------------------------------------
+' Event-Handling
+'------------------------------------------------------------------------------
+
+Public Sub setSeriennummerRef(ByRef SerienNr As Integer)
+    SerienNr = m_SerienNr
+End Sub
+