rony2006

Select, case - simple question

9 posts in this topic

#1 ·  Posted (edited)

Hello,

I have a script that is something like:

While 1
    
    $nMsg = GUIGetMsg()
    Switch $nMsg
        
        Case $GUI_EVENT_CLOSE
        Case $reset
        Case $go
        Case Else
             GUICtrlSetData($datasiora, _Now())
             GUICtrlSetData($t_datasiora, _Now())
             Sleep (5000)
             
    EndSwitch
WEnd

The problem is that Case Else is activated, then I must wait for 5 seconds until I can use case $go for exemple (which is a button).

How I can avoid this delay when selecting another case?

P.S. I must leave the delay at case else or for ex case $reset takes like 1 minute to finish

 

Thanks!

Edited by rony2006

Share this post


Link to post
Share on other sites



Don't use sleep. I don't know what you're trying to automate so I don't what a better way to not use sleep for what you need.

Share this post


Link to post
Share on other sites

#3 ·  Posted (edited)

Did you try using the ctrl set data outside of the while loop?  Like up in the gui creation part of the script?

Edit.  I think you need to add a timer.  

Edited by markyrocks

Share this post


Link to post
Share on other sites

I make a software for plant maintenance.

And I need to have a list that is updated each second for ex to see if anybody made new maintenance ticket with help from the tehnical support.

I solved the problem by making a function in another script and calling the function in the mail script with Case.

Share this post


Link to post
Share on other sites

#5 ·  Posted (edited)

Hello guys,

I am back with the same problem. Now I really need to make the script run a process in background.

So my script is something like this:

 

While 1
    
    $nMsg = GUIGetMsg()
    Switch $nMsg
        
        Case $GUI_EVENT_CLOSE
        Case $reset
        Case $go
        Case Else
             GUICtrlSetData($datasiora, _Now())
             GUICtrlSetData($t_datasiora, _Now())
           
             
    EndSwitch
WEnd

If I open the script, every button (reset, go .etc) is working AND in the SAME TIME I have the date updated in 2 input box ($datasiora, $t_datasiora)

The problem is that if I put after CASE ELSE another code (more complex) the buttons are working very slow, and after you click you must wait long time before the code is executed (for ex the code for $go case)

 

The code that I put in CASE ELSE is:

Case Else
            GUICtrlSetData($datasiora, _Now())
            GUICtrlSetData($t_datasiora, _Now())

            
            
            Global $check

If $check = 1 Then
    ;MsgBox (1, "sdsad", "nimic de schimbat")

Else



    _GUICtrlListView_DeleteAllItems($listatickete) ;sterge toate itemele din lista
    If Not _EzMySql_Startup() Then
    MsgBox(0, "Error Starting MySql", "Error: "& @error & @CR & "Error string: " & _EzMySql_ErrMsg())
    Exit
EndIf

$Pass = "QCaRTrF4VzaRUcWQ"

        If Not _EzMySql_Open("dettmysql.tt.de.ifm", "rocimpma", $Pass, "sibiu", "3308") Then
        MsgBox(0, "Error opening Database", "Error: "& @error & @CR & "Error string: " & _EzMySql_ErrMsg())
        Exit
        EndIf

    $sMySqlStatement ="yg"


        $interogare = "SELECT id, categorie, prioritate,status,titlu,echipament,responsabil,data_creare,autor_ticket FROM `tichete` WHERE control_id<2 ORDER BY `prioritate` ASC "



        $laOk = _EzMySql_GetTable2d($interogare)

        _EzMySql_Close()
_EzMySql_ShutDown()
        $error = @error
        If Not IsArray($laOk) Then MsgBox(0, $sMySqlStatement & " error", $error)

         Global $iRows = UBound($laOk, $UBOUND_ROWS)
         ;MsgBox (1, "Numar corect 55", $iRows)

        _GUICtrlListView_SetItemCount($listatickete, 5000)
        _GUICtrlListView_AddArray($listatickete, $laOk)
        _GUICtrlListView_DeleteItem($listatickete, 0) ; sterge primu element (colum header)




EndIf
;MsgBox (1, "5435", "Am adaugat")

;MsgBox (1, "sdsad", "stau un pic si mai fac o interogare sa vad daca s-a schimbat ceva")
Sleep (1000)

If Not _EzMySql_Startup() Then
    MsgBox(0, "Error Starting MySql", "Error: "& @error & @CR & "Error string: " & _EzMySql_ErrMsg())
    Exit
EndIf

$Pass = "QCaRTrF4VzaRUcWQ"

        If Not _EzMySql_Open("dettmysql.tt.de.ifm", "rocimpma", $Pass, "sibiu", "3308") Then
        MsgBox(0, "Error opening Database", "Error: "& @error & @CR & "Error string: " & _EzMySql_ErrMsg())
        Exit
        EndIf

    $sMySqlStatement ="yg"


        $interogare = "SELECT id, categorie, prioritate,status,titlu,echipament,responsabil,data_creare,autor_ticket FROM `tichete` WHERE control_id<2 ORDER BY `prioritate` ASC "



        $laOk = _EzMySql_GetTable2d($interogare)
        _EzMySql_Close()
_EzMySql_ShutDown()
        $error = @error
        If Not IsArray($laOk) Then MsgBox(0, $sMySqlStatement & " error", $error)

         Global $iRows1 = UBound($laOk, $UBOUND_ROWS)
        ; MsgBox (1, "Numar corect 95", $iRows1)


If $iRows = $iRows1 Then
    ; MsgBox (1, "Numar corect 99", "egalitate")
    $check = 1

Else
    $check=0




    TrayTip("Ticket Nou", "I'm the message", 15, $TIP_ICONASTERISK)
    ;SELECT categorie, titlu FROM `tichete` ORDER BY id DESC LIMIT 1

EndIf

I know that there I have a Sleep (1000) but why my buttons are not working ok?

Here you have the complete script:

; -- Created with ISN Form Studio 2 for ISN AutoIt Studio -- ;
#include <StaticConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Include <GuiButton.au3>
#include <GuiListView.au3>
#include <GuiTab.au3>
#include <EditConstants.au3>
#include <ComboConstants.au3>
#include "EzMySql.au3"
#include <Array.au3>
#include <Date.au3>
#include "live1.au3"





