快捷键！该如何解决

快捷键！！！
我表里有一个要输入的字段，有几个固定的值要输入（如姓名=张三；李四）一天要输入张三；李四几十遍，别的名不常有，
能不能把张三设置为F1李四设置为F2（或字母AB或数字12）按F1姓名字段就自动添加张三。


------解决方案--------------------------------------------------------

*---VFP6.0 代码
*---TEXT1.KEYPRESS
LPARAMETERS nKeyCode, nShiftAltCtrl &&该行是原来就有的
DO CASE
   CASE nKeyCode=-1 && F2键
        THISFORM.TEXT1.VALUE="张三"
   CASE nKeyCode=-2 && F3键
        THISFORM.TEXT1.VALUE="李四"
ENDCASE

------解决方案--------------------------------------------------------
将表单的 KeyPreview 属性设为 .T.
然后在表单的 KeyPress 事件写代码：

Lparameters nKeyCode, nShiftAltCtrl
Do Case
	Case nKeyCode=28	&& F1
		Nodefault
		Thisform.Caption="你按了 F1 键"
	Case nKeyCode=-1	&& F2
		Nodefault
		Thisform.Caption="你按了 F2 键"
	Case nKeyCode=-2	&& F3
		Nodefault
		Thisform.Caption="你按了 F3 键"
	Case nKeyCode=-3	&& F4
		Nodefault
		Thisform.Caption="你按了 F4 键"
	Case nKeyCode=-4	&& F5
		Nodefault
		Thisform.Caption="你按了 F5 键"
	Case nKeyCode=-5	&& F6
		Nodefault
		Thisform.Caption="你按了 F6 键"
	Case nKeyCode=-6	&& F7
		Nodefault
		Thisform.Caption="你按了 F7 键"
	Case nKeyCode=-7	&& F8
		Nodefault
		Thisform.Caption="你按了 F8 键"
	Case nKeyCode=-8	&& F9
		Nodefault
		Thisform.Caption="你按了 F9 键"
	Case nKeyCode=-9	&& F10
		Nodefault
		Thisform.Caption="你按了 F10 键"
	Case nKeyCode=133	&& F11
		Nodefault
		Thisform.Caption="你按了 F11 键"
	Case nKeyCode=134	&& F12
		Nodefault
		Thisform.Caption="你按了 F12 键"
Endcase