|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Помогите пожалуйста с проектом
Есть база данных access со следующими таблицами:
-Ученики ID FID Фамилия Имя Отчество Комментарии -Предметы ID предмета Код Наименование -Преподаватель ID ФИО Код Должность Пароль -Группы ID Код Наименование Руководитель -Оценки Код оценки ID Предмета ID Ученика Оценка Дата В приложении Delphi преподаватель проходит процедуру авторизации: Выбирает свою учётку, группу, и предмет, после чего в StringGrid выводяться товарищи выбранной им группы. Проблема состоит в слудующем, нужно что бы выставив оценку в ячейку grid'а она записывалась в таблицу "Оценки" а так же ID ученика и предмета, которому была поставлена оценка, и ещё одна проблема, подскажите как сделать в шапке grid'а даты, 1.01 2.01 и т.д чтоб программа знала сколько дней в текущем месяце и нумеровала ячейки по кол-ву дней |
#2
|
||||
|
||||
Если у вас правильно настроены связи между таблицами Мастер-Деталь, то все будет выбираться автоматом и встречный вопрос. А на кой был взят именно StringGrid? Для БД есть хороший инструмент DBGrid. Зачем нужно было так усложнять задачу?
Цитата:
Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. |
#3
|
|||
|
|||
С начало надо сделать таблицу
Код:
uses DateUtils, ...... var daycount,i: integer; begin daycount:=(DaysInAMonth(strtoint(FormatDateTime('yyyy', now)), strtoint(FormatDateTime('mm', now)))); stringgrid1.ColCount:=daycount+1; stringgrid1.ColWidths[0]:=100; for i:=1 to daycount do begin stringgrid1.ColWidths[i]:=20; stringgrid1.Cells[i,0]:=inttostr(i); end; end; А еще удобнее вывести фио во 2 столбец а в первый ID ученика. Далее в обработчике событий Stringgrid , например по onSeteditText по координатам высчитывать день и создавать запись в таблице с оценками |