$main = GUICreate("main",843,580,-1,-1,-1,-1)
GUISetBkColor(0xD9E5F3,$main)
$tab = GUICtrlCreatetab(20,90,798,485,-1,-1)
GuiCtrlSetState(-1,2048)
GUICtrlSetFont(-1,12,700,0,"Calibri")
GUICtrlSetBkColor(-1,"0x35C8B9")
GUICtrlCreateTabItem("Cautare Material")
GUICtrlCreateTabItem("Adaugare Material")
GUICtrlCreateTabItem("Ticket Nou")
GUICtrlCreateTabItem("Lista Tickete")
GUICtrlCreateTabItem("Rapoarte")
GUICtrlCreateTabItem("Istoric Echipamente")
GUICtrlCreateTabItem("Arhive")
GUICtrlCreateTabItem("")
_GUICtrlTab_SetCurFocus($tab,-1)
GUICtrlCreatePic("D:\rocimpma\Desktop\program-2016-03-21\program\Images\logo.jpg",0,0,843,63,-1,-1)
GUISwitch($main,_GUICtrlTab_SetCurFocus($tab,4)&GUICtrlRead ($tab, 1))
GUICtrlCreateButton("My Text",92,153,100,30,-1,-1)
GUICtrlCreateButton("My Text",112,193,100,30,-1,-1)
GUISwitch($main,_GUICtrlTab_SetCurFocus($tab,5)&GUICtrlRead ($tab, 1))
GUICtrlCreateLabel("iesiri piese de schimb",88,153,154,15,-1,-1)
GUICtrlSetBkColor(-1,"-2")
GUISwitch($main,_GUICtrlTab_SetCurFocus($tab,0)&GUICtrlRead ($tab, 1))
$lista = GUICtrlCreatelistview("CUI  |Denumire           |Tip                |Producator   |Cod Prod.      |Distribuitor  |Cod Dis.      |Cod SAP      |Cod BM     |Locatie     |Cantitate|Stoc Min. |U.M. |Data                     |Adaugat de",47,168,738,276,$LVS_NOLABELWRAP,BitOr($LVS_EX_FULLROWSELECT,$LVS_EX_GRIDLINES))
GUICtrlSetBkColor(-1,"0xEAFBFF")
GUISwitch($main,_GUICtrlTab_SetCurFocus($tab,5)&GUICtrlRead ($tab, 1))
GUICtrlCreateLabel("intrari piese de schimb",72,208,154,15,-1,-1)
GUICtrlSetBkColor(-1,"-2")
GUISwitch($main,_GUICtrlTab_SetCurFocus($tab,0)&GUICtrlRead ($tab, 1))
$filtrare = GUICtrlCreateInput("",112,128,150,25,-1,$WS_EX_CLIENTEDGE)
GUICtrlSetFont(-1,12,400,0,"Calibri")

GUISwitch($main,_GUICtrlTab_SetCurFocus($tab,5)&GUICtrlRead ($tab, 1))
GUICtrlCreateLabel("interventii piese de schimb",72,268,154,15,-1,-1)
GUICtrlSetBkColor(-1,"-2")
GUISwitch($main,_GUICtrlTab_SetCurFocus($tab,0)&GUICtrlRead ($tab, 1))
GUICtrlCreateLabel("Keyword:",47,131,144,25,-1,-1)
GUICtrlSetFont(-1,12,400,0,"Calibri")
GUICtrlSetBkColor(-1,"-2")
$go = GUICtrlCreateButton("GO!",267,128,32,25,-1,-1)
GUICtrlSetBkColor(-1,"0xFDBA55")
$iesire1 = GUICtrlCreateButton("Iesire 1 u.m.",63,483,137,25,-1,-1)
GUICtrlSetBkColor(-1,"0x80FF00")
$iesirenr = GUICtrlCreateInput("",63,522,48,25,-1,$WS_EX_CLIENTEDGE) ;;;;;
GUICtrlSetFont(-1,12,400,0,"Calibri")
$iesirenrb = GUICtrlCreateButton("Iesire",152,522,48,25,-1,-1)
GUICtrlSetBkColor(-1,"0x00FFFF")
GUICtrlCreateLabel("u.m.",119,528,30,15,-1,-1)
GUICtrlSetFont(-1,10,400,0,"MS Sans Serif")
GUICtrlSetBkColor(-1,"-2")

