AutoInc

← →
Maza (2003-08-29 16:08) [0]

Народ!!!
Можно ли реализовать в АвтоИнк такую фишку:
1 напр. есть 5 строк в DBGrid, столбец "№" содержит нумерацию данных строк (от 1 до 5).
2 потом удаляется строка №2, 3, т.е. "№" содержит 1, 4, 5, а как сделать 1, 2, 3?

P.S. В принципе, мона и без АвтоИнк

← →
Stas © (2003-08-29 16:14) [1]

Можно сделать перенумерацию строк в цикле.

Только это будет долго.

← →
Vlad © (2003-08-29 16:21) [2]

Без извращений не получится.
Вопрос - а для чего это надо ?
Может тебе кто нибудь по умней что-то посоветует ?

← →
GRAND © (2003-08-29 16:22) [3]

2 Maza (29.08.03 16:08):

А зачем? Ведь на клиенте Table1.RecNo всегда тебе вернет порядковый номер записи. А если надо в гриде, например, показывать номер КАЖДОЙ записи, то создай вычисляемое поле и в OnCalcField пропиши Table1MYAUTOINC.AsInteger:=Table1.RecNo
И все дела...

← →
Dred2k © (2003-08-29 16:47) [4]

> Stas © (29.08.03 16:14) [1]

С AutoInc такого не сделаешь.
Нужно будет создать новую таблицу.
А вообще, я этот тип данных не советую использовать - глючит, зараза. Порой выдает key violation при вставке, таблица слетает.

← →
MsGuns © (2003-08-29 16:59) [5]

Событие OnGetText поля НД, на которое ссылается колонка грида, предназначенная для №. При этом само поле не отображается, а вместо него будет:

Text := Format("%6d",[RecNo]);

Format - чтоб выровнить на правую границу

← →
Langolier (2003-08-29 22:05) [6]

2Maza
Используй RecNo... Только используй в перерисовке DBGrid"а:

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); begin with DBGrid1.Canvas do begin if Column.Index = 0 then begin FillRect(Rect); TextOut(Rect.Left, Rect.Top, ADOTable1.RecNo); end else DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State); end; end;

В DBGrid"е не забудь добавить пустой столбец и перетащи его в начало: Column.Index = 0...
P.S. Посмотри как это работает и при переиндексации таблицы, и при удалении промежуточных записей... ;-) Удачи...

← →
Anatoly Podgoretsky © (2003-08-30 00:25) [7]

Не стоит надеяться на RecNo, это хоть и логический тип для Парадокса, но совсем не работает для фильтров. Физических как в dBase нет.

← →
Langolier © (2003-08-30 01:00) [8]

Данный код служит ТОЛЬКО для нумерации строк при визуализации (во какое словцо-то..) таблицы в DBGrid"е... И RecNo по барабану отфильтрована это таблица или проиндексирована... Я такую конструкцию применил для Detail таблицы, причем ее можно индексировать по любому полю, нумерация эта будет все равно 1, 2, 3, и т.д. (DB MS Access) ;-)

Так не про Акцесс же спрашивают, а про Парадокс, вот попробуй поставить фильтр и посмотри, будет ли последовательная нумерация или нет.

Попробую... :-)

Маленкое исправление к вышесказанному...

TextOut(Rect.Left, Rect.Top, IntToStr(ADOTable1.RecNo));

С Парадоксом эта структура тож работает, но маленькое уточнение: при фильтрации DBE видит отфильтрованные записи и в итоге выдает номера типа: 2, 3, 6, 7, и т.д. При связи Master-Detail и при Сортировки все проходит отлично...
При использовании ADO даже при фильтрациии итог : 1, 2, 3, и т.д.
ЗЫ Повторюсь, данный алгоритм (см. выше) только для визуализации... :-)

AutoInc Найти похожие ветки