powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Программное внесение значения в поле БД
10 сообщений из 10, страница 1 из 1
Программное внесение значения в поле БД
    #39993974
Marina_ph2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Доброго времени суток!) Подскажите пожалуйста как можно сделать программное внесение одного значения в базу, а остальные все значения с помощью открытой формы. Делаю кодом ниже не получается:
Код: pascal
1.
2.
3.
4.
5.
 Form1.Hide;
 DataModule2.studenty_table.Insert;
 Form4.ShowModal;
 Form4.DBEdit10.Field.Value:='Первичный Первак Первашевич'; // данное значение автоматически вносится в БД
 Form4.TS4.Pages[1].TabVisible:=False; // скрывает вкладку с данными которые не касаются 1 курса


Спасибо!
...
Рейтинг: 0 / 0
Программное внесение значения в поле БД
    #39993988
Фотография wadman
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Marina_ph2
Делаю кодом ниже не получается:

Что значит "не получается"?
...
Рейтинг: 0 / 0
Программное внесение значения в поле БД
    #39993990
Фотография DarkMaster
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Marina_ph2,

DataModule2.studenty_table.Post;
...
Рейтинг: 0 / 0
Программное внесение значения в поле БД
    #39994028
b0rk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
А просто выполнить INSERT/UPDATE не вариант?
...
Рейтинг: 0 / 0
Программное внесение значения в поле БД
    #39994032
goldmi45
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
В событии BeforePost вашего датачета устанавливаете нужное значение у того поля, которое должно быть программно установленным.
...
Рейтинг: 0 / 0
Программное внесение значения в поле БД
    #39994078
DimaBr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: pascal
1.
 DataModule2.studenty_table['NameField'] := 'Первичный Первак Первашевич';
...
Рейтинг: 0 / 0
Программное внесение значения в поле БД
    #39994092
Dimitry Sibiryakov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
goldmi45В событии BeforePost

Это рекомендуется делать в OnNewRecord.
Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
Программное внесение значения в поле БД
    #39994313
Дмитрий НВ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
А датасет в режим Edit перед этим переводить разве не надо?
...
Рейтинг: 0 / 0
Программное внесение значения в поле БД
    #39994316
Фотография DarkMaster
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Дмитрий НВ,

Там Insert() уже вызван.
...
Рейтинг: 0 / 0
Программное внесение значения в поле БД
    #39994406
Фотография softwarer
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Marina_ph2
Подскажите пожалуйста как можно сделать программное внесение одного значения в базу,

Для начала Вам нужно разобраться, что Вы называете "значением". Если Вы имеете в виду "программно установить значение одного из полей, а другие позволить ввести пользователю", то наиболее подходящий вариант Вам уже назвали:

  • Сделать у DataModule2.studenty_table обработчик события OnNewRecord
  • Написать в нём что-нибудь со смыслом studenty_table.FieldByName('fio').AsString := 'Первичный Первак Первашевич'
Marina_ph2
Делаю кодом ниже не получается:

Код ниже переводит датасет в режим вставки новой записи, открывает модальное окно и ждёт, пока пользователь закроет его. В принципе, если где-ниже в коде написан и работает DataModule2.studenty_table.Post, возможно, он даже отработает так, как Вы хотели бы, но в целом это столь нелепый подход, что автоматически ограничивает максимально возможную оценку двойкой с плюсом.
...
Рейтинг: 0 / 0
10 сообщений из 10, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Программное внесение значения в поле БД
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]