GUICtrlCreateButton("Iesire 1 u.m.",370,598,137,25,-1,-1)
$intrare1 = GUICtrlCreateButton("Intrare 1 u.m.",633,483,137,25,-1,-1)
GUICtrlSetBkColor(-1,"0x80FF00")
$intrarenr = GUICtrlCreateInput("",633,522,48,25,-1,$WS_EX_CLIENTEDGE)
GUICtrlSetFont(-1,12,400,0,"Calibri")
GUICtrlCreateLabel("u.m.",688,528,30,15,-1,-1)
GUICtrlSetFont(-1,10,400,0,"MS Sans Serif")
GUICtrlSetBkColor(-1,"-2")
GUICtrlCreateButton("Iesire",339,611,48,25,-1,-1)
$intrarenrb = GUICtrlCreateButton("Intrare",722,522,48,25,-1,-1)
GUICtrlSetBkColor(-1,"0x00FFFF")
GUICtrlCreateGroup("Operatii",47,456,741,100,-1,-1)
GUICtrlSetFont(-1,10,400,0,"Calibri")
GUICtrlSetBkColor(-1,"0xFFFFFE")
$sterge = GUICtrlCreateButton("Stergere pozitie",268,483,99,25,-1,-1)
GUICtrlSetBkColor(-1,"0xFF0000")
GUISwitch($main,_GUICtrlTab_SetCurFocus($tab,1)&GUICtrlRead ($tab, 1))
GUICtrlCreateLabel("Denumire:",47,168,72,25,-1,-1)
GUICtrlSetFont(-1,13,400,0,"Calibri")
GUICtrlSetBkColor(-1,"-2")
GUICtrlCreateLabel("Tip:",47,206,72,25,-1,-1)
GUICtrlSetFont(-1,13,400,0,"Calibri")
GUICtrlSetBkColor(-1,"-2")
$denumire = GUICtrlCreateInput("",142,168,150,23,-1,$WS_EX_CLIENTEDGE)
GUICtrlSetFont(-1,12,400,0,"Calibri")
GUICtrlSetBkColor(-1,"0xD3F4FE")
GUICtrlCreateLabel("Producator:",47,244,95,25,-1,-1)
GUICtrlSetFont(-1,13,400,0,"Calibri")
GUICtrlSetBkColor(-1,"-2")
$tip = GUICtrlCreateInput("",142,206,150,23,-1,$WS_EX_CLIENTEDGE)
GUICtrlSetFont(-1,12,400,0,"Calibri")
GUICtrlSetBkColor(-1,"0xD3F4FE")
$producator = GUICtrlCreateInput("",142,244,150,23,-1,$WS_EX_CLIENTEDGE)
GUICtrlSetFont(-1,12,400,0,"Calibri")
GUICtrlSetBkColor(-1,"0xD3F4FE")
GUICtrlCreateLabel("Distribuitor:",47,282,95,25,-1,-1)
GUICtrlSetFont(-1,13,400,0,"Calibri")
GUICtrlSetBkColor(-1,"-2")
$distribuitor = GUICtrlCreateInput("",142,282,150,23,-1,$WS_EX_CLIENTEDGE)
GUICtrlSetFont(-1,12,400,0,"Calibri")
GUICtrlSetBkColor(-1,"0xD3F4FE")
GUICtrlCreateLabel("Cod Producator:",490,168,119,25,-1,-1)
GUICtrlSetFont(-1,13,400,0,"Calibri")
GUICtrlSetBkColor(-1,"-2")
$codproducator = GUICtrlCreateInput("",620,168,150,23,-1,$WS_EX_CLIENTEDGE)
GUICtrlSetFont(-1,12,400,0,"Calibri")
GUICtrlSetBkColor(-1,"0xD3F4FE")
GUICtrlCreateLabel("Cod Distribuitor",490,206,119,25,-1,-1)
GUICtrlSetFont(-1,13,400,0,"Calibri")
GUICtrlSetBkColor(-1,"-2")
$coddistribuitor = GUICtrlCreateInput("",620,206,150,23,-1,$WS_EX_CLIENTEDGE)
GUICtrlSetFont(-1,12,400,0,"Calibri")
GUICtrlSetBkColor(-1,"0xD3F4FE")
GUICtrlCreateLabel("Cod SAP:",490,244,119,25,-1,-1)
GUICtrlSetFont(-1,13,400,0,"Calibri")
GUICtrlSetBkColor(-1,"-2")
$codsap = GUICtrlCreateInput("",620,244,150,23,-1,$WS_EX_CLIENTEDGE)
GUICtrlSetFont(-1,12,400,0,"Calibri")
GUICtrlSetBkColor(-1,"0xD3F4FE")
GUICtrlCreateLabel("Cod BM:",490,282,119,25,-1,-1)
GUICtrlSetFont(-1,13,400,0,"Calibri")
GUICtrlSetBkColor(-1,"-2")
$codbm = GUICtrlCreateInput("",620,282,150,23,-1,$WS_EX_CLIENTEDGE)
GUICtrlSetFont(-1,12,400,0,"Calibri")
GUICtrlSetBkColor(-1,"0xD3F4FE")
GUICtrlCreateLabel("Cantitate:",47,352,95,25,-1,-1)
GUICtrlSetFont(-1,13,400,0,"Calibri")
GUICtrlSetBkColor(-1,"-2")
$cantitate = GUICtrlCreateInput("",142,352,63,23,-1,$WS_EX_CLIENTEDGE)
GUICtrlSetFont(-1,12,400,0,"Calibri")
GUICtrlSetBkColor(-1,"0xD3F4FE")
GUICtrlCreateLabel("U.M.:",47,390,95,25,-1,-1)
GUICtrlSetFont(-1,13,400,0,"Calibri")
GUICtrlSetBkColor(-1,"-2")
$um = GUICtrlCreateInput("",142,390,63,23,$ES_LOWERCASE,$WS_EX_CLIENTEDGE)
GUICtrlSetFont(-1,12,400,0,"Calibri")
GUICtrlSetBkColor(-1,"0xD3F4FE")
$stocminim = GUICtrlCreateInput("",142,428,63,23,-1,$WS_EX_CLIENTEDGE)
GUICtrlSetFont(-1,12,400,0,"Calibri")
GUICtrlSetBkColor(-1,"0xD3F4FE")
GUICtrlCreateLabel("Stoc Minim:",47,428,95,25,-1,-1)
GUICtrlSetFont(-1,13,400,0,"Calibri")
GUICtrlSetBkColor(-1,"-2")
GUICtrlCreateLabel("Locatie:",490,352,119,25,-1,-1)
GUICtrlSetFont(-1,13,400,0,"Calibri")
GUICtrlSetBkColor(-1,"-2")
;$detalii = GUICtrlCreateInput("",142,466,150,70,-1,$WS_EX_CLIENTEDGE)
;GUICtrlSetFont(-1,12,400,0,"Calibri")
;GUICtrlSetBkColor(-1,"0xD3F4FE")
GUICtrlCreateLabel("Detalii:",47,466,95,25,-1,-1)
GUICtrlSetFont(-1,13,400,0,"Calibri")
GUICtrlSetBkColor(-1,"-2")
$locatie = GUICtrlCreateCombo("",620,352,150,23,-1,-1)
GUICtrlSetData(-1,"DL-1-R1-A|DL-1-R1-B|DL-1-R2-A|DL-1-R2-B|DL-1-R3-A|DL-1-R3-B|DL-1-R4-A|DL-1-R4-B|DL-1-R5-A|DL-1-R5-B" & _
"|DL-2-R1-A|DL-2-R1-B|DL-2-R2-A|DL-2-R2-B|DL-2-R3-A|DL-2-R3-B|DL-2-R4-A|DL-2-R4-B|DL-2-R5-A|DL-2-R5-B" & _
"|DL-3-R1-A|DL-3-R1-B|DL-3-R2-A|DL-3-R2-B|DL-3-R3-A|DL-3-R3-B|DL-3-R4-A|DL-3-R4-B|DL-3-R5-A|DL-3-R5-B|")


GUICtrlSetFont(-1,10,400,0,"Verdana")
GUICtrlSetBkColor(-1,"0xFFA851")






GUICtrlSetFont(-1,12,400,0,"Calibri")
GUICtrlSetBkColor(-1,"0xD3F4FE")
GUICtrlCreateLabel("Data si ora:",490,390,119,25,-1,-1)
GUICtrlSetFont(-1,13,400,0,"Calibri")
GUICtrlSetBkColor(-1,"-2")
$datasiora = GUICtrlCreateInput(_Now() ,620,390,150,23,$ES_READONLY,$WS_EX_CLIENTEDGE)
GUICtrlSetFont(-1,12,400,0,"Calibri")
GUICtrlSetBkColor(-1,"0xD3F4FE")
GUICtrlCreateLabel("Autor:",490,428,119,25,-1,-1)
GUICtrlSetFont(-1,13,400,0,"Calibri")
GUICtrlSetBkColor(-1,"-2")
$autor = GUICtrlCreateInput(@Username,620,428,150,23,$ES_READONLY,$WS_EX_CLIENTEDGE)
GUICtrlSetFont(-1,12,400,0,"Calibri")
GUICtrlSetBkColor(-1,"0xD3F4FE")
$adaugare = GUICtrlCreateButton("Adaugare",584,508,137,25,-1,-1)
GUICtrlSetBkColor(-1,"0x80FF00")
$reset =GUICtrlCreateButton("Resetare Campuri",421,508,137,25,-1,-1)
GUICtrlSetBkColor(-1,"0xFFFF00")
GUISwitch($main,_GUICtrlTab_SetCurFocus($tab,2)&GUICtrlRead ($tab, 1))
GUICtrlCreateLabel("Titlu:",43,188,72,25,-1,-1)
GUICtrlSetFont(-1,13,400,0,"Calibri")
GUICtrlSetBkColor(-1,"-2")
$t_titlu = GUICtrlCreateInput("",192,188,150,23,-1,$WS_EX_CLIENTEDGE)
GUICtrlSetLimit(-1, 20)
GUICtrlSetFont(-1,12,400,0,"Calibri")
GUICtrlSetBkColor(-1,"0xD3FFD2")
GUICtrlCreateLabel("Prioritate:",43,226,167,88,-1,-1)
GUICtrlSetFont(-1,13,400,0,"Calibri")
GUICtrlSetBkColor(-1,"-2")
$t_descriere = GUICtrlCreateInput("",191,264,235,106,BitOr($ES_LOWERCASE,$ES_MULTILINE),$WS_EX_CLIENTEDGE)
GUICtrlSetFont(-1,12,400,0,"Calibri")
GUICtrlSetBkColor(-1,"0xD3FFD2")
$t_prioritate = GUICtrlCreateCombo("",191,226,151,27,-1,-1)
GUICtrlSetData(-1,"Mare|Medie|Mica")
GUICtrlSetFont(-1,12,400,0,"Calibri")
GUICtrlSetBkColor(-1,"0xD3FFD2")
GUICtrlCreateLabel("Recurent:",159,635,183,25,-1,-1)
GUICtrlSetFont(-1,13,400,0,"Calibri")
GUICtrlSetBkColor(-1,"-2")
GUICtrlCreateLabel("Descriere:",43,264,72,25,-1,-1)
GUICtrlSetFont(-1,13,400,0,"Calibri")
GUICtrlSetBkColor(-1,"-2")
GUICtrlCreateLabel("Echipament:",43,383,99,25,-1,-1)
GUICtrlSetFont(-1,13,400,0,"Calibri")
GUICtrlSetBkColor(-1,"-2")
$t_echipament = GUICtrlCreateCombo("Alege sau scrie",192,383,150,23,-1,$WS_EX_CLIENTEDGE)
GUICtrlSetData(-1,"ABG8|PUR23|PRESA MONTARE|SAUNA|HV|IPS6|PACKING|TESTARE MANUALA|TOPEX|MASINA DE GAURIT|UV|STATII COSITORIRE|ALTELE")
GUICtrlSetFont(-1,12,400,0,"Calibri")
GUICtrlSetBkColor(-1,"0xD3FFD2")
GUICtrlCreateLabel("Comanda:",41,445,99,25,-1,-1)
GUICtrlSetFont(-1,13,400,0,"Calibri")
GUICtrlSetBkColor(-1,"-2")
$t_comanda = GUICtrlCreateInput("",190,445,150,23,-1,$WS_EX_CLIENTEDGE)
GUICtrlSetFont(-1,12,400,0,"Calibri")
GUICtrlSetBkColor(-1,"0xD3FFD2")
GUICtrlCreateLabel("Material:",41,483,99,25,-1,-1)
GUICtrlSetFont(-1,13,400,0,"Calibri")
GUICtrlSetBkColor(-1,"-2")
$t_material = GUICtrlCreateInput("",190,483,150,23,-1,$WS_EX_CLIENTEDGE)
GUICtrlSetFont(-1,12,400,0,"Calibri")
GUICtrlSetBkColor(-1,"0xD3FFD2")
GUICtrlCreateLabel("Autor:",493,150,63,25,-1,-1)
GUICtrlSetFont(-1,13,400,0,"Calibri")
GUICtrlSetBkColor(-1,"-2")
$t_autor = GUICtrlCreateInput("",609,150,150,23,-1,$WS_EX_CLIENTEDGE)
GUICtrlSetFont(-1,12,400,0,"Calibri")
GUICtrlSetBkColor(-1,"0xD3FFD2")
$t_termen = GUICtrlCreateInput("",609,226,150,23,-1,$WS_EX_CLIENTEDGE)
GUICtrlSetFont(-1,12,400,0,"Calibri")
GUICtrlSetBkColor(-1,"0xD3FFD2")
GUICtrlCreateLabel("Data si ora:",493,264,91,24,-1,-1)
GUICtrlSetFont(-1,13,400,0,"Calibri")
GUICtrlSetBkColor(-1,"-2")
$t_datasiora = GUICtrlCreateInput("",609,264,150,23,$ES_READONLY,$WS_EX_CLIENTEDGE)
GUICtrlSetFont(-1,12,400,0,"Calibri")
GUICtrlSetBkColor(-1,"0xD3FFD2")
GUICtrlCreateLabel("Status TS:",493,302,91,24,-1,-1)
GUICtrlSetFont(-1,13,400,0,"Calibri")
GUICtrlSetBkColor(-1,"-2")
GUICtrlCreateLabel("Categorie ticket:",43,150,167,26,-1,-1)
GUICtrlSetFont(-1,13,400,0,"Calibri")
GUICtrlSetBkColor(-1,"-2")
GUICtrlCreateLabel("Disponibil",609,302,91,24,-1,-1)
GUICtrlSetFont(-1,13,700,0,"Calibri")
GUICtrlSetColor(-1,"0x00FF13")
GUICtrlSetBkColor(-1,"-2")
$t_categorie = GUICtrlCreateCombo("",191,150,151,21,-1,-1)
GUICtrlSetData(-1,"Defect|Imbunatatire|Preventiv|Comanda|Altele")
GUICtrlSetFont(-1,12,400,0,"Calibri")
GUICtrlSetBkColor(-1,"0xD3FFD2")
$t_reset = GUICtrlCreateButton("Resetare Campuri",421,510,137,25,-1,-1)
GUICtrlSetBkColor(-1,"0xFFFF00")
GUICtrlCreateLabel("Responsabil:",493,188,91,24,-1,-1)
GUICtrlSetFont(-1,13,400,0,"Calibri")
GUICtrlSetBkColor(-1,"-2")
$t_trimite = GUICtrlCreateButton("Trimite",584,510,137,25,-1,-1)
GUICtrlSetBkColor(-1,"0x80FF00")
$t_responsabil = GUICtrlCreateInput("oricine",609,188,150,23,-1,$WS_EX_CLIENTEDGE)
GUICtrlSetFont(-1,12,400,0,"Calibri")
GUICtrlSetBkColor(-1,"0xD3FFD2")
GUICtrlCreateLabel("",312,389,75,25,-1,-1)
GUICtrlSetFont(-1,13,400,0,"Calibri")
GUICtrlSetBkColor(-1,"-2")
GUICtrlCreateLabel("Termen:",493,226,91,24,-1,-1)
GUICtrlSetFont(-1,13,400,0,"Calibri")
GUICtrlSetBkColor(-1,"-2")
GUISwitch($main,_GUICtrlTab_SetCurFocus($tab,1)&GUICtrlRead ($tab, 1))
$detalii = GUICtrlCreateInput("",142,466,150,70,BitOr($ES_MULTILINE,$WS_VSCROLL),$WS_EX_CLIENTEDGE)
GUICtrlSetFont(-1,12,400,0,"Calibri")
GUICtrlSetBkColor(-1,"0xD3F4FE")

$tezt = GUISwitch($main,_GUICtrlTab_SetCurFocus($tab,0)&GUICtrlRead ($tab, 1))
$detaliib = GUICtrlCreateButton("Detalii....",268,522,99,25,-1,-1)
GUICtrlSetBkColor(-1,"0xFFFF00")
GUISwitch($main,_GUICtrlTab_SetCurFocus($tab,3)&GUICtrlRead ($tab, 1))






$listatickete = GUICtrlCreatelistview("CUI|Categorie      |Prioritate|Status       |Titlu                  |Echipament|Responsabil|Data                          |Creat de        ",48,133,741,369,$LVS_NOLABELWRAP,BitOr($LVS_EX_FULLROWSELECT,$LVS_EX_GRIDLINES))

