Validation of user input can be done in several events: TextBox.Valid(), TextBox.InteractiveChange(), TextBox.LostFocus() are commonly used.
>Can somebody help me to convert the code below into a visual form? The Form must not accept manual entry of any value into the card text box.
>
>Here is my code in VFP (its lacking so please bear with my code), card number accepts manual entries, which should not be, it should only accept when swiping a credit card or Magnetic Cards to a card reader / inserting smart card to smart card reader :...
>
>Note: The code is under testing with a verifone Terminal and a GemPlus Smart Card Reader. Some omission is been applied on the code between a CC Terminal & Smart Card Reader..
>
>I have created a visual form but its not working as to my expectation.. So I decided to post my code for some help on this as im in a rush with this project...
>
>>*!* SYSTEM DESCRIPTION AND AUTHOR
>*!* Application : Human Resources Schedule System v1.02
>*!* Author's : Dalplus Technologies, Research & Development Team
>*!* Jojo Dela Cuesta, Programmer
>*!* Date Created: Friday, 24th of September 2004
>*!* Project Ref : ??? HRD - Research & Development Section
>*!* -------------------------------------------------------------------
>
>*//
>
>
>Set CPDIALOG OFF
>SET DATE TO BRITISH
>SET CENTURY ON
>Save Screen wEntryScr
>Define window Card from 10,30 to 20,70 TITLE "CREDIT CARD READER" CLOSE FLOAT GROW NOZOOM
>Public cStaff_nbr,cTarget1,cTarget2,cCard_owner,lSeek
>
>cStaff_nbr = SPACE(10)
>cTARGET1 = Space(250)
>cTARGET2 = Space(250)
>cCARD_OWNER = SPACE(250)
>lSeek = .F.
>
>*#DEFINE BOX(08,20,20,60)
>IF !used('Staff')
> USE DPHRM!Staff IN 0 order TAG STAFF_NBR SHARED
>ELSE
> SELECT("Staff")
> SET ORDER TO TAG STAFF_NBR
>ENDIF
>SELECT("Staff")
>GO TOP
>
>Activate Window Card
>
>DO WHILE .T.
>@02,10 Say 'Current Date : '
>@02,26 say DATE()
>@03,04 Say 'Input Staff Number : ' Get cStaff_nbr pict '99999' valid !EMPTY(cStaff_nbr)
>READ
>IF !EMPTY(cStaff_nbr)
> SET EXACT ON
> SELECT("Staff")
> SET ORDER TO TAG STAFF_NBR
> IF SEEK(cStaff_nbr)
> m.cStaff_name = alltr(staff_name)
> If LastKey() = 27
> *Release Window Card
> Clear Gets
> RETURN 0
> ENDIF
> lSeek = .T.
>
> @04,10+(30-len(rtrim(cSTAFF_NAME)))/2 Say rtrim(cSTAFF_NAME)
> @06,02 say "Insert Smart Card to the Card Reader"
> @07,07 Say 'Smart Card Number : ' Get cTARGET2 pict '@K!s1' valid !Empty(cTARGET2)
> Read
> If LastKey() = 27
> Release Window Card
> Return
> ENDIF
>
> @07,07 Say 'Smart Card Number : ' Get cTARGET1 pict '@K!s1' valid !Empty(cTARGET1)
> Read
> mCARD_NBR = Substr(cTarget1,2,AT("=",cTarget1)-2)
> mCARD_OWNER = aLLTRIM(Substr(cTarget2,20,AT("^",cTarget2)-2))
>
> @08,09+(30-len(rtrim(mCARD_OWNER)))/2 Say rtrim(mCARD_OWNER)
> @07,07 Say 'Smart Card Number : '
> @07,27 Say mCARD_NBR Pict '@K!'
> Read
> If LastKey() = 27
> Release Window Card
> Return 1
> Endif
> Messagebox(mCARD_OWNER+'',0+64,'',3)
> */* Code block
> */* Record In & Out of Staff in TimeRecords Table
>
> cStaff_nbr = SPACE(10)
> @03,04 Say 'Input Staff Number : ' Get cStaff_nbr pict '99999' valid !EMPTY(cStaff_nbr)
> @04,10 Say SPACE(150)
> cTARGET1 = Space(250)
> cTARGET2 = Space(250)
> @07,27 Say mCARD_NBR Pict '@K!'
>ELSE
> @03,04 Say 'Input Staff Number : ' Get cStaff_nbr pict '99999' valid !EMPTY(cStaff_nbr)
> Messagebox("Staff Number "+ cStaff_nbr + " doesn't exist!",0+16,"Search Staff",1900)
> READ
> LOOP
> ENDIF
>ELSE
>Messagebox("Please Input Staff Number!",0+64,"Emty Staff",1900)
>ENDIF
>ENDDO>
>TIA..
Difference in opinions hath cost many millions of lives: for instance, whether flesh be bread, or bread be flesh; whether whistling be a vice or a virtue; whether it be better to kiss a post, or throw it into the fire... (from Gulliver's Travels)
