Alinas_SQLite_BuchVw

RR04 · 24. Dezember 2015

Alinas_SQLite_BuchVw ist ein AutoIt-Listview, neben Editfeld und Gui eine weitere Möglichkeit seine Datenbankinhalte zu präsentieren. Also eine Sichtweise, die uns aus Officeprogrammen geläufig ist, die nun mit der Funktionalität von relationalen Datenbanken einhergeht.

In diesem Anwendungsbeispiel handelt es sich um eine Datenbank mit einer einzelnen Tabelle, in der eine Büchersammlung verwaltet werden soll. Beim Start der Sammlung soll die Tabelle der Datenbank einige Eckdaten aufnehmen, z.B. ID, Titel, Autor, Erscheinungsdatum und die ISBN.

Das Datum –
Mit dem SQL-Befehl “SELECT date(‘now’);” wird nicht nur das aktuelle Datum angezeigt, sondern auch das SQLite interne Datumsformat (YYYY-MM-DD), das in diesem Fall verwendet wird.

Die Bedienung
ist denkbar einfach und schnell erklärt. Nach dem Start des Programms wird die DB mit “DB laden” geladen.
Die Suche funktioniert so, den Suchbegriff eingeben und im Combofeld hier “Titel” voreingestellt eine Auswahl treffen. Nach dem Klick auf “Suche starten” erscheint die Ausgabe im ListView. Zur DB zurück mit “DB laden”.

Um einen einzelnen Datensatz zu bearbeiten, wechselt man in den Bearbeitungsmodus. Bei einem Rechtsklick auf den jeweiligen Datensatz wird dieser in die Eingabefelder eingefügt und man kann prüfen, ob man eventuell in der Zeile verrutscht ist. Hier können die Datensätze auch eingegeben, geändert oder gelöscht werden. Bevor es losgeht aber erst einmal ein Backup mit “DB BackUp”, nun erhält man eine Txt-Datei, die auch von einem Officeprogramm eingelesen (Daten-Import) werden kann.

Edit siehe Post #3: Download "sqlite3xx_dll.au3" :
http://ritzelrocker04.bplaced.…torials/sqlite-starterlv/

PS: Schöne Feiertage!

Code: Alinas_SQLite_BuchVw.au3

#Region ;************ Includes ************
#include <Date.au3>
#include <GUIConstantsEx.au3>
#include <GuiListView.au3>
#include <GuiStatusBar.au3>
#include <GUIConstantsEx.au3>
#include <ComboConstants.au3>
#include <GuiListView.au3>
#include <String.au3>
#include <SQLite.au3>
#include "sqlite3101_dll.au3"
#EndRegion ;************ Includes ************
Global $cboSerch, $iptSerch
Global Const $asWDAYger[7] = ["Sonntag, ", "Montag, ", "Dienstag, ", "Mittwoch, ", "Donnerstag, ", "Freitag, ", "Samstag, "]
$Buchverwaltung = GUICreate("Alinas Buchverwaltung", 1125, 700)
$Label = GUICtrlCreateLabel("~ ~ ~ B U C H V E R W A L T U N G ~ ~ ~", 0, 8, 1125, 28, 0x01) ; $SS_CENTER=0x01
GUICtrlSetFont(-1, 16, 800, 0, "Arial")
GUICtrlSetColor(-1, 0x0000FF)
Global Const $sHeader = "ID|Titel|Autor|Verlag|Genre|Einband|ISBN|" _
& "Preis|Erscheinungsdatum|Seiten|Lagerplatz|Serie|Lfd_Nr|" _
& "Ausgeliehen_an|Ausgeliehen_am|Ausgeliehen_bis|Bestellt|Gelesen|Note|Zusatz|Informationen"
;
Global $aHeader = StringSplit($sHeader, '|')
$ListView = GUICtrlCreateListView($sHeader, 0, 40, 1125, 220)
GUICtrlSetBkColor(-1, 0xFFFFFF) ; Color weiß
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_LV_ALTERNATE)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
;
Global $GetHandleLV = GUICtrlGetHandle($ListView)
_GUICtrlListView_SetColumn($GetHandleLV, 0, $aHeader[1], 50, 1)
_GUICtrlListView_SetColumn($GetHandleLV, 1, $aHeader[2], 160, 0)
_GUICtrlListView_SetColumn($GetHandleLV, 6, $aHeader[7], 120, 1)
_GUICtrlListView_SetColumn($GetHandleLV, 7, $aHeader[8], 80, 1)
_GUICtrlListView_SetColumn($GetHandleLV, 8, $aHeader[9], 130, 1)
_GUICtrlListView_SetColumn($GetHandleLV, 9, $aHeader[10], 50, 1)
_GUICtrlListView_SetColumn($GetHandleLV, 14, $aHeader[15], 120, 1)
_GUICtrlListView_SetColumn($GetHandleLV, 15, $aHeader[16], 120, 1)
;
$ContextMenu = GUICtrlCreateContextMenu($ListView)
$MenuItem = GUICtrlCreateMenuItem("Datensatz bearbeiten", $ContextMenu)
;
#Region ### Main Area ###
Global $aCtrlLabel[21], $aCtrlInput[21]
$aCtrlLabel[0] = GUICtrlCreateLabel($aHeader[1], 10, 272, 150, 22)
$aCtrlInput[0] = GUICtrlCreateInput("0", 170, 272, 180, 26)
;
For $i = 1 To 6
$aCtrlLabel[$i] = GUICtrlCreateLabel($aHeader[$i + 1], 10, 272 + $i * 35, 150, 22)
$aCtrlInput[$i] = GUICtrlCreateInput($i, 170, 272 + $i * 35, 360, 26)
Next
;
For $j = 7 To 12
$aCtrlLabel[$j] = GUICtrlCreateLabel($aHeader[$j + 1], 10 + Mod($j, 2) * 290, 515 + Int(($j - 7) / 2) * 35, 150, 22)
$aCtrlInput[$j] = GUICtrlCreateInput($j, 170 + Mod($j, 2) * 240, 515 + Int(($j - 7) / 2) * 35, 120, 26)
Next
;
For $k = 13 To 19
$aCtrlLabel[$k] = GUICtrlCreateLabel($aHeader[$k + 1], 620, 272 + ($k - 13) * 33, 120, 22)
$aCtrlInput[$k] = GUICtrlCreateInput($k, 750, 272 + ($k - 13) * 33, 120, 26)
Next
;
For $m = 0 To 19
GUICtrlSetFont($aCtrlLabel[$m], 12, 400, 0, "Arial")
GUICtrlSetFont($aCtrlInput[$m], 12, 400, 0, "Arial")
Next
;Information
$aCtrlLabel[20] = GUICtrlCreateLabel($aHeader[20 + 1], 895, 272, 100, 22)
GUICtrlSetFont(-1, 12, 400, 0, "Arial")
$aCtrlInput[20] = GUICtrlCreateEdit("AA_info 20", 895, 300, 217, 160)
;
$btnUpdate = GUICtrlCreateButton("DS Update", 895, 470, 105, 28)
GUICtrlSetFont(-1, 12, 400, 0, "Arial")
$btnDelete = GUICtrlCreateButton("DS Löschen", 1010, 470, 105, 28)
GUICtrlSetFont(-1, 12, 400, 0, "Arial")
;Suche
$iptSearch = GUICtrlCreateInput("Suchen nach >>>", 620, 510, 492, 26)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$cboSearch = GUICtrlCreateCombo("Titel", 620, 545, 241, 25, BitOR($GUI_SS_DEFAULT_COMBO, $CBS_DROPDOWNLIST))
GUICtrlSetData(-1, "Autor|Verlag")
GUICtrlSetFont(-1, 12, 400, 0, "Arial")
$btnSearch = GUICtrlCreateButton("Suche starten", 871, 545, 241, 28)
GUICtrlSetFont(-1, 12, 400, 0, "Arial")
;
$btnDBladen = GUICtrlCreateButton("Datenbank laden", 871, 583, 241, 28)
GUICtrlSetFont(-1, 12, 400, 0, "Arial")
$btnClear = GUICtrlCreateButton("Eingabefelder leeren", 620, 583, 241, 28)
GUICtrlSetFont(-1, 12, 400, 0, "Arial")
;
Const $trR = _StringRepeat("-", 368)
$lblBottomLine = GUICtrlCreateLabel($trR, 10, 615, 1110, 8)
#EndRegion ### Main Area ###
;
#Region ### Bottom Area ###
Global $aCtrllbl[3], $aCtrlipt[3], $aLblTxt[3] = ["Buchanzahl:", "Ges. Seitenzahl:", "Ges. Buch NP:"] ;"Büchermenge:"
For $l = 0 To 2
$aCtrllbl[$l] = GUICtrlCreateLabel($aLblTxt[$l], 10 + ($l) * 260, 640, 120, 22)
GUICtrlSetFont(-1, 12, 400, 0, "Arial")
$aCtrlipt[$l] = GUICtrlCreateInput($l, 140 + ($l) * 260, 638, 120, 26, 0x0002) ; $ES_RIGHT=0x0002
GUICtrlSetFont(-1, 12, 400, 0, "Arial")
Next
;
$btnSave = GUICtrlCreateButton("Speichern", 1010, 635, 105, 28)
GUICtrlSetFont(-1, 12, 400, 0, "Arial")
$btnBackUp = GUICtrlCreateButton("DB BackUp", 895, 635, 105, 28)
GUICtrlSetFont(-1, 12, 400, 0, "Arial")
#EndRegion ### Bottom Area ###
;
Global $tatusBar = _GUICtrlStatusBar_Create($Buchverwaltung)
;
GUISetState(@SW_SHOW)
;
_timeStatus() ; Funktion aufrufen sofortige einmalige Ausführung nach Programmstart
AdlibRegister('_timeStatus', 1000) ; Start alle 1000 milisec.
;
_SQLite_Startup(@ScriptDir & "\sqlite3.dll", False, 1) ; BugFix Idee, da DLL ja nicht mehr mitgeliefert wird
ConsoleWrite("_SQLite_LibVersion=" & _SQLite_LibVersion() & @CRLF)
Global $g_db_Database = _SQLite_Open(@ScriptDir & "\buchverwaltung.rr04")
;
Global $tatusBar_PartsWidth[3] = [450, 900, -1]
_GUICtrlStatusBar_SetParts($tatusBar, $tatusBar_PartsWidth)
_GUICtrlStatusBar_SetText($tatusBar, " _SQLite_LibVersion = " & _SQLite_LibVersion(), 0)
_GUICtrlStatusBar_SetText($tatusBar, " " & $asWDAYger[@WDAY - 1] & _DateTimeFormat(_NowCalc(), 2), 1)
_GUICtrlStatusBar_SetMinHeight($tatusBar, 20)
;
;~ ### Die Tabelle löschen, wenn vorhanden. ###
_SQLite_Exec(-1, "DROP TABLE IF EXISTS Buchverwaltung;")
;~ ### Die Tabelle erstellen, wenn nicht vorhanden. ###
_SQLite_Exec($g_db_Database, "CREATE TABLE IF NOT EXISTS Buchverwaltung(ID INTEGER PRIMARY KEY AUTOINCREMENT,Titel,Autor,Verlag,Genre,Einband,ISBN,Preis,Erscheinungsdatum,Seiten,Lagerplatz,Serie,Lfd_Nr,Ausgeliehen_an,Ausgeliehen_am,Ausgeliehen_bis,Bestellt,Gelesen,Note,Zusatz,Information);")
;
_SQLite_Exec(-1, "INSERT INTO Buchverwaltung VALUES(NULL,'13 Tage','Giambanco, Valentina','Droemer Knaur','Thriller','Hardcover','978-3426513996','14.99','2014-03-03','576','R1-F2','','','Thomas','2015-11-01','2016-01-01','','','..','..','..');")
_SQLite_Exec(-1, "INSERT INTO Buchverwaltung VALUES(NULL,'Abgründe','Strobel, Arno','Loewe','Thriller-J','Taschenbuch','978-3785578643','9.95','2014-03-10','240','R1-F2','','','','','','','','..','..','..');")
_SQLite_Exec(-1, "INSERT INTO Buchverwaltung VALUES(NULL,'Bedroht','Koppen, Hans','Heyne','Thriller','Taschenbuch','978-3453268012','14.99','2013-03-27','411','R1-F2','','','','','','','','..','..','..');")
_SQLite_Exec(-1, "INSERT INTO Buchverwaltung VALUES(NULL,'Agent 6','Smith, Tom Rob','Goldmann','Thriller','Taschenbuch','978-3442546770','9.99','2011-09-14','540','R1-F2','','','','','','','','..','..','..');")
_SQLite_Exec(-1, "INSERT INTO Buchverwaltung VALUES(NULL,'Belladonna','Slaughter, Karin','rororo','Thriller','Taschenbuch','978-3499239140','6.00','2003-03-03','413','R1-F1','','','','','','','','..','..','..');")
_SQLite_Exec(-1, "INSERT INTO Buchverwaltung VALUES(NULL,'Bis zum letzten Atemzug','Baldacci, David','Bastei Lübbe','Thriller','Taschenbuch','978-3404165537','9.99','2011-04-01','574','R1-F2','','','','','','','','..','..','..');")
_SQLite_Exec(-1, "INSERT INTO Buchverwaltung VALUES(NULL,'Bittere Wunden','Slaughter, Karin','blanvalet','Thriller','Hardcover','978-3764505172','19.99','2014-09-01','576','R1-F1','','','','','','','','..','..','..');")
_SQLite_Exec(-1, "INSERT INTO Buchverwaltung VALUES(NULL,'Datenbanken','Anton, Autor','Heyne','Fachbuch','Hardcover','978-3453268017','49.99','2013-03-27','411','R1-F2','','','Max','2015-11-01','2016-12-31','','','..','..','..');")
_SQLite_Exec(-1, "INSERT INTO Buchverwaltung VALUES(NULL,'Latex','Antonow, E.','Galileo','Fachbuch','Hardcover','978-3453268021','24.99','2011-01-01','411','R1-F2','','','Martin','2012-10-01','2013-02-15','','','..','..','..');")
_SQLite_Exec(-1, "INSERT INTO Buchverwaltung VALUES(NULL,'C Programmieren','Erlenkötter, H.','rororo','Fachbuch','Hardcover','978-3453268010','11.99','2013-10-01','411','R1-F2','','','Lutz','2015-02-01','2016-10-13','','','..','..','..');")
;
_SQLite_CountRows('buchverwaltung')
;
While True
Switch GUIGetMsg()
Case -3
_Exit()
Case $ListView
_GUICtrlListView_SortItems($ListView, GUICtrlGetState($ListView))
Case $btnSave
_DsInsert()
_ListViewFill()
_iptClear()
_SQLite_CountRows('buchverwaltung')
Case $btnDelete
_DsDelete()
_ListViewFill()
_SQLite_CountRows('buchverwaltung')
Case $btnUpdate
_DsUpdate()
_ListViewFill()
Case $btnSearch
_ListViewFill("SELECT ROWID,* From Buchverwaltung WHERE " & GUICtrlRead($cboSearch) & " LIKE '" & GUICtrlRead($iptSearch) & "';")
Case $btnDBladen
_ListViewFill()
Case $btnClear
_iptClear()
Case $btnBackUp
_DB_BackUp()
Case $MenuItem
_iptClear()
_ListView2ipt()
EndSwitch
WEnd
;
Func _timeStatus()
Local $zeit = _DateTimeFormat(_NowCalc(), 5)
_GUICtrlStatusBar_SetText($tatusBar, " Uhrzeit: " & $zeit, 2)
EndFunc ;==>_timeStatus
;
Func _ListViewFill($QLite = "SELECT ROWID,* FROM Buchverwaltung;")
Local $hQuery, $aRow
_GUICtrlListView_DeleteAllItems($ListView)
;~ _SQLite_Query(-1, "SELECT ROWID,* FROM Buchverwaltung;", $hQuery)
_SQLite_Query(-1, $QLite, $hQuery)
While _SQLite_FetchData($hQuery, $aRow, False, False) = $SQLITE_OK ; Read Out the next Row
GUICtrlCreateListViewItem(_ArrayToString($aRow, '|', 1, 21), $ListView)
GUICtrlSetBkColor(-1, 0xF0E68C) ; (0xF9F9F9) helles Grau (0xB9D1EA) helles blau (0xF0E68C)
WEnd
_SQLite_QueryFinalize($hQuery)
_GUICtrlListView_RegisterSortCallBack($ListView) ; CallBack registrieren zum sortieren
EndFunc ;==>_ListViewFill
;
Func _Exit() ; Datenbank schließen und down.
_GUICtrlListView_UnRegisterSortCallBack($ListView)
_SQLite_Close($g_db_Database)
_SQLite_Shutdown()
Exit
EndFunc ;==>_Exit
; DS löschen
Func _DsDelete()
_SQLite_Exec(-1, "DELETE From Buchverwaltung WHERE ID = " & GUICtrlRead($aCtrlInput[0]) & ";")
EndFunc ;==>_DsDelete
;
Func _DsUpdate()
_SQLite_Exec(-1, "UPDATE Buchverwaltung SET Titel = '" & GUICtrlRead($aCtrlInput[1]) & "', Autor = '" _
& GUICtrlRead($aCtrlInput[2]) & "', Verlag = '" & GUICtrlRead($aCtrlInput[3]) & "', Genre = '" _
& GUICtrlRead($aCtrlInput[4]) & "', Einband = '" & GUICtrlRead($aCtrlInput[5]) & "', ISBN = '" _
& GUICtrlRead($aCtrlInput[6]) & "', Preis = '" & GUICtrlRead($aCtrlInput[7]) & "', Erscheinungsdatum = '" _
& GUICtrlRead($aCtrlInput[8]) & "', Seiten = '" & GUICtrlRead($aCtrlInput[9]) & "', Lagerplatz = '" _
& GUICtrlRead($aCtrlInput[10]) & "', Serie = '" & GUICtrlRead($aCtrlInput[11]) & "', Lfd_Nr = '" _
& GUICtrlRead($aCtrlInput[12]) & "', Ausgeliehen_an = '" & GUICtrlRead($aCtrlInput[13]) & "', Ausgeliehen_am = '" _
& GUICtrlRead($aCtrlInput[14]) & "', Ausgeliehen_bis = '" & GUICtrlRead($aCtrlInput[15]) & "', Bestellt = '" _
& GUICtrlRead($aCtrlInput[16]) & "', Gelesen = '" & GUICtrlRead($aCtrlInput[17]) & "', Note = '" _
& GUICtrlRead($aCtrlInput[18]) & "', Zusatz = '" & GUICtrlRead($aCtrlInput[19]) & "', Information = '" _
& GUICtrlRead($aCtrlInput[20]) & "' WHERE ID = " & GUICtrlRead($aCtrlInput[0]) & ";")
EndFunc ;==>_DsUpdate
;
Func _DsInsert()
_SQLite_Exec(-1, "INSERT INTO Buchverwaltung VALUES(NULL, '" & GUICtrlRead($aCtrlInput[1]) & "','" _
& GUICtrlRead($aCtrlInput[2]) & "','" & GUICtrlRead($aCtrlInput[3]) & "','" & GUICtrlRead($aCtrlInput[4]) _
& "','" & GUICtrlRead($aCtrlInput[5]) & "','" & GUICtrlRead($aCtrlInput[6]) & "','" & GUICtrlRead($aCtrlInput[7]) _
& "','" & GUICtrlRead($aCtrlInput[8]) & "','" & GUICtrlRead($aCtrlInput[9]) & "','" & GUICtrlRead($aCtrlInput[10]) _
& "','" & GUICtrlRead($aCtrlInput[11]) & "','" & GUICtrlRead($aCtrlInput[12]) & "','" & GUICtrlRead($aCtrlInput[13]) _
& "','" & GUICtrlRead($aCtrlInput[14]) & "','" & GUICtrlRead($aCtrlInput[15]) & "','" & GUICtrlRead($aCtrlInput[16]) _
& "','" & GUICtrlRead($aCtrlInput[17]) & "','" & GUICtrlRead($aCtrlInput[18]) & "','" & GUICtrlRead($aCtrlInput[19]) _
& "','" & GUICtrlRead($aCtrlInput[20]) & "');")
EndFunc ;==>_DsInsert
;
Func _ListView2ipt()
;~ MsgBox(0, "Information", "Selected Mark: " & _GUICtrlListView_GetSelectionMark($ListView))
Local $electionMark = _GUICtrlListView_GetSelectionMark($ListView)
If $electionMark > -1 Then
Local $aLVitem = _GUICtrlListView_GetItemTextArray($ListView, $electionMark)
For $i = 1 To $aLVitem[0]
;~ MsgBox(0, "Information", "ItemTextArray: " & $aIpt[$i-1] & " " & $aLVitem[$i])
GUICtrlSetData($aCtrlInput[$i - 1], $aLVitem[$i])
Next
EndIf
EndFunc ;==>_ListView2ipt
;
Func _iptClear()
For $i = 0 To 20
GUICtrlSetData($aCtrlInput[$i], "")
Next
EndFunc ;==>_iptClear
;
;===================================================================================================
; Function Name....: _SQLite_CountRows
; Description......: Ermittelt die Anzahl von Datensätzen für eine Tabelle
; Parameter(s).....: $_sTable Tabellenname
; Requirement(s)...: Eine mit _SQLite_Open() geöffnete DB
; .................: #include <SQLite.au3>
; Return Value(s)..: Erfolg: Anzahl der Datensätze
; .................: Fehler: -1 @error = 1, @extended = SQLite-@error
; Author(s)........: BugFix (bugfix@autoit.de)
;===================================================================================================
Func _SQLite_CountRows($_sTable)
Local $hQuery, $aQuery, $iRet = 0, $iErr
If $SQLITE_OK <> _SQLite_Query(-1, "SELECT count(*) FROM " & $_sTable & ";", $hQuery) Then
$iErr = _SQLite_ErrCode()
_SQLite_QueryFinalize($hQuery)
Return SetError(1, $iErr, -1)
EndIf
While _SQLite_FetchData($hQuery, $aQuery) = $SQLITE_OK
$iRet = $aQuery[0]
WEnd
_SQLite_QueryFinalize($hQuery)
;~ Return $iRet
GUICtrlSetData($aCtrlipt[0], $iRet)
EndFunc ;==>_SQLite_CountRows
;
Func _DB_BackUp()
Local $BackUpFolder = @ScriptDir & "\_BackUps"
If Not FileExists($BackUpFolder) Then DirCreate($BackUpFolder)
Local $hFileOpen = FileOpen($BackUpFolder & "\" & @YEAR & "-" & @MON & "-" & @MDAY & "_BuchVw.db.txt", 2)
If $hFileOpen = -1 Then Exit MsgBox(0, "Fehler", "Die Datei konnte nicht geöffnet werden.")
Local $aResult, $iRows, $iColumns
Local $iRval = _SQLite_GetTable2d(-1, "SELECT * FROM Buchverwaltung;", $aResult, $iRows, $iColumns)
FileWriteLine($hFileOpen, $sHeader)
For $iR = 1 To $iRows
$sText = ""
For $iC = 0 To $iColumns - 1
$sText &= $aResult[$iR][$iC]
If $iC < $iColumns - 1 Then $sText &= "|"
Next
FileWriteLine($hFileOpen, $sText)
Next
FileClose($hFileOpen)
MsgBox(64, "Info", "DB BackUp ist fertig !", 3)
EndFunc ;==>_DB_BackUp
; Ende

Alles anzeigen

**Alina** · 25. Dezember 2015

DLL anbei

**Oscar** · 25. Dezember 2015

Wenn ihr Fremd-UDFs verwendet, dann solltet ihr diese auch zum Download anbieten.
Ohne die "sqlite392_dll.au3" funktioniert das Script nicht.

RR04 · 20. Januar 2016

Einige Anpassungen sind hinzugekommen.

**Alina** · 21. Januar 2016

Schaut gut aus

Code-Jack · 27. Mai 2016

Vielen Dank an RR04, für das schöne Code-Beispiel!

Gestern habe mich endlich dazu durchgerungen, ein laaange vor mir her geschobenes Projekt zu realisieren. Die Wahl fiel dabei auf AutoIt & SQLite. Mit beidem bin ich zwar noch Anfänger, habe aber doch einige Erfahrung mit anderen Basic-Dialekten.

Obiges Listing erschlägt schon einen ziemlich dicken Teil meines angestrebten Programms (für dass ich demnächst einen neuen Thread starte).
Nur: Leider läuft die Buchverwaltung bei mir nicht ganz korrekt.

Änderungen an den Einträgen werden zwar in der Listview angezeigt und beim Betätigen des "Speichern"-Buttons auch tatsächlich in die Datei "buchverwaltung.rr04" geschrieben (die sich ordnungsgemäß neben der Scriptdatei befindet), doch beim nächsten Programmstart (der stets mit leer dargestellter Listview erfolgt) und erneutem Laden der Datenbank, sind die letzten Änderungen wieder futsch und es werden die direkt im Quellcode hinterlegten Rohdaten in der ListView dargestellt.
Leider gelang es mir noch nicht, das Problem selbst zu beheben.

Etwas sonderbar erscheint mir die Zeile 127 ... öh, was soll da passieren (und warum)?

Für mein geplantes Projekt würde ich natürlich allerhand Anpassungen & Erweiterungen vornehmen - doch dazu bräuchte ich zunächst ein lauffähiges Grundgerüst, als Einstieg.

Die Feldbezeichner (heißen die so?) kommen mehrfach (redundant) im Quelltext vor.
Weil ich die sowieso alle ändern müsste und weil Mehrsprachigkeit nett wäre, würde es sich IMHO anbieten, diese aus einer ini-Datei zu laden.
RR04 hat auch diesbezüglich ja bereits ein Bespiel auf seiner Homepage, das förmlich danach schreit, in die (derzeitige) Buchverwaltung integriert zu werden.

Mein eigenes Projekt wird übrigens eine Verwaltung für Reparaturaufträge, mit integrierter Bauteildatenbank/Lagerverwaltung. Doch mehr dazu demnächst in einem eigenen Thread.

Es wäre schick, wenn zunächst mal die Buchverwaltung bei mir laufen würde.
Kann es übrigens sein, dass eine Funktion zum Hinzufügen neuer Datensätze noch fehlt?

**autoBert** · 27. Mai 2016

Das immer mit den gleichen Basisdaten angefangen wird liegt an den Zeilen 127-140. Einfach enbloc auskommentieren; #cs ... #ce.

Code-Jack · 27. Mai 2016

Danke, autoBert!
Komisch: Gestern hatte ich genau das schon ausprobiert, aber da trat der sonderbare Effekt auf, dass die Standard-Einträge plötzlich mehrfach in der Datenbank vorhanden waren, nebst einigen neuen.
Als mir das auffiel, war die Datenbank bereits auf 67 Datensätze angewachsen.
All meine Versuche, die Ursache dafür zu finden, scheiterten.
Keine Ahnung, was gestern schief lief, aber heute noch mal frisch probiert, geht's. Danke!

Eine Frage an RR04:
Hast Du für die Gestaltung des GUI einen Designer verwendet?
Oder hast Du einfach so lange im Script herumparametriert, bis es so schön schnuckelig aussah?

Ich hatte vor 10 Jahren mal eine umfangreiche Applikation in VB.Net programmiert. Die nahm mit der Zeit so einen derben Umfang an, dass ich am Ende auf den grafischen Designer von VB.Net hustete.
Statt dessen las das Programm die Positionsdaten und sonstigen Parameter der Bedienelemente bei Programmstart aus einer ini-Datei ein.
So konnte jeder User (mit viiieeel Geduld) eigene Anpassungen am Design vornehmen.
Ganz glücklich war ich mit diesem Verfahren aber auch nicht, weil es einfach gar zu schwierig war, eine komplexe und reichlich mit Elementen vollgekleisterte Oberfläche per Editor, oder Excel umzugestalten.

Da suche ich also noch nach einem brauchbaren Weg, der es dem unbedarften User ermöglicht, einigermaßen komfortabel eigene Anpassungen am Design vorzunehmen.

Kanashius · 27. Mai 2016

Nein. Er hat keinen Designer verwendet. Sieht man daran, dass die Controls in nem Array erstellt werden. Sowas ist immer sehr sinnvoll, wenn man sich wiederholende Strukturen hat.
Allgemein sind Designer in AutoIt nicht allzusehr zu empfehlen, wenn man nicht mal eben schnell was zusammenbasteln will, oder die Controls noch nicht kennt.
Das liegt aber daran, dass es keine Layouts gibt, die zum Beispiel beim resizen,... viel Vereinfachen.
Das Prinzip könnte man aber mal nachbauen... Wäre mal ne Idee für ne UDF. So immer weiter Elemente verschachteln,... werd ich mir mal überlegen

Code-Jack · 27. Mai 2016

Ja, das war auch der Grund, warum ich damals auf den Designer verzichtete.
Es kommt bei einzelnen Anwendern vor, dass sie oft Daten von Listen abtippen müssen. Dazu machen die dann beispielsweise ein schmales Editorfenster auf und ziehen das Fenster meines Programmes ebenfalls schmaler, um es neben dem Editor zu platzieren.

Mit fixen Positionen für die Bedienelemente, die sich an einem starren Fenster mit unveränderbaren Abmessungen orientieren, würde das nicht gehen.
Doch wenn man frei schwimmende Elemente verwendet, die sich den Abmessungen eines in der Größe veränderbaren Fensters dynamisch anpassen, dann kann es vorkommen, dass es nun so richtig müllig aussieht, weil die Bedienelemente sich sonstwie anordnen.
Arbeitet ein User praktisch immer mit einer bestimmten, individuell eingestellten Fenstergröße, so kommt folglich rasch der Wunsch auf, das Layout entsprechend aufzuräumen.

Sehr fortgeschrittene Programme haben dafür dann einen eingebauten Modus, der die Umgestaltung per Maus ermöglicht, wie bei einem eigenständigen GUI-Designer.
Sooo weit wollte ich nicht unbedingt ausholen. Aber ein gangbarer Mittelweg, zwischen Programmieraufwand und Flexibilität, wäre schon schick.

Code-Jack · 29. Mai 2016

Wie schon ja "angedroht", baue ich derzeit ein eigenes Programm, das auf der prima Code-Vorlage von RR04 aufbaut (vielen Dank an RR04!).

Bevor ich dazu einen eigenen Thread starte, wollte ich zunächst noch einmal meinen derzeitigen Stand der Umbauarbeiten hier im Thread zu Alinas Bücherverwaltung mit Euch teilen.
Denn NOCH hat das Programm Ähnlichkeit mit RR04s Fundament und ich dachte mir, dass mein Code-Stil (den ich für übersichtlich halte) vielleicht Anregungen liefert.

Großartig neue Features sind noch nicht hinzu gekommen - mal abgesehen von der Menüleiste.
Meine Arbeit bestand hauptsächlich darin, den Code (nach meinem Ermessen) ein gutes Stück übersichtlicher und leichter pflegbar zu gestalten (wodurch er schon reichlich angewachsen ist).
- Ein Prozess, der zwar noch nicht ganz abgeschlossen ist, aber meine nächsten Umbauten werden den Code so stark verändern, dass er mit Alinas Bücherverwaltung nicht mehr viel zu tun hat. Und ich wollte Alina noch die Chance geben, was zu verwerten, falls ihr etwas brauchbar erscheint.
Denn in der jetzigen Form scheint es mir eine schon ziemlich gute Basis für ähnlich gelagerte Aufgaben zu sein.

Soweit ich neue Variablen eingefügt habe, hielt ich mich an die hier im Forum empfohlenen Konventionen.

Die Erzeugung der Musterdatensätze erfolgt nun wirklich nur dann, wenn die Datenbankdatei noch nicht existiert. Damit gab es Anfangs ja ein Problem ...
Allerdings werden bereits jetzt Datensätze für eine Reparaturverwaltung erzeugt, statt für eine Bücherverwaltung. Die Textboxen sind aber daran noch nicht angepasst und noch an Ort und Stelle. Auch die Anzahl der Felder habe ich derzeit noch nicht verändert (jedoch deren Breite und Textausrichtung in der ListView); Alina wird also den jetzigen Stand ganz leicht wieder an ihre Bedürfnisse anpassen können.

Hoffentlich ist meine Danksagung, die per Menü aufrufbar ist, ausreichend, um die Vorarbeit von RR04 und BugFix angemessen zu würdigen?
- Sonst meckert, dann intensiviere ich meine Lobpreisungen!

Vorschau auf die nahe Zukunft (dann in einem eigenen Thread):
Mein nächster Umbau wird sein, dass die Oberflächengestaltung aus einer Datei geladen wird, damit man nicht so viel im Quelltext herumwühlen muss, um das GUI umzugestalten.
Außerdem implementiere ich weitere Ansichten, z. B. eine Vollbilddarstellung für die ListView-Tabelle.
Später kommt noch eine relationale Verknüpfung mit einer Adressdatenbank und einer Geräte-Datenbank hinzu.
Weiterhin wird für jeden Reparaturauftrag ein Ordner erzeugt werden, der Bilder, Datenblätter und sonstige Dateien beinhalten kann, die dann per Verknüpfung aus dem Programm flott aufrufbar sind.
Langfristig kommen noch diverse Druckfunktionen für Formulare (Reparaturannahme-Beleg) und gaaanz später die Möglichkeit, Rechnungen zu drucken (hier wird es aber langsam komplex, ich weiß!).

Ich habe also Groooßes vor; wir werden noch miteinander zu tun haben!

Quellcode

#Region Header #################################################################################################################\
; Erstellt mit AutoIt-Version v3.3.14.2

Global Const $sProgrammname = "Reparaturverwaltung"
Global Const $sVersion = "0.06"
Global Const $sRevisionsdatum = "29.05.2016"
Global Const $sAutor = "EDV-Dompteur, Stefan Denk"
Global Const $sWebsite = "http://www.EDV-Dompteur.de"

; --- P r o g r a m m b e s c h r e i b u n g -----------------------------------------------------------------------------\
Global Const $sAbout = "Programmname: " & $sProgrammname & @CRLF & "Version: " & $sVersion & @CRLF & "Autor: " & $sAutor & @CRLF & "Website: " & $sWebsite & @CRLF _
& @CRLF & "P r o g r a m m b e s c h r e i b u n g" _
& @CRLF & "---------------------------------------" _
& @CRLF & "Die hier vorliegende Software ist Freeware, also zur kostenlosen Nutzung freigegeben!" _
& @CRLF & "Das Programm dient kleinen Reparaturbetrieben dazu, den Überblick über ihre ausgeführten Arbeiten zu behalten." _
& @CRLF & "Die Details einer jeden Reparatur werden in einem eigenen Datensatz einer SQLite-Datenbank gespeichert." _
& @CRLF & "Eine Übersicht, in Form einer frei sortierbaren Liste, ermöglicht es rasch nach Datum, Kunde, Gerät etc. zu sortieren."
; --- P r o g r a m m b e s c h r e i b u n g -----------------------------------------------------------------------------/

; --- History -------------------------------------------------------------------------------------------------------------\
Global Const $sHistory = "" _
& @CRLF & "D a n k s a g u n g:" _
& @CRLF & "----------------------" _
& @CRLF & "Die Code-Vorlage, auf der dieses Programm aufbaut, stammt vom User ""RR04"", aus dem großartigen Forum http://www.AutoIt.de" _
& @CRLF & "Hier der Foren-Thread mit der Ursprungsversion:" _
& @CRLF & "https://autoit.de/index.php/Thread/83862-Alinas-SQLite-BuchVw/" _
& @CRLF & "Vielen Dank an ""RR04"", für die tolle Vorarbeit, die mir sicherlich mehrere Tage Arbeit erspart hat!" _
& @CRLF _
& @CRLF & "Weiterhin enthielt bereits die Vorlage von ""RR04"" eine Routine von ""BugFix"" (bugfix@autoit.de), namens ""_SQLite_CountRows""" _
& @CRLF & "Besagte Routine dient dazu, die Anzahl der Datensätze in der SQL-Datenbank zu ermitteln." _
& @CRLF & "Vielen Dank daher auch an ""BugFix""!" _
& @CRLF & "" _
& @CRLF & "Ab hier beginnen nun die Änderngen und Erweiterungen durch Fa. EDV-Dompteur, Stefan Denk:" _
& @CRLF _
& @CRLF & "H i s t or y:" _
& @CRLF & "-------------" _
& @CRLF & "V0.01 vom 28.05.2016:" _
& @CRLF & "- Programm umbenannt und erste Umgestaltungen der Quelltext-Vorlage von RR04." _
& @CRLF & "- Programmbeschreibung und History im Quelltext-Header implementiert; derart, dass auch eine Ausgabe dieser Texte möglich wird." _
& @CRLF & "- Die Tabelle wird nun bei Programmstart automatisch mit Datensätzen gefüllt (wenn DB noch nicht vorhanden, wird sie zuvor erzeugt)." _
& @CRLF _
& @CRLF & "V0.06 vom 29.05.2016:" _
& @CRLF & "- Der ListView-Header ist nun eine Variable, zwecks späterer Möglichkeit zum Einlesen aus einer ini-Datei." _
& @CRLF & "- Die Beispiel-Datensätze der usprünglichen Reparaturverwaltung umgestrickt auf die Belange einer Reparaturverwaltung." _
& @CRLF & "- Die Feldbezeichner der SQL-Datenbank verallgemeinert, zwecks leichterer Modifizierbarkeit." _
& @CRLF & "- Neue Datenfelder definiert: Projektordner, Gesprächsnotiz, Reparaturbericht." _
& @CRLF & "- Bugfix: Nach dem letzten Quelltext-Umbau wurden Datensätze nicht mehr aktualisiert, nach entsprechender Button-Betätigung." _
& @CRLF & "- Programmbeschreibung und History werden jetzt mit Zeilenumbrüchen formatiert ausgegeben." _
& @CRLF & "- Bugfix: Datenfeld 20 wurde nicht mit aktualisiert, nach dem Editieren eines Datensatzes." _
& @CRLF & "- Menüleiste hinzugefügt. Funktionen: Exit, Programminfo, History (der Menüzweig ""Einstellungen"" ist noch ohne Funktion)." _
& @CRLF & "- Listview: Spaltenbreiten und Textausrichtung eingestellt. Erste Vorbereitung für späteres Laden der Werte aus ini-Datei."
; --- History -------------------------------------------------------------------------------------------------------------/

; --- Aktuelle Aufgaben ---------------------------------------------------------------------------------------------------\
Global Const $sProgrammieraufgaben = "" _
& @CRLF & "Folgende drei Darstellungsmodi implementieren: Kombi (Tabelle und Datensatz, wie gehabt), Tabelle (volle Größe), Datensatz (ohne Tabelle)" _
& @CRLF & ""
; --- Aktuelle Aufgaben ---------------------------------------------------------------------------------------------------/

#include <Date.au3>
#include <GUIConstantsEx.au3>
#include <GuiListView.au3>
#include <GuiStatusBar.au3>
#include <GUIConstantsEx.au3>
#include <ComboConstants.au3>
#include <GuiListView.au3>
#include <String.au3>
#include <SQLite.au3>
#include <sqlite3101_dll.au3>

#include <EditConstants.au3> ;Test
#include <Array.au3> ;Test
#EndRegion Header ##############################################################################################################/

#Region Constanten & Variablen deklarieren und belegen #########################################################################\
; --- Globale Constanten deklarieren --------------------------------------------------------------------------------------\
Global Const $asWDAYger[7] = ["Sonntag, ", "Montag, ", "Dienstag, ", "Mittwoch, ", "Donnerstag, ", "Freitag, ", "Samstag, "]
; --- Globale Constanten deklarieren --------------------------------------------------------------------------------------/

; --- Globale Variablen deklarieren ---------------------------------------------------------------------------------------\
Opt("MustDeclareVars", 1) ;Zwingt den Programmierer, Variablen ordentlich zu deklarieren, vor der ersten Benutzung.
Global $cboSerch, $iptSerch, $FormKombiansicht, $Label, $ListView, $ContextMenu, $MenuItem, $btnUpdate, $btnDelete, $iptSearch
Global $cboSearch, $btnSearch, $btnDBladen, $btnClear, $lblBottomLine, $btnSave, $btnBackUp, $Result, $sDatenbankVollpfad
Global $sTmp, $sText
Global $sListViewHeader
; --- Globale Variablen deklarieren ---------------------------------------------------------------------------------------/

; ---Globale Variablen mit Werten belegen ---------------------------------------------------------------------------------\
$sDatenbankVollpfad = @ScriptDir & "\Reparaturverwaltung.rr04"
; ---Globale Variablen mit Werten belegen ---------------------------------------------------------------------------------/
#EndRegion Constanten & Variablen deklarieren und belegen ######################################################################/

#Region Bedienoberfläche zeichnen ##############################################################################################\
; --- Fenster & Menü erzeugen-----------------------------------------------------------\
Global $FormKombiansicht = GUICreate($sProgrammname, 1200, 768, 10, 10) ;Das Hauptfenster erzeugen.
; --- Menüzweig 1 ------------------------------------------------------------\
Global $MenuA = GUICtrlCreateMenu("Datei")
Global $MenuItemAExit = GUICtrlCreateMenuItem("Schließen", $MenuA)
; --- Menüzweig 1 ------------------------------------------------------------/

; --- Menüzweig 2 ------------------------------------------------------------\
Global $MenuB = GUICtrlCreateMenu("Einstellungen")
Global $MenuItemB04 = GUICtrlCreateMenuItem("Optionen", $MenuB)
; --- Menüzweig 2 ------------------------------------------------------------/

; --- Menüzweig 3 ------------------------------------------------------------\
Global $MenuC = GUICtrlCreateMenu("?")
Global $MenuItemCProgramminfo = GUICtrlCreateMenuItem("Programminfo", $MenuC)
Global $MenuItemCHistory = GUICtrlCreateMenuItem("History && Danksagung", $MenuC)
; --- Menüzweig 3 ------------------------------------------------------------/
;GUISetState(@SW_SHOW) ;??? Was macht dieser Befehl?
; --- Fenster & Menü erzeugen-----------------------------------------------------------/

; --- Programmname darstellen ----------------------------------------------------------\
$Label = GUICtrlCreateLabel("~ ~ ~ " & $sProgrammname & " Version: " & $sVersion & " ~ ~ ~", 0, 8, 1125, 28, 0x01) ; $SS_CENTER=0x01
GUICtrlSetFont(-1, 16, 800, 0, "Arial")
GUICtrlSetColor(-1, 0x0000FF)
; --- Programmname darstellen ----------------------------------------------------------/

; --- Listwiew erzeugen ----------------------------------------------------------------\
Global $aHeader = StringSplit($sListViewHeader, '|')
$ListView = GUICtrlCreateListView($sListViewHeader, 0, 40, 1125, 220)
GUICtrlSetBkColor(-1, 0xFFFFFF) ; Color weiß
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_LV_ALTERNATE)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
; --- Listwiew erzeugen ----------------------------------------------------------------/

; --- Spaltenbreiten und Textausrichtung der Listview-Spalten festlegen ----------------\
Global $GetHandleLV = GUICtrlGetHandle($ListView)
_GUICtrlListView_SetColumn($GetHandleLV, 0, $aHeader[1], 40, 1) ;ID
_GUICtrlListView_SetColumn($GetHandleLV, 1, $aHeader[2], 80, 0) ;Annahmedatum
_GUICtrlListView_SetColumn($GetHandleLV, 2, $aHeader[3], 70, 0) ;Abholdatum
_GUICtrlListView_SetColumn($GetHandleLV, 3, $aHeader[4], 120, 0) ;Gerät
_GUICtrlListView_SetColumn($GetHandleLV, 4, $aHeader[5], 100, 0) ;Schadenskürzel
_GUICtrlListView_SetColumn($GetHandleLV, 5, $aHeader[6], 110, 0) ;Firma
_GUICtrlListView_SetColumn($GetHandleLV, 6, $aHeader[7], 110, 1) ;Vorname
_GUICtrlListView_SetColumn($GetHandleLV, 7, $aHeader[8], 110, 0) ;Nachname
_GUICtrlListView_SetColumn($GetHandleLV, 8, $aHeader[9], 60, 1) ;Endpreis
_GUICtrlListView_SetColumn($GetHandleLV, 9, $aHeader[10], 60, 1) ;Rechnungsnummer
_GUICtrlListView_SetColumn($GetHandleLV, 10, $aHeader[11], 60, 1) ;Anzahlung
_GUICtrlListView_SetColumn($GetHandleLV, 11, $aHeader[12], 150, 0) ;Leihteile
_GUICtrlListView_SetColumn($GetHandleLV, 12, $aHeader[13], 60, 1) ;Voranschlag
_GUICtrlListView_SetColumn($GetHandleLV, 13, $aHeader[14], 70, 0) ;Reklamationsdatum
_GUICtrlListView_SetColumn($GetHandleLV, 14, $aHeader[15], 100, 0) ;Projektordner
_GUICtrlListView_SetColumn($GetHandleLV, 15, $aHeader[16], 100, 0) ;Gesprächsnotiz
_GUICtrlListView_SetColumn($GetHandleLV, 16, $aHeader[17], 100, 0) ;Reparaturbericht
_GUICtrlListView_SetColumn($GetHandleLV, 17, $aHeader[18], 40, 0)
_GUICtrlListView_SetColumn($GetHandleLV, 18, $aHeader[19], 40, 0)
_GUICtrlListView_SetColumn($GetHandleLV, 19, $aHeader[20], 40, 0)
; --- Spaltenbreiten und Textausrichtung der Listview-Spalten festlegen ----------------/

$ContextMenu = GUICtrlCreateContextMenu($ListView)
$MenuItem = GUICtrlCreateMenuItem("Datensatz bearbeiten", $ContextMenu)
; --- Liestview aufbauen --------------------------------------------------------------------------------------------------/

; --- Main Area -----------------------------------------------------------------------------------------------------------\
; --- Buttons, Labels und Inputfelder erzeugen -------------------------------\
Global $aCtrlLabel[21], $aCtrlInput[21]
$aCtrlLabel[0] = GUICtrlCreateLabel($aHeader[1], 10, 272, 150, 22)
$aCtrlInput[0] = GUICtrlCreateInput("0", 170, 272, 180, 26)
;
For $i = 1 To 6
$aCtrlLabel[$i] = GUICtrlCreateLabel($aHeader[$i + 1], 10, 272 + $i * 35, 150, 22)
$aCtrlInput[$i] = GUICtrlCreateInput($i, 170, 272 + $i * 35, 360, 26)
Next
;
For $j = 7 To 12
$aCtrlLabel[$j] = GUICtrlCreateLabel($aHeader[$j + 1], 10 + Mod($j, 2) * 290, 515 + Int(($j - 7) / 2) * 35, 150, 22)
$aCtrlInput[$j] = GUICtrlCreateInput($j, 170 + Mod($j, 2) * 240, 515 + Int(($j - 7) / 2) * 35, 120, 26)
Next
;
For $k = 13 To 19
$aCtrlLabel[$k] = GUICtrlCreateLabel($aHeader[$k + 1], 620, 272 + ($k - 13) * 33, 120, 22)
$aCtrlInput[$k] = GUICtrlCreateInput($k, 750, 272 + ($k - 13) * 33, 120, 26)
Next
;
For $m = 0 To 19
GUICtrlSetFont($aCtrlLabel[$m], 12, 400, 0, "Arial")
GUICtrlSetFont($aCtrlInput[$m], 12, 400, 0, "Arial")
Next
;Information
$aCtrlLabel[20] = GUICtrlCreateLabel($aHeader[20 + 1], 895, 272, 100, 22)
GUICtrlSetFont(-1, 12, 400, 0, "Arial")
$aCtrlInput[20] = GUICtrlCreateEdit("Gesprächsnotiz", 895, 300, 217, 160)
;
$btnUpdate = GUICtrlCreateButton("DS Update", 895, 470, 105, 28)
GUICtrlSetFont(-1, 12, 400, 0, "Arial")
$btnDelete = GUICtrlCreateButton("DS Löschen", 1010, 470, 105, 28)
GUICtrlSetFont(-1, 12, 400, 0, "Arial")
;Suche
$iptSearch = GUICtrlCreateInput("Suchen nach >>>", 620, 510, 492, 26)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$cboSearch = GUICtrlCreateCombo("Annahme", 620, 545, 241, 25, BitOR($GUI_SS_DEFAULT_COMBO, $CBS_DROPDOWNLIST))
GUICtrlSetData(-1, "Autor|Verlag")
GUICtrlSetFont(-1, 12, 400, 0, "Arial")
$btnSearch = GUICtrlCreateButton("Suche starten", 871, 545, 241, 28)
GUICtrlSetFont(-1, 12, 400, 0, "Arial")
;
$btnDBladen = GUICtrlCreateButton("Datenbank laden", 871, 583, 241, 28)
GUICtrlSetFont(-1, 12, 400, 0, "Arial")
$btnClear = GUICtrlCreateButton("Eingabefelder leeren", 620, 583, 241, 28)
GUICtrlSetFont(-1, 12, 400, 0, "Arial")
; --- Buttons, Labels und Inputfelder erzeugen -------------------------------/
; --- Main Area -----------------------------------------------------------------------------------------------------------/