GUICtrlSetState(-1,BitOr($GUI_SHOW,$GUI_ENABLE,$GUI_DEFBUTTON))
GUICtrlSetBkColor(-1,"0xD3FFD2")
$preluareticket = GUICtrlCreateButton("Preluare Ticket",61,532,137,25,-1,-1)
GUICtrlSetBkColor(-1,"0x80FF00")
GUICtrlCreateGroup("Operatii",48,510,741,61,-1,-1)
GUICtrlSetFont(-1,10,400,0,"Calibri")
GUICtrlSetBkColor(-1,"0xFFFFFE")
$ticketedeschise = GUICtrlCreateButton("Tickete Deschise",639,532,137,25,-1,-1)
GUICtrlSetBkColor(-1,"0x00FFFF")
$inchidereticket = GUICtrlCreateButton("Inchidere Ticket",215,532,137,25,-1,-1)
GUICtrlSetBkColor(-1,"0xFFFF00")


_GUICtrlTab_SetCurFocus($tab,0)
GUISetState(@SW_SHOW,$main)





Func Database_start()

If Not _EzMySql_Startup() Then
    MsgBox(0, "Error Starting MySql", "Error: "& @error & @CR & "Error string: " & _EzMySql_ErrMsg())
    Exit
EndIf

$Pass = "QCaRTrF4VzaRUcWQ"

        If Not _EzMySql_Open("127.0.0.1", "rocimpma", $Pass, "sibiu", "3308") Then
        MsgBox(0, "Error opening Database", "Error: "& @error & @CR & "Error string: " & _EzMySql_ErrMsg())
        Exit
        EndIf





EndFunc

Func Database_stop()
_EzMySql_Close()
_EzMySql_ShutDown()

EndFunc






While 1




    $nMsg = GUIGetMsg()
    Switch $nMsg        ;daca modific variabila asta, mai imi merg butoanele? sau trebuie sa fac alt swicht
        Case $GUI_EVENT_CLOSE

            Exit

        ;;;Adaugare Material




        Case $reset
        GUICtrlSetData($denumire,"")
        GUICtrlSetData($tip,"")
        GUICtrlSetData($producator,"")
        GUICtrlSetData($codproducator,"")
        GUICtrlSetData($distribuitor,"")
        GUICtrlSetData($coddistribuitor,"")
        GUICtrlSetData($cantitate,"")
        GUICtrlSetData($locatie,"")
        GUICtrlSetData($um,"")
        GUICtrlSetData($codbm,"")
        GUICtrlSetData($stocminim,"")
        GUICtrlSetData($codsap,"")
        GUICtrlSetData($detalii,"")


        Case $Adaugare ;mai jos scriu ce sa se intample in CAZ ca se apasa butonul trimite


            Database_start()


            $denumirex = GUICtrlRead($denumire)
            $denumire1 = "'" & $denumirex & "'"  ; adauga ' la denumire ca sa fie bine interpretat de mysql query

            $tipx = GUICtrlRead($tip)
            $tip1 = "'" & $tipx & "'"

            $producatorx = GUICtrlRead($producator)
            $producator1 = "'" & $producatorx & "'"

            $codproducatorx = GUICtrlRead($codproducator)
            $codproducator1 = "'" & $codproducatorx & "'"

            $distribuitorx = GUICtrlRead($distribuitor)
            $distribuitor1 = "'" & $distribuitorx & "'"

            $coddistribuitorx = GUICtrlRead($coddistribuitor)
            $coddistribuitor1 = "'" & $coddistribuitorx & "'"

            $cantitatex = GUICtrlRead($cantitate)
            $cantitate1 = "'" & $cantitatex & "'"

            $locatiex = GUICtrlRead($locatie)
            $locatie1 = "'" & $locatiex & "'"

            $umx = GUICtrlRead($um)
            $um1 = "'" & $umx & "'"

            $codbmx = GUICtrlRead($codbm)
            $codbm1 = "'" & $codbmx & "'"

            $datasiorax = GUICtrlRead($datasiora)
            $datasiora1 = "'" & $datasiorax & "'"

            $autorx = GUICtrlRead($autor)
            $autor1 = "'" & $autorx & "'"

            $stocminimx = GUICtrlRead($stocminim)
            $stocminim1 = "'" & $stocminimx & "'"

            $codsapx = GUICtrlRead($codsap)
            $codsap1 = "'" & $codsapx & "'"

            $detaliix = GUICtrlRead($detalii)
            $detalii1 = "'" & $detaliix & "'"





            $validare = MsgBox (1, "Adaugare material nou", "Previzualizare" & @CRLF & @CRLF & "DENUMIRE:   " & $denumirex & @CRLF & "CANTITATE:   " & $cantitatex & @CRLF & "LOCATIE:   " & $locatiex )

            if $validare = 2 then
            beep (1500, 150)
            Else

            $sMySqlStatement = "INSERT INTO `materiale` (`id`, `denumire`, `tip`, `producator`, `codproducator`, `distribuitor`, `coddistribuitor`, `codsap`, `codbm`, `cantitate`, `um`, `stocminim`, `locatie`, `datasiora`, `autor`, `detalii`) VALUES (NULL, " & $denumire1 & ", " & $tip1 & ", " & $producator1 & ", " & $codproducator1 & ", " & $distribuitor1 & ", " & $coddistribuitor1 & ", " & $codsap1 & ", " & $codbm1 & ", " & $cantitate1 & ", " & $um1 & ", " & $stocminim1 & ", " & $locatie1 & ", " & $datasiora1 & ", " & $autor1 & ", " & $detalii1 & ");"

            If Not _EzMySql_Exec($sMySqlStatement) Then
            MsgBox(0, "Error Creating Database Table", "Error: "& @error & @CR & "Error string: " & _EzMySql_ErrMsg())
            Exit
            EndIf
beep (2500, 100)
Database_start()


            EndIf


            ;;;Cautare material

        Case $go


        Database_start()

        $filtrarex = GUICtrlRead($filtrare)
            $filtrare1 = "'%" & $filtrarex & "%'"

        _GUICtrlListView_DeleteAllItems($lista) ;sterge toate itemele din lista

        $sMySqlStatement ="yg"


        $interogare = "SELECT `id`, `denumire`, `tip`, `producator`, `codproducator`, `distribuitor`, `coddistribuitor`, `codsap`, `codbm`, `locatie`, `cantitate`, `stocminim`, `um`, `datasiora`, `autor` FROM `materiale` WHERE denumire LIKE "& $filtrare1 & " OR tip LIKE "& $filtrare1 & " OR producator LIKE "& $filtrare1 & "OR id LIKE "& $filtrare1 & " OR autor LIKE "& $filtrare1 & "OR codproducator LIKE "& $filtrare1 & " OR distribuitor LIKE "& $filtrare1 & "OR coddistribuitor LIKE "& $filtrare1 & " OR datasiora LIKE "& $filtrare1 & " OR locatie LIKE "& $filtrare1 & ""



        $aOk = _EzMySql_GetTable2d($interogare)
        $error = @error
        If Not IsArray($aOk) Then MsgBox(0, $sMySqlStatement & " error", $error)



        _GUICtrlListView_SetItemCount($lista, 5000)

        ; One column load

        $iTimer = TimerInit()
        _GUICtrlListView_AddArray($lista, $aOk)
        MsgBox($MB_SYSTEMMODAL, "Information", "Load time: " & TimerDiff($iTimer) / 1000 & " seconds")

        Sleep (50)
        _GUICtrlListView_DeleteItem($lista, 0) ; sterge primu element (colum header)
                _EzMySql_Close()
