Форум: "Базы";
Поиск по всему сайту: 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.72 MB
Время: 0.026 c
4-94626           Nuhim                 2002-02-22 10:43  2002.04.29  
Как перехватить уход мыши в правый край экрана


4-94635           Stan                  2002-02-26 23:53  2002.04.29  
Привет Специалистам!


1-94382           Yuraz                 2002-04-15 15:26  2002.04.29  
2 вопроса, 1) как проверить на компе есть ли ADO библ.


1-94507           Демон                 2002-04-15 20:59  2002.04.29  
Про MessageDLG


3-94346           62mkv                 2002-04-10 10:27  2002.04.29  
Ребята, есть ли у кого-нибудь отдельный дистрибут QReport 3 ?