Проверка условия

[artemavd]

Ребят, че т я не могу сообразить куда воткнуть условие проверки на существование ранее вводившегося предмета . Вот код:

begin
//добавление предмета
 Form3.Table_add_predm.Insert;
 if Form3.Table_add_predm.FieldByName('Predmet').AsString <> Form3.Edit1.Text then
    begin
      Form3.Table_add_predm.FieldByName('Predmet').AsString:=Form3.Edit1.Text;
      Form3.Table_add_predm.Post;
      ShowMessage(' Предмет добавлен! ');
      Form3.Table_add_predm.Post;
    end;
//вот здесь нужно правильное условие проверки
  if Form3.Table_add_predm.FieldByName('Predmet').AsString = Form3.Edit1.Text then
    begin
     ShowMessage(' Такой предмет уже есть в базе! ');
     Form3.Edit1.Text:='';
    end;
end;

Где я ступил?

[artemavd]

Вот часть проблемы исправил. Изменил на так:

begin
 try
 if Form3.Table_add_predm.FindField('Predmet').AsString = Form3.Edit1.Text then
    begin
     ShowMessage(' Такой предмет уже есть в базе! ');
     Form3.Edit1.Text:='';
    end;

 if Form3.Table_add_predm.FieldByName('Predmet').AsString <> Form3.Edit1.Text then
    begin
      Form3.Table_add_predm.Insert;
      Form3.Table_add_predm.FieldByName('Predmet').AsString:=Form3.Edit1.Text;
      Form3.Table_add_predm.Post;
      ShowMessage(' Предмет добавлен! ');
      Form3.Table_add_predm.Post;
    end;
 end;

Теперь, если предмет уже есть, то его название в БД не заносится. Но зато добавляется пустая строка с новым IDишником . В таблице поле ID_Predmet - автоикриментное, а Predmet - A. Что еще подправить надо?

[soleil@mmc]

а зачем пост 2 раза?

      Form3.Table_add_predm.Post;
      ShowMessage(' Предмет добавлен! ');
      Form3.Table_add_predm.Post;

и зачем еще раз делать проверку? можно же просто else

if Form3.Table_add_predm.FindField('Predmet').AsString = Form3.Edit1.Text then
    begin
     ShowMessage(' Такой предмет уже есть в базе! ');
     Form3.Edit1.Text:='';
    end
 else
    begin
      Form3.Table_add_predm.Insert;
      Form3.Table_add_predm.FieldByName('Predmet').AsString:=Form3.Edit1.Text;
      Form3.Table_add_predm.Post;
      ShowMessage(' Предмет добавлен! ');
    end;

[artemavd]

а зачем пост 2 раза?

Посты разные. Внимательно посмотрите

[Minotavr_x86]

begin
 if Form3.Table_add_predm.FindField('Predmet').AsString = Form3.Edit1.Text then
    begin
     ShowMessage(' Такой предмет уже есть в базе! ');
     Form3.Edit1.Text:='';
    end
 else
    begin
      Form3.Table_add_predm.Insert;
      Form3.Table_add_predm.FieldByName('Predmet').AsString:=Form3.Edit1.Text;
      Form3.Table_add_predm.Post;
      ShowMessage(' Предмет добавлен! ');
      Form3.Table_add_predm.Post;
    end;
end;

[artemavd]

Не стал создавать отдельную тему. Вопрос: Я сделал, чтобы можно было получать ID выбранного в DBComboBox1 предмета. А как сделать, чтобы соответствующее название предмета для этого ID заносилось в другой DBGrid? Вот код получения ID:

   begin
 Nomer21:=Form1.DBLookupComboBox1.KeyValue;
 Table2.Insert;
 Table2.FieldByName('ID_Predmet').AsString:=IntToStr(Nomer21);
    end;

[soleil@mmc]

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

Посты разные. Внимательно посмотрите

я вообще-то привел сразу же код, где ты делаешь пост (Form3.Table_add_predm.Post) 2 раза подряд

[artemavd]

soleil@mmc, согласен, я виноват . Можете помочь по посту №6?

[Dark_Spirit]

   begin
 Nomer21:=Form1.DBLookupComboBox1.KeyValue;
 Table2.Insert;
 Table2.FieldByName('ID_Predmet').AsString:=IntToStr(Nomer21);
    end;

судя по тому что вы сдесь написали, свяжите DBGrid2 c Table2, но я чёт смутно подозреваю что вам нужно немного не так: вам не нужно в таблицу заносить значение, а написать простой запросик для Query, который по ID будет вытягивать из таблицы1 данные и связать этот Query с DBGrid2.

[artemavd]

Можете привести пример такого кода, который бы вытягивал данные по ID?)