private
私有
procedure AddDepartJie;
过程
私有
procedure AddDepartJie;
过程
解决方案 »
- Delphi使用MyDAC连接MySQL数据库报错?
- 用程序修改文件名称
- DBGRID显示时,为什么数据库中单精度数值(4位小数位),在DBGrid中显示长达12位之多?
- 紧急求救!只调用外部的dll而不用其函数该怎么样调用?还有udp数据广播接收!
- 请教:在SQL SERVER 如何动态生成表?
- 那个王八蛋删除了我的贴子?删除为什么不说一声???
- 好久没用delphi了,使用delphi7报表的一小问题
- 我的sql语句错误,请看看
- 可否在没有canvas的空件里面画图,不如画线,园
- 关于Excel的问题,怎样实现下面的功能?
- 哈哈这样的问题只要参与怎么可能不拿分呀! (请版主不要删,谢谢)
- "我想一上局域网就自动获取局域网里所有计算机的IP"
但是关于前台的关于存储过程的定义和调用的语句我很不解,请给与解释一下好吗????????
如果关于统计的函数已经写好在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;
第二段是写届的,和存储过程没关系
Self.StpName := 'proc大学生体育合格标准总计评分男1';
不是有关'proc大学生体育合格标准总计评分男1'的存储过程的马?
Self.StpName := 'proc大学生体育合格标准总计评分男1';
并没有调用存储过程?我猜可能有某个方法(函数或过程SetStpName)才真正调用存储过程,这句可能是把存储过程名赋给TFSltCal的StpName字段而已