Delphi: Как сделать переход на следующий учебный год(чтобы к примеру 2 класс стал 3 и так далее, а 11 чтоб менялся на архив)?

[25041996l]

Как сделать переход на следующий учебный год(чтобы к примеру 2 класс стал 3 и так далее, а 11 чтоб менялся на архив)?

[Serge_Bliznykov]

а нельзя разве хранить для класса только год начала, начальный номер и букву.
например, если в 2008 году (1 сентября, разумеется) создали три первых класса,
то создаётся три записи

год_начала начальный_класс буква
2008             1                       а
2008             1                       б
2008             1                       с

тогда номер класса в нужном году и нужном месяце придётся вычислять.
но зато
1) не надо ничего переводить из года в год (менять каждый год номер класса)
2) не надо ничего архивировать (нужно только показывать классы, которые в текущем году и месяце имеют номера с 1-го по 11-й

Как Вам такой алгоритм?

[25041996l]

А если оставить эту структуру не получится?

[Dvoishnik]

Сообщение от 25041996l

А если оставить эту структуру не получится?

Структура?? одна таблица на учеников и классы я не удивлюсь что туда со временем предметы добавятся и Т.Д.
добавьте в эту кашу год поступления и можно сделать как Serge_Bliznykov предложил

если вы это хотите сделать по тыку кнопки как это у вас

DataModule2.qry1.Edit;
DataModule2.qry1DSDesigner4.Value:=DataModule2.qry1DSDesigner4.Value+1;
DataModule2.qry1.Post;

если плюсануть год всем в цикле

DataModule2.qry1.First;
While not DataModule2.qry1.Eof do
Begin
  DataModule2.qry1.Edit;
  DataModule2.qry1DSDesigner4.Value:=DataModule2.qry1DSDesigner4.Value+1;
  DataModule2.qry1.Post;
  DataModule2.qry1.Next;
end;
end;

но такой вариант не советую.

[Serge_Bliznykov]

если плюсануть год всем в цикле

или, выполнить запрос вида:

UPDATE ТаблицаСКлассами
SET НомерКласса=НомерКласса+1