; --- Horizontale, gestrichelte Linie erzeugen -------------------------------\
Const $trR = _StringRepeat("-", 368)
$lblBottomLine = GUICtrlCreateLabel($trR, 10, 615, 1110,
; --- Horizontale, gestrichelte Linie erzeugen -------------------------------/

; --- Bottom Area ---------------------------------------------------------------------------------------------------------\
; --- Untere Inputfelder erzeugen --------------------------------------------\
Global $aCtrllbl[3], $aCtrlipt[3], $aLblTxt[3] = ["Auftragsanzahl:", "Ges. Seitenzahl:", "Ges. Buch NP:"]
For $l = 0 To 2
$aCtrllbl[$l] = GUICtrlCreateLabel($aLblTxt[$l], 10 + ($l) * 260, 640, 120, 22)
GUICtrlSetFont(-1, 12, 400, 0, "Arial")
$aCtrlipt[$l] = GUICtrlCreateInput($l, 140 + ($l) * 260, 638, 120, 26, 0x0002) ; $ES_RIGHT=0x0002
GUICtrlSetFont(-1, 12, 400, 0, "Arial")
Next
; --- Untere Inputfelder erzeugen --------------------------------------------/

; --- Button "Datensatz kopieren" erzeugen -----------------------------------\
$btnSave = GUICtrlCreateButton("DS kopieren", 1010, 635, 105, 28)
GUICtrlSetFont(-1, 12, 400, 0, "Arial")
; --- Button "Datensatz kopieren" erzeugen -----------------------------------/

; --- Button "Datenbank-Backup" erzeugen -------------------------------------\
$btnBackUp = GUICtrlCreateButton("DB BackUp", 895, 635, 105, 28)
GUICtrlSetFont(-1, 12, 400, 0, "Arial")
; --- Button "Datenbank-Backup" erzeugen -------------------------------------/
; --- Bottom Area ---------------------------------------------------------------------------------------------------------/

; --- Statusbar am untersten Fensterrand ----------------------------------------------------------------------------------\
Global $idStatusbar = _GUICtrlStatusBar_Create($FormKombiansicht)

GUISetState(@SW_SHOW)

_timeStatus() ; Funktion aufrufen sofortige einmalige Ausführung nach Programmstart
AdlibRegister('_timeStatus', 1000) ; Start alle 1000 milisec.

;ConsoleWrite("_SQLite_LibVersion=" & _SQLite_LibVersion())
;ConsoleWrite("Heute ist ein schöner Tag!"& @CRLF)

Global $idStatusbar_PartsWidth[3] = [450, 900, -1]
_GUICtrlStatusBar_SetParts($idStatusbar, $idStatusbar_PartsWidth)
_GUICtrlStatusBar_SetText($idStatusbar, " _SQLite_LibVersion = " & _SQLite_LibVersion(), 0)
_GUICtrlStatusBar_SetText($idStatusbar, " " & $asWDAYger[@WDAY - 1] & _DateTimeFormat(_NowCalc(), 2), 1)
_GUICtrlStatusBar_SetMinHeight($idStatusbar, 20)
; --- Statusbar am untersten Fensterrand ----------------------------------------------------------------------------------/
#EndRegion Bedienoberfläche zeichnen ###########################################################################################/

#Region SQL starten & Datenbank in Listview laden (DB gegebenenfalls zuerst erzeugen) ##########################################\
_SQLite_Startup(@ScriptDir & "\sqlite3.dll", False, 1) ; BugFix Idee, da DLL ja nicht mehr mitgeliefert wird
If @error Then
$sTmp = "SQLite.dll konnte nicht geladen werden!"
MsgBox($MB_SYSTEMMODAL, "SQLite Error", $sTmp)
Exit -1
EndIf

Local $bTabelleErzeugen = 0
If Not FileExists($sDatenbankVollpfad) Then
$bTabelleErzeugen = True
EndIf

Global $g_db_Database = _SQLite_Open($sDatenbankVollpfad) ;Datenbank öffnen. Falls noch nicht vorhanden, dann erzeugen & öffnen.
If @error Then
$sTmp = "Die Datenbank:" & @CRLF & $sDatenbankVollpfad & @CRLF & "konnte nicht geöffnet werden!"
MsgBox($MB_SYSTEMMODAL, "SQLite Error", $sTmp)
Exit -1
EndIf

If $bTabelleErzeugen = True Then
; --- Datenbank-Tabelle erzeugen-----------------------------------------------------------------------------------------\
Global $sDBHeader = "CREATE TABLE IF NOT EXISTS Reparaturverwaltung(ID INTEGER PRIMARY KEY AUTOINCREMENT," _
& "F01," _ ;Annahme
& "F02," _ ;Abholung
& "F03," _ ;Gerät
& "F04," _ ;Schadenskürzel
& "F05," _ ;Firma
& "F06," _ ;Vorname
& "F07," _ ;Nachname
& "F08," _ ;Endpreis
& "F09," _ ;Rechnungsnummer
& "F10," _ ;Anzahlung
& "F11," _ ;Leihteile
& "F12," _ ;Voranschlag
& "F13," _ ;Reklamationsdatum
& "F14," _ ;Projektordner
& "F15," _ ;Gesprächsnotiz
& "F16," _ ;Reparaturbericht
& "F17," _
& "F18," _
& "F19," _
& "F20);"
; --- Datenbank-Tabelle erzeugen ----------------------------------------------------------------------------------------/

; --- Mehrere Beispiel-Datensätze erzeugen ------------------------------------------------------------------------------\
_SQLite_Exec($g_db_Database, $sDBHeader)
_SQLite_Exec(-1, "INSERT INTO Reparaturverwaltung VALUES(NULL,'16-03-22 11','16-03-22 18','Medion Akoya 731','Buchse defekt','','Herbert','Mustermann','100.00','576','20.00','USB-HDD-Gehäuse','100.00','','','','','','','','');")
_SQLite_Exec(-1, "INSERT INTO Reparaturverwaltung VALUES(NULL,'16-03-21 12','16-03-22 11','HP dv7','Buchse defekt','RA Rechtsverdreh','Ede','Knastmann','100.00','1039','','','100.00','','','','','','','','');")
_SQLite_Exec(-1, "INSERT INTO Reparaturverwaltung VALUES(NULL,'16-03-27 16','16-03-28 11','Lenovo 730','Scharnier lose','','Cornelia','Turteltaub','120.00','1038','100.00','','100.00','','','','','','','','');")
_SQLite_Exec(-1, "INSERT INTO Reparaturverwaltung VALUES(NULL,'16-04-22 09','16-04-27 11','Lenovo 1100','Einschaltproblem','','Waltrude','von der Weide','80.00','1040','10.00','','100.00','','','','','','','','');")
_SQLite_Exec(-1, "INSERT INTO Reparaturverwaltung VALUES(NULL,'16-06-22 15','16-06-29 11','Toshiba Satellite 50','Stabilitätsproblem','Schokofabrik ABC','Ali','Bahbah','47.50','413','10.00','Leihgerät 4','-','','','','','','','','');")
_SQLite_Exec(-1, "INSERT INTO Reparaturverwaltung VALUES(NULL,'16-07-22 13','16-07-22 17','Sony Vaio MG3000','Grafikfehler','','','Megenstadter','22.50','-','22.50','','-','','','','','','','','');")
_SQLite_Exec(-1, "INSERT INTO Reparaturverwaltung VALUES(NULL,'16-03-22 11','16-03-28 15','Lenovo AS200','Sturzschaden','Druckerei Müller','Willybald','Mustermann','100.00','-','','','100.00','','','','','','','','');")
_SQLite_Exec(-1, "INSERT INTO Reparaturverwaltung VALUES(NULL,'16-01-22 12','16-03-23 15','Toshiba Satellite X20','Flüssigkeitsschaden','','Fridolin','Kaiserschmarrn','90.00','1041','','','100.00','','','','','','','','');")
_SQLite_Exec(-1, "INSERT INTO Reparaturverwaltung VALUES(NULL,'15-03-22 11','15-04-01 12','MSI XC70S','Buchse defekt','???','','Maienbaum','0.00','-','','','0.00','','','','','','','','');")
_SQLite_Exec(-1, "INSERT INTO Reparaturverwaltung VALUES(NULL,'16-03-22 16','16-03-23 10','HP HDX18','Flüssigkeitsschaden','Werbeagentur DeLuxe','Veronika','Glitterstrass','1050.79','1042','500.00','','1000.00','','','','','','','','');")
_SQLite_Exec(-1, "INSERT INTO Reparaturverwaltung VALUES(NULL,'16-05-27 16','','Asus X738','Einschaltproblem','Druckerei Müller','Willybald','Mustermann','','','','','100.00','','','','','','','','');")
; --- Mehrere Beispiel-Datensätze erzeugen ------------------------------------------------------------------------------\
EndIf

_SQLite_CountRows('Reparaturverwaltung')
_ListViewFill() ;Listview mit den Datensätzen der (nun garantiert vorhandenen und geöffneten) Datenbank-Datei füllen.
#EndRegion SQL starten & Datenbank in Listview laden (DB gegebenenfalls zuerst erzeugen) #######################################/

#Region Hauptschleife ##########################################################################################################\
While True
Switch GUIGetMsg()

Case -3
_Exit()

Case $ListView
_GUICtrlListView_SortItems($ListView, GUICtrlGetState($ListView))

Case $btnSave
_DsInsert()
_ListViewFill()
_iptClear()
_SQLite_CountRows('Reparaturverwaltung')

Case $btnDelete
_DsDelete()
_ListViewFill()
_SQLite_CountRows('Reparaturverwaltung')

Case $btnUpdate
_DsUpdate()
_ListViewFill()

Case $btnSearch
_ListViewFill("SELECT ROWID,* From Reparaturverwaltung WHERE " & GUICtrlRead($cboSearch) & " LIKE '" & GUICtrlRead($iptSearch) & "';")

Case $btnDBladen
_ListViewFill()

Case $btnClear
_iptClear()

Case $btnBackUp
_DB_BackUp()

Case $MenuItem
_iptClear()
_ListView2ipt()

Case $MenuItemAExit
_Exit()

Case $MenuItemCProgramminfo
msgbox(0, "", $sAbout)

Case $MenuItemCHistory
msgbox(0, "", $sHistory)
EndSwitch
WEnd
#EndRegion Hauptschleife #######################################################################################################/

; ### Functions ################################################################################################################\
Func _timeStatus()
Local $zeit = _DateTimeFormat(_NowCalc(), 5)
_GUICtrlStatusBar_SetText($idStatusbar, " Uhrzeit: " & $zeit, 2)
EndFunc ;==>_timeStatus
; #############################################################################
Func _ListViewFill($QLite = "SELECT ROWID,* FROM Reparaturverwaltung;")
Local $hQuery, $aRow
_GUICtrlListView_DeleteAllItems($ListView)
;~ _SQLite_Query(-1, "SELECT ROWID,* FROM Reparaturverwaltung;", $hQuery)
_SQLite_Query(-1, $QLite, $hQuery)
While _SQLite_FetchData($hQuery, $aRow, False, False) = $SQLITE_OK ; Read Out the next Row
GUICtrlCreateListViewItem(_ArrayToString($aRow, '|', 1, 21), $ListView)
GUICtrlSetBkColor(-1, 0xF0E68C) ; (0xF9F9F9) helles Grau (0xB9D1EA) helles blau (0xF0E68C)
WEnd
_SQLite_QueryFinalize($hQuery)
_GUICtrlListView_RegisterSortCallBack($ListView) ; CallBack registrieren zum sortieren
EndFunc ;==>_ListViewFill
; #############################################################################
Func _DsDelete() ;Datensatz löschen.
_SQLite_Exec(-1, "DELETE From Reparaturverwaltung WHERE ID = " & GUICtrlRead($aCtrlInput[0]) & ";")
EndFunc ;==>_DsDelete
; #############################################################################
Func _DsUpdate() ;Datensatz updaten
_SQLite_Exec(-1, "UPDATE Reparaturverwaltung SET " _
& "F01 = '" & GUICtrlRead($aCtrlInput[1]) & "'," _
& "F02 = '" & GUICtrlRead($aCtrlInput[2]) & "'," _
& "F03 = '" & GUICtrlRead($aCtrlInput[3]) & "'," _
& "F04 = '" & GUICtrlRead($aCtrlInput[4]) & "'," _
& "F05 = '" & GUICtrlRead($aCtrlInput[5]) & "'," _
& "F06 = '" & GUICtrlRead($aCtrlInput[6]) & "'," _
& "F07 = '" & GUICtrlRead($aCtrlInput[7]) & "'," _
& "F08 = '" & GUICtrlRead($aCtrlInput[8]) & "'," _
& "F09 = '" & GUICtrlRead($aCtrlInput[9]) & "'," _
& "F10 = '" & GUICtrlRead($aCtrlInput[10]) & "'," _
& "F11 = '" & GUICtrlRead($aCtrlInput[11]) & "'," _
& "F12 = '" & GUICtrlRead($aCtrlInput[12]) & "'," _
& "F13 = '" & GUICtrlRead($aCtrlInput[13]) & "'," _
& "F15 = '" & GUICtrlRead($aCtrlInput[14]) & "'," _
& "F15 = '" & GUICtrlRead($aCtrlInput[15]) & "'," _
& "F16 = '" & GUICtrlRead($aCtrlInput[16]) & "'," _
& "F17 = '" & GUICtrlRead($aCtrlInput[17]) & "'," _
& "F18 = '" & GUICtrlRead($aCtrlInput[18]) & "'," _
& "F19 = '" & GUICtrlRead($aCtrlInput[19]) & "'," _
& "F20 = '" & GUICtrlRead($aCtrlInput[20]) & "'" _
& "WHERE ID = " & GUICtrlRead($aCtrlInput[0]) & ";")
EndFunc ;==>_DsUpdate
; #############################################################################
Func _DsInsert() ;Neuen Datensatz hinzufügen.
_SQLite_Exec(-1, "INSERT INTO Reparaturverwaltung VALUES(NULL, '" _
& GUICtrlRead($aCtrlInput[1]) & "','" _
& GUICtrlRead($aCtrlInput[2]) & "','" _
& GUICtrlRead($aCtrlInput[3]) & "','" _
& GUICtrlRead($aCtrlInput[4]) & "','" _
& GUICtrlRead($aCtrlInput[5]) & "','" _
& GUICtrlRead($aCtrlInput[6]) & "','" _
& GUICtrlRead($aCtrlInput[7]) & "','" _
& GUICtrlRead($aCtrlInput[8]) & "','" _
& GUICtrlRead($aCtrlInput[9]) & "','" _
& GUICtrlRead($aCtrlInput[10]) & "','" _
& GUICtrlRead($aCtrlInput[11]) & "','" _
& GUICtrlRead($aCtrlInput[12]) & "','" _
& GUICtrlRead($aCtrlInput[13]) & "','" _
& GUICtrlRead($aCtrlInput[14]) & "','" _
& GUICtrlRead($aCtrlInput[15]) & "','" _
& GUICtrlRead($aCtrlInput[16]) & "','" _
& GUICtrlRead($aCtrlInput[17]) & "','" _
& GUICtrlRead($aCtrlInput[18]) & "','" _
& GUICtrlRead($aCtrlInput[19]) & "','" _
& GUICtrlRead($aCtrlInput[20]) & "');")
EndFunc ;==>_DsInsert
; #############################################################################
Func _ListView2ipt()
;~ MsgBox(0, "Information", "Selected Mark: " & _GUICtrlListView_GetSelectionMark($ListView))
Local $electionMark = _GUICtrlListView_GetSelectionMark($ListView)
If $electionMark > -1 Then
Local $aLVitem = _GUICtrlListView_GetItemTextArray($ListView, $electionMark)
For $i = 1 To $aLVitem[0]
;~ MsgBox(0, "Information", "ItemTextArray: " & $aIpt[$i-1] & " " & $aLVitem[$i])
GUICtrlSetData($aCtrlInput[$i - 1], $aLVitem[$i])
Next
EndIf
EndFunc ;==>_ListView2ipt
; #############################################################################
Func _iptClear()
For $i = 0 To 20
GUICtrlSetData($aCtrlInput[$i], "")
Next
EndFunc ;==>_iptClear
; #############################################################################
;==========================================================================
; Function Name....: _SQLite_CountRows
; Description......: Ermittelt die Anzahl von Datensätzen für eine Tabelle
; Parameter(s).....: $_sTable Tabellenname
; Requirement(s)...: Eine mit _SQLite_Open() geöffnete DB
; .................: #include <SQLite.au3>
; Return Value(s)..: Erfolg: Anzahl der Datensätze
; .................: Fehler: -1 @error = 1, @extended = SQLite-@error
; Author(s)........: BugFix (bugfix@autoit.de)
;==========================================================================
Func _SQLite_CountRows($_sTable)
Local $hQuery, $aQuery, $iRet = 0, $iErr
If $SQLITE_OK <> _SQLite_Query(-1, "SELECT count(*) FROM " & $_sTable & ";", $hQuery) Then
$iErr = _SQLite_ErrCode()
_SQLite_QueryFinalize($hQuery)
Return SetError(1, $iErr, -1)
EndIf
While _SQLite_FetchData($hQuery, $aQuery) = $SQLITE_OK
$iRet = $aQuery[0]
WEnd
_SQLite_QueryFinalize($hQuery)
;MsgBox(0, "", $iRet)
;~ Return $iRet
GUICtrlSetData($aCtrlipt[0], $iRet)
EndFunc ;==>_SQLite_CountRows
; #############################################################################
Func _DB_BackUp()
Local $BackUpFolder = @ScriptDir & "\_BackUps"
If Not FileExists($BackUpFolder) Then DirCreate($BackUpFolder)
Local $hFileOpen = FileOpen($BackUpFolder & "\" & @YEAR & "-" & @MON & "-" & @MDAY & "_BuchVw.db.txt", 2)
If $hFileOpen = -1 Then Exit MsgBox(0, "Fehler", "Die Datei konnte nicht geöffnet werden.")

Local $aResult, $iRows, $iColumns
Local $iRval = _SQLite_GetTable2d(-1, "SELECT * FROM Reparaturverwaltung;", $aResult, $iRows, $iColumns)

FileWriteLine($hFileOpen, $sListViewHeader)

For $iR = 1 To $iRows
$sText = ""
For $iC = 0 To $iColumns - 1
$sText &= $aResult[$iR][$iC]
If $iC < $iColumns - 1 Then $sText &= "|"
Next
FileWriteLine($hFileOpen, $sText)
Next
FileClose($hFileOpen)
MsgBox(64, "Info", "DB BackUp ist fertig !", 3)
EndFunc ;==>_DB_BackUp
; #############################################################################
Func _Exit() ;Datenbank schließen und Programmende.
_GUICtrlListView_UnRegisterSortCallBack($ListView)
_SQLite_Close($g_db_Database)
_SQLite_Shutdown()
Exit
EndFunc ;==>_Exit
; ### Functions ################################################################################################################/

stefanwue · 2. Januar 2017

Hi genau das was ich gesucht habe, besteht die Möglichkeit das man zum ersten Feld hinter der ID noch eine Inputbox plaziert und da Zahlen und Buchstaben eingeben kann also zum Beispiel Kundennummer bekomme es nicht hin kann mir da jemand helfen ???

Kanashius · 2. Januar 2017

Ich hab das eben umgesetzt

Code

#Region Header #################################################################################################################\
; Erstellt mit AutoIt-Version v3.3.14.2
Global Const $sProgrammname = "Reparaturverwaltung"
Global Const $sVersion = "0.06"
Global Const $sRevisionsdatum = "29.05.2016"
Global Const $sAutor = "EDV-Dompteur, Stefan Denk"
Global Const $sWebsite = "http://www.EDV-Dompteur.de"
; --- P r o g r a m m b e s c h r e i b u n g -----------------------------------------------------------------------------\
Global Const $sAbout = "Programmname: " & $sProgrammname & @CRLF & "Version: " & $sVersion & @CRLF & "Autor: " & $sAutor & @CRLF & "Website: " & $sWebsite & @CRLF _
& @CRLF & "P r o g r a m m b e s c h r e i b u n g" _
& @CRLF & "---------------------------------------" _
& @CRLF & "Die hier vorliegende Software ist Freeware, also zur kostenlosen Nutzung freigegeben!" _
& @CRLF & "Das Programm dient kleinen Reparaturbetrieben dazu, den Überblick über ihre ausgeführten Arbeiten zu behalten." _
& @CRLF & "Die Details einer jeden Reparatur werden in einem eigenen Datensatz einer SQLite-Datenbank gespeichert." _
& @CRLF & "Eine Übersicht, in Form einer frei sortierbaren Liste, ermöglicht es rasch nach Datum, Kunde, Gerät etc. zu sortieren."
; --- P r o g r a m m b e s c h r e i b u n g -----------------------------------------------------------------------------/
; --- History -------------------------------------------------------------------------------------------------------------\
Global Const $sHistory = "" _
& @CRLF & "D a n k s a g u n g:" _
& @CRLF & "----------------------" _
& @CRLF & "Die Code-Vorlage, auf der dieses Programm aufbaut, stammt vom User ""RR04"", aus dem großartigen Forum www.AutoIt.de" _
& @CRLF & "Hier der Foren-Thread mit der Ursprungsversion:" _
& @CRLF & "https://autoit.de/index.php/Thread/83862-Alinas-SQLite-BuchVw/" _
& @CRLF & "Vielen Dank an ""RR04"", für die tolle Vorarbeit, die mir sicherlich mehrere Tage Arbeit erspart hat!" _
& @CRLF _
& @CRLF & "Weiterhin enthielt bereits die Vorlage von ""RR04"" eine Routine von ""BugFix"" (bugfix@autoit.de), namens ""_SQLite_CountRows""" _
& @CRLF & "Besagte Routine dient dazu, die Anzahl der Datensätze in der SQL-Datenbank zu ermitteln." _
& @CRLF & "Vielen Dank daher auch an ""BugFix""!" _
& @CRLF & "" _
& @CRLF & "Ab hier beginnen nun die Änderngen und Erweiterungen durch Fa. EDV-Dompteur, Stefan Denk:" _
& @CRLF _
& @CRLF & "H i s t or y:" _
& @CRLF & "-------------" _
& @CRLF & "V0.01 vom 28.05.2016:" _
& @CRLF & "- Programm umbenannt und erste Umgestaltungen der Quelltext-Vorlage von RR04." _
& @CRLF & "- Programmbeschreibung und History im Quelltext-Header implementiert; derart, dass auch eine Ausgabe dieser Texte möglich wird." _
& @CRLF & "- Die Tabelle wird nun bei Programmstart automatisch mit Datensätzen gefüllt (wenn DB noch nicht vorhanden, wird sie zuvor erzeugt)." _
& @CRLF _
& @CRLF & "V0.06 vom 29.05.2016:" _
& @CRLF & "- Der ListView-Header ist nun eine Variable, zwecks späterer Möglichkeit zum Einlesen aus einer ini-Datei." _
& @CRLF & "- Die Beispiel-Datensätze der usprünglichen Reparaturverwaltung umgestrickt auf die Belange einer Reparaturverwaltung." _
& @CRLF & "- Die Feldbezeichner der SQL-Datenbank verallgemeinert, zwecks leichterer Modifizierbarkeit." _
& @CRLF & "- Neue Datenfelder definiert: Projektordner, Gesprächsnotiz, Reparaturbericht." _
& @CRLF & "- Bugfix: Nach dem letzten Quelltext-Umbau wurden Datensätze nicht mehr aktualisiert, nach entsprechender Button-Betätigung." _
& @CRLF & "- Programmbeschreibung und History werden jetzt mit Zeilenumbrüchen formatiert ausgegeben." _
& @CRLF & "- Bugfix: Datenfeld 20 wurde nicht mit aktualisiert, nach dem Editieren eines Datensatzes." _
& @CRLF & "- Menüleiste hinzugefügt. Funktionen: Exit, Programminfo, History (der Menüzweig ""Einstellungen"" ist noch ohne Funktion)." _
& @CRLF & "- Listview: Spaltenbreiten und Textausrichtung eingestellt. Erste Vorbereitung für späteres Laden der Werte aus ini-Datei."
; --- History -------------------------------------------------------------------------------------------------------------/
; --- Aktuelle Aufgaben ---------------------------------------------------------------------------------------------------\
Global Const $sProgrammieraufgaben = "" _
& @CRLF & "Folgende drei Darstellungsmodi implementieren: Kombi (Tabelle und Datensatz, wie gehabt), Tabelle (volle Größe), Datensatz (ohne Tabelle)" _
& @CRLF & ""
; --- Aktuelle Aufgaben ---------------------------------------------------------------------------------------------------/
#include <Date.au3>
#include <GUIConstantsEx.au3>
#include <GuiListView.au3>
#include <GuiStatusBar.au3>
#include <GUIConstantsEx.au3>
#include <ComboConstants.au3>
#include <GuiListView.au3>
#include <String.au3>
#include <SQLite.au3>
;#include <sqlite3101_dll.au3>
#include <EditConstants.au3> ;Test
#include <Array.au3> ;Test
#EndRegion Header #################################################################################################################\
#Region Constanten & Variablen deklarieren und belegen #########################################################################\
; --- Globale Constanten deklarieren --------------------------------------------------------------------------------------\
Global Const $asWDAYger[7] = ["Sonntag, ", "Montag, ", "Dienstag, ", "Mittwoch, ", "Donnerstag, ", "Freitag, ", "Samstag, "]
; --- Globale Constanten deklarieren --------------------------------------------------------------------------------------/
; --- Globale Variablen deklarieren ---------------------------------------------------------------------------------------\
Opt("MustDeclareVars", 1) ;Zwingt den Programmierer, Variablen ordentlich zu deklarieren, vor der ersten Benutzung.
Global $cboSerch, $iptSerch, $FormKombiansicht, $Label, $ListView, $ContextMenu, $MenuItem, $btnUpdate, $btnDelete, $iptSearch
Global $cboSearch, $btnSearch, $btnDBladen, $btnClear, $lblBottomLine, $btnSave, $btnBackUp, $Result, $sDatenbankVollpfad
Global $sTmp, $sText
Global $sListViewHeader
; --- Globale Variablen deklarieren ---------------------------------------------------------------------------------------/
; ---Globale Variablen mit Werten belegen ---------------------------------------------------------------------------------\
$sDatenbankVollpfad = @ScriptDir & "\Reparaturverwaltung.rr04"
; ---Globale Variablen mit Werten belegen ---------------------------------------------------------------------------------/
#EndRegion Constanten & Variablen deklarieren und belegen #########################################################################\
#Region Bedienoberfläche zeichnen ##############################################################################################\
; --- Fenster & Menü erzeugen-----------------------------------------------------------\
Global $FormKombiansicht = GUICreate($sProgrammname, 1200, 768, 10, 10) ;Das Hauptfenster erzeugen.
; --- Menüzweig 1 ------------------------------------------------------------\
Global $MenuA = GUICtrlCreateMenu("Datei")
Global $MenuItemAExit = GUICtrlCreateMenuItem("Schließen", $MenuA)
; --- Menüzweig 1 ------------------------------------------------------------/
; --- Menüzweig 2 ------------------------------------------------------------\
Global $MenuB = GUICtrlCreateMenu("Einstellungen")
Global $MenuItemB04 = GUICtrlCreateMenuItem("Optionen", $MenuB)
; --- Menüzweig 2 ------------------------------------------------------------/
; --- Menüzweig 3 ------------------------------------------------------------\
Global $MenuC = GUICtrlCreateMenu("?")
Global $MenuItemCProgramminfo = GUICtrlCreateMenuItem("Programminfo", $MenuC)
Global $MenuItemCHistory = GUICtrlCreateMenuItem("History && Danksagung", $MenuC)
; --- Menüzweig 3 ------------------------------------------------------------/
;GUISetState(@SW_SHOW) ;??? Was macht dieser Befehl?
; --- Fenster & Menü erzeugen-----------------------------------------------------------/
; --- Programmname darstellen ----------------------------------------------------------\
$Label = GUICtrlCreateLabel("~ ~ ~ " & $sProgrammname & " Version: " & $sVersion & " ~ ~ ~", 0, 8, 1125, 28, 0x01) ; $SS_CENTER=0x01
GUICtrlSetFont(-1, 16, 800, 0, "Arial")
GUICtrlSetColor(-1, 0x0000FF)
; --- Programmname darstellen ----------------------------------------------------------/
; --- Liestview aufbauen --------------------------------------------------------------------------------------------------\
; ---- Headerzeile der ListView --------------------------------------------------------\
$sListViewHeader = "" _
& "ID" _
& "|Kundennummer" _
& "|Annahme" _
& "|Abholung" _
& "|Gerät" _
& "|Schadenskürzel" _
& "|Firma" _
& "|Vorname" _
& "|Nachname" _
& "|Endpreis" _
& "|Re-Nr." _
& "|Anzahl." _
& "|Leihteile" _
& "|Voranschlag" _
& "|ReklaDat" _
& "|Projektordner" _
& "|Gesprächsnotiz" _
& "|Reparaturbericht" _
& "|18" _
& "|19" _
& "|20"
; ---- Headerzeile der ListView --------------------------------------------------------/
; --- Listwiew erzeugen ----------------------------------------------------------------\
Global $aHeader = StringSplit($sListViewHeader, '|')
$ListView = GUICtrlCreateListView($sListViewHeader, 0, 40, 1125, 220)
GUICtrlSetBkColor(-1, 0xFFFFFF) ; Color weiß
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_LV_ALTERNATE)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
; --- Listwiew erzeugen ----------------------------------------------------------------/
; --- Spaltenbreiten und Textausrichtung der Listview-Spalten festlegen ----------------\
Global $GetHandleLV = GUICtrlGetHandle($ListView)
_GUICtrlListView_SetColumn($GetHandleLV, 0, $aHeader[1], 40, 1) ;ID
_GUICtrlListView_SetColumn($GetHandleLV, 1, $aHeader[2], 80, 0) ;Kundennummer
_GUICtrlListView_SetColumn($GetHandleLV, 1, $aHeader[2], 80, 0) ;Annahmedatum
_GUICtrlListView_SetColumn($GetHandleLV, 2, $aHeader[3], 70, 0) ;Abholdatum
_GUICtrlListView_SetColumn($GetHandleLV, 3, $aHeader[4], 120, 0) ;Gerät
_GUICtrlListView_SetColumn($GetHandleLV, 4, $aHeader[5], 100, 0) ;Schadenskürzel
_GUICtrlListView_SetColumn($GetHandleLV, 5, $aHeader[6], 110, 0) ;Firma
_GUICtrlListView_SetColumn($GetHandleLV, 6, $aHeader[7], 110, 1) ;Vorname
_GUICtrlListView_SetColumn($GetHandleLV, 7, $aHeader[8], 110, 0) ;Nachname
_GUICtrlListView_SetColumn($GetHandleLV, 8, $aHeader[9], 60, 1) ;Endpreis
_GUICtrlListView_SetColumn($GetHandleLV, 9, $aHeader[10], 60, 1) ;Rechnungsnummer
_GUICtrlListView_SetColumn($GetHandleLV, 10, $aHeader[11], 60, 1) ;Anzahlung
_GUICtrlListView_SetColumn($GetHandleLV, 11, $aHeader[12], 150, 0) ;Leihteile
_GUICtrlListView_SetColumn($GetHandleLV, 12, $aHeader[13], 60, 1) ;Voranschlag
_GUICtrlListView_SetColumn($GetHandleLV, 13, $aHeader[14], 70, 0) ;Reklamationsdatum
_GUICtrlListView_SetColumn($GetHandleLV, 14, $aHeader[15], 100, 0) ;Projektordner
_GUICtrlListView_SetColumn($GetHandleLV, 15, $aHeader[16], 100, 0) ;Gesprächsnotiz
_GUICtrlListView_SetColumn($GetHandleLV, 16, $aHeader[17], 100, 0) ;Reparaturbericht
_GUICtrlListView_SetColumn($GetHandleLV, 17, $aHeader[18], 40, 0)
_GUICtrlListView_SetColumn($GetHandleLV, 18, $aHeader[19], 40, 0)
_GUICtrlListView_SetColumn($GetHandleLV, 19, $aHeader[20], 40, 0)
; --- Spaltenbreiten und Textausrichtung der Listview-Spalten festlegen ----------------/
$ContextMenu = GUICtrlCreateContextMenu($ListView)
$MenuItem = GUICtrlCreateMenuItem("Datensatz bearbeiten", $ContextMenu)
; --- Liestview aufbauen --------------------------------------------------------------------------------------------------/
; --- Main Area -----------------------------------------------------------------------------------------------------------\
; --- Buttons, Labels und Inputfelder erzeugen -------------------------------\
Global $aCtrlLabel[21], $aCtrlInput[21]
$aCtrlLabel[0] = GUICtrlCreateLabel($aHeader[1], 10, 272, 150, 22)
$aCtrlInput[0] = GUICtrlCreateInput("0", 170, 272, 180, 26)
;
For $i = 1 To 6
$aCtrlLabel[$i] = GUICtrlCreateLabel($aHeader[$i + 1], 10, 272 + $i * 35, 150, 22)
$aCtrlInput[$i] = GUICtrlCreateInput($i, 170, 272 + $i * 35, 360, 26)
Next
;
For $j = 7 To 12
$aCtrlLabel[$j] = GUICtrlCreateLabel($aHeader[$j + 1], 10 + Mod($j, 2) * 290, 515 + Int(($j - 7) / 2) * 35, 150, 22)
$aCtrlInput[$j] = GUICtrlCreateInput($j, 170 + Mod($j, 2) * 240, 515 + Int(($j - 7) / 2) * 35, 120, 26)
Next
;
For $k = 13 To 19
$aCtrlLabel[$k] = GUICtrlCreateLabel($aHeader[$k + 1], 620, 272 + ($k - 13) * 33, 120, 22)
$aCtrlInput[$k] = GUICtrlCreateInput($k, 750, 272 + ($k - 13) * 33, 120, 26)
Next
;
For $m = 0 To 19
GUICtrlSetFont($aCtrlLabel[$m], 12, 400, 0, "Arial")
GUICtrlSetFont($aCtrlInput[$m], 12, 400, 0, "Arial")
Next
;Information
$aCtrlLabel[20] = GUICtrlCreateLabel($aHeader[20 + 1], 895, 272, 100, 22)
GUICtrlSetFont(-1, 12, 400, 0, "Arial")
$aCtrlInput[20] = GUICtrlCreateEdit("Gesprächsnotiz", 895, 300, 217, 160)
;
$btnUpdate = GUICtrlCreateButton("DS Update", 895, 470, 105, 28)
GUICtrlSetFont(-1, 12, 400, 0, "Arial")
$btnDelete = GUICtrlCreateButton("DS Löschen", 1010, 470, 105, 28)
GUICtrlSetFont(-1, 12, 400, 0, "Arial")
;Suche
$iptSearch = GUICtrlCreateInput("Suchen nach >>>", 620, 510, 492, 26)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$cboSearch = GUICtrlCreateCombo("Annahme", 620, 545, 241, 25, BitOR($GUI_SS_DEFAULT_COMBO, $CBS_DROPDOWNLIST))
GUICtrlSetData(-1, "Autor|Verlag")
GUICtrlSetFont(-1, 12, 400, 0, "Arial")
$btnSearch = GUICtrlCreateButton("Suche starten", 871, 545, 241, 28)
GUICtrlSetFont(-1, 12, 400, 0, "Arial")
;
$btnDBladen = GUICtrlCreateButton("Datenbank laden", 871, 583, 241, 28)
GUICtrlSetFont(-1, 12, 400, 0, "Arial")
$btnClear = GUICtrlCreateButton("Eingabefelder leeren", 620, 583, 241, 28)
GUICtrlSetFont(-1, 12, 400, 0, "Arial")
; --- Buttons, Labels und Inputfelder erzeugen -------------------------------/
; --- Main Area -----------------------------------------------------------------------------------------------------------/
; --- Horizontale, gestrichelte Linie erzeugen -------------------------------\
Const $trR = _StringRepeat("-", 368)
$lblBottomLine = GUICtrlCreateLabel($trR, 10, 615, 1110, 8)
; --- Horizontale, gestrichelte Linie erzeugen -------------------------------/
; --- Bottom Area ---------------------------------------------------------------------------------------------------------\
; --- Untere Inputfelder erzeugen --------------------------------------------\
Global $aCtrllbl[3], $aCtrlipt[3], $aLblTxt[3] = ["Auftragsanzahl:", "Ges. Seitenzahl:", "Ges. Buch NP:"]
For $l = 0 To 2
$aCtrllbl[$l] = GUICtrlCreateLabel($aLblTxt[$l], 10 + ($l) * 260, 640, 120, 22)
GUICtrlSetFont(-1, 12, 400, 0, "Arial")
$aCtrlipt[$l] = GUICtrlCreateInput($l, 140 + ($l) * 260, 638, 120, 26, 0x0002) ; $ES_RIGHT=0x0002
GUICtrlSetFont(-1, 12, 400, 0, "Arial")
Next
; --- Untere Inputfelder erzeugen --------------------------------------------/
; --- Button "Datensatz kopieren" erzeugen -----------------------------------\
$btnSave = GUICtrlCreateButton("DS kopieren", 1010, 635, 105, 28)
GUICtrlSetFont(-1, 12, 400, 0, "Arial")
; --- Button "Datensatz kopieren" erzeugen -----------------------------------/
; --- Button "Datenbank-Backup" erzeugen -------------------------------------\
$btnBackUp = GUICtrlCreateButton("DB BackUp", 895, 635, 105, 28)
GUICtrlSetFont(-1, 12, 400, 0, "Arial")
; --- Button "Datenbank-Backup" erzeugen -------------------------------------/
; --- Bottom Area ---------------------------------------------------------------------------------------------------------/
; --- Statusbar am untersten Fensterrand ----------------------------------------------------------------------------------\
Global $idStatusbar = _GUICtrlStatusBar_Create($FormKombiansicht)
GUISetState(@SW_SHOW)
_timeStatus() ; Funktion aufrufen sofortige einmalige Ausführung nach Programmstart
AdlibRegister('_timeStatus', 1000) ; Start alle 1000 milisec.
;ConsoleWrite("_SQLite_LibVersion=" & _SQLite_LibVersion())
;ConsoleWrite("Heute ist ein schöner Tag!"& @CRLF)
Global $idStatusbar_PartsWidth[3] = [450, 900, -1]
_GUICtrlStatusBar_SetParts($idStatusbar, $idStatusbar_PartsWidth)
_GUICtrlStatusBar_SetText($idStatusbar, " _SQLite_LibVersion = " & _SQLite_LibVersion(), 0)
_GUICtrlStatusBar_SetText($idStatusbar, " " & $asWDAYger[@WDAY - 1] & _DateTimeFormat(_NowCalc(), 2), 1)
_GUICtrlStatusBar_SetMinHeight($idStatusbar, 20)
; --- Statusbar am untersten Fensterrand ----------------------------------------------------------------------------------/
#EndRegion Bedienoberfläche zeichnen ##############################################################################################\
#Region SQL starten & Datenbank in Listview laden (DB gegebenenfalls zuerst erzeugen) ##########################################\
_SQLite_Startup(@ScriptDir & "\sqlite3.dll", False, 1) ; BugFix Idee, da DLL ja nicht mehr mitgeliefert wird
If @error Then
$sTmp = "SQLite.dll konnte nicht geladen werden!"
MsgBox($MB_SYSTEMMODAL, "SQLite Error", $sTmp)
Exit -1
EndIf
Local $bTabelleErzeugen = 0
If Not FileExists($sDatenbankVollpfad) Then
$bTabelleErzeugen = True
EndIf
Global $g_db_Database = _SQLite_Open($sDatenbankVollpfad) ;Datenbank öffnen. Falls noch nicht vorhanden, dann erzeugen & öffnen.
If @error Then
$sTmp = "Die Datenbank:" & @CRLF & $sDatenbankVollpfad & @CRLF & "konnte nicht geöffnet werden!"
MsgBox($MB_SYSTEMMODAL, "SQLite Error", $sTmp)
Exit -1
EndIf
If $bTabelleErzeugen = True Then
; --- Datenbank-Tabelle erzeugen-----------------------------------------------------------------------------------------\
Global $sDBHeader = "CREATE TABLE IF NOT EXISTS Reparaturverwaltung(ID INTEGER PRIMARY KEY AUTOINCREMENT," _
& "F01," _ ;Kundennummer
& "F02," _ ;Annahme
& "F03," _ ;Abholung
& "F04," _ ;Gerät
& "F05," _ ;Schadenskürzel
& "F06," _ ;Firma
& "F07," _ ;Vorname
& "F08," _ ;Nachname
& "F09," _ ;Endpreis
& "F10," _ ;Rechnungsnummer
& "F11," _ ;Anzahlung
& "F12," _ ;Leihteile
& "F13," _ ;Voranschlag
& "F14," _ ;Reklamationsdatum
& "F15," _ ;Projektordner
& "F16," _ ;Gesprächsnotiz
& "F17," _ ;Reparaturbericht
& "F18," _
& "F19," _
& "F20);"
; --- Datenbank-Tabelle erzeugen ----------------------------------------------------------------------------------------/
; --- Mehrere Beispiel-Datensätze erzeugen ------------------------------------------------------------------------------\
_SQLite_Exec($g_db_Database, $sDBHeader)
_SQLite_Exec(-1, "INSERT INTO Reparaturverwaltung VALUES(NULL,'KndNr','16-03-22 11','16-03-22 18','Medion Akoya 731','Buchse defekt','','Herbert','Mustermann','100.00','576','20.00','USB-HDD-Gehäuse','100.00','','','','','','','');")
_SQLite_Exec(-1, "INSERT INTO Reparaturverwaltung VALUES(NULL,'KndNr','16-03-21 12','16-03-22 11','HP dv7','Buchse defekt','RA Rechtsverdreh','Ede','Knastmann','100.00','1039','','','100.00','','','','','','','');")
_SQLite_Exec(-1, "INSERT INTO Reparaturverwaltung VALUES(NULL,'KndNr','16-03-27 16','16-03-28 11','Lenovo 730','Scharnier lose','','Cornelia','Turteltaub','120.00','1038','100.00','','100.00','','','','','','','');")
_SQLite_Exec(-1, "INSERT INTO Reparaturverwaltung VALUES(NULL,'KndNr','16-04-22 09','16-04-27 11','Lenovo 1100','Einschaltproblem','','Waltrude','von der Weide','80.00','1040','10.00','','100.00','','','','','','','');")
_SQLite_Exec(-1, "INSERT INTO Reparaturverwaltung VALUES(NULL,'KndNr','16-06-22 15','16-06-29 11','Toshiba Satellite 50','Stabilitätsproblem','Schokofabrik ABC','Ali','Bahbah','47.50','413','10.00','Leihgerät 4','-','','','','','','','');")
_SQLite_Exec(-1, "INSERT INTO Reparaturverwaltung VALUES(NULL,'KndNr','16-07-22 13','16-07-22 17','Sony Vaio MG3000','Grafikfehler','','','Megenstadter','22.50','-','22.50','','-','','','','','','','');")
_SQLite_Exec(-1, "INSERT INTO Reparaturverwaltung VALUES(NULL,'KndNr','16-03-22 11','16-03-28 15','Lenovo AS200','Sturzschaden','Druckerei Müller','Willybald','Mustermann','100.00','-','','','100.00','','','','','','','');")
_SQLite_Exec(-1, "INSERT INTO Reparaturverwaltung VALUES(NULL,'KndNr','16-01-22 12','16-03-23 15','Toshiba Satellite X20','Flüssigkeitsschaden','','Fridolin','Kaiserschmarrn','90.00','1041','','','100.00','','','','','','','');")
_SQLite_Exec(-1, "INSERT INTO Reparaturverwaltung VALUES(NULL,'KndNr','15-03-22 11','15-04-01 12','MSI XC70S','Buchse defekt','???','','Maienbaum','0.00','-','','','0.00','','','','','','','');")
_SQLite_Exec(-1, "INSERT INTO Reparaturverwaltung VALUES(NULL,'KndNr','16-03-22 16','16-03-23 10','HP HDX18','Flüssigkeitsschaden','Werbeagentur DeLuxe','Veronika','Glitterstrass','1050.79','1042','500.00','','1000.00','','','','','','','');")
_SQLite_Exec(-1, "INSERT INTO Reparaturverwaltung VALUES(NULL,'KndNr','16-05-27 16','','Asus X738','Einschaltproblem','Druckerei Müller','Willybald','Mustermann','','','','','100.00','','','','','','','');")
; --- Mehrere Beispiel-Datensätze erzeugen ------------------------------------------------------------------------------\
EndIf
_SQLite_CountRows('Reparaturverwaltung')
_ListViewFill() ;Listview mit den Datensätzen der (nun garantiert vorhandenen und geöffneten) Datenbank-Datei füllen.
#EndRegion SQL starten & Datenbank in Listview laden (DB gegebenenfalls zuerst erzeugen) ##########################################\
#Region Hauptschleife ##########################################################################################################\
While True
Switch GUIGetMsg()
Case -3
_Exit()
Case $ListView
_GUICtrlListView_SortItems($ListView, GUICtrlGetState($ListView))
Case $btnSave
_DsInsert()
_ListViewFill()
_iptClear()
_SQLite_CountRows('Reparaturverwaltung')
Case $btnDelete
_DsDelete()
_ListViewFill()
_SQLite_CountRows('Reparaturverwaltung')
Case $btnUpdate
_DsUpdate()
_ListViewFill()
Case $btnSearch
_ListViewFill("SELECT ROWID,* From Reparaturverwaltung WHERE " & GUICtrlRead($cboSearch) & " LIKE '" & GUICtrlRead($iptSearch) & "';")
Case $btnDBladen
_ListViewFill()
Case $btnClear
_iptClear()
Case $btnBackUp
_DB_BackUp()
Case $MenuItem
_iptClear()
_ListView2ipt()
Case $MenuItemAExit
_Exit()
Case $MenuItemCProgramminfo
MsgBox(0, "", $sAbout)
Case $MenuItemCHistory
MsgBox(0, "", $sHistory)
EndSwitch
WEnd
#EndRegion Hauptschleife ##########################################################################################################\
; ### Functions ################################################################################################################\
Func _timeStatus()
Local $zeit = _DateTimeFormat(_NowCalc(), 5)
_GUICtrlStatusBar_SetText($idStatusbar, " Uhrzeit: " & $zeit, 2)
EndFunc ;==>_timeStatus
; #############################################################################
Func _ListViewFill($QLite = "SELECT ROWID,* FROM Reparaturverwaltung;")
Local $hQuery, $aRow
_GUICtrlListView_DeleteAllItems($ListView)
;~ _SQLite_Query(-1, "SELECT ROWID,* FROM Reparaturverwaltung;", $hQuery)
_SQLite_Query(-1, $QLite, $hQuery)
While _SQLite_FetchData($hQuery, $aRow, False, False) = $SQLITE_OK ; Read Out the next Row
GUICtrlCreateListViewItem(_ArrayToString($aRow, '|', 1, 21), $ListView)
GUICtrlSetBkColor(-1, 0xF0E68C) ; (0xF9F9F9) helles Grau (0xB9D1EA) helles blau (0xF0E68C)
WEnd
_SQLite_QueryFinalize($hQuery)
_GUICtrlListView_RegisterSortCallBack($ListView) ; CallBack registrieren zum sortieren
EndFunc ;==>_ListViewFill
; #############################################################################
Func _DsDelete() ;Datensatz löschen.
_SQLite_Exec(-1, "DELETE From Reparaturverwaltung WHERE ID = " & GUICtrlRead($aCtrlInput[0]) & ";")
EndFunc ;==>_DsDelete
; #############################################################################
Func _DsUpdate() ;Datensatz updaten
_SQLite_Exec(-1, "UPDATE Reparaturverwaltung SET " _
& "F01 = '" & GUICtrlRead($aCtrlInput[1]) & "'," _
& "F02 = '" & GUICtrlRead($aCtrlInput[2]) & "'," _
& "F03 = '" & GUICtrlRead($aCtrlInput[3]) & "'," _
& "F04 = '" & GUICtrlRead($aCtrlInput[4]) & "'," _
& "F05 = '" & GUICtrlRead($aCtrlInput[5]) & "'," _
& "F06 = '" & GUICtrlRead($aCtrlInput[6]) & "'," _
& "F07 = '" & GUICtrlRead($aCtrlInput[7]) & "'," _
& "F08 = '" & GUICtrlRead($aCtrlInput[8]) & "'," _
& "F09 = '" & GUICtrlRead($aCtrlInput[9]) & "'," _
& "F10 = '" & GUICtrlRead($aCtrlInput[10]) & "'," _
& "F11 = '" & GUICtrlRead($aCtrlInput[11]) & "'," _
& "F12 = '" & GUICtrlRead($aCtrlInput[12]) & "'," _
& "F13 = '" & GUICtrlRead($aCtrlInput[13]) & "'," _
& "F15 = '" & GUICtrlRead($aCtrlInput[14]) & "'," _
& "F15 = '" & GUICtrlRead($aCtrlInput[15]) & "'," _
& "F16 = '" & GUICtrlRead($aCtrlInput[16]) & "'," _
& "F17 = '" & GUICtrlRead($aCtrlInput[17]) & "'," _
& "F18 = '" & GUICtrlRead($aCtrlInput[18]) & "'," _
& "F19 = '" & GUICtrlRead($aCtrlInput[19]) & "'," _
& "F20 = '" & GUICtrlRead($aCtrlInput[20]) & "'" _
& "WHERE ID = " & GUICtrlRead($aCtrlInput[0]) & ";")
EndFunc ;==>_DsUpdate
; #############################################################################
Func _DsInsert() ;Neuen Datensatz hinzufügen.
_SQLite_Exec(-1, "INSERT INTO Reparaturverwaltung VALUES(NULL, '" _
& GUICtrlRead($aCtrlInput[1]) & "','" _
& GUICtrlRead($aCtrlInput[2]) & "','" _
& GUICtrlRead($aCtrlInput[3]) & "','" _
& GUICtrlRead($aCtrlInput[4]) & "','" _
& GUICtrlRead($aCtrlInput[5]) & "','" _
& GUICtrlRead($aCtrlInput[6]) & "','" _
& GUICtrlRead($aCtrlInput[7]) & "','" _
& GUICtrlRead($aCtrlInput[8]) & "','" _
& GUICtrlRead($aCtrlInput[9]) & "','" _
& GUICtrlRead($aCtrlInput[10]) & "','" _
& GUICtrlRead($aCtrlInput[11]) & "','" _
& GUICtrlRead($aCtrlInput[12]) & "','" _
& GUICtrlRead($aCtrlInput[13]) & "','" _
& GUICtrlRead($aCtrlInput[14]) & "','" _
& GUICtrlRead($aCtrlInput[15]) & "','" _
& GUICtrlRead($aCtrlInput[16]) & "','" _
& GUICtrlRead($aCtrlInput[17]) & "','" _
& GUICtrlRead($aCtrlInput[18]) & "','" _
& GUICtrlRead($aCtrlInput[19]) & "','" _
& GUICtrlRead($aCtrlInput[20]) & "');")
EndFunc ;==>_DsInsert
; #############################################################################
Func _ListView2ipt()
;~ MsgBox(0, "Information", "Selected Mark: " & _GUICtrlListView_GetSelectionMark($ListView))
Local $electionMark = _GUICtrlListView_GetSelectionMark($ListView)
If $electionMark > -1 Then
Local $aLVitem = _GUICtrlListView_GetItemTextArray($ListView, $electionMark)
For $i = 1 To $aLVitem[0]
;~ MsgBox(0, "Information", "ItemTextArray: " & $aIpt[$i-1] & " " & $aLVitem[$i])
GUICtrlSetData($aCtrlInput[$i - 1], $aLVitem[$i])
Next
EndIf
EndFunc ;==>_ListView2ipt
; #############################################################################
Func _iptClear()
For $i = 0 To 20
GUICtrlSetData($aCtrlInput[$i], "")
Next
EndFunc ;==>_iptClear
; #############################################################################
;==========================================================================
; Function Name....: _SQLite_CountRows
; Description......: Ermittelt die Anzahl von Datensätzen für eine Tabelle
; Parameter(s).....: $_sTable Tabellenname
; Requirement(s)...: Eine mit _SQLite_Open() geöffnete DB
; .................: #include <SQLite.au3>
; Return Value(s)..: Erfolg: Anzahl der Datensätze
; .................: Fehler: -1 @error = 1, @extended = SQLite-@error
; Author(s)........: BugFix (bugfix@autoit.de)
;==========================================================================
Func _SQLite_CountRows($_sTable)
Local $hQuery, $aQuery, $iRet = 0, $iErr
If $SQLITE_OK <> _SQLite_Query(-1, "SELECT count(*) FROM " & $_sTable & ";", $hQuery) Then
$iErr = _SQLite_ErrCode()
_SQLite_QueryFinalize($hQuery)
Return SetError(1, $iErr, -1)
EndIf
While _SQLite_FetchData($hQuery, $aQuery) = $SQLITE_OK
$iRet = $aQuery[0]
WEnd
_SQLite_QueryFinalize($hQuery)
;MsgBox(0, "", $iRet)
;~ Return $iRet
GUICtrlSetData($aCtrlipt[0], $iRet)
EndFunc ;==>_SQLite_CountRows
; #############################################################################
Func _DB_BackUp()
Local $BackUpFolder = @ScriptDir & "\_BackUps"
If Not FileExists($BackUpFolder) Then DirCreate($BackUpFolder)
Local $hFileOpen = FileOpen($BackUpFolder & "\" & @YEAR & "-" & @MON & "-" & @MDAY & "_BuchVw.db.txt", 2)
If $hFileOpen = -1 Then Exit MsgBox(0, "Fehler", "Die Datei konnte nicht geöffnet werden.")
Local $aResult, $iRows, $iColumns
Local $iRval = _SQLite_GetTable2d(-1, "SELECT * FROM Reparaturverwaltung;", $aResult, $iRows, $iColumns)
FileWriteLine($hFileOpen, $sListViewHeader)
For $iR = 1 To $iRows
$sText = ""
For $iC = 0 To $iColumns - 1
$sText &= $aResult[$iR][$iC]
If $iC < $iColumns - 1 Then $sText &= "|"
Next
FileWriteLine($hFileOpen, $sText)
Next
FileClose($hFileOpen)
MsgBox(64, "Info", "DB BackUp ist fertig !", 3)
EndFunc ;==>_DB_BackUp
; #############################################################################
Func _Exit() ;Datenbank schließen und Programmende.
_GUICtrlListView_UnRegisterSortCallBack($ListView)
_SQLite_Close($g_db_Database)
_SQLite_Shutdown()
Exit
EndFunc ;==>_Exit
; ### Functions ################################################################################################################/

Alles anzeigen

Code-Jack hat es schon recht gut umgesetzt, dass es Flexibel ist. Kann man nur an wenigen Stellen noch optimieren. So musste doch noch an mehreren Stellen was geändert werden

MfG Kanashius

Code-Jack · 2. Januar 2017

Boah, ist der Kanashius schnell!
Man kann hier wirklich nur den Hut ziehen, vor den hoch kompetenten und überaus hilfsbereiten Usern, echt!
Großartige Leute hier, beide Daumen hoch!

stefanwue :
Obige Version ist noch eine recht frühe Baustelle.
Ich habe das Programm seither ein gutes Stück weiter entwickelt. wichtig war es mir, dass man die Maske jederzeit vom Programm aus, per Maus, umgestalten kann.
Dass die Daten für die Maskengestaltung also nicht fest im Quelltext codiert sind, sondern aus einer Ini-Datei eingelesen werden.

Ist nie ganz fertig geworden und die aktuelle Version ist noch immer nicht wirklich einsetzbar (hat auch noch Fehler), aber ich hänge dennoch mal meinen letzten Stand an, weil sich da doch sehr viel getan hat.

Code

; output.code.page=65001 ;Deutsche Umlaute ermöglichen. Klappt dennoch nur manchmal ...
#Region Header #################################################################################################################\
; Erstellt mit AutoIt-Version v3.3.14.2
Global Const $sProgrammname = "Reparaturverwaltung"
Global Const $sVersion = "0.32"
Global Const $sRevisionsdatum = "11.06.2016"
Global Const $sAutor = "EDV-Dompteur, Stefan Denk"
Global Const $sWebsite = "http://www.EDV-Dompteur.de"
; --- P r o g r a m m b e s c h r e i b u n g -----------------------------------------------------------------------------\
Global Const $sAbout = "Programmname: " & $sProgrammname & @CRLF & "Version: " & $sVersion & @CRLF & "Autor: " & $sAutor & @CRLF & "Website: " & $sWebsite & @CRLF _
& @CRLF & "P r o g r a m m b e s c h r e i b u n g" _
& @CRLF & "---------------------------------------" _
& @CRLF & "Die hier vorliegende Software ist Freeware, also zur kostenlosen Nutzung freigegeben!" _
& @CRLF & "Das Programm dient kleinen Reparaturbetrieben dazu, den Überblick über ihre ausgeführten Arbeiten zu behalten." _
& @CRLF & "Die Details einer jeden Reparatur werden in einem eigenen Datensatz einer SQLite-Datenbank gespeichert." _
& @CRLF & "Eine Übersicht, in Form einer frei sortierbaren Liste, ermöglicht es rasch nach Datum, Kunde, Gerät etc. zu sortieren."
; --- P r o g r a m m b e s c h r e i b u n g -----------------------------------------------------------------------------/
; --- History -------------------------------------------------------------------------------------------------------------\
Global Const $sHistory = "" _
& @CRLF & "D a n k s a g u n g:" _
& @CRLF & "----------------------" _
& @CRLF & "Die Code-Vorlage, auf der dieses Programm aufbaut, stammt vom User ""RR04"", aus dem großartigen Forum www.AutoIt.de" _
& @CRLF & "Hier der Foren-Thread mit der Ursprungsversion:" _
& @CRLF & "https://autoit.de/index.php/Thread/83862-Alinas-SQLite-BuchVw/" _
& @CRLF & "Vielen Dank an ""RR04"", für die tolle Vorarbeit, die mir sicherlich mehrere Tage Arbeit erspart hat!" _
& @CRLF _
& @CRLF & "Weiterhin enthält das Programm einzelne Routinen von ""BugFix"" (bugfix@autoit.de)" _
& @CRLF & "Vielen Dank daher auch an ""BugFix""!" _
& @CRLF & "" _
& @CRLF & "Vielen Dank auch an ""autoBert"", für die gezielte Hilfe bei einer bestimmten Problemlösung!" _
& @CRLF & "" _
& @CRLF & "Ab hier beginnen nun die Änderngen und Erweiterungen durch Fa. EDV-Dompteur, Stefan Denk:" _
& @CRLF _
& @CRLF & "H i s t or y:" _
& @CRLF & "-------------" _
& @CRLF & "V0.01 vom 28.05.2016:" _
& @CRLF & "- Programm umbenannt und erste Umgestaltungen der Quelltext-Vorlage von RR04." _
& @CRLF & "- Programmbeschreibung und History im Quelltext-Header implementiert; derart, dass auch eine Ausgabe dieser Texte möglich wird." _
& @CRLF & "- Die Tabelle wird nun bei Programmstart automatisch mit Datensätzen gefüllt (wenn DB noch nicht vorhanden, wird sie zuvor erzeugt)." _
& @CRLF _
& @CRLF & "V0.06 vom 29.05.2016:" _
& @CRLF & "- Der ListView-Header ist nun eine Variable, zwecks späterer Möglichkeit zum Einlesen aus einer ini-Datei." _
& @CRLF & "- Die Beispiel-Datensätze der usprünglichen Reparaturverwaltung umgestrickt auf die Belange einer Reparaturverwaltung." _
& @CRLF & "- Die Feldbezeichner der SQL-Datenbank verallgemeinert, zwecks leichterer Modifizierbarkeit." _
& @CRLF & "- Neue Datenfelder definiert: Projektordner, Gesprächsnotiz, Reparaturbericht." _
& @CRLF & "- Bugfix: Nach dem letzten Quelltext-Umbau wurden Datensätze nicht mehr aktualisiert, nach entsprechender Button-Betätigung." _
& @CRLF & "- Programmbeschreibung und History werden jetzt mit Zeilenumbrüchen formatiert ausgegeben." _
& @CRLF & "- Bugfix: Datenfeld 20 wurde nicht mit aktualisiert, nach dem Editieren eines Datensatzes." _
& @CRLF & "- Menüleiste hinzugefügt. Funktionen: Exit, Programminfo, History (der Menüzweig ""Einstellungen"" ist noch ohne Funktion)." _
& @CRLF & "- Listview: Spaltenbreiten und Textausrichtung eingestellt. Erste Vorbereitung für späteres Laden der Werte aus ini-Datei." _
& @CRLF _
& @CRLF & "V0.20 vom 04.06.2016:" _
& @CRLF & "- Harmloser Bugfix: Die Einstellmöglichkeit für die Breite von ListView-Spalte 20 fehlte im Quellcode." _
& @CRLF & "- Anzahl der Datenfelder von 20 auf 30 erhöht. Dadurch GUI-Erscheinungsbild derzeit desolat" _
& @CRLF & "- Momentan überflüssige Felder auskommentiert und Befehl zum Verstecken von ListView-Spalten implementiert." _
& @CRLF & "- Vorbereitungen für späteres Laden der GUI-Parameter aus einer Datei." _
& @CRLF & "- Elegantere Methode zur GUI-Gestaltung implementiert, für späteres Laden aus Datei." _
& @CRLF & "- Alle InputBoxen sind nun bequem parametrierbar, voll vorbereitet für späteres Laden aus CSV-Datei." _
& @CRLF & "- Zu jeder Inputbox gehört nun ein Label, deren Ausrichtung ebenfalls bequem einstellbar ist." _
& @CRLF & "- Die Maus-Koordinaten werden jetzt erfasst und links in der Fußzeile angezeigt." _
& @CRLF _
& @CRLF & "V0.25 vom 07.06.2016:" _
& @CRLF & "- Auch das Suchfeld kann nun einfach parametriert werden." _
& @CRLF & "- Experimentell eine Groupbox hinzugefügt." _
& @CRLF & "- Auch Groupboxen können nun einfach parametriert werden." _
& @CRLF & "- Statusleiste am unteren Fensterrand debugt und erweitert. Jetzt perfekt." _
& @CRLF & "- Inputboxen lassen sich jetzt erstmals anstazweise per Maus verschieben (noch reichlich buggy)." _
& @CRLF & "- Fehler beseitigt bei den Koordinaten der Objekt-Label. Nun auch bei Editbox in Ordnung." _
& @CRLF & "- Absturzfehler beseitigt (trat auf bei Klick außerhalb des Fensters): Mauspositionen werden nun durch MouseGetPos ermittelt, statt durch GUIGetCursorInfo." _
& @CRLF & "- Hintergrundbild für das Hauptfenster implementiert." _
& @CRLF & "- Der Modus zum Umgestalten des GUI kann nun per Menü aktiviert/deaktiviert werden." _
& @CRLF & "- Bug bemerkt: Inputboxen und ListView nicht betretbar, wenn Hintergrundbild geladen." _
& @CRLF _
& @CRLF & "V0.26 vom 08.06.2016:" _
& @CRLF & "- Die Bildschirmmaske kann nun weitgehend per Maus umgestaltet werden. Noch nicht perfekt, aber bereits brauchbar." _
& @CRLF _
& @CRLF & "V0.27 vom 08.06.2016:" _
& @CRLF & "- Das Verschieben von GUI-Elementen klappt nun perfekt und schließt jetzt auch deren angeheftete Labels mit ein." _
& @CRLF _
& @CRLF & "V0.28 vom 08.06.2016:" _
& @CRLF & "- Es wird jetzt eine Ini-Datei erzeugt, mit den GUI-Parametern. Noch Arbeitsbedarf, anschließendes Einlesen schlägt fehl!" _
& @CRLF _
& @CRLF & "V0.29 vom 10.06.2016:" _
& @CRLF & "- Kosmetik an der Maske und am Quelltext." _
& @CRLF _
& @CRLF & "V0.30 vom 10.06.2016:" _
& @CRLF & "- Fehlerchen beseitigt beim Verschieben von GUI-Elementen: Klickte der Mauszeiger außerhalb verschiebbarer Objekte, so sprang das zuletzt ""überhoverte"" Element plötzlich zum Mauszeiger." _
& @CRLF & "- Datenbank-Import ins Menü eingebaut. Derzeit nur mit Anzeige der zu importierenden Daten, aber noch ohne tatsächlichen Import." _
& @CRLF & "- Bug beseitigt: Auch bei geladenem Hintergrundbild sind InputBox-Inhalte nun betret- und editierbar." _
& @CRLF _
& @CRLF & "V0.31 vom 11.06.2016:" _
& @CRLF & "- Importfunktion jetzt funktionstüchtig!" _
& @CRLF _
& @CRLF & "V0.32 vom 11.06.2016:" _
& @CRLF & "- "
; --- History -------------------------------------------------------------------------------------------------------------/
; --- Aktuelle Aufgaben ---------------------------------------------------------------------------------------------------\
Global Const $sProgrammieraufgaben = "" _
& @CRLF & "Folgende drei Darstellungsmodi implementieren: Kombi (Tabelle und Datensatz, wie gehabt), Tabelle (volle Größe), Datensatz (ohne Tabelle)" _
& @CRLF & "Laden/Speichern der GUI-Parameter aus/in einer ini-Datei vervollständigen." _
& @CRLF & "Suchfunktion derzeit nicht funktionstüchtig." _
& @CRLF & "BUG BESEITIGEN: NAch Anwahl des Buttons ""Neuer Datensatz"" verschwindet die Beschriftung der Groupbox." _
& @CRLF & "Verhindern, dass beim Verschieben von GUI-Elementen der Cursor die angewählte InputBox zugleich im Editiermodus betritt."
; --- Aktuelle Aufgaben ---------------------------------------------------------------------------------------------------/
#include <Array.au3>
;
#include <ComboConstants.au3>
;
#include <Date.au3>
;
#include <EditConstants.au3>
;
#include <GDIPlus.au3>
#include <GUIConstantsEx.au3>
#include <GuiListView.au3>
#include <GuiStatusBar.au3>
;
#Include <Misc.au3>
;
#include <StaticConstants.au3> ;Erweiterte Einstellungen für Labels
#include <String.au3>
#include <SQLite.au3>
#include <sqlite3101_dll.au3>
;
#include <WindowsConstants.au3>
#include <WinAPI.au3>
;--------------
#include <ButtonConstants.au3>
#include <ListviewConstants.au3>
#include <SliderConstants.au3>
#include <File.au3>
_GDIPlus_Startup()
#EndRegion Header ##############################################################################################################/
#Region Constanten & Variablen deklarieren und belegen #########################################################################\
; --- Globale Constanten deklarieren --------------------------------------------------------------------------------------\
Global Const $asWDAYger[7] = ["Sonntag, ", "Montag, ", "Dienstag, ", "Mittwoch, ", "Donnerstag, ", "Freitag, ", "Samstag, "]
; --- Globale Constanten deklarieren --------------------------------------------------------------------------------------/
; --- Globale Variablen deklarieren ---------------------------------------------------------------------------------------\
Opt("MustDeclareVars", 1) ;Zwingt den Programmierer, Variablen ordentlich zu deklarieren, vor der ersten Benutzung.
Global $cboSerch, $iptSerch, $FormKombiansicht, $Label, $ListView, $ContextMenu, $MenuItem, $btnUpdate, $btnDelete, $iptSearch
Global $cboSearch, $btnSearch, $btnDBladen, $btnClear, $lblBottomLine, $btnNeuerDatensatz, $btnBackUp, $Result
Global $sTmp, $sText, $i
Global $sListViewHeader, $iDBFeldanzahl
Global $hGUI, $hImage1, $hImage2, $aMousePos
Global $sUserMessageOld, $sUserMessageNew
Global $bGUIRedesign
Global $iDoItOnlyOnce = 0
Global $aiGUIElementXYWH
Global $hActualGUIElement, $hActualLabel, $iActualGUINumber
Global $iXOffsetGUIElementToMouse, $iYOffsetGUIElementToMouse
Global $aiGUILabelXYWH
Opt("MouseCoordMode", 0)
Global $iPressed = 0, $iLastCtrlID = -1
; --- Globale Variablen deklarieren ---------------------------------------------------------------------------------------/
; ---Globale Variablen mit Werten belegen ---------------------------------------------------------------------------------\
Global $sIniFilename = @ScriptDir & "\GUI.ini"
Global $sDatenbankVollpfad = @ScriptDir & "\Reparaturverwaltung.rr04"
$iDBFeldanzahl = 30 ;So viele Felder gibt es in der Datenbank
; ---Globale Variablen mit Werten belegen ---------------------------------------------------------------------------------/
#EndRegion Constanten & Variablen deklarieren und belegen ######################################################################/
#Region Bedienoberfläche zeichnen ##############################################################################################\
; --- Fenster & Menü erzeugen-----------------------------------------------------------\
Global $FormKombiansicht = GUICreate($sProgrammname, 1200, 768, 10, 10) ;Das Hauptfenster erzeugen.
GUICtrlCreatePic(@ScriptDir & '\Example Images\background.jpg', 0, 0, 1200, 768)
GUICtrlSetState(-1, $GUI_DISABLE) ;Verfrachtet das eben erzeugte bild in den Hintergrund (andernfalls wären Inputboxen nicht betretbar).
; --- Menüzweig 1 ------------------------------------------------------------\
Global $MenuA = GUICtrlCreateMenu("Datei")
Global $MenuItemDBImport = GUICtrlCreateMenuItem("Datenbank importieren", $MenuA)
Global $MenuItemAExit = GUICtrlCreateMenuItem("Schließen", $MenuA)
; --- Menüzweig 1 ------------------------------------------------------------/
; --- Menüzweig 2 ------------------------------------------------------------\
Global $MenuB = GUICtrlCreateMenu("Einstellungen")
Global $MenuItemOptionen = GUICtrlCreateMenuItem("Maske umgestalten", $MenuB)
; --- Menüzweig 2 ------------------------------------------------------------/
; --- Menüzweig 3 ------------------------------------------------------------\
Global $MenuC = GUICtrlCreateMenu("?")
Global $MenuItemCProgramminfo = GUICtrlCreateMenuItem("Programminfo", $MenuC)
Global $MenuItemCHistory = GUICtrlCreateMenuItem("History && Danksagung", $MenuC)
; --- Menüzweig 3 ------------------------------------------------------------/
GUISetState(@SW_SHOW) ;??? Was macht dieser Befehl?
; --- Fenster & Menü erzeugen-----------------------------------------------------------/
; --- Programmname darstellen ----------------------------------------------------------\
;$Label = GUICtrlCreateLabel("~ ~ ~ " & $sProgrammname & " Version: " & $sVersion & " ~ ~ ~", 0, 8, 1125, 28, 0x01) ; $SS_CENTER=0x01
;GUICtrlSetFont(-1, 16, 800, 0, "Arial")
;GUICtrlSetColor(-1, 0x0000FF)
; --- Programmname darstellen ----------------------------------------------------------/
; --- Liestview aufbauen --------------------------------------------------------------------------------------------------\
; ---- Headerzeile der ListView --------------------------------------------------------\
$sListViewHeader= "" _
& "ID" _
& "|Annahme" _
& "|Abholung" _
& "|Gerät" _
& "|Schadenskürzel" _
& "|Firma" _
& "|Vorname" _
& "|Nachname" _
& "|Endpreis" _
& "|Re-Nr." _
& "|Anzahl." _
& "|Leihteile" _
& "|Voranschlag" _
& "|Rekla" _
& "|Projektordner" _
& "|Gesprächsnotiz" _
& "|Reparaturbericht" _
& "|17" _
& "|18" _
& "|19" _
& "|20" _
& "|21" _
& "|22" _
& "|23" _
& "|24" _
& "|25" _
& "|26" _
& "|27" _
& "|28" _
& "|29" _
& "|30"
; ---- Headerzeile der ListView --------------------------------------------------------/
; --- Listwiew erzeugen ----------------------------------------------------------------\
Global $aHeader = StringSplit($sListViewHeader, '|')
$ListView = GUICtrlCreateListView($sListViewHeader, 0, 40, 1125, 260)
GUICtrlSetBkColor(-1, 0xFFFFFF) ; Color weiß
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_LV_ALTERNATE)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
; --- Listwiew erzeugen ----------------------------------------------------------------/
; --- Spaltenbreiten und Textausrichtung der Listview-Spalten festlegen ----------------\
Global $GetHandleLV = GUICtrlGetHandle($ListView)
_GUICtrlListView_SetColumn($GetHandleLV, 0, $aHeader[1], 40, 1) ;ID
_GUICtrlListView_SetColumn($GetHandleLV, 1, $aHeader[2], 80, 0) ;Annahmedatum
_GUICtrlListView_SetColumn($GetHandleLV, 2, $aHeader[3], 70, 0) ;Abholdatum
_GUICtrlListView_SetColumn($GetHandleLV, 3, $aHeader[4], 120, 0) ;Gerät
_GUICtrlListView_SetColumn($GetHandleLV, 4, $aHeader[5], 100, 0) ;Schadenskürzel
_GUICtrlListView_SetColumn($GetHandleLV, 5, $aHeader[6], 110, 0) ;Firma
_GUICtrlListView_SetColumn($GetHandleLV, 6, $aHeader[7], 110, 1) ;Vorname
_GUICtrlListView_SetColumn($GetHandleLV, 7, $aHeader[8], 110, 0) ;Nachname
_GUICtrlListView_SetColumn($GetHandleLV, 8, $aHeader[9], 60, 1) ;Endpreis
_GUICtrlListView_SetColumn($GetHandleLV, 9, $aHeader[10], 60, 1) ;Rechnungsnummer
_GUICtrlListView_SetColumn($GetHandleLV, 10, $aHeader[11], 60, 1) ;Anzahlung
_GUICtrlListView_SetColumn($GetHandleLV, 11, $aHeader[12], 150, 0) ;Leihteile
_GUICtrlListView_SetColumn($GetHandleLV, 12, $aHeader[13], 60, 1) ;Voranschlag
_GUICtrlListView_SetColumn($GetHandleLV, 13, $aHeader[14], 70, 0) ;Reklamation (Verknüpfung auf neuen Datensatz)
_GUICtrlListView_SetColumn($GetHandleLV, 14, $aHeader[15], 100, 0) ;Projektordner
_GUICtrlListView_SetColumn($GetHandleLV, 15, $aHeader[16], 100, 0) ;Gesprächsnotiz
_GUICtrlListView_SetColumn($GetHandleLV, 16, $aHeader[17], 100, 0) ;Reparaturbericht
_GUICtrlListView_SetColumn($GetHandleLV, 17, $aHeader[18], 40, 0) ;Festnetz
_GUICtrlListView_SetColumn($GetHandleLV, 18, $aHeader[19], 40, 0) ;Mobil
_GUICtrlListView_SetColumn($GetHandleLV, 19, $aHeader[20], 40, 0) ;E-Mail
_GUICtrlListView_SetColumn($GetHandleLV, 20, $aHeader[21], 80, 0) ;Status (In Arbeit / Abholbereit / Abgeholt)
_GUICtrlListView_SetColumn($GetHandleLV, 21, $aHeader[22], 40, 0) ;
_GUICtrlListView_SetColumn($GetHandleLV, 22, $aHeader[23], 40, 0) ;
_GUICtrlListView_SetColumn($GetHandleLV, 23, $aHeader[24], 40, 0) ;
_GUICtrlListView_SetColumn($GetHandleLV, 24, $aHeader[25], 40, 0) ;
_GUICtrlListView_SetColumn($GetHandleLV, 25, $aHeader[26], 40, 0) ;
_GUICtrlListView_SetColumn($GetHandleLV, 26, $aHeader[27], 40, 0) ;
_GUICtrlListView_SetColumn($GetHandleLV, 27, $aHeader[28], 40, 0) ;
_GUICtrlListView_SetColumn($GetHandleLV, 28, $aHeader[29], 40, 0) ;
_GUICtrlListView_SetColumn($GetHandleLV, 29, $aHeader[30], 40, 0) ;
_GUICtrlListView_SetColumn($GetHandleLV, 30, $aHeader[31], 40, 0) ;
; --- Spaltenbreiten und Textausrichtung der Listview-Spalten festlegen ----------------/
$ContextMenu = GUICtrlCreateContextMenu($ListView)
$MenuItem = GUICtrlCreateMenuItem("Datensatz bearbeiten", $ContextMenu)
; --- Liestview aufbauen --------------------------------------------------------------------------------------------------/
; --- Main Area -----------------------------------------------------------------------------------------------------------\
; --- Buttons, Labels und Inputfelder erzeugen -----------------------------------------------------------------------\
Global $iAnzahlGUIElemente = 24 ;Später ändern, wenn aus Datei eingelesen!!!
Global $aCtrlLabel[$iDBFeldanzahl + 1], $aHandleGUIElement[$iDBFeldanzahl + 1]
Global $asGUI_Element[$iAnzahlGUIElemente] ;Array mit Anzahl GUI-Elementen erzeugen.
Global $iYSchrittweite = 35
ReadIniFile()
; --- Information
;$aHandleGUIElement[$iDBFeldanzahl] = GUICtrlCreateEdit("Gesprächsnotiz", 895, 400, 217, 160)
;$aCtrlLabel[$iDBFeldanzahl] = GUICtrlCreateLabel($aHeader[$iDBFeldanzahl + 1], 895, 372, 100, 22)
; --- Button "Datensatz Update"
$btnUpdate = GUICtrlCreateButton("DS Update", 895, 583, 105, 28)
GUICtrlSetFont(-1, 12, 400, 0, "Arial")
; --- Button "Datensatz löschen"
$btnDelete = GUICtrlCreateButton("DS Löschen", 1010, 583, 105, 28)
GUICtrlSetFont(-1, 12, 400, 0, "Arial")
; --- Suche
$cboSearch = GUICtrlCreateCombo("Suche im Feld:", 50, 8, 150, 25, BitOR($GUI_SS_DEFAULT_COMBO, $CBS_DROPDOWNLIST))
GUICtrlSetData(-1, $sListViewHeader)
GUICtrlSetFont(-1, 12, 400, 0, "Arial")
$btnSearch = GUICtrlCreateButton("Suche starten", 570, 8, 110, 25)
GUICtrlSetFont(-1, 12, 400, 0, "Arial")
; --- Button "Datenbank laden"
$btnDBladen = GUICtrlCreateButton("Suche beenden", 700, 8, 130, 25)
GUICtrlSetFont(-1, 12, 400, 0, "Arial")
; --- Button "Eingabefelder leeren"
$btnClear = GUICtrlCreateButton("Eingabefelder leeren", 620, 583, 241, 28)
GUICtrlSetFont(-1, 12, 400, 0, "Arial")
; --- Buttons, Labels und Inputfelder erzeugen -----------------------------------------------------------------------/
; --- Main Area -----------------------------------------------------------------------------------------------------------/
; --- Horizontale, gestrichelte Linie erzeugen -------------------------------\
Const $trR = _StringRepeat("-", 368)
$lblBottomLine = GUICtrlCreateLabel($trR, 10, 615, 1110, 8)
; --- Horizontale, gestrichelte Linie erzeugen -------------------------------/
; --- Bottom Area ---------------------------------------------------------------------------------------------------------\
; --- Untere Inputfelder erzeugen --------------------------------------------\
Global $aCtrllbl[3], $aCtrlipt[3], $aLblTxt[3] = ["Auftragsanzahl:", "Ges. Seitenzahl:", "Ges. Buch NP:"]
For $l = 0 To 2
$aCtrllbl[$l] = GUICtrlCreateLabel($aLblTxt[$l], 10 + ($l) * 260, 640, 120, 22)
GUICtrlSetFont(-1, 12, 400, 0, "Arial")
$aCtrlipt[$l] = GUICtrlCreateInput($l, 140 + ($l) * 260, 638, 120, 26, 0x0002) ; $ES_RIGHT=0x0002
GUICtrlSetFont(-1, 12, 400, 0, "Arial")
Next
; --- Untere Inputfelder erzeugen --------------------------------------------/
; --- Button "Neuer Datensatz" erzeugen -----------------------------------\
$btnNeuerDatensatz = GUICtrlCreateButton("Neuer Datens.", 1010, 635, 105, 28)
GUICtrlSetFont(-1, 12, 400, 0, "Arial")
; --- Button "Datensatz kopieren" erzeugen -----------------------------------/
; --- Button "Datenbank-Backup" erzeugen -------------------------------------\
$btnBackUp = GUICtrlCreateButton("DB BackUp", 895, 635, 105, 28)
GUICtrlSetFont(-1, 12, 400, 0, "Arial")
; --- Button "Datenbank-Backup" erzeugen -------------------------------------/
; --- Bottom Area ---------------------------------------------------------------------------------------------------------/
#EndRegion Bedienoberfläche zeichnen ###########################################################################################/
#Region SQL starten & Datenbank in Listview laden (DB gegebenenfalls zuerst erzeugen) ##########################################\
_SQLite_Startup(@ScriptDir & "\sqlite3.dll", False, 1) ; BugFix Idee, da DLL ja nicht mehr mitgeliefert wird
If @error Then
$sTmp = "SQLite.dll konnte nicht geladen werden!"
MsgBox($MB_SYSTEMMODAL, "SQLite Error", $sTmp)
Exit -1
EndIf
Local $bTabelleErzeugen = 0
If Not FileExists($sDatenbankVollpfad) Then
$bTabelleErzeugen = True
EndIf
Global $g_db_Database = _SQLite_Open($sDatenbankVollpfad) ;Datenbank öffnen. Falls noch nicht vorhanden, dann erzeugen & öffnen.
If @error Then
$sTmp = "Die Datenbank:" & @CRLF & $sDatenbankVollpfad & @CRLF & "konnte nicht geöffnet werden!"
MsgBox($MB_SYSTEMMODAL, "SQLite Error", $sTmp)
Exit -1
EndIf
If $bTabelleErzeugen = True Then
; --- Datenbank-Tabelle erzeugen-----------------------------------------------------------------------------------------\
Global $sDBHeader = "CREATE TABLE IF NOT EXISTS Reparaturverwaltung(ID INTEGER PRIMARY KEY AUTOINCREMENT," _
& "F01," _ ;Annahme
& "F02," _ ;Abholung
& "F03," _ ;Gerät
& "F04," _ ;Schadenskürzel
& "F05," _ ;Firma
& "F06," _ ;Vorname
& "F07," _ ;Nachname
& "F08," _ ;Endpreis
& "F09," _ ;Rechnungsnummer
& "F10," _ ;Anzahlung
& "F11," _ ;Leihteile
& "F12," _ ;Voranschlag
& "F13," _ ;Reklamationsdatum
& "F14," _ ;Projektordner
& "F15," _ ;Gesprächsnotiz
& "F16," _ ;Reparaturbericht
& "F17," _
& "F18," _
& "F19," _
& "F20," _
& "F21," _
& "F22," _
& "F23," _
& "F24," _
& "F25," _
& "F26," _
& "F27," _
& "F28," _
& "F29," _
& "F30);"
; --- Datenbank-Tabelle erzeugen ----------------------------------------------------------------------------------------/
; --- Mehrere Beispiel-Datensätze erzeugen ------------------------------------------------------------------------------\
_SQLite_Exec($g_db_Database, $sDBHeader)
_SQLite_Exec(-1, "INSERT INTO Reparaturverwaltung VALUES(NULL,'16-03-22 11','16-03-22 18','Medion Akoya 731','Buchse defekt','','Herbert','Mustermann','100,00','576','20.00','USB-HDD-Gehäuse','100.00','','','','','','','','','','','','','','','','','','');")
_SQLite_Exec(-1, "INSERT INTO Reparaturverwaltung VALUES(NULL,'16-03-21 12','16-03-22 11','HP dv7','Buchse defekt','RA Rechtsverdreh','Ede','Knastmann','100,00','1039','','','100.00','','','','','','','','','','','','','','','','','','');")
_SQLite_Exec(-1, "INSERT INTO Reparaturverwaltung VALUES(NULL,'16-03-27 16','16-03-28 11','Lenovo 730','Scharnier lose','','Cornelia','Turteltaub','120,00','1038','100.00','','100.00','','','','','','','','','','','','','','','','','','');")
_SQLite_Exec(-1, "INSERT INTO Reparaturverwaltung VALUES(NULL,'16-04-22 09','16-04-27 11','Lenovo 1100','Einschaltproblem','','Waltrude','von der Weide','80,00','1040','10.00','','100.00','','','','','','','','','','','','','','','','','','');")
_SQLite_Exec(-1, "INSERT INTO Reparaturverwaltung VALUES(NULL,'16-06-22 15','16-06-29 11','Toshiba Satellite 50','Stabilitätsproblem','Schokofabrik ABC','Ali','Bahbah','47,50','413','10.00','Leihgerät 4','-','','','','','','','','','','','','','','','','','','');")
_SQLite_Exec(-1, "INSERT INTO Reparaturverwaltung VALUES(NULL,'16-07-22 13','16-07-22 17','Sony Vaio MG3000','Grafikfehler','','','Megenstadter','22,50','-','22.50','','-','','','','','','','','','','','','','','','','','','');")
_SQLite_Exec(-1, "INSERT INTO Reparaturverwaltung VALUES(NULL,'16-03-22 11','16-03-28 15','Lenovo AS200','Sturzschaden','Druckerei Müller','Willybald','Mustermann','100,00','-','','','100.00','','','','','','','','','','','','','','','','','','');")
_SQLite_Exec(-1, "INSERT INTO Reparaturverwaltung VALUES(NULL,'16-01-22 12','16-03-23 15','Toshiba Satellite X20','Flüssigkeitsschaden','','Fridolin','Kaiserschmarrn','90,00','1041','','','100.00','','','','','','','','','','','','','','','','','','');")
_SQLite_Exec(-1, "INSERT INTO Reparaturverwaltung VALUES(NULL,'15-03-22 11','15-04-01 12','MSI XC70S','Buchse defekt','???','','Maienbaum','0,00','-','','','0.00','','','','','','','','','','','','','','','','','','');")
_SQLite_Exec(-1, "INSERT INTO Reparaturverwaltung VALUES(NULL,'16-03-22 16','16-03-23 10','HP HDX18','Flüssigkeitsschaden','Werbeagentur DeLuxe','Veronika','Glitterstrass','1050,79','1042','500.00','','1000.00','','','','','','','','','','','','','','','','','','');")
_SQLite_Exec(-1, "INSERT INTO Reparaturverwaltung VALUES(NULL,'16-05-27 16','','Asus X738','Einschaltproblem','Druckerei Müller','Willybald','Mustermann','','','','','100,00','','','','','','','','','','','','','','','','','','');")
; --- Mehrere Beispiel-Datensätze erzeugen ------------------------------------------------------------------------------/
EndIf
_SQLite_CountRows('Reparaturverwaltung')
#EndRegion SQL starten & Datenbank in Listview laden (DB gegebenenfalls zuerst erzeugen) #######################################/
; --- Statusbar am untersten Fensterrand ----------------------------------------------------------------------------------\
Global $idStatusbar = _GUICtrlStatusBar_Create($FormKombiansicht)
GUISetState(@SW_SHOW)
;_timeStatus() ; Funktion aufrufen sofortige einmalige Ausführung nach Programmstart
AdlibRegister('_timeStatus', 1000) ; Start alle 1000 milisec.
Global $idStatusbar_PartsWidth[4]
$idStatusbar_PartsWidth[0]=700
$idStatusbar_PartsWidth[1]=$idStatusbar_PartsWidth[0]+180
$idStatusbar_PartsWidth[2]=$idStatusbar_PartsWidth[1]+150
$idStatusbar_PartsWidth[3]=-1 ;$idStatusbar_PartsWidth[2]+200
_GUICtrlStatusBar_SetParts($idStatusbar, $idStatusbar_PartsWidth) ;200, 400, 700, -1) ;$idStatusbar_PartsWidth)
Global $sMausXY
_GUICtrlStatusBar_SetText($idStatusbar, $sMausXY, 0)
_GUICtrlStatusBar_SetText($idStatusbar, " _SQLite_LibVersion = " & _SQLite_LibVersion(), 1)
_GUICtrlStatusBar_SetMinHeight($idStatusbar, 20) ;!!!
; --- Statusbar am untersten Fensterrand ----------------------------------------------------------------------------------/
#Region Listview Füllen und Darstellungs-Einstellungen vornehmen ###############################################################\
_ListViewFill() ;Listview füllen, mit den Datensätzen der (nun garantiert vorhandenen und geöffneten) Datenbank-Datei.
_GUICtrlListView_HideColumn($Listview, 17)
_GUICtrlListView_HideColumn($Listview, 18)
_GUICtrlListView_HideColumn($Listview, 19)
_GUICtrlListView_HideColumn($Listview, 20)
_GUICtrlListView_HideColumn($Listview, 21)
_GUICtrlListView_HideColumn($Listview, 22)
_GUICtrlListView_HideColumn($Listview, 23)
_GUICtrlListView_HideColumn($Listview, 24)
_GUICtrlListView_HideColumn($Listview, 25)
_GUICtrlListView_HideColumn($Listview, 26)
_GUICtrlListView_HideColumn($Listview, 27)
_GUICtrlListView_HideColumn($Listview, 28)
_GUICtrlListView_HideColumn($Listview, 29)
_GUICtrlListView_HideColumn($Listview, 30)
#EndRegion Listview Füllen und Darstellungs-Einstellungen vornehmen ############################################################/
#Region Hauptschleife ##########################################################################################################\
$hGUI = $FormKombiansicht ;GUICreate('Drag & Drop Images Example', 541, 340, -1, -1, BitOR($GUI_SS_DEFAULT_GUI, $WS_CLIPCHILDREN))
Global Const $SC_DRAGMOVE = 0xF012
Global $iMouseButtonLeft
Global $aRect[4]
AutoItSetOption ("MouseCoordMode", 2 ) ;Mauskoordinaten sollen sich auf den Bereich unterhalb der Menüleiste beziehen.
While True
; --- Mauskoordinaten erfassen und darstellen --------------------------------------------------\
$sMausXY=MouseGetPos() ;GUIGetCursorInfo() ;Die Verwendung von MouseGetPos, statt GUIGetCursorInfo vermeidet Absturz wenn außerhalb des Fensters geklickt wird.
_GUICtrlStatusBar_SetText($idStatusbar, $sMausXY[0] & " / " & $sMausXY[1], 0) ;!!!!!!!! Verursacht Absturz wenn Fenster Fokus verliert !!!!!!!
;_GUICtrlStatusBar_SetText($idStatusbar, "lala", 0) ;$sMausXY[0] & " / " & $sMausXY[1], 0) ;!!!!!!!! Verursacht den obigen Absturz nicht !!!!!!!
; --- Mauskoordinaten erfassen und darstellen --------------------------------------------------/
Switch GUIGetMsg()
; --- Menü-Einträge ----------------------------------------------------------------------------\
Case $MenuItem
_iptClear()
_ListView2ipt()
Case $MenuItemDBImport
_DB_Import()
_ListViewFill()
_iptClear()
_SQLite_CountRows('Reparaturverwaltung')
Case $MenuItemAExit
_Exit()
Case $MenuItemCProgramminfo
msgbox(0, "", $sAbout)
Case $MenuItemCHistory
msgbox(0, "", $sHistory)
Case $MenuItemOptionen
Optionen()
; --- Menü-Einträge ----------------------------------------------------------------------------/
; --- Buttons ----------------------------------------------------------------------------------\
Case $btnNeuerDatensatz
_NeuerDatensatz()
_ListViewFill()
_iptClear()
_SQLite_CountRows('Reparaturverwaltung')
Case $btnDelete
_DsDelete()
_ListViewFill()
_SQLite_CountRows('Reparaturverwaltung')
Case $btnUpdate
_DsUpdate()
_ListViewFill()
Case $btnSearch
_ListViewFill("SELECT ROWID,* From Reparaturverwaltung WHERE " & GUICtrlRead($cboSearch) & " LIKE '" & GUICtrlRead($iptSearch) & "';")
; --- Obiges funktioniert derzeit nicht mehr, weil: -------------------------------\
; --> Query: SELECT ROWID,* From Reparaturverwaltung WHERE Annahme LIKE '0';
; --> Error: no such column: Annahme
; Problem sind die inzwischen abweichenden Namen der ListView Rows von den Datensatzfeldern
; --- Obiges funktioniert derzeit nicht mehr, weil: -------------------------------/
Case $btnDBladen
_ListViewFill()
Case $btnClear
_iptClear()
Case $btnBackUp
_DB_BackUp()
; --- Buttons ----------------------------------------------------------------------------------/
; --- GUI-Events -------------------------------------------------------------------------------\
Case $GUI_EVENT_PRIMARYDOWN ;Test
;_SendMessage($aHandleGUIElement[4], $WM_SYSCOMMAND, $SC_DRAGMOVE, 0) ;Test
ConsoleWrite("Linker Mausbutton gedrückt" & @CRLF)
$iMouseButtonLeft = 1
Case $GUI_EVENT_PRIMARYUP ;Test
;_SendMessage($aHandleGUIElement[4], $WM_SYSCOMMAND, $SC_DRAGMOVE, 0) ;Test
ConsoleWrite("Linker Mausbutton losgel." & @CRLF)
$iMouseButtonLeft = 0
Case $GUI_EVENT_SECONDARYDOWN ;Test
;_SendMessage($aHandleGUIElement[4], $WM_SYSCOMMAND, $SC_DRAGMOVE, 0) ;Test
ConsoleWrite("Rechtsklick" & @CRLF)
; --- GUI-Events -------------------------------------------------------------------------------/
Case $ListView
_GUICtrlListView_RegisterSortCallBack($ListView, false)
_GUICtrlListView_SortItems($ListView, GUICtrlGetState($ListView))
Case -3 ;Der rote Schließknopf rechts oben am Fenster wurde betätigt.
_Exit()
EndSwitch
if $bGUIRedesign=1 then ;Im Menü wurde der Eintrag zum Umgestalten des GUI aktiviert.
GUI_Redesign()
EndIf
WEnd
#EndRegion Hauptschleife #######################################################################################################/
; ### Functions ################################################################################################################\
Func _timeStatus()
Local $zeit = _DateTimeFormat(_NowCalc(), 5)
_GUICtrlStatusBar_SetText($idStatusbar, " " & $asWDAYger[@WDAY - 1] & _DateTimeFormat(_NowCalc(), 2), 2)
_GUICtrlStatusBar_SetText($idStatusbar, " Uhrzeit: " & $zeit, 3)
EndFunc ;==>_timeStatus
; #############################################################################
Func _ListViewFill($QLite = "SELECT ROWID,* FROM Reparaturverwaltung;")
Local $hQuery, $aRow
_GUICtrlListView_DeleteAllItems($ListView)
;~ _SQLite_Query(-1, "SELECT ROWID,* FROM Reparaturverwaltung;", $hQuery)
_SQLite_Query(-1, $QLite, $hQuery)
While _SQLite_FetchData($hQuery, $aRow, False, False) = $SQLITE_OK ; Read Out the next Row
GUICtrlCreateListViewItem(_ArrayToString($aRow, '|', 1, 21), $ListView)
GUICtrlSetBkColor(-1, 0xF0E68C) ; (0xF9F9F9) helles Grau (0xB9D1EA) helles blau (0xF0E68C)
WEnd
_SQLite_QueryFinalize($hQuery)
_GUICtrlListView_RegisterSortCallBack($ListView) ; CallBack registrieren zum sortieren
EndFunc ;==>_ListViewFill
; #############################################################################
Func _DsDelete() ;Datensatz löschen.
_SQLite_Exec(-1, "DELETE From Reparaturverwaltung WHERE ID = " & GUICtrlRead($aHandleGUIElement[0]) & ";")
EndFunc ;==>_DsDelete
; #############################################################################
Func _DsUpdate() ;Datensatz updaten
_SQLite_Exec(-1, "UPDATE Reparaturverwaltung SET " _
& "F01 = '" & GUICtrlRead($aHandleGUIElement[1]) & "'," _
& "F02 = '" & GUICtrlRead($aHandleGUIElement[2]) & "'," _
& "F03 = '" & GUICtrlRead($aHandleGUIElement[3]) & "'," _
& "F04 = '" & GUICtrlRead($aHandleGUIElement[4]) & "'," _
& "F05 = '" & GUICtrlRead($aHandleGUIElement[5]) & "'," _
& "F06 = '" & GUICtrlRead($aHandleGUIElement[6]) & "'," _
& "F07 = '" & GUICtrlRead($aHandleGUIElement[7]) & "'," _
& "F08 = '" & GUICtrlRead($aHandleGUIElement[8]) & "'," _
& "F09 = '" & GUICtrlRead($aHandleGUIElement[9]) & "'," _
& "F10 = '" & GUICtrlRead($aHandleGUIElement[10]) & "'," _
& "F11 = '" & GUICtrlRead($aHandleGUIElement[11]) & "'," _
& "F12 = '" & GUICtrlRead($aHandleGUIElement[12]) & "'," _
& "F13 = '" & GUICtrlRead($aHandleGUIElement[13]) & "'," _
& "F15 = '" & GUICtrlRead($aHandleGUIElement[14]) & "'," _
& "F15 = '" & GUICtrlRead($aHandleGUIElement[15]) & "'," _
& "F16 = '" & GUICtrlRead($aHandleGUIElement[16]) & "'," _
& "F17 = '" & GUICtrlRead($aHandleGUIElement[17]) & "'," _
& "F18 = '" & GUICtrlRead($aHandleGUIElement[18]) & "'," _
& "F19 = '" & GUICtrlRead($aHandleGUIElement[19]) & "'," _
& "F20 = '" & GUICtrlRead($aHandleGUIElement[20]) & "'," _
& "F21 = '" & GUICtrlRead($aHandleGUIElement[21]) & "'," _
& "F22 = '" & GUICtrlRead($aHandleGUIElement[22]) & "'," _
& "F23 = '" & GUICtrlRead($aHandleGUIElement[23]) & "'," _
& "F24 = '" & GUICtrlRead($aHandleGUIElement[24]) & "'," _
& "F25 = '" & GUICtrlRead($aHandleGUIElement[25]) & "'," _
& "F26 = '" & GUICtrlRead($aHandleGUIElement[26]) & "'," _
& "F27 = '" & GUICtrlRead($aHandleGUIElement[27]) & "'," _
& "F28 = '" & GUICtrlRead($aHandleGUIElement[28]) & "'," _
& "F29 = '" & GUICtrlRead($aHandleGUIElement[29]) & "'," _
& "F30 = '" & GUICtrlRead($aHandleGUIElement[30]) & "'" _
& "WHERE ID = " & GUICtrlRead($aHandleGUIElement[0]) & ";")
EndFunc ;==>_DsUpdate
; #############################################################################
Func _NeuerDatensatz() ;Inhalte aller InputBoxen uns MemoBoxen etc. auslesen und in neuen Datensatz speichern.
_SQLite_Exec(-1, "INSERT INTO Reparaturverwaltung VALUES(NULL, '" _
& GUICtrlRead($aHandleGUIElement[1]) & "','" _
& GUICtrlRead($aHandleGUIElement[2]) & "','" _
& GUICtrlRead($aHandleGUIElement[3]) & "','" _
& GUICtrlRead($aHandleGUIElement[4]) & "','" _
& GUICtrlRead($aHandleGUIElement[5]) & "','" _
& GUICtrlRead($aHandleGUIElement[6]) & "','" _
& GUICtrlRead($aHandleGUIElement[7]) & "','" _
& GUICtrlRead($aHandleGUIElement[8]) & "','" _
& GUICtrlRead($aHandleGUIElement[9]) & "','" _
& GUICtrlRead($aHandleGUIElement[10]) & "','" _
& GUICtrlRead($aHandleGUIElement[11]) & "','" _
& GUICtrlRead($aHandleGUIElement[12]) & "','" _
& GUICtrlRead($aHandleGUIElement[13]) & "','" _
& GUICtrlRead($aHandleGUIElement[14]) & "','" _
& GUICtrlRead($aHandleGUIElement[15]) & "','" _
& GUICtrlRead($aHandleGUIElement[16]) & "','" _
& GUICtrlRead($aHandleGUIElement[17]) & "','" _
& GUICtrlRead($aHandleGUIElement[18]) & "','" _
& GUICtrlRead($aHandleGUIElement[19]) & "','" _
& GUICtrlRead($aHandleGUIElement[20]) & "','" _
& GUICtrlRead($aHandleGUIElement[21]) & "','" _
& GUICtrlRead($aHandleGUIElement[22]) & "','" _
& GUICtrlRead($aHandleGUIElement[23]) & "','" _
& GUICtrlRead($aHandleGUIElement[24]) & "','" _
& GUICtrlRead($aHandleGUIElement[25]) & "','" _
& GUICtrlRead($aHandleGUIElement[26]) & "','" _
& GUICtrlRead($aHandleGUIElement[27]) & "','" _
& GUICtrlRead($aHandleGUIElement[28]) & "','" _
& GUICtrlRead($aHandleGUIElement[29]) & "','" _
& GUICtrlRead($aHandleGUIElement[30]) & "');")
EndFunc ;==>_NeuerDatensatz
; #############################################################################
Func _ListView2ipt()
;~ MsgBox(0, "Information", "Selected Mark: " & _GUICtrlListView_GetSelectionMark($ListView))
Local $electionMark = _GUICtrlListView_GetSelectionMark($ListView)
If $electionMark > -1 Then
Local $aLVitem = _GUICtrlListView_GetItemTextArray($ListView, $electionMark)
For $i = 1 To $aLVitem[0]
;~ MsgBox(0, "Information", "ItemTextArray: " & $aIpt[$i-1] & " " & $aLVitem[$i])
GUICtrlSetData($aHandleGUIElement[$i - 1], $aLVitem[$i])
Next
EndIf
EndFunc ;==>_ListView2ipt
; #############################################################################
Func _iptClear()
For $i = 0 To 30
GUICtrlSetData($aHandleGUIElement[$i], "")
Next
EndFunc ;==>_iptClear
; #############################################################################
;==========================================================================
; Function Name....: _SQLite_CountRows
; Description......: Ermittelt die Anzahl von Datensätzen für eine Tabelle
; Parameter(s).....: $_sTable Tabellenname
; Requirement(s)...: Eine mit _SQLite_Open() geöffnete DB
; .................: #include <SQLite.au3>
; Return Value(s)..: Erfolg: Anzahl der Datensätze
; .................: Fehler: -1 @error = 1, @extended = SQLite-@error
; Author(s)........: BugFix (bugfix@autoit.de)
;==========================================================================
Func _SQLite_CountRows($_sTable)
Local $hQuery, $aQuery, $iRet = 0, $iErr
If $SQLITE_OK <> _SQLite_Query(-1, "SELECT count(*) FROM " & $_sTable & ";", $hQuery) Then
$iErr = _SQLite_ErrCode()
_SQLite_QueryFinalize($hQuery)
Return SetError(1, $iErr, -1)
EndIf
While _SQLite_FetchData($hQuery, $aQuery) = $SQLITE_OK
$iRet = $aQuery[0]
WEnd
_SQLite_QueryFinalize($hQuery)
;MsgBox(0, "", $iRet)
;~ Return $iRet
GUICtrlSetData($aCtrlipt[0], $iRet)
EndFunc ;==>_SQLite_CountRows
; #############################################################################
Func _DB_BackUp()
Local $BackUpFolder = @ScriptDir & "\_BackUps"
If Not FileExists($BackUpFolder) Then DirCreate($BackUpFolder)
Local $hFileOpen = FileOpen($BackUpFolder & "\" & @YEAR & "-" & @MON & "-" & @MDAY & "_BuchVw.db.txt", 2)
If $hFileOpen = -1 Then Exit MsgBox(0, "Fehler", "Die Datei konnte nicht geöffnet werden.")
Local $aResult, $iRows, $iColumns
Local $iRval = _SQLite_GetTable2d(-1, "SELECT * FROM Reparaturverwaltung;", $aResult, $iRows, $iColumns) ;Variablen doppelt deklariert (siehe Vorzeile).
FileWriteLine($hFileOpen, $sListViewHeader)
For $iR = 1 To $iRows
$sText = ""
For $iC = 0 To $iColumns - 1
$sText &= $aResult[$iR][$iC]
If $iC < $iColumns - 1 Then $sText &= "|"
Next
FileWriteLine($hFileOpen, $sText)
Next
FileClose($hFileOpen)
MsgBox(64, "Info", "DB BackUp ist fertig !", 3)
EndFunc ;==>_DB_BackUp
; #############################################################################
Func _Stringbreite($sT_Lbl)
; Ermittelt die Breite des Strings in Pixeln.
; Basiert auf folgender Quelle:
; https://autoit.de/index.php/Thread/13627-TextMeter/?postID=105795#post105795&page=Thread&postID=105795
; Dank an den User "BugFix"!
Local $nText = $sT_Lbl
Local $aFont[8] = [8,0,'Courier New',10,400,0,0,0]
Local $gui
If $nText = '' Then Return
;_GDIPlus_Startup()
Local $hFormat = _GDIPlus_StringFormatCreate(0)
Local $hFamily = _GDIPlus_FontFamilyCreate($aFont[2])
Local $hFont = _GDIPlus_FontCreate($hFamily, $aFont[3], $aFont[1], 3)
Local $tLayout = _GDIPlus_RectFCreate(15, 171, 0, 0)
Local $hGraphic = _GDIPlus_GraphicsCreateFromHWND($gui)
Local $aInfo = _GDIPlus_GraphicsMeasureString($hGraphic, $nText, $hFont, $tLayout, $hFormat)
Local $iWidth = Ceiling(DllStructGetData($aInfo[0], "Width"))
;Local $iHeight = Ceiling(DllStructGetData($aInfo[0], "Height"))
;_GDIPlus_StringFormatDispose($hFormat)
;_GDIPlus_FontDispose($hFont)
;_GDIPlus_FontFamilyDispose($hFamily)
;_GDIPlus_GraphicsDispose($hGraphic)
;_GDIPlus_ShutDown()
;GUICtrlSetData($inHeight, $iHeight)
;GUICtrlSetData($inWidth, $iWidth)
Return $iWidth
;MsgBox(0, "", $iWidth)
EndFunc ;==>_Stringbreite
; #############################################################################
Func _DB_Import()
;Listet zunächst alle Ordner der ersten Ebene des vorgegebenen Pfades.
;Im zweiten Schritt werden die Ordnernamen (die bei mir einem ganz bestimmten Strickmuster entsprechen) zerhackstückelt
;und in folgende Felder aufgedröselt:
;0) Datum
;1) Gerät
;2) Schaden
;3) Vorname
;4) Nachname
;5) Zusatzinfos
;6) Dem ursprünglichen Ordnernamen, wie er roh vorlag.
;Local $avGUI_Parameter[0]
Local $sSplittedString[0]
Local $avZerlegterDatensatz[7]
Local $iPosition, $sVollname, $sZusatzinfos
Local $aArray
Local $sOrdnerPfad = "H:\Notebook-Reparatur\#00 - erledigt"
Local $sVorname, $sNachname
; Alle Ordner der ersten Ebene eines bestimmten Pfades auflisten, ohne versteckten Inhalten:
$aArray = _FileListToArrayRec($sOrdnerPfad, "*", $FLTAR_FOLDERS + $FLTAR_NOHIDDEN + $FLTAR_NOSYSTEM)
_ArrayDisplay($aArray, "Sollen diese " &$aArray[0] & " Ordnernamen zu neuen Datensätzen konvertiert werden?")
For $i = 1 to UBound($aArray)-1
ConsoleWrite("DS " & $i & @CRLF)
$sSplittedString=Stringsplit($aArray[$i], ",") ;Grob aufgesplittete Parameter
;
;Datum:
$avZerlegterDatensatz[0] = StringLeft($sSplittedString[1], 8) ;Datum
;
;Gerät:
$avZerlegterDatensatz[1] = StringTrimLeft($sSplittedString[1], 9) ;Gerät
;
;Schaden:
$avZerlegterDatensatz[2] = StringStripWS($sSplittedString[2], 1 ) ;Schaden (um das führende Leerzeichen bereinigt)
;
;Name:
$iPosition = StringInStr($sSplittedString[3], " - ") ;Testen, ob hinter dem Namen noch Zusatzinfos kommen (wenn " - " vorkommt)
If $iPosition <> 0 Then ;Ja, es gibt Zusatzinfos
$sVollname = StringLeft($sSplittedString[3], $iPosition) ;Aus dem String den Namen extrahieren
$sZusatzinfos = StringMid($sSplittedString[3], $iPosition, StringLen($sSplittedString[3])) ;Aus dem String die Zusatzinfos extrahieren.
Else ;Es gibt keine Zusatzinfos hinter dem Namen.
$sVollname=$sSplittedString[3]
$sZusatzinfos = ""
EndIf
$sVollname = StringStripWS($sVollname, 1) ;Führendes Leerzeichen vom Namen entfernen
$iPosition = StringInStr($sVollname, " ") ;Üblicherweise beginnt der Name mit einem Vornamen, gefolgt von einem Leerzeichen.
if $iPosition <> 0 Then ;Wenn dem so ist ...
$sVorname = StringLeft($sVollname, $iPosition)
$sNachname = StringMid($sVollname, $iPosition, StringLen($sVollname))
Else
$sVorname = ""
$sNachname = $sVollname
EndIf
$avZerlegterDatensatz[3] = $sVorname
;
;Nachname
$avZerlegterDatensatz[4] = StringStripWS($sNachname, 1)
;Zusatzinfos
$avZerlegterDatensatz[5] = StringStripWS($sZusatzinfos, 1)
;Voller Pfad
$avZerlegterDatensatz[6] = $aArray[$i]
; $avZerlegterDatensatz[6] =
;_ArrayDisplay($avZerlegterDatensatz, "Fein zerlegter Pfad")
; --- Neuen Datensatz schreiben --------------------------------------------------\
_SQLite_Exec(-1, "INSERT INTO Reparaturverwaltung VALUES(NULL, '" _
& $avZerlegterDatensatz[0] & "','" _ ; 1 Annahme
& "" & "','" _ ; 2 Abholung
& $avZerlegterDatensatz[1] & "','" _ ; 3 Gerät
& $avZerlegterDatensatz[2] & "','" _ ; 4 Schaden
& "" & "','" _ ; 5 Firma
& $avZerlegterDatensatz[3] & "','" _ ; 6 Vorname
& $avZerlegterDatensatz[4] & "','" _ ; 7 Nachname
& "" & "','" _ ;08 Endpreis
& "" & "','" _ ;09
& "" & "','" _ ;10
& "" & "','" _ ;11
& "" & "','" _ ;12
& "" & "','" _ ;13
& $avZerlegterDatensatz[6] & "','" _ ;14 Vollpfad
& "" & "','" _ ;15
& "" & "','" _ ;16
& "" & "','" _ ;17
& "" & "','" _ ;18
& "" & "','" _ ;19
& "" & "','" _ ;20
& "" & "','" _ ;21
& "" & "','" _ ;22
& "" & "','" _ ;23
& "" & "','" _ ;24
& "" & "','" _ ;25
& "" & "','" _ ;26
& "" & "','" _ ;27
& "" & "','" _ ;28
& "" & "','" _ ;29
& "" & "');") ;30
; --- Neuen Datensatz schreiben --------------------------------------------------/
Next
EndFunc ;==>_DB_Import
; #############################################################################
Func ReadIniFile()
Local $aCtrls[1]
Local $Section_GUI_Parameter
Local $aSplit
;If Not FileExists($sIniFilename) Then
; --- GUI-Parameter der Input-Boxen und deren Labels ------------------------------------------------------------\
; 1 2 3 4 5 6 7 8 9 10 11 12 1314 1516 17
$asGUI_Element[0] = "Inputbox000=| 15|320|100| 22|L|0x0000|0|Zeile 0 |U| 0| 0|110| 22|L|0x0000|0|Datensatz-ID"
$asGUI_Element[1] = "Inputbox001=|150|375|100| 22|L|0x0000|0|Zeile 1 |L| -5| 0|110| 22|L|0x0000|0|Annahmedatum"
$asGUI_Element[2] = "Inputbox002=|150|400|100| 22|L|0x0000|0|Zeile 2 |L| -5| 0|110| 22|R|0x0000|0|Abholdatum"
$asGUI_Element[3] = "Inputbox003=|390|375|200| 22|L|0x0000|0|Zeile 3 |O| -5| 0|110| 22|R|0x0000|0|Gerät"
$asGUI_Element[4] = "Inputbox004=|390|400|200| 22|L|0x0000|0|Zeile 4 |U| 0| 0|110| 22|R|0x0000|0|Schadenskürzel"
$asGUI_Element[5] = "Inputbox005=|150|495|100| 22|L|0x0000|0|Zeile 5 |L| -5| 0|110| 22|R|0x0000|0|Firma"
$asGUI_Element[6] = "Inputbox006=|150|520|100| 22|L|0x0000|0|Zeile 6 |L| -5| 0|110| 22|R|0x0000|0|Vorname"
$asGUI_Element[7] = "Inputbox007=|150|545|100| 22|L|0x0000|0|Zeile 7 |L| -5| 0|110| 22|R|0x0000|0|Nachname"
$asGUI_Element[8] = "Inputbox008=|450|550|100| 22|R|0x0000|0|Zeile 8 |L| -5| 0|110| 22|R|0x0000|0|Endpreis"
$asGUI_Element[9] = "Inputbox009=|450|575|100| 22|R|0x0000|0|Zeile 9 |L| -5| 0|110| 22|R|0x0000|0|Re-Nr."
$asGUI_Element[10] = "Inputbox010=|450|450|100| 22|R|0x0000|0|Zeile 10 |L| -5| 0|110| 22|R|0x0000|0|Anzahlung"
$asGUI_Element[11] = "Inputbox011=|450|475|100| 22|L|0x0000|0|Zeile 11 |L| -5| 0|110| 22|R|0x0000|0|Leihteile"
$asGUI_Element[12] = "Inputbox012=|450|500|100| 22|R|0x0000|0|Zeile 12 |L| -5| 0|110| 22|R|0x0000|0|Voranschlag"
$asGUI_Element[13] = "Inputbox013=|140|320|100| 22|L|0x0000|0|Zeile 13 |U| 0| 0| 85| 22|L|0x0000|0|Rekla"
$asGUI_Element[14] = "Inputbox014=|270|320|500| 22|L|0x0000|0|Zeile 14 |U| 0| 0|130| 22|L|0x0000|0|Projektordner"
$asGUI_Element[15] = "Inputbox015=|750|475|100| 22|L|0x0000|0|Zeile 15 |L| -5| 0|110| 22|R|0x0000|0|Gesprächsnotiz"
$asGUI_Element[16] = "Inputbox016=|750|350|100| 22|L|0x0000|0|Zeile 16 |L| -5| 0|120| 22|R|0x0000|0|Reparaturbericht"
$asGUI_Element[17] = "Inputbox017=|750|375|100| 22|L|0x0000|0|Zeile 17 |L| -5| 0|110| 22|R|0x0000|0|Festnetz"
$asGUI_Element[18] = "Inputbox018=|750|400|100| 22|L|0x0000|0|Zeile 18 |L| -5| 0|110| 22|R|0x0000|0|Mobil-Nr."
$asGUI_Element[19] = "Inputbox019=|750|425|100| 22|L|0x0000|0|Zeile 19 |L| -5| 0|110| 22|R|0x0000|0|E-Mail"
$asGUI_Element[20] = "Inputbox020=|750|450|100| 22|L|0x0000|0|Zeile 20 |L| -5| 0|110| 22|R|0x0000|0|Status"
$asGUI_Element[21] = "Inputbox021=|270| 10|250| 22|L|0x0000|0|Zeile 21 |L| 0| 0| 70| 22|R|0x0000|0|Suche:"
$asGUI_Element[22] = "Groupbox001=| 64|475|200|100|L|0x0000|0|Adressdaten|R| 0| 0| 70| 22|L|0x0000|0|"
$asGUI_Element[23] = "Editbox001= |895|400|217|160|L|0x0000|0|Memo |U| -5| 0| 70| 22|L|0x0000|0|Gesprächsnotiz"
; --- GUI-Parameter der Input-Boxen und deren Labels ------------------------------------------------------------/
For $iGUI_ElementNr = Ubound($asGUI_Element)-1 to 0 Step -1
IniWriteSection($sIniFilename, "GUI-Parameter", $asGUI_Element[$iGUI_ElementNr])
Next
;EndIf
$aCtrls = IniReadSection($sIniFilename, "GUI-Parameter")
#cs
;$aCtrls = IniReadSection($sIni, "Moveable")
If $aCtrls[0][0] > 0 Then
_ArrayColInsert($aCtrls, 2)
_ArrayColInsert($aCtrls, 2)
_ArrayColInsert($aCtrls, 2)
_ArrayColInsert($aCtrls, 2)
_ArrayColInsert($aCtrls, 2)
_ArrayColInsert($aCtrls, 2)
For $iCtrl = 1 To $aCtrls[0][0]
$aSplit = StringSplit($aCtrls[$iCtrl][1], '|')
For $iCol = 1 To $aSplit[0]
$aCtrls[$iCtrl][$iCol] = $aSplit[$iCol]
Next
Next
EndIf
$aCtrls[0][1] = "Text"
$aCtrls[0][2] = "left"
$aCtrls[0][3] = "Top"
$aCtrls[0][4] = "width"
$aCtrls[0][5] = "height"
$aCtrls[0][6] = "Style"
$aCtrls[0][7] = "ID"
_ArrayDisplay($aCtrls)
#ce
;_ArrayDisplay($asGUI_Element, "Array-Inhalt") ; Debugausgabe (besserer Ersatz für MsgBox, um ein ganzes Array auf einen Schlag anzeigen zu lassen).
; --- Input-Boxen (und Labels) für Datenbankfelder --------------------------------------------------------------\
Global $avGUI_Parameter[19] ;Anzahl der Parameter eines Parametersatzes.
Global $sF_Obj
Global $iX_Obj, $iY_Obj, $iW_Obj, $iH_Obj, $hE_Obj, $sT_Obj
Global $sA_Lbl, $sA_LblTxt
Global $iX_Lbl, $iY_Lbl, $iW_Lbl, $iH_Lbl, $hE_Lbl, $sT_Lbl
Global $iStrgW
Global $iXOffsetLabelToElement[$iAnzahlGUIElemente], $iYOffsetLabelToElement[$iAnzahlGUIElemente] ;Zwei Arrays, die den Offset zwischen Obekt und Label speichern.
For $iGUI_ElementNr = 0 to Ubound($asGUI_Element)-1 ;30 Zeilen
; --- Pro Schleifendurchlauf die Parameter je eines GUI-Elements auslesen --------------------------------\
$avGUI_Parameter=Stringsplit($asGUI_Element[$iGUI_ElementNr], "|") ;Aufgesplittete Parameter
;MsgBox(0,"",$avGUI_Parametersatz[2])
$sF_Obj = StringStripWS ($avGUI_Parameter[1], 3) ;Funktion des Objektes (von Leerzeichen links und Rechts befreit)
$iX_Obj = $avGUI_Parameter[2] ;X-Position des Objektes
$iY_Obj = $avGUI_Parameter[3] ;Y-Position des Objektes
$iW_Obj = $avGUI_Parameter[4] ;Weite des Objektes
$iH_Obj = $avGUI_Parameter[5] ;Höhe des Objektes
$hE_Obj = $avGUI_Parameter[6] ;Erweiterte Parameter, siehe AutoIt Help: GUICtrlCreateLabel, bzw. GUI Control Styles
$sT_Obj = $avGUI_Parameter[9] ;Textvorbelegung (wenn Inputbox)
$sA_Lbl = $avGUI_Parameter[10] ;Positionsangabe, bezogen auf das Objekt: "L"=Links / "U"=Unten / "R"=Rechts / "O"=Oben.
$iX_Lbl = $avGUI_Parameter[11] ; + $iX_Obj ;X-Position des Labels
$iY_Lbl = $avGUI_Parameter[12] ;+ $iY_Obj ;Y-Position des Labels
$iW_Lbl = $avGUI_Parameter[13] ;Weite des Labels
$iH_Lbl = $avGUI_Parameter[14] ;Höhe des Labels
$sA_LblTxt= $avGUI_Parameter[15] ;Ausrichtung des Labeltextes (linksbündig/rechtsbündig)
$hE_Lbl = $avGUI_Parameter[16] ;Erweiterte Parameter, siehe AutoIt Help: GUICtrlCreateLabel, bzw. GUI Control Styles
$sT_Lbl = $avGUI_Parameter[18] ;Text des Labels
$iStrgW=_Stringbreite($sT_Lbl) ;Breite des vordefinierten Label-Strings in Pixeln.
; --- Pro Schleifendurchlauf die Parameter je eines GUI-Elements auslesen --------------------------------/
; --- Positionen der Labels (in Bezug auf deren Inputboxen), sowie deren Textausrichtung festlegen -------\
Select ;Label-Position (L/U/R/O) und Textausrichtung (L/R) des Labels
Case $sA_Lbl="L" and $sA_LblTxt="L" ;LL - Labelposition (L)inks, Textausrichtung (L)inksbündig
$iX_Lbl = $iX_Obj + $iX_Lbl - $iW_Lbl
$iY_Lbl = $iY_Obj + $iY_Lbl
Case $sA_Lbl="L" and $sA_LblTxt="R" ;LR - Labelposition (L)inks, Textausrichtung (R)echtsbündig
$iX_Lbl = $iX_Obj + $iX_Lbl - $iW_Lbl ; + $iStrgW
$hE_Lbl=BitOR($hE_Lbl, 0x0002)
$iY_Lbl = $iY_Obj + $iY_Lbl
Case $sA_Lbl="U" and $sA_LblTxt="L" ;UL - Labelposition (U)nten, Textausrichtung (L)inksbündig
$iX_Lbl = $iX_Obj + $iX_Lbl
$iY_Lbl = $iY_Obj + $iY_Lbl + $iH_Obj
Case $sA_Lbl="U" and $sA_LblTxt="R" ;UR - Labelposition (U)nten, Textausrichtung (R)echtsbündig
$iX_Lbl = $iX_Obj + $iX_Lbl + $iW_Obj - $iW_Lbl
$hE_Lbl=BitOR($hE_Lbl, 0x0002)
$iY_Lbl = $iY_Obj + $iY_Lbl + $iH_Lbl
Case $sA_Lbl="R" and $sA_LblTxt="L" ;RL - Labelposition (R)echts, Textausrichtung (L)inksbündig
$iX_Lbl = $iX_Obj + $iX_Lbl + $iW_Obj
$iY_Lbl = $iY_Obj + $iY_Lbl
Case $sA_Lbl="R" and $sA_LblTxt="R" ;RR - Labelposition (R)echts, Textausrichtung (R)echtsbündig
$iX_Lbl = $iX_Obj + $iX_Lbl + $iW_Obj ;- $iW_Lbl
$hE_Lbl=BitOR($hE_Lbl, 0x0002)
$iY_Lbl = $iY_Obj + $iY_Lbl
Case $sA_Lbl="O" and $sA_LblTxt="L" ;OL - Labelposition (O)ben, Textausrichtung (L)inksbündig
$iX_Lbl = $iX_Obj + $iX_Lbl
$iY_Lbl = $iY_Obj + $iY_Lbl - $iH_Lbl
Case $sA_Lbl="O" and $sA_LblTxt="R" ;OR - Labelposition (O)ben, Textausrichtung (R)echtsbündig
$iX_Lbl = $iX_Obj + $iX_Lbl ;+ $iW_Lbl
$hE_Lbl=BitOR($hE_Lbl, 0x0002)
$iY_Lbl = $iY_Obj + $iY_Lbl - $iH_Obj
EndSelect
; --- Positionen der Labels (in Bezug auf deren Inputboxen), sowie deren Textausrichtung festlegen -------/
if StringLeft($sF_Obj, 8)="Inputbox" then
;if $GUIElement_Nr=1 Then ;Die erste Inputbox enthält die ID des Datensatzes. Daher auf nicht editierbar schalten.
;BitXOR $ES_READONLY
;EndIf
$aHandleGUIElement[$iGUI_ElementNr] = GUICtrlCreateInput($sT_Obj, $iX_Obj, $iY_Obj, $iW_Obj, $iH_Obj, $hE_Obj, 0) ;Inputbox
EndIf
if StringLeft($sF_Obj, 8)="Groupbox" then
$aHandleGUIElement[$iGUI_ElementNr] = GUICtrlCreateGroup($sT_Obj, $iX_Obj, $iY_Obj, $iW_Obj, $iH_Obj)
EndIf
if StringLeft($sF_Obj, 7)="Editbox" then
$aHandleGUIElement[$iGUI_ElementNr] = GUICtrlCreateEdit($sT_Obj, $iX_Obj, $iY_Obj, $iW_Obj, $iH_Obj)
EndIf
; --- Label erzeugen -----------------------------------------------------------------------------\
$aCtrlLabel[$iGUI_ElementNr] = GUICtrlCreateLabel($sT_Lbl, $iX_Lbl, $iY_Lbl, $iW_Lbl, $iH_Lbl, $hE_Lbl, 0) ;Label, zugehörig zu obiger Inputbox.
GUICtrlSetFont($aCtrlLabel[$iGUI_ElementNr], 12, 400, 0, "Arial")
GUICtrlSetFont($aHandleGUIElement[$iGUI_ElementNr], 12, 400, 0, "Arial")
; --- Label erzeugen -----------------------------------------------------------------------------/
$iXOffsetLabelToElement[$iGUI_ElementNr] = $iX_Obj - $iX_Lbl
$iYOffsetLabelToElement[$iGUI_ElementNr] = $iY_Obj - $iY_Lbl
Next
; --- Input-Boxen (und Labels) für Datenbankfelder --------------------------------------------------------------/
GUICtrlSetFont(-1, 12, 400, 0, "Arial")
EndFunc ;==> ReadIniFile()
; #############################################################################
Func Optionen()
;MsgBox(0, "Optionen", "Hallo")
;$aHandleGUIElement[$iGUI_ElementNr]
$bGUIRedesign = BitXOR($bGUIRedesign, 0x1) ;Binärwert von $bGUIRedesign toggeln.
if $bGUIRedesign=1 then ;Im Menü wurde der Eintrag zum Umgestalten des GUI aktiviert.
MsgBox(0, "", "" _
& "Sie können nun einzelne Bedienelemente" _
& @CRLF & "mit der Maus verschieben." _
& @CRLF & "Zum Beenden diesen Menüeintrag erneut anwählen!")
EndIf
EndFunc
; #############################################################################
FUNC GUI_Redesign()
Local $iNewX, $iNewY
$sUserMessageNew=""
; --- Ermitteln, über welchem GUI-Element der Hauszeiger hoovert. ------------------------------------------------------------\
if $iDoItOnlyOnce = 0 then ;Null, wenn gerade kein GUI-Element mit der Maus angewählt ist. Andernfalls Eins.
For $iGUI_ElementNr = 0 to Ubound($asGUI_Element)-1 ;Alle GUI-Elemente im Array durchlaufen.
;ConsoleWrite("Nr.: " & $iGUI_ElementNr & @CRLF)
$aiGUIElementXYWH = ControlGetPos($FormKombiansicht, "", $aHandleGUIElement[$iGUI_ElementNr]) ;Pro Durchlauf die X/Y-Position eines GUI-Elements ermitteln
if not @error and $sMausXY[0] > $aiGUIElementXYWH[0] and $sMausXY[0] < ($aiGUIElementXYWH[0]+$aiGUIElementXYWH[2]) and $sMausXY[1] > $aiGUIElementXYWH[1] and $sMausXY[1] < ($aiGUIElementXYWH[1]+$aiGUIElementXYWH[3])then
; --- Das GUI-Element unter dem Mauszeiger wurde gefunden! --------------------------------------------------------\
$sUserMessageNew="Feld-Nr. " & $iGUI_ElementNr
$hActualGUIElement = $aHandleGUIElement[$iGUI_ElementNr] ;Das Handle des GUI-Elements unter dem Mauszeiger.
$hActualLabel = $aCtrlLabel[$iGUI_ElementNr] ;Das Handle des an das GUI-Element angeheftete Label.
$iActualGUINumber = $iGUI_ElementNr ;Die Nummer des GUI-Elements im Array aller GUI-Elemente.
$iXOffsetGUIElementToMouse = $sMausXY[0] - $aiGUIElementXYWH[0] ;Der X-Offset des GUI-Elemnts zur Maus, im Moment des Linksklicks.
$iYOffsetGUIElementToMouse = $sMausXY[1] - $aiGUIElementXYWH[1] ;Der Y-Offset des GUI-Elemnts zur Maus, im Moment des Linksklicks.
$iDoItOnlyOnce = 1 ;Verhindert erneuten Schleifenaufruf, so lange die linke Maustaste gedrückt bleibt (nachdem das GUI-Element nun ja gefunden wurde).
ExitLoop
; --- Das GUI-Element unter dem Mauszeiger wurde gefunden! --------------------------------------------------------/
Else ;Mauszeiger hovert derzeit nicht über einem verschiebbaren Element.
$sUserMessageNew = "" ;Feld-Nr. " & $iGUI_ElementNr
$hActualGUIElement = 0 ;$aHandleGUIElement[$iGUI_ElementNr] ;Das Handle des GUI-Elements unter dem Mauszeiger.
$hActualLabel = 0 ;$aCtrlLabel[$iGUI_ElementNr] ;Das Handle des an das GUI-Element angeheftete Label.
$iActualGUINumber = 0 ;$iGUI_ElementNr ;Die Nummer des GUI-Elements im Array aller GUI-Elemente.
$iXOffsetGUIElementToMouse = 0 ;$sMausXY[0] - $aiGUIElementXYWH[0] ;Der X-Offset des GUI-Elemnts zur Maus, im Moment des Linksklicks.
$iYOffsetGUIElementToMouse = 0 ;$sMausXY[1] - $aiGUIElementXYWH[1] ;Der Y-Offset des GUI-Elemnts zur Maus, im Moment des Linksklicks.
$iDoItOnlyOnce = 0
EndIf
Next
EndIf
; --- Ermitteln, über welchem GUI-Element der Hauszeiger hoovert. ------------------------------------------------------------/
if $sUserMessageNew <> $sUserMessageOld then
_GUICtrlStatusBar_SetText($idStatusbar, $sUserMessageNew, 1)
$sUserMessageOld=$sUserMessageNew
EndIf
If $iDoItOnlyOnce = 1 then
;GUICtrlSetState($hActualGUIElement, $GUI_DISABLE) ;Editierbare Elemente (InputBoxen etc.) deaktivieren, so dass der Curser sie nicht betritt.
;$iDoItOnlyOnce = 2
EndIf
; --- So lange die linke Maustaste gedrückt ist, folgen das gewählte GUI-Element & dessen Label dem Mauszeiger -----\
if $iMouseButtonLeft then
$iNewX = $sMausXY[0] - $iXOffsetGUIElementToMouse ;Die neue X-Position des GUI-Elements.
$iNewY = $sMausXY[1] - $iYOffsetGUIElementToMouse ;Die neue Y-Position des GUI-Elements.
GUICtrlSetPos($hActualGUIElement, $iNewX, $iNewY) ;GUI-Element an die neue Position verschieben.
GUICtrlSetPos($hActualLabel, $iNewX - $iXOffsetLabelToElement[$iActualGUINumber], $iNewY - $iYOffsetLabelToElement[$iActualGUINumber]) ;Angeheftetes Label ebenfalls mit verschieben.
Else
If $iDoItOnlyOnce = 1 then
$iDoItOnlyOnce = 0 ;Maustaste wurde losgelassen - Vorbereitung für das Verschieben des nächsten Elements (obige For-Schleife kann wieder betreten werden).
;GUICtrlSetState($hActualGUIElement, $GUI_ENABLE) ;Editierbares Element (InputBoxen etc.) wieder deaktivieren, so dass der Curser sie wieder betreten kann.
EndIf
EndIf
; --- So lange die linke Maustaste gedrückt ist, folgen das gewählte GUI-Element & dessen Label dem Mauszeiger -----/
EndFunc ;==>GUI_Redesign()
; #############################################################################
Func _Exit() ;Datenbank schließen und Programmende.
_GUICtrlListView_UnRegisterSortCallBack($ListView)
_SQLite_Close($g_db_Database)
_SQLite_Shutdown()
_GDIPlus_ShutDown()
Exit
EndFunc ;==>_Exit
; ### Functions ################################################################################################################/
; --- Codeschnippsel-Ablage ---
;$maus_x = -(MouseGetPos(0) - $center)
;$maus_y = (MouseGetPos(1) - $center)
;_GDIPlus_GraphicsDrawLine($hGraphic, $center + $x1, $center + $y1, $center + $x2, $center + $y2, $hPen) ;quadrat
; Local $mpos = GUIGetCursorInfo() ;Mauskoordinaten relativ zum Fenster.

