delphi调用存储过程

{统计数据}

with MyStoredProc1 do

begin

StoredProcName := 'report_1';{存储过程名称}

Params.ParamByName('timebegin').Value := datetimebegin;{参数}

Params.ParamByName('timeend').Value := datetimeend;

Params.ParamByName('billbegin').Value := billbegin;

Params.ParamByName('billend').Value := billend;

Params.ParamByName('user_id').Value := userid;

ExecProc;

end;

{数据}

with MyStoredProc2 do

begin

StoredProcName := 'pro_2';

Params.ParamByName('timebegin').Value := datetimebegin;

Params.ParamByName('timeend').Value := datetimeend;

Params.ParamByName('user_id').Value := userid;

ExecProc;

end;

{数据更新}

frxDBDataset1.Close;

frxDBDataset1.FieldAliases.Clear;

frxDBDataset1.Open;

frxDBDataset1.DataSet.FieldList.Update;

frxDBDataset2.Close;

frxDBDataset2.FieldAliases.Clear;

frxDBDataset2.Open;