Проверка бд на изменение

[Alexsandr]

Доброго времени суток! Есть БД Access Stomat в ней таблица AdoTable1 с полями id_priem,id1_priem,data_priem,image _priem, на Form1 лежат DBGrid1 и Image1 как сделать чтобы при закрытии формы происходила проверка :
если была изменён Image1 и пользователь не нажимал кнопки сохранить Button1 , тогда вывести окно с предупреждением.

[astecenko]

Вводите в форму свойство-признак (в принципе можно свойство Tag использовать), которое допустим, инициализируете 0, меняете на 1 при изменении Image1 и на 0 при нажатии Button1. При закрытии если в этом свойстве 1 выводите предупреждение.

[Alexsandr]

Спасибо за помощь! Только чего то у меня не получается делаю так:

procedure TForm4.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if (Form4.Image1.Canvas.Pixels[X, Y] ) = clWhite



  then  //если указатель мыши кликнул по белому цвету канвы на картинке тогда
    begin

    Form4.Image1.Canvas.Brush.Color:=clGreen;   //назначаем кисти цвет зелёный
    Form4.Image1.Canvas.FloodFill(X, Y, clWhite, fsSurface);   //закрашиваем  белую замкнутую область
     image1.Tag := 1;
     end

    else if (Image1.Canvas.Pixels[X, Y] ) = clGreen  then   //иначе если казатель мыши кликнул по зелёному цвету канвы на картинке тогда
    begin
    Form4.Image1.Canvas.Brush.Color:=clWhite;  //назначаем кисти цвет белый
    Form4.Image1.Canvas.FloodFill(X, Y, clGreen, fsSurface);  //закрашиваем  зелёную замкнутую область
      image1.Tag := 1;
    end;

при нажатии на кнопку пишу

procedure TForm4.Button2Click(Sender: TObject);
begin

  if Form4.DBGrid1.Visible = true

   then
    Form4.DBGrid1.Visible := false

       else
      Form4.DBGrid1.Visible := true ;

     begin
        if Form4.DBGrid1.Visible = true

   then  Form4.Button2.Caption := 'Закрыть'
   else
        Form4.Button2.Caption := 'Редактировать';

      begin
        if Form4.DBGrid1.Visible = true
        then
          Form4.Image1.Enabled := true
          else
           Form4.Image1.Enabled := false ;
            begin
  if Image1.Tag = 1
  then
  Form2.Show;
  
            end;
             end;

      ShowScrollBar(DBGrid1.Handle, SB_HORZ, False)

    end;

end;

И происходит ошибка ADOTable2: DataSet not in edit or insert mod

[Лесной]

Это означает, что при вставке или редактировании записей DataSet должен быть в режиме вставка (DataSet.Insert) или правка (DataSet.Edit)

[Alexsandr]

Всем спасибо! Получилось с помощью Tag.

Код:

procedure TForm4.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if (Form4.Image1.Canvas.Pixels[X, Y] ) = clWhite then  //если указатель мыши кликнул по белому цвету канвы на картинке тогда
    begin

    Form4.Image1.Canvas.Brush.Color:=clGreen;   //назначаем кисти цвет зелёный
    Form4.Image1.Canvas.FloodFill(X, Y, clWhite, fsSurface);   //закрашиваем  белую замкнутую область
    form4.Image1.Tag := 1;
     end

    else if (Image1.Canvas.Pixels[X, Y] ) = clGreen  then   //иначе если казатель мыши кликнул по зелёному цвету канвы на картинке тогда

    begin
    Form4.Image1.Canvas.Brush.Color:=clWhite;  //назначаем кисти цвет белый
    Form4.Image1.Canvas.FloodFill(X, Y, clGreen, fsSurface);  //закрашиваем  зелёную замкнутую область
      form4.Image1.Tag := 1;
    end;   //т.е. происходит событие закрасил - стёр


  begin
     Form4.Caption := 'X=' + IntToStr  (X) +  'Y=' + IntToStr  (Y)
  end;
end;

при нажатии на кнопку пишу:

procedure TForm4.Button2Click(Sender: TObject);
begin

  if Form4.DBGrid1.Visible = true

   then
    Form4.DBGrid1.Visible := false

       else
      Form4.DBGrid1.Visible := true ;

     begin
        if Form4.DBGrid1.Visible = true

   then  Form4.Button2.Caption := 'Закрыть'
   else
        Form4.Button2.Caption := 'Редактировать' ;
         ShowScrollBar(DBGrid1.Handle, SB_HORZ, False);
         end;
   begin
     if (Form4.Image1.Tag = 1)
     then
         Form5.Show;
   end;

      begin
        if Form4.DBGrid1.Visible = true
        then
          Form4.Image1.Enabled := true
          else
           Form4.Image1.Enabled := false ;
            end;
     

    end;

[astecenko]

Рад за Вас, маленькая ремарка: в условиях не обязательно писать:

Form4.DBGrid1.Visible = true

т.к. ( ИСТИНА = ИСТИНА) = ИСТИНА
достаточно

Form4.DBGrid1.Visible

,
Кроме того не понятно зачем везде писать операторные скобки (begin end) даже там где не надо, в итоге получая лишний код, который потом оптимизируется компилятором, лучьше уменшать кол-во мусора в коде, и записать как-нибудь:

procedure TForm4.Button2Click(Sender: TObject);
begin
   Form4.DBGrid1.Visible:=not(Form4.DBGrid1.Visible);
   if Form4.DBGrid1.Visible
     then
      Form4.Button2.Caption := 'Закрыть'
     else
      Form4.Button2.Caption := 'Редактировать' ;
   ShowScrollBar(DBGrid1.Handle, SB_HORZ, False);
   if Form4.Image1.Tag = 1
     then
         Form5.Show;
   Form4.Image1.Enabled:=Form4.DBGrid1.Visible;   
end;

В TForm4.Image1MouseDown тоже есть лишние операторные скобки в конце вместо

begin
     Form4.Caption := 'X=' + IntToStr  (X) +  'Y=' + IntToStr  (Y)
end;

достаточно

     Form4.Caption := 'X=' + IntToStr  (X) +  'Y=' + IntToStr  (Y)

[Пепел Феникса]

astecenko, операторные скобки не мусор.

[astecenko]

Пепел Феникса, вообще - конечно нет.
Но в данном конкретном случае - зачем они? Как средство структурирования кода?