Форум: "Базы";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.29;
Скачать: [xml.tar.bz2];




Вниз

Как сделать вх. номер? 


Viktor1   (2002-04-07 00:28) [0]

Делаю программу регистрации входящих писем, нужно чтобы программа каждому письму присваивала уникальный вх.номер. Так вот к чему этот номер привязать, чтобы по окончанию года вх.номер начинался бы сначала. Может кто видел такой пример, подскажите где. База Paradox, BDE.Спасибо всем.



Anatoly Podgoretsky   (2002-04-07 09:04) [1]

Привяжи к году, год+nr



Shaman   (2002-04-07 10:01) [2]

Не используй автоинкрементное поле, а расчитывай номер письма сам. Например

function NewLetterNum(NewDate: TDateTime): Lontint;
var
d, m, y1, y2: Word;
PrevDate: TDateTime;
PrevNum: LongInt;
begin
// Определяем год из даты нового письма
DecodeDate(NewDate, d, m, y1);
// Таблица должна быть отсортирована по дате + номер письма
Table1.IndexFieldNames := "LDate;LNum";
// Определяем номер и дату последнего письма и выделяем из нее год
Table1.Last;
PrevDate := Table1.FieldByName("LDate").AsDateTime;
PrevNum := Table1.FieldByName("LNum").AsInteger;
DecodeDate(PrevDate, d, m, y2);
if y2 < y1 then Result := 1 else Result := PrevNum + 1;
end;



Viktor1   (2002-04-07 12:26) [3]

Спасибо, всё понял. Shaman огромное спасибо за пример. Главное принцип остальное дело техники!!!



dnk   (2002-04-07 15:30) [4]

Можно таким нехитрым запросом его посчтитать ->

select Max(Nomer)+1 from jurnal.db
where Year = :PY


PY = параметр текущий год




Форум: "Базы";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.29;
Скачать: [xml.tar.bz2];




Наверх







Память: 0.74 MB
Время: 0.024 c
14-94542          Judith                2002-03-22 09:37  2002.04.29  
Поздравляю народ с равноденствием.


6-94534           William               2001-12-20 23:21  2002.04.29  
NMHTTP отсылка данных в форму : метод POST


1-94459           mik                   2002-04-16 10:24  2002.04.29  
Хочу сделать единый обработчик для MainMenu


1-94399           Ezh                   2002-04-06 12:11  2002.04.29  
Из Экселя в СтрингГрид


1-94505           Kordel                2002-04-15 21:47  2002.04.29  
В каком Grid е можно выделять ячейки цветом и как?