adoS.Parameters.CreateParameter('kkk',ftInteger,pdInput,0,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;
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;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货