IF nhandle<=0
MESSAGEBOX("数据库连接失败!!!",16, '错误信息')
RETURN
ELSE
nkd=(thisform.text1.value)
Ac=SQLEXEC(nhandle,"Select * From kq where kq.kd=?nkd","Temp1")
IF Ac<0
MESSAGEBOX("读取数据错误!",16, '错误信息')
RETURN
ENDIF
SELECT Temp1
IF RECCOUNT()=0
MESSAGEBOX("没有发现你要查找的数据!",64+0, '提示信息')
else
thisform.text2.Value=temp1.name
thisform.text3.Value=temp1.xj
ENDIF
endif
thisform.Refresh