小弟，对这个组件不太熟，能不能介绍下用法

Question

各位大哥能不能给小弟介绍下”ADOStoredProc“这个组件的具体用法
小弟谢谢了

Answer 1

给你一段代码　
    adoS := TADOStoredProc.Create(nil);    //////设置存储过程的参数
    adoS.Connection := dModule.adoConn1;
    adoS.ProcedureName := 'queryprop';    ///填充仓库清单
    adoS.Parameters.CreateParameter('kkk',ftInteger,pdInput,0,1);
    adoS.Open;
    if adoS.RecordCount > 0 then
        while not adoS.Eof do
        begin
        cbStock.Items.Add(adoS.fieldbyname('username').AsString);
        adoS.Next;
        end;
    adoS.Close;