Alles anzeigen

Wie gesagt: Noch immer volle Baustelle, aber schon sehr viel weiter entwickelt, als die im weiter oben stehenden Posting enthaltene Version.

lpxx_2017 · 27. Februar 2018

#RequireAdmin

#AutoIt3Wrapper_UseX64=n

Code-Jack · 24. Oktober 2018

Nach zwei Jahren Abstinenz kramte ich den Quellcode endlich mal wieder hervor.

Damals wuchs mir die Sache über den Kopf, dabei bräuchte ich das Programm eigentlich täglich ...

- Jetzt brauche ich es aber wirklich definitiv und nicht mehr aufschiebbar!

Aktuell scheitert es an einer simplen Sache:

Ich möchte, wenn ein Datensatz editiert werden soll, die ganzen Inputboxen nicht mehr aus der ListView befüllen (wie einst im Ursprungs-Quelltext), sondern direkt aus der eigentlichen Quelle, also der SQLite-Datenbank.

Grund: Die ListView soll später nur noch die relevanten Datenfelder darstellen. Der zu editierende Datensatz ist also umfangreicher, als das, was man in der ListView sieht.

Es würde mir schon riesig helfen, wenn man mir auf die Sprünge helfen könnte, wie ich aus der Datenbanktabelle ein einzelnes Feld auslesen kann, anhand des Wertes in der Spalte "ID". Dann würde ich den Rest selbst schaffen.

