Question

delphi中用intraweb做个系统，怎么调用oracle数据库的存储过程，利用ado控件代码如何写？急！！！！！！！

intraweb这个在利用ADOStoredProc调用oracle存储过程要怎么写程序，还有adoquery怎么用来做查询等功能？请高手附上代码说明。谢谢！
procedure TIWForm1.IWButton1Click(Sender: TObject);
begin
with UserSession.ADOStoredProc1 do
begin
close;
ProcedureName := 'user_login'; //指定存储过程名称
Parameters.Clear;
Parameters.CreateParameter('v_name',ftstring,pdInput,10,NULL);
Parameters.CreateParameter('v_pswd',ftString,pdInput,16,NULL);
Parameters.CreateParameter('v_return',ftString,pdOutput,50,NULL);

Parameters.ParamByName('v_name').Value := IWEdit1.Text;
Parameters.ParamByName('v_pswd').Value := IWEdit2.Text;

prepared:=true;
ExecProc; //返回结果集用open，否则用EexcProc；

self.WebApplication.ShowMessage(Parameters.ParamByName('v_return').Value);

if Pos('欢迎',Parameters.ParamByName('v_return').Value)>0 then
begin
UserSession.Move(TIWForm2);
end;
end;
end;

用上面的代码不能运行。会报错

Answer 1

query1连接好Oracle数据库，拖一个个bitbtn控件到form上，在双击事件中写：
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
with Query1 do
begin
close;
sql.Clear;
sql.Add('insert into 数据库表 (栏位a,栏位b) values (:c,:d) ');
parambyname('c').AsString:=edit1.text;
parambyname('d').AsString:=edit2.text;
ExecSQL;
end;
end;双木516希望有所提示，有空到IT168,IT实验室,天天软件测试网进一步交流!