Neuling gleich mit Frage(n) - Validierung / Format / BKColor von Inputs

RKuehle

Hallo Leute,
bin gerade ins Forum eingestiegen.
Bin ganz bewandert in Programmierung mit LotusScript, AVR Microcontrollern und ein wenig mehr.
Ab und an ergab sich die Situation, dass mein Arbeitgeber mal schnell ein Tool brauchte (Sicherungssysteme, FTp-Zeugs etc.) Dafür habe ich meist AutoIT genutzt und bin von dessen Möglichkeiten ziemlich begeistert.

Aktuell bin ich an einem Statistikprogramm dran (das auch noch recht fix fertig werden soll) und stoße dabei im Eingabeformular jetzt auf mehrere Probleme:
1. Suche ich eine Möglichkeit in einem Input eine Datumseingabe zu validieren
DateIsValid() deckt ja wohl nur die englischen Format ab ? Gibt's da alternative Lösungen?
2. Sollen Eingaben auf logische Richtigkeit geprüft werden (Beispiel: Veranstaltung fällt aus, hat aber >0 Teilnehmer -> passt ja nicht)
An welcher Stelle im Code sollte man diese Prüfungen setzen? Im Switch / Case der Controls?
3. Würde ich gerne BKColor der Controls ändern sobald sie im Focus sind, also der Cursor im Input steht.
Hat da jemand vielleicht einen Codeschnipsel?

Würde mich freuen wenn jemand weiterhelfen könnte!
Danke und Grüße
Ricardo

**Oscar**

Zu 1.) Warum ein Input benutzen, wenn es eine viel bessere Eingabemöglichkeit gibt: GUICtrlCreateDate
Zu 2.) Kann man nicht pauschal beantworten ohne den Code zu kennen.
Zu 3.) Das ist mit AutoIt nicht so einfach möglich. Da müsstest Du tricksen (Hintergrund-Label oder GDI+).

RKuehle

Zitat von Oscar

Zu 1.) Warum ein Input benutzen, wenn es eine viel bessere Eingabemöglichkeit gibt: GUICtrlCreateDate
Zu 2.) Kann man nicht pauschal beantworten ohne den Code zu kennen.
Zu 3.) Das ist mit AutoIt nicht so einfach möglich. Da müsstest Du tricksen (Hintergrund-Label oder GDI+).

Hallo Oscar,
danke für deine Antworten.
zu 1.) guter Hinweis, werde ich testen und gucken wie es aussieht.
zu 2.) Auch auf die Gefahr hin, dass hier nicht so gern gesehen (weil zu lang) hier mal der Code:

AutoIt

