#cs ----------------------------------------------------------------------------

 AutoIt Version: 3.3.8.1
 Author:         Leonard Klausmann

 Script Function:
	Business Staff
; <----- bei einem Zeilenumbruch immer String mit " schließen, mit & _ verketten und neue Zeile mit " beginnen
#ce ----------------------------------------------------------------------------

  #cs Test
						Local $hQuery,$aRow
					    _SQLite_Query($hDB, "SELECT * From Kundendaten",$hQuery)
						_SQLite_FetchData ($hQuery, $aRow)
						MsgBox(0x100,"[INFO]",$aRow)
					  
			   #ce  
;#RequireAdmin
#include <Array.au3> 
#include <SQLite.au3> 
#include <SQLite.dll.au3> 
#include <ButtonConstants.au3>
#include <GuiStatusBar.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <DateTimeConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <GuiStatusBar.au3>


;Erstellen der notwendigen Datenbanken
; | Philip/Konzept_Dameige.png


func init()
_SQLite_StartUp("sqlite3.dll")
If @error Then
    MsgBox(16, "SQLite Error", "Can't find 'sqlite3.dll' ")
    Exit -1
EndIf
Global $hDB = _SQLite_Open("PK-GLB.pk")
If @error Then
    MsgBox(16, "SQLite Error", "Can't open or create a permanent Database!, cause: "& @error)
    Exit -1
 EndIf

_SQLite_Exec ($hDB, "CREATE TABLE Kundendaten (Thema,Name,Telefon,Email,Adresse,Postleitzahl,Ort,RegNr,Rechnungsart);")
_SQLite_Exec ($hDB, "CREATE TABLE Angebote (RegNr,AngNr);")
_SQLite_Exec ($hDB, "CREATE TABLE Ausfuehrung (RegNr,AngNr,Ausfuehr,Preis,CalcNr);")
_SQLite_Exec ($hDB, "CREATE TABLE Nachcalk (CalcNr,Was,Art,Anzahl,gesPreis);")
_SQLite_Exec ($hDB, "CREATE TABLE Einstell (Was,Art,Preis);")

If( RegRead("KLAUSMANN_REG","REGNR") < 0) or (RegRead("KLAUSMANN_REG","REGNR")=@error) Then
RegWrite("HKEY_CURRENT_USER\Software\KLAUSMANN_REG", "REG_NR", "REG_SZ",0)
If @error Then
    MsgBox(64, "Registry", "Can't write in registry. "& @error)
    Exit -1
 EndIf
 EndIf

Global $RegNr = RegRead("HKEY_CURRENT_USER\Software\KLAUSMANN_REG", "REG_NR")
Return $hDB

EndFunc

;Test
init()
call("start")
;End_Test

#cs
_SQLite_Exec ($hDB, "INSERT INTO Tabelle (Row1,Row2,Row3) VALUES ('(C)','by','*electriZer*');")
#ce

func start()
;Graphische Darstellung des  Startfensters
#Region ### START Koda GUI section ### Form=c:\users\leonard\desktop\philip\form1.kxf
$Form1 = GUICreate(" Dameige: Klausmann", 735, 407, 217, 125)
$StatusBar1 = _GUICtrlStatusBar_Create($Form1)
_GUICtrlStatusBar_SetBkColor($StatusBar1, 0x000000)
_GUICtrlStatusBar_SetMinHeight($StatusBar1, 25)
$WeiterButton = GUICtrlCreateButton("Weiter", 136, 264, 121, 33)
$Pic1 = GUICtrlCreatePic("C:\Users\leonard\Desktop\ZuSortierendeFotos\Logos\Logos\Logo_RGB.jpg", 491, 0, 241, 283)
$Ueberschrift = GUICtrlCreateLabel("Bitte wählen Sie den gewünschten Vorgang aus:", 32, 40, 448, 32, $SS_CENTER)
GUICtrlSetFont(-1, 17, 400, 0, "Calibri")
$Angebot = GUICtrlCreateRadio("Angebot", 72, 104, 129, 25)
GUICtrlSetFont(-1, 14, 400, 0, "Calibri")
$Rechnung = GUICtrlCreateRadio("Rechnung", 216, 104, 130, 25)
GUICtrlSetFont(-1, 14, 400, 0, "Calibri")
$Einsicht = GUICtrlCreateRadio("Einsicht", 72, 168, 130, 25)
GUICtrlSetFont(-1, 14, 400, 0, "Calibri")
$Aenderung = GUICtrlCreateRadio("Einstellungen", 216, 168, 129, 25)
GUICtrlSetFont(-1, 14, 400, 0, "Calibri")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