Seit gestern grase ich deswegen das Forum durch, probiere Beispiele aus, folge diversen Links auf SQL-Erklärbär-Seiten ... doch alle Beispiele bringen nicht das, was ich will, sind viel zu komplex und vergrößern meine Verwirrung nur.

Anbei der gesamte Quelltext.

Die Routine, die es bringen soll, ist in Zeile 659: "Func _Datensatz2Inputboxes"

Wie man sieht, ist die Routine inzwischen vollständig zu Klump gemüllt, von den vielen dutzend erfolglosen Tests.

Frage also: Wie kriege ich einen einzelnen Feldinhalt der Datenbank (definiert anhand der ID des in der ListView selektierten Datensatzes) ausgelesen, um ihn einer InputBox zuzuweisen?

**autoiter** · 25. Oktober 2018

Hallo Code-Jack

Ich habe mir das Skript noch nicht angesehen. Allerdings scheint mir das auch keine Frage zu diesem Skript, sondern zu SQL bzw. SQLite zu sein.

Zitat von Code-Jack

Frage also: Wie kriege ich einen einzelnen Feldinhalt der Datenbank (definiert anhand der ID des in der ListView selektierten Datensatzes) ausgelesen, um ihn einer InputBox zuzuweisen?

Lass uns behaupten, dass Feld würde ID heißen. Dann könnte der Befehl lauten: SELECT * FROM TABELLENNAME WHERE ID = Whatever

