定义函数(100分)

with Modbyr1e10do
begin
while not Qry_ba.eofdo
begin
Qry_ba.edit;
Qry_baMsbjid.value := old_byrid;
Qry_basbjid.value := old_byrid+ Qry_bassbjid.value;
Qry_ba.next;
end;
end
将上诉程序，如何做成函数，即如何将 Modbyr1e10 （表单名）及 Qry_ba，Qry_baMsbjid...作为参数传递到函数中?

你的数据类型是什么?
modbyrle10:ttable?
qry_ba:tdatafield?
qry_bamsbjid:tdatafield?....
function myfunc(table1:ttable;
qry1,qry2:tdatafield): boolean;
调用时: isok:=myfunc(modbyrle10,qry_ba,qry_bamsbjid);

modbyrle10:TForm
qry_ba,qry_bamsbjid:TQuery

function MyFunc(qry_bar, qry_bamsbjid: TQuery;
old_byrid: Variant): boolean;
begin
Qry_ba.edit;
// 无效劳动
Qry_baMsbjid.value := old_byrid;
// 用法错误
Qry_basbjid.value := old_byrid+ Qry_bassbjid.value;
// 用法错误
Qry_ba.next;
// 无效劳动
end;

if Myfunc(modbyrle10.qry_ba, modibyrle10.qry_bamsbjid, modbyrle10.old_byrid) then
....

thank you !

thank you!