Hi, also ich hab nen problem mit der gui, wenn ich ein kunden anlege, dann auf hinzufügen geh macht er es auch, aber sobalt ich dann einen neuen anlegen will, macht er es nicht mehe...Bitte um Verbesserungsvorschläge
Spoiler anzeigen
#include <GUIConstants.au3>
$DatenBank = GUICreate("Daten Bank", 633, 394, 193, 125)
$cmdEnde = GUICtrlCreateButton("Beenden", 8, 360, 105, 25, 0)
$cmdSuchen = GUICtrlCreateButton("Kunden Suchen", 112, 360, 105, 25, 0)
$cmdBearbeiten = GUICtrlCreateButton("Kunden Bearbeiten", 216, 360, 105, 25, 0)
$cmdAnlegen = GUICtrlCreateButton("Kunden anlegen", 320, 360, 105, 25, 0)
$Kalender = GUICtrlCreateMonthCal("2007/11/30", 440, 216, 178, 169)
$Pic1 = GUICtrlCreatePic("", 440, 8, 177, 201, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$ListviewItem = "E-Bay Name|ICQ-Nummer|Bezahlt Ja/Nein|Ebay/Privat"
$listview = GUICtrlCreateListView ($ListviewItem ,10,10,415,350)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $cmdEnde
Exit
Case $cmdSuchen
Case $cmdBearbeiten
Case $cmdAnlegen
useradd()
EndSwitch
WEnd
func useradd()
$Formular = GUICreate("User", 147, 259, 193, 125)
$Group1 = GUICtrlCreateGroup("Kunden-Daten-Formular", 0, 0, 145, 257)
$Group2 = GUICtrlCreateGroup("Ebay-Name", 8, 16, 129, 49)
$ebayname = GUICtrlCreateInput("", 16, 32, 113, 21)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group3 = GUICtrlCreateGroup("ICQ-Nummer", 8, 64, 129, 49)
$icqnummer = GUICtrlCreateInput("", 16, 80, 113, 21)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group4 = GUICtrlCreateGroup("Bezahlt", 8, 112, 129, 57)
$optja = GUICtrlCreateRadio("Ja", 16, 128, 65, 17)
$optnein = GUICtrlCreateRadio("Nein", 16, 144, 65, 17)
GUICtrlSetState(-1, $GUI_CHECKED)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group5 = GUICtrlCreateGroup("Gekauft", 8, 168, 129, 57)
$optebay = GUICtrlCreateRadio("Ebay", 16, 184, 49, 17)
GUICtrlSetState(-1, $GUI_CHECKED)
$optprivat = GUICtrlCreateRadio("Privat", 16, 200, 49, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$cmdadd = GUICtrlCreateButton("Hinzufügen", 8, 224, 65, 25, 0)
$cmdccancel = GUICtrlCreateButton("Abbrechen", 72, 224, 65, 25, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
While 1
$nsg = GUIGetMsg()
Switch $nsg
Case $GUI_EVENT_CLOSE
guidelete("User")
Case $cmdccancel
guidelete("User")
Case $cmdadd
$txtebaynname = GUICtrlRead($ebayname)
$txticqnummer = GUICtrlRead($icqnummer)
If GUICtrlRead($optja) = 1 Then
$txtbezahlt = "Ja"
Else
$txtbezahlt = "Nein"
EndIf
If GUICtrlRead($optebay) = 1 Then
$txtwogekauft = "Ebay"
Else
$txtwogekauft = "Privat"
EndIf
GUICtrlCreateListViewItem($txtebaynname&"|"&$txticqnummer&"|"&$txtbezahlt&"|"&$txtwogekauft,$listview)
guidelete("User")
EndSwitch
WEnd
EndFunc