Ich bin sicher, dein Problem ist gar nicht so groß- Schau dir einfach mal SQLite-Tutorials an.

Code-Jack · 25. Oktober 2018

Zitat von autoiter

Ich bin sicher, dein Problem ist gar nicht so groß- Schau dir einfach mal SQLite-Tutorials an.

Waah, dessen bin ich mir auch sicher! Und ich habe ausgiebig Tutorials gewälzt, trotzdem klappte es partout nicht.

Nach ungefähr 15 Stunden kauen an diesem kleinen Problem war ich dann doch so weit, mal im Forum zu fragen.

Aaaber - Tadaaa! - ich habe es inzwischen selbst geschaft!

Der User TheLaBu hat im folgenden Thread ein Beispiel gebracht, das ich erfolgreich abwandeln konnte:

SQL-Ergebnis als Variable speichern

Der aktualisierte Quelltext hängt noch einmal an, falls einem Anderen mal nützlich sein könnte.

In dieser Form ist das Programm nämlich schon recht nahe an der ersten Brauchbarkeit (obwohl noch dick Baustelle).

Trotzdem Danke für Deine Meldung. Ich habe schon viel aus Deinen anderen Postings gelernt!

Code-Jack · 7. November 2018

Etwas verlegen bin ich geneigt zu behaupten, die Codevorlage des geschätzten RR04 enthält einen Bug, der sich bloß nicht bemerkbar macht.

