Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

dBase


vlad2 ©   (2002-03-04 09:29:00) 

Здравствуйте !
Подскажите, пожалуйста, как запретить дабовление новых
записей в таблицу, отображаемую с помощью TDBGrid. Кратко
о среде: SQL Server, ADO, Delphi. С уважением, Vlad.


JibSkeart   (2002-03-13 16:34:00) [1]

Нуу можно еще и пермишенцы выстовлять :))


Alexandr   (2002-03-13 13:58:00) [2]

на этом форуме благодарности рассылаются авторам в виде пива по e-mail


Vlad2   (2002-03-13 13:56:00) [3]

Я впервые на форуме, и не знаю, куда
посылать благодарности. Всем спасибо.
И желаю удачи.


Lusha   (2002-03-04 14:42:00) [4]

А если необходимо при этом иметь возможность вставки записей в DataSet тогда лучше так:
procedure TForm1.DBGrid1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key = VK_INSERT then
Key := 0;
if Key = VK_DOWN then
begin
TDBGrid(Sender).DataSource.DataSet.Next;
Key := 0;
end;
if Key = VK_UP then
begin
TDBGrid(Sender).DataSource.DataSet.Prior;
Key := 0
end;
end;


Nest   (2002-03-04 13:19:00) [5]

vlad2
Если нужно именно
"запретить дабовление новых записей в таблицу, отображаемую с помощью TDBGrid" но оставить возможность, например редактирования существующих записей, тогда просто редонли не подойдёт-
надо :

procedure TForm1.Table1BeforeInsert(DataSet: TDataSet);
begin
abort;
end;


Turalyon   (2002-03-04 10:14:00) [6]

TBDGrid1.ReadOnly := True;


Наверх

Титульная страница Поиск, карта сайта Написать письмо