Создание базы данных для преподавательской кафедры
Курсовой проект - Компьютеры, программирование
Другие курсовые по предмету Компьютеры, программирование
ё свойству "Caption" присвоено значение "Расписание занятий". На неё помещены компоненты:
1) Класса "TTable", "TDataSource" (для связи приложения и базы данных), "TDBGrid" (для визуального отображения содержимого таблиц базы данных на форме); компоненты размещены в количестве по шесть от каждого класса (соответственно числу отображаемых таблиц).
Компоненты класса "TTable" получили названия:
а) "Tdisciplina" (его свойству "TableName", было присвоено значение "disciplina.db", его свойству "IndexName" - значение "Nazvaniesort" (вторичный индекс для поля "Nazvanie" таблицы "Disciplina", по этому полю таблица будет сортироваться автоматически по возрастанию), свойству "foCaseInsensitive" значение "True" (при фильтрации таблицы не придётся учитывать регистр символов вводимого значения поля фильтрации);
б) "Tprepod" (его свойству "TableName", было присвоено значение "prepod.db", его свойству "IndexName" - значение "Familiasort" (вторичный индекс для поля "Familia" таблицы "Prepod", по этому полю таблица будет сортироваться автоматически по возрастанию), свойству "foCaseInsensitive" значение "True" (при фильтрации таблицы не придётся учитывать регистр символов вводимого значения поля фильтрации);
в) "Traspisanie" (его свойству "TableName", было присвоено значение "raspisanie.db", его свойству "IndexName" - значение "Dennedelisort" (вторичный индекс для поля "Nomer_dnia_nedeli" таблицы "Raspisanie", по этому полю таблица будет сортироваться автоматически по возрастанию);
г) "Tktoshtoukovo" (его свойству "TableName", было присвоено значение "ktoshtoukovo.DB";
д) "Tauditoria" (его свойству "TableName", было присвоено значение "auditoria.db", его свойству "IndexName" - значение "Korpusort" (вторичный индекс для поля "Korpus" таблицы "Auditoria", по этому полю таблица будет сортироваться автоматически по возрастанию);
е) "Tgruppa" (его свойству "TableName", было присвоено значение "gruppa.db", его свойству "IndexName" - значение "Specialnostsort" (вторичный индекс для поля "Specialnost" таблицы "Prepod", по этому полю таблица будет сортироваться автоматически по возрастанию), свойству "foCaseInsensitive" значение "True" (при фильтрации таблицы не придётся учитывать регистр символов вводимого значения поля фильтрации);
Компоненты класса "TDataSource" получили названия:
а) "DSdisciplina" (его свойству "DataSet", было присвоено значение "Tdisciplina";
б) "DSprepod" (его свойству "DataSet", было присвоено значение "Tprepod";
в) "DSraspisanie" (его свойству "DataSet", было присвоено значение "Traspisanie";
г) "DSktoshtoukovo" (его свойству "DataSet", было присвоено значение "Tktoshtoukovo";
д) "DSauditoria" (его свойству "DataSet", было присвоено значение
"Tauditoria";
е) "DSgruppa" (его свойству "DataSet", было присвоено значение "Tgruppa";
Компоненты класса "TDBGrid" получили названия:
а) "DBdisciplina" (его свойству "DataSource", было присвоено значение "DSdisciplina";
б) "DBprepod" (его свойству "DataSource", было присвоено значение "DSprepod";
в) "DBraspisanie" (его свойству "DataSource", было присвоено значение "DSraspisanie";
г) "DBktoshtoukovo" (его свойству "DataSource", было присвоено значение "DSktoshtoukovo";
д) "DBauditoria" (его свойству "DataSource", было присвоено значение "DSauditoria";
е) "DBgruppa" (его свойству "DataSource", было присвоено значение "DSgruppa";
Для каждого компонента класса "TDBGrid" из списка отображаемых полей были удалены те, что носят технический характер и не должны быть видны пользователю, такие, как поле "KOD" и т. д.
По всем полям, предназначенным для связи с другими таблицами, были созданы в редакторах полей компонентов класса "TTable" и отображены в компонентах "TDBGrid" соответствующие поля выбора (т. н. "Lookup"-поля).
Для навигации по таблицам и их редактирования использован компонент "DBNavigator1". Его свойству "DataSource" по умолчанию присвоено значение "DSraspisanie".
Для вызова окна отображения расписания в наиболее удобной форме имеется кнопка "Button1", свойству "Caption" которой присвоено значение "Показать расписание" (соответствующий обработчик события -"TForm1.Button1Click(Sender: TObject)" - посредством функции "ShowModal" вызывает форму, на которой отображается расписание в наиболее удобном для визуального восприятия виде).
Для обращения к основным опциям программы - печати, фильтрации, выходу - создано главное меню "MainMenu1", в котором с помощью его свойства "Items" созданы пункты:
) "Файл", состоящий из подпунктов:
а) "Печать" - также запускается комбинацией клавиш "Ctrl+G" (соответствующий обработчик события - "TForm1.N2Click(Sender: TObject)" - в зависимости от указанного пункта ("ItemIndex") на компоненте "RadioGroup1" вызывается форма для распечатки той или иной таблицы посредством метода "Preview", присущего компонентам класса "TQuickRep", расположенных на каждой из этих форм);
б) "Выход" - также запускается комбинацией клавиш "Ctrl+H" (соответствующий обработчик события - "TForm1.N10Click(Sender: TObject)" - закрывает данную форму с помощью функции "Close");
) "Фильтрация", включающий подпункты:
а) "Дисциплины" - также запускается комбинацией клавиш "Ctrl+F" (соответствующий обработчик события - "TForm1.N4Click(Sender: TObject)" - вызывает форму, с которой производится фильтрация таблицы "disciplina" и вызывает процедуру "TForm1.RadioGroup1Click(Sender: TObject)", чтобы сделать соответствующий компонент класса "?/p>