delphi 存儲過程 傳遞輸入參數

procedure TForm1.Button1Click(Sender: TObject);

begin

with adoStoredproc1 do begin

close;

Parameters.Clear;

ProcedureName := 'charu;1';

Parameters.CreateParameter('@stno',ftString,pdInput,25,edit1.text);

Parameters.CreateParameter('@stname',ftString,pdInput,25,edit2.text);

Parameters.CreateParameter('@stsex',ftString,pdInput,25,edit3.text);

Parameters.CreateParameter('@stage',ftfloat,pdInput,0,strtofloat(edit4.text));

Parameters.CreateParameter('@stdept',ftString,pdInput,25,edit5.text);

ExecProc;

end;

end;

end.