var
Adosp_Temp:TADOStoredProc;
begin
Adosp_Temp:=TADOStoredProc.Create(nil);
try
with Adosp_Temp do
begin
Connection:=PAdoName;
ProcedureName := 'Sp_GStaticsAppPro;1';
Parameters[0] := Parameters.CreateParameter('@Number',ftString,pdInput,20,PNumberStr);
Parameters[1] := Parameters.CreateParameter('@StaticsNumber',ftString,pdInput,20,PStaticsNumberStr);
Parameters[2] := Parameters.CreateParameter('@StaticsTime',ftString,pdInput,12,PStaticsTimeStr);
Parameters[3] := Parameters.CreateParameter('@StaticsItem',ftString,pdInput,50,PStaticsItemStr);
Parameters[4] := Parameters.CreateParameter('@StaticsTimeStart',ftString,pdInput,12,PStaticsTimeStartStr);
Parameters[5] := Parameters.CreateParameter('@StaticsTimeEnd',ftString,pdInput,12,PStaticsTimeEndStr);
Parameters[6] := Parameters.CreateParameter('@YearReg',ftString,pdInput,5,PYearRegStr);
Parameters[7] := Parameters.CreateParameter('@StaticsCondition',ftString,pdInput,5,PStaticsConditionStr);
Parameters[8] := Parameters.CreateParameter('@StaticsSty',ftString,pdInput,2,PStaticsStyStr);
Sleep(200);
ExecProc;
Result:=true;
end;
finally
Adosp_Temp.Free;
end;
end;