Как сделать прогу с IBX пошустрее?

← →
Fareader (2002-01-04 11:57) [4]

Это с IBX
if nak_query.state=dsedit then nak_query.post;

if not write_trans.intransaction then write_trans.starttransaction;

Temp_query.close;
Temp_Query.sql.clear;
Temp_Query.sql.add("update nak set state_nak= :state_nak,");
Temp_Query.sql.add("vozvrat= :vozvrat");
Temp_Query.sql.add("where num_nak= :num_nak");
Temp_Query.parambyname("state_nak").asinteger:=3;
Temp_Query.parambyname("num_nak").asinteger:=yar_query.fieldbyname("num_nak").asinteger;
Temp_Query.parambyname("vozvrat").asinteger:=strtoint(label13.caption);
Temp_Query.execsql;

try
if nak_query.updatespending then
if not write_trans.intransaction then write_trans.starttransaction;

if nak_query.updatespending then begin
nak_query.ApplyUpdates;
sum_nak_query.CancelUpdates;
end;

if write_trans.intransaction then write_trans.commit;

ref:=true;

except
if write_trans.intransaction then write_trans.rollback;
nak_query.cancelupdates;
ref:=false;
messagedlg("

Как сделать прогу с IBX пошустрее? Найти похожие ветки