备注型字段显示内容

代码如下：

CREATE CURSOR prg (prg M(8,0),name C(10,0),cfm C(1,0))
INSERT INTO prg(prg,name,cfm) VALUES ("select * from authors","authors","y")
INSERT INTO prg(prg,name,cfm) VALUES ("select * from jobs","jobs","y")
CLEAR 
nCon=SQLSTRINGCONNECT("driver=SQL Server;Server=.;Uid=sa;pwd=;database=pubs") 
SELECT prg
SCAN FOR cfm ='y'
    m.prg=ALLTRIM(prg)
    m.name=ALLTRIM(name)
    ?m.name
    ?m.prg
    ndd=SQLEXEC(nCon,m.prg,m.name)
ENDSCAN