{利用adoquery调用sql server存储过程}
procedure TForm1.Label1Click(Sender: TObject);
begin
adoquery1.Close;
adoquery1.SQL.Clear ;
adoquery1.SQL.Add('exec proc_stu :a output,:b,:c');
adoquery1.Parameters[1].Value :=strtoint(edit1.Text);
adoquery1.Parameters[2].Value :=strtoint(edit2.Text);
adoquery1.Parameters[0].DataType:=ftsmallint;
adoquery1.Parameters[0].Direction:=pdoutput;
adoquery1.Prepared:=true;
adoquery1.Open ;
edit3.Text:= inttostr(adoquery1.Parameters[0].Value );
end;
{利用adostoreproc调用sqlserver标量值函数}
procedureTForm1.Label2Click(Sender:TObject);
begin
adostoredproc1.ProcedureName:='rectanglearea';
adostoredproc1.close;
adostoredproc1.Parameters.Refresh;//Clear会导致数组溢出异常。
adostoredproc1.Parameters.CreateParameter('return_value',ftfloat,pdreturnvalue,20,null);//函数返回值
adostoredproc1.Parameters.CreateParameter('a',ftfloat,pdinput,10,null);
adostoredproc1.Parameters.CreateParameter('b',ftfloat,pdinput,10,null);
adostoredproc1.Parameters[1].Value:=strtofloat(edit1.Text);
adostoredproc1.Parameters[2].Value:=strtofloat(edit2.Text);
adostoredproc1.Prepared:=true;
adostoredproc1.ExecProc;
edit3.Text:=floattostr(adostoredproc1.Parameters[0].Value);
end;
{利用adostoreproc调用sqlserver存储过程}
procedureTForm1.Button1Click(Sender:TObject);
begin
adostoredproc1.ProcedureName:='proc_stu';
adostoredproc1.close;
adostoredproc1.Parameters.Clear;
//adostoredproc1.Parameters.CreateParameter('return_value',ftfloat,pdreturnvalue,20,null);
adostoredproc1.Parameters.CreateParameter('a',ftinteger,pdoutput,10,null);//参数名不需要与sql中定义的参数名相同
adostoredproc1.Parameters.CreateParameter('b',ftinteger,pdinput,10,null);
adostoredproc1.Parameters.CreateParameter('c',ftinteger,pdinput,10,null);
adostoredproc1.Parameters[1].Value:=strtofloat(edit1.Text);
adostoredproc1.Parameters[2].Value:=strtofloat(edit2.Text);
adostoredproc1.Prepared:=true;
adostoredproc1.Open;//有与dbgrid相关联,应用open而不是execproc.
edit3.Text:=floattostr(adostoredproc1.Parameters[0].Value);
end;
{利用adoquery调用sqlserver表值函数}
procedureTForm1.Button2Click(Sender:TObject);
begin
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select*fromdbo.tt(:a)');
adoquery1.Parameters[0].Value:=edit1.Text;
adoquery1.Prepared:=true;
adoquery1.Open;
//edit3.Text:=inttostr(adoquery1.Parameters[0].Value);
11end;