Código: Seleccionar todo
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
$Form1 = GUICreate("Form1", 714, 676, 460, 5)
$button1 = GUICtrlCreateButton ("Consultar", 630, 650, 80, 20)
GUISetState(@SW_SHOW)
$combo1 = GUICtrlCreateList ("", 8, 30, 250, 640, "", $WS_EX_TRANSPARENT)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
case $button1
$oMyError = ObjEvent("AutoIt.Error","oErrorConnect")
$sqlCon = ObjCreate("ADODB.Connection")
$sqlCon.Open("DRIVER={SQL Server};SERVER=10.0.1.17;DATABASE=FinamigoConsolidado;UID=mestradaz;PWD=;")
$rs = ObjCreate("ADODB.RecordSet")
If IsObj($sqlCon) Then
$rs = ObjCreate("ADODB.RecordSet")
$rs.Open("SELECT * FROM tcsempleados where ingreso between '20140515' and '20140606'", $sqlCon)
While $rs.eof <> True
GUICtrlCreateLabel($rs.Fields("PATERNO").Value & " " & $rs.Fields("MATERNO").Value & " " & $rs.Fields("NOMBRES").Value, 8, 32, 220, 17 )
GUICtrlSetData ($combo1, $rs.Fields("PATERNO").Value & " " & $rs.Fields("MATERNO").Value & " " & $rs.Fields("NOMBRES").Value )
$rs.MoveNext
WEnd
$rs.Close
;~ $sqlCon.Close
EndIf
EndSwitch
WEnd
Uno de los problemas que he encontrado es que no se como crear el "label" con cada uno de los nombres con una separación de unos 30 pixeles entre cada uno y la misma separación para la fila de los checkboxs, esto con la intención de que esten alineados los valores.
Aqui un ejemplo:
Garcia Contreras Juan Sistema1 x Sistema2 x Sistema3 x Sistema4 x
Mejia Lopez Eduardo Sistema1 Sistema2 x Sistema3 Sistema4 x
Y así.
¿Alguien que me pueda dar una mano?
Salu2.