дубликаты

Кстати, а возможно такое решение? Есть всё те же таблицы, но когда запись с человеком заносится по скрипту, то из первой таблицы он скрывается. То есть как то привязать к Id с такой логикой, что если в таблице 2 есть уже запись с определённой id человека, то с первой таблицы он скрывается и не показывается. Тогда дубликак так же становится невозможным, да и еще не засоряется людьми которые уже были назначены

Да, это упростит понимание как это сделать, но при вводе новой должности придётся лезть в код, что бы добавить Да-НЕТ в определённые столбцы... Я сделал кстати по примеру с переменными, но почему то работает криво. То есть если у меня по айди есть 1-1 то больше не добавляется, 1-2 бесконечно растёт 2-1 тоже норм, 2-2 вообще не работает, а 3-1 3-2 уже так же бесконечны... код брал из примера от автора программы

забыл  cheked -true сделать

Помогите допилить кнопку которая имеет свойство сохранять и одновременно проверять на дубликат. У меня не получается прервать сохранение в таблицы если иметься признак дубликата. Ниже скрипт кнопки:
procedure frmZakaz_Save_OnClick (Sender: TObject; var Cancel: boolean);
var
maxID:string;
Dup_Id,DOB,Fld_Concat: String;
sDateV: string;
sDateZ: string;
sDateG: string;
begin
          if frmZakaz.DateTimePicker1.Checked then
          sDateV  := '"' + FormatDateTime('yyyy-MM-DD hh:mm:ss.000', frmZakaz.DateTimePicker1.Date) + '"'
          else sDateV := 'NULL';
          if frmZakaz.DateTimePicker2.Checked then
          sDateZ  := '"' + FormatDateTime('yyyy-MM-DD hh:mm:ss.000', frmZakaz.DateTimePicker2.Date) + '"'
          else sDateZ := 'NULL';
          if frmZakaz.DateTimePicker5.Checked then
          sDateG  := '"' + FormatDateTime('yyyy-MM-DD 00:00:00.000', frmZakaz.DateTimePicker5.Date) + '"'
          else sDateG := 'NULL';

          //Проверка на дубликат
         DOB := FormatDateTime('yyyy-MM-DD 00:00:00.000',frmZakaz.DateTimePicker1.DateTime);
         Fld_Concat := frmZakaz.Edit22.Text + frmZakaz.Edit1.Text + DOB;

         Dup_Id := SqlExecute('Select id From bsm_off Where Upper(FIO) = "' + (frmZakaz.Edit22.Text) + '" and (productname) = "'
          + (frmZakaz.Edit1.Text) + '" and Date(Dates) = "' + DOB + '"');

        // Если дубликат то ошибка и нельзя сохранить - но сохраняет
        If Dup_Id <> '' then
          Begin
            MessageBox('ВЫ ДОБАВИЛИ ПОВТОРЯЮЩИЙСЯ ЗАКАЗ!','Duplicate Error',MB_Ok+MB_ICONERROR);
            frmZakaz.Save.Cancel := True;  // Cancel the save if duplicate
          End;
          //Подскажите скрипт если запись повторяеться то нельзя будет кнопкой сохранить ее
          //Нужно если дубликат прервать дальнейшее выполнение скрипта

      // запись в таблицу bsm_off
    SQLExecute('INSERT INTO bsm_off (FIO,Dates,DateZ,sDateG,productname, vfamily, vname, vlastname,record_count,id_bsm_new) VALUES ("'+frmZakaz.Edit22.Text+'",'+sDateV+','+sDateZ+','+sDateG+',"'+frmZakaz.Edit1.Text+'", "'+frmZakaz.Edit11.Text+'","'+frmZakaz.Edit7.Text+'","'+frmZakaz.Edit8.Text+'","'+frmZakaz.EditCounter1.Text+'",
"'+frmZakaz.Combobox10.sqlvalue+'")');
    // получаем id последней записи в таблице В
    maxID := SQLExecute('SELECT MAX(id) FROM bsm_off');
   // запись в таблицу orderproduct
    SQLExecute('INSERT INTO orderproduct (FIO,Dates, DataZ,dater, productname, record_count, id_bsm_off) VALUES ("'+frmZakaz.Edit22.Text+'",'+sDateV+','+sDateZ+','+sDateG+',"'+frmZakaz.Edit1.Text+'", "'+frmZakaz.EditCounter2.Text+'", "'+maxID+'")');
   // обновление таблицы данных главной формы
   frmZakaz.TableGrid2.dbUpdate;

