关于动态设置存储过程的几个问题？

Question

1. 我想在前台用一个ADOStoredProc1在不同时间连接后台多个存储过程,在前台应怎么设置？
  我是这样写的，但出错，什么原因？  km:='c'+copy(datetimetostr(date),1,4)+copy(datetimetostr(date),6,2);
  ADOStoredProc1.Active :=false;
  ADOStoredProc1.Parameters[0].Value :=km;if jkglstate='ys' then
   begin
     ADOStoredProc1.ProcedureName :='yssfk_txt;1';
     ADOStoredProc1.ExecProc ;
     Application.messagebox('节水办应收数据导出完毕！  ','information',MB_ICONINFORMATION);
   end;if jkglstate='ss' then
   begin
     ADOStoredProc1.ProcedureName :='sssfk_txt;1';
     ADOStoredProc1.ExecProc ;
     Application.messagebox('节水办实收数据导出完毕！  ','information',MB_ICONINFORMATION);
   end;我分析是怎么动态设置ADOStoredProc1.Parameters的问题？2.如何将delphi的所有控件背景设置为银灰色？这种颜色在控件的color列表中是没有的(银灰色类似金山词霸的基本色调)。3.如何将delphi的所有控件背景设置为透明？ 象Label1.Transparent=true那样. 
4. 金山词霸的界面是怎么做出来的？它是用什么工具开发的？

Answer 1

2. Form1.Color := $00E9E9E9;3. 透明比较困难，如果是 WIN2000 的系统，尝试修改控件颜色的 Alpha 通道值。4. 金山词霸不知道。