;Auswahl durch Startfenster
While 1
	$nMsg = GUIGetMsg()
	Select 
	  Case $nMsg = $GUI_EVENT_CLOSE
		 Call("close")
		 GUIDelete($Form1)
		ExitLoop
	  Case $nMsg = $WeiterButton
		 If BitAND(GUICtrlRead($Angebot), $GUI_CHECKED) = $GUI_CHECKED Then
			
			GUIDelete($Form1)
			call("Angebot_1")
			ExitLoop
		 ElseIf BitAND(GUICtrlRead($Rechnung), $GUI_CHECKED) = $GUI_CHECKED Then
			
			GUIDelete($Form1)
			;call("Rechnung")
			ExitLoop
		 ElseIf BitAND(GUICtrlRead($Einsicht), $GUI_CHECKED) = $GUI_CHECKED Then
			
			GUIDelete($Form1)
			;call("Einsicht")
			ExitLoop
		 ElseIf BitAND(GUICtrlRead($Aenderung), $GUI_CHECKED) = $GUI_CHECKED Then
		 
			GUIDelete($Form1)
			call("Einstellung")
			ExitLoop
		 Else
			;MsgBox("","Dameige","Vielen Dank für das Benutzen von Dameige.")
			;GUIDelete($Form1)
			;ExitLoop
		 EndIf  
		
		;ExitLoop
			

	EndSelect
WEnd

EndFunc

func Angebot_1()
 ;Design der Datenerfassung des Kunden
