[masterhex]

Еще раз здрасьте! решил запилить, условие при котором вообще должно выполняться вся процедура.
Т.е. если мы уже вбивали номер предмета, и он внесся в таблицу devicerev, и мы еще раз сканируем - должно вывести сообщение что мы уже сканировали.

Но он выводит сообщение при любом действии)

Код:

procedure TfMain.Edit1Change(Sender: TObject);
begin
fdm.ADOQuery3.SQL.Clear;
fdm.ADOQuery3.SQL.Text:=('SELECT * FROM devicerev WHERE sn = '''+Edit1.Text+'''');
fdm.ADOQuery3.Active:=True;
s:=0;
s:= fdm.ADOQuery3.RecordCount;
if s>0 then
begin
fdm.ADOQuery1.SQL.Clear;
fdm.ADOQuery1.SQL.Add('INSERT INTO devicerev SELECT * FROM device AS d WHERE d.sn = '''+Edit1.Text+'''');
fdm.ADOQuery1.ExecSQL;
fdm.ADOQuery2.SQL.Clear;
fdm.ADOQuery2.SQL.Add('SELECT * FROM devicerev');
fdm.ADOQuery2.Active:=True;
end
else
ShowMessage('Вы уже это сканировали');
end;

Подскажите в каком месте я облажался с построением условия?



Извините, разобрался :
вместо

Код:

if s>0 then

надо

Код:

if s=0 then

[YuliyaKar]

Здравствуйте!
Попробовала сделать как вы перенос строки в другую таблицу и ничего вообще!!!
У меня две таблицы Contain u Containers u Bay. Есть поле Edit.
Принцип такой. Это погрузка бея контейнерного судна
Беру с таблицы Contain один контейнер и ложу его в таблицу Bay. Чтоб знать какой контейнер считываю активную ячейку в Edit и по изменению Edit надо перебросить все поле того выделенного контейнер ав тблицу Containers. делаю так

Код:

procedure TForm6.Edit7Change(Sender: TObject);
begin
try
Query1.SQL.Clear;
Query1.SQL.Add('INSERT INTO Containers SELECT * FROM Contain AS Container WHERE Container LIKE '''+Edit7.Text+'''');
Query1.ExecSQL;
Query2.SQL.Clear;
Query2.SQL.Add('SELECT * FROM Containers');
Query2.Active:=True;
except
on e:Exception do
end;
end;

Я уже все офрму перечитала и так толкового ответа не нашла как сделать переброс поля в другую таблицу!!!
Буду очень благодарна за помощь!

[Mrak]

не прошло и года

советую открыть новую тему и описать там что не получается, желательно со структурой таблиц