Главная страница
Навигация по странице:

  • ФЕДЕРАЛЬНОЕ ГОСУДАРСТВЕНОЕ БЮДЖЕТНОЕ ОБРАЗОВАТЕЛЬНОЕ УЧРЕЖДЕНИЕ ВЫСШЕГО ОБРАЗОВАНИЯ

  • «Санкт-Петербургский государственный университет промышленных технологий и Дизайна»

  • КУРСОВАЯ РАБОТА (курсовой проект)

  • Санкт-Петербург 2022 Министерство науки и высшего образования Российской Федерации

  • Утверждаю Институт информационных технологий и автоматизации

  • ЗАДАНИЕ на курсовую работу (проект)

  • АНАЛИЗ ПРЕДМЕТНОЙ ОБЛАСТИ

  • РЕАЛИЗАЦИЯ ИНФОРМАЦИОННОЙ ЗАДАЧИ

  • СПИСОК ИСПОЛЬЗОВАННЫХ ИСТОЧНИКОВ

    		•

    Информационная система учёта успеваемости студентов. Информационная система учёта успеваемости студентов по дисциплине


    Скачать 1.58 Mb.
    НазваниеИнформационная система учёта успеваемости студентов по дисциплине
    АнкорИнформационная система учёта успеваемости студентов
    Дата16.06.2022
    Размер1.58 Mb.
    Формат файлаdocx
    Имя файла4-MZA-1_LebedevMA_IS (1).docx
    ТипКурсовая
    #598099


    Министерство науки и высшего образования Российской Федерации
    ФЕДЕРАЛЬНОЕ ГОСУДАРСТВЕНОЕ БЮДЖЕТНОЕ ОБРАЗОВАТЕЛЬНОЕ УЧРЕЖДЕНИЕ
    ВЫСШЕГО ОБРАЗОВАНИЯ
    «Санкт-Петербургский государственный университет
    промышленных технологий и Дизайна»
    Институт информационных технологий и автоматизации
    Специальность (направление) 09.03.03 Прикладная информатика (по отраслям)

    Кафедра Информационных систем и компьютерного дизайна

    КУРСОВАЯ РАБОТА

    (курсовой проект)

    на тему Информационная система учёта успеваемости студентов

    по дисциплине Информационные системы и технологии



    Исполнитель – студент учебной группы
    4-МЗА-1




    (группа)

    Лебедев Матвей Алексеевич

    (фамилия, имя, отчество, подпись)

    Руководитель курсовой работы



    Доцент кафедры информационных систем и компьютерного дизайна Лебедева Светлана Викторовна

    (ученая степень, звание, фамилия, имя, отчество, подпись)


    Санкт-Петербург

    2022

    Министерство науки и высшего образования Российской Федерации
    ФЕДЕРАЛЬНОЕ ГОСУДАРСТВЕНОЕ БЮДЖЕТНОЕ ОБРАЗОВАТЕЛЬНОЕ УЧРЕЖДЕНИЕ
    ВЫСШЕГО ОБРАЗОВАНИЯ
    «Санкт-Петербургский государственный университет
    промышленных технологий и Дизайна»


    Утверждаю
    Институт информационных

    технологий и автоматизации

    Заведующий кафедрой

    _________________ А. В. Сошников

    «_______» _________________ 20__ г.
    Кафедра Информационных систем и

    компьютерного дизайна


    ЗАДАНИЕ

    на курсовую работу (проект)
    Студенту Лебедеву Матвею Алексеевичу

    1. Тема курсовой работы (проекта): Информационная система учёта успеваемости студентов

    2. Срок сдачи студентом законченной курсовой работы (проекта)

    3. Анализ предметной области

      1. Дать общее описание предмета исследования, привести общую организационную или организационно-функциональную структуру предмета исследования. Описать функциональное предназначение каждой организационной единицы структуры. Определить основные функции, подлежащие автоматизации.

      2. Функциональный анализ. (Для проведения функционального анализа использовать CASE-средство AllFusion Process Modeler).

      3. Перенести сущности в CASE-средство AllFusion Data Modeler. Провести семантический анализ и построить концептуальную модель предметной области (методика IDEF1).

      4. Выбрать СУБД Access для дальнейшей обработки данных и сгенерировать логическую модель БД. Предоставить код генерации формирования логической модели в выбранной СУБД (скрин страниц).

    4. Реализация информационной задачи.

      1. Доработать (если необходимо) логическую модель и структуру таблиц БД.

      2. Преобразовать БД, разработанную в СУБД Access в проект Access для использования его в качестве клиентского приложения для работы по технологии клиент-сервер.

      3. Доработать проект Access, используя возможности клиент-серверных технологий

    5. Перечень графических материалов: рисунки 16 шт.

    6. Дата выдачи задания _______________Руководитель_______________________

    (подпись)

    Задание принял к исполнению_________________ _________________________

    (дата) (подпись студента)

    РЕФЕРАТ

    Пояснительная записка по дисциплине «Информационные системы и технологии» 30 с., 16 рис., 2 источников, 1 приложение.

    ИНФОРМАЦИОННЫЕ СИСТЕМЫ, БАЗА ДАННЫХ, УЧЕБНОЕ ЗАВЕДЕНИЕ, УЧЕТ УСПЕВАЕМОСТИ, АВТОМАТИЗАЦИЯ, CASE-АНАЛИЗ, КОНТЕКСТНАЯ ДИАГРАММА, СУЩНОСТИ, ДЕКОМПОЗИЦИЯ, ТАБЛИЦА, SQL SERVER

    Получение теоретических знаний и практических навыков по основам архитектуры и функционирования информационных систем (ИС). Обучение применению современных информационных технологий для разработки информационных технологий и систем.

    Рассмотрены основные возможности программ для анализа и функционирования информационных систем, принципы работы, области применения.

    Выполнены разработка и анализ базы данных учебного заведения для учета успеваемости студентов. Использованы различные возможности программ Microsoft Access, CASE-средств ALLFUSION PROCESS MODELER и ALLFUSION DATA MODELER, SQL Server.

    СОДЕРЖАНИЕ


    ВВЕДЕНИЕ 3

    1.АНАЛИЗ ПРЕДМЕТНОЙ ОБЛАСТИ 4

    1.1Организационная структура предприятия 4

    1.2Функциональный анализ 4

    2.РЕАЛИЗАЦИЯ ИНФОРМАЦИОННОЙ ЗАДАЧИ 13

    2.1Логическая модель и структура таблиц БД 13

    2.2Преобразование БД, разработанную в СУБД Access в проект Access для использования его в качестве клиентского приложения для работы по технологии клиент-сервер. 14

    2.3Доработать проект Access, используя возможности клиент-серверных технологий, дополнив его: 14

    2.3.1Сохранёнными процедурами 14

    2.3.2Триггерами 15

    ЗАКЛЮЧЕНИЕ 16

    СПИСОК ИСПОЛЬЗОВАННЫХ ИСТОЧНИКОВ 17

    ПРИЛОЖЕНИЕ 18


    ВВЕДЕНИЕ


    Использование информационных систем стало одной из самой важной частью организации учебного процесса. Системный анализ позволяет оптимизировать и автоматизировать все процессы в учебном заведении.

    Такие системы должны позволять сократить объем документации и количество времени, которое затрачивается на её оформление. Наглядность представления информации в виде информационных систем позволит облегчить процесс принятия учебных вопросов и снизить трудоёмкость процессов.

    Современные учебные заведения не могут обойтись без базы данных. Автоматизация процессов на предприятии значительно упрощает производственные процессы. Это основные аспекты из-за, которых я выбрал эту тему исследования и считаю ее актуальной

    Целью данной курсовой работы является получение навыков по основам архитектуры и функционирования информационных систем, применению современных информационных технологий для разработки информационных технологий и систем.

    Объектом исследования являются учебное заведение.

    Предметом исследования является процесс учёта успеваемости студентов.

    В ходе данной курсовой работы будут выполнены разработка и анализ базы данных учебного учреждения. Для этого будут использованы такие программы, как Microsoft Access, CASE-средства ALLFUSION PROCESS MODELER и ALLFUSION DATA MODELER.

    1. АНАЛИЗ ПРЕДМЕТНОЙ ОБЛАСТИ


    Предметной областью исследования является процесс учёта успеваемости студентов.

    Главной проблемой учебного заявления является медленный процесс обработки информации по учету. Цель работы – проанализировать структуру учета и разработать информационную систему для упрощения работы.

      1. Организационная структура предприятия



    Заведующий кафедрой






    Старший методист


    Рис. 1. Организационная структура

      1. Функциональный анализ


    Для проведения функционального анализа было использовано CASE-средство AllFusion Process Modeler.

    Данное заведение создано для того, чтобы обучать студентов. Следовательно, основным процессом данного заведения будет Учет успеваемости студентов. Данный процесс регулируется Заведующим кафедрой и старший методистом

    Первым подпроцессом будет составление расписания. Для того, чтобы процесс запустился, необходимо провести анализ учебного плана, списка студентов, аудиторного фонда, переходящего контингента, и графика учебного процесса. Для осуществления первого подпроцесса необходимы оргтехника с подходящим ПО и квалифицированные сотрудники. После выполнения данного процесса учебное заведение получает готовые Списки группы и Расписание занятий

    Далее следует учебный процесс. Для осуществления нормального учебного процесса необходимы: расписание занятий, списки групп, дисциплины и зачетные книжки. Сотрудники учебного заведения осуществляют учебный процесс при помощи Оргтехники и ПО, под руководством и контролем Старшего методиста и Заведующего кафедрой.

    По итогу учебного процесса оформляются списки групп, ведомости, зачетные книжки. Это необходимо для подведения итогов.

    Следующий подпроцесс – это подведение итогов. При подведении итогов анализируются списки дисциплин, списки групп, приказы и учебные ведомости. На данном этапе производится анализ имеющейся документации и подготовка ее к отчетности.

    Последним этапом учебного процесса будет являться Оформление отчетности. Она составляется на основании статистических данных, приказов, и ведомостей. (рис. 2-3.)



    Рис.2. Основной бизнес-процесс



    Рис. 3. Связь подпроцессов

    Рассмотрим подпроцесс Составление расписания.

    Сотрудники кафедры под руководством старшего методиста проводят анализ учебного плана. Для этого анализируется список студентов, переходящий контингент, график учебного процесса и учебный план. Результатом данного анализа получают переходящий контингент и учебный план.

    Следующий этап – это разработка проекта расписания. При выполнении данного этапа необходим Список групп, переходящий контингент и учебный план. Данную работу выполняют сотрудники кафедры под руководством старшего методиста. На данном этапе пишется проект расписания занятий.

    Дальнейший этап –это распределение аудиторного фонда.

    Для распределения аудиторного фонда необходимы Проект расписания занятий, аудиторный фонд и список групп.

    Последний и самый важный этап данного подпроцесса – это Утверждение расписания

    Для этого проект расписания рассматривается сотрудниками, старшими методистами и подписывается заведующем кафедрой. (рис. 4.)



    Рис. 4. Связь подпроцессов подпроцесса «Составление расписания».

    Рассмотрим на примере подпроцесса «Подведение итогов».

    Этап обработки результатов происходит на основании приказов, списков групп, ведомостей и дисциплин.

    После Анализа данных материалов можно получить 2 результата. Формирование списка успешных студентов и формирование списков на отчислении. Далее проходит обработка данных списков. По Итогу могут быть созданы 3 вида документов (рис. 5.):

    1. Приказ о переводе на следующий курс.

    2. Приказ об отчислении.

    3. Обновлённые списки групп.



    Рис. 5. Логическая взаимосвязь процессов.

    Исходя из анализа, можно выявить такие сущности как группы, дисциплины и студенты. Необходимо определить, какие из этих сущностей будут главными для нашей задачи.

    Группы – с помощью данной сущности можно узнать номер группы и количество студентов в группе. Можно проанализировать, сколько всего учебных групп и сколько студентов в каждой группе. Это помогает рассчитать сколько времени необходимо выделить для сдачи экзаменов в конкретной группе.

    Дисциплины- данная сущность будет нести в себе информацию коле дисциплины и ее названии. В последствии это поможет рассчитать количество часов на каждую дисциплину и составить расписание, согласно учебному плану, а также распределить учебную нагрузку для преподавателей.

    Студенты – в этой сущности можно хранить информацию о студента. Его ФИО, порядковом номере, признаке стипендии и Стипендии. Это позволит систематизировать информацию о студентах по фамилии, группе и курсу.

    Проанализировав данную информацию можно создавать учебное расписание и следить за успеваемостью студентов. Это позволит учебному заведению всегда поддерживать учебный процесс в порядке.

    Для нашей базы данных важнее всего будет информация о студентах, группах, дисциплинах и экзаменов. (рис. 6.)



    Рис. 6. Основные сущности и их сущности.



    Рис. 7. Концептуальная модель

    В программе ERwin Data Modeler выполнена автоматическая генерация физической модели для MS Access.

    Ниже представлено часть журнала выполнения кода генерации:

    Dim ERwinWorkspace As Workspace

    Execution Successful

    Dim ERwinDatabase As Database

    Execution Successful

    Dim ERwinTableDef As TableDef

    Execution Successful

    Dim ERwinQueryDef As QueryDef

    Execution Successful

    Dim ERwinIndex As Index

    Execution Successful

    Dim ERwinField As Field

    Execution Successful

    Dim ERwinRelation As Relation

    Execution Successful

    Set ERwinWorkspace = DBEngine.WorkSpaces(0)

    Execution Successful Set ERwinDatabase = ERwinWorkspace.OpenDatabase("E:\лебедев.mdb")

    Execution Successful

    ' CREATE TABLE Группы

    Set ERwinTableDef = ERwinDatabase.CreateTableDef("Группы")

    Execution Successful

    Set ERwinField = ERwinTableDef.CreateField("Номер группы", DB_INTEGER)

    Execution Successful

    ERwinField.Required = True

    Execution Successful

    ERwinTableDef.Fields.Append ERwinField

    Execution Successful

    Set ERwinField = ERwinTableDef.CreateField("Кол-во студентов", DB_INTEGER)

    Execution Successful

    ERwinTableDef.Fields.Append ERwinField

    Execution Successful

    ERwinDatabase.TableDefs.Append ERwinTableDef

    Execution Successful

    Set ERwinField = ERwinTableDef.Fields("Номер группы")

    Execution Successful

    Call SetFieldProp(ERwinField, "Caption", DB_TEXT , "Номер группы:")

    Execution Successful

    Set ERwinField = ERwinTableDef.Fields("Кол-во студентов")

    Execution Successful

    Call SetFieldProp(ERwinField, "Caption", DB_TEXT , "Кол-во студентов:")

    …

    ERwinRelation.Fields.Append ERwinField

    Execution Successful

    ERwinDatabase.Relations.Append ERwinRelation

    Execution Successful

    ERwinDatabase.Close

    Execution Successful

    ERwinWorkspace.Close

    Execution Successful

    ' Terminating Access Basic DAO Session...

    Execution Successful

    Schema Generation Complete

    123 query succeeded.

    1. РЕАЛИЗАЦИЯ ИНФОРМАЦИОННОЙ ЗАДАЧИ

      1. Логическая модель и структура таблиц БД




    Рис. 8. Логическая модель БД.

    Интерфейсы для исследования сделаны с помощью «Мастера форм». (рис. 13-14)



    Рис. 13. Интерфейс для таблицы «Учёт успеваемости студентов»


    Рис. 14. Интерфейс для таблицы «Дисциплины»

      1. Преобразование БД, разработанную в СУБД Access в проект Access для использования его в качестве клиентского приложения для работы по технологии клиент-сервер.


    Для преобразования использовались программы:

    • Microsoft SQL Server Migration Assistant for Access, с помощью которой база данных Access была перенесена в SQL Server

    • Microsoft Office Access 2003 – для создания проекта Access.

    • Microsoft SQL Server Management Studio 18, с помощью которой были добавлены представления, процедуры и триггеры

      1. Доработать проект Access, используя возможности клиент-серверных технологий, дополнив его:

        1. Сохранёнными процедурами


    Хранимая процедура будет увеличивать стипендию студентов, если оценки будут только Отлично. Для этого в конструкторе спроса вставляем следующий код, который представлен на рис. 15.



    Рис. 16

        1. Триггерами


    Триггер создает ограничения на добавления стипендии студенту меньше или равной нулю из-за того, что это невозможно. Код триггера представлен на рисунке 18.



    Рис. 16.

    ЗАКЛЮЧЕНИЕ


    В любом учебном заведении учебный процесс должен быть реализован, используя информационные системы. С помощью таких систем можно оптимизировать рабочий процесс, упростить его. Наглядность представления информации позволяет облегчить процесс оптимизации.

    В ходе данной курсовой работы я получил навыки по информационным системам и технологиям.

    Предметом исследования является применение информационных систем и технологий в учебном заведении.

    В рамках анализа была выявлена основная проблема учебного заявления – низкая скорость обработки данных. Было принято решение проанализировать базу данных.

    В ходе данной курсовой работы были выполнены разработка и анализ базы данных учебного заведения для учета успеваемости студентов. Был разработан проект Access. Для этого были использованы такие программы, как Microsoft Access, CASE-средства ALLFUSION PROCESS MODELER и ALLFUSION DATA MODELER, SQL Server.

    СПИСОК ИСПОЛЬЗОВАННЫХ ИСТОЧНИКОВ


    1. Проектирование информационных систем. Применение CASE-технологий [Электронный ресурс]: учебное пособие/ Лебедева С.В. — Электрон. текстовые данные — Санкт-Петербург: Санкт-Петербургский государственный университет технологии и дизайна, 2013. – 125 с

    2. Проектирование информационных систем. Работа в MS SQL-Server [Электронный ресурс]: учебное пособие/ Лебедева С.В. — Электрон. текстовые данные — Санкт-Петербург: Санкт-Петербургский государственный университет технологии и дизайна, 2014. – 115 с.


    ПРИЛОЖЕНИЕ


    Dim ERwinWorkspace As Workspace

    Execution Successful

    Dim ERwinDatabase As Database

    Execution Successful

    Dim ERwinTableDef As TableDef

    Execution Successful

    Dim ERwinQueryDef As QueryDef

    Execution Successful

    Dim ERwinIndex As Index

    Execution Successful

    Dim ERwinField As Field

    Execution Successful

    Dim ERwinRelation As Relation

    Execution Successful

    Set ERwinWorkspace = DBEngine.WorkSpaces(0)

    Execution Successful Set ERwinDatabase = ERwinWorkspace.OpenDatabase("E:\лебедев.mdb")

    Execution Successful

    ' CREATE TABLE Ãðóïïû

    Set ERwinTableDef = ERwinDatabase.CreateTableDef("Ãðóïïû")

    Execution Successful

    Set ERwinField = ERwinTableDef.CreateField("Íîìåð ãðóïïû", DB_INTEGER)

    Execution Successful

    ERwinField.Required = True

    Execution Successful

    ERwinTableDef.Fields.Append ERwinField

    Execution Successful

    Set ERwinField = ERwinTableDef.CreateField("Êîë-âî ñòóäåíòîâ", DB_INTEGER)

    Execution Successful

    ERwinTableDef.Fields.Append ERwinField

    Execution Successful

    ERwinDatabase.TableDefs.Append ERwinTableDef

    Execution Successful

    Set ERwinField = ERwinTableDef.Fields("Íîìåð ãðóïïû")

    Execution Successful

    Call SetFieldProp(ERwinField, "Caption", DB_TEXT , "Íîìåð ãðóïïû:")

    Execution Successful

    Set ERwinField = ERwinTableDef.Fields("Êîë-âî ñòóäåíòîâ")

    Execution Successful

    Call SetFieldProp(ERwinField, "Caption", DB_TEXT , "Êîë-âî ñòóäåíòîâ:")

    Execution Successful

    ' CREATE INDEX XPKÃðóïïû

    Execution Successful

    Set ERwinTableDef = ERwinDatabase.TableDefs("Ãðóïïû")

    Execution Successful

    Set ERwinIndex = ERwinTableDef.CreateIndex("XPKÃðóïïû")

    Execution Successful

    Set ERwinField = ERwinIndex.CreateField("Íîìåð ãðóïïû")

    Execution Successful

    ERwinIndex.Fields.Append ERwinField

    Execution Successful

    ERwinIndex.Primary = True

    Execution Successful

    ERwinTableDef.Indexes.Append ERwinIndex

    Execution Successful

    ' CREATE TABLE Äèñöèïëèíû

    Set ERwinTableDef = ERwinDatabase.CreateTableDef("Äèñöèïëèíû")

    Execution Successful

    Set ERwinField = ERwinTableDef.CreateField("Êîä äèñöèëèíû", DB_INTEGER)

    Execution Successful

    ERwinField.Required = True

    Execution Successful

    ERwinTableDef.Fields.Append ERwinField

    Execution Successful

    Set ERwinField = ERwinTableDef.CreateField("Íàçâàíèå äèñöèïëèíû", DB_TEXT, 18)

    Execution Successful

    ERwinTableDef.Fields.Append ERwinField

    Execution Successful

    ERwinDatabase.TableDefs.Append ERwinTableDef

    Execution Successful

    Set ERwinField = ERwinTableDef.Fields("Êîä äèñöèëèíû")

    Execution Successful

    Call SetFieldProp(ERwinField, "Caption", DB_TEXT , "Êîä äèñöèëèíû:")

    Execution Successful

    Set ERwinField = ERwinTableDef.Fields("Íàçâàíèå äèñöèïëèíû")

    Execution Successful

    Call SetFieldProp(ERwinField, "Caption", DB_TEXT , "Íàçâàíèå äèñöèïëèíû:")

    Execution Successful

    ' CREATE INDEX XPKÄèñöèïëèíû

    Execution Successful

    Set ERwinTableDef = ERwinDatabase.TableDefs("Äèñöèïëèíû")

    Execution Successful

    Set ERwinIndex = ERwinTableDef.CreateIndex("XPKÄèñöèïëèíû")

    Execution Successful

    Set ERwinField = ERwinIndex.CreateField("Êîä äèñöèëèíû")

    Execution Successful

    ERwinIndex.Fields.Append ERwinField

    Execution Successful

    ERwinIndex.Primary = True

    Execution Successful

    ERwinTableDef.Indexes.Append ERwinIndex

    Execution Successful

    ' CREATE TABLE Ñòóäåíòû

    Set ERwinTableDef = ERwinDatabase.CreateTableDef("Ñòóäåíòû")

    Execution Successful

    Set ERwinField = ERwinTableDef.CreateField("Íîìåð ñòóäåíòà", DB_INTEGER)

    Execution Successful

    ERwinField.Required = True

    Execution Successful

    ERwinTableDef.Fields.Append ERwinField

    Execution Successful

    Set ERwinField = ERwinTableDef.CreateField("ÔÈÎ", DB_TEXT, 18)

    Execution Successful

    ERwinTableDef.Fields.Append ERwinField

    Execution Successful

    Set ERwinField = ERwinTableDef.CreateField("Ñòèïåíäèÿ", DB_INTEGER)

    Execution Successful

    ERwinTableDef.Fields.Append ERwinField

    Execution Successful

    Set ERwinField = ERwinTableDef.CreateField("Ïðèçíàê ñòèïåíäèè", DB_BOOLEAN)

    Execution Successful

    ERwinTableDef.Fields.Append ERwinField

    Execution Successful

    ERwinDatabase.TableDefs.Append ERwinTableDef

    Execution Successful

    Set ERwinField = ERwinTableDef.Fields("Íîìåð ñòóäåíòà")

    Execution Successful

    Call SetFieldProp(ERwinField, "Caption", DB_TEXT , "Íîìåð ñòóäåíòà:")

    Execution Successful

    Set ERwinField = ERwinTableDef.Fields("ÔÈÎ")

    Execution Successful

    Call SetFieldProp(ERwinField, "Caption", DB_TEXT , "ÔÈÎ:")

    Execution Successful

    Set ERwinField = ERwinTableDef.Fields("Ñòèïåíäèÿ")

    Execution Successful

    Call SetFieldProp(ERwinField, "Caption", DB_TEXT , "Ñòèïåíäèÿ:")

    Execution Successful

    Set ERwinField = ERwinTableDef.Fields("Ïðèçíàê ñòèïåíäèè")

    Execution Successful

    Call SetFieldProp(ERwinField, "Caption", DB_TEXT , "Ïðèçíàê ñòèïåíäèè:")

    Execution Successful

    ' CREATE INDEX XPKÑòóäåíòû

    Execution Successful

    Set ERwinTableDef = ERwinDatabase.TableDefs("Ñòóäåíòû")

    Execution Successful

    Set ERwinIndex = ERwinTableDef.CreateIndex("XPKÑòóäåíòû")

    Execution Successful

    Set ERwinField = ERwinIndex.CreateField("Íîìåð ñòóäåíòà")

    Execution Successful

    ERwinIndex.Fields.Append ERwinField

    Execution Successful

    ERwinIndex.Primary = True

    Execution Successful

    ERwinTableDef.Indexes.Append ERwinIndex

    Execution Successful

    ' CREATE TABLE Ó÷¸ò óñïåâàåìîñòè ñòóäåíòîâ

    Set ERwinTableDef = ERwinDatabase.CreateTableDef("Ó÷¸ò óñïåâàåìîñòè ñòóäåíòîâ")

    Execution Successful

    Set ERwinField = ERwinTableDef.CreateField("Íîìåð ñòóäåíòà", DB_INTEGER)

    Execution Successful

    ERwinField.Required = True

    Execution Successful

    ERwinTableDef.Fields.Append ERwinField

    Execution Successful

    Set ERwinField = ERwinTableDef.CreateField("Êîä äèñöèëèíû", DB_INTEGER)

    Execution Successful

    ERwinField.Required = True

    Execution Successful

    ERwinTableDef.Fields.Append ERwinField

    Execution Successful

    Set ERwinField = ERwinTableDef.CreateField("Íîìåð ãðóïïû", DB_INTEGER)

    Execution Successful

    ERwinField.Required = True

    Execution Successful

    ERwinTableDef.Fields.Append ERwinField

    Execution Successful

    Set ERwinField = ERwinTableDef.CreateField("Äàòà ñäà÷è ýêçàìåíà", DB_DATETIME)

    Execution Successful

    ERwinTableDef.Fields.Append ERwinField

    Execution Successful

    Set ERwinField = ERwinTableDef.CreateField("Îöåíêà", DB_INTEGER)

    Execution Successful

    ERwinTableDef.Fields.Append ERwinField

    Execution Successful

    ERwinDatabase.TableDefs.Append ERwinTableDef

    Execution Successful

    Set ERwinField = ERwinTableDef.Fields("Íîìåð ñòóäåíòà")

    Execution Successful

    Call SetFieldProp(ERwinField, "Caption", DB_TEXT , "Íîìåð ñòóäåíòà:")

    Execution Successful

    Set ERwinField = ERwinTableDef.Fields("Êîä äèñöèëèíû")

    Execution Successful

    Call SetFieldProp(ERwinField, "Caption", DB_TEXT , "Êîä äèñöèëèíû:")

    Execution Successful

    Set ERwinField = ERwinTableDef.Fields("Íîìåð ãðóïïû")

    Execution Successful

    Call SetFieldProp(ERwinField, "Caption", DB_TEXT , "Íîìåð ãðóïïû:")

    Execution Successful

    Set ERwinField = ERwinTableDef.Fields("Äàòà ñäà÷è ýêçàìåíà")

    Execution Successful

    Call SetFieldProp(ERwinField, "Caption", DB_TEXT , "Äàòà ñäà÷è ýêçàìåíà:")

    Execution Successful

    Set ERwinField = ERwinTableDef.Fields("Îöåíêà")

    Execution Successful

    Call SetFieldProp(ERwinField, "Caption", DB_TEXT , "Îöåíêà:")

    Execution Successful

    ' CREATE INDEX XPKÓ÷¸ò óñïåâàåìîñòè ñòóäåíòîâ

    Execution Successful

    Set ERwinTableDef = ERwinDatabase.TableDefs("Ó÷¸ò óñïåâàåìîñòè ñòóäåíòîâ")

    Execution Successful

    Set ERwinIndex = ERwinTableDef.CreateIndex("XPKÓ÷¸ò óñïåâàåìîñòè ñòóäåíòîâ")

    Execution Successful

    Set ERwinField = ERwinIndex.CreateField("Íîìåð ñòóäåíòà")

    Execution Successful

    ERwinIndex.Fields.Append ERwinField

    Execution Successful

    Set ERwinField = ERwinIndex.CreateField("Êîä äèñöèëèíû")

    Execution Successful

    ERwinIndex.Fields.Append ERwinField

    Execution Successful

    ERwinIndex.Primary = True

    Execution Successful

    ERwinTableDef.Indexes.Append ERwinIndex

    Execution Successful

    ' CREATE RELATIONSHIP R/1Set ERwinRelation = ERwinDatabase.CreateRelation("R/1", "Ñòóäåíòû", "Ó÷¸ò óñïåâàåìîñòè ñòóäåíòîâ")

    Execution Successful

    Set ERwinField = ERwinRelation.CreateField( "Íîìåð ñòóäåíòà" )

    Execution Successful

    ERwinField.ForeignName = Íîìåð ñòóäåíòà

    Execution Successful

    ERwinRelation.Fields.Append ERwinField

    Execution Successful

    ERwinDatabase.Relations.Append ERwinRelation

    Execution Successful

    ' CREATE RELATIONSHIP R/2Set ERwinRelation = ERwinDatabase.CreateRelation("R/2", "Äèñöèïëèíû", "Ó÷¸ò óñïåâàåìîñòè ñòóäåíòîâ")

    Execution Successful

    Set ERwinField = ERwinRelation.CreateField( "Êîä äèñöèëèíû" )

    Execution Successful

    ERwinField.ForeignName = Êîä äèñöèëèíû

    Execution Successful

    ERwinRelation.Fields.Append ERwinField

    Execution Successful

    ERwinDatabase.Relations.Append ERwinRelation

    Execution Successful

    ' CREATE RELATIONSHIP R/3Set ERwinRelation = ERwinDatabase.CreateRelation("R/3", "Ãðóïïû", "Ó÷¸ò óñïåâàåìîñòè ñòóäåíòîâ")

    Execution Successful

    Set ERwinField = ERwinRelation.CreateField( "Íîìåð ãðóïïû" )

    Execution Successful

    ERwinField.ForeignName = Íîìåð ãðóïïû

    Execution Successful

    ERwinRelation.Fields.Append ERwinField

    Execution Successful

    ERwinDatabase.Relations.Append ERwinRelation

    Execution Successful

    ERwinDatabase.Close

    Execution Successful

    ERwinWorkspace.Close

    Execution Successful

    ' Terminating Access Basic DAO Session...

    Execution Successful

    Schema Generation Complete

    123 query succeeded.

    написать администратору сайта