Показать сообщение отдельно
  #2  
Старый 11.03.2012, 10:12
Andrew_MSK Andrew_MSK вне форума
Прохожий
 
Регистрация: 25.11.2011
Сообщения: 28
Репутация: 10
По умолчанию

вместо Edit лучше использовать DBedit c вкладки DataControl
dbgrid соединяете с Dataset c вкладки Data access...
в DBedit в Object Inspector выбираете в datasource ваш dataset, в datafield выбираете нужное вам поле....
кнопку добавить...делаете
Код:
procedure TForm1.Button1Click(Sender: TObject);
begin
with (ваш dataset) do
begin
append;//добавить новую строку...которую потом будете редкатировать
end;
form3.show;
end;

на кнопку OK...
Код:
procedure TForm3.Button1Click(Sender: TObject);
begin
with (ваш dataset) do
  begin
  Edit;
  Post;
  ApplyUpdates;
end;
form3.close;
end;
просмотр будет автоматически...при открытии формы...
DBEdit что показывал и не давал редактировать
в Object Inspector ставите readonly в положение true...
а enabled в положение false....

на удалить
Код:
procedure TForm3.Button1Click(Sender: TObject);
begin
with (ваш dataset) do
  begin
  delete;
  ApplyUpdates;
end;
form3.close;
end;

как то так
Ответить с цитированием