AutoIt Français

Code : Tout sélectionner

Local $hQuery, $aRow
    _SQLite_Query(-1, "SELECT * FROM " & $Table & " WHERE Stock = '0';", $hQuery)

    Local $t = 0

    While(_SQLite_FetchData($hQuery, $aRow) = $SQLITE_OK)
        GUICtrlCreateListViewItem($aRow[0] & "|" & $aRow[1] & "|" & $aRow[2] & "|" & $aRow[3] & "|" & $aRow[4] & "|" & $aRow[5] & "|" & $aRow[6] & "|" & $aRow[7] & "|" & $aRow[8] & "|" & $aRow[9], $hListView)
        $t += 1
        If Mod($t, 2) = 0 Then
            GUICtrlSetBkColor(-1, 0xdddddd)
        Else
            GUICtrlSetBkColor(-1, 0xabcdef)
        EndIf
        If $aRow[6] = "0" Then GUICtrlSetColor(-1, 0xff0000)
    WEnd

Code : Tout sélectionner

Func _SearchStockNul()

    _GUICtrlListView_DeleteAllItems($hListView)

    Local $hQuery, $aRow, $aResult, $iRows, $iColumns
    _SQLite_Query(-1, "SELECT * FROM " & $Table & " WHERE Stock = '0';", $hQuery)

    Local $t = 0

    _SQLite_QuerySingleRow(-1, "SELECT Count(*) FROM " & $Table & " WHERE Stock = '0';", $aRow)


    If $aRow[0] > 1 Then
        GUICtrlSetData($lAffichageQte, $aRow[0] & " matériels avec stock à 0.")
    Else
        GUICtrlSetData($lAffichageQte, $aRow[0] & " matériel avec stock à 0.")
    EndIf
    Dim $TempArray[$aRow[0]][9]
    
    $iRval = _SQLite_GetTable2d(-1, "SELECT * FROM " & $Table & " WHERE Stock = '0';", $aResult, $iRows, $iColumns)
    If $iRval = $SQLITE_OK Then
        For $r = 1 To $aRow[0];de 1  à 46 ici
            For $c = 0 To 8
                $TempArray[$r-1][$c] = $aResult[$r][$c]
            Next
        Next
    EndIf
_GUICtrlListView_AddArray($hListView, $TempArray)

EndFunc

Code : Tout sélectionner

Func _LoadSQLiteData()

    _GUICtrlListView_DeleteAllItems($hListView)

    Local $hQuery, $aRow, $sMsg, $iRows, $iCols, $aRow2, $aRow3, $nb_lignesTo0, $nb_lignes

    If @error > 0 Then Exit MsgBox(16, "SQLite Error", "SQLite.dll Can't be Loaded!")
    _SQLite_Open($DB)
    If @error > 0 Then Exit MsgBox(16, "SQLite Error", "Can't Load Database!")

    _SQLite_Query(-1, "SELECT * FROM " & $Table, $hQuery)
    Local $t = 0
    While (_SQLite_FetchData ($hQuery, $aRow) = $SQLITE_OK)
        GUICtrlCreateListViewItem($aRow[0] & "|" & $aRow[1] & "|" & $aRow[2] & "|" & $aRow[3] & "|" & $aRow[4] & "|" & $aRow[5] & "|" & $aRow[6] & "|" & $aRow[7] & "|" & $aRow[8] & "|" & $aRow[9], $hListView)
        $t += 1
        If Mod($t, 2) = 0 Then
            GUICtrlSetBkColor(-1, 0xdddddd)
        Else
            GUICtrlSetBkColor(-1, 0xabcdef)
        EndIf
        If $aRow[6] = "0" Then
            GUICtrlSetColor(-1, 0xff0000)
        EndIf
    WEnd

    ;On récupère la quantité de la base SQLite
    _SQLite_QuerySingleRow(-1, "SELECT Count(*) FROM " & $Table & " WHERE Stock = '0';", $aRow3) ; the query
    $nb_lignesTo0 = $aRow3[0]

    ;Nombre de ligne(s) contenue(s) dans la base SQLite
    _SQLite_QuerySingleRow(-1, "SELECT Count(*) FROM " & $Table , $aRow)
    $nb_lignes = $aRow[0]

    If $nb_lignes > 1 Then
        GUICtrlSetData($lAffichageQte, $nb_lignes & " enregistrements, dont " & $nb_lignesTo0 & " stock à 0.")
    Else
        GUICtrlSetData($lAffichageQte, $nb_lignes & " enregistrement.")
    EndIf