Ich habe ja eine Menge von dieser Vorlage abgekupfert und immer mehr erweitert. Und niemals ist mir dieser Bug aufgefallen, weil er halt nie in Erscheinung trat.

Doch nachdem ich nun in meinem Programm die SQLite-Tabelle nicht mehr mit INTEGER AUTOINCREMENT für die ID kreiere, sondern dort eine GUID als TEXT (statt Integer) verwende ...

siehe hier: Datenbank dezentral erweitern [gelöst]

... trat der Bug plötzlich in Erscheinung. Sogar gleich in zwei Routinen.

Nun ja, bei mir selbst beseitigte ich den.

Interessiert kramte ich den alten Code von RR04 wieder hervorund tatsächlich ist er dort schon vorhanden.

Hier die Stelle um die es geht:

Code

Func _DsUpdate()
_SQLite_Exec(-1, "UPDATE Buchverwaltung SET Titel = '" & GUICtrlRead($aCtrlInput[1]) & "', Autor = '" _
& GUICtrlRead($aCtrlInput[2]) & "', Verlag = '" & GUICtrlRead($aCtrlInput[3]) & "', Genre = '" _
& GUICtrlRead($aCtrlInput[4]) & "', Einband = '" & GUICtrlRead($aCtrlInput[5]) & "', ISBN = '" _
& GUICtrlRead($aCtrlInput[6]) & "', Preis = '" & GUICtrlRead($aCtrlInput[7]) & "', Erscheinungsdatum = '" _
& GUICtrlRead($aCtrlInput[8]) & "', Seiten = '" & GUICtrlRead($aCtrlInput[9]) & "', Lagerplatz = '" _
& GUICtrlRead($aCtrlInput[10]) & "', Serie = '" & GUICtrlRead($aCtrlInput[11]) & "', Lfd_Nr = '" _
& GUICtrlRead($aCtrlInput[12]) & "', Ausgeliehen_an = '" & GUICtrlRead($aCtrlInput[13]) & "', Ausgeliehen_am = '" _
& GUICtrlRead($aCtrlInput[14]) & "', Ausgeliehen_bis = '" & GUICtrlRead($aCtrlInput[15]) & "', Bestellt = '" _
& GUICtrlRead($aCtrlInput[16]) & "', Gelesen = '" & GUICtrlRead($aCtrlInput[17]) & "', Note = '" _
& GUICtrlRead($aCtrlInput[18]) & "', Zusatz = '" & GUICtrlRead($aCtrlInput[19]) & "', Information = '" _
& GUICtrlRead($aCtrlInput[20]) & "' WHERE ID = " & GUICtrlRead($aCtrlInput[0]) & ";")
EndFunc ;==>_DsUpdate

