在vfp编程过程中，建立了tabpurview数据表，建立了一个系统登录表单,
在combo1中设置了属性：rowsource属性为tabpurview.操作员姓名，rowsourcetpye属生为6-字段。

form1的init event代码为
         public cn manager  &&定义全局变量
         cn=0   &&给全局变量赋初值

combo1的keypress　event的代码为：

　　　　select tabpurview        &&选择tabpurview工作区为当前工作区
　　　　do case
    　　　case nKeyCode=40     &&按下向下前头
   　　　　 if !eof() 
        　  skip            &&记录指针向下移动一条记录
    　　else
        go bottom
   　　　 endif
    　　　this.value=操作员姓名
   　　　 case nkeycode=18       &&按下pageup
    　　 if !bof()
        skip-1
     　 else
        go top           &&记录指针多移动到第一条记录
        endif
        this.value=操作员姓名
 　　　endcase

 确定的命令按键的chick的代码为：

public manager
manager=alltrim(thisform.combo1.value)
use yygl\database\tabpurview    &&打开数据库表
cname=alltrim(thisform.combo1.value)
ppassword=alltrim(thisform.text1.value)
set order to 操作员姓名  &&指定控制索引文件
seek cname   &&快速查询
set exact on &&设定字符精确比较
*判断操作员是否正确
if alltrim(tabpurview.操作员姓名)!=cname
cn=cn+1
cmessagetitle='系统登录'
cmessagetext='操作员错误，请重新输入'
ndialogtype=4+32
nanswer=messagebox(cmessagetext,ndialo9gtype,cmessagetitle)
do case
    case nanswer=6   &&选择“是”时的操作
        thisform.combol.value=''
        thisform.combo1.setfocus
    case nanswer=7    &&选择“否”时的操作
        cmessagetitle='系统登录'
        cmessagetext='不要乱来!'
        messagebox(cmessagetext,ndiaolgtype,cmessagetitle)
        thisform.release
   endcase
   if cn=3
      thisform.release
   endif
else
*判断密码是否正确
    if alltrim(tabpurview.密码)!=ppassword
        cn=cn+1
        cmessagetitle='系统登录'
        cmessagetext='密码错误，请重新输入！'
        ndialogtype=4+32
        nanswer=messagebox(cmessagetext,ndialogtype,cmcssagetitle)
        do case
           case nanswer=6
               thisform.text1.value=''
               thisform.text1.setfocus
           case nanswer=7
               cmessagetext='不要乱来'
               messagebos(cmessagetext,ndialogtype,'系统登录')
               thisform.release
           endcase
           if cn=3
                thisform.release
           endif
        else
        purview=val(alltrim(tabpurview.权限级别))     &&根据用户选择设置级别
           pxsgl=tabpurview.销售管理　　　　　&&给全局变量赋值
           pjhgl=tabpurview.进货管理
           pkfgl=tabpurview.库房管理
           pthgl=tabpurview.财务管理
           pzmgl=tabpurview.账目管理
           pjcinfo=tabpurview.基础信息管理
           psysgl=tabpurview.系统管理
           manager=allrtim(thisform.combo1.sidplayvalue)
           do form form\fdesktop
        thisform.release
      endif
     endif
    set exact off   &&设置字符非精确比较

退出的命令按键的chick的代码为：
cmessagetitle='系统登录'
cmessagetext='真的想要退出吗？'
ndialogtype=4+32
if nanswer=6
  thisform.release    &&释放表单

endif


在试运行时提示找不到别名：tabpuriew