delphi ÔÚDBChartÏÔʾ - Delphi / Êý¾Ý¿âÏà¹Ø

ÎÒÏëʵÏÖ½«Ò»¸ö°àµÄ³É¼¨ °´ÕÕÁùÊ®·ÖÒÔÏ£¬ÁùÊ®µ½°ËÊ®£¬°ËÊ®ÒÔÉÏ·Ö³ÉÈý×é¡£
ÔÚDBChartµÄÌõÐÎͼÀXÖáÊÇÕâÈý¸ö·ÖÊý¶Î£¬YÖáʽ¸ö·ÖÊý¶ÎµÄÈËÊý¡£
Êý¾Ý¿âÊÇsql2000µÄ
Ê×ÏȽ¨Á¢ÁË´æ´¢¹ý³ÌÈçÏÂ
create procedure makeview
@classname varchar(10),@coursename varchar(20),@semeter varchar(5)
as
begin
  create table #view
  (
  score varchar(50),
  num int
  )
  insert into #view
  select 'score<60',count(1) from OrigScore where ×îÖճɼ¨<60 And °à¼¶ºÅ=@classname And ¿ª¿ÎѧÆÚ=@semeter And ¿Î³ÌÃû³Æ=@coursename
  group by ×îÖճɼ¨
  union all
  select '60<score<80',count(1) from OrigScore where ×îÖճɼ¨<80 And ×îÖճɼ¨>60 And °à¼¶ºÅ=@classname And ¿ª¿ÎѧÆÚ=@semeter And ¿Î³ÌÃû³Æ=@coursename
  group by ×îÖճɼ¨
  union all
  select 'score>80',count(1) from OrigScore where ×îÖճɼ¨>80 And °à¼¶ºÅ=@classname And ¿ª¿ÎѧÆÚ=@semeter And ¿Î³ÌÃû³Æ=@coursename
  group by ×îÖճɼ¨

  select * from #view

end;
ÊÇûÓдíÎóµÄ¡£
È»ºóÔڲ鿴°´Å¥Àï´úÂëÈçÏÂ
ADOStoredProc1.Close;
 ADOStoredProc1.ProcedureName:='makeview';
 ADOStoredProc1.Parameters.Refresh;
 ADOStoredProc1.Parameters.ParamByName('@classname').Value:=bjh1.Text ;
 ADOStoredProc1.Parameters.ParamByName('@coursename').Value:=kcm1.Text;
 ADOStoredProc1.