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

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

0

Сообщение от andreypoltava17 а редактирование

то ж самое только вместо слова Insert ставишь Edit. Только еще в твои эдиты надо забить текущие значения полей.

Сообщение от andreypoltava17 и удаление

Form1.ADOTable1.Delete; // удаляет текущую запись

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

0

о спс удаление работает, а как чтоб сделать типа подтвердить удаление

0

Сообщение от andreypoltava17 а как чтоб сделать типа подтвердить удаление

0

D1973, спс а код куда вписать???в код кнопки удалить?)

0

конечно.

0

большое спасибО)))) а вот с редактированием у меня чтото не выходит

0

а что не выходит?

0

привет кавасака)) куда вписывать код для редактирования? создать типа новую форму с полями как в добавлении обьекта? и код писать на кнопку РЕДАКТИРОВАТЬ??

Добавлено через 5 минут
kavasaka, а такой вопросик к тебе как к хорошему специалисту, можно ли как то в делфи настроить права доступа? есть 5 пользователей, 1 админ грубоговоря со всеми правами(добавить редакт удалить) и 4 человека сотрудники.
Програма стартует с формы ввода логина и пароля, вот вводится пароль админа тогда все чтоб активно было а при вводе сотрудников чтоб они не могли удалять допустим обьекты, а если удалть то только те что сами добавили!??

0

Привет, землячок! Новая форма это не по феншую как-то. Я бы лучше сделал глобальную переменную (такую чтобы все модули проекта видели) boolean-типа (true/fslse т.е.) с именем is_ADD например. Теперь кнопка Редактировать пишет в нее значение fslse, а кнопка Добавить пишет в нее true. Далее Форма4 (если не ошибаюсь) в событии onShow в зависимости от значения is_ADD либо заполняет Эдиты из текущей записи ADOTable1 (для редактирования) либо их очищает (для новой записи).

Добавлено через 2 минуты
также строка с Edit или Insert проходится в зависимости от этой переменной.

Добавлено через 1 минуту
короче кому-то я уже делал такую ерунду пасмотри мои темы...

0

ты полтавчанин чтоли?

Добавлено через 2 минуты
фух вроди то обьяснил доходчиво суть то уловил о чем идет речь, теперь буду думать как ето возпроизвести програмным кодом) а то делфи не научили читать мои мысли и перекодировать их в коды))))

0

Сообщение от andreypoltava17 права доступа

Ну думаю для этого тебе придется завести в базе еще 1 таблицу Users с полями
id - код
Login - логин
Pass - пароль
FIO - Фио
и права (логические):
Ac_T1 - доступ к некой Т1
ED_T1 - редактирование Т1
Ac_T2 - дост к т2
ED_T2 - редакт т2
....

Добавлено через 1 минуту
далее авторизация где-то была описана на форуме поищи поиском

Добавлено через 5 минут
ну и в зависимости от текущих значений Ac_T1 и ED_T1 либо вообще не открываешь Т1 либо открываешь только на просмотр.

Добавлено через 7 минут
либо на полное редактирование.

0

ето получается на форму 1 нужно поместить dbgrid2 и чтоб она читала base2? так?

0

dbgrid только для отображения датасета. Если отображать не требуется то не надо никакого грида.
Надо еще 1 ADOTable, (а лучше ADOQuery). И еще лучше все эти компоненты(датасеты) не на Форме1 или другой, а на специальной - Датамодуле кидать.
Блин!!! Ты вообще хоть на одной лекции был в споем полтавском пту??? ))))

0

полт пту? я заканчивал юрфак) програмирование не мой конек)))

Добавлено через 4 минуты
ну смотри кидаю я еще 1 adoquery и делаю в ексесе еще 1 базу с полями
id - код
Login - логин
Pass - пароль
FIO - Фио
и права (логические):
Ac_T1 - доступ к некой Т1
ED_T1 - редактирование Т1
Ac_T2 - дост к т2
ED_T2 - редакт т2
....

Добавлено через 49 минут
kavasaka, посмотрел я твои темы и не нашел ничего((((( по поводу редактирования

Добавлено через 8 часов 14 минут
запутался в край(((( код не могу слепить с правами доступа((((((мне по сути нужно чтоб Сотрудник 1 допустим не мог удалять обьекты других сотрудников.
К примеру, сотрудник 1 добавил обьект в бд, так вот нужно что етот обьект видели все но номер телефона (dbedit) было видно только етому пользователю и администратору.

Добавлено через 14 часов 57 минут
kavasaka, слушай чтото не вяжется у меня с редактированием обьектов))))


Цитата Сообщение от andreypoltava17 Посмотреть сообщение
а редактирование
то ж самое только вместо слова Insert ставишь Edit. Только еще в твои эдиты надо забить текущие значения полей.

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

И еще такой момент, после редактированя все поля должны как то обнулится, чтоб след раз при нажатии редактировать не показывало данные с пред редактирования.

0

Сообщение от andreypoltava17 я заканчивал юрфак

Ну и чего тебя в делфи понесло тогда?

0

вот такой примерчик был с редактированием/добавлением записи

Вложения

uoo.rar (46.5 Кб, 5 просмотров)

0

Сообщение от andreypoltava17 чтоб Сотрудник 1 допустим не мог удалять обьекты других сотрудников

ну так же и надо было сразу задачу формулировать! Т.е. нужна "принадлежность" записей юзерам. Значит при вводе новой записи пишешь код юзера в поле k_user (его нужно добавить в таблицу). И потом при редактировании проверять - совпадает с текущим юзером или запись чужая и права - на нее соответственно..

0

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

Добавлено через 4 минуты
получается есть у меня форма 1, на ней 2 едита и 2 кнопки, при вводе пароля показывается форма 2 где вся ета моя чудо-програма, вот и хочу чтоб сделать 1 юзер (администратор) видел все обьекты в базе и мог редактировать все, а обычные юзеры могли только добавлять новые записи, редактировать только свои и удалять только свои.

0

Привет. а авторизацию сделал уже?

0

сделал но она очень примитивна


var login, pass:string;

begin

login:='123';
pass:='123456';
if (edit1.text=login) and (edit2.text=pass) then Timer1.Enabled:=true

else label3.Visible:=true;
edit1.clear;
edit2.clear;

end;

procedure TForm2.Timer1Timer(Sender: TObject);
begin
Timer1.Enabled := Gauge1.Progress < Gauge1.MaxValue ;
Gauge1.Progress := Gauge1.Progress + 79;
if Gauge1.Progress = 100 then
form1.show;
form2.Visible:=false;

0