Optical Mouse

An optical mouse that uses light to detect movement. Introduced in the late 1990s, optical mouse obsoleted mechanical mouse because their sealed bottom surfaces have no mechanical parts to absorb dust and dirt. They work by emitting light from an LED or laser, and a CMOS sensor detects the light reflections as the mouse is moved.

Early optical mouse required a special mouse pad, but modern devices can be rolled over traditional pads, as well as over almost any surface other than glass or mirror. Laser driven mice are even more tolerant of their surface than LED mouse contrast with mechanical mouse.

Edit Save VFP Code

Most of the time neophyte VFP Programmers know how to add, edit and save data on the table. But how can we improve the form design? This is a sample I usually used, to ask or confirm if the User want to edit data. A confirmation message box will appear with a 'Yes' or 'No'. From that the User can choose which will be the next function.

lAnswer = MESSAGEBOX("Save and update Counter Dispatch?", 4, "Confirmation")

IF lAnswer = 6

SELECT sviewbranch

LOCATE FOR IdNum = THISFORM.Text12.Value

IF FOUND()

REPLACE branchname WITH THISFORM.TEXT2.Value

REPLACE branchaddress WITH THISFORM.TEXT3.Value

REPLACE branchdesc WITH THISFORM.TEXT4.Value

REPLACE debit WITH THISFORM.TEXT5.Value

REPLACE credit WITH THISFORM.TEXT6.Value

REPLACE netchange WITH THISFORM.TEXT7.Value

REPLACE ending WITH THISFORM.TEXT8.Value

REPLACE branchdescnum WITH THISFORM.TEXT9.Value

REPLACE beginbal WITH THISFORM.TEXT11.Value

THISFORM.REFRESH

ENDIF