rony2006 Posted April 1, 2016 Share Posted April 1, 2016 (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 April 1, 2016 by rony2006 Link to comment Share on other sites More sharing options...
InunoTaishou Posted April 1, 2016 Share Posted April 1, 2016 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. Link to comment Share on other sites More sharing options...
markyrocks Posted April 1, 2016 Share Posted April 1, 2016 (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 April 1, 2016 by markyrocks Spoiler "I Believe array math to be potentially fatal, I may be dying from array math poisoning" Link to comment Share on other sites More sharing options...
rony2006 Posted April 1, 2016 Author Share Posted April 1, 2016 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. Link to comment Share on other sites More sharing options...
rony2006 Posted April 4, 2016 Author Share Posted April 4, 2016 (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: expandcollapse popupCase 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: expandcollapse popup; -- 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 April 4, 2016 by rony2006 Link to comment Share on other sites More sharing options...
rony2006 Posted April 4, 2016 Author Share Posted April 4, 2016 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. Link to comment Share on other sites More sharing options...
AutoBert Posted April 4, 2016 Share Posted April 4, 2016 Using methods described in https://www.autoitscript.com/wiki/Interrupting_a_running_function should help. Link to comment Share on other sites More sharing options...
rony2006 Posted April 4, 2016 Author Share Posted April 4, 2016 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. Link to comment Share on other sites More sharing options...
AutoBert Posted April 4, 2016 Share Posted April 4, 2016 Whitout using one of these methods you have to wait until sql-query and uodating LV is finished. Link to comment Share on other sites More sharing options...
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now