关于调用存储过程的Delphi语句,请看下面的程序::::::::: (50分)

如果关于统计的函数已经写好在SQL Server的一个存储过程
那我在前台应该怎么样调用这个存储过程呢?
另:请帮忙解释一下这一段有关统计的程序,万分感谢了!!!!!!!!!!!!!!!!!!!!!!!111
procedure TFSltCal.AddDepartJie;
var sqltxt :string;
begin

if(r1.Checked)then
begin
Self.GrateStr := '1 年级';
Self.sltDbtable := '大一男生体育合格标准表';
AQ1.Close;
AQ1.SQL.Text := 'select distinct student_depart from nan_one';
AQ1.Open;
cb1.Items.Clear;
while not aq1.Eof do
begin
cb1.Items.Add(aq1.fieldbyname('student_depart').AsString);
aq1.Next;
end;
Aq1.Close;
aq1.SQL.Text := 'select distinct student_jie from nan_one';
aq1.Open;
cb2.Items.Clear;
while not aq1.Eof do
begin
cb2.Items.Add(aq1.fieldbyname('student_jie').AsString) ;
aq1.Next;
end;
end;
...................
各个语句最好都能说一下,我实在摸不着头脑

这一段程序是不是实现的是往选定的存储过程中写入Inout数据(执行的选择条件)呢?
比如在存储过程proc大学生体育合格标准总计评分男1中,有Select @级别=2000 后的话就
相应的存储
上面的程序与这段程序有什么关联?????请在给解释一下好马????????
(我不明白TFSltCalNa1.AddDepartJie是什么意思????AddDepartJie是什么??????)
procedure TFSltCalNa1.AddDepartJie;
var sqltxt :string;
begin

if(r1.Checked)then
begin
Self.GrateStr := '1 年级';
Self.StpName := 'proc大学生体育合格标准总计评分男1';

Aq1.Close;
aq1.SQL.Text := 'select distinct student_jie from nan_one';
aq1.Open;
cb2.Items.Clear;
while not aq1.Eof do
begin
cb2.Items.Add(aq1.fieldbyname('student_jie').AsString) ;
aq1.Next;
end;
end;

用ADOStoredProc1控件ProcedureName事存储过程名parameters是参数
procedure TFSltCal.AddDepartJie;
var sqltxt :string;
begin

if(r1.Checked)then
begin
Self.GrateStr := '1 年级';//赋值年级
Self.sltDbtable := '大一男生体育合格标准表';//赋值表名
AQ1.Close;
AQ1.SQL.Text := 'select distinct student_depart from nan_one';//查询出所有的student_depart
AQ1.Open;//执行查询
cb1.Items.Clear;//清除现有的选项
while not aq1.Eof do//判断直到结束
begin
cb1.Items.Add(aq1.fieldbyname('student_depart').AsString);//加入到下拉列表中
aq1.Next;//取下一条
end;
Aq1.Close;
aq1.SQL.Text := 'select distinct student_jie from nan_one';查询出所有的student_jie

aq1.Open;
cb2.Items.Clear;
while not aq1.Eof do
begin
cb2.Items.Add(aq1.fieldbyname('student_jie').AsString) ;//加入到下拉列表中
aq1.Next;
end;
end;

那这一段程序是不是实现的是往选定的存储过程中写入Inout数据(执行的选择条件)呢?
比如在存储过程proc大学生体育合格标准总计评分男1中,有Select @级别=2000 后的话就
相应的存储
上面的程序与这段程序有什么关联?????请在给解释一下好马????????
(我不明白TFSltCalNa1.AddDepartJie是什么意思????AddDepartJie是什么??????)
procedure TFSltCalNa1.AddDepartJie;
var sqltxt :string;
begin

if(r1.Checked)then
begin
Self.GrateStr := '1 年级';
Self.StpName := 'proc大学生体育合格标准总计评分男1';

Aq1.Close;
aq1.SQL.Text := 'select distinct student_jie from nan_one';
aq1.Open;
cb2.Items.Clear;
while not aq1.Eof do
begin
cb2.Items.Add(aq1.fieldbyname('student_jie').AsString) ;
aq1.Next;
end;
end;

在这里没有用到存储过程 只是好像做构造选择条件如果我没猜错cb应该是一个combobox即
下拉选项框,此过程是向其添加下拉选项而已,AddDepartJie是自定义的过程名
TFSltCalNa1.AddDepartJie表示是TFSltCalNa1的class的一个AddDepartJie处理过程

接受答案了.