#Region ### START Koda GUI section ### Form=c:\users\leonard\desktop\philip\angebot.kxf
$Angebot = GUICreate("Dameige: Klausmann", 901, 494, 317, 141)
$Pic1 = GUICtrlCreatePic("C:\Users\leonard\Desktop\ZuSortierendeFotos\Logos\Logos\Logo_RGB.jpg", 656, 0, 241, 283)
$Label1 = GUICtrlCreateLabel("Name des Kunden:", 16, 16, 125, 23)
GUICtrlSetFont(-1, 12, 400, 0, "Calibri")
$Label2 = GUICtrlCreateLabel("Postleitzahl:", 16, 56, 83, 23)
GUICtrlSetFont(-1, 12, 400, 0, "calibri")
$Label3 = GUICtrlCreateLabel("Wohnort:", 368, 56, 64, 23)
GUICtrlSetFont(-1, 12, 400, 0, "Calibri")
$Label4 = GUICtrlCreateLabel("Thema:", 368, 16, 52, 23)
GUICtrlSetFont(-1, 12, 400, 0, "Calibri")
$Label5 = GUICtrlCreateLabel("Geschätzter Zeitraum:", 16, 176, 147, 23)
GUICtrlSetFont(-1, 12, 400, 0, "Calibri")
$Name = GUICtrlCreateInput("Nachname Vorname", 168, 16, 185, 27)
GUICtrlSetFont(-1, 12, 400, 0, "Calibri")
GUICtrlSetTip(-1, "Nachname Vorname")
$Postleitzahl = GUICtrlCreateInput("", 168, 56, 185, 27)
GUICtrlSetFont(-1, 12, 400, 0, "Calibri")
$Thema = GUICtrlCreateInput("", 464, 16, 121, 27)
GUICtrlSetFont(-1, 12, 400, 0, "Calibri")
$Wohnort = GUICtrlCreateInput("", 464, 56, 121, 27)
GUICtrlSetFont(-1, 12, 400, 0, "Calibri")
$StatusBar1 = _GUICtrlStatusBar_Create($Angebot)
_GUICtrlStatusBar_SetMinHeight($StatusBar1, 25)
$WeiterButton = GUICtrlCreateButton("Weiter", 704, 351, 121, 33)
$MonthCal1 = GUICtrlCreateMonthCal("2013/06/19", 16, 224, 287, 164)
$Rechnung = GUICtrlCreateRadio("via Rechnung", 512, 256, 113, 17)
GUICtrlSetFont(-1, 12, 400, 0, "Calibri")
$Pauschale = GUICtrlCreateRadio("via Pauschale", 360, 256, 113, 17)
GUICtrlSetFont(-1, 12, 400, 0, "Calibri")
$Label6 = GUICtrlCreateLabel("-", 368, 173, 11, 33)
GUICtrlSetFont(-1, 18, 400, 0, "Calibri")
$Label7 = GUICtrlCreateLabel("Straße:", 16, 96, 49, 23)
GUICtrlSetFont(-1, 12, 400, 0, "Calibri")
$Strasze = GUICtrlCreateInput("", 168, 96, 185, 27)
GUICtrlSetFont(-1, 12, 400, 0, "Calibri")
$Label8 = GUICtrlCreateLabel("Hausnummer:", 368, 96, 94, 23)
GUICtrlSetFont(-1, 12, 400, 0, "Calibri")
$Hausnummer = GUICtrlCreateInput("", 464, 96, 121, 27)
GUICtrlSetFont(-1, 12, 400, 0, "Calibri")
$Date1 = GUICtrlCreateDate("2013/06/20 09:38:19", 176, 176, 185, 25)
$Date2 = GUICtrlCreateDate("2013/06/20 09:38:19", 385, 176, 185, 25)
$Nummer = GUICtrlCreateInput("", 168, 136, 185, 27)
GUICtrlSetFont(-1, 12, 400, 0, "Calibri")
$Label9 = GUICtrlCreateLabel("Telefonnummer:", 16, 136, 110, 23)
GUICtrlSetFont(-1, 12, 400, 0, "Calibri")
$Label10 = GUICtrlCreateLabel("Email:", 368, 136, 44, 23)
GUICtrlSetFont(-1, 12, 400, 0, "Calibri")
$Email = GUICtrlCreateInput("", 464, 136, 177, 27)
GUICtrlSetFont(-1, 12, 400, 0, "Calibri")
$Label11 = GUICtrlCreateLabel("Oder wählen Sie einen bestehenden Kunden:", 336, 304, 294, 23)
GUICtrlSetFont(-1, 12, 400, 0, "Calibri")
$Bestkund = GUICtrlCreateList("", 336, 336, 241, 51)
GUICtrlSetFont(-1, 10, 400, 0, "Calibri")
$beKu = GUICtrlCreateCheckbox("", 312, 304, 17, 21)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

;füllen der Liste der besthenden kunden
Local $hQuery, $SeNa
_SQLite_Query($hDB, "SELECT Name,RegNr FROM Kundendaten;", $hQuery) ; creating the query

While _SQLite_FetchData($hQuery, $SeNa, False, False) = $SQLITE_OK ; Read Out the next Row
    GUICtrlSetData ( $Bestkund, $SeNa[0] )
WEnd

;Auswahl durch Angebot_1 & Speichern von Kundendaten

