Search options

В общих чертах так:

Я через Form1 хочу добавить новый автомобиль: Нажимаю кнопку "Новое авто".
Открывается форма "frmCardAuto", я заполняю поля в графах "Общая информация". Не нажимая кнопку "Ок" внизу формы, хочу добавить информацию о влдельце автомобиля, для чего выбираю вкладку "Информация о владельцах" и нажимаю кнопку "Добавить". При вызове фомы "frmOwners" я вижу как информация из раздела "Общая информация" сохраняется в БД. Я добавляю владельца нажимаю "Ок". И теперь при нажатии "Ок" система сообщает мне о наличии дубликата в БД. Т.Е. произошло сохранение в БД данных из формы, вне зависимости от моего желания сохранить инфо. Видимо это связано с тем что для ввода данных о владельце в таблицу добавляется id автомобиля.

Как то так.

Огромное спасибо,  все заработало.

Добрый день. Хочу сделать форму в которой будет CheckBox и TableGrid при выборе значения в CheckBox в TableGrid отображаются выборочные данные. Как это реализовать?

Вот ссылка:

https://www.dropbox.com/s/za7zezqr86z4xwa/DBa.zip?dl=0

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

Сделал такой скрипт:

procedure frmWorks_CheckBox1_OnClick (Sender: TObject);
begin
 if frmWorks.CheckBox1.Checked then
     begin
        frmWorks.Edit2.Enabled := True;
        frmWorks.Edit2.Color := clWindow;
        frmWorks.Edit2.SetFocus;
     end
 else begin
        frmWorks.Edit2.Enabled := False;
        frmWorks.Edit2.Color := clInactiveBorder;
      end;
end;

После активации Чекбокса выдает сообщение "Cannot focus are disabled or invisible vindow". Не могу понять в чем дело.

Этот Label нужен только для информации.

Кстати еще вопрос:
Задумал сделать такую вещь:
В таблице добавить поля:
"Замена масла", тип поля "ДА/НЕТ"
"Наименование продукта", тип поля "ТЕКСТ".

На форме разместить:
CheckBox (связанный с полем "Замена масла")
Edit (связанный с полем "Наименование продукта").
Edit при Unchecked CheckBox имеет следующие параметры: BgColor = clInactiveBorder; Enabled = False; (т.е. Поле для ввода неактивное и его нельзя выбрать.)
При Checked CheckBox параметры Edit меняются на: BgColor = clWindow; Enabled = True; (Поле становится активным)
Процедуру вешаю на frmWorks_CheckBox1_OnClick.
Не могу понять, как собрать скрипт.
BgColor не работает так как Undeclared Identifier.

В общем и целом скрипт выглядит так:

procedure frmWorks_CheckBox1_OnClick (Sender: TObject);
begin
    if frmWorks.CheckBox1.Checked = False then
       frmWorks.Edit2.Enabled := False and frmWorks.Edit2.BgColor := clInactiveBorder;
    if frmWorks.CheckBox1.Checked = True then
       frmWorks.Edit2.Enabled := True and frmWorks.Edit2.BgColor := clWindow;
end;

Но почему то он не работает. Что я делаю не так?

Спасибо. Ошибок нет. Однако в поле так и не появилось значение.

Подскажите в чем проблема:
вставляю код в тело скрипта, выдает ошибку 'BEGIN' expected at 5:1. Что я делаю не так?

Пожалуйста, если не трудно, напишите весь скрипт.

Скрины

Скрины

Скрины