Page 6 of 6

Re: ComboSearchGrid

Posted: Mon Feb 11, 2019 1:08 pm
by EduardoLuis
Hola Andy

Lindo ejemplo.
Prodrias publicar el codigo ??
Gracias por compartir
Como realizaste el gif ?? muy interesante y util.-
Eduardo


Hi Andy:

Nice sample
Could you post the code ??
Thanks for share.
How do you produce the gif ?? Very interest and usefull.
With regards
Eduardo

Re: ComboSearchGrid

Posted: Mon Feb 11, 2019 6:30 pm
by andyglezl
Aquí el link del programa que utilizo para los gif.
+------------------------------------------------------------
Here the link of the program that I use for gifs.

https://www.screentogif.com


El código de la busqueda aún está en desarrollo por la necesidad de un cliente :oops:
*--------------------------------------------------------------------------------------------------------
The search code is still under development due to the need of a client. :oops:

Re: ComboSearchGrid

Posted: Tue Feb 12, 2019 8:30 pm
by EduardoLuis
Hi Andy:

Thanks for the link
About the code, my request was about the basic routine you perform combining two way of search, looks very usefull, positioning the found item on listbox.-
With regards.
Eduardo

Re: ComboSearchGrid

Posted: Tue Feb 12, 2019 9:07 pm
by andyglezl
OK, Practicamente todo se reduce a esto.
*----------------------------------------------------
OK, practically everything comes down to this.

Code: Select all

		Ctes->( DBSetOrder(1) )
		cCod := GetProperty( cWind, "TB_Codigo", "Value" )
		IF Ctes->( DBSeek( GetProperty( cWind, "TB_Codigo", "Value" ), .T. ) ) 
			cNom := UPPER( ALLTRIM( Ctes->NOMBRE ) )
			SetProperty( cWind, "TB_Nombre", "Value", ALLTRIM( Ctes->NOMBRE ) + " " + ALLTRIM( Ctes->APELLIDOS ) )
			Ctes->( DBGOTOP() )
			DoMethod( cWind, "CB_1", "DeleteAllItems" )
			DO WHILE Ctes->( OrdWildSeek( "*" + cCod + "*", .T. ) )
				DoMethod( cWind, "CB_1", "AddItem", Ctes->CODIGO +" - " + ALLTRIM( Ctes->NOMBRE ) + " " + ALLTRIM( Ctes->APELLIDOS ) )
			ENDDO
			Ctes->( DBSetOrder(2) )
			Ctes->( DBGOTOP() )
			DoMethod( cWind, "CB_2", "DeleteAllItems" )
			DO WHILE Ctes->( OrdWildSeek( "*" + cNom + "*", .T. ) )
				DoMethod( cWind, "CB_2", "AddItem", Ctes->CODIGO +" - " + ALLTRIM( Ctes->NOMBRE ) + " " + ALLTRIM( Ctes->APELLIDOS ) )
			ENDDO
		ELSE
			SetProperty( cWind, 'L_Warning', "Value", 'Cliente no encontrado !'  )
		ENDIF


Re: ComboSearchGrid

Posted: Tue Feb 12, 2019 9:53 pm
by EduardoLuis
Hi Andy:

Thanks. Simple and effectiv.-
Eduardo

Hola Andy:

Gracias. Simple y efectivo
Eduardo

Re: ComboSearchGrid

Posted: Fri Feb 15, 2019 10:01 am
by tonton2
andyglezl wrote:
Tue Feb 12, 2019 9:07 pm
OK, Practicamente todo se reduce a esto.
*----------------------------------------------------
OK, practically everything comes down to this.

Code: Select all

		Ctes->( DBSetOrder(1) )
		cCod := GetProperty( cWind, "TB_Codigo", "Value" )
		IF Ctes->( DBSeek( GetProperty( cWind, "TB_Codigo", "Value" ), .T. ) ) 
			cNom := UPPER( ALLTRIM( Ctes->NOMBRE ) )
			SetProperty( cWind, "TB_Nombre", "Value", ALLTRIM( Ctes->NOMBRE ) + " " + ALLTRIM( Ctes->APELLIDOS ) )
			Ctes->( DBGOTOP() )
			DoMethod( cWind, "CB_1", "DeleteAllItems" )
			DO WHILE Ctes->( OrdWildSeek( "*" + cCod + "*", .T. ) )
				DoMethod( cWind, "CB_1", "AddItem", Ctes->CODIGO +" - " + ALLTRIM( Ctes->NOMBRE ) + " " + ALLTRIM( Ctes->APELLIDOS ) )
			ENDDO
			Ctes->( DBSetOrder(2) )
			Ctes->( DBGOTOP() )
			DoMethod( cWind, "CB_2", "DeleteAllItems" )
			DO WHILE Ctes->( OrdWildSeek( "*" + cNom + "*", .T. ) )
				DoMethod( cWind, "CB_2", "AddItem", Ctes->CODIGO +" - " + ALLTRIM( Ctes->NOMBRE ) + " " + ALLTRIM( Ctes->APELLIDOS ) )
			ENDDO
		ELSE
			SetProperty( cWind, 'L_Warning', "Value", 'Cliente no encontrado !'  )
		ENDIF

Bonjour,
Peut on avoir un exemple complet,merci a vous
can you put a sample, thank you

Re: ComboSearchGrid

Posted: Tue Feb 19, 2019 3:50 pm
by jairpinho
Rathinagiri wrote:
Wed Apr 24, 2013 4:56 pm
Hi,

Here I am sharing my experimentation for multi-column combosearchgrid based on Esgici's ComboSearchBox. I was very much longing for a control like in MS Access with multi-column combobox. Now it is possible.

Features of ComboSearchGrid:

- I have used SQLite temporary database and table to optimize the search
- Since the combosearchgrid is based on Virtual Grid there is no limitation as to the number of rows! In the sample I have used 10000 rows. But you can check for more rows and find out how fast it is. Actually there is no program degradation because of the number of rows.
- The text is searched in all the columns.
- Anywhere search is also available
- You can show/hide the headers too.
- SQLite operations are totally hidden and you need not know anything about SQLite.

csg.jpg

Please give your suggestions, we can make a better control!

combosearchgrid.zip
Hello Rathi, this is a fantastic function, just missing an example with mysql.