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

完整的界面如下：

佩服你的耐性！

传上来看看

是不是这意思？

** Test.prg
CREATE CURSOR dmk (zymc C(20), zydm C(10))
INDEX on ALLTRIM(zydm) TAG dmk_zydm
INSERT INTO dmk VALUES ("专业一", "101")
INSERT INTO dmk VALUES ("专业二", "202")
INSERT INTO dmk VALUES ("专业三", "303")
of = CREATEOBJECT("form1")
of.show(1)

DEFINE CLASS form1 as Form
    ADD OBJECT label1 as label   WITH top=10,left=10,autosize=.T.,caption="学校专业代码    学校专业名称"
    ADD OBJECT text1  as textbox WITH top=25,left=10,width=70
    ADD OBJECT text2  as textbox WITH top=25,left=110
    
    PROCEDURE text1.Lostfocus
        thisform.text2.value = ""
        IF SEEK(ALLTRIM(this.value), "dmk", "dmk_zydm")
            thisform.text2.value = dmk.zymc
        ELSE
            MESSAGEBOX("无效的学校专业代码: " + ALLTRIM(this.value))
        ENDIF
    ENDPROC
ENDDEFINE

不是，
最后我做出来了！还是谢谢你！

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

看了下，是这样子

这应该是基本技能。

我不会网络的，想了个折中的办法，以班级为单位录入，以减轻负担

楼主好，你的志愿填报系统是单机版的，还是网络版的？

[此贴子已经被作者于2016-3-7 08:34编辑过]

志愿填报系统要是网络版的就好了