输入学校代码显示学校名称
我在做一个志愿录入系统,有两张表,一张是学校代码库(dmk),包括专业名称(zymc)和专业代码(zydm);另一张表(zyb)存放学生信息及志愿信息,如何实现在第一个文本框中输入学校代码后,通过查询代码库在第二个文本框中马上显示学校专业名称?界面如下:

OLDGZQ=SELECT() SELECT dmk LOCATE FOR zydm==ALLTRIM(THIS.VALUE) IF FOUND() thisform.txtzdgzMc.Value=dmk.zymc ELSE MESSAGEBOX("未找到该编号") THIS.Value="" RETURN 0 ENDIF SELECT (OLDGZQ) thisform.refresh