While 1
	$nMsg = GUIGetMsg()
	Select 
		 Case $nMsg = $GUI_EVENT_CLOSE
			GUIDelete($Angebot)
			Call("close")
		 Case $nMsg = $WeiterButton
			
			If BitAND(GUICtrlRead($beKu), $GUI_CHECKED) = $GUI_CHECKED Then
				Local $Vgl = GUICtrlRead ($Bestkund,$GUI_FOCUS)
				;Vergleich Namen aus Liste mit ausgewählten Namen(bestehender Kunde)-> gebe RegNr zurück.
				MsgBox(64,"",$Vgl)
				While _SQLite_FetchData($hQuery, $SeNa, False, False) = $SQLITE_OK ; Read Out the next Row
				   MsgBox(64,"",$SeNa[0])
				  If (StringCompare ( $SeNa[0], $Vgl,2) = 0) Then
					 MsgBox(64,"","oO")
					local $saveReg = $SeNa[1]
				 EndIf	 			
			   WEnd

			   Call("Angebot2",$saveReg)
			   ExitLoop
			EndIf
						
			  Local $Vgl_2 = GUICtrlRead($Name)
			    ; Vergleich Namen aus Liste mit eingegebenen Namen(neukunde), wenn ja-> error, weil schon vorhanden.
				While _SQLite_FetchData($hQuery, $SeNa, False, False) = $SQLITE_OK ; Read Out the next Row
				  If (StringCompare ( $SeNa[0], $Vgl_2,2) = 0) Then
					MsgBox(64,"Dameige","Kunde schon vorhanden")
					GUIDelete($Angebot)
				    Call("close")
				  EndIf	 				  
			   WEnd
								  			   
            If BitAND(GUICtrlRead($Pauschale), $GUI_CHECKED) = $GUI_CHECKED Then
                      _SQLite_Exec ($hDB, "INSERT INTO Kundendaten (Thema,Name,Telefon,Email,Adresse,Postleitzahl,Ort,RegNr,Rechnungsart) " & _ 
                      "VALUES ( '" & GUICtrlRead($Thema) & "','" & GUICtrlRead($Name) & "','" & GUICtrlRead($Nummer) & "','" & GUICtrlRead($Email) & "','" & GUICtrlRead($Strasze) & "','" & GUICtrlRead($Postleitzahl) & "','" & GUICtrlRead($Wohnort) & "','" & $RegNr & "','P');")
						 $RegNr = $RegNr+1
					 	  
					 RegDelete("HKEY_CURRENT_USER\Software\KLAUSMANN_REG", "REG_NR")
					 RegWrite("HKEY_CURRENT_USER\Software\KLAUSMANN_REG", "REG_NR", "REG_SZ",$RegNr)
					 GUIDelete($Angebot)
					 call("Angebot_2",($RegNr-1))
					 
                      ExitLoop    
            ElseIf BitAND(GUICtrlRead($Rechnung), $GUI_CHECKED) = $GUI_CHECKED Then
                      _SQLite_Exec ($hDB, "INSERT INTO Kundendaten (Thema,Name,Telefon,Email,Adresse,Postleitzahl,Ort,RegNr,Rechnungsart) " & _ 
                      "VALUES ( '" & GUICtrlRead($Thema) & "','" & GUICtrlRead($Name) & "','" & GUICtrlRead($Nummer) & "','" & GUICtrlRead($Email) & "','" & GUICtrlRead($Strasze) & "','" & GUICtrlRead($Postleitzahl) & "','" & GUICtrlRead($Wohnort) & "','" & $RegNr & "','R');")
					    $RegNr = $RegNr+1
												
						RegDelete("HKEY_CURRENT_USER\Software\KLAUSMANN_REG", "REG_NR")
						RegWrite("HKEY_CURRENT_USER\Software\KLAUSMANN_REG", "REG_NR", "REG_SZ",$RegNr)
						If @error Then
						   MsgBox(64, "Registry", "Can't write in registry. "& @error)
						   Exit -1
						EndIf
						GUIDelete($Angebot)
						call("Angebot_2",($RegNr-1))  
						ExitLoop					  
			endif
			   
    EndSelect
WEnd

   EndFunc

func Angebot_2($KDN)
 ;Design von Angebot_2
