iBase.ru Forum

Какой должен быть SELECT, INSERT и т.п. Или что, последовательно для каждого TDBEdit запрос повторять?

kdv писал(а):

Какой должен быть SELECT, INSERT и т.п. Или что, последовательно для каждого TDBEdit запрос повторять?

именно. похоже, ты не въезжаешь в использованную модель хранения данных.
кстати, тут дбедиты вообще не в кассу.

kdv писал(а):Насколько я в курсе, по той же модели сделана 1С версии 8.

kdv писал(а):это объектная модель. описания есть тут:
http://www.ibase.ru/develop.htm в разделе "древовидные", можешь начать с ООП в РСУБД.

собственно, ты привел структуру центральной таблицы с описанием метаданных.
Данные, как видно, все строковые, и хранятся в одной таблице типа
id_rec, id_field, data

один запрос выбирает одну "запись", в виде пачки записей со строками data. Эта "запись" уже показывается как обычная запись в форме.
набор записей вывести "автоматически "в грид" - это то же самое, только побольше работы, и надо чтобы данные как-то были отсортированы по записям.
вообще нафиг такая схема тут - не знаю, возможно "записи" могут иметь плавающий формат, т.е. разный набор столбцов. Это надо смотреть в базе и знать предметную область (ОСАГО?).
Может быть, у оригинального разработчика просто был какой-то инструмент клепания ПО на этой модели данных. Насколько я в курсе, по той же модели сделана 1С версии 8.

Solo писал(а):В общем, дата рождения - в столбце D, деньги - в столбце по имени N (и типы их тоже соответствующие).

  if Assigned(NextControl) then
    case q.FieldByName('ID_FIELD').AsString of
      'D': if NextControl is TDateEdit then
             TDateEdit(NextControl).Date := q.FieldByName('D').AsDateTime;
      'N': if NextControl is TRxCalcEdit then
             TRxCalcEdit(NextControl).Value := q.FieldByName('N').AsDouble;
      else if NextControl is TEdit then
            TEdit(NextControl).Text := q.FieldByName('C').AsString;
    end;

По порядку: данные не все строковые. Строковые хранятся в поле C - в последнем, размер 254. Дата хранится в поле D, время - в поле T, числа в N.

На деревянную базу это не похоже

Что, даже этого не умеешь?
Код: Выделить всё
if Assigned(NextControl) then
case q.FieldByName('ID_FIELD').AsString of
'D': if NextControl is TDateEdit then
TDateEdit(NextControl).Date := q.FieldByName('D').AsDateTime;
'N': if NextControl is TRxCalcEdit then
TRxCalcEdit(NextControl).Value := q.FieldByName('N').AsDouble;
else if NextControl is TEdit then
TEdit(NextControl).Text := q.FieldByName('C').AsString;
end;

Что-то Python 2.5.2 не принимает твой пример

Solo писал(а):Что-то Python 2.5.2 не принимает твой пример Может, оттого, что первая строка по-русски

Solo писал(а):даже подсказки на gdi+ прорисовывают с градиентами да стрелочками.

WildSery писал(а):

Solo писал(а):даже подсказки на gdi+ прорисовывают с градиентами да стрелочками.

Вот оно что, Петрович... Теперь это показатель приличности проги

Solo писал(а):Да нет конечно. Это ж фирма по прог. продуктам. Это же их хлеб.