Beiträge von TheLuBu

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
$hGui = GUICreate("Gui", 655, 290, 291, 152, BitOR($WS_SYSMENU, $WS_CAPTION, $WS_GROUP, $WS_HSCROLL, $WS_SIZEBOX))
$Button1 = GUICtrlCreateButton("Ok", 443, 241, 97, 25, $WS_GROUP)
GUICtrlSetResizing(-1, $GUI_DOCKRIGHT + $GUI_DOCKBOTTOM + $GUI_DOCKSIZE)
$Button2 = GUICtrlCreateButton("Abbrechen", 546, 241, 97, 25, $WS_GROUP)
GUICtrlSetResizing(-1, $GUI_DOCKRIGHT + $GUI_DOCKBOTTOM + $GUI_DOCKSIZE)
$Group1 = GUICtrlCreateGroup("", 8, 8, 200, 100)
$Button3 = GUICtrlCreateButton("Ersetzen", 58, 43, 100, 30)
GUICtrlCreateGroup("", -99, -99, 1, 1)

GUISetState()
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE, $Button2
Exit
Case $Button1
$pos = ControlGetPos($hGui, "", $Group1)
ControlMove($hGui, "", $Group1, $pos[0], $pos[1]+50)
EndSwitch
WEnd

Local $SQLQuery = _MSSQL_Query($sqlCon, "select n.nachweis_id, n.nachweisnr, n.vorlaeufigeennr, n.angelegt_am, u.username, n.gueltig_von, n.gueltig_bis, n.relevant, n.entsorgungsmenge_max, n.entsorgungsmenge_init, n.entsorgungsmenge_akt, n.deaktiviert_am, n.geloescht_am, t.behoerdliche_nummer, tr.KUERZEL, t.NAME from nachweis n left join teilnehmer t on n.teilnehmer_id = t.teilnehmer_id left join teilnehmerrolle tr on t.teilnehmerrolle_id = tr.teilnehmerrolle_id left join users u on n.angelegt_durch = u.user_id where n.nachweis_id = " & $Suchbegriff & ";")
If Not $SQLQuery.EOF Then ; Wenn die Abfrage nicht leer ist
$aSQLQueryErgebnis = $SQLQuery.GetRows() ; Zeilen abfragen
Else ; Abfrage enthält keine Daten
MsgBox(16, "Fehler", "Abfrage lieferte kein Ergebnis")
EndIf

$Columns = "n.nachweis_id, n.nachweisnr, n.vorlaeufigeennr, n.angelegt_am, u.username"
$Columns &= ", n.gueltig_von, n.gueltig_bis, n.relevant, n.entsorgungsmenge_max"
$Columns &= ", n.entsorgungsmenge_init, n.entsorgungsmenge_akt, n.deaktiviert_am, n.geloescht_am"
$Columns &= ", t.behoerdliche_nummer, tr.KUERZEL, t.NAME"
$Conditions = "left join teilnehmer t on n.teilnehmer_id = t.teilnehmer_id "
$Conditions &= "left join teilnehmerrolle tr on t.teilnehmerrolle_id = tr.teilnehmerrolle_id "
$Conditions &= "left join users u on n.angelegt_durch = u.user_id where n.nachweis_id = '" & $Suchbegriff & "'"
_MSSQL_GetRecord($sqlCon, "nachweis n", $Columns, $Conditions)

#include <Array.au3>
$String = '<t tn="bf06685d-5219-4040-8f3f-b867f0e24562" tmk="3"><tis><ti tk="0" tv="Wert1" ta="True" /><ti tk="1" tv="Wert2" ta="True" /><ti tk="2" tv="Wert3" ta="True" /><ti tk="3" tv="Wert4" ta="True" /></tis></t>'
$Pattern = 'tn="bf06685d-5219-4040-8f3f-b867f0e24562" tmk="(\d+)"><tis><ti tk="(\d+)" tv="([^"]*)'
$RegEx = StringRegExp($String, $Pattern, 3)
_ArrayDisplay($RegEx)