#Region ### START Koda GUI section ### Form=d:\users\ricardo\vuss\vuss2.kxf
Func f_erfassungsbogen()
	$Form1_2 = GUICreate("Erfassungsbogen Veranstaltungs- und Seelsorgestatistik (VuSS)", 724, 769, 195, 125)
	$Label1 = GUICtrlCreateLabel("Veranstaltungsbeginn", 24, 24, 140, 22)
	GUICtrlSetFont(-1, 11, 800, 0, "Calibri")
	$I_Datum = GUICtrlCreateInput("", 24, 56, 145, 26, $ES_RIGHT)
	GUICtrlSetFont(-1, 11, 400, 0, "Calibri")
	GUICtrlSetBkColor(-1, 0xC0DCC0)
	$Label2 = GUICtrlCreateLabel("Datum", 184, 56, 45, 22)
	GUICtrlSetFont(-1, 11, 400, 0, "Calibri")
	$C_VTyp = GUICtrlCreateCombo("", 376, 56, 145, 25, BitOR($CBS_DROPDOWN, $CBS_AUTOHSCROLL))
	GUICtrlSetFont(-1, 11, 400, 0, "Calibri")
	GUICtrlSetBkColor(-1, 0xC0DCC0)
	$Label3 = GUICtrlCreateLabel("Veranstaltungstyp-Nr.", 536, 56, 141, 22)
	GUICtrlSetFont(-1, 11, 400, 0, "Calibri")
	$Label4 = GUICtrlCreateLabel("Veranstaltung", 376, 24, 91, 22)
	GUICtrlSetFont(-1, 11, 800, 0, "Calibri")
	$C_Zielgruppe = GUICtrlCreateCombo("", 376, 96, 145, 25, BitOR($CBS_DROPDOWN, $CBS_AUTOHSCROLL))
	GUICtrlSetFont(-1, 11, 400, 0, "Calibri")
	GUICtrlSetBkColor(-1, 0xC0DCC0)
	$Label5 = GUICtrlCreateLabel("Zielgruppen-Nr.", 536, 96, 103, 22)
	GUICtrlSetFont(-1, 11, 400, 0, "Calibri")
	$Label6 = GUICtrlCreateLabel("Ort", 384, 136, 24, 22)
	GUICtrlSetFont(-1, 11, 800, 0, "Calibri")
	$I_PLZ = GUICtrlCreateInput("", 376, 168, 145, 26)
	GUICtrlSetFont(-1, 11, 400, 0, "Calibri")
	GUICtrlSetBkColor(-1, 0xC0DCC0)
	$Label7 = GUICtrlCreateLabel("Postleitzahl", 536, 168, 77, 22)
	GUICtrlSetFont(-1, 11, 400, 0, "Calibri")
	$I_Dienststelle = GUICtrlCreateInput("", 24, 128, 145, 26, $ES_RIGHT)
	GUICtrlSetFont(-1, 11, 400, 0, "Calibri")
	GUICtrlSetBkColor(-1, 0xC0DCC0)
	$Label8 = GUICtrlCreateLabel("Dienststelle", 184, 128, 79, 22)
	GUICtrlSetFont(-1, 11, 400, 0, "Calibri")
	$I_DstNr = GUICtrlCreateInput("", 24, 168, 145, 26, $ES_RIGHT)
	GUICtrlSetFont(-1, 11, 400, 0, "Calibri")
	GUICtrlSetBkColor(-1, 0xC0DCC0)
	$I_Dekanat = GUICtrlCreateInput("", 24, 208, 145, 26, $ES_RIGHT)
	GUICtrlSetFont(-1, 11, 400, 0, "Calibri")
	GUICtrlSetBkColor(-1, 0xC0DCC0)
	$Label9 = GUICtrlCreateLabel("Dienststellen-Nr.", 184, 168, 111, 22)
	GUICtrlSetFont(-1, 11, 400, 0, "Calibri")
	$Label10 = GUICtrlCreateLabel("Dekanat", 184, 208, 55, 22)
	GUICtrlSetFont(-1, 11, 400, 0, "Calibri")
	$Label11 = GUICtrlCreateLabel("Dauer", 24, 248, 41, 22)
	GUICtrlSetFont(-1, 11, 800, 0, "Calibri")
	$I_Dauer = GUICtrlCreateInput("", 24, 280, 145, 26, $ES_RIGHT)
	GUICtrlSetFont(-1, 11, 400, 0, "Calibri")
	GUICtrlSetBkColor(-1, 0xC0DCC0)
	$Label12 = GUICtrlCreateLabel("Veranstaltungs- / Unterrichtsdauer in Zeiteinheiten a 60 Min (60 Min = 1 Einheit)", 184, 280, 497, 22)
	GUICtrlSetFont(-1, 11, 400, 0, "Calibri")
	$I_Uebernachtung = GUICtrlCreateInput("", 24, 320, 145, 26, $ES_RIGHT)
	GUICtrlSetFont(-1, 11, 400, 0, "Calibri")
	GUICtrlSetBkColor(-1, 0xC0DCC0)
	$Label13 = GUICtrlCreateLabel("Anzahl d. Übernacchtungen", 184, 320, 173, 22)
	GUICtrlSetFont(-1, 11, 400, 0, "Calibri")
	$I_ORT = GUICtrlCreateInput("", 376, 208, 145, 26, $ES_RIGHT)
	GUICtrlSetFont(-1, 11, 400, 0, "Calibri")
	GUICtrlSetBkColor(-1, 0xC0DCC0)
	$Label14 = GUICtrlCreateLabel("Veranstaltungsort", 536, 208, 115, 22)
	GUICtrlSetFont(-1, 11, 400, 0, "Calibri")
	$C_InAusland = GUICtrlCreateCombo("", 376, 248, 145, 25, BitOR($CBS_DROPDOWN, $CBS_AUTOHSCROLL))
	GUICtrlSetFont(-1, 11, 400, 0, "Calibri")
	GUICtrlSetBkColor(-1, 0xC0DCC0)
	$Label15 = GUICtrlCreateLabel("In- / Ausland", 536, 248, 83, 22)
	GUICtrlSetFont(-1, 11, 400, 0, "Calibri")
	$C_Veranstaltung = GUICtrlCreateCombo("", 376, 312, 145, 25, BitOR($CBS_DROPDOWN, $CBS_AUTOHSCROLL))
	GUICtrlSetFont(-1, 11, 400, 0, "Calibri")
	GUICtrlSetBkColor(-1, 0xC0DCC0)
	$Label16 = GUICtrlCreateLabel("Vernstaltung ausgefallen?", 536, 312, 166, 22)
	GUICtrlSetFont(-1, 11, 400, 0, "Calibri")
	$Label17 = GUICtrlCreateLabel("Abrechnung", 24, 360, 79, 22)
	GUICtrlSetFont(-1, 11, 800, 0, "Calibri")
	$C_Haushalt = GUICtrlCreateCombo("", 24, 392, 145, 25, BitOR($CBS_DROPDOWN, $CBS_AUTOHSCROLL))
	GUICtrlSetFont(-1, 11, 400, 0, "Calibri")
	GUICtrlSetBkColor(-1, 0xC0DCC0)
	$Label18 = GUICtrlCreateLabel("Haushalt", 184, 392, 58, 22)
	GUICtrlSetFont(-1, 11, 400, 0, "Calibri")
	$Label19 = GUICtrlCreateLabel("Teilnehmer", 24, 432, 76, 22)
	GUICtrlSetFont(-1, 11, 800, 0, "Calibri")
	$C_Durchfuehrende = GUICtrlCreateCombo("", 24, 464, 145, 25, BitOR($CBS_DROPDOWN, $CBS_AUTOHSCROLL))
	GUICtrlSetFont(-1, 11, 400, 0, "Calibri")
	GUICtrlSetBkColor(-1, 0xC0DCC0)
	$C_Pfarrhelfer = GUICtrlCreateCombo("", 24, 504, 145, 25, BitOR($CBS_DROPDOWN, $CBS_AUTOHSCROLL))
	GUICtrlSetFont(-1, 11, 400, 0, "Calibri")
	GUICtrlSetBkColor(-1, 0xC0DCC0)
	$Label20 = GUICtrlCreateLabel("Durchführende/r", 184, 464, 109, 22)
	GUICtrlSetFont(-1, 11, 400, 0, "Calibri")
	$Label21 = GUICtrlCreateLabel("Pfarrhelfer/-in hat teilgenommen", 184, 504, 213, 22)
	GUICtrlSetFont(-1, 11, 400, 0, "Calibri")
	$I_Referenten = GUICtrlCreateInput("", 376, 464, 145, 26, $ES_RIGHT)
	GUICtrlSetFont(-1, 11, 400, 0, "Calibri")
	GUICtrlSetBkColor(-1, 0xC0DCC0)
	$Label22 = GUICtrlCreateLabel("Referenten", 536, 464, 75, 22)
	GUICtrlSetFont(-1, 11, 400, 0, "Calibri")
	$Label23 = GUICtrlCreateLabel("Teilnehmeranzahl", 24, 544, 116, 22)
	GUICtrlSetFont(-1, 11, 800, 0, "Calibri")
	$I_Mannschaften = GUICtrlCreateInput("", 24, 608, 121, 26, $ES_RIGHT)
	GUICtrlSetFont(-1, 11, 400, 0, "Calibri")
	GUICtrlSetBkColor(-1, 0xC0DCC0)
	$I_Uffzop = GUICtrlCreateInput("", 160, 608, 121, 26, $ES_RIGHT)
	GUICtrlSetFont(-1, 11, 400, 0, "Calibri")
	GUICtrlSetBkColor(-1, 0xC0DCC0)
	$I_Uffzmp = GUICtrlCreateInput("", 296, 608, 121, 26, $ES_RIGHT)
	GUICtrlSetFont(-1, 11, 400, 0, "Calibri")
	GUICtrlSetBkColor(-1, 0xC0DCC0)
	$I_Offz = GUICtrlCreateInput("", 432, 608, 121, 26, $ES_RIGHT)
	GUICtrlSetFont(-1, 11, 400, 0, "Calibri")
	GUICtrlSetBkColor(-1, 0xC0DCC0)
	$I_SOffz = GUICtrlCreateInput("", 568, 608, 121, 26, $ES_RIGHT)
	GUICtrlSetFont(-1, 11, 400, 0, "Calibri")
	GUICtrlSetBkColor(-1, 0xC0DCC0)
	$Label24 = GUICtrlCreateLabel("Mannschaften", 32, 576, 92, 22)
	GUICtrlSetFont(-1, 11, 400, 0, "Calibri")
	$Label25 = GUICtrlCreateLabel("Unteroffiziere oP", 168, 576, 111, 22)
	GUICtrlSetFont(-1, 11, 400, 0, "Calibri")
	$Label26 = GUICtrlCreateLabel("Unteroffiziere mP", 304, 576, 115, 22)
	GUICtrlSetFont(-1, 11, 400, 0, "Calibri")
	$Label27 = GUICtrlCreateLabel("Offiziere < STH", 440, 576, 95, 22)
	GUICtrlSetFont(-1, 11, 400, 0, "Calibri")
	$Label28 = GUICtrlCreateLabel("Stabsoffiziere", 576, 576, 90, 22)
	GUICtrlSetFont(-1, 11, 400, 0, "Calibri")
	$Label29 = GUICtrlCreateLabel("Generale/Admirale", 32, 648, 124, 22)
	GUICtrlSetFont(-1, 11, 400, 0, "Calibri")
	$Label30 = GUICtrlCreateLabel("Ehepartner", 168, 648, 73, 22)
	GUICtrlSetFont(-1, 11, 400, 0, "Calibri")
	$Label31 = GUICtrlCreateLabel("Kinder/Jug.<25J.", 304, 648, 105, 22)
	GUICtrlSetFont(-1, 11, 400, 0, "Calibri")
	$Label32 = GUICtrlCreateLabel("Hinterbliebene", 440, 648, 99, 22)
	GUICtrlSetFont(-1, 11, 400, 0, "Calibri")
	$Label33 = GUICtrlCreateLabel("sonstige Teilnehmer", 576, 648, 131, 22)
	GUICtrlSetFont(-1, 11, 400, 0, "Calibri")
	$I_Generale = GUICtrlCreateInput("", 24, 680, 121, 26, $ES_RIGHT)
	GUICtrlSetFont(-1, 11, 400, 0, "Calibri")
	GUICtrlSetBkColor(-1, 0xC0DCC0)
	$I_Ehepartner = GUICtrlCreateInput("", 160, 680, 121, 26, $ES_RIGHT)
	GUICtrlSetFont(-1, 11, 400, 0, "Calibri")
	GUICtrlSetBkColor(-1, 0xC0DCC0)
	$I_Kinder = GUICtrlCreateInput("", 296, 680, 121, 26, $ES_RIGHT)
	GUICtrlSetFont(-1, 11, 400, 0, "Calibri")
	GUICtrlSetBkColor(-1, 0xC0DCC0)
	$I_Hinterbliebene = GUICtrlCreateInput("", 432, 680, 121, 26, $ES_RIGHT)
	GUICtrlSetFont(-1, 11, 400, 0, "Calibri")
	GUICtrlSetBkColor(-1, 0xC0DCC0)
	$I_sonstige = GUICtrlCreateInput("", 568, 680, 121, 26, $ES_RIGHT)
	GUICtrlSetFont(-1, 11, 400, 0, "Calibri")
	GUICtrlSetBkColor(-1, 0xC0DCC0)
	$B_Abbrechen = GUICtrlCreateButton("Erfassungsbogen abbrechen", 24, 720, 275, 25)
	$B_Speichern = GUICtrlCreateButton("Erfassungsbogen speichern", 416, 720, 267, 25)
	GUISetState(@SW_SHOW)
	#EndRegion ### END Koda GUI section ###
	# Übernahme aus GUI1
	GUICtrlSetData($I_Datum, $sDatum)
	GUICtrlSetData($I_Dienststelle, $sStandort)
	GUICtrlSetState($I_Dienststelle, $GUI_DISABLE)
	GUICtrlSetData($I_DstNr, $sDstNr)
	# Felder sperren
	GUICtrlSetState($I_DstNr, $GUI_DISABLE)
	GUICtrlSetData($I_Dekanat, $sDekanat)
	GUICtrlSetState($I_Dekanat, $GUI_DISABLE)
	# Vorbelegung mit 0
	GUICtrlSetData($I_Dauer, 0)
	GUICtrlSetData($I_Uebernachtung, 0)
	GUICtrlSetData($I_Referenten, 0)
	GUICtrlSetData($I_Mannschaften, 0)
	GUICtrlSetData($I_Uffzop, 0)
	GUICtrlSetData($I_Uffzmp, 0)
	GUICtrlSetData($I_Offz, 0)
	GUICtrlSetData($I_Generale, 0)
	GUICtrlSetData($I_Ehepartner, 0)
	GUICtrlSetData($I_Kinder, 0)
	GUICtrlSetData($I_Hinterbliebene, 0)
	GUICtrlSetData($I_sonstige, 0)
	# Auswahlen setzen
	f_readIni($squeryFile, "VTyp")
	GUICtrlSetData($C_VTyp, "|" & _ArrayToString($aVTypValues))
	f_readIni($squeryFile, "Zielgruppe")
	GUICtrlSetData($C_Zielgruppe, "|" & _ArrayToString($aZielgruppeValues))
	f_readIni($squeryFile, "Inausland")
	GUICtrlSetData($C_InAusland, "|" & _ArrayToString($aInauslandValues))
	_GUICtrlComboBox_SetCurSel($C_InAusland, 0)
	f_readIni($squeryFile, "Veranstaltung")
	GUICtrlSetData($C_Veranstaltung, "|" & _ArrayToString($aVeranstaltungValues))
	_GUICtrlComboBox_SetCurSel($C_Veranstaltung, 0)
	f_readIni($squeryFile, "Haushalt")
	GUICtrlSetData($C_Haushalt, "|" & _ArrayToString($aHaushaltValues))
	f_readIni($squeryFile, "Durchfuehrende")
	GUICtrlSetData($C_Durchfuehrende, "|" & _ArrayToString($aDurchfuehrendeValues))
	f_readIni($squeryFile, "Pfarrhelfer")
	GUICtrlSetData($C_Pfarrhelfer, "|" & _ArrayToString($aPfarrhelferValues))
	While 1
		$nMsg = GUIGetMsg()
		Switch $nMsg
			Case $I_Datum
			Case $C_VTyp
			Case $C_Zielgruppe
			Case $I_PLZ
			Case $I_Dauer
			Case $I_Uebernachtung
			Case $I_ORT
			Case $C_InAusland
			Case $C_Veranstaltung
			Case $C_Haushalt
			Case $C_Durchfuehrende
			Case $C_Pfarrhelfer
			Case $I_Referenten
			Case $I_Mannschaften
			Case $I_Uffzop
			Case $I_Uffzmp
			Case $I_Offz
			Case $I_SOffz
			Case $I_Generale
			Case $I_Ehepartner
			Case $I_Kinder
			Case $I_Hinterbliebene
			Case $I_sonstige
			Case $B_Abbrechen
				GUIDelete($Form1_2)
				ExitLoop
			Case $B_Speichern
		EndSwitch
	WEnd
