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