483 lines
14 KiB
Plaintext
483 lines
14 KiB
Plaintext
VERSION 5.00
|
|
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
|
|
Begin VB.Form frmVoreinstellwerteAendern
|
|
Caption = "Ändern der Voreinstellwerte"
|
|
ClientHeight = 6390
|
|
ClientLeft = 60
|
|
ClientTop = 345
|
|
ClientWidth = 8685
|
|
LinkTopic = "Form2"
|
|
ScaleHeight = 6390
|
|
ScaleWidth = 8685
|
|
StartUpPosition = 3 'Windows-Standard
|
|
Begin VB.CommandButton cmdDelete
|
|
Caption = "Löschen"
|
|
Height = 465
|
|
Left = 7230
|
|
TabIndex = 13
|
|
Top = 4350
|
|
Width = 945
|
|
End
|
|
Begin VB.CommandButton cmdNeu
|
|
Caption = "Neu"
|
|
Height = 465
|
|
Left = 7230
|
|
TabIndex = 12
|
|
Top = 3810
|
|
Width = 945
|
|
End
|
|
Begin VB.TextBox txtDatum
|
|
Alignment = 1 'Rechts
|
|
BackColor = &H80000004&
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 12
|
|
Charset = 0
|
|
Weight = 700
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 420
|
|
Left = 2190
|
|
Locked = -1 'True
|
|
TabIndex = 11
|
|
Top = 3780
|
|
Width = 3585
|
|
End
|
|
Begin VB.TextBox txtPruefer
|
|
Alignment = 1 'Rechts
|
|
BackColor = &H80000004&
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 12
|
|
Charset = 0
|
|
Weight = 700
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 420
|
|
Left = 2190
|
|
Locked = -1 'True
|
|
TabIndex = 9
|
|
Top = 4200
|
|
Width = 3585
|
|
End
|
|
Begin VB.CommandButton cmdCancel
|
|
Caption = "Abbrechen"
|
|
Height = 555
|
|
Left = 6810
|
|
TabIndex = 7
|
|
Top = 5730
|
|
Width = 1395
|
|
End
|
|
Begin VB.TextBox txtBemerkungVoreinstellwert
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 12
|
|
Charset = 0
|
|
Weight = 400
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 375
|
|
Left = 2190
|
|
MaxLength = 40
|
|
TabIndex = 5
|
|
Top = 5100
|
|
Width = 6135
|
|
End
|
|
Begin VB.TextBox txtVoreinstellwert
|
|
Alignment = 1 'Rechts
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 12
|
|
Charset = 0
|
|
Weight = 700
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 420
|
|
Left = 2190
|
|
TabIndex = 3
|
|
Top = 4650
|
|
Width = 1215
|
|
End
|
|
Begin MSFlexGridLib.MSFlexGrid MSFlexGrid1
|
|
Height = 3015
|
|
Left = 60
|
|
TabIndex = 2
|
|
Top = 720
|
|
Width = 8115
|
|
_ExtentX = 14314
|
|
_ExtentY = 5318
|
|
_Version = 393216
|
|
Cols = 1
|
|
FixedCols = 0
|
|
BackColorSel = 12582912
|
|
ScrollTrack = -1 'True
|
|
ScrollBars = 2
|
|
SelectionMode = 1
|
|
AllowUserResizing= 1
|
|
End
|
|
Begin VB.CommandButton cmdOK
|
|
Caption = "OK"
|
|
Height = 555
|
|
Left = 5130
|
|
TabIndex = 0
|
|
Top = 5730
|
|
Width = 1395
|
|
End
|
|
Begin VB.Label Label5
|
|
Alignment = 1 'Rechts
|
|
Caption = "Datum: "
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 12
|
|
Charset = 0
|
|
Weight = 700
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 405
|
|
Left = 90
|
|
TabIndex = 10
|
|
Top = 3810
|
|
Width = 1995
|
|
End
|
|
Begin VB.Label Label4
|
|
Alignment = 1 'Rechts
|
|
Caption = "Prüfer: "
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 12
|
|
Charset = 0
|
|
Weight = 700
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 405
|
|
Left = 90
|
|
TabIndex = 8
|
|
Top = 4230
|
|
Width = 1995
|
|
End
|
|
Begin VB.Label Label3
|
|
Alignment = 1 'Rechts
|
|
Caption = "Bemerkung:"
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 12
|
|
Charset = 0
|
|
Weight = 700
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 405
|
|
Index = 0
|
|
Left = 90
|
|
TabIndex = 6
|
|
Top = 5070
|
|
Width = 1995
|
|
End
|
|
Begin VB.Label Label2
|
|
Alignment = 1 'Rechts
|
|
Caption = "Voreinstellwert:"
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 12
|
|
Charset = 0
|
|
Weight = 700
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 405
|
|
Index = 0
|
|
Left = 90
|
|
TabIndex = 4
|
|
Top = 4650
|
|
Width = 1995
|
|
End
|
|
Begin VB.Label Label1
|
|
Caption = $"frmVoreinstellwerteAendern.frx":0000
|
|
Height = 405
|
|
Left = 60
|
|
TabIndex = 1
|
|
Top = 300
|
|
Width = 8085
|
|
End
|
|
End
|
|
Attribute VB_Name = "frmVoreinstellwerteAendern"
|
|
Attribute VB_GlobalNameSpace = False
|
|
Attribute VB_Creatable = False
|
|
Attribute VB_PredeclaredId = True
|
|
Attribute VB_Exposed = False
|
|
Option Explicit
|
|
|
|
Public m_lngIdentNrGruppe As Long
|
|
Public m_strMetrolog As String
|
|
Public m_strIdentNrGruppeName As String
|
|
|
|
'Public m_pruefzaehler As CPruefzaehler
|
|
Public m_dblOriginalwert As Double
|
|
|
|
|
|
Const FLGSPALTE_DATUM = 0
|
|
Const FLGSPALTE_PRUEFER = 1
|
|
Const FLGSPALTE_WERT = 2
|
|
Const FLGSPALTE_BEMERKUNG = 3
|
|
|
|
|
|
Private Sub cmdCancel_Click()
|
|
Unload Me
|
|
End Sub
|
|
|
|
Private Sub cmdDelete_Click()
|
|
Dim row As Integer
|
|
Dim rs As CRecordset
|
|
Dim strSQL As String
|
|
Dim strDatum As String
|
|
Dim strName As String
|
|
|
|
cmdDelete.Enabled = False
|
|
Me.MousePointer = vbHourglass
|
|
|
|
row = MSFlexGrid1.RowSel
|
|
|
|
MSFlexGrid1.row = row
|
|
|
|
MSFlexGrid1.col = FLGSPALTE_DATUM
|
|
strDatum = MSFlexGrid1.text
|
|
MSFlexGrid1.col = FLGSPALTE_PRUEFER
|
|
|
|
strName = MSFlexGrid1.text
|
|
MSFlexGrid1.col = FLGSPALTE_PRUEFER
|
|
If g_App.Mitarbeiter.getAnfangsbuchstabeVornameundName = MSFlexGrid1.text Or g_App.Mitarbeiter.GetPruefstellenleiter = True Then
|
|
|
|
strSQL = "SELECT * from SollwertAenderungen where IdentNrGruppe= " & m_lngIdentNrGruppe & " AND Metrolog='" & Replace(m_strMetrolog, "'", "''") & "' AND Datum = '" & strDatum & "' "
|
|
Set rs = New CRecordset
|
|
rs.openRS strSQL, False
|
|
If Not rs.EOF Then
|
|
If MsgBox("Sind Sie sicher, daß Sie diesen Voreinstellwert (Gruppe " & m_lngIdentNrGruppe & ", Metrolog=" & m_strMetrolog & ") = " & MSFlexGrid1.col & " löschen wollen?", vbYesNo Or vbDefaultButton2) = vbYes Then
|
|
rs.delete
|
|
rs.update
|
|
End If
|
|
End If
|
|
Else
|
|
MsgBox "Nur " & MSFlexGrid1.text & " kann diesen Voreinstellwert löschen."
|
|
End If
|
|
UpdateGrid
|
|
cmdDelete.Enabled = True
|
|
Me.MousePointer = vbNormal
|
|
End Sub
|
|
|
|
Private Sub cmdNeu_Click()
|
|
NeuerDatensatz
|
|
MSFlexGrid1.row = MSFlexGrid1.Rows - 1
|
|
MSFlexGrid1.RowSel = MSFlexGrid1.Rows - 1
|
|
MSFlexGrid1.SetFocus
|
|
End Sub
|
|
|
|
Private Sub cmdOk_Click()
|
|
If Not IsNumeric(txtVoreinstellwert.text) Then Exit Sub
|
|
|
|
If txtVoreinstellwert.Enabled = True Then
|
|
SaveVoreinstellwert
|
|
End If
|
|
|
|
g_varReturn.Wert = Round(CDbl(txtVoreinstellwert.text), 1)
|
|
g_varReturn.Bemerkung = txtBemerkungVoreinstellwert.text
|
|
|
|
If IsDate(txtDatum.text) Then
|
|
g_varReturn.Datum = CDate(txtDatum.text)
|
|
Else
|
|
g_varReturn.Datum = 0
|
|
End If
|
|
|
|
|
|
g_varReturn.Pruefer = txtPruefer.text
|
|
|
|
|
|
Unload Me
|
|
End Sub
|
|
|
|
|
|
Private Sub Form_Activate()
|
|
UpdateGrid
|
|
End Sub
|
|
|
|
Private Sub initFlexgrid()
|
|
MSFlexGrid1.Clear
|
|
|
|
MSFlexGrid1.FormatString = "20.02.2006 23:59:00|A.BCDEFGHUJKILM|Voreinstellwert|1234567890123456789012345678901234567890"
|
|
MSFlexGrid1.FixedCols = 0
|
|
MSFlexGrid1.Rows = 2
|
|
MSFlexGrid1.FixedRows = 1
|
|
MSFlexGrid1.Rows = 1
|
|
|
|
MSFlexGrid1.row = 0
|
|
MSFlexGrid1.col = FLGSPALTE_DATUM
|
|
MSFlexGrid1.text = "Datum"
|
|
MSFlexGrid1.col = FLGSPALTE_PRUEFER
|
|
MSFlexGrid1.text = "Prüfer"
|
|
MSFlexGrid1.col = FLGSPALTE_WERT
|
|
MSFlexGrid1.text = "Voreinstellwert"
|
|
MSFlexGrid1.col = FLGSPALTE_BEMERKUNG
|
|
MSFlexGrid1.text = "Bemerkung"
|
|
End Sub
|
|
|
|
Private Sub Form_Load()
|
|
|
|
Me.Caption = "Ändern der Voreinstellwerte für IdentNr-Gruppe '" & m_strIdentNrGruppeName & "' (" & m_lngIdentNrGruppe & "), Metrolog '" & m_strMetrolog & "'"
|
|
initFlexgrid
|
|
cmdOK.Enabled = False
|
|
|
|
txtVoreinstellwert.text = Round(m_dblOriginalwert, 1)
|
|
End Sub
|
|
|
|
|
|
Private Sub UpdateGrid()
|
|
Dim rs As CRecordset
|
|
Dim strSQL As String
|
|
Dim line As Integer
|
|
|
|
|
|
initFlexgrid
|
|
|
|
strSQL = "SELECT * from SollwertAenderungen where IdentNrGruppe = " & m_lngIdentNrGruppe & " and Metrolog='" & Replace(m_strMetrolog, "'", "''") & "' order by Datum"
|
|
Set rs = New CRecordset
|
|
rs.openRS strSQL, True
|
|
Debug.Print strSQL
|
|
|
|
MSFlexGrid1.AddItem ""
|
|
MSFlexGrid1.col = FLGSPALTE_WERT
|
|
MSFlexGrid1.text = m_dblOriginalwert
|
|
|
|
MSFlexGrid1.col = FLGSPALTE_BEMERKUNG
|
|
MSFlexGrid1.text = "(Originalwert)"
|
|
line = line + 1
|
|
|
|
Do While Not rs.EOF
|
|
MSFlexGrid1.AddItem ""
|
|
|
|
line = line + 1
|
|
|
|
MSFlexGrid1.row = line
|
|
MSFlexGrid1.col = FLGSPALTE_DATUM
|
|
MSFlexGrid1.text = Format(rs.getDateValue("Datum"), "dd.mm.yyyy hh:mm:ss")
|
|
|
|
MSFlexGrid1.col = FLGSPALTE_PRUEFER
|
|
|
|
Dim Mitarbeiter As CMitarbeiter
|
|
Set Mitarbeiter = New CMitarbeiter
|
|
Mitarbeiter.loadForNr rs.getStringValue("Pruefer")
|
|
MSFlexGrid1.text = Mitarbeiter.getAnfangsbuchstabeVornameundName
|
|
Set Mitarbeiter = Nothing
|
|
|
|
MSFlexGrid1.col = FLGSPALTE_WERT
|
|
MSFlexGrid1.text = Round(rs.getDoubleValue("Sollwert"), 1)
|
|
|
|
MSFlexGrid1.col = FLGSPALTE_BEMERKUNG
|
|
MSFlexGrid1.text = rs.getStringValue("Bemerkung")
|
|
|
|
rs.MoveNext
|
|
Loop
|
|
|
|
' Wert Spalte
|
|
MSFlexGrid1.col = FLGSPALTE_WERT
|
|
' Letzte Zeile mit Werten selektieren
|
|
MSFlexGrid1.row = MSFlexGrid1.Rows - 1
|
|
MSFlexGrid1.RowSel = MSFlexGrid1.Rows - 1
|
|
'
|
|
MSFlexGrid1.AddItem "(neu)"
|
|
MSFlexGrid1.TopRow = MSFlexGrid1.Rows - 1
|
|
MSFlexGrid1.SetFocus
|
|
|
|
MSFlexGrid1_SelChange
|
|
cmdOK.Enabled = False
|
|
End Sub
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
Private Sub MSFlexGrid1_SelChange()
|
|
If MSFlexGrid1.RowSel = MSFlexGrid1.Rows - 1 Then
|
|
NeuerDatensatz
|
|
|
|
|
|
Else
|
|
txtVoreinstellwert.Enabled = False
|
|
txtBemerkungVoreinstellwert.Enabled = False
|
|
|
|
MSFlexGrid1.row = MSFlexGrid1.RowSel
|
|
|
|
MSFlexGrid1.col = FLGSPALTE_DATUM
|
|
txtDatum.text = MSFlexGrid1.text
|
|
|
|
MSFlexGrid1.col = FLGSPALTE_PRUEFER
|
|
txtPruefer.text = MSFlexGrid1.text
|
|
|
|
MSFlexGrid1.col = FLGSPALTE_WERT
|
|
txtVoreinstellwert.text = MSFlexGrid1.text
|
|
|
|
MSFlexGrid1.col = FLGSPALTE_BEMERKUNG
|
|
txtBemerkungVoreinstellwert.text = MSFlexGrid1.text
|
|
|
|
cmdOK.Enabled = False
|
|
End If
|
|
MSFlexGrid1.col = 2
|
|
'cmdOK.Enabled = True
|
|
End Sub
|
|
|
|
Private Sub NeuerDatensatz()
|
|
' (neu)-Zeile
|
|
txtVoreinstellwert.Enabled = True
|
|
txtBemerkungVoreinstellwert.Enabled = True
|
|
txtPruefer.text = g_App.Mitarbeiter.getAnfangsbuchstabeVornameundName
|
|
txtBemerkungVoreinstellwert.text = ""
|
|
txtDatum.text = Now()
|
|
End Sub
|
|
|
|
Private Sub SaveVoreinstellwert()
|
|
|
|
If Not IsNumeric(txtVoreinstellwert.text) Then
|
|
Exit Sub
|
|
End If
|
|
|
|
Dim rs As CRecordset
|
|
Set rs = New CRecordset
|
|
rs.openRS "select * from SollwertAenderungen", False
|
|
rs.addNew
|
|
rs.setValue ("Datum"), Now
|
|
rs.setValue ("Pruefer"), g_App.Mitarbeiter.getNr
|
|
|
|
rs.setValue ("Pruefstation"), g_App.PruefstationNr
|
|
rs.setValue ("IdentNrGruppe"), m_lngIdentNrGruppe
|
|
rs.setValue ("Metrolog"), m_strMetrolog
|
|
|
|
|
|
rs.setValue ("Sollwert"), CDbl(txtVoreinstellwert.text)
|
|
rs.setValue ("Bemerkung"), txtBemerkungVoreinstellwert
|
|
rs.update
|
|
|
|
End Sub
|
|
|
|
Private Sub txtBemerkungVoreinstellwert_Change()
|
|
cmdOK.Enabled = True
|
|
End Sub
|
|
|
|
Private Sub txtVoreinstellwert_Change()
|
|
cmdOK.Enabled = True
|
|
End Sub
|