EndFunc   ;==>f_erfassungsbogen
Func f_readIni($file, $section)
	Local $ainiLine = IniReadSection($file, $section)
	Switch $section
		Case "Standort"
			ReDim $aStandortKeys[UBound($ainiLine, $UBOUND_ROWS)]
			ReDim $aStandortValues[UBound($ainiLine, $UBOUND_ROWS)]
			For $i = 1 To $ainiLine[0][0]
				$aStandortKeys[$i - 1] = StringReplace($ainiLine[$i][0], "_", " ")
				$aStandortValues[$i - 1] = $ainiLine[$i][1]
			Next
		Case "Status"
			ReDim $aStatusValues[UBound($ainiLine, $UBOUND_ROWS)]
			For $i = 1 To $ainiLine[0][0]
				$aStatusValues[$i - 1] = StringReplace($ainiLine[$i][1], "_", " ")
			Next
		Case "VTyp"
			ReDim $aVTypValues[UBound($ainiLine, $UBOUND_ROWS)]
			For $i = 1 To $ainiLine[0][0]
				$aVTypValues[$i - 1] = $ainiLine[$i][0] & " " & $ainiLine[$i][1]
			Next
		Case "Zielgruppe"
			ReDim $aZielgruppeValues[UBound($ainiLine, $UBOUND_ROWS)]
			For $i = 1 To $ainiLine[0][0]
				$aZielgruppeValues[$i - 1] = $ainiLine[$i][0] & " " & $ainiLine[$i][1]
			Next
		Case "Inausland"
			ReDim $aInauslandValues[UBound($ainiLine, $UBOUND_ROWS)]
			For $i = 1 To $ainiLine[0][0]
				$aInauslandValues[$i - 1] = $ainiLine[$i][0] & " " & $ainiLine[$i][1]
			Next
		Case "Veranstaltung"
			ReDim $aVeranstaltungValues[UBound($ainiLine, $UBOUND_ROWS)]
			For $i = 1 To $ainiLine[0][0]
				$aVeranstaltungValues[$i - 1] = $ainiLine[$i][0] & " " & $ainiLine[$i][1]
			Next
		Case "Haushalt"
			ReDim $aHaushaltValues[UBound($ainiLine, $UBOUND_ROWS)]
			For $i = 1 To $ainiLine[0][0]
				$aHaushaltValues[$i - 1] = $ainiLine[$i][0] & " " & $ainiLine[$i][1]
			Next
		Case "Durchfuehrende"
			ReDim $aDurchfuehrendeValues[UBound($ainiLine, $UBOUND_ROWS)]
			For $i = 1 To $ainiLine[0][0]
				$aDurchfuehrendeValues[$i - 1] = $ainiLine[$i][0] & " " & $ainiLine[$i][1]
			Next
		Case "Pfarrhelfer"
			ReDim $aPfarrhelferValues[UBound($ainiLine, $UBOUND_ROWS)]
			For $i = 1 To $ainiLine[0][0]
				$aPfarrhelferValues[$i - 1] = $ainiLine[$i][0] & " " & $ainiLine[$i][1]
			Next
	EndSwitch