_EzMySql_ShutDown()
;
        Case $iesire1



         $ab = _GUICtrlListView_GetItemTextArray($lista,-1)



    Database_start()



        ;$ab[1] este id-ul(cui-ul) la randul selectat



            $iesire1st = "UPDATE materiale SET cantitate=cantitate-1 WHERE id= "& $ab[1]  &""

            If Not _EzMySql_Exec($iesire1st) Then
            MsgBox(0, "Error Creating Database Table", "Error: "& @error & @CR & "Error string: " & _EzMySql_ErrMsg())
            Exit
            EndIf



        ;Refresh la lista
    $filtrarex = GUICtrlRead($filtrare)
            $filtrare1 = "'%" & $filtrarex & "%'"

        _GUICtrlListView_DeleteAllItems($lista) ;sterge toate itemele din lista


        Database_start()


        $sMySqlStatement ="yg"


        $interogare = "SELECT `id`, `denumire`, `tip`, `producator`, `codproducator`, `distribuitor`, `coddistribuitor`, `codsap`, `codbm`, `locatie`, `cantitate`, `stocminim`, `um`, `datasiora`, `autor` FROM `materiale` WHERE denumire LIKE "& $filtrare1 & " OR tip LIKE "& $filtrare1 & " OR producator LIKE "& $filtrare1 & "OR id LIKE "& $filtrare1 & " OR autor LIKE "& $filtrare1 & "OR codproducator LIKE "& $filtrare1 & " OR distribuitor LIKE "& $filtrare1 & "OR coddistribuitor LIKE "& $filtrare1 & " OR datasiora LIKE "& $filtrare1 & " OR locatie LIKE "& $filtrare1 & ""



        $aOk = _EzMySql_GetTable2d($interogare)
        $error = @error
        If Not IsArray($aOk) Then MsgBox(0, $sMySqlStatement & " error", $error)



        _GUICtrlListView_SetItemCount($lista, 5000)

        ; One column load

        ;$iTimer = TimerInit()
        _GUICtrlListView_AddArray($lista, $aOk)
        ;MsgBox($MB_SYSTEMMODAL, "Information", "Load time: " & TimerDiff($iTimer) / 1000 & " seconds")

        Sleep (50)
        _GUICtrlListView_DeleteItem($lista, 0) ; sterge primu element (colum header)
        _EzMySql_Close()
_EzMySql_ShutDown()

        Case $iesirenrb


         $ab = _GUICtrlListView_GetItemTextArray($lista,-1)



    Database_start()



        ;$ab[1] este id-ul(cui-ul) la randul selectat

        ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
        $iesirenrx = GUICtrlRead($iesirenr)
        $iesirenr1 = "'" & $iesirenrx & "'"




            $iesire1st = "UPDATE materiale SET cantitate=cantitate-"&$iesirenr1&" WHERE id= "& $ab[1]  &""

            If Not _EzMySql_Exec($iesire1st) Then
            MsgBox(0, "Error Creating Database Table", "Error: "& @error & @CR & "Error string: " & _EzMySql_ErrMsg())
            Exit
            EndIf

        GUICtrlSetData($iesirenr,"")

    ;Refresh la lista
    $filtrarex = GUICtrlRead($filtrare)
            $filtrare1 = "'%" & $filtrarex & "%'"

        _GUICtrlListView_DeleteAllItems($lista) ;sterge toate itemele din lista


        Database_start()


        $sMySqlStatement ="yg"


        $interogare = "SELECT `id`, `denumire`, `tip`, `producator`, `codproducator`, `distribuitor`, `coddistribuitor`, `codsap`, `codbm`, `locatie`, `cantitate`, `stocminim`, `um`, `datasiora`, `autor` FROM `materiale` WHERE denumire LIKE "& $filtrare1 & " OR tip LIKE "& $filtrare1 & " OR producator LIKE "& $filtrare1 & "OR id LIKE "& $filtrare1 & " OR autor LIKE "& $filtrare1 & "OR codproducator LIKE "& $filtrare1 & " OR distribuitor LIKE "& $filtrare1 & "OR coddistribuitor LIKE "& $filtrare1 & " OR datasiora LIKE "& $filtrare1 & " OR locatie LIKE "& $filtrare1 & ""



        $aOk = _EzMySql_GetTable2d($interogare)
        $error = @error
        If Not IsArray($aOk) Then MsgBox(0, $sMySqlStatement & " error", $error)



        _GUICtrlListView_SetItemCount($lista, 5000)

        ; One column load

        ;$iTimer = TimerInit()
        _GUICtrlListView_AddArray($lista, $aOk)
        ;MsgBox($MB_SYSTEMMODAL, "Information", "Load time: " & TimerDiff($iTimer) / 1000 & " seconds")

        Sleep (50)
        _GUICtrlListView_DeleteItem($lista, 0) ; sterge primu element (colum header)







_EzMySql_Close()
_EzMySql_ShutDown()

        Case $detaliib

         $ab = _GUICtrlListView_GetItemTextArray($lista,-1)




        Database_start()



        $interogare = "SELECT `detalii` FROM `materiale`  WHERE id= "& $ab[1]  &""



        $ainterogare = _EzMySql_GetTable2d($interogare)
        $error = @error
        If Not IsArray($ainterogare) Then MsgBox(0, $sMySqlStatement & " error", $error)

        MsgBox (0, "Detalii Material:", $ainterogare[1][0])

        _EzMySql_Close()
