Timnah nosmas

Philistine
riddle --> 30 sets of clothes
2-timer married a friend
another 1000 killed

Gaza, Delilah
"secret" of strength
gouged eyes
2 columns down

alternate take
whence the wonder bread
another take
i'll have alcohol instead

Incremental Search

combobox, keypress, lostfocus


#DEFINE DELKEY 127
LPARAMETERS nKeyCode, nShiftAltCtrl
LOCAL cDisplayValue
IF nKeyCode = DELKEY
cDisplayValue = ALLTRIM(THIS.DisplayValue)
IF LEN(m.cDisplayValue)=1
cDisplayValue = ""
ELSE
cDisplayValue = LEFT(cDisplayValue,LEN(cDisplayValue)-1)
ENDIF
ELSE
cDisplayValue = ALLTRIM(THIS.DisplayValue)+CHR(nKeyCode)
ENDIF

THISFORM.LockScreen = .T.
DO CASE
CASE EMPTY(m.cDisplayValue)
THISFORM.grdcust.recordsource = " "
CASE THIS.Value = "(All)"
SELECT country AS location,* FROM CUSTOMER;
INTO CURSOR Custs
thisform.grdcust.recordsource = "Custs"
OTHERWISE
SELECT country AS location,* FROM CUSTOMER ;
WHERE UPPER(ALLTRIM(Customer.Country)) = UPPER(m.cDisplayValue);
INTO CURSOR Custs
thisform.grdcust.recordsource = "Custs"
ENDCASE
THISFORM.ResetCombos(THIS)
THISFORM.LockScreen = .F.


lostfocus

LOCAL cDisplayValue,cSqlStr,cCountryName
cDisplayValue = ALLTRIM(THIS.DisplayValue)
THIS.SelLength = 0
IF EMPTY(m.cDisplayValue)
RETURN
ENDIF

THISFORM.LockScreen = .T.

IF THIS.Value = "(All)"
SELECT country AS location,* FROM CUSTOMER INTO CURSOR Custs
thisform.grdcust.recordsource = "Custs"
ELSE
SELECT country AS location,* FROM CUSTOMER ;
WHERE UPPER(ALLTRIM(Customer.Country)) = UPPER(m.cDisplayValue);
INTO CURSOR Custs
thisform.grdcust.recordsource = "Custs"
IF _TALLY #0
cCountryName = ALLTRIM(Custs.Country)
IF ATC(m.cCountryName,THIS.RowSource) = 0 AND !EMPTY(m.cCountryName)
THIS.RowSource=THIS.RowSource+","+m.cCountryName
ENDIF
THIS.Value = m.cCountryName
ENDIF
ENDIF
THISFORM.ResetCombos(THIS)
THISFORM.LockScreen = .F.


My Chat Room

Codes to jump to Top or Bottom. New chat room at the bottom.

TopBottom

Badge

My Facebook Badge. Click to view my profile. No picture. Very little info. Only to demonstrate badge linking.

My Profile


Gawa ka?

Jango Jukebox

Not autoplay. Never autoplay. Always leave the option to visitor whether to play the media or not. This will respect their bandwidths.