#Region ### START Koda GUI section ### Form=c:\users\leonard\desktop\philip\angebot_2.kxf
$Angebot_2 = GUICreate("Dameige: Klausmann", 901, 601, 286, 184)
$Arbeitsvorgang = GUICtrlCreateInput("", 128, 24, 473, 27)
GUICtrlSetFont(-1, 12, 400, 0, "Calibri")
$Umsatz = GUICtrlCreateInput("", 160, 64, 89, 27)
GUICtrlSetFont(-1, 12, 400, 0, "Calibri")
$Kosten = GUICtrlCreateInput("", 305, 104, 89, 27)
GUICtrlSetFont(-1, 12, 400, 0, "Calibri")
$Pic1 = GUICtrlCreatePic("C:\Users\leonard\Desktop\ZuSortierendeFotos\Logos\Logos\Logo_RGB.jpg", 656, 0, 241, 283)
$add = GUICtrlCreateButton("Hinzufügen", 128, 464, 153, 33)
$List_Vorgang = GUICtrlCreateList("", 16, 152, 369, 300)
GUICtrlSetFont(-1, 9, 400, 0, "calibri")
$WeiterButton = GUICtrlCreateButton("Weiter", 672, 501, 129, 33)
$zuruek = GUICtrlCreateButton("Schritt rückgängig", 128, 512, 153, 17)
$Label1 = GUICtrlCreateLabel("Arbeitsvorgang:", 16, 24, 106, 23)
GUICtrlSetFont(-1, 12, 400, 0, "Calibri")
$Label2 = GUICtrlCreateLabel("Geschätzter Umsatz:", 16, 64, 137, 23)
GUICtrlSetFont(-1, 12, 400, 0, "Calibri")
$Label3 = GUICtrlCreateLabel(",- €", 256, 64, 25, 23)
GUICtrlSetFont(-1, 12, 400, 0, "Calibri")
$Label4 = GUICtrlCreateLabel("Geschätzte Material und Maschinenkosten:", 16, 104, 285, 23)
GUICtrlSetFont(-1, 12, 400, 0, "Calibri")
$StatusBar1 = _GUICtrlStatusBar_Create($Angebot_2)
_GUICtrlStatusBar_SetMinHeight($StatusBar1, 25)
$Label5 = GUICtrlCreateLabel(",- €", 399, 105, 25, 23)
GUICtrlSetFont(-1, 12, 400, 0, "Calibri")
$Materialrechner = GUICtrlCreateButton("Materialrechner", 464, 104, 169, 25)
$Maschinenrechner = GUICtrlCreateButton("Maschinenrechner", 464, 136, 169, 25)
$Lohnrechner = GUICtrlCreateButton("Lohnrechner", 463, 71, 169, 25)
$save = GUICtrlCreateRadio("Angebot erstellen und speichern", 600, 448, 217, 17)
$savedo = GUICtrlCreateRadio("Angebot erstellen, speichern und öffnen", 600, 472, 233, 17)
$do = GUICtrlCreateRadio("Angebot erstellen und öffnen  ! ohne Speichervorgang !", 600, 424, 289, 17)
$Subunternehmer = GUICtrlCreateCheckbox("Ausführung durch Subunternehmer", 400, 216, 249, 17)
GUICtrlSetFont(-1, 12, 400, 0, "Calibri")
$Label6 = GUICtrlCreateLabel("Name der Firma:", 400, 240, 111, 23)
GUICtrlSetFont(-1, 12, 400, 0, "Calibri")
$Sub_name = GUICtrlCreateInput("", 400, 264, 241, 23)
GUICtrlSetFont(-1, 10, 400, 0, "Calibri")
$Label7 = GUICtrlCreateLabel("Kosten:", 400, 304, 52, 23)
GUICtrlSetFont(-1, 12, 400, 0, "Calibri")
$sub_kosten = GUICtrlCreateInput("", 400, 328, 121, 23)
GUICtrlSetFont(-1, 10, 400, 0, "Calibri")
$Label8 = GUICtrlCreateLabel(",- €", 523, 325, 25, 24)
GUICtrlSetFont(-1, 12, 400, 0, "Calibri")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###


;Ausführung von Angebot_2 - Speicherung weiterer Daten

