谁有用ADOQuery 进行数据添加和删除的例子，ADOADOStoredProc1使用的例子

Question

这是我写的一个程序里面的一段程序。用ADOQuery进行添加和删除数据实际上是用ADOADOStoredProc1进行SQl数据的存储和删除,在SQlServer方面要写好存储程序，在delphi里直接调用就可以了：  Form_Main.ADOQuery1.Active:=False;
  Form_Main.ADOQuery1.SQL.Clear;
  Form_Main.ADOQuery1.SQL.Add('Select * from Project_info order by P_id');
  Form_main.ADOQuery1.Active:=True;
  ADOStoredProc1.Parameters[1].Value:=Edit3.Text;//存储New_Project；
  ADOStoredProc1.Parameters[2].Value:=DateToStr(DateTimePicker1.DateTime)+' '+Edit4.Text;//天和小时分钟秒
  ADOStoredProc1.Parameters[3].Value:=DateToStr(DateTimePicker2.DateTime)+' '+Edit5.Text;//天和小时分钟秒
  ADOStoredProc1.Parameters[4].Value:=IntTostr(ComboBox1.Items.IndexOf(ComboBox1.Text));
  ADOStoredProc1.Parameters[6].Value:=Trim(ComboBox2.Text);
  ADOStoredProc1.ExecProc;
  pid:=ADOStoredProc1.Parameters[5].Value;//取得一个返回值Pid