Alles anzeigen

Meines bescheidenen Erachtens fehlen hier zwei Hochkommas.

Die letzte Zeile müsste IMHO so aussehen:

Code

& GUICtrlRead($aCtrlInput[20]) & "' WHERE ID = '" & GUICtrlRead($aCtrlInput[0]) & "';")

Wie gesagt: Der (von mir so betrachtete) Bug machte sich bisher nie bemerkbar. Vermutlich weil die als Integer erzeugte ID von SQLite als Zahl verdaut wurde und daher keine Einfassung in Hochkommas benötigte.

Ich hingegen, verwende nun neuerdings keinen Integer mehr als ID, sondern einen String. Und dann klemmt es, ohne die Einfassung.

Weil hier ja doch viele Codebeispiele mit SQLite im Forum zu finden sind (was vermuten lässt, dass die Macke verbreiteter ist) und weil mir die Vorlage von RR04 so gut gefiel, wollte ich mal dezent darauf hingewiesen haben.

Da kann man sich in unübersichtlicher gestalteten Vorlagen, als dieser hier, ja sonst 'nen Wolf deduggen, als SQL-Anfänger.

Konzeptionelles:

Ich stricke mein Programm übrigens so, dass am Ende nur genau eine einzige Routine Daten aus der SQLite-Datenbank holt.

Und nur genau eine einzige Routine schreibt Daten hinein.

Alle sonstigen Routinen, die irgendwie Daten aus/in SQLite holen/schreiben wollen, tun das nicht mehr direkt, sondern über eine zwischengeschaltete Func, die den jeweiligen Befehl auf die Schreib- bzw. Leseroutine leitet.

Darin sehe ich zwei Vorteile:

Erstens erpart man sich massig Fehlerquellen. Dieser SQL-Kram ist ja echt so ein Ding für sich.

Zweitens kann man blitzschnell völlig andere Datenquellen implementieren.

Wenn also eines Tages statt SQLite eine ganz andere Datenstruktur gefordert wird, dann braucht man nur eine neue Schreib- und eine neue Leseroutine zu stricken und die Umleitung halt ... umleiten.

Man muss dann also nicht umständlich an gefühlt 1000 Stellen im Programm Hand anlegen, wo irgendwas mit SQL passiert.

Noch eine konzeptionelle Sache, nur als Anregung:

Wenn ein Datensatz in der Maske editiert wird, dann schreibe ich die Daten im Anschluss zuerst in die SQLite-Datenbank. Anschließend lese ich sie von dort wieder aus und aktualisiere mit den daraus ausgelesenen Daten (die zunächstin ein Array wandern) die ListView, oder was auch immer.

Darin sehe ich folgende Vorteile:

Erstens fällt es sofort ins Auge, wenn bei den SQL-Aktionen etwas (ohne Fehlermeldung) schief gegangen sein sollte.

Zweitens verringert sich die Anzahl an Routinen, die irgendwie eigenmächtig Daten lesen, schreiben und kreuz und quer untereinander hin & her konvertieren.

Also statt aus den Editfeldern auszulesen und damit die ListView zu füllen und dann irgendwie in die Datenbank ... ist der Datenfluss bei mir irgendwie klarer strukturiert.

Die Quelle für alles ist immer die Datenbank!

Und die wird stets zuerst schreibend aktualisiert. Erst von da aus werden dann erst Edits, Listviews etc. befüllt/aktualisiert - stets direkt aus der Datenbank kommend.

(Mit einem dazwischen geschalteten Array, sei der Vollständigkeit halber noch erwähnt).

Nur eine einzige Routine schreibt in die Datenbank.

Und nur eine einzige Routine holt Daten dort heraus.

Alles sonstige läuft über ein dazwischen geschaltetes Array.

**autoiter** · 7. November 2018

Hallo Code-Jack

Zitat von Code-Jack

Wie gesagt: Der (von mir so betrachtete) Bug machte sich bisher nie bemerkbar. Vermutlich weil die als Integer erzeugte ID von SQLite als Zahl verdaut wurde und daher keine Einfassung in Hochkommas benötigte.

Ich hingegen, verwende nun neuerdings keinen Integer mehr als ID, sondern einen String. Und dann klemmt es, ohne die Einfassung.

Daher ist es kein Bug, sondern war so wie es angelegt war völlig korrekt. Wenn man daran Änderungen vornimmt, muss man eben wissen, was man warum ändern muss. Du machst es nun natürlich besser. Bulletproof finde ich es aber auch noch nicht. Du solltest am besten allgemein die Funktion _SQLite_Escape benutzen (dann sparst du es dir auch eventuelle Steuerzeichen im Text escapen zu müssen).

Teilen