найти ошибку в коде

[anghela]

Пожалуйста, помогите найти ошибку в коде. При компиляции сложение и вычитание не работает, работает только в том случае, если выделяешь поле в таблице. Проблема в том, что таблица должна быть невидима.
Вот код:

procedure TForm5_perevod.Button1Click(Sender: TObject);
var nom,nom2:string;
    sum,sum_zap,new_sum,new_sum2:integer;
begin
  ADOQuery1.Active:=false;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('SELECT * from Tbl_schet Where Nomer LIKE '+Edit1.Text+'');
  ADOQuery1.Active:=true;
  ADOQuery1.Open;
  nom:= ADOQuery1.Fields[0].AsString;
  ADOQuery1.Active:=false;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('SELECT * from Tbl_schet Where Nomer LIKE '+Edit3.Text+'');
  ADOQuery1.Active:=true;
  ADOQuery1.Open;
  nom2:= ADOQuery1.Fields[0].AsString;
  ADOQuery1.Active:=false;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('SELECT * from Tbl_schet Where Nomer LIKE '+nom+'');
  ADOQuery1.Active:=true;
  ADOQuery1.Open;
  sum_zap:=StrToInt(ADOQuery1.Fields[6].AsString);
  sum:=StrToInt(Edit2.Text);
  if sum_zap>sum then
    begin
       new_sum:=sum_zap-sum;
       ADOTable1.Edit;
       if ADOTable1.FieldByName('Nomer').AsString=nom then
         begin
           ADOTable1.FieldByName('Summa').AsString:=IntToStr(new_sum);
           ADOTable1.Post;
         end;

          ADOQuery1.Active:=false;
       ADOQuery1.SQL.Clear;
       ADOQuery1.SQL.Add('SELECT * from Tbl_schet Where Nomer LIKE '+nom2+'');
       ADOQuery1.Active:=true;
       ADOQuery1.Open;
       sum_zap:=StrToInt(ADOQuery1.Fields[6].AsString);
       sum:=StrToInt(Edit2.Text);
       new_sum2:=sum_zap+sum;
       ADOTable1.Edit;
       if ADOTable1.FieldByName('Nomer').AsString=nom2 then
         begin
           ADOTable1.FieldByName('Summa').AsString:=IntToStr(new_sum2);
           ADOTable1.Post;
         end;

    end
    else ShowMessage('На вашем счете недостаточно средств для перевода желаемой суммы. Пожалуйста, введите меньшую сумму');


end;

[Stilet]

Отладчиком конечно же не проходил?
Вот что для начала в глаза бросилось так это :

new_sum:=sum_zap-sum;
ADOTable1.Edit;
if ADOTable1.FieldByName('Nomer').AsSt ring=nom then
begin
ADOTable1.FieldByName('Summa').AsSt ring:=IntToStr(new_sum);
ADOTable1.Post;
end;

ADOTable1.Edit; поставь лучше непосредственно перед операцией внесения в поле.

[anghela]

Спасибо, но безрезультатно)))

Программа выполняет сложение и вычитание при нажатии на кнопку, но только в том случае, если фокус находится в редактируемой строке

[evg_m]

чтобы изменить запись ее сначала надо найти (сделать текущей)
это можно
1.вручную выбрав в DBgrid

если фокус находится в редактируемой строке

2.воспользоваться функцией программного поиска нужного Locate

if AdoTable1.Locate('nomer', nom, []) then begin
  adotable1.Edit;
  adotable.Fieldby('summa')....
  adotable1.Post;

[anghela]

Сообщение от evg_m

чтобы изменить запись ее сначала надо найти (сделать текущей)
это можно
1.вручную выбрав в DBgrid
2.воспользоваться функцией программного поиска нужного Locate

if AdoTable1.Locate('nomer', nom, []) then begin
  adotable1.Edit;
  adotable.Fieldby('summa')....
  adotable1.Post;

НЕ ПОМОГАЕТ(((

[anghela]

Если запускаешь отладчик, он говорит, что во 2 запросе не до конца написан LIKE. Помогите разобраться, плиз!!!
Код:
procedure TForm5_perevod.Button1Click(Sender: TObject);
var nom,nom2:string;
sum,sum_zap,new_sum,new_sum2:intege r;
begin
ADOQuery1.Active:=false;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('SELECT * from Tbl_schet Where Nomer LIKE '+Edit1.Text+'');
ADOQuery1.Active:=true;
ADOQuery1.Open;
nom:= ADOQuery1.Fields[0].AsString;
ADOQuery1.Active:=false;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('SELECT * from Tbl_schet Where Nomer LIKE '+Edit3.Text+'');
ADOQuery1.Active:=true;
ADOQuery1.Open;
nom2:= ADOQuery1.Fields[0].AsString;
ADOQuery1.Active:=false;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('SELECT * from Tbl_schet Where Nomer LIKE '+nom+'');
ADOQuery1.Active:=true;
ADOQuery1.Open;
sum_zap:=StrToInt(ADOQuery1.Fields[6].AsString);
sum:=StrToInt(Edit2.Text);
if sum_zap>sum then
begin
new_sum:=sum_zap-sum;
//ADOTable1.Edit;
if ADOTable1.FieldByName('Nomer').AsSt ring=nom then
begin
if ADOTable1.Locate('Nomer',nom,[]) then
begin
ADOTable1.Edit;
ADOTable1.FieldByName('Summa').AsSt ring:=IntToStr(new_sum);
ADOTable1.Post;
end;
end;

ADOQuery1.Active:=false;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('SELECT * from Tbl_schet Where Nomer LIKE '+nom2+'');
ADOQuery1.Active:=true;
ADOQuery1.Open;
sum_zap:=StrToInt(ADOQuery1.Fields[6].AsString);
sum:=StrToInt(Edit2.Text);
new_sum2:=sum_zap+sum;
ADOTable1.Edit;
if ADOTable1.FieldByName('Nomer').AsSt ring=nom2 then
begin

ADOTable1.FieldByName('Summa').AsSt ring:=IntToStr(new_sum2);
ADOTable1.Post;
end;

end
else ShowMessage('На вашем счете недостаточно средств для перевода желаемой суммы. Пожалуйста, введите меньшую сумму');


end;

end.

[Аватар]

ADOQuery1.SQL.Add('SELECT * from Tbl_schet Where Nomer LIKE '''+Edit1.Text+'''');
или
ADOQuery1.SQL.Add('SELECT * from Tbl_schet Where Nomer='''+Edit1.Text+'''');

Аналогично и другие

ADD

ADOQuery1.Active:=true;
ADOQuery1.Open;

Вместе не надо, достаточно одного из них