程序1.prg

学生信息管理系统

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="李四")