|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Работа с DBGrid и Edit
Привет всем!
Помогите, пожааааааалуйста. Дано: 1. на Form1 расположен DBGrid (2 колонки) и кнопки "добавить", "удалить", "посмотреть" 2. кнопка "добавить" открывает Form3 3. на Form3 расположены Edit1, Edit2, Edit3, Edit4, Edit5, Edit6, Edit7, а также кнопка "ОК" Требуется: 1. При нажатии на кнопку "ОК" в колонки DBGrid'а попадали Edit1 и Edit4 2. При нажатии на кнопку "посмотреть" на конкретной строке открывалась Form3 без возможности редактирования плюс появлялась кнопка "изменить", при нажатии на которую можно было отредактировать и нажать "ОК" 3. При нажатии на кнопку "удалить" вся строка DBGrid'а удалялась |
#2
|
|||
|
|||
вместо 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; как то так |
Этот пользователь сказал Спасибо Andrew_MSK за это полезное сообщение: | ||
МАрковка (19.03.2012)
|
#3
|
|||
|
|||
Цитата:
|
#4
|
|||
|
|||
Цитата:
указывть полный путь, типа Form1.DataSource1 |
Этот пользователь сказал Спасибо lmikle за это полезное сообщение: | ||
МАрковка (19.03.2012)
|
#5
|
|||
|
|||
Только сначала не забудь формы подключить: Alt+F11.
Потом присоедини DBEditы. Например для "просмотра" просто открывай форму. А для "добавления" есть команда ADOTable.AppEnd(надо писать перед открытием формы). Кнопка "Изменить", тут поиграйся свойством visible компонента. |
Этот пользователь сказал Спасибо Demlan за это полезное сообщение: | ||
МАрковка (19.03.2012)
|
#6
|
|||
|
|||
Методом тыка Получается что он добавляет новые пустые строчки, но печатать в DBedit не дает Почему?
|
#7
|
|||
|
|||
Уже разобралась
|