Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 07.09.2012, 10:13   #1
Makaralex
Пользователь
 
Регистрация: 06.06.2011
Сообщений: 42
По умолчанию Deplhi + Access Вставка данных в форму наилучшем способом

Доброго времени суток!

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

id__id_f__id_g__id_v__korm
1___1____3____2____Вискас

мне нужно с формы вставлять данные,там я вот что думаю,как взять,комбобоксами или гридами? Я знаю как делать обоими, но мне нужен оптимальный вариант, чтобы долго не [+16]. Поделитесь опытом, как взять данные из таблиц, пользователь выбирает что надо, вводит последнее поле и всё записывается в базу.

Пока писал - сам надумал) Ну вы пишите,может кому понадобится, я доделаю - отпишусь =)
http://hamachi-server.ucoz.ru ———— сервера хамачи и файлы для игр по онлайн™

Последний раз редактировалось Makaralex; 07.09.2012 в 10:18.
Makaralex вне форума Ответить с цитированием
Старый 07.09.2012, 10:24   #2
Ericnex
Форумчанин
 
Регистрация: 07.04.2010
Сообщений: 218
По умолчанию

Предлагаю вариант с динамическим вводом через отдельную форму, например как у меня
Код:
datamodule2.QOwner.SQL.Add('insert into Owner (surname, name, patronymic, street, house_number, block_number, flat_number, phone_number, marriage) values (:surname, :name, :patronymic, :street, :house_number, :block_number, :flat_number, :phone_number, :marriage)');
   datamodule2.QOwner.ParamByName('surname').asstring:=edit1.Text;
   datamodule2.QOwner.ParamByName('name').asstring:=edit2.Text;
   datamodule2.QOwner.ParamByName('patronymic').asstring:=edit3.Text;
   datamodule2.QOwner.ParamByName('street').asstring:=edit4.Text;
   datamodule2.QOwner.ParamByName('house_number').asinteger:=strtoint(edit5.Text);
   datamodule2.QOwner.ParamByName('block_number').asinteger:=strtoint(edit6.Text);
   datamodule2.QOwner.ParamByName('flat_number').asinteger:=strtoint(edit7.Text);
   datamodule2.QOwner.ParamByName('phone_number').asinteger:=strtoint(edit8.Text);
   datamodule2.QOwner.ParamByName('marriage').asstring:=edit9.Text;
   datamodule2.QOwner.ExecSQL;
   datamodule2.QOwner.Close;
   datamodule2.Qowner.SQL.Clear;
   datamodule2.QOwner.SQL.Text:='select * from Owner';
   datamodule2.QOwner.Open;
Ericnex вне форума Ответить с цитированием
Старый 07.09.2012, 10:32   #3
Makaralex
Пользователь
 
Регистрация: 06.06.2011
Сообщений: 42
По умолчанию

не плохо, сразу всё выводит
а как, например, выбранное записать можно будет?
http://hamachi-server.ucoz.ru ———— сервера хамачи и файлы для игр по онлайн™
Makaralex вне форума Ответить с цитированием
Старый 07.09.2012, 11:17   #4
Ericnex
Форумчанин
 
Регистрация: 07.04.2010
Сообщений: 218
По умолчанию

Куда именно записать: из БД например в Edit?
Ericnex вне форума Ответить с цитированием
Старый 07.09.2012, 11:25   #5
Makaralex
Пользователь
 
Регистрация: 06.06.2011
Сообщений: 42
По умолчанию

например ввод данных как у меня в примере,выводятся названия, пользователь выбирает и ID записываются в таблицу вместе с последнем полем
http://hamachi-server.ucoz.ru ———— сервера хамачи и файлы для игр по онлайн™
Makaralex вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
можно ли открыть форму access в delphi...таблицы подключаются....а форму можно подключить?? Анна1217 Помощь студентам 3 06.04.2012 07:56
Произвести тестирование программы способом тестирования потоков данных. xarti Фриланс 4 17.01.2011 23:06
вставка диаграммы в форму serikov Microsoft Office Excel 3 16.06.2010 11:10
Вставка рисунка в форму с листа JAD! Microsoft Office Excel 2 22.04.2010 16:46
Вставка в форму поля из запроса covair Microsoft Office Access 3 20.02.2010 00:36