HMGforum.com

Code: Select all

#include "hmg.ch"

Function Main

Local aValue := { 0 , 0 }, i

	DBCREATE('test.dbf', { {'ID','N',10,0} , {'NAME','C',30,0}, {'FLAG','C',3,0} } )
	USE TEST
	FOR i := 1 TO 20
		APPEND BLANK
		REPLACE id WITH i
		REPLACE name WITH "Name #" + AllTrim(Str(i))
		REPLACE flag WITH IF (i % 3 = 0, "C", IF ( i % 2 = 0, "B", "A" ) )
	NEXT i
	
	GO TOP

	* Grid Column Controls Definitions

	aCtrl_1 := {'TEXTBOX','NUMERIC','9999999999'}
	aCtrl_2 := {'TEXTBOX','CHARACTER'}
	aCtrl_3 := {'TEXTBOX','CHARACTER'}
		
	DEFINE WINDOW Form_1 ;
		AT 0,0 ;
		WIDTH 800 ;
		HEIGHT 510 ;
		TITLE 'SET FILTER Test' ;
		MAIN 

		DEFINE MAIN MENU 
			POPUP 'File'
				ITEM 'dbSetFilter ( { || Left(flag , 1) $ "A" }, "Left(flag , 1) $ "A" )' ACTION SetFilter("A")
				ITEM 'dbSetFilter ( { || Left(flag , 1) $ "B" }, "Left(flag , 1) $ "B" )' ACTION SetFilter("B")
				ITEM 'dbSetFilter ( { || Left(flag , 1) $ "C" }, "Left(flag , 1) $ "C" )' ACTION SetFilter("C")
				ITEM 'dbSetFilter ()' ACTION SetFilter()
				SEPARATOR
				ITEM 'dbSetFilter ( { || Left(flag , 1) $ "A" }' ACTION SetFilter2("A")
				ITEM 'dbSetFilter ( { || Left(flag , 1) $ "B" }' ACTION SetFilter2("B")
				ITEM 'dbSetFilter ( { || Left(flag , 1) $ "C" }' ACTION SetFilter2("C")
				ITEM 'dbSetFilter ()' ACTION SetFilter2()
				SEPARATOR
				ITEM 'Set Filter TO FLAG = "A"' ACTION SetFilter3("A")
				ITEM 'Set Filter TO FLAG = "B"' ACTION SetFilter3("B")
				ITEM 'Set Filter TO FLAG = "C"' ACTION SetFilter3("C")
				ITEM 'Set Filter TO ' ACTION SetFilter3()
			END POPUP
		END MENU

		@ 10,10 GRID Grid_1 ;
			WIDTH 770 ;
			HEIGHT 440 ;
			HEADERS {'Id','Name','Flag'} ;
			WIDTHS {50,140,50};
			VALUE { 1 , 1 } ;
			ROWSOURCE "Test" ;
			COLUMNFIELDS { 'Id' ,  'Name' , 'Flag' } ;
			COLUMNCONTROLS { aCtrl_1 , aCtrl_2 , aCtrl_3 } ;
			EDIT ;
			ALLOWAPPEND ; 
			ALLOWDELETE 
		
	END WINDOW

	CENTER WINDOW Form_1

	ACTIVATE WINDOW Form_1

Return

***************************************
Function SetFilter( cFlag )
 
IF !Empty( cFlag )
	dbSetFilter ( { || Left(flag , 1) $ cFlag }, "Left(flag , 1) $ '" + cFlag + "'")
ELSE
	dbSetFilter ()
ENDIF
dbGoTop()
Form_1.Grid_1.RecNo := RecNo()
Form_1.Grid_1.Refresh

RETURN

***************************************
Function SetFilter2( cFlag )
 
IF !Empty( cFlag )
	dbSetFilter ( { || Left(flag , 1) $ cFlag } )
ELSE
	dbSetFilter ()
ENDIF
dbGoTop()
Form_1.Grid_1.RecNo := RecNo()
Form_1.Grid_1.Refresh

RETURN
***************************************
Function SetFilter3( cFlag )
 
IF !Empty( cFlag )
	Set Filter TO Left(flag , 1) $ cFlag
ELSE
	Set Filter TO
ENDIF
GO TOP

Form_1.Grid_1.RecNo := RecNo()
Form_1.Grid_1.Refresh

RETURN

Code: Select all

SET FILTER TO ALLTRIM(some_field) = '0' 
SET FILTER TO ALLTRIM(some_field) == '0'
SET FILTER TO some_field = '0'          
SET FILTER TO some_field == '0'         

Code: Select all

   aGrid := {}
   SELECT table2
   // set filter to ...        <- one way   
   dbgotop()
   DO WHILE .NOT. EOF()
      IF _key1 != some_filter  // second way
         DBSKIP()
         LOOP
      ENDIF
      Aadd(aGrid, {str(recno()),str(field_1),dtoc(field_2), ...,str(field_n)})
      DBSKIP()
   ENDDO

   MD_Form_1.MD_Grid_1.DeleteAllItems()
   FOR i = 1 to LEN(aGrid)
      MD_Form_1.MD_Grid_1.AddItem(aGrid[i])
   NEXT
   SELECT table1 

Code: Select all

CREATEFOLDER("C:\Hmtemp")      \\ if it exists it continues.

Code: Select all

local hm:= " ", prname := 'your Grid program name'
select table ?
if reccount() > 50
   index on fieldname to c:\hmtemp\prname.ntx for $ patri_win2
else 
   set filter
endif
go top
----- your code ----
----- end of program ----
hm := "c:\hmtemp\prname.ntx"
erase(hm)
return