_EzMySql_ShutDown()


        Case $sterge


        $ab = _GUICtrlListView_GetItemTextArray($lista,-1)




        If Not _EzMySql_Startup() Then
        MsgBox(0, "Error Starting MySql", "Error: "& @error & @CR & "Error string: " & _EzMySql_ErrMsg())
        Exit
        EndIf

        $Pass = "QCaRTrF4VzaRUcWQ"

        If Not _EzMySql_Open("127.0.0.1", "rocimpma", $Pass, "sibiu", "3308") Then
        MsgBox(0, "Error opening Database", "Error: "& @error & @CR & "Error string: " & _EzMySql_ErrMsg())
        Exit
        EndIf





        $stergeinfo = MsgBox (1, 'Confirmare stergere', 'Sunteti sigur ca doriti sa stergeti pozitia cu denumirea: ' & $ab[2] & '?' )



        if $stergeinfo = 2 then
            beep (1500, 150)
            Else

        $interogare = "DELETE FROM `materiale` WHERE id= "& $ab[1]&""



            If Not _EzMySql_Exec($interogare) Then
            MsgBox(0, "Error Creating Database Table", "Error: "& @error & @CR & "Error string: " & _EzMySql_ErrMsg())
            Exit
            EndIf
        beep (2500, 100)

        EndIf


        ;Refresh la lista
    $filtrarex = GUICtrlRead($filtrare)
            $filtrare1 = "'%" & $filtrarex & "%'"

        _GUICtrlListView_DeleteAllItems($lista) ;sterge toate itemele din lista


        Database_start()


        $sMySqlStatement ="yg"


        $interogare = "SELECT `id`, `denumire`, `tip`, `producator`, `codproducator`, `distribuitor`, `coddistribuitor`, `codsap`, `codbm`, `locatie`, `cantitate`, `stocminim`, `um`, `datasiora`, `autor` FROM `materiale` WHERE denumire LIKE "& $filtrare1 & " OR tip LIKE "& $filtrare1 & " OR producator LIKE "& $filtrare1 & "OR id LIKE "& $filtrare1 & " OR autor LIKE "& $filtrare1 & "OR codproducator LIKE "& $filtrare1 & " OR distribuitor LIKE "& $filtrare1 & "OR coddistribuitor LIKE "& $filtrare1 & " OR datasiora LIKE "& $filtrare1 & " OR locatie LIKE "& $filtrare1 & ""



        $aOk = _EzMySql_GetTable2d($interogare)
        $error = @error
        If Not IsArray($aOk) Then MsgBox(0, $sMySqlStatement & " error", $error)



        _GUICtrlListView_SetItemCount($lista, 5000)

        ; One column load

        ;$iTimer = TimerInit()
        _GUICtrlListView_AddArray($lista, $aOk)
        ;MsgBox($MB_SYSTEMMODAL, "Information", "Load time: " & TimerDiff($iTimer) / 1000 & " seconds")

        Sleep (50)
        _GUICtrlListView_DeleteItem($lista, 0) ; sterge primu element (colum header)







_EzMySql_Close()
_EzMySql_ShutDown()



        Case $intrare1




         $ab = _GUICtrlListView_GetItemTextArray($lista,-1)



    Database_start()



        ;$ab[1] este id-ul(cui-ul) la randul selectat



            $iesire1st = "UPDATE materiale SET cantitate=cantitate+1 WHERE id= "& $ab[1]  &""

            If Not _EzMySql_Exec($iesire1st) Then
            MsgBox(0, "Error Creating Database Table", "Error: "& @error & @CR & "Error string: " & _EzMySql_ErrMsg())
            Exit
            EndIf



        ;Refresh la lista
    $filtrarex = GUICtrlRead($filtrare)
            $filtrare1 = "'%" & $filtrarex & "%'"

        _GUICtrlListView_DeleteAllItems($lista) ;sterge toate itemele din lista


        Database_start()


        $sMySqlStatement ="yg"


        $interogare = "SELECT `id`, `denumire`, `tip`, `producator`, `codproducator`, `distribuitor`, `coddistribuitor`, `codsap`, `codbm`, `locatie`, `cantitate`, `stocminim`, `um`, `datasiora`, `autor` FROM `materiale` WHERE denumire LIKE "& $filtrare1 & " OR tip LIKE "& $filtrare1 & " OR producator LIKE "& $filtrare1 & "OR id LIKE "& $filtrare1 & " OR autor LIKE "& $filtrare1 & "OR codproducator LIKE "& $filtrare1 & " OR distribuitor LIKE "& $filtrare1 & "OR coddistribuitor LIKE "& $filtrare1 & " OR datasiora LIKE "& $filtrare1 & " OR locatie LIKE "& $filtrare1 & ""



        $aOk = _EzMySql_GetTable2d($interogare)
        $error = @error
        If Not IsArray($aOk) Then MsgBox(0, $sMySqlStatement & " error", $error)



        _GUICtrlListView_SetItemCount($lista, 5000)

        ; One column load

        ;$iTimer = TimerInit()
        _GUICtrlListView_AddArray($lista, $aOk)
        ;MsgBox($MB_SYSTEMMODAL, "Information", "Load time: " & TimerDiff($iTimer) / 1000 & " seconds")

        Sleep (50)
        _GUICtrlListView_DeleteItem($lista, 0) ; sterge primu element (colum header)
        _EzMySql_Close()
_EzMySql_ShutDown()


        Case $intrarenrb


         $ab = _GUICtrlListView_GetItemTextArray($lista,-1)



    Database_start()



        ;$ab[1] este id-ul(cui-ul) la randul selectat

        ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
        $intrarenrx = GUICtrlRead($intrarenr)
        $intrarenr1 = "'" & $intrarenrx & "'"




            $iesire1st = "UPDATE materiale SET cantitate=cantitate+"&$intrarenr1&" WHERE id= "& $ab[1]  &""

            If Not _EzMySql_Exec($iesire1st) Then
            MsgBox(0, "Error Creating Database Table", "Error: "& @error & @CR & "Error string: " & _EzMySql_ErrMsg())
            Exit
            EndIf

        GUICtrlSetData($intrarenr,"")

    ;Refresh la lista
    $filtrarex = GUICtrlRead($filtrare)
            $filtrare1 = "'%" & $filtrarex & "%'"

        _GUICtrlListView_DeleteAllItems($lista) ;sterge toate itemele din lista


        Database_start()


        $sMySqlStatement ="yg"


        $interogare = "SELECT `id`, `denumire`, `tip`, `producator`, `codproducator`, `distribuitor`, `coddistribuitor`, `codsap`, `codbm`, `locatie`, `cantitate`, `stocminim`, `um`, `datasiora`, `autor` FROM `materiale` WHERE denumire LIKE "& $filtrare1 & " OR tip LIKE "& $filtrare1 & " OR producator LIKE "& $filtrare1 & "OR id LIKE "& $filtrare1 & " OR autor LIKE "& $filtrare1 & "OR codproducator LIKE "& $filtrare1 & " OR distribuitor LIKE "& $filtrare1 & "OR coddistribuitor LIKE "& $filtrare1 & " OR datasiora LIKE "& $filtrare1 & " OR locatie LIKE "& $filtrare1 & ""



        $aOk = _EzMySql_GetTable2d($interogare)
        $error = @error
        If Not IsArray($aOk) Then MsgBox(0, $sMySqlStatement & " error", $error)



        _GUICtrlListView_SetItemCount($lista, 5000)

        ; One column load

        ;$iTimer = TimerInit()
        _GUICtrlListView_AddArray($lista, $aOk)
        ;MsgBox($MB_SYSTEMMODAL, "Information", "Load time: " & TimerDiff($iTimer) / 1000 & " seconds")

        Sleep (50)
        _GUICtrlListView_DeleteItem($lista, 0) ; sterge primu element (colum header)







