Учет недвижимости: связь полей базы с combobox и edit

@andreypoltava17 · Регистрация: 14.02.2017

Студворк — интернет-сервис помощи студентам

Ув. форумчане, вообщем делаю програму для агентства недвижимости, оболочка сама готова, базу подтягивает в DBgrid с MS ACCESS. Мораль сей басни такова что необходимо как то связать ячейки с данными которые мне выводит в дбгрид (ну тобиш ексесовская база)с полями ввода combobox и edit'ами, чтоб была возможность редактировать, искать, удалять и создавать новый обьект, в делфи новичок, опыта нету. Буду очень благодарен за оказанную помощь. Заранее спасибо!

@kavasaka · 20.02.2017, 12:12

ага.. ладно что то придумаем..

@andreypoltava17 · 20.02.2017, 12:17 **[ТС]**

ну ето получается типа назначать надо права доступа?

@kavasaka · 20.02.2017, 13:27

сделай для начала человеческую авторизацию от нее все-таки ноги ростут:

@andreypoltava17 · 20.02.2017, 15:55 **[ТС]**

спс, ну с авторизацией вроди все ясно)

Добавлено через 4 минуты
смотри, поглядел я твой код, получается то авторизацию проходит, но а как оно будет давать доступ разным юзерам?

Добавлено через 10 минут
[Error] Unit2.pas(38): Declaration expected but 'USES' found
[Error] Unit2.pas(51): Unknown directive: 'DM'
[Error] Unit2.pas(66): Undeclared identifier: 'DM'

вставил твой код в свою авторизацию,скинул ексесовкий файл в папку с прогой, dm_unit все скинул)))
чтото не вяжется

@kavasaka · 20.02.2017, 16:04

Поле для кода юзера сделал в своей таблице?
при добавлении записи (пост #39) оно должно заполняться

Delphi
1
 Form1.ADOTable1.FieldByName('k_USER').AsInteger := aq_USER.FieldByName('kod').AsInteger; //(ну или как там у тебя будет  называться таблица юзеров)

а перед операцией удаления или редактирования - проверка на это равенство. и если не=, то отмена.
Еще там в моем примере поле есть для каждого юзера is_Admin, тоже проверяешь - если true - значит всё разрешаешь.

@andreypoltava17 · 20.02.2017, 16:11 **[ТС]**

ну погодь, ето будет так как у меня было? тоисть сразу запускается форма где есть только поля ввода лога и паса, а при правильном вводе будет форма ета закрыватся и открыватся форма 2 где вся база и дб грид отображает мою базу? так?

Добавлено через 1 минуту
аа, тоисть на моем ексесе я щас добавлю еще в конце 2 поля, 'k_user' и 'kod' так?

Добавлено через 3 минуты
или просто 1 поле добавить 'kod'?

@kavasaka · 20.02.2017, 16:30

Сообщение от andreypoltava17

чтото не вяжется

у меня там датамодуль есть DM. может на это ругается. Я же не вижу что и куда ты скинул.

Сообщение от andreypoltava17

ну погодь, ето будет..

да, только все это сам допишешь, я просто принцип изобразил.

Сообщение от andreypoltava17

я щас добавлю

'k_user - да в таблицу длинное целое, значение поумолчанию - пустое.
kod - нет не нужен он ж вроде есть уже...
таблица юзеров нужна как в примере авторизации.
и связать их можно (в аксесе) в схеме данных k_user и kod из таб.юзеров с поддержкой целостности. Чтобы не было безхозных записей.

Добавлено через 10 минут

Сообщение от andreypoltava17

вообщем делаю програму для агентства недвижимости

а если не секрет - это курсовик или реальное агенство недвижимости?

@andreypoltava17 · 20.02.2017, 16:33 **[ТС]**

реальное))

@kavasaka · 20.02.2017, 16:41

а если с аксеса начать чтобы понять принцип проектирования баз данных (да и разработка там быстрее идет)? Ну а когда уже все шишки набиты будут выпустить "версию 2.0" на делфи.

@andreypoltava17 · 20.02.2017, 18:48 **[ТС]**

не ищем легких путей))) сразу прем на барикады))))

@kavasaka · 21.02.2017, 08:39

Может тогда какой-нибудь MS SQL штурмануть - он от неожиданности офигеет и сдастся

))))

@andreypoltava17 · 21.02.2017, 13:14 **[ТС]**

привет, смотри, мне в ексесовскую базу с обьектами добавить только одно поле k_user да?

@kavasaka · 21.02.2017, 13:32

да. только в "таблицу", а не "базу" - терминология типа..
Ну а что не понятного - в каждую строку забиваем код юзера чтобы видно было кому она "принадлежит".

@andreypoltava17 · 21.02.2017, 13:43 **[ТС]**

в таблицу где идут обьекты недвижимости ?

@kavasaka · 21.02.2017, 13:46

А что должно принадлежать юзерам - объекты недвижимости ? - тогда да.
И потом у тебя вообще 1 таблица была в базе

@andreypoltava17 · 21.02.2017, 14:07 **[ТС]**

пишет ошибку, не могу понять в чем дело(((
програму компилирует, ввожу логи пасы все ровненько, при добавлении обьекта когда нажимаю ОК пишет такую хрень

@kavasaka · 21.02.2017, 14:32

что менял в коде добавления (процедуру кнопки выложи)? или попробуй вернуть как было.

@andreypoltava17 · 21.02.2017, 14:36 **[ТС]**

kavasaka, давай я тебе нафиг все выкину и все дела) так же тебе проще будет

Добавлено через 1 минуту
ругается на кнопке добавить

вот ета строка какую выделаяет) но при том компилируется и запускается

Form1.ADOTable1.FieldByName('k_user').As Integer := aq_USER.FieldByName('k_user').AsInteger;

Добавлено через 33 секунды
в базу данных обьектов добавил в конце строчку k_user

@kavasaka · 21.02.2017, 14:46

а чо в правой части k_user делает??? код юзера в таблице USERS как называется?
Правильно пишет - такое поле нот фаунд - отсутствует т.е.

@andreypoltava17 · 21.02.2017, 14:50 **[ТС]**

извини немного не понял тебя, открыл твою базу юзеров не вижу там в таблице USERS

Новые блоги и статьи Все статьи Все блоги /
Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .	Программа опроса у.з. расходомера SLS-720F Argus19 02.09.2026 Программа опроса у. з. расходомера SLS-720F Программа опрашивает один раз в минуту три ультразвуковых расходомера SLS-720F через интерфейс RS-485 по протоколу Modbus RTU. Опрашиваются регистры. . .
Hyper-V: Компьютер должен поддерживать доверенный платформенный модуль 2.0. Maks 31.08.2026 При установке Windows 11 на виртуальную машину Hyper-V 2-го поколения вылезла такая ошибка: Решение: в параметрах виртуальной машины, в разделе "Безопасность" (Security) активировать флаг. . .	Архитектура биовида Стива в Майнкрафте: Зачем бонобо кубический каннибализм anaschu 30.08.2026 Кубический Вагинокапитализм в Minecraft: Математический инвариант ОДУ и рок Стивов-бонобо Главная задача разработанной «Модели Всего» — наглядно продемонстрировать наличие системной «судьбы». . .	Оттачиваю умение писать js программы. russiannick 30.08.2026 Проектом выходного дня стало написание Книги шифров Виженера. Итогом стала версия 200, синий туман. Синий туман назван так, потому что замораживает текст под собой. Нажатие синих кнопок управляют. . .	мат медиц модель 30. презентация проекта anaschu 27.08.2026 хоп хоп хоп хидахоп, а я кладую))

@andreypoltava17 0 / 0 / 0 Регистрация: 14.02.2017 Сообщений: 86

	Учет недвижимости: связь полей базы с combobox и edit 15.02.2017, 14:39. Показов 4665. Ответов 101 Метки нет (Все метки) Ув. форумчане, вообщем делаю програму для агентства недвижимости, оболочка сама готова, базу подтягивает в DBgrid с MS ACCESS. Мораль сей басни такова что необходимо как то связать ячейки с данными которые мне выводит в дбгрид (ну тобиш ексесовская база)с полями ввода combobox и edit'ами, чтоб была возможность редактировать, искать, удалять и создавать новый обьект, в делфи новичок, опыта нету. Буду очень благодарен за оказанную помощь. Заранее спасибо! 0

@kavasaka W 115 / 115 / 33 Регистрация: 16.04.2013 Сообщений: 750
	20.02.2017, 12:12
	ага.. ладно что то придумаем.. 0

@andreypoltava17 0 / 0 / 0 Регистрация: 14.02.2017 Сообщений: 86
	20.02.2017, 12:17 [ТС]
	ну ето получается типа назначать надо права доступа? 0

@andreypoltava17 0 / 0 / 0 Регистрация: 14.02.2017 Сообщений: 86
	20.02.2017, 15:55 [ТС]
	спс, ну с авторизацией вроди все ясно) Добавлено через 4 минуты смотри, поглядел я твой код, получается то авторизацию проходит, но а как оно будет давать доступ разным юзерам? Добавлено через 10 минут [Error] Unit2.pas(38): Declaration expected but 'USES' found [Error] Unit2.pas(51): Unknown directive: 'DM' [Error] Unit2.pas(66): Undeclared identifier: 'DM' вставил твой код в свою авторизацию,скинул ексесовкий файл в папку с прогой, dm_unit все скинул))) чтото не вяжется 0

@andreypoltava17 0 / 0 / 0 Регистрация: 14.02.2017 Сообщений: 86
	20.02.2017, 16:11 [ТС]
	ну погодь, ето будет так как у меня было? тоисть сразу запускается форма где есть только поля ввода лога и паса, а при правильном вводе будет форма ета закрыватся и открыватся форма 2 где вся база и дб грид отображает мою базу? так? Добавлено через 1 минуту аа, тоисть на моем ексесе я щас добавлю еще в конце 2 поля, 'k_user' и 'kod' так? Добавлено через 3 минуты или просто 1 поле добавить 'kod'? 0

@andreypoltava17 0 / 0 / 0 Регистрация: 14.02.2017 Сообщений: 86
	20.02.2017, 16:33 [ТС]
	реальное)) 0

@kavasaka W 115 / 115 / 33 Регистрация: 16.04.2013 Сообщений: 750
	20.02.2017, 16:41
	а если с аксеса начать чтобы понять принцип проектирования баз данных (да и разработка там быстрее идет)? Ну а когда уже все шишки набиты будут выпустить "версию 2.0" на делфи. 0

@andreypoltava17 0 / 0 / 0 Регистрация: 14.02.2017 Сообщений: 86
	20.02.2017, 18:48 [ТС]
	не ищем легких путей))) сразу прем на барикады)))) 0

@kavasaka W 115 / 115 / 33 Регистрация: 16.04.2013 Сообщений: 750
	21.02.2017, 08:39
	Может тогда какой-нибудь MS SQL штурмануть - он от неожиданности офигеет и сдастся )))) 0

@andreypoltava17 0 / 0 / 0 Регистрация: 14.02.2017 Сообщений: 86
	21.02.2017, 13:14 [ТС]
	привет, смотри, мне в ексесовскую базу с обьектами добавить только одно поле k_user да? 0

@kavasaka W 115 / 115 / 33 Регистрация: 16.04.2013 Сообщений: 750
	21.02.2017, 13:32
	да. только в "таблицу", а не "базу" - терминология типа.. Ну а что не понятного - в каждую строку забиваем код юзера чтобы видно было кому она "принадлежит". 0

@andreypoltava17 0 / 0 / 0 Регистрация: 14.02.2017 Сообщений: 86
	21.02.2017, 13:43 [ТС]
	в таблицу где идут обьекты недвижимости ? 0

@kavasaka W 115 / 115 / 33 Регистрация: 16.04.2013 Сообщений: 750
	21.02.2017, 13:46
	А что должно принадлежать юзерам - объекты недвижимости ? - тогда да. И потом у тебя вообще 1 таблица была в базе 0

@andreypoltava17 0 / 0 / 0 Регистрация: 14.02.2017 Сообщений: 86
	21.02.2017, 14:07 [ТС]
	пишет ошибку, не могу понять в чем дело((( програму компилирует, ввожу логи пасы все ровненько, при добавлении обьекта когда нажимаю ОК пишет такую хрень Миниатюры 0

@kavasaka W 115 / 115 / 33 Регистрация: 16.04.2013 Сообщений: 750
	21.02.2017, 14:32
	что менял в коде добавления (процедуру кнопки выложи)? или попробуй вернуть как было. 0

@andreypoltava17 0 / 0 / 0 Регистрация: 14.02.2017 Сообщений: 86
	21.02.2017, 14:36 [ТС]
	kavasaka, давай я тебе нафиг все выкину и все дела) так же тебе проще будет Добавлено через 1 минуту ругается на кнопке добавить вот ета строка какую выделаяет) но при том компилируется и запускается Form1.ADOTable1.FieldByName('k_user').As Integer := aq_USER.FieldByName('k_user').AsInteger; Добавлено через 33 секунды в базу данных обьектов добавил в конце строчку k_user 0

@kavasaka W 115 / 115 / 33 Регистрация: 16.04.2013 Сообщений: 750
	21.02.2017, 14:46
	а чо в правой части k_user делает??? код юзера в таблице USERS как называется? Правильно пишет - такое поле нот фаунд - отсутствует т.е. 0

@andreypoltava17 0 / 0 / 0 Регистрация: 14.02.2017 Сообщений: 86
	21.02.2017, 14:50 [ТС]
	извини немного не понял тебя, открыл твою базу юзеров не вижу там в таблице USERS 0