end;

Во спасибо наталкнул на другой способ

Я добавил на другую кнопку
procedure CheckDublicate (Sender: TObject; var Cancel: boolean);
var
Dup_Id,DOB,Fld_Concat: String;
begin
         DOB := FormatDateTime('yyyy-MM-DD 00:00:00.000',frmZakaz.DateTimePicker1.DateTime);
         Fld_Concat := frmZakaz.Edit22.Text + frmZakaz.Edit1.Text + DOB;
         Dup_Id := SqlExecute('Select id From bsm_off Where Upper(FIO) = "' + (frmZakaz.Edit22.Text) + '" and (productname) = "'
          + (frmZakaz.Edit1.Text) + '" and Date(Dates) = "' + DOB + '"');
         If Dup_Id <> '' then
         begin
         frmZakaz.Button14.Click; // Открываем форму которая сообщает об ошибке
         end else
         begin
         frmZakaz.Save.Click; // Сохраняем запись
         end;
end;

А сама кнопка сохранения называется Save  - и работает )) спасибо!!! Вот как хорошо что есть поддержка )

пример

Вот так вроде работает... спасибо
procedure Form1_Button4_OnClick (Sender: TObject; var Cancel: boolean);
var
  Dup_Id: String;
begin
    Dup_Id := SqlExecute('Select id From machines Where (model) = ' + (form1.Edit1.sqlValue) + ' '+
         'and (serialnumber) = ' + (form1.Edit2.sqlValue) + ' and Date(Dates) = date(' + form1.DateTimePicker1.sqlDateTime + ') '+
         'and RezervObr = 1 ');
         If Dup_Id <> '' then
         begin
           Showmessage('Есть такая запись нельзя сохранять');
           Cancel := true;
         end else
         begin
         Showmessage('Можно сохранять');
         Cancel := true;
         end;
end;

А как Вы проверяете Rezerv, для каждой записи оно у Вас свое... То есть для новой записи оно еще не создано..
   
Для проверки уже существующего набора записей

procedure Form1_Button4_OnClick (Sender: TObject; var Cancel: boolean);
var
  Dup_Id: String;
begin
    Dup_Id := SqlExecute('Select COUNT(id) From machines Where (model) = ' + (form1.Edit1.sqlValue) + ' '+
         'and (serialnumber) = ' + (form1.Edit2.sqlValue) + ' and Date(Dates) = date(' + form1.DateTimePicker1.sqlDateTime + ') '+
         'and RezervObr = 1 ');
         If Dup_Id <> '0' then
         begin
           Showmessage('Есть такая запись Rezerv');
           Cancel := true;
         end;
end;

нет, так у Вас ничего не Выйдет..
с проверкой по базе не получиться..
программа проверяет все записи, а эти записи буду иметь различные значения...

Ну а хотя можно чтобы когда создается запись ( она изначально идет с bolean = NULL) - то больше одной записи не могли создать на одну и ту же дату ?  Или только состояние 0 или 1 можно учитывать?

Да спасибо. Помогло. Единственное что нельзя добавить проверку на дату? Если будет другое число то сохранение возможно! А то получается задействованы bolean и если дату меняешь при сохранении то не дает сохранить, так то запись уже не дубликат будет

Я подправил проверку

procedure Form1_Button4_OnClick (Sender: TObject; var Cancel: boolean);
var
  Results: Tdataset;
begin
        SqlQuery('SELECT id, RezervObr, Obrabotka FROM (Select * From machines Where (model) = ' + (form1.Edit1.sqlValue) + ' '+
         'and (serialnumber) = ' + (form1.Edit2.sqlValue) + ' and Date(Dates) = date(' + form1.DateTimePicker1.sqlDateTime + ') '+
         'ORDER BY id Desc LIMIT 1 ) m ;', Results);
         if ((NOT Results.FieldByName('id').isNull) and (Results.FieldByName('RezervObr').asString = '1') and  (Results.FieldByName('Obrabotka').asString = '1')) or
            ((NOT Results.FieldByName('id').isNull) and (Results.FieldByName('RezervObr').isNull) and  (Results.FieldByName('Obrabotka').isNull)) then
         begin
           ShowMessage('Не даем сохранить');
           Cancel := true;
         end;
     Results.Close;
end;

В проверку включен id записи. В предыдущем варианте возникала ситуация когда такая запись не существовала а проверка не позволяла записать новую. Теперь если id не Null (существует запись) то проверяются и остальные условия.