Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

генерация номера [D5, Paradox]


saf ©   (2002-05-20 19:23:00) 

Мастера подскажите!!! Есть таблица, у нее имеется поле
Nonaklad строкового типа.
Номера накладных примерно такие:
р2065
м1505
а2231
Мне надо чтобы генерировался очередное число для каждой буквы,
запихать ComboBox и дать возможность выбора.
если бы было просто цыфровое значение то можно сделать запрос по максимальному значению и примерно так:
Form2.Edit1.Text:=IntToStr(Form5.Query2MAXOFNoNaklad.AsInteger+1)
а вот с буквами уже не знаю как.
Заранее спасибо!!!


dimis   (2002-05-20 20:35:00) [1]

пускай таблица такая (пишу как в Oracle, но это не важно, найдешь похожие операторы)
create table nakl(
numb: varchar2(10); --номер накладной;
str:varchar2(100);-- что-то еще;
);
select substr(numb,1,1)||to_char(max(to_number((substr(numb,2,length(numb)-1))+1) maxnumb
from nakl a
group by substr(numb,1,1) - бе
что-то вроде этого
to_number и to_char в парадоксе помоему делаются через cast
cast(numb as string)


Наверх

Титульная страница Поиск, карта сайта Написать письмо