MsgBox(64,"",$KDN)
While 1
	$nMsg = GUIGetMsg()
	Select 
	  Case $nMsg = $GUI_EVENT_CLOSE
			Call("close")
			GUIDelete($Angebot_2)
			ExitLoop
		 

	EndSelect
WEnd

   
   EndFunc

func Materialrechner()
   ;Design
#Region ### START Koda GUI section ### Form=c:\users\leonard\desktop\philip\materialrechner.kxf
$Materialrechner = GUICreate("Dameige: Klausmann", 843, 815, 252, 108)
$Pic1 = GUICtrlCreatePic("C:\Users\leonard\Desktop\ZuSortierendeFotos\Logos\Logos\Logo_quer_RGB.jpg", 0, 0, 842, 198)
$List_selected = GUICtrlCreateList("", 440, 408, 329, 214)
$Labelx = GUICtrlCreateLabel("Anzahl:", 464, 208, 51, 23)
GUICtrlSetFont(-1, 12, 400, 0, "Calibri")
$Anzahl = GUICtrlCreateInput("", 464, 232, 81, 21)
$StatusBar1 = _GUICtrlStatusBar_Create($Materialrechner)
_GUICtrlStatusBar_SetMinHeight($StatusBar1, 25)
$List_all = GUICtrlCreateList("", 32, 232, 353, 175)
$Label1 = GUICtrlCreateLabel("benötigte Materialien:", 440, 384, 149, 23)
GUICtrlSetFont(-1, 12, 400, 0, "Calibri")
$Label2 = GUICtrlCreateLabel("Auswahl:", 32, 208, 63, 23)
GUICtrlSetFont(-1, 12, 400, 0, "Calibri")
$add = GUICtrlCreateButton("Hinzufügen", 568, 280, 209, 41)
$zurueck = GUICtrlCreateButton("Schritt rückgängig", 488, 632, 241, 17)
$Calc = GUICtrlCreateButton("Berechnen", 72, 576, 265, 41)
GUICtrlCreateLabel("", 56, 624, 4, 4)
GUICtrlSetFont(-1, 12, 400, 0, "Calibri")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

;Ausführung
While 1
	$nMsg = GUIGetMsg()
	Select 
		Case $nMsg = $GUI_EVENT_CLOSE
			Call("close")	
			GUIDelete($Materialrechner)
			Exit

	EndSelect
WEnd

EndFunc

func Maschinenrechner()
   ;Design
 #Region ### START Koda GUI section ### Form=c:\users\leonard\desktop\philip\maschinenrechner.kxf
$Materialrechner_1 = GUICreate("Dameige: Klausmann", 843, 815, 247, 421)
$Pic1 = GUICtrlCreatePic("C:\Users\leonard\Desktop\ZuSortierendeFotos\Logos\Logos\Logo_quer_RGB.jpg", 0, 0, 842, 198)
$List_selected = GUICtrlCreateList("", 440, 408, 329, 214)
$Labelx = GUICtrlCreateLabel("Stundenanzahl:", 464, 208, 102, 23)
GUICtrlSetFont(-1, 12, 400, 0, "Calibri")
$Anzahl = GUICtrlCreateInput("", 472, 232, 97, 21)
$StatusBar1 = _GUICtrlStatusBar_Create($Materialrechner_1)
_GUICtrlStatusBar_SetMinHeight($StatusBar1, 25)
$List_all = GUICtrlCreateList("", 32, 232, 353, 175)
$Label1 = GUICtrlCreateLabel("benötigte Maschinen:", 440, 384, 145, 23)
GUICtrlSetFont(-1, 12, 400, 0, "Calibri")
$Label2 = GUICtrlCreateLabel("Auswahl:", 32, 208, 63, 23)
GUICtrlSetFont(-1, 12, 400, 0, "Calibri")
$add = GUICtrlCreateButton("Hinzufügen", 568, 280, 209, 41)
$zurueck = GUICtrlCreateButton("Schritt rückgängig", 488, 632, 241, 17)
$Calc = GUICtrlCreateButton("Berechnen", 72, 576, 265, 41)
GUICtrlCreateLabel("", 56, 624, 4, 4)
GUICtrlSetFont(-1, 12, 400, 0, "Calibri")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
;Ausführung
While 1
	$nMsg = GUIGetMsg()
	Select 
		Case $nMsg = $GUI_EVENT_CLOSE
			Call("close")
			GUIDelete($Maschinenrechner)
			Exit

	EndSelect