#include <Array.au3>
$String = '<t tn="bf06685d-5219-4040-8f3f-b867f0e24562" tmk="3"><tis><ti tk="0" tv="Wert1" ta="True" /><ti tk="1" tv="Wert2" ta="True" /><ti tk="2" tv="Wert3" ta="True" /><ti tk="3" tv="Wert4" ta="True" /></tis></t>' & _
'<t tn="1ac9d371-eadd-4396-ad85-02d54769d6a7" tmk="3"><tis><ti tk="0" tv="ID1" ta="True" /><ti tk="1" tv="ID2" ta="True" /><ti tk="2" tv="ID3" ta="False" /><ti tk="3" tv="ID4" ta="True" /></tis></t>'
$Pattern = '<ti tk="(\d+)" tv="([^"]*)" ta="([^"]*)"[^>]*'
$RegEx = StringRegExp($String, $Pattern, 3)
_ArrayDisplay($RegEx)

[...]<t tn="bf06685d-5219-4040-8f3f-b867f0e24562" tmk="3"><tis><ti tk="0" tv="Wert1" ta="True" /><ti tk="1" tv="Wert2" ta="True" /><ti tk="2" tv="Wert3" ta="True" /><ti tk="3" tv="Wert4" ta="True" /></tis></t>[...]

1. Stored function in der DB erstellen, welche das SQL Query erledigt und sämtliche Ergebniszeilen verkettet und in einer einzigen Rückgabvariable speichert.
2. Stored function in Autoit aufrufen, es sollte nun nur noch ein einziges FetchData nötig sein um einen riesigen String, der die ganze Tabelle enthält zu bekommen
3. String per Autoit wieder in Zeilen zerlegen und damit das Listview befüllen

_SQLite_Query ($hDB, "PRAGMA table_info(" & $tablename & ")", $hQuery)
while _SQLite_FetchData($hQuery,$aResult) = $SQLITE_OK
$iResultColumnCount = Number($aResult[0])+1
$allColumNames &= $aResult[1] & "|"
WEnd

_SQLite_Query ( $hDB, "SELECT * FROM " & $tablename, $hQuery )
_SQLite_FetchNames($hQuery, $allColumNames)
_ArrayToString($allColumNames)

$hGui = GUICreate("Test")
$Tab = GUICtrlCreateTab(1,1,400, 400)
$tabitem1 = GUICtrlCreateTabItem("1 Tab") ; Ersten Tab erstellen
$Listview = GUICtrlCreateListView("Listview", 50, 50, 300, 300) ;
;~ [...]
;~ weitere Controls für den ersten Tab
;~ [...]

$tabitem2 = GUICtrlCreateTabItem("2 Tab") ; Zweiten Tab erstellen
;~ [...]
;~ weitere Controls für den zweiten Tab
;~ [...]

GUICtrlCreateTabItem(""); Tab Definition beenden

Guisetstate()

While 1
$msg = GUIGetMsg()
Switch $msg
Case -3
Exit
EndSwitch

WEnd

$mark = _GUICtrlListView_GetSelectionMark(GUICtrlGetHandle($h_Listview))
$erste_spalte= _GUICtrlListView_GetItemText(GUICtrlGetHandle($h_Listview), $mark, 0)
$zweite_spalte= _GUICtrlListView_GetItemText(GUICtrlGetHandle($h_Listview), $mark, 1)
$dritte_spalte= _GUICtrlListView_GetItemText(GUICtrlGetHandle($h_Listview), $mark, 2)

[...]GUI Erstellen [...]
GUIRegisterMsg($WM_NOTIFY, "WM_NOTIFY")

While 1

Sleep(100)

WEnd

