Информационная система учета и поверки |
Страница 6 из 13
Реализация ИС в MS Access После реализации разрабатываемого проекта в Erwin, модель была перенесена в Microsoft Access. ERwin оптимизирует модель в соответствии с физическими характеристиками целевой базы данных. ERwin автоматически поддерживает согласованность логической и физической схем и осуществляет преобразование логических конструкций в их реализацию на физическом уровне, устанавливает естественную динамическую связь между моделью и базой данных, что позволяет реализовать как прямой, так и обратный инжиниринг. Используя эту связь, ERwin автоматически генерирует таблицы, индексы, правила поддержания целостности ссылок (первичных и внешних ключей), устанавливает значения по умолчанию и ограничения для доменов/столбцов. Ниже представлен фрагмент кода переноса базы данных из Erwin в Microsoft Access: Starting Access Basic DAO Session... Dim ERwinWorkspace As Workspace Dim ERwinDatabase As Database Dim ERwinTableDef As TableDef Dim ERwinQueryDef As QueryDef Dim ERwinIndex As Index Dim ERwinField As Field Dim ERwinRelation As Relation Set ERwinWorkspace = DBEngine.WorkSpaces(0) Set ERwinDatabase = ERwinWorkspace.OpenDatabase("C:\Documents and Settings\Admin\Мои документы\Downloads\erw-access\metr.mdb") ' CREATE TABLE "Поверка" Set ERwinTableDef = ERwinDatabase.CreateTableDef("Поверка") Set ERwinField = ERwinTableDef.CreateField("НомерПротокола", DB_TEXT, 20) ERwinField.Required = True ERwinTableDef.Fields.Append ERwinField Set ERwinField = ERwinTableDef.CreateField("КодСотрудника", DB_LONG) ERwinField.Required = True ERwinTableDef.Fields.Append ERwinField Set ERwinField = ERwinTableDef.CreateField("ДатаПоследнейПоверки", DB_DATETIME) ERwinField.Required = True ERwinTableDef.Fields.Append ERwinField Set ERwinField = ERwinTableDef.CreateField("ДатаПоследующейПоверки", DB_DATETIME) ERwinField.Required = True ERwinTableDef.Fields.Append ERwinField Set ERwinField = ERwinTableDef.CreateField("МетодикаПоверки", DB_TEXT, 20) ERwinField.Required = True ERwinTableDef.Fields.Append ERwinField Set ERwinField = ERwinTableDef.CreateField("Состояние", DB_OLE) ERwinField.Required = True ERwinTableDef.Fields.Append ERwinField Set ERwinField = ERwinTableDef.CreateField("ВремяПоверки", DB_DATETIME) ERwinField.Required = True ERwinTableDef.Fields.Append ERwinField Set ERwinField = ERwinTableDef.CreateField("ЗаводскойНомер", DB_LONG) ERwinField.Required = True ERwinTableDef.Fields.Append ERwinField ERwinDatabase.TableDefs.Append ERwinTableDef Построение логической модели данных осуществляется на основе концептуальной модели данных, отражающей представление отдельного пользователя о предметной области приложения, и включает в себя проверку полученной модели с помощью методов нормализации. Доработка концептуальной модели проводится с целью удаления из них всех элементов, затрудняющих реализацию данной модели в среде реляционных СУБД. В результате выполнения этих действий структура концептуальной модели данных будет изменена таким образом, чтобы полностью отвечать требованиям, выдвигаемым реляционной моделью организации баз данных. Логическая модель представлена на рисунке 7. Рис.7. Логическая схема данных В ходе анализа всех данных были выделены задачи, подлежащие автоматизации:
Все операции могут выполняться в любой календарный момент времени и включают операции ввода, вывода реализации запросов, отчетов и др. Работа с ИС «Метролог» начинается с активизации системы меню. Работа программы осуществляется по диалоговому и событийному режиму, при этом по диалогом понимается предоставление пользователю нескольких альтернатив и обработка его выбора. В диалоговую систему входят, главное меню с соответствующими всплывающими подменю, а также диалоговые окна. Под событиями понимаются процессы активизируемые пользователем (например - нажатие функциональных клавиш), а также программные события - получение определенным полем фокуса редактирование или потеря фокуса ввода. На основании данных событий активизируются процедуры контроля допустимости данных.
|