Форум: "Базы";
Поиск по всему сайту: 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.02 c
1-94506           LazorenkoX            2002-04-16 09:26  2002.04.29  
record; packed record


3-94279           yozhik                2002-04-08 13:29  2002.04.29  
Проблема с ADO


3-94285           sany                  2002-04-08 08:57  2002.04.29  
надо базу данных написать для хранения информации о видео кассетх


4-94609           Begunkov              2002-02-21 20:00  2002.04.29  
Блокировка части файла


1-94488           MVova                 2002-04-15 13:57  2002.04.29  
Точка входа в функцию