EndFunc

Code : Tout sélectionner

Func _SearchStockNul()

    _GUICtrlListView_DeleteAllItems($hListView)
    GUICtrlSetBkColor(-1, $GUI_BKCOLOR_LV_ALTERNATE)

    Local $hQuery, $aRow, $aResult, $iRows, $iColumns
    _SQLite_Query(-1, "SELECT * FROM " & $Table & " WHERE Stock = '0';", $hQuery)

    Local $t = 0

    _SQLite_QuerySingleRow(-1, "SELECT Count(*) FROM " & $Table & " WHERE Stock = '0';", $aRow)

    If $aRow[0] > 1 Then
        GUICtrlSetData($lAffichageQte, $aRow[0] & " matériels avec stock à 0.")
    Else
        GUICtrlSetData($lAffichageQte, $aRow[0] & " matériel avec stock à 0.")
    EndIf
    Dim $TempArray[$aRow[0]][9]

    $iRval = _SQLite_GetTable2d(-1, "SELECT * FROM " & $Table & " WHERE Stock = '0';", $aResult, $iRows, $iColumns)
    If $iRval = $SQLITE_OK Then
        For $r = 1 To $aRow[0]
            For $c = 0 To 8
                $TempArray[$r-1][$c] = $aResult[$r][$c]
            Next
        Next
    EndIf

_GUICtrlListView_AddArray($hListView, $TempArray)

EndFunc

Code : Tout sélectionner

_MainGui()

Func _MainGui()

;==[Création du GUI]===============================================================================================
    $GUI =  GUICreate("", 1200, 800, -1, -1, -1, -1)
   ;J'ai supprimé le reste....

    $ligne1 = ""

    For $i = 0 to UBound($names)-1    ; nb de colonnes
        $ligne1 &= $names[$i] & "|"
    Next

    ;==[Création de ma ListView]==========
    $hListView = GUICtrlCreateListView($ligne1, 0, 250, 1200, 500, BitOR($LVS_SHOWSELALWAYS, $LVS_REPORT))

    _GUICtrlListView_SetExtendedListViewStyle($hListView, BitOR($LVS_EX_GRIDLINES, $LVS_EX_FULLROWSELECT, $LVS_EX_SUBITEMIMAGES))
    GUICtrlSetFont($hListView, -1, 400)
    _GUICtrlListView_DeleteAllItems($hListView)
    _GUICtrlListView_HideColumn($hListView, 0)
    
   ;Je charge les données de ma table SQL
    _LoadSQLiteData()

  

    GUISetState(@SW_SHOW)

    

While 1
    $Msg = GUIGetMsg()
    Select
        Case $Msg = $GUI_EVENT_CLOSE
            _SQLite_Close()
            _SQLite_Shutdown()
            Exit

        Case $Msg = $bNewEntry
            _PopUp()

        Case $Msg = $bModify
            _ModifyEntryDB()

        Case $Msg = $bValiderRetrait
            If GUICtrlRead($Input1) = "" Then GUICtrlSetData($Input1, 1)
            _ModifyQuantityStock()

        Case $Msg = $bRechercher
            GUICtrlSetData($lAffichageQte, "Chargement en cours...")
            _Search()

        Case $Msg = $bSearchStock0
            GUICtrlSetData($lAffichageQte, "Chargement en cours...")
            _SearchStockNul()

        Case $Msg = $bReload
            GUICtrlSetData($lAffichageQte, "Chargement en cours...")
            _LoadSQLiteData()

        Case $Msg = $bImprimer
            _Imprimer()

        Case $Msg = $bLikeSearch
            GUICtrlSetData($lAffichageQte, "Chargement en cours...")
            _LikeSearch()

        Case $Msg = $iCheckbox
            If _IsChecked($iCheckbox) Then
                $FullScreen = True
                GUIDelete($GUI)
                _MainGui()
            Else
                $FullScreen = False
                GUIDelete($GUI)
                _MainGui()
            EndIf

    EndSelect
WEnd

EndFunc
 

Code : Tout sélectionner

