12-09-2012, 10:02 PM
عدل هذا الكود
q_sms اسم الado
q_sms اسم الado
كود :
q_sms.DisableControls;
try
q_sms.Open;
q_sms.First;
while not q_sms.Eof do
begin
Table1Sum.Value:=Table1Sum.Value*10
q_sms.Next;
end;
finally
q_sms.EnableControls;
