Редактирование текущей записи Dbgrid

[-=pasha=-]

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

[igh0st]

Если хочешь войти в режим редактирования текущей записи, то

Table1.Edit;

[-=pasha=-]

Я не использую Table. Я использую query. Ну в общем ситуация примерно следующая... Имеется 2 формы на одной dbgrid и пару кнопочек(редактировать добавить).. На второй несколько dbedit И кнопки сохранить и отмена. Вот что мне нужно... Мне нужно нажать кнопочку редактировать-программа переходит на 2 форму с едитами там я изменяю запись нажимаю сохранить... Возвращаюсь на первую форму, а там уже обновленная строка..

[N!ckeL]

Я не использую Table. Я использую query. Ну в общем ситуация примерно следующая... Имеется 2 формы на одной dbgrid и пару кнопочек(редактировать добавить).. На второй несколько dbedit И кнопки сохранить и отмена. Вот что мне нужно... Мне нужно нажать кнопочку редактировать-программа переходит на 2 форму с едитами там я изменяю запись нажимаю сохранить... Возвращаюсь на первую форму, а там уже обновленная строка..

Ключевое поле в таблице есть? Если да то можно сделать SQL запрос для обновления поля вида: UPDATE table SET pole1='value' WHERE id=n; а потом
второй SQL запрос для отображения результата - SELECT * FROM table;

[Korben5E]

Сообщение от -=pasha=-

Я не использую Table. Я использую query. Ну в общем ситуация примерно следующая... Имеется 2 формы на одной dbgrid и пару кнопочек(редактировать добавить).. На второй несколько dbedit И кнопки сохранить и отмена. Вот что мне нужно... Мне нужно нажать кнопочку редактировать-программа переходит на 2 форму с едитами там я изменяю запись нажимаю сохранить... Возвращаюсь на первую форму, а там уже обновленная строка..

http://programmersforum.ru/showthrea...=107250&page=2

мой последний пост

[evg_m]

если для редактирования используются DB компоненты
то можно подключится к тому набору данных (поля должны быть настроены)

form1.ADOQuery1.Edit;
form2.Datasource1.DataSet:=form1.ADOQuery1;
if form2.Showmodal=mrok then
  form1.Adoquery1.Post
else
 form1.AdoQuery1.Cancel;

но SQL лучше и надежней

[-=pasha=-]

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

if form2.Showmodal=mrok then ....

Расшифруй пожалуйста эту запись.

[Stilet]

Расшифруй пожалуйста эту запись.

В основном трактуется так:
Если открытая модальная форма была закрыта с параметром mrok, а не по нажатию на крестик или не по ALT+F4 то...

[-=pasha=-]

Всем большое спасибо, добился нужного результата.

[Bel_Danil]

Доброго времени суток, у меня такой вопрос, есть DBGrid на Form1, и есть Form2 где находятся поля внесения данных, на Form1 находятся три кнопки добавить, удалить и редактировать, я смог сделать, чтоб он добавлял и удалял, но не могу сделать так, чтоб редактировал, а вернее, чтоб при выделение какой либо строки в DBGrid и нажатии на кнопку редактировать появлялась Form2 с данными выделенной строки. Читал это пост, так и не понял, для наглядности могу привести год Form1 и Form2, и скриншоты.

Спасибо.

unit1

var
  Form1: TForm1;
  FNew: Boolean;

implementation

uses unit2;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  FNew := true;
  form2.show;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  FNew := false;
  form2.show;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  try
    with IBQuery2 do
    begin
      if FNew then
        SQL.Text := 'delete from list_phones where id= ' +
          IBQuery1.FieldByName('ID').AsString;
      transaction.StartTransaction;
      ExecSQL;
      transaction.Commit;
      transaction.Active := false;
    end;
    IBQuery1.Close;
    IBQuery1.Open;
  except
    on E: Exception do
    begin
      if IBQuery2.Active then
        IBQuery2.transaction.Rollback;
      Application.MessageBox(PChar(E.Message), 'Ошибка!', MB_ICONERROR);
    end;

  end;
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
  Form1.Close;
end;

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  IBQuery1.Close;
  IBDatabase1.Connected := false;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  FIniFile: TIniFile;
begin
  try
    FIniFile := TIniFile.Create(ExtractFilePath(Application.ExeName) +
      'config.ini');
    try
      IBDatabase1.DatabaseName := FIniFile.ReadString('Base', 'Path', '');
    finally
      FIniFile.Free;
    end;
    IBDatabase1.Connected := true;
    with IBQuery1 do
    begin
      SQL.Text :=
        'select * from list_phones order by surname, fname, patronymic';
      Open;
    end;
  except
    on E: Exception do
    begin
      Application.MessageBox(PChar(E.Message), 'Ошибка!', MB_ICONERROR);
      Halt;
    end;
  end;
end;

end.

unit2

var
  Form2: TForm2;


implementation
uses unit1;

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);
begin
  try
    with Form1.IBQuery2 do
    begin
      if FNew then
        SQL.Text := 'execute procedure proc_list_phones(-1, ''' + Edit1.Text +
          ''', ''' + Edit2.Text + ''', ''' + Edit3.Text + ''', ' +
          Edit4.Text + ')'
      else
          SQL.Text := 'execute procedure proc_list_phones(' + Form1.IBQuery1.FieldByName
          ('ID').AsString + ', ''' + Edit1.Text + ''', ''' + Edit2.Text +
          ''', ''' + Edit3.Text + ''', ' + Edit4.Text + ')';
      transaction.StartTransaction;
      ExecSQL;
      transaction.Commit;
      transaction.Active := false;
    end;
    Form1.IBQuery1.Close;
    Form1.IBQuery1.Open;
    form2.Close;
  {  form2.Visible :=false; //делаем не видимой форму         }
    form1.show; //открываем главную форму
  except
    on E: Exception do
    begin
      if Form1.IBQuery2.Active then
        Form1.IBQuery2.transaction.Rollback;
      Application.MessageBox(PChar(E.Message), 'Ошибка!', MB_ICONERROR);

    end;

  end;

end;

procedure TForm2.Button2Click(Sender: TObject);
begin
form2.Close;
end;

end.