94 lines
2.6 KiB
Plaintext
94 lines
2.6 KiB
Plaintext
VERSION 5.00
|
|
Begin VB.Form frmAbbruch
|
|
Caption = "Pruef2000"
|
|
ClientHeight = 1800
|
|
ClientLeft = 60
|
|
ClientTop = 345
|
|
ClientWidth = 9435
|
|
LinkTopic = "Form2"
|
|
ScaleHeight = 1800
|
|
ScaleWidth = 9435
|
|
StartUpPosition = 3 'Windows-Standard
|
|
Begin VB.CommandButton cmdOK
|
|
Caption = "OK"
|
|
Enabled = 0 'False
|
|
Height = 555
|
|
Left = 4110
|
|
TabIndex = 1
|
|
Top = 1110
|
|
Width = 1215
|
|
End
|
|
Begin VB.ComboBox cmbGrund
|
|
Height = 315
|
|
Left = 255
|
|
TabIndex = 0
|
|
Top = 660
|
|
Width = 8895
|
|
End
|
|
Begin VB.Label Label1
|
|
Caption = "Die Prüfung wurde abgebrochen. Bitte geben Sie den dafür Grund an."
|
|
Height = 405
|
|
Left = 255
|
|
TabIndex = 2
|
|
Top = 120
|
|
Width = 8925
|
|
End
|
|
End
|
|
Attribute VB_Name = "frmAbbruch"
|
|
Attribute VB_GlobalNameSpace = False
|
|
Attribute VB_Creatable = False
|
|
Attribute VB_PredeclaredId = True
|
|
Attribute VB_Exposed = False
|
|
Public m_strGrund As String
|
|
|
|
|
|
Private Sub cmbGrund_Change()
|
|
If cmbGrund.Text <> cmbGrund.List(0) And Trim(cmbGrund.Text) <> "" Then
|
|
cmdOK.Enabled = True
|
|
cmdOK.Default = True
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub cmbGrund_Click()
|
|
If cmbGrund.ListIndex > 0 Then
|
|
cmdOK.Enabled = True
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub cmdOk_Click()
|
|
m_strGrund = cmbGrund.Text
|
|
If Trim(cmbGrund.Text) <> "" Then
|
|
Unload Me
|
|
Else
|
|
MsgBox "Sie müssen einen Grund für den Abbruch eingeben."
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub Form_Load()
|
|
cmbGrund.Clear
|
|
cmbGrund.AddItem m_strGrund
|
|
cmbGrund.AddItem "Abbruch Qt (80% Regel)"
|
|
cmbGrund.AddItem "Ausfall bei Qmax"
|
|
cmbGrund.AddItem "Ausfall bei Qt"
|
|
cmbGrund.AddItem "Störung SPS "
|
|
cmbGrund.AddItem "Störung Anlage"
|
|
cmbGrund.AddItem "Fehlende Pulse der Prüflinge"
|
|
cmbGrund.AddItem "Zu große Meßwertabweichung ( Rückläufer)"
|
|
cmbGrund.AddItem "Test durch Administrator"
|
|
cmbGrund.AddItem "Abweichung der Fehler zw. den Referenzzählern zu groß"
|
|
cmbGrund.AddItem "Magnetkupplung abgerissen"
|
|
cmbGrund.AddItem "Zähler undicht"
|
|
cmbGrund.AddItem "MeiTwin Regulierung"
|
|
cmbGrund.AddItem ""
|
|
cmbGrund.ListIndex = 0
|
|
cmdOK.Enabled = False
|
|
End Sub
|
|
|
|
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
|
|
If UnloadMode = 0 Then
|
|
MsgBox "Sie müssen einen Grund für den Abbruch eingeben."
|
|
Cancel = True
|
|
End If
|
|
End Sub
|
|
|