С Новым годом! Форум программистов, компьютерный форум, киберфорум
Delphi: Базы данных
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.57/7: Рейтинг темы: голосов - 7, средняя оценка - 4.57
 Аватар для Аника
1 / 1 / 0
Регистрация: 22.12.2012
Сообщений: 159
MS Access

Как внести в DBGrid данные через Edit

20.11.2014, 20:17. Показов 1522. Ответов 5
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
На картинке моя форма с DBGrid и Editами.
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
20.11.2014, 20:17
Ответы с готовыми решениями:

Как можно внести данные с формы Delphi (из Edit) в БД?
Как можно внести данные с формы Delphi (из Edit) в базу аксесс Есть 3 Edit: Edit1 (Имя) Edit2 (Фамилия) Edit3 (Отчество) Одна...

Как внести данные из edit1.text из Form2, в DBGrid на Form1?
как внести данные из edit1.text из Form2, в DBGrid на Form 1

Как в DBGrid добавить данные из Edit
Здравствуйте! :) Подскажите пожалуйста, как в DBGrid добавить данные из Edit? Есть Form1, на которой расположены ADOConnection,...

5
 Аватар для Аника
1 / 1 / 0
Регистрация: 22.12.2012
Сообщений: 159
20.11.2014, 21:33  [ТС]
Как внести данные - разобралась.
Подскажите как эту строчку переделать, чтобы в столбце ID значение автоматически увеличивалось на 1 (счетчик).
Delphi
1
Form_general.table_student.FieldByName('ID').AsInteger+1;
0
Модератор
 Аватар для FIL
3492 / 2614 / 742
Регистрация: 19.09.2012
Сообщений: 7,977
20.11.2014, 22:33
Это поле в Access должно быть определено как Счетчик, тогда оно само будет увеличиваться и автозаполняться.
0
 Аватар для Аника
1 / 1 / 0
Регистрация: 22.12.2012
Сообщений: 159
21.11.2014, 08:07  [ТС]
Оно определено как счетчик, но само не заполняется.
0
349 / 262 / 65
Регистрация: 07.04.2014
Сообщений: 1,603
21.11.2014, 08:24
Цитата Сообщение от Аника Посмотреть сообщение
Оно определено как счетчик, но само не заполняется.
Оно заполнится само, но только тогда, когда запись будет добавлена в БД. А, для того чтобы она была добавлена необходимо сохранить изменения в данных. Например, через ADOTable.Post.
1
 Аватар для Аника
1 / 1 / 0
Регистрация: 22.12.2012
Сообщений: 159
21.11.2014, 18:10  [ТС]
Помогите!!! Не открывается форма "Читатель". Вчера все работало, сегодня уже нет. Что не так?
Код формы general
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
uses book, student;
 
procedure TForm_general.N2Click(Sender: TObject);
begin
f:=0;
//ïðîâåðÿåì, àêòèâíà ëè íàøà ôîðìà
if ActiveMDIChild.Caption<>'×èòàòåëü'
then begin
//åñëè íåò òî èùåì åå ñðåäè íåàêòèâíûõ  è åñëè íàõîäèì, òî ïîêàçûâàåì åå
for i:=0 to form_general.MDIChildCount-1 do
if form_general.MDIChildren[i].Caption='×èòàòåëü'
then begin
MDIChildren[i].Show;
f:=1;
end;
end
else f:=1;
//åñëè ôîðìà åùå íå ñîçäàíà, òî ñîçäàåì åå
if f<>1 then TForm_student.Create(Application);
end;
Код формы student
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
procedure TForm_student.Button1Click(Sender: TObject);
begin
Form_general.table_student.Insert;
Form_general.table_student.FieldByName('¹_card').AsInteger:= StrToInt(Edit10.Text);
Form_general.table_student.FieldByName('Surname').AsString:= Edit1.Text;
Form_general.table_student.FieldByName('Name_student').AsString:= Edit2.Text;
Form_general.table_student.FieldByName('Patronymic').AsString:= Edit3.Text;
Form_general.table_student.FieldByName('DOB').AsDateTime:= StrToDate(Edit4.Text);
Form_general.table_student.FieldByName('Street').AsString:= Edit5.Text;
Form_general.table_student.FieldByName('House').AsString:= Edit6.Text;
Form_general.table_student.FieldByName('Room').AsInteger := StrToInt(Edit7.Text);
Form_general.table_student.FieldByName('Tel').AsString:= Edit8.Text;
Form_general.table_student.FieldByName('Passport').AsString:= Edit9.Text;
Form_general.table_student.Post;
Form_general.table_student.Refresh;
end;
 
procedure TForm_student.FormActivate(Sender: TObject);
begin
//óñòàíîâêà ôîêóñà ïðè àêòèâàöèè ôîðìû
dbgrid1.SetFocus;
end;
 
procedure TForm_student.Button2Click(Sender: TObject);
//óäàëåíèå çàïèñè
begin
//åñëè çàïèñè îòñóòñòâóþò òî âûâîäèì ñîîáùåíèå, èíà÷å óäàëÿåì çàïèñü
  if dbgrid1.DataSource.DataSet.RecordCount<>0
  then begin
    if (MessageBox(Handle, 'Óäàëåíèå çàïèñåé ìîæåò ïðèâåñòè ê íàðóøåíèþ ðàáîòû âñåé áàçû äàííûõ. Óäàëèòü çàïèñü?', 'Âíèìàíèå !!!', MB_YESNO)=  IDYES)
    then
    form_general.table_student.Delete
       end
       else ShowMessage('Íåò çàïèñåé äëÿ óäàëåíèÿ');
end;
 
procedure TForm_student.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
//ïðîöåäóðà çàêðûòèÿ ôîðìû
  Action:=cafree;
end;
 
procedure TForm_student.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);
//ïðîâåðêà íà íàëè÷èå ïóñòûõ çàïèñåé ïåðåä çàêðûòèåì, åñëè òàêèå çàïèñè íàéäåíû òî îòìåíÿåì //çàêðûòèå ôîðìû
begin
 if dbgrid1.DataSource.DataSet.RecordCount<>0
 then begin
if not (form_general.table_student.Locate('Surname', '', [loCaseInsensitive,loPartialKey]))
then  begin form_general.table_student.edit;
form_general.table_studnet.post;
end
 else begin ShowMessage('Ó Âàñ åñòü íå çàïîëíåííûåçàïèñè');
 CanClose:=false;
 dbgrid1.SetFocus;
 end;
end;
end;
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
21.11.2014, 18:10
Помогаю со студенческими работами здесь

Как в DBGrid добавить данные из Edit
Подскажите пожалуйста, как в DBGrid добавить данные из Edit? Есть Form1, на которой расположены ADOConnection, ADOQuery, DataSource и...

Внести данные таблицы StringGrid в DBGrid
В низу код который копирует данные таблицы DBGrid1 в StringGrid1. Мне надо код программы которая в обратном порядке будет данные с...

Как из нескольких Edit переносить данные в DBGrid одновременно построчно?
Здраствуйте. Я не давно начала разбираться с БД в Делфи. У меня есть БД, созданная в Paradox. На форме есть Editы, Buttonы, DataSource,...

Как сделать через два edit фильтрацию на DbGrid?
У меня есть Форм там есть два edita в одну надо писать Откуда выезжаешь, а во втором куда выезжаешь? а в БД станция отправления и станция...

Данные из Edit в DBGrid. Без запросов SQL
Создаю довольно примитивную программу и зависла в парочке моментов! Надеюсь тут мне помогут! Дело вот в чем! На одной форме у меня...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Новые блоги и статьи
сукцессия микоризы: основная теория в виде двух уравнений.
anaschu 11.01.2026
https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/
WordPad для Windows 11
Jel 10.01.2026
WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .
Classic Notepad for Windows 11
Jel 10.01.2026
Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .
Почему дизайн решает?
Neotwalker 09.01.2026
В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .
Модель микоризы: классовый агентный подход 3
anaschu 06.01.2026
aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114
Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR
ФедосеевПавел 06.01.2026
Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .
Модель микоризы: классовый агентный подход 2
anaschu 06.01.2026
репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .
Расчёт токов в цепи постоянного тока
igorrr37 05.01.2026
/ * Дана цепь постоянного тока с сопротивлениями и источниками (напряжения, ЭДС и тока). Найти токи и напряжения во всех элементах. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа и. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru