程序1.prg

来自「学生信息管理系统」· PRG 代码 · 共 8 行

select no,name,birth 
from xs 
where val(substr(dtoc(birth),7,2))=
  (
    select val(substr(dtoc(birth),7,2)) 
        from xs 
        where xs.name="李四")