Search options (Page 1 of 6)

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

В базе у меня записаны уже эти значения:
fio                  dates              RezervObr            Obrabotka
MODEL     01.01.2022             0                               1        ----- Кнопка дает сохранить но только 1 раз так как даты будут совпадать
MODEL     01.01.2022             1                               1        ----- Кнопка не дает сохранить
MODEL      01.01.2022         NULL                       NULL  ------Кнопка не дает сохранить

Павел вот о чем я говорю как это реализовать? три условия ...

Вот так вроде работает... спасибо
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;

Друзья и все таки прошу Вашей помощи в решении головоломки ( по крайней мере для меня) я 100 разных вариантов перепробовал, много читал что то не получается написать необходимый скрипт. Суть его такова:
При сохранении проверяет на дубликат - но при этом если нашел дубликат и у него есть bolean = 0 то он тебе дает сохранить а если =1 то нет. Снизу прикрепил проект для понимания.

Подскажите пожалуйста как сделать так чтоб после группового изменения записей ( если таблица большая и я нахожусь в самом низу ) после обновления выделение оставалось на том же месте, а не сдвигалась вверх?

Вот скрипт:
procedure ChangeValues(value: boolean);
var
i,c: integer;
  s: string;
begin
    if value then s := '1' else s := '0';
    c := Form1.TableGridMasters.RowCount-1;
    for i := 0 to c do
    begin
        if Form1.TableGridMasters.Selected (i) then
        begin
        SQLExecute('UPDATE bsm_off SET Vidali = '+s + ' WHERE id='+IntToStr(Form1.TableGridMasters.dbIndexToID(i)));
        end;
    end;
    Form1.TableGridMasters.dbUpdate;
end;
procedure Form1_bVidali_OnClick (Sender: TObject; var Cancel: boolean);
begin
ChangeValues(True);
end;

Помогите допилить кнопку которая имеет свойство сохранять и одновременно проверять на дубликат. У меня не получается прервать сохранение в таблицы если иметься признак дубликата. Ниже скрипт кнопки:
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;

Вот прикрепил пример. Открывайте форму и закрывайте раза 3-4 и увидите что при открытии на долю секунды таблица обретает белый цвет хотя она черная. Как лечить ?

Всем привет
Кто нибудь сталкивался с такой проблемой: есть таблица - туда записываются записи:
В самое БД это выглядит так:
record_count,Фамилия, Имя, Отчество, количество, дата.

Когда пытаюсь вывести все записи в FastRaport - то некоторые записи выглядят либо без имени либо без отчества либо без фамилии :
record_count,Фамилия,               Отчество, количество, дата.

В чем может быть причина. Программа на Mysql

Я наверное уже всех так напрягаю, искренне извиняюсь за настырность, у меня есть небольшой вопрос по поводу эмуляции нажатия кнопки, а именно интересует как программно нажать на ПРОБЕЛ(SPACE)?

procedure SimulateKeyDown(Key: byte);
begin
keybd_event(Key, 0, 0, 0);
end;
Вот на ум что приходит но как тут это реализовать ? Может кто знает ?

Все работает. Спасибо!!! 
<> '  ' - это означает что в Edit - пусто ? Да?
а как указать что что либо есть ?
И вообще может сделать проверку по БД ? Я работаю в MySQL и может как то так:
if Table1.FieldValues['...'] <> null then
begin
...
end;

Да спасибо разобрался. Убрал показать запись и вывел все через запросы