Динамическое создание Dbedit1

[wulf_01]

всем привет возникла проблема при динамическом создании Dbedit[i].
немогу присвоить ему datasourse=datasourse1
При нажатии на кнопку "Редактировать" в Dbgrid с таблицы забиваются данный
datafield прописываю а вот как datasourse присвоить не знаю.
заранее спасибо)

[rdama]

06:10
Вот если честно не совсем понимаю зачем динамическое создание DBEdit?
В силу того что данный компонент привязывается к определенной таблице, с определенным полем.
В чем смысл динамического создания?
Заранее не известно сколько полей в таблице?
Или вы пишете какое-то универсальное решение?
Потому что если это ни так то это скорее куча геморроя нежели необходимость.
Но это мое мнение. Доберусь до ноута с делфями. Попробую накидать ради академического интереса.
07:30
В общем вот
_tst_.zip
ПО тому что в архиве.
В папке sql лежит скрипт для создания таблицы по которой в программе динамически создаются DBEdit'ы.
Скрипт под MS SQL Server 2005. Под рукой ничего другого не оказалось.
По поводу кода. На каждый DBEdit вешается событие OnEnter.

Пора бы уже и прочесть правила раздела...
А пока - штраф за флуд, за нежелание эти правила соблюдать.

[wulf_01]

09:55

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

Вот если честно не совсем понимаю зачем динамическое создание DBEdit?
В силу того что данный компонент привязывается к определенной таблице, с определенным полем.
В чем смысл динамического создания?
Заранее не известно сколько полей в таблице?
Или вы пишете какое-то универсальное решение?
Потому что если это ни так то это скорее куча геморроя нежели необходимость.
Но это мое мнение. Доберусь до ноута с делфями. Попробую накидать ради академического интереса.

Просто я делаю процедуру редактирования.
всего будет около 7 таблиц. Редактироваться они будут по очереди.
к примеру таблица "Пользователь" там 6 полей, Таблица "РС" там 9 полей.
когда заходишь в программу dbedit-ов видно не должно быть потом они по мере выбора таблицы появляются. если создать максимальное число dbedit-ов потом придется постоянно с enable,visible включать и выключать
гемора будет еще больше))
а так выбрал определеную таблицу создал эдиты и потом их уничтожил)
10:12

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

В общем вот
Вложение 43320
ПО тому что в архиве.
В папке sql лежит скрипт для создания таблицы по которой в программе динамически создаются DBEdit'ы.
Скрипт под MS SQL Server 2005. Под рукой ничего другого не оказалось.
По поводу кода. На каждый DBEdit вешается событие OnEnter.

Rdama спасибо)) получилось.
10:17

еще один вопрос по поводу процедуры

procedure id;
var i:integer;
begin
  
Query1.First;
max:=Query1.Fields[0].AsInteger;
while not Query1.eof do
begin
Query1.Next;

if max < Query1.Fields[0].AsInteger  then
max:=Query1.Fields[0].AsInteger;
end;

Edit1.Text:=inttostr(max);
n:=2;

когда ее гденебудь используешь ругается на query1- неизвестныйй индентификатор
можно было так оставить но этот код нужно будет часто вставлять поэтому хочу записать в процедуру
как ее правильно описать чтобы он видил все элементы???
заранее спасибо

Пора бы уже и прочесть правила раздела...
А пока - штраф за флуд, за нежелание эти правила соблюдать.
Кстати, там же вполне доступно описано, что следует цитировать и что бывает за оверквотинг...

[evg_m]

а так выбрал определенную таблицу создал эдиты и потом их уничтожил)

чем действия отличаются от

выбрал определенную таблицу, включил нужные едиты и потом выключил их.

только тем что для создания надо много действий(Create и установка всех свойств top, left, width, datasource, field, parent, width, height как минимум), для включения только одно(vizible все остальное выполнено заранее при редактировании формы) если очень хочется то еще datasource.
для удаления и выключения число действий одинаково (одно Free/visible). и где проблем больше.

[fbus]

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

еще один вопрос по поводу процедуры

procedure id;
var i:integer;
begin
  
Query1.First;
max:=Query1.Fields[0].AsInteger;
while not Query1.eof do
begin
Query1.Next;

if max < Query1.Fields[0].AsInteger  then
max:=Query1.Fields[0].AsInteger;
end;

Edit1.Text:=inttostr(max);
n:=2;

когда ее гденебудь используешь ругается на query1- неизвестныйй индентификатор
можно было так оставить но этот код нужно будет часто вставлять поэтому хочу записать в процедуру
как ее правильно описать чтобы он видил все элементы???
заранее спасибо

надо писать к чему принадлежит процедура
описание процедуры должно быть

procedure TForm1.id;

тогда и компоненты увидит. и не забудь прописать ее в type

[rdama]

надо писать к чему принадлежит процедура
описание процедуры должно быть

Ну тут как говорится все зависит от того что хочешь получить.
Можно сделать как говоришь ты.
А можно и иначе например объявить процедуру как

procedure id(Query1:(Компонент типа query (TADOQuery, TQuery и т.п));

Можно в процедуру добавить обертку типа.

procedure id;
var i:integer;
begin
with form1 do
begin  
Query1.First;
max:=Query1.Fields[0].AsInteger;
while not Query1.eof do
begin
Query1.Next;

if max < Query1.Fields[0].AsInteger  then
max:=Query1.Fields[0].AsInteger;
end;

Edit1.Text:=inttostr(max);
n:=2;
end;

Все зависит от фантазии. И назначении кода.
А с какой целью данная процедура написана?
Не проще ли сделать запрос?

SELECT MAX(поле_по которому ищешь) FROM table

[Surgeon]

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

Просто я делаю процедуру редактирования.
всего будет около 7 таблиц. Редактироваться они будут по очереди.
к примеру таблица "Пользователь" там 6 полей, Таблица "РС" там 9 полей.
когда заходишь в программу dbedit-ов видно не должно быть потом они по мере выбора таблицы появляются. если создать максимальное число dbedit-ов потом придется постоянно с enable,visible включать и выключать
гемора будет еще больше))
а так выбрал определеную таблицу создал эдиты и потом их уничтожил)

Универсальный редактор?
Почему не использовать DBgrid? Он обеспечит весь необходимый функционал. Если поля только текстовые без списков выбора есть компонент DBControlGrid.
Пишется в обработчике клика на пункт меню что-то вроде :

MyCommonDBGrid.DataSet:=MyFirstDataSet;

для второго:

MyCommonDBGrid.DataSet:=MySecondDataSet;

Ускоряет разработку капитально, если нет каких-то специфических требований. Главное настроить поля наборов данных.

[wulf_01]

Всем спасибо.
Подучилось

Еще вопрос
Вот у меня известен Id как по нему из dbgrid отправить всю строку в dbMemo к примеру. знаю что нужен запрос с фильтром но как правильно реализовать???

Пора бы уже и прочесть правила раздела.
Штраф за флуд вроде бы невелик, но за 5 раз как раз набирается на бан...