Func WM_NOTIFY($hWnd, $iMsg, $iwParam, $ilParam)
#forceref $hWnd, $iMsg, $iwParam
Local $hWndFrom, $iIDFrom, $iCode, $tNMHDR, $hWndListView, $tInfo
$hWndListView = $hListView
If Not IsHWnd($hListView) Then $hWndListView = GUICtrlGetHandle($hListView)
$tNMHDR = DllStructCreate($tagNMHDR, $ilParam)
$hWndFrom = HWnd(DllStructGetData($tNMHDR, "hWndFrom"))
$iIDFrom = DllStructGetData($tNMHDR, "IDFrom")
$iCode = DllStructGetData($tNMHDR, "Code")
Switch $hWndFrom
Case $hWndListView
Switch $iCode
Case $LVN_COLUMNCLICK ; Es wurde auf eine Spalte geklickt
$tInfo = DllStructCreate($tagNMLISTVIEW, $ilParam)
_DebugPrint("$LVN_COLUMNCLICK" & @LF & "-->hWndFrom:" & @TAB & $hWndFrom & @LF & _
"-->IDFrom:" & @TAB & $iIDFrom & @LF & _
"-->Code:" & @TAB & $iCode & @LF & _
"-->Item:" & @TAB & DllStructGetData($tInfo, "Item") & @LF & _
"-->SubItem:" & @TAB & DllStructGetData($tInfo, "SubItem") & @LF & _
"-->NewState:" & @TAB & DllStructGetData($tInfo, "NewState") & @LF & _
"-->OldState:" & @TAB & DllStructGetData($tInfo, "OldState") & @LF & _
"-->Changed:" & @TAB & DllStructGetData($tInfo, "Changed") & @LF & _
"-->ActionX:" & @TAB & DllStructGetData($tInfo, "ActionX") & @LF & _
"-->ActionY:" & @TAB & DllStructGetData($tInfo, "ActionY") & @LF & _
"-->Param:" & @TAB & DllStructGetData($tInfo, "Param"))
; Kein Rückgabewert
Case $LVN_DELETEITEM ; Ein Item soll gelöscht werden
$tInfo = DllStructCreate($tagNMLISTVIEW, $ilParam)
_DebugPrint("$LVN_DELETEITEM" & @LF & "-->hWndFrom:" & @TAB & $hWndFrom & @LF & _
"-->IDFrom:" & @TAB & $iIDFrom & @LF & _
"-->Code:" & @TAB & $iCode & @LF & _
"-->Item:" & @TAB & DllStructGetData($tInfo, "Item") & @LF & _
"-->SubItem:" & @TAB & DllStructGetData($tInfo, "SubItem") & @LF & _
"-->NewState:" & @TAB & DllStructGetData($tInfo, "NewState") & @LF & _
"-->OldState:" & @TAB & DllStructGetData($tInfo, "OldState") & @LF & _
"-->Changed:" & @TAB & DllStructGetData($tInfo, "Changed") & @LF & _
"-->ActionX:" & @TAB & DllStructGetData($tInfo, "ActionX") & @LF & _
"-->ActionY:" & @TAB & DllStructGetData($tInfo, "ActionY") & @LF & _
"-->Param:" & @TAB & DllStructGetData($tInfo, "Param"))
; Kein Rückgabewert
Case $LVN_HOTTRACK ; Wird von einem ListView gesendet, wenn der Benutzer die Maus über ein Item bewegt
$tInfo = DllStructCreate($tagNMLISTVIEW, $ilParam)
_DebugPrint("$LVN_HOTTRACK" & @LF & "-->hWndFrom:" & @TAB & $hWndFrom & @LF & _
"-->IDFrom:" & @TAB & $iIDFrom & @LF & _
"-->Code:" & @TAB & $iCode & @LF & _
"-->Item:" & @TAB & DllStructGetData($tInfo, "Item") & @LF & _
"-->SubItem:" & @TAB & DllStructGetData($tInfo, "SubItem") & @LF & _
"-->NewState:" & @TAB & DllStructGetData($tInfo, "NewState") & @LF & _
"-->OldState:" & @TAB & DllStructGetData($tInfo, "OldState") & @LF & _
"-->Changed:" & @TAB & DllStructGetData($tInfo, "Changed") & @LF & _
"-->ActionX:" & @TAB & DllStructGetData($tInfo, "ActionX") & @LF & _
"-->ActionY:" & @TAB & DllStructGetData($tInfo, "ActionY") & @LF & _
"-->Param:" & @TAB & DllStructGetData($tInfo, "Param"))
;~ Return 0 ; Erlaubt dem ListView, seine normale "Verfolgen und Auswählen"-Operation durchzuführen
;Return 1 ; Das Item wird nicht ausgewählt
Case $LVN_KEYDOWN ; Eine Taste wurde gedrückt
$tInfo = DllStructCreate($tagNMLVKEYDOWN, $ilParam)
_DebugPrint("$LVN_KEYDOWN" & @LF & "-->hWndFrom:" & @TAB & $hWndFrom & @LF & _
"-->IDFrom:" & @TAB & $iIDFrom & @LF & _
"-->Code:" & @TAB & $iCode & @LF & _
"-->VKey:" & @TAB & DllStructGetData($tInfo, "VKey") & @LF & _
"-->Flags:" & @TAB & DllStructGetData($tInfo, "Flags"))
; Kein Rückgabewert
Case $NM_CLICK ; Wird vom ListView gesendet, wenn der Benutzer ein Item mit der linken Maustaste anklickt
$tInfo = DllStructCreate($tagNMITEMACTIVATE, $ilParam)
_DebugPrint("$NM_CLICK" & @LF & "-->hWndFrom:" & @TAB & $hWndFrom & @LF & _
"-->IDFrom:" & @TAB & $iIDFrom & @LF & _
"-->Code:" & @TAB & $iCode & @LF & _
"-->Index:" & @TAB & DllStructGetData($tInfo, "Index") & @LF & _
"-->SubItem:" & @TAB & DllStructGetData($tInfo, "SubItem") & @LF & _
"-->NewState:" & @TAB & DllStructGetData($tInfo, "NewState") & @LF & _
"-->OldState:" & @TAB & DllStructGetData($tInfo, "OldState") & @LF & _
"-->Changed:" & @TAB & DllStructGetData($tInfo, "Changed") & @LF & _
"-->ActionX:" & @TAB & DllStructGetData($tInfo, "ActionX") & @LF & _
"-->ActionY:" & @TAB & DllStructGetData($tInfo, "ActionY") & @LF & _
"-->lParam:" & @TAB & DllStructGetData($tInfo, "lParam") & @LF & _
"-->KeyFlags:" & @TAB & DllStructGetData($tInfo, "KeyFlags"))
; Kein Rückgabewert
Case $NM_DBLCLK ; Wird vom ListView gesendet, wenn der Benutzer ein Item mit der linken Maustaste doppelklickt
$tInfo = DllStructCreate($tagNMITEMACTIVATE, $ilParam)
_DebugPrint("$NM_DBLCLK" & @LF & "-->hWndFrom:" & @TAB & $hWndFrom & @LF & _
"-->IDFrom:" & @TAB & $iIDFrom & @LF & _
"-->Code:" & @TAB & $iCode & @LF & _
"-->Index:" & @TAB & DllStructGetData($tInfo, "Index") & @LF & _
"-->SubItem:" & @TAB & DllStructGetData($tInfo, "SubItem") & @LF & _
"-->NewState:" & @TAB & DllStructGetData($tInfo, "NewState") & @LF & _
"-->OldState:" & @TAB & DllStructGetData($tInfo, "OldState") & @LF & _
"-->Changed:" & @TAB & DllStructGetData($tInfo, "Changed") & @LF & _
"-->ActionX:" & @TAB & DllStructGetData($tInfo, "ActionX") & @LF & _
"-->ActionY:" & @TAB & DllStructGetData($tInfo, "ActionY") & @LF & _
"-->lParam:" & @TAB & DllStructGetData($tInfo, "lParam") & @LF & _
"-->KeyFlags:" & @TAB & DllStructGetData($tInfo, "KeyFlags"))
; Kein Rückgabewert
Case $NM_KILLFOCUS ; Das Control hat den Eingabefokus verloren
_DebugPrint("$NM_KILLFOCUS" & @LF & "-->hWndFrom:" & @TAB & $hWndFrom & @LF & _
"-->IDFrom:" & @TAB & $iIDFrom & @LF & _
"-->Code:" & @TAB & $iCode)
; Kein Rückgabewert
Case $NM_RCLICK ; Wird vom ListView gesendet, wenn der Benutzer ein Item mit der rechten Maustaste anklickt
$tInfo = DllStructCreate($tagNMITEMACTIVATE, $ilParam)
_DebugPrint("$NM_RCLICK" & @LF & "-->hWndFrom:" & @TAB & $hWndFrom & @LF & _
"-->IDFrom:" & @TAB & $iIDFrom & @LF & _
"-->Code:" & @TAB & $iCode & @LF & _
"-->Index:" & @TAB & DllStructGetData($tInfo, "Index") & @LF & _
"-->SubItem:" & @TAB & DllStructGetData($tInfo, "SubItem") & @LF & _
"-->NewState:" & @TAB & DllStructGetData($tInfo, "NewState") & @LF & _
"-->OldState:" & @TAB & DllStructGetData($tInfo, "OldState") & @LF & _
"-->Changed:" & @TAB & DllStructGetData($tInfo, "Changed") & @LF & _
"-->ActionX:" & @TAB & DllStructGetData($tInfo, "ActionX") & @LF & _
"-->ActionY:" & @TAB & DllStructGetData($tInfo, "ActionY") & @LF & _
"-->lParam:" & @TAB & DllStructGetData($tInfo, "lParam") & @LF & _
"-->KeyFlags:" & @TAB & DllStructGetData($tInfo, "KeyFlags"))
;Return 1 ; Verhindert die weitere Standard-Nachrichtenbehandlung
Return 0 ; Erlaubt die weitere Standard-Nachrichtenbehandlung
Case $NM_RDBLCLK ; Wird vom ListView gesendet, wenn der Benutzer ein Item mit der rechten Maustaste doppelklickt
$tInfo = DllStructCreate($tagNMITEMACTIVATE, $ilParam)
_DebugPrint("$NM_RDBLCLK" & @LF & "-->hWndFrom:" & @TAB & $hWndFrom & @LF & _
"-->IDFrom:" & @TAB & $iIDFrom & @LF & _
"-->Code:" & @TAB & $iCode & @LF & _
"-->Index:" & @TAB & DllStructGetData($tInfo, "Index") & @LF & _
"-->SubItem:" & @TAB & DllStructGetData($tInfo, "SubItem") & @LF & _
"-->NewState:" & @TAB & DllStructGetData($tInfo, "NewState") & @LF & _
"-->OldState:" & @TAB & DllStructGetData($tInfo, "OldState") & @LF & _
"-->Changed:" & @TAB & DllStructGetData($tInfo, "Changed") & @LF & _
"-->ActionX:" & @TAB & DllStructGetData($tInfo, "ActionX") & @LF & _
"-->ActionY:" & @TAB & DllStructGetData($tInfo, "ActionY") & @LF & _
"-->lParam:" & @TAB & DllStructGetData($tInfo, "lParam") & @LF & _
"-->KeyFlags:" & @TAB & DllStructGetData($tInfo, "KeyFlags"))
; Kein Rückgabewert
Case $NM_RETURN ; Das Control hat den Eingabefokus und der Benutzer hat die ENTER-Taste gedrückt
_DebugPrint("$NM_RETURN" & @LF & "-->hWndFrom:" & @TAB & $hWndFrom & @LF & _
"-->IDFrom:" & @TAB & $iIDFrom & @LF & _
"-->Code:" & @TAB & $iCode)
; Kein Rückgabewert
Case $NM_SETFOCUS ; Das Control hat den Eingabefokus erhalten
_DebugPrint("$NM_SETFOCUS" & @LF & "-->hWndFrom:" & @TAB & $hWndFrom & @LF & _
"-->IDFrom:" & @TAB & $iIDFrom & @LF & _
"-->Code:" & @TAB & $iCode)
; Kein Rückgabewert
EndSwitch
EndSwitch
Return $GUI_RUNDEFMSG
EndFunc ;==>WM_NOTIFY

Func _DebugPrint($s_text, $line = @ScriptLineNumber)
ConsoleWrite( _
"!===========================================================" & @LF & _
"+======================================================" & @LF & _
"-->Zeile(" & StringFormat("%04d", $line) & "):" & @TAB & $s_text & @LF & _
"+======================================================" & @LF)
EndFunc ;==>_DebugPrint