pionner Posted April 18, 2013 Posted April 18, 2013 hello: Am trying to insert a listbox under an inputbox, the idea is that when the user write a letter or any string value, then automatically appear the listbox with the matching results. I was traying to accomplish, but when I insert something it doesn´t stop to flashing. all your comments about it will be appreciated! my code#include [/size] #include #include #include #include #Include global $dato, $handle $hGUI = GUICreate("tester ahora",400,400) $input1 = GUICtrlCreateInput("",0,0,200) $handle = GUICtrlcreateList("hola",0,22,200,100) GUICtrlSetState($handle,$GUI_HIDE) GUISetState() while 1 $nmg = GUIGetMsg() Switch $nmg case $GUI_EVENT_CLOSE exit Case GUICtrlRead($input1) Switch GUICtrlRead($input1) case "" GUICtrlSetState($handle,$GUI_HIDE) case Else GUICtrlSetState($handle,$GUI_SHOw) EndSwitch EndSwitch WEnd
jdelaney Posted April 18, 2013 Posted April 18, 2013 (edited) do a check that the state isn't as expected prior to setting the state Global $dato, $handle $hGUI = GUICreate("tester ahora", 400, 400) $input1 = GUICtrlCreateInput("", 0, 0, 200) $handle = GUICtrlCreateList("hola", 0, 22, 200, 100) GUICtrlSetState($handle, $GUI_HIDE) GUISetState() While 1 $nmg = GUIGetMsg() If $nmg = $GUI_EVENT_CLOSE Then Exit If GUICtrlRead($input1) = "" Then ;~ ConsoleWrite(GUICtrlGetState($handle) & " " & $GUI_HIDE & @CRLF) If BitAND(GUICtrlGetState($handle), $GUI_SHOW) Then GUICtrlSetState($handle, $GUI_HIDE) Else ;~ ConsoleWrite(GUICtrlGetState($handle) & " " & $GUI_SHOW & @CRLF) If BitAND(GUICtrlGetState($handle), $GUI_HIDE) Then GUICtrlSetState($handle, $GUI_SHOW) EndIf WEnd Edited April 18, 2013 by jdelaney IEbyXPATH-Grab IE DOM objects by XPATH IEscriptRecord-Makings of an IE script recorder ExcelFromXML-Create Excel docs without excel installed GetAllWindowControls-Output all control data on a given window.
Moderators Melba23 Posted April 18, 2013 Moderators Posted April 18, 2013 pionner, I wrote this a while ago - it might give you some ideas: expandcollapse popup#include <GUIConstantsEx.au3> Global $hGUI, $hInput, $hList, $sData, $asKeyWords[100] Keywords() $hGUI = GUICreate("Begin with B", 200, 400) $hInput = GUICtrlCreateInput("", 5, 5, 190, 20) $hList = GUICtrlCreateList("", 5, 30, 190, 365, BitOR(0x00100000, 0x00200000)) GUICtrlSetState(-1, $GUI_HIDE) GUISetState(@SW_SHOW, $hGUI) $sCurr_Input = "" $sData = "|" While 1 Switch GUIGetMsg() Case $GUI_EVENT_CLOSE Exit Case $hList $sChosen = GUICtrlRead($hList) If $sChosen <> "" Then GUICtrlSetData($hInput, $sChosen) EndSwitch ; Show/hide list depending on input content and list data If GUICtrlRead($hInput) <> "" And BitAND(GUICtrlGetState($hList), $GUI_HIDE) = $GUI_HIDE And $sData <> "|" Then GUICtrlSetState($hList, $GUI_SHOW) If GUICtrlRead($hInput) = "" And BitAND(GUICtrlGetState($hList), $GUI_SHOW) = $GUI_SHOW Then GUICtrlSetState($hList, $GUI_HIDE) ; If input has changed, refill list with matching items If GUICtrlRead($hInput) <> $sCurr_Input Then CheckInputText() $sCurr_Input = GUICtrlRead($hInput) EndIf WEnd Func Keywords() ; Only items beginning with B created - so able to see what happens when list holds nothing (hides) or lots of data (scrolls) For $i = 0 To 99 $asKeyWords[$i] = "B" & Chr(Random(65, 90, 1)) & Chr(Random(65, 90, 1)) & Chr(Random(65, 90, 1)) & Chr(Random(65, 90, 1)) $sData &= $asKeyWords[$i] & "|" Next GUICtrlSetData($hList, $sData) EndFunc ;==>Keywords Func CheckInputText() $l = StringLen(GUICtrlRead($hInput)) $sData = "|" ; Start with delimiter so new data always replaces aold Local $sInput = GUICtrlRead($hInput) If $sInput <> "" Then For $i = 0 To 99 If StringLeft($asKeyWords[$i], $l) = $sInput Then $sData &= $asKeyWords[$i] & "|" Next GUICtrlSetData($hList, $sData) EndIf EndFunc ;==>CheckInputText M23 Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind Open spoiler to see my UDFs: Spoiler ArrayMultiColSort ---- Sort arrays on multiple columnsChooseFileFolder ---- Single and multiple selections from specified path treeview listingDate_Time_Convert -- Easily convert date/time formats, including the language usedExtMsgBox --------- A highly customisable replacement for MsgBoxGUIExtender -------- Extend and retract multiple sections within a GUIGUIFrame ---------- Subdivide GUIs into many adjustable framesGUIListViewEx ------- Insert, delete, move, drag, sort, edit and colour ListView itemsGUITreeViewEx ------ Check/clear parent and child checkboxes in a TreeViewMarquee ----------- Scrolling tickertape GUIsNoFocusLines ------- Remove the dotted focus lines from buttons, sliders, radios and checkboxesNotify ------------- Small notifications on the edge of the displayScrollbars ----------Automatically sized scrollbars with a single commandStringSize ---------- Automatically size controls to fit textToast -------------- Small GUIs which pop out of the notification area
pionner Posted April 18, 2013 Author Posted April 18, 2013 hey you two ... you are awsome!!!!!!!!!how can i pay your help in this.!!!cheers!! :thumbsup:
guinness Posted April 18, 2013 Posted April 18, 2013 how can i pay your help in this.!!!By donating either your time in helping others or money to the AutoIt project and its developers. UDF List: _AdapterConnections() • _AlwaysRun() • _AppMon() • _AppMonEx() • _ArrayFilter/_ArrayReduce • _BinaryBin() • _CheckMsgBox() • _CmdLineRaw() • _ContextMenu() • _ConvertLHWebColor()/_ConvertSHWebColor() • _DesktopDimensions() • _DisplayPassword() • _DotNet_Load()/_DotNet_Unload() • _Fibonacci() • _FileCompare() • _FileCompareContents() • _FileNameByHandle() • _FilePrefix/SRE() • _FindInFile() • _GetBackgroundColor()/_SetBackgroundColor() • _GetConrolID() • _GetCtrlClass() • _GetDirectoryFormat() • _GetDriveMediaType() • _GetFilename()/_GetFilenameExt() • _GetHardwareID() • _GetIP() • _GetIP_Country() • _GetOSLanguage() • _GetSavedSource() • _GetStringSize() • _GetSystemPaths() • _GetURLImage() • _GIFImage() • _GoogleWeather() • _GUICtrlCreateGroup() • _GUICtrlListBox_CreateArray() • _GUICtrlListView_CreateArray() • _GUICtrlListView_SaveCSV() • _GUICtrlListView_SaveHTML() • _GUICtrlListView_SaveTxt() • _GUICtrlListView_SaveXML() • _GUICtrlMenu_Recent() • _GUICtrlMenu_SetItemImage() • _GUICtrlTreeView_CreateArray() • _GUIDisable() • _GUIImageList_SetIconFromHandle() • _GUIRegisterMsg() • _GUISetIcon() • _Icon_Clear()/_Icon_Set() • _IdleTime() • _InetGet() • _InetGetGUI() • _InetGetProgress() • _IPDetails() • _IsFileOlder() • _IsGUID() • _IsHex() • _IsPalindrome() • _IsRegKey() • _IsStringRegExp() • _IsSystemDrive() • _IsUPX() • _IsValidType() • _IsWebColor() • _Language() • _Log() • _MicrosoftInternetConnectivity() • _MSDNDataType() • _PathFull/GetRelative/Split() • _PathSplitEx() • _PrintFromArray() • _ProgressSetMarquee() • _ReDim() • _RockPaperScissors()/_RockPaperScissorsLizardSpock() • _ScrollingCredits • _SelfDelete() • _SelfRename() • _SelfUpdate() • _SendTo() • _ShellAll() • _ShellFile() • _ShellFolder() • _SingletonHWID() • _SingletonPID() • _Startup() • _StringCompact() • _StringIsValid() • _StringRegExpMetaCharacters() • _StringReplaceWholeWord() • _StringStripChars() • _Temperature() • _TrialPeriod() • _UKToUSDate()/_USToUKDate() • _WinAPI_Create_CTL_CODE() • _WinAPI_CreateGUID() • _WMIDateStringToDate()/_DateToWMIDateString() • Au3 script parsing • AutoIt Search • AutoIt3 Portable • AutoIt3WrapperToPragma • AutoItWinGetTitle()/AutoItWinSetTitle() • Coding • DirToHTML5 • FileInstallr • FileReadLastChars() • GeoIP database • GUI - Only Close Button • GUI Examples • GUICtrlDeleteImage() • GUICtrlGetBkColor() • GUICtrlGetStyle() • GUIEvents • GUIGetBkColor() • Int_Parse() & Int_TryParse() • IsISBN() • LockFile() • Mapping CtrlIDs • OOP in AutoIt • ParseHeadersToSciTE() • PasswordValid • PasteBin • Posts Per Day • PreExpand • Protect Globals • Queue() • Resource Update • ResourcesEx • SciTE Jump • Settings INI • SHELLHOOK • Shunting-Yard • Signature Creator • Stack() • Stopwatch() • StringAddLF()/StringStripLF() • StringEOLToCRLF() • VSCROLL • WM_COPYDATA • More Examples... Updated: 22/04/2018
PhoenixXL Posted April 19, 2013 Posted April 19, 2013 is a UDF written by JscriptIf you want for Edit/RichEdit Control check my signatureRegards My code: PredictText: Predict Text of an Edit Control Like Scite. Remote Gmail: Execute your Scripts through Gmail. StringRegExp:Share and learn RegExp.Run As System: A command line wrapper around PSEXEC.exe to execute your apps scripts as System (LSA). Database: An easier approach for _SQ_LITE beginners. MathsEx: A UDF for Fractions and LCM, GCF/HCF. FloatingText: An UDF for make your text floating. Clipboard Extendor: A clipboard monitoring tool. Custom ScrollBar: Scroll Bar made with GDI+, user can use bitmaps instead. RestrictEdit_SRE: Restrict text in an Edit Control through a Regular Expression.
pionner Posted May 28, 2013 Author Posted May 28, 2013 phoenix: thanks men for your post, just one more question. I have a tab form, but even if I try to set the list box, it does not appear unless I force it to appear by doing click on the inputbox. entire code attached, but I dont have the DB avaiable expandcollapse popup#AutoIt3Wrapper_Compression=0 ;Compression parameter 0-4 0=Low 2=normal 4=High. Default=2 #AutoIt3Wrapper_UseUpx=n ;(Y/N) Compress output program. Default=Y #include <ButtonConstants.au3> #include <ComboConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <TabConstants.au3> #include <WindowsConstants.au3> #include <GUIImagelist.au3> #Include <GuiListView.au3> #Include <GuiListBox.au3> #include <IE.au3> #include <SendMessage.au3> #include <ScreenCapture.au3> #include <Guicomboboxex.au3> #include <String.au3> ;Especiales #include <MySql.au3> #include <GoogleMapsEx2.au3> #include <GUItab.au3> #include <Excel.au3> #include "_UskinLibrary.au3" ;-- _Uskin_LoadDLL() _USkin_Init("C:\Program Files (x86)\AutoIt3\Include\Skins\cosmo.msstyles"); HotKeySet("!b","_Screen_Shot") ;HotKeySet("!c","Import_From_Excel") Dim $flag = @DesktopDir & "\ico\Flag-of-" Dim $msg, $distance, $duration Global $gmap_ctrl,$main_gui, $set_view_button, $set_view_input, $zoom_view_button, $zoom_view_input, $add_marker_button, $add_marker_input,$stext, $Sec_Gui Global $gmap, $AsWords[100], $hList, $sData, $x, $num Global $sql, $Form1_1, $Input1, $combo_set1 $Form1_1 = GUICreate("TerSys - Sistema de Gestión de Territorios", 959, 480, 190, 122) GUISetFont(8, 400, 0, "Arial") RemoveStupidBlaklines($Form1_1) $gmap_ctrl = _GUICtrlGoogleMap_Create($gmap,0,0,538,480,"Guaraparí, Espirito Santo, Brazil") GUISetFont(8, 400, 0, "Arial") GUICtrlSetResizing($gmap_ctrl, $GUI_DOCKTOP) $sql = _MySQLConnect("root","pionner","DB_Territorio","localhost") $Tab1 = GUICtrlCreateTab(536, 0, 417, 481) ;****************** INGRESO ********************** $TabSheet1 = GUICtrlCreateTabItem("Personas ") $Input1 = GUICtrlCreateInput("", 560, 136, 161, 21) $Input2 = GUICtrlCreateInput("", 560, 184, 89, 21) $Label1 = GUICtrlCreateLabel("Dirección", 560, 160, 49, 18) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Label2 = GUICtrlCreateLabel("Pais Procedencia", 744, 112, 87, 18) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $comex = _GUICtrlComboBoxEx_Create($Form1_1, "", 740, 136, 163, 200) $iList = _GUIImageList_Create(16, 16, 5, 3) _GUIImageList_AddIcon($iList, $flag & "Argentina.ico") _GUIImageList_AddIcon($iList, $flag & "Bolivia.ico") _GUIImageList_AddIcon($iList, $flag & "Brazil.ico") _GUIImageList_AddIcon($iList, $flag & "Chile.ico") _GUIImageList_AddIcon($iList, $flag & "Colombia.ico") _GUIImageList_AddIcon($iList, $flag & "Costa-Rica.ico") _GUIImageList_AddIcon($iList, $flag & "Cuba.ico") _GUIImageList_AddIcon($iList, $flag & "Ecuador.ico") _GUIImageList_AddIcon($iList, $flag & "El-Salvador.ico") _GUIImageList_AddIcon($iList, $flag & "Spain.ico") _GUIImageList_AddIcon($iList, $flag & "France.ico") _GUIImageList_AddIcon($iList, $flag & "Guatemala.ico") _GUIImageList_AddIcon($iList, $flag & "Honduras.ico") _GUIImageList_AddIcon($iList, $flag & "Japan.ico") _GUIImageList_AddIcon($iList, $flag & "libano.ico") _GUIImageList_AddIcon($iList, $flag & "Mexico.ico") _GUIImageList_AddIcon($iList, $flag & "Nicaragua.ico") _GUIImageList_AddIcon($iList, $flag & "Panama.ico") _GUIImageList_AddIcon($iList, $flag & "Paraguay.ico") _GUIImageList_AddIcon($iList, $flag & "Peru.ico") _GUIImageList_AddIcon($iList, $flag & "Puerto-Rico.ico") _GUIImageList_AddIcon($iList, $flag & "Republica Dominicana.ico") _GUIImageList_AddIcon($iList, $flag & "Switzerland.ico") _GUIImageList_AddIcon($iList, $flag & "Uruguay.ico") _GUIImageList_AddIcon($iList, $flag & "Timor-Leste.ico") _GUIImageList_AddIcon($iList, $flag & "Venezuela.ico") Local $total = _GUICtrlComboBoxEx_SetImageList($comex, $iList) _GUICtrlComboBoxEx_AddString($comex, "Argentina", 0, 0) _GUICtrlComboBoxEx_AddString($comex, "Bolivia", 1, 1) _GUICtrlComboBoxEx_AddString($comex, "Brasil", 2, 2) _GUICtrlComboBoxEx_AddString($comex, "Chile", 3, 3) _GUICtrlComboBoxEx_AddString($comex, "Colombia", 4, 4) _GUICtrlComboBoxEx_AddString($comex, "Costa-Rica", 5, 5) _GUICtrlComboBoxEx_AddString($comex, "Cuba", 6, 6) _GUICtrlComboBoxEx_AddString($comex, "Ecuador", 7, 7) _GUICtrlComboBoxEx_AddString($comex, "El Salvador", 8, 8) _GUICtrlComboBoxEx_AddString($comex, "España", 9, 9) _GUICtrlComboBoxEx_AddString($comex, "Francia", 10, 10) _GUICtrlComboBoxEx_AddString($comex, "Guatemala", 11, 11) _GUICtrlComboBoxEx_AddString($comex, "Honduras", 12, 12) _GUICtrlComboBoxEx_AddString($comex, "Japón", 13, 13) _GUICtrlComboBoxEx_AddString($comex, "Líbano", 14, 14) _GUICtrlComboBoxEx_AddString($comex, "Mexico",15 , 15) _GUICtrlComboBoxEx_AddString($comex, "Nicaragua", 16, 16) _GUICtrlComboBoxEx_AddString($comex, "Panamá", 17, 17) _GUICtrlComboBoxEx_AddString($comex, "Paraguay",18, 18) _GUICtrlComboBoxEx_AddString($comex, "Peru", 19, 19) _GUICtrlComboBoxEx_AddString($comex, "Puerto Rico", 20, 20) _GUICtrlComboBoxEx_AddString($comex, "Republica Dominicana", 21, 21) _GUICtrlComboBoxEx_AddString($comex, "Suiza", 22, 22) _GUICtrlComboBoxEx_AddString($comex, "Uruguay", 23, 23) _GUICtrlComboBoxEx_AddString($comex, "Timor Oriental", 24, 24) _GUICtrlComboBoxEx_AddString($comex, "Venezuela", 25, 25) $Label3 = GUICtrlCreateLabel("Ciudad", 560, 216, 37, 18) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Label4 = GUICtrlCreateLabel("Nombre de la Persona", 560, 112, 110, 18) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Label5 = GUICtrlCreateLabel("Tipo de Vivienda", 832, 160, 84, 18) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Input4 = GUICtrlCreateInput("", 832, 184, 89, 21) $Label6 = GUICtrlCreateLabel("Número", 672, 160, 41, 18) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Input5 = GUICtrlCreateInput("", 672, 184, 65, 21) $Label7 = GUICtrlCreateLabel("Publicador Asignado", 728, 216, 103, 18) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $input17=GUICtrlCreateInput("", 728, 240, 185, 21) $Label8 = GUICtrlCreateLabel("Observaciones", 552, 336, 79, 19) $observ = GUICtrlCreateEdit("", 552, 360, 385, 65, BitOR($ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_WANTRETURN)) GUICtrlSetFont(-1, 8, 400, 0, "@Arial Unicode MS") $Label9 = GUICtrlCreateLabel("Numero de Contacto", 560, 264, 102, 18) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $tel =GUICtrlCreateInput("", 560, 288, 121, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_NUMBER)) $Button1 = GUICtrlCreateButton("Generar Reporte", 840, 440, 100, 25) $Button2 = GUICtrlCreateButton("Aceptar", 680, 440, 75, 25) $Geo_localizar = GUICtrlCreateButton("Geo-Localizar",550, 440, 85, 25) $ciudad = GUICtrlCreateCombo("", 560, 240, 121, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL)) GUICtrlSetData(-1, "Anchieta|Iconia|Guaraparí|Piuma") $Label18 = GUICtrlCreateLabel("E-Mail", 728, 264, 32, 18) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $input26 = GUICtrlCreateInput("", 728, 288, 193, 21) $Group1 = GUICtrlCreateGroup("Modalidad", 552, 40, 161, 41) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Radio3 = GUICtrlCreateRadio("", 560, 56, 17, 17) GUICtrlSetState($Radio3, $GUI_CHECKED) $Radio4 = GUICtrlCreateRadio("", 640, 56, 17, 17) $Label19 = GUICtrlCreateLabel("Consulta", 584, 56, 46, 18) $Label20 = GUICtrlCreateLabel("Ingreso", 664, 56, 40, 18) $Barrio=GUICtrlCreateInput("", 744, 184, 73, 22) GUICtrlCreateGroup("", -99, -99, 1, 1) $Label34 = GUICtrlCreateLabel("Barrio", 744, 160, 33, 18) GUICtrlCreateGroup("", -99, -99, 1, 1) ;initial state GUICtrlSetState($Input2, $GUI_DISABLE) GUICtrlSetState($Input5, $GUI_DISABLE) GUICtrlSetState($Input4, $GUI_DISABLE) GUICtrlSetState($Barrio, $GUI_DISABLE) GUICtrlSetState($ciudad, $GUI_DISABLE) GUICtrlSetState($Input17, $GUI_DISABLE) GUICtrlSetState($Tel, $GUI_DISABLE) GUICtrlSetState($Input26, $GUI_DISABLE) GUICtrlSetState($observ, $GUI_DISABLE) $Group2 = GUICtrlCreateGroup("Datos",552, 88, 385, 233) GUICtrlSetFont(-1, 8, 400, 0, "Arial") ;******************* INGRESO ***************************** ;********************************************************* ;********************************************************* ; ***************TERRITORIO ****************************** $TabSheet2 = GUICtrlCreateTabItem("Territorios") $Label10 = GUICtrlCreateLabel("N° Territorio", 552, 45, 61, 18) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $numero_territorio = GUICtrlCreateInput("", 552, 60, 49, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_NUMBER)) ;nombre Territorio $Nom_terr = GUICtrlCreateInput("", 552, 100,90, 21) $Label16 = GUICtrlCreateLabel("Nombre", 552, 86, 105, 18) GUICtrlSetFont(-1, 8, 400, 0, "Arial") ;Estado $estado = GUICtrlCreateInput("", 650, 100, 33, 22) $Label36 = GUICtrlCreateLabel("Estado", 650, 86, 37, 18) GUICtrlSetFont(-1, 8, 400, 0, "Arial") ;ciudad $ciudad1 = GUICtrlCreateCombo("", 695, 100, 89, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL)) GUICtrlSetData(-1, "Anchieta|Guaraparí|Iconio|Piuma") $Label14 = GUICtrlCreateLabel("Ciudad", 695, 86, 37, 18) GUICtrlSetFont(-1, 8, 400, 0, "Arial") ;barrio $Barrio_terr = GUICtrlCreateInput("", 810, 100, 100, 21) $Label15 = GUICtrlCreateLabel("Barrio", 810, 86, 33, 18) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Group6 = GUICtrlCreateGroup("Diseñar Mapa",544, 135, 377, 60) $Cord = GUICtrlCreateButton("ing manzana", 560, 160, 75, 25) $ing_territorio = GUICtrlCreateButton("ing Terr", 640, 160, 75, 25) ;num manzanas $n_manzanas = GUICtrlCreateInput("", 720, 160, 41, 22) $Label26 = GUICtrlCreateLabel("N° Manzanas", 720, 146, 68, 18) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Radio1 = GUICtrlCreateRadio("", 768, 48, 17, 17) $Radio2 = GUICtrlCreateRadio("", 840, 48, 17, 17) $Label12 = GUICtrlCreateLabel("Ingreso", 864, 48, 40, 18) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Label13 = GUICtrlCreateLabel("Consulta", 792, 48, 46, 18) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Group3 = GUICtrlCreateGroup("Datos del Territorio", 544, 32, 377, 100) GUICtrlSetFont(-1, 8, 400, 0, "Arial") GUICtrlCreateGroup("", -99, -99, 1, 1) $delete = GUICtrlCreateButton("Modificar", 688, 424, 75, 25) $Button5 = GUICtrlCreateButton("Ingresar", 768, 424, 75, 25) $graficar_mapa = GUICtrlCreateGroup("Graficar Mapa",544, 210, 377, 60) $Plano_Censo = GUICtrlCreateButton("Mapa Censo", 560, 235, 75, 25) $Graficar = GUICtrlCreateButton("Mapa Integral", 640, 235, 75, 25) $Graficar_Single = GUICtrlCreateButton("Mapa Inv.", 720, 235, 75, 25) GUICtrlCreateLabel("Territorios",810,220) $Graficar_Single_input = GUICtrlCreateInput("",810,235,35,22,$ES_NUMBER) GUICtrlSetFont(-1, 8, 400, 0, "Arial") GUICtrlCreateGroup("", -99, -99, 1, 1) $Group7 = GUICtrlCreateGroup("Estadisticas Seglares", 544, 290, 377, 120) GUICtrlCreateGroup("", -99, -99, 1, 1) GUICtrlSetData($n_manzanas,1) ;*************************** TERRITORIOS *********************************** ;*************************************************************************** $TabSheet3 = GUICtrlCreateTabItem("Informes ") $Group5 = GUICtrlCreateGroup("Tipo de Informes", 544, 40, 377, 185) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Radio5 = GUICtrlCreateRadio("", 560, 64, 17, 17) $Radio6 = GUICtrlCreateRadio("", 560, 88, 17, 17) $Radio7 = GUICtrlCreateRadio("", 560, 112, 17, 17) $Radio8 = GUICtrlCreateRadio("", 560, 136, 17, 17) $Label11 = GUICtrlCreateLabel("Tarjeta Completa", 584, 64, 84, 18) $Label17 = GUICtrlCreateLabel("Tarjeta Por Territorio", 584, 88, 102, 18) $Label21 = GUICtrlCreateLabel("Grafico Trabajo ", 584, 112, 82, 18) $Label22 = GUICtrlCreateLabel("Consulta Por Periodos", 584, 136, 110, 18) $Date1 = GUICtrlCreateDate("2013/03/06 12:38:39", 680, 192, 106, 21, 0) GUICtrlSetFont(-1, 6, 400, 0, "MS Sans Serif") $Date2 = GUICtrlCreateDate("2013/03/06 12:38:48", 560, 192, 106, 21, 0) GUICtrlSetFont(-1, 6, 400, 0, "MS Sans Serif") GUICtrlCreateInput("", 736, 80, 49, 22, BitOR($GUI_SS_DEFAULT_INPUT,$ES_NUMBER)) $Label23 = GUICtrlCreateLabel("Territorio", 736, 56, 47, 18) $Label24 = GUICtrlCreateLabel("Desde", 560, 168, 35, 18) $Label25 = GUICtrlCreateLabel("Hasta", 680, 168, 32, 18) $Button6 = GUICtrlCreateButton("Previsualizar", 832, 64, 75, 25) $Button7 = GUICtrlCreateButton("Imprimir", 832, 96, 75, 25) $Button8 = GUICtrlCreateButton("Exportar", 832, 128, 75, 25) GUICtrlCreateGroup("", -99, -99, 1, 1) $Group4 = GUICtrlCreateGroup("Informacion Condensada", 544, 240, 377, 193) $Edit1 = GUICtrlCreateEdit("", 552, 264, 169, 161) GUICtrlSetData(-1, "Edit1") $Edit2 = GUICtrlCreateEdit("", 744, 264, 169, 161) GUICtrlSetData(-1, "Edit2") GUICtrlCreateGroup("", -99, -99, 1, 1) $TabSheet4 = GUICtrlCreateTabItem("Tarjetas de Territorio") $Group8 = GUICtrlCreateGroup("Ingreso Trabajo Territorios", 544, 32, 225, 137) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $numero = GUICtrlCreateInput("", 616, 56, 80, 22, BitOR($GUI_SS_DEFAULT_INPUT,$ES_NUMBER)) $capitan = GUICtrlCreateInput("", 616, 80, 80, 22) $manzana = GUICtrlCreateInput("", 616, 104, 80, 22) $Label27 = GUICtrlCreateLabel("Numero", 552, 56, 41, 18) $Label28 = GUICtrlCreateLabel("Capitan", 552, 80, 40, 18) $Label29 = GUICtrlCreateLabel("Manzanas", 552, 104, 54, 18) $Label30 = GUICtrlCreateLabel("Dia Hecho", 552, 128, 53, 18) $Date3 = GUICtrlCreateDate("2013/03/06 21:26:48", 616, 128, 82, 22, 0) $Ing_tra_terr = GUICtrlCreateButton("", 720, 56, 35, 33) GUICtrlSetBkColor(-1, 0xC0C0C0) $Button10 = GUICtrlCreateButton("", 720, 88, 35, 33) $Button11 = GUICtrlCreateButton("", 720, 120, 35, 33) GUICtrlCreateGroup("", -99, -99, 1, 1) $Group9 = GUICtrlCreateGroup("Imprimir Tarjetas", 776, 32, 169, 137) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Radio9 = GUICtrlCreateRadio("", 784, 56, 17, 17) $Radio10 = GUICtrlCreateRadio("", 784, 80, 17, 17) $Label31 = GUICtrlCreateLabel("Juego Completo", 808, 56, 80, 18) $Label32 = GUICtrlCreateLabel("Individuales", 808, 80, 60, 18) GUICtrlCreateInput("", 784, 128, 57, 22, BitOR($GUI_SS_DEFAULT_INPUT,$ES_NUMBER)) GUICtrlSetLimit(-1, 2) $Label33 = GUICtrlCreateLabel("Territorios", 784, 104, 53, 18) $Label35 = GUICtrlCreateLabel("", 832, 112, 4, 4) $Checkbox1 = GUICtrlCreateCheckbox("Historial", 856, 136, 81, 17) $Checkbox2 = GUICtrlCreateCheckbox("Estadisticas", 856, 112, 81, 17) GUICtrlCreateGroup("", -99, -99, 1, 1) $Group10 = GUICtrlCreateGroup("Previsualización", 720, 176, 217, 257) GUICtrlSetFont(-1, 8, 400, 0, "Arial") GUICtrlCreateGroup("", -99, -99, 1, 1) $Button12 = GUICtrlCreateButton("Vista Previa", 840, 448, 75, 25) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Button13 = GUICtrlCreateButton("Imprimir", 560, 448, 75, 25) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Group11 = GUICtrlCreateGroup("Tarjetas por Personas", 544, 176, 161, 265) GUICtrlCreateGroup("", -99, -99, 1, 1) $TabSheet5 = GUICtrlCreateTabItem("Grupos Predicación") $Group12 = GUICtrlCreateGroup("Diseño Programa", 552, 32, 385, 233) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Label39 = GUICtrlCreateLabel("Lunes", 560, 80, 34, 18) $Label40 = GUICtrlCreateLabel("Martes", 560, 104, 37, 18) $Label41 = GUICtrlCreateLabel("Miercoles", 560, 128, 50, 18) $Label42 = GUICtrlCreateLabel("Jueves", 560, 152, 39, 18) $Label43 = GUICtrlCreateLabel("Viernes", 560, 176, 42, 18) $Label44 = GUICtrlCreateLabel("Sabado", 560, 200, 41, 18) $Label45 = GUICtrlCreateLabel("Domingo", 560, 224, 45, 18) $cvals = _GetcolVals($sql,"fam_pub","nombre_familia") _ArrayPush($cvals,"") $Combo_set1 = _ArrayToString($cvals,"|") $Combo1 = GUICtrlCreateCombo("", 616, 80, 97, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL)) GUICtrlSetData(-1,$Combo_set1) $Combo2 = GUICtrlCreateCombo("", 616, 104, 97, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL)) GUICtrlSetData(-1,$Combo_set1) $Combo3 = GUICtrlCreateCombo("", 616, 128, 97, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL)) GUICtrlSetData(-1,$Combo_set1) $Combo4 = GUICtrlCreateCombo("", 616, 152, 97, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL)) GUICtrlSetData(-1,$Combo_set1) $Combo5 = GUICtrlCreateCombo("", 616, 176, 97, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL)) GUICtrlSetData(-1,$Combo_set1) $Combo6 = GUICtrlCreateCombo("", 616, 200, 97, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL)) GUICtrlSetData(-1,$Combo_set1) $Combo7 = GUICtrlCreateCombo("", 616, 224, 97, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL)) GUICtrlSetData(-1,$Combo_set1) $Label46 = GUICtrlCreateLabel("Dias Especiales", 792, 56, 80, 18) $Date4 = GUICtrlCreateDate("2013/04/27 14:17:21", 792, 80, 82, 22, 0) $Label47 = GUICtrlCreateLabel("Visita Superintendente", 792, 104, 113, 18) $Label48 = GUICtrlCreateLabel("desde", 792, 128, 34, 18) $Date5 = GUICtrlCreateDate("2013/04/27 14:20:21", 792, 152, 82, 22, 0) $Button14 = GUICtrlCreateButton("Gmail", 784, 216, 40, 33) $Button15 = GUICtrlCreateButton("PDF", 832, 216, 40, 33) $Button16 = GUICtrlCreateButton("Excel", 880, 216, 40, 33) $Label52 = GUICtrlCreateLabel("Territorios", 720, 56, 53, 18) $Input8 = GUICtrlCreateInput("", 720, 80, 57, 22) $Input9 = GUICtrlCreateInput("", 720, 104, 57, 22) $Input10 = GUICtrlCreateInput("", 720, 128, 57, 22) $Input11 = GUICtrlCreateInput("", 720, 152, 57, 22) $Input12 = GUICtrlCreateInput("", 720, 176, 57, 22) $Input13 = GUICtrlCreateInput("", 720, 200, 57, 22) $Input14 = GUICtrlCreateInput("", 720, 224, 57, 22) $Label53 = GUICtrlCreateLabel("Dias", 560, 56, 25, 18) $Label54 = GUICtrlCreateLabel("Lugar", 640, 56, 32, 18) GUICtrlCreateGroup("", -99, -99, 1, 1) $Group13 = GUICtrlCreateGroup("Ingresar Familia", 552, 272, 385, 73) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Label49 = GUICtrlCreateLabel("Nombre Familia", 560, 288, 76, 18) $Label50 = GUICtrlCreateLabel("Telefono", 784, 288, 46, 18) $Label51 = GUICtrlCreateLabel("Direccion Exacta", 656, 288, 85, 18) $nfam = GUICtrlCreateInput("", 560, 312, 81, 22) $telfam = GUICtrlCreateInput("", 784, 312, 73, 22) $Dirfam = GUICtrlCreateInput("", 656, 312, 121, 22) $ingfam = GUICtrlCreateButton("ingresar",864,312,65,25) GUICtrlCreateGroup("", -99, -99, 1, 1) GUICtrlCreateTabItem("") $sql = _MySQLConnect("root","pionner","DB_Territorio","localhost") GUISetState(@SW_SHOW,$Form1_1) GUISetAccelerators($Form1_1) While 1 $nMsg = GUIGetMsg(1) Switch $nMsg [1] Case $Form1_1 Switch $nMsg[0] Case $GUI_EVENT_CLOSE Exit _MySQLend($sql) Case $Button1 _Report() Case $Button2 _Ing_per() Case $Geo_localizar Insert_Coor_per() Case $Cord _Coordenates() Case $Plano_Censo _Planos_Censo() Case $Ing_tra_terr Ing_Tra_Terr() Case $ing_territorio _insert_Territorio() Case $Graficar All_Ter() Case $delete Insert_Coor_per() Case $Graficar_Single Single_ter() Case $ingfam ing_fam() Case $Tab1 Switch GUICtrlRead($Tab1) Case 0 WinSetState($comex, "", @SW_SHOW) Case Else WinSetState($comex, "", @SW_HIDE) EndSwitch Case $Radio3 Switch Guictrlread($Radio3) Case $GUI_CHECKED GUICtrlSetState($Input2, $GUI_DISABLE) GUICtrlSetState($Input5, $GUI_DISABLE) GUICtrlSetState($Input4, $GUI_DISABLE) GUICtrlSetState($Barrio, $GUI_DISABLE) GUICtrlSetState($ciudad, $GUI_DISABLE) GUICtrlSetState($Input17, $GUI_DISABLE) GUICtrlSetState($Tel, $GUI_DISABLE) GUICtrlSetState($Input26, $GUI_DISABLE) GUICtrlSetState($observ, $GUI_DISABLE) Case $GUI_UNCHECKED GUICtrlSetState($Input2, $GUI_ENABLE) GUICtrlSetState($Input5, $GUI_ENABLE) GUICtrlSetState($Input4, $GUI_ENABLE) GUICtrlSetState($Barrio, $GUI_ENABLE) GUICtrlSetState($ciudad, $GUI_ENABLE) GUICtrlSetState($Input17, $GUI_ENABLE) GUICtrlSetState($Tel, $GUI_ENABLE) GUICtrlSetState($Input26, $GUI_ENABLE) GUICtrlSetState($observ, $GUI_ENABLE) EndSwitch Case $Radio4 Switch Guictrlread($Radio4) Case $GUI_CHECKED GUICtrlSetState($Input2, $GUI_ENABLE) GUICtrlSetState($Input5, $GUI_ENABLE) GUICtrlSetState($Input4, $GUI_ENABLE) GUICtrlSetState($Barrio, $GUI_ENABLE) GUICtrlSetState($ciudad, $GUI_ENABLE) GUICtrlSetState($Input17, $GUI_ENABLE) GUICtrlSetState($Tel, $GUI_ENABLE) GUICtrlSetState($Input26, $GUI_ENABLE) GUICtrlSetState($observ, $GUI_ENABLE) Case $GUI_UNCHECKED GUICtrlSetState($Input2, $GUI_DISABLE) GUICtrlSetState($Input5, $GUI_DISABLE) GUICtrlSetState($Input4, $GUI_DISABLE) GUICtrlSetState($Barrio, $GUI_DISABLE) GUICtrlSetState($ciudad, $GUI_DISABLE) GUICtrlSetState($Input17, $GUI_DISABLE) GUICtrlSetState($Tel, $GUI_DISABLE) GUICtrlSetState($Input26, $GUI_DISABLE) GUICtrlSetState($observ, $GUI_DISABLE) EndSwitch EndSwitch Case $Sec_Gui Switch $nMsg[0] Case $GUI_EVENT_CLOSE GUIDelete($Sec_Gui) EndSwitch EndSwitch WEnd ; Funciones de La DB MySql Func _Ing_per() Local $item = _GUICtrlComboBoxEx_GetCurSel($comex) local $texto = _GUICtrlComboBoxEx_GetItemText($comex,$item,$stext) dim $data1 [12] $data1 [0] = "Nombre_persona" $data1 [1] = "Pais" $data1 [2] = "Direccion" $data1 [3] = "Numero" $data1 [4] = "Tipo_de_vi" $data1 [5] = "Ciudad" $data1 [6] = "Barrio" $data1 [7] = "Pub_asig" $data1 [8] = "Tel" $data1 [9] = "Email" $data1 [10] = "Obs" $data1 [11] = "" dim $ar1 [12] $ar1[0]= GUICtrlRead($Input1);nombre de la persona $ar1[1]= $stext;nacionalidad $ar1[2]= GUICtrlRead($Input2) ; dirección $ar1[3]= GUICtrlRead($Input5);numero de casa $ar1[4]= GUICtrlRead($input4);tipo de vivienda $ar1[5]= GUICtrlRead($ciudad) ;Ciudad $ar1[6]= GUICtrlRead($Barrio);barrio $ar1[7]= GUICtrlRead($input17) ;publicador Asignado $ar1[8]= GUICtrlRead($tel) ;telefono $ar1[9]= GUICtrlRead($input26);e-mail $ar1[10]= GUICtrlRead($observ) ;observaciones $ar1[11]="" _AddRecord($sql,'Personas', $data1, $ar1) MsgBox (0,"territorios","persona registrada con exito") $address_maestro = Guictrlread($Input2) & " " & Guictrlread($Input5) & ", " & Guictrlread($Barrio) & ", " & Guictrlread($ciudad) & ", Espirito Santo, Brasil" ;_MySQLEnd($sql) GUICtrlSetData($Input1,"") GUICtrlSetData($Input2,"") GUICtrlSetData($Input5,"") GUICtrlSetData($input4,"") GUICtrlSetData($ciudad,"") GUICtrlSetData($Barrio,"") GUICtrlSetData($Input17,"") GUICtrlSetData($tel,"") GUICtrlSetData($input26,"") GUICtrlSetData($observ,"") $cor_personas = _GUICtrlGoogleMap_GetLatLng($address_maestro) $past = $cor_personas[0] & "," & $cor_personas[1] _Query($sql, "UPDATE personas SET `coordenadas`='" & $past & "' WHERE codigo= LAST_INSERT_ID()") ToolTip("LatLng Añadido Con Exito",950,690,"TerSys - LatLng Manager") sleep(2000) EndFunc ;REPORTE Func _Report() if GUICtrlRead($Input1) = "" then MsgBox (0,"Territories","Debe Ingresar un Nombre") Else ;-----------Modulo de Consulta----------------------- $nombre = Guictrlread($Input1) ;---------------------------------------------------------------------- $Sec_Gui = GUICreate("Reporte",800,600,-1,-1) GUISetState(@SW_SHOW) local $insetBorders, $i Local $item = _GUICtrlComboBoxEx_GetCurSel($comex) local $texto = _GUICtrlComboBoxEx_GetItemText($comex,$item,$stext) $IEobj =_IECreateEmbedded () $gui_obj = GUICtrlCreateObj($IEobj,0,0,850,600) _IENavigate($IEobj,@DesktopDir & "\Reportes\report_model.html") $Body = _IETagNameGetCollection($IEobj,"body",0) $_Getcolvals = _GetcolVals($sql,"personas order by barrio", "codigo") $ubound = _CountRecords($sql,"personas","codigo") for $n = 0 to $ubound $query_personas = "Select distinct codigo, Nombre_persona, pais, Direccion, Numero, tipo_de_vi, Barrio, pub_asig, obs " & _ "from db_territorio.personas where codigo = " & $_Getcolvals[$n] & " " $Qp = _Query($sql,$query_personas) with $Qp $val1 = .fields("Nombre_persona").value $val2 = .fields("Pais").value $val3 = .fields("Direccion").value $val4 = .fields("tipo_de_vi").value $val7 = .fields("Barrio").value $val8 = .fields("numero").value $val5 = .fields("pub_asig").value $val6 = .fields("Obs").value EndWith if Mod($n,2)= 0 then _IEDocInsertHTML($Body , "<section id=""content"" >" & @CRLF & _ "<aside id= ""no"" >" & @CRLF & _ " <div>" & @CRLF & _ "<div>" & @CRLF & _ " <b id=""title"" >" & $val1 & " (Barrio: " & $val7 & ")</b>" & @CRLF & _ "</div>" & @CRLF & _ " <p>Direccion:" & $val3 & " N°" & $val8 & "</p>" & @CRLF & _ "<p>tipo de vivienda:" & $val4 & "</p>" & @CRLF & _ "<p id=""ref"">Referencias:" & $val6 & "<p>" & @CRLF & _ "</div>" & @CRLF & _ "<div>"& @CRLF & _ "<p>Pais:" & $val2 & "</p>" & @CRLF & _ "<p>Datos de contacto:</p>" & @CRLF & _ "</div>" & @CRLF & _ "</aside>" ) Else _IEDocInsertHTML($Body , " <aside id=""no"">" & @CRLF & _ "<div>" & @CRLF & _ " <div>" & @CRLF & _ "<b id=""title"">" & $val1 & " (Barrio: " & $val7 & ")</b>" & @CRLF & _ "</div>" & @CRLF & _ "<p>Direccion:" & $val3 & " N°" & $val8 & "</p>" & @CRLF & _ "<p>tipo de vivienda: " & $val4 & " </p>" & @CRLF & _ "<p id=""ref"">Referencias: " & $val6 & "<p>" & @CRLF & _ "</div>" & @CRLF & _ "<div>" & @CRLF & _ "<p>Pais:" & $val2 & "</p>" & @CRLF & _ "<p>Datos de contacto:</p>" & @CRLF & _ "</div>" & @CRLF & _ "</aside>" & @CRLF & _ "</section>") EndIf Next $IEobj.document.body.scroll = "yes" Return $IEobj GUISetState() EndIf EndFunc Func All_Ter() $ubound2 = _CountRecords($sql,"planos","coordenadas") for $num = 1 to $ubound2 local $UBound =_CountRecords($sql,"planos where id_territorio = " & $num, "coordenadas") For $i = 1 to $Ubound $ST=_Query ($sql,"Select Coordenadas from Planos where id_territorio = " & $num & " And num_manzana = " & $i) with $ST $CTS= .fields("coordenadas").value endwith _GUICtrlGoogleMap_DrawPolygon($gmap,$CTS,'#000000','#000000') Next Next EndFunc Func _addmarcador() if GUICtrlRead($Input1) = "" then MsgBox (0,"Territories","Debe Ingresar un Nombre") Else $query =_Query($sql, "SELECT DISTINCT direccion, numero, ciudad FROM db_territorio.personas where Nombre_persona = '" & Guictrlread($input1) & "'") with $query $address = .fields("direccion").value $number = .fields("numero").value $city = .fields("ciudad").value EndWith _GUICtrlGoogleMap_AddMarker($gmap, $address & ", " & $number & ", " & $city & " - Espirito Santo, Brazil") EndIf EndFunc Func _Print_Capture() _IEAction($gmap,"printdefault") EndFunc Func _Coordenates() ; get IE Elements local $x, $Colnames, $array if GUICtrlRead($numero_territorio) = "" then MsgBox(0,"TerSys","Por Favor Ingrese un numero de Territorio") Else $object =_IEFormGetObjByName($gmap,"map_form") $IEinput = _IEFormElementGetObjByName($object,"vertices") $coordenadas = _IEFormElementGetValue($IEinput) ;set Values in databases ;1st create an array dim $array[4] $array[0] = GUICtrlRead($numero_territorio) $array[1] = GUICtrlRead($n_manzanas) $array[2] = $coordenadas $array[3] = "" dim $Colnames[4] $Colnames[0] = "Id_territorio" $Colnames[1] = "num_manzana" $Colnames[2] = "Coordenadas" $colnames[3] = "" _AddRecord($sql,'planos',$Colnames,$array) MsgBox(0,"","Manzana Ingresada") GUICtrlSetData($n_manzanas,Guictrlread($n_manzanas) + 1) EndIf EndFunc func _insert_Territorio() if GUICtrlRead($numero_territorio) = "" then MsgBox(0,"","Por Favor Ingrese un numero de Territorio") ElseIf GUICtrlRead($Nom_terr) = "" then MsgBox(0,"","Por Favor Ingrese el nombre del Territorio correpondiente") ElseIf GUICtrlRead($estado) = "" then MsgBox(0,"","Por Favor Ingrese Iniciales del Estado") ElseIf GUICtrlRead($ciudad1) = "" then MsgBox(0,"","Por Favor Ingrese el nombre de la ciudad") ElseIf GUICtrlRead($Barrio_terr) = "" then MsgBox(0,"","Por Favor Ingrese el Barrio Correspondiente") Else dim $array2[7] $array2[0] = GUICtrlRead($numero_territorio) $array2[1] = GUICtrlRead($Nom_terr) $array2[2] = GUICtrlRead($estado) $array2[3] = GUICtrlRead($ciudad1) $array2[4] = GUICtrlRead($Barrio_terr) $array2[5] = GUICtrlRead($n_manzanas) $array2[6] = "" dim $Colnames2[7] $Colnames2[0] = "N_territorio" $Colnames2[1] = "Nombre_territorio" $Colnames2[2] = "Estado" $colnames2[3] = "Ciudad" $colnames2[4] = "Barrio" $colnames2[5] = "Numero_Manzanas" $colnames2[6] = "" if MsgBox (36,"TerSys - Insertando Territorio...","¿Desea insertar El Territorio con el Numero Actual de Manzanas?") = 6 then _AddRecord($sql,'Territorios',$colnames2,$array2) Msgbox(0,"","Territorio Ingresado Correctamente") GUICtrlSetData($numero_territorio, "") GUICtrlSetData($Nom_terr, "") GUICtrlSetData($estado, "") GUICtrlSetData($ciudad1, "") GUICtrlSetData($Barrio_terr, "") GUICtrlSetData($n_manzanas, "1") Else EndIf EndIf EndFunc Func _Screen_Shot() local $iid = FileFindFirstFile(@DesktopDir & "\Territorios\TempMap\*.*") _ScreenCapture_CaptureWnd(@DesktopDir & "\Territorios\TempMap\Gmap_" & $iid & ".jpg",$Form1_1,10,32,537,472) EndFunc Func _Planos_Censo() local $i local $GetColVals = _GetcolVals($sql,"trabajo_territorio A inner join Planos B on (A.Manzanas_tr = B.num_manzana)","A.Manzanas_tr") local $ubound = _CountRecords($sql,"trabajo_territorio A inner join Planos B on (A.Manzanas_tr = B.num_manzana)", "B.coordenadas") for $i = 1 to $ubound $query = _Query($sql,"select distinct B.coordenadas, " &@CRLF & _ "if (datediff(curdate(),A.data_1) > 105 ,'#ff0000', " &@CRLF & _ "if (datediff(curdate(),A.data_1) > 75 ,'#ff6347', " &@CRLF & _ "if (datediff(curdate(),A.data_1) > 45 ,'#ffa500','#00ff00'))) as line, " &@CRLF & _ "if (datediff(curdate(),A.data_1) > 105 ,'#ff0000' ," &@CRLF & _ "if (datediff(curdate(),A.data_1) > 75 ,'#ffa500' ," &@CRLF & _ "if (datediff(curdate(),A.data_1) > 45 ,'#ffd700','#008000'))) as fill " & @CRLF & _ "from trabajo_territorio A inner join Planos B on (A.Manzanas_tr = B.num_manzana) and (A.territorio = B.id_territorio) where B.num_manzana = " & $GetColVals[$i]) With $query $array1 = .fields("coordenadas").value $array2 = .fields("line").value $array3 = .fields("fill").value EndWith if not IsArray($array1) or $array1= "" then MsgBox(0,"TerSys - Diseño de Territorio", "No Existen Territorios Diseñados, Por Favor diseñe Los Territorios" & @CRLF & _ "En el mapa con el comando de diseño de mapas en la parte superior del Mapa de Google Maps") Else _GUICtrlGoogleMap_DrawPolygon($gmap,$array1,$array2,$array3) EndIf Next EndFunc func Ing_Tra_Terr() if GUICtrlRead($numero) = "" then MsgBox(0,"","Por Favor Ingrese un numero de Territorio") ElseIf GUICtrlRead($capitan) = "" then MsgBox(0,"","Por Favor Ingrese el nombre del capitán correpondiente") ElseIf GUICtrlRead($manzana) = "" then MsgBox(0,"","Por Favor Ingrese las manzanas trabajadas") Else $limits = StringInStr(GUICtrlRead($manzana),"-") If $limits <> 0 Then local $numeros local $x = number(Stringmid(GUICtrlRead($manzana),$limits - 1,1)) local $y = number(Stringmid(GUICtrlRead($manzana),$limits + 1,1)) local $z = 1 $numeros= "" for $x=number(Stringmid(GUICtrlRead($manzana),$limits - 1,1)) to $y _StringInsert($numeros,$numeros & ",",StringLen($numeros) +2) next MsgBox(0,"",$numeros) EndIf Dim $col8[5] $col8[0]= "data_1" $col8[1]= "Capitan" $col8[2]= "Territorio" $col8[3]= "Manzanas_tr" $col8[4]= "" Dim $val8[5] $val8[0]= _GUICtrlDate_Format(GUICtrlRead($Date3)) $val8[1]= GUICtrlRead($capitan) $val8[2]= GUICtrlRead($numero) $val8[3]= GUICtrlRead($manzana) $val8[4]="" _AddRecord($sql,'trabajo_territorio',$col8, $val8) MsgBox(0,""," Datos Ingresados correctamente") GUICtrlSetData($Date3,"") GUICtrlSetData($numero,"") GUICtrlSetData($manzana,"") GUICtrlSetData($capitan,"") EndIf EndFunc Func _I_Excel($path) $oExcel=_ExcelBookOpen($path,0) $Ubound = 100 for $i= 2 to $ubound Dim $Ex_Values[13] $Ex_Values[0]=_ExcelReadCell($oExcel,$i,1) $Ex_Values[1]=_ExcelReadCell($oExcel,$i,2) $Ex_Values[2]=_ExcelReadCell($oExcel,$i,3) $Ex_Values[3]=_ExcelReadCell($oExcel,$i,4) $Ex_Values[4]=_ExcelReadCell($oExcel,$i,5) $Ex_Values[5]=_ExcelReadCell($oExcel,$i,6) $Ex_Values[6]=_ExcelReadCell($oExcel,$i,7) $Ex_Values[7]=_ExcelReadCell($oExcel,$i,8) $Ex_Values[8]=_ExcelReadCell($oExcel,$i,9) $Ex_Values[9]=_ExcelReadCell($oExcel,$i,10) $Ex_Values[10]=_ExcelReadCell($oExcel,$i,11) $Ex_Values[11]=_ExcelReadCell($oExcel,$i,12) $Ex_Values[12]="" Dim $Ex_Colnames[13] $Ex_Colnames[0] = "Nombre_persona" $Ex_Colnames[1] = "Pais" $Ex_Colnames[2] = "Direccion" $Ex_Colnames[3] = "Numero" $Ex_Colnames[4] = "Tipo_de_vi" $Ex_Colnames[5] = "Ciudad" $Ex_Colnames[6] = "Barrio" $Ex_Colnames[7] = "Pub_asig" $Ex_Colnames[8] = "Tel" $Ex_Colnames[9] = "Email" $Ex_Colnames[10] = "Obs" $Ex_Colnames[11] = "" _AddRecord($sql,'personas', $Ex_Colnames,$Ex_Values) next if @error then MsgBox(0,"TerSys - Importacion de Archivos desde Base Excel", 'hola') EndIf EndFunc Func Insert_Coor_per() local $getcolvals = _GetcolVals($sql,"personas where coordenadas <> '' ", "codigo") local $counter =_CountRecords($sql,"personas where coordenadas <> ''","coordenadas") for $i= 1 to $counter local $query2 = _Query($sql, "select coordenadas from personas where coordenadas <> '' and codigo = " & $getcolvals[$i]) with $query2 local $Xcoord = .fields("coordenadas").value EndWith _GUICtrlGoogleMap_AddMarkerByLatLng($gmap,$Xcoord) Next MsgBox(0,"TerSys - Ingreso de LatLng","GeoReferencias Insertadas") EndFunc Func Insert_Coor_per2() local $getcolvals = _GetColValsDistinct($sql,"personas where direccion <> '' and barrio <> '' and numero <> '' and ciudad <> ''","codigo") local $counter =_CountRecordsDistinct($sql," personas where direccion <> '' and barrio <> '' and numero <> '' and ciudad <> ''","direccion") for $i= 1 to $counter local $query2 = _Query($sql,"select distinct direccion, numero, barrio, ciudad from personas where direccion <> '' and barrio <> '' " & _ "and numero <> '' and ciudad <> '' and codigo = " & $getcolvals[$i]) with $query2 local $val1 = .fields("Direccion").value local $val2 = .fields("numero").value local $val3 = .fields("barrio").value local $val4 = .fields("ciudad").value EndWith $getobtainvalue = $val1 & " " & $val2 & ", " & $val3 & ", " & $val4 & " - Espirito Santo, Brasil" $icoord =_GUICtrlGoogleMap_GetLatLng($getobtainvalue) _Query($sql,"UPDATE `personas` SET `coordenadas`='" & $icoord[0] & "," & $icoord[1] & "' WHERE CODIGO = '" & $getcolvals[$i] & "'") Next MsgBox(0,"TerSys - Ingreso de LatLng","GeoReferencias Insertadas") EndFunc Func Single_ter() if GUICtrlRead($Graficar_Single_input) = "" Then MsgBox(0,"TerSys - Graficar Territorios", "Porfavor , ingrese un numero de territorio a graficar") EndIf $nt = GUICtrlRead($Graficar_Single_input) local $UBound =_CountRecords($sql,"planos where id_territorio = " & $nt, "coordenadas") For $i = 1 to $Ubound $ST=_Query ($sql,"Select Coordenadas from Planos where id_territorio = " & $nt & " And num_manzana = " & $i) with $ST $CTS= .fields("coordenadas").value endwith _GUICtrlGoogleMap_DrawPolygon($gmap,$CTS,'#000000','#000000') Next EndFunc Func ing_fam() if $nfam ="" Then MsgBox(0, "TerSys - Ingreso Familia Publicadores","porfavor ingrese el nombre de la familia") ElseIf $Dirfam = "" Then Msgbox(0, "TerSys - Ingreso Familia Publicadores","porfavor ingrese una dirección" ) Else Dim $famarray[4] $famarray[0] = GuiCtrlread($nfam) $famarray[1] = GuiCtrlread($telfam) $famarray[2] = GuiCtrlread($Dirfam) $famarray[3] ="" Dim $colfam [4] $colfam[0] = "Nombre_familia" $colfam[1] = "Telefono" $colfam[2] = "Direccion" $colfam[3] = "" _AddRecord($sql,"fam_pub",$colfam,$famarray) MsgBox(0,"TerSys - ingreso Familia Publicadores","Familia Ingresada Correctamente") GUICtrlSetData($nfam,"") GUICtrlSetData($telfam,"") GUICtrlSetData($Dirfam,"") EndIf endfunc Func _control_terr() $on =_IECreateEmbedded() GUICtrlCreateObj($on,400,400) $route = "C:\Users\eduyfa bloqueado\Desktop\Reportes\control_territorio.html" $ieo =_IECreate() _IENavigate($ieo,$route) $table =_IETagNameGetCollection($ieo,"table") _IEDocInsertHTML($table,"<tr id=""territorio"">" & @CRLF & _ "<td colspan=""2"" align=""center"">Territorio</td>" & @CRLF & _ "</tr>" & @CRLF & _ "</thead>" & @CRLF & _ "<tr>" & @CRLF & _ "<td colspan=""2"" align=""center"">" & "</td>" & @CRLF & _ "</tr>" & @CRLF & _ "<tr>" & @CRLF & _ "<td>fecha1</td>" & @CRLF & _ "<td>fecha2</td>" & @CRLF & _ "</tr>") $ieo.document.body.scroll = "yes" Return $ieo GUISetState() EndFunc ;tratando de que funcione Func Delete_planos() _GUICtrlGoogleMap_HidePolygon($gmap) EndFunc ;funcion interna Func _GUICtrlDate_Format($date) $step1 = StringTrimLeft($date,6) & "/" & StringMid($date,4,2) & "/" & StringLeft($date,2) return $step1 EndFunc Func RemoveStupidBlaklines($hwnd) If Not IsHWnd($hwnd) Then Return Local $pos=WinGetPos($hwnd,'') If Not IsArray($pos) Then Return Return WinMove($hwnd,'',$pos[0],$pos[1]) EndFunc
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