EndFunc   ;==>f_readIni

Alles anzeigen

Ist eine zweite GUI mit Standardaufbau.
Die Comboboxen ziehen ihre Werte aus einer .ini-datei
Nicht über die Begriffe wundern, mein Arbeitgeber ist eine kirchliche Einrichtung.
zu 3.) Werde ich mich mal umhören und bestimmt nochmal nerven.

Danke bis hierhin.
Grüße Ricardo

**Kanashius**

Erstmal zu den Inis:

AutoIt

$aVTypValues=f_readIni($squeryFile, "VTyp")


Func f_readIni($file, $section)
	Local $ainiLine = IniReadSection($file, $section)
	Local $array[UBound($ainiLine, $UBOUND_ROWS)]
	For $i = 1 To Ubound($ainiLine)-1 step 1
		$array[$i - 1] = StringReplace($ainiLine[$i][1], "_", " ")
	Next
	return $array
EndFunc   ;==>f_readIni

Alles anzeigen

Rest hab ich grad keine Zeit mehr zu.

RKuehle

Hallo Kanashius,

danke für den Hinweis. Sieht sauberer aus und spart die Redim's.
Grüße Ricardo

**Oscar**

Zitat von RKuehle

Auch auf die Gefahr hin, dass hier nicht so gern gesehen (weil zu lang) hier mal der Code:

Nein, das ist schon ok.
Besser wäre natürlich der Codeteil, wenn er eigenständig lauffähig wäre, aber mit ein paar Anpassungen kann man zumindest sehen, worum es geht.

Ich denke, wenn es während des Ausfüllens Abhängigkeiten zwischen einzelnen Einträgen gibt, dann muss Du in den jeweiligen Cases darauf prüfen und entsprechend die Felder ändern.
Wenn die Eingabe aber unabhängig von einzelnen Einträgen ist, dann würde ich das erst beim Klick auf "Speichern" vornehmen.