Advance Search for Browse Control

[filepro]

I am a MS Access Developer for over 20 years and just come over to Alhpa 5 and converting many of my programs to Alpha. This means that many of you may find my issue to be very simple, and I have look thru as much as I can locate to fix my problem.

I have a table with over 500K of records and created a form, added a browse grid and used the supercontrol of the alphabets to help me filter the records. WIth Alpha 5's demo that i downloaded to use as an example, the supercontrol worked good when there are few records.

For me, the amount of records that I have, this supercontrol is NOT enough. I create a text box where I can type in my search string of more than 1 character, pasted the code from teh supercontrol, as it works BUT only for 1 character.

What is the code that Alpha uses to search within a field...(My Access grid would use "Like " and if I typed, an A, I would get all that start with A. If I type a Ar, then I would get all that started with Ar, and so on..

Any help would be appreciated..

[Keith Hubert]

Re: Advance Search for Browse Control

Hi Keith,

Welcome to the Alpha Forum, glad to have another Keith aboard.

What you are looking for is 'Progressive Find'. It is available in the Code tab of Alphasports.

[filepro]

Re: Advance Search for Browse Control

Thanks, I will look thru AlhpaSports to look for a find feature and copy the code. I did this with Access when I started. I do appreciate that you responded and look forward to years of production with Alhpa 5.

[filepro]

Re: Advance Search for Browse Control

I opened up the AlphaSports Program and did see the search for Customers on teh top of the form. They are using drop down/combo boxes for the search and I do use these sometimes, but when you have lots of records it is show and hard to work on.

I like to insert a text box on the form and allow the user to type in any amount of characters to locate the data. For example in the last name field, they may want to type the first 4 or 5 letters of the name to search. I also like customers to search by last name, date created range, and/or city at the same time. I do this all the time with MS Access, but new to this procedure in Alpha.

I dont see any examples that would have the ability for me to look at the code. If you think this is an easy to identify procedure please direct me to this. Otherwise I may need to purchase some mentoring time with Alphpa

Thanks

Keith ERdman

[Keith Hubert]

Re: Advance Search for Browse Control

Keith,

Did you find the "ProgressiveFind" script in the code tab?

[filepro]

Re: Advance Search for Browse Control

I did see a progressive lookup and researching it now

[Keith Hubert]

Re: Advance Search for Browse Control

I did see a progressive lookup and researching it now

Good, just to let you know, you can run the script from the code tab. It will not display the selected record but will show you how it filters as you type in a name.

[Ray in Capetown]

Re: Advance Search for Browse Control

Keith E
Simple really simple and powerful
many styles too.

EG1
Place the variable entry field on the form
In properties try the table lookup list box types to see what suits you best.

EG2
On the code tab, select New - Use action scripting
Add new action, select category Xdialog Windows
Select on the right Display Xdialog box
==try record list Edit combo

complete the actions and columns you require.
You can try it out using preview whilst setting up.

Afterwards you can call it from a button or include the code on a button or convert to xbasic and modify...

ask further

[Mike Wilson]

Re: Advance Search for Browse Control

K,
This is a progressive look up I use, but don't have 500K records. With 500K, the vn_limit is how many letters must be typed before the search into the table begins. With 10K I use 2 and it is fast. With 500K, you might need 3-5. This may not work for your needs but I thought I'd throw it out. What is in red is what your need to adjust for your table. I use a field alphaname which is a field with a table calculated field rule ALLTRIM(LASTNAME)+ ", "+ALLTRIM(FIRSTNAME).

dim vn_limit as N=[COLOR="#FF0000"]3	[/COLOR]			' this is how many characters need be typed before the lookup happend Greater number, faster lookup

	dim vfind_text as C
	dim vLClients as C
	dim vLClients_f as C
	dim vChoice as C

	dim vresult as C
	dim dlg_title as C="Clients"
	dim dlg_body as C
	dim dlg_code as C
	dim vfilter as C
	
	dlg_body=<<%dlg%
	{on_key=enter}
	{background=#180,185,185}{font=arial,8,ib}{frame=1,0:Begin typing client's last name}{font=arial,10,b}
	{xmargin=3,3}{ymargin=1,1}{justify=left}{startup=init}
	{region}
	{lf};
	{font=Arial,10}[.40vfind_text!newd_*];
	{endregion};
	{region}
	{lf};
	[.40,20vChoice^#vLClients_f]{font=arial,10};
	{lf};
	{endregion};
	{lf};
	{justify=center}{font=arial,10,b}<15OK> <15Cancel>
	%dlg%
	
	dlg_code=<<%code%
	
	IF left( a_dlg_button, 5 ) = "newd_"
	 IF a_dlg_button = "newd_change"
		if len(vfind_text)>=vn_limit
			vfilter="left([COLOR="#FF0000"]alphaname[/COLOR]," + str(len(trim(vfind_text))) + ")=\"" + vfind_text + "\""
			vLClients=table.external_record_content_get("[COLOR="#FF0000"]customer[/COLOR]","[COLOR="#FF0000"]alphaname[/COLOR]","[COLOR="#FF0000"]alphaname[/COLOR]",vfilter)
			vLClients_f=vLClients
			vchoice=""
		 	insearch=alltrim(vFind_text)+"*"
			
			vLClients_f=filter_string_smatch(vLClients,insearch,crlf())	 	
		else
			vLClients_f=""	
		end if
	
	 END IF
	 a_dlg_button = ""
	END IF

'NAVIGATION 
   	IF a_dlg_button = "enter" then 
   		msgbox(ui_dlg_ctl_current(dlg_title))
   		if "OK" $ ui_dlg_ctl_current(dlg_title) then 'The Save button Control= <10Save>. So test if on that control when Enter pressed
   			a_dlg_button="close"		'if the a_dlg_button has a value, it closes the dialog, so give it a value
   			GOTO DLGCLOSE
 		else 
        	'user is not on the OK button, so advance to next control
       		ui_dlg_navigate(dlg_title,"Next")
	   	end if 	
  	 a_dlg_button = ""	'set a_dlg_button to null to keep the dialog open
  	  DLGCLOSE:
   END IF 	
	%code%
	
	vresult=ui_dlg_box(dlg_title,dlg_body,dlg_code)
	if vresult="cancel"
		end
	end if
	
	if vchoice = ""
		end
	end if
	
	msgbox(vchoice)