Func _LoadSQLiteData()

    _GUICtrlListView_DeleteAllItems($hListView)

    Local $hQuery, $aRow, $sMsg, $iRows, $iCols, $aRow2, $aRow3, $nb_lignesTo0, $nb_lignes, $aResult, $iColumns

    If @error > 0 Then Exit MsgBox(16, "SQLite Error", "SQLite.dll Can't be Loaded!")
    _SQLite_Open($DB)
    If @error > 0 Then Exit MsgBox(16, "SQLite Error", "Can't Load Database!")

    $iRval = _SQLite_GetTable2d(-1, "SELECT * FROM " & $Table & ";", $aResult, $iRows, $iColumns) ;$iRows -> Nombre de lignes

    If $iRval = $SQLITE_OK Then
        Dim $TempArray[$iRows][10]

        For $r = 1 To $iRows
            For $c = 0 To 9
                $TempArray[$r-1][$c] = $aResult[$r][$c]
            Next
        Next
        EndIf

    _GUICtrlListView_AddArray($hListView, $TempArray)

    ;On récupère la quantité de la base SQLite
    _SQLite_QuerySingleRow(-1, "SELECT Count(*) FROM " & $Table & " WHERE Stock = '0';", $aRow3) ; the query
    $nb_lignesTo0 = $aRow3[0]

    ;Nombre de ligne(s) contenue(s) dans la base SQLite
    _SQLite_QuerySingleRow(-1, "SELECT Count(*) FROM " & $Table , $aRow)
    $nb_lignes = $aRow[0]

    If $nb_lignes > 1 Then
        GUICtrlSetData($lAffichageQte, $nb_lignes & " enregistrements, dont " & $nb_lignesTo0 & " stock à 0.")
    Else
        GUICtrlSetData($lAffichageQte, $nb_lignes & " enregistrement.")
    EndIf

EndFunc
 

Code : Tout sélectionner

#Include <GuiConstantsEx.au3>
#Include <GuiListView.au3>
#include <WindowsConstants.au3>


;fonts for custom draw example
;bold
Global $aFont1 = DLLCall("gdi32.dll","int","CreateFont", "int", 14, "int", 0, "int", 0, "int", 0, "int", 700, _
                        "dword", 0, "dword", 0, "dword", 0, "dword", 0, "dword", 0, "dword", 0, "dword", 0, _
                        "dword", 0, "str", "")
;italic
Global $aFont2 = DLLCall("gdi32.dll","int","CreateFont", "int", 14, "int", 0, "int", 0, "int", 0, "int", 400, _
                        "dword", 1, "dword", 0, "dword", 0, "dword", 0, "dword", 0, "dword", 0, "dword", 0, _
                        "dword", 0, "str", "")
                        


$GUI = GUICreate("Listview Custom Draw", 400, 300)

$cListView = GUICtrlCreateListView("", 2, 2, 394, 268)
$hListView = GUICtrlGetHandle($cListView)
;or
;~ $hListView = _GUICtrlListView_Create($GUI, "", 2, 2, 394, 268)

_GUICtrlListView_SetExtendedListViewStyle($hListView, BitOR($LVS_EX_GRIDLINES, $LVS_EX_FULLROWSELECT))

_GUICtrlListView_InsertColumn($hListView, 0, "Column 1", 100)
_GUICtrlListView_InsertColumn($hListView, 1, "Column 2", 100)
_GUICtrlListView_InsertColumn($hListView, 2, "Column 3", 100)

; Add items
For $i = 1 To 30
    _GUICtrlListView_AddItem($hListView, "Row" & $i & ": Col 1", $i-1)
    For $j = 1 To 2
        _GUICtrlListView_AddSubItem ($hListView, $i-1, "Row" & $i & ": Col " & $j+1, $j)
    Next
Next

GUIRegisterMsg($WM_NOTIFY, "WM_NOTIFY")
GUISetState()

Do
Until GUIGetMsg() = $GUI_EVENT_CLOSE
DLLCall("gdi32.dll","int","DeleteObject", "hwnd", $aFont1[0])
DLLCall("gdi32.dll","int","DeleteObject", "hwnd", $aFont2[0])
Exit

