|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#8
|
|||
|
|||
Еще раз здрасьте! решил запилить, условие при котором вообще должно выполняться вся процедура.
Т.е. если мы уже вбивали номер предмета, и он внесся в таблицу 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 Последний раз редактировалось masterhex, 05.12.2012 в 14:55. |