_EzMySql_Close()
_EzMySql_ShutDown()


        Case $t_trimite

    Database_start()

            $t_categoriex = GUICtrlRead($t_categorie)
            $t_categorie1 = "'" & $t_categoriex & "'"  ; adauga ' la denumire ca sa fie bine interpretat de mysql query

            $t_titlu1 =  "'" & GUICtrlRead($t_titlu) & "'"  ; adauga ' la denumire ca sa fie bine interpretat de mysql query
            $t_prioritate1 =  "'" & GUICtrlRead($t_prioritate) & "'"
            $t_descriere1 =  "'" & GUICtrlRead($t_descriere) & "'"
            $t_comanda1 =  "'" & GUICtrlRead($t_comanda) & "'"
            $t_material1 =  "'" & GUICtrlRead($t_material) & "'"
            $t_echipament1 =  "'" & GUICtrlRead($t_echipament) & "'"
            $t_autor1 =  "'" & GUICtrlRead($t_autor) & "'"
            $t_responsabil1 =  "'" & GUICtrlRead($t_responsabil) & "'"
            $t_termen1 =  "'" & GUICtrlRead($t_termen) & "'"
            $t_data1 =  "'" & GUICtrlRead($t_datasiora) & "'"

            $t_controlid ="0"
            $t_controlid1=  "'" & GUICtrlRead($t_controlid) & "'"




            ;$t_validare = MsgBox (1, "Trimite ticket nou", "Previzualizare" & @CRLF & @CRLF & "TITLU:   " & $t_titlu & @CRLF & "PRIORITATE:   " & $t_prioritate & @CRLF & "ECHIPAMENT:   " & $t_echipament )

            ;if $t_validare = 2 then
            ;beep (1500, 150)
            ;Else

            $sMySqlStatement = "INSERT INTO `tichete` (`id`, `categorie`, `titlu`, `prioritate`, `descriere`, `comanda`, `material`, `echipament`, `autor_ticket`, `responsabil`, `termen`, `data_creare`, `control_id`) VALUES (NULL, " & $t_categorie1 & ", " & $t_titlu1 & ", " & $t_prioritate1 & ", " & $t_descriere1 & ", " & $t_comanda1 & ", " & $t_material1 & ", " & $t_echipament1 & ", " & $t_autor1 & ", " & $t_responsabil1 & ", " & $t_termen1 & ", " & $t_data1 & ", " & $t_controlid1 & ");"
; , `prioritate`, `descriere`, `comanda`, `material`, `echipament`, `autor_ticket`, `responsabil`, `termen`, `data_creare`
            If Not _EzMySql_Exec($sMySqlStatement) Then
            MsgBox(0, "Error Creating Database Table", "Error: "& @error & @CR & "Error string: " & _EzMySql_ErrMsg())
            Exit
            EndIf
beep (2500, 100)
            _EzMySql_Close()
_EzMySql_ShutDown()


            ;EndIf




        ;Case 3
        ;beep (1000, 1000)

        Case Else
            GUICtrlSetData($datasiora, _Now())
            GUICtrlSetData($t_datasiora, _Now())

            
            
            Global $check

If $check = 1 Then
    ;MsgBox (1, "sdsad", "nimic de schimbat")

Else



    _GUICtrlListView_DeleteAllItems($listatickete) ;sterge toate itemele din lista
    If Not _EzMySql_Startup() Then
    MsgBox(0, "Error Starting MySql", "Error: "& @error & @CR & "Error string: " & _EzMySql_ErrMsg())
    Exit
EndIf

$Pass = "QCaRTrF4VzaRUcWQ"

        If Not _EzMySql_Open("127.0.0.1", "rocimpma", $Pass, "sibiu", "3308") Then
        MsgBox(0, "Error opening Database", "Error: "& @error & @CR & "Error string: " & _EzMySql_ErrMsg())
        Exit
        EndIf

    $sMySqlStatement ="yg"


        $interogare = "SELECT id, categorie, prioritate,status,titlu,echipament,responsabil,data_creare,autor_ticket FROM `tichete` WHERE control_id<2 ORDER BY `prioritate` ASC "



        $laOk = _EzMySql_GetTable2d($interogare)

        _EzMySql_Close()
_EzMySql_ShutDown()
        $error = @error
        If Not IsArray($laOk) Then MsgBox(0, $sMySqlStatement & " error", $error)

         Global $iRows = UBound($laOk, $UBOUND_ROWS)
         ;MsgBox (1, "Numar corect 55", $iRows)

        _GUICtrlListView_SetItemCount($listatickete, 5000)
        _GUICtrlListView_AddArray($listatickete, $laOk)
        _GUICtrlListView_DeleteItem($listatickete, 0) ; sterge primu element (colum header)




EndIf
;MsgBox (1, "5435", "Am adaugat")

;MsgBox (1, "sdsad", "stau un pic si mai fac o interogare sa vad daca s-a schimbat ceva")
Sleep (1000)

If Not _EzMySql_Startup() Then
    MsgBox(0, "Error Starting MySql", "Error: "& @error & @CR & "Error string: " & _EzMySql_ErrMsg())
    Exit
EndIf

$Pass = "QCaRTrF4VzaRUcWQ"

        If Not _EzMySql_Open("127.0.0.1", "rocimpma", $Pass, "sibiu", "3308") Then
        MsgBox(0, "Error opening Database", "Error: "& @error & @CR & "Error string: " & _EzMySql_ErrMsg())
        Exit
        EndIf

    $sMySqlStatement ="yg"


        $interogare = "SELECT id, categorie, prioritate,status,titlu,echipament,responsabil,data_creare,autor_ticket FROM `tichete` WHERE control_id<2 ORDER BY `prioritate` ASC "



        $laOk = _EzMySql_GetTable2d($interogare)
        _EzMySql_Close()
_EzMySql_ShutDown()
        $error = @error
        If Not IsArray($laOk) Then MsgBox(0, $sMySqlStatement & " error", $error)

         Global $iRows1 = UBound($laOk, $UBOUND_ROWS)
        ; MsgBox (1, "Numar corect 95", $iRows1)


If $iRows = $iRows1 Then
    ; MsgBox (1, "Numar corect 99", "egalitate")
    $check = 1

Else
    $check=0




    TrayTip("Ticket Nou", "I'm the message", 15, $TIP_ICONASTERISK)
    ;SELECT categorie, titlu FROM `tichete` ORDER BY id DESC LIMIT 1

EndIf









    EndSwitch

    $ccontrol = GuiCtrlRead($tab)
    Switch $ccontrol

    Case 3
    HotKeySet("{ESC}", "_Exit")
    ;test()
    Func _Exit()
    Exit
EndFunc







    EndSwitch

WEnd

 

Edited by rony2006

Share this post


Link to post
Share on other sites

I tried to make another Switch in the same loop but still the same problem.

If Case 3 (click on tab 3) is activated, the test() is executed ok but the other cases from first switch are working with a big delay.

20k4zo4.png

Share this post


Link to post
Share on other sites

Hello Autobert.

I don't want to interupt the running function. I only want to be able to use other cases when a function is running in background.

Share this post


Link to post
Share on other sites

Whitout using one of these methods you have to wait until sql-query and uodating LV is finished.

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now