Func WM_NOTIFY($hWnd, $Msg, $wParam, $lParam)
    Local $hWndFrom, $iIDFrom, $iCode, $tNMHDR

    $tNMHDR = DllStructCreate($tagNMHDR, $lParam)
    $hWndFrom = HWnd(DllStructGetData($tNMHDR, "hWndFrom"))
    $iIDFrom = DllStructGetData($tNMHDR, "IDFrom")
    $iCode = DllStructGetData($tNMHDR, "Code")
    Switch $hWndFrom
        Case $hListView
            Switch $iCode
                Case $NM_CUSTOMDRAW
                    If Not _GUICtrlListView_GetViewDetails($hWndFrom) Then Return $GUI_RUNDEFMSG
                     Local $tCustDraw = DllStructCreate('hwnd hwndFrom;int idFrom;int code;' & _
                                        'dword DrawStage;hwnd hdc;long rect[4];dword ItemSpec;int ItemState;dword Itemlparam;' & _
                                        'dword clrText;dword clrTextBk;int SubItem;' & _
                                        'dword ItemType;dword clrFace;int IconEffect;int IconPhase;int PartID;int StateID;long rectText[4];int Align', _ ;winxp or later
                                        $lParam), $iDrawStage, $iItem, $iSubitem, $hDC, $iColor1, $iColor2, $iColor3
                    $iDrawStage = DllStructGetData($tCustDraw, 'DrawStage')
                    If $iDrawStage = $CDDS_PREPAINT Then Return $CDRF_NOTIFYITEMDRAW ;request custom drawing of items
                    If $iDrawStage = $CDDS_ITEMPREPAINT Then Return $CDRF_NOTIFYSUBITEMDRAW ;request drawing each cell separately
                    If Not BitAND($iDrawStage, $CDDS_SUBITEM) Then Return $CDRF_DODEFAULT
                    $iItem = DllStructGetData($tCustDraw, 'ItemSpec')
                    $iSubitem = DllStructGetData($tCustDraw, 'SubItem')
                    Switch $iItem
                        Case 0 To 9 ;for rows 1-10 lets do this
                            $iColor1 = RGB2BGR(0xFBFFD8)
                            $iColor2 = RGB2BGR(-1)
                            $iColor3 = RGB2BGR(0xFF0000)
                            If Mod($iSubitem, 2) Then ;odd columns
                                DllStructSetData($tCustDraw, 'clrTextBk', $iColor1)
                                DllStructSetData($tCustDraw, 'clrText', 0)
                            Else ;even columns
                                DllStructSetData($tCustDraw, 'clrTextBk', $iColor2)
                                DllStructSetData($tCustDraw, 'clrText', $iColor3)
                            EndIf
                        Case 10 To 19 ;for rows 11-20 lets do this
                            $iColor1 = RGB2BGR(0xFBFFD8)
                            $iColor2 = RGB2BGR(0x3DF8FF)
                            $hDC = DllStructGetData($tCustDraw, 'hdc')
                            If Mod($iItem, 2) Then
                                If Mod($iSubitem, 2) Then
                                    DllStructSetData($tCustDraw, 'clrTextBk', $iColor1)
                                Else
                                    DllStructSetData($tCustDraw, 'clrTextBk', $iColor2)
                                EndIf
                                DLLCall("gdi32.dll","hwnd","SelectObject", "hwnd", $hDC, "hwnd", $aFont1[0]) ;select our chosen font into DC
                            Else
                                If Mod($iSubitem, 2) Then
                                    DllStructSetData($tCustDraw, 'clrTextBk', $iColor2)
                                Else
                                    DllStructSetData($tCustDraw, 'clrTextBk', $iColor1)
                                EndIf
                                DLLCall("gdi32.dll","hwnd","SelectObject", "hwnd", $hDC, "hwnd", $aFont2[0])
                            EndIf
                        Case 20 To 29 ;for rows 21-30 lets do this
                            $iColor1 = RGB2BGR(0xFBFFD8)
                            $iColor2 = RGB2BGR(-1)
                            If Mod($iItem, 2) Then ;odd rows
                                DllStructSetData($tCustDraw, 'clrTextBk', $iColor2)
                            Else
                                DllStructSetData($tCustDraw, 'clrTextBk', $iColor1)
                            EndIf                     
                    EndSwitch
                    Return $CDRF_NEWFONT
            EndSwitch
    EndSwitch
    Return $GUI_RUNDEFMSG
EndFunc   ;==>WM_NOTIFY

Func RGB2BGR($iColor)
    Return BitAND(BitShift(String(Binary($iColor)), 8), 0xFFFFFF)
EndFunc