dbms:mssqlserver2000存储过程如下：CREATEproctstPro@ageint,@theNumintoutputasselect@theNum=count(sn)fromswheresa=@ageGOdelphi中调用：varstr:string;