WEnd

EndFunc

func Lohnrechner()
;Design
#Region ### START Koda GUI section ### Form=c:\users\leonard\desktop\philip\lohnrechner.kxf
$Form2 = GUICreate("Dameiga: Klausmann", 411, 466, 434, 116)
$Pic1 = GUICtrlCreatePic("C:\Users\leonard\Desktop\ZuSortierendeFotos\Logos\Logos\Logo_quer_RGB.jpg", 0, 0, 410, 92)
$List1 = GUICtrlCreateList("", 24, 128, 169, 45)
$Label = GUICtrlCreateLabel("Mitarbeiter:", 24, 104, 81, 23)
GUICtrlSetFont(-1, 12, 400, 0, "Calibri")
$Label1 = GUICtrlCreateLabel("Stunden:", 248, 104, 60, 23)
GUICtrlSetFont(-1, 12, 400, 0, "Calibri")
$Stunden = GUICtrlCreateInput("", 248, 128, 65, 21)
$calc = GUICtrlCreateButton("Berechnen", 104, 328, 169, 17)
$List2 = GUICtrlCreateList("", 24, 208, 265, 97)
$Label2 = GUICtrlCreateLabel("Lohneinnahmen:", 24, 184, 111, 23)
GUICtrlSetFont(-1, 12, 400, 0, "Calibri")
$StatusBar1 = _GUICtrlStatusBar_Create($Form2)
_GUICtrlStatusBar_SetMinHeight($StatusBar1, 25)
GUICtrlCreateLabel("", 88, 360, 4, 4)
GUICtrlSetFont(-1, 12, 400, 0, "Calibri")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
;Ausführung
While 1
	$nMsg = GUIGetMsg()
	Select 
		Case $nMsg = $GUI_EVENT_CLOSE
			Call("close")
			GUIDelete($Lohnrechner)
			Exit

	EndSelect
WEnd

   EndFunc

func Einstellung()
 ;Design
#Region ### START Koda GUI section ### Form=c:\users\leonard\desktop\philip\einstellungen.kxf
$Form2 = GUICreate("Dameige: Klausmann", 901, 601, 252, 162)
$Label1 = GUICtrlCreateLabel("Materialien", 104, 24, 102, 30)
GUICtrlSetFont(-1, 16, 400, 0, "Calibri")
$Label2 = GUICtrlCreateLabel("Maschinen", 400, 24, 97, 30)
GUICtrlSetFont(-1, 16, 400, 0, "Calibri")
$Label3 = GUICtrlCreateLabel("Mitarbeiter", 696, 24, 101, 30)
GUICtrlSetFont(-1, 16, 400, 0, "Calibri")
$Input1 = GUICtrlCreateInput("", 24, 104, 121, 21)
$Input2 = GUICtrlCreateInput("", 160, 104, 121, 21)
$Input3 = GUICtrlCreateInput("", 320, 104, 121, 21)
$Input4 = GUICtrlCreateInput("", 456, 104, 121, 21)
$Input5 = GUICtrlCreateInput("", 616, 104, 121, 21)
$Input6 = GUICtrlCreateInput("", 752, 104, 121, 21)
$add_steam = GUICtrlCreateButton("Hinzufügen", 456, 144, 83, 25)
$Label4 = GUICtrlCreateLabel("Art des Materials", 24, 88, 82, 17)
$Label5 = GUICtrlCreateLabel("Preis pro Meter/kg", 160, 88, 92, 17)
$Label6 = GUICtrlCreateLabel("Art der Maschine", 320, 88, 84, 17)
$Label7 = GUICtrlCreateLabel("Preis pro Stunde", 456, 88, 82, 17)
$add_worker = GUICtrlCreateButton("Hinzufügen", 754, 143, 83, 25)
$add_res = GUICtrlCreateButton("Hinzufügen", 160, 144, 83, 25)
$Label8 = GUICtrlCreateLabel("Name des Mitarbeiters", 616, 88, 109, 17)
$Label9 = GUICtrlCreateLabel("Kosten pro Stunde", 752, 88, 92, 17)
global $Einstell_List1 = GUICtrlCreateList("", 24, 192, 257, 331)
global $Einstell_List2 = GUICtrlCreateList("", 320, 192, 257, 331)
global $Einstell_List3 = GUICtrlCreateList("", 616, 192, 257, 331)
$menue = GUICtrlCreateButton("Zurück zum Menü", 280, 536, 339, 25)
$StatusBar1 = _GUICtrlStatusBar_Create($Form2)
_GUICtrlStatusBar_SetMinHeight($StatusBar1, 25)
$Enf_Button1 = GUICtrlCreateButton("Entfernen", 64, 144, 83, 25)
$Enf_Button2 = GUICtrlCreateButton("Entfernen", 360, 144, 83, 25)
$Enf_Button3 = GUICtrlCreateButton("Entfernen", 656, 144, 83, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

;Ausführung
;Erstellen der Liste
call("refresh_Einst")


While 1
	$nMsg = GUIGetMsg()
	Select 
		Case $nMsg = $GUI_EVENT_CLOSE
			Call("close")
			GUIDelete($Einstellung)
			Exit
		 Case $nMsg = $add_res
			   _SQLite_Exec ($hDB, "INSERT INTO Einstell (Was,Art,Preis) " & _ 
                      "VALUES ( 'Material','" & GUICtrlRead($Input1) & "','" & GUICtrlRead($Input2) & "');")
					call("refresh_Einst")
			
		 Case $nMsg = $add_worker
			  _SQLite_Exec ($hDB, "INSERT INTO Einstell (Was,Art,Preis) " & _ 
                      "VALUES ( 'Mitarbeiter','" & GUICtrlRead($Input3) & "','" & GUICtrlRead($Input4) & "');")
					 call("refresh_Einst")
			
		 Case $nMsg = $add_steam
			  _SQLite_Exec ($hDB, "INSERT INTO Einstell (Was,Art,Preis) " & _ 
                      "VALUES ( 'Mitarbeiter','" & GUICtrlRead($Input5) & "','" & GUICtrlRead($Input6) & "');")
			call("refresh_Einst")
			
			
	EndSelect
WEnd
EndFunc

func refresh_Einst()
   
   Local $hQuery, $SeNa, $selcter
   _SQLite_Query($hDB, "SELECT Was,Art,Preis FROM Einstell;", $hQuery) ; creating the query
   
   While _SQLite_FetchData($hQuery, $SeNa, False, False) = $SQLITE_OK ; Read Out the next Row
	  ;GUICtrlSetData ( $selecter, $SeNa[0] )
	  If StringCompare($SeNa[0], "Material") Then
		GUICtrlSetData ( $Einstell_List1, ($SeNa[1] & " -> " & $SeNa[2]) )
		
	 ElseIf StringCompare($SeNa[0], "Maschinen") Then
		GUICtrlSetData ( $Einstell_List2, ($SeNa[1] & " ->" & $SeNa[2]) )
		
	 ElseIf StringCompare($SeNa[0], "Mitarbeiter") Then		  
		GUICtrlSetData ( $Einstell_List3, ($SeNa[1] & " ->" & $SeNa[2]) )
		
		EndIf
   WEnd
   
EndFunc

func close()
 MsgBox("","Dameige","Vielen Dank für das Benutzen von Dameige.")
 
_SQLite_Close($hDB)
_SQLite_Shutdown()
Exit	

EndFunc