|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
13.02.2013, 01:01 | #1 |
Пользователь
Регистрация: 23.01.2013
Сообщений: 23
|
Универсальная процедура
Уважаемые специалисты, вопрос простой, но не знаю как это сделать.
Я сам только начал программировать для упрощения задач на работе. Есть DataModule на нем расположены AdoConnection и несколько Adoquery и DataSource. На разных формах расположены разные DBgrid. Есть процедура вынесенная в отдельный unit: Код:
procedure adoq_2 (Adoquery1,Combobox1,Datasource1, DBGrid1) Спасибо тем, кто поможет |
13.02.2013, 04:00 | #2 |
Регистрация: 11.10.2010
Сообщений: 8
|
Код:
Код:
|
13.02.2013, 07:06 | #3 |
Тот ещё
Старожил
Регистрация: 14.11.2007
Сообщений: 2,242
|
Да. Только var не нужен. Объекты и так по ссылкам передаются.
Код:
adoq_2 (DM1.ADOQuery2, form1.ComboBox1, DM1.DataSource2, Form4.DBGrid1); |
13.02.2013, 10:06 | #4 | |
Старожил
Регистрация: 20.04.2008
Сообщений: 5,528
|
Код:
и соблюдения условия (постоянная связь Grid DataSource DataSet ) заданная изначально вручную Код:
Цитата:
Код:
Один раз в родителе настраиваем общий вид и общию реакцию на изменения. В наследниках подстраиваем данные! и реакции! А может и вовсе нужна только одна форма но во многих экземплярах и с разными экземплярами данных.
программа — запись алгоритма на языке понятном транслятору
|
|
13.02.2013, 11:03 | #5 |
Пользователь
Регистрация: 23.01.2013
Сообщений: 23
|
Спасибо за помощь. Мне подходит вариант Sibedir'а , но delphi ругается на
точку в переменных: procedure adoq_2 (DM1.ADOQuery2, form1.ComboBox1, DM1.DataSource2, Form4.DBGrid1); [DCC Error] process.pas(108): E2067 Missing parameter type После uses я прописал procedure adoq_2 (Query: TADOQuery; CbBox: TComboBox; DSource: TDataSource; Grid: TDBGrid); Последний раз редактировалось gigar; 13.02.2013 в 12:11. |
13.02.2013, 14:44 | #6 | |
Тот ещё
Старожил
Регистрация: 14.11.2007
Сообщений: 2,242
|
А где вы в моем варианте увидели
Код:
Цитата:
Последний раз редактировалось Sibedir; 13.02.2013 в 14:55. |
|
13.02.2013, 14:48 | #7 |
Пользователь
Регистрация: 23.01.2013
Сообщений: 23
|
Огромное спасибо за помощь. Это я ступил с кодом, теперь все работает.
Тему можно закрыть. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
универсальная загрузка dll | Biohazard | Общие вопросы Delphi | 19 | 24.10.2012 17:29 |
универсальная функция | jec | Общие вопросы C/C++ | 5 | 06.09.2010 02:38 |
универсальная программа для форумов !!! | designer999 | Фриланс | 1 | 10.03.2010 21:47 |
универсальная программа на C++ | Xeon332 | Помощь студентам | 4 | 27.01.2009 04:07 |
Универсальная защита | Simply-Art | Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM | 13 | 04.10.2007 10:02 |