66
ключевые атрибуты, функционально полно зависящие друг от друга, следует
выделить в отдельные таблицы. Структура таблицы «Вид_ОС» представлена
в таблице 10.
Таблица 10
Описание структуры записей таблицы «Вид_ОС»
Наименование поля
Идентификатор
поля
Тип поля
Длина
поля
Прочее
1
2
3
4
5
Вид_ОС
Вид_ОС
Текстовый
50
Первичный
ключ
Структура таблицы «Отдел» представлена в таблице 11.
Таблица 11
Описание структуры записей таблицы «Отдел»
Наименование поля
Идентификатор
поля
Тип поля
Длина
поля
Прочее
1
2
3
4
5
Отдел
Отдел
Текстовый
50
Первичный
ключ
ФИО_руководителя
ФИО_руководителя
Текстовый
50
Структура таблицы «ОС» представлена в таблице 12.
Таблица 12
Описание структуры записей таблицы «ОС»
Наименование
поля
Идентификатор
поля
Тип поля
Длина поля
Прочее
1
2
3
4
5
Код ОС
Код ОС
Счетчик
4
Первичный ключ
Вид_ОС
Вид_ОС
Текстовый
50
Вторич. ключ
Подстановка из
т. Вид_ОС
Наим_ОС
Наим_ОС
Текстовый
50
Год выпуска
Год выпуска
Числовой,
целый
67
Наименование
поля
Идентификатор
поля
Тип поля
Длина поля
Прочее
1
2
3
4
5
Год ввода
Год ввода
Числовой,
целый
Стоимость
начальная
Стоимость
начальная
Денежный
Структура таблицы «Движение_ОС» представлена в таблице 13.
Таблица 13
Описание структуры записей таблицы «Движение_ОС»
Наименование
поля
Идентификатор
поля
Тип поля
Длина поля
Прочее
1
2
3
4
5
Код движения
Код движения
Счетчик
4
Первичный ключ
Отдел
Отдел
Текстовый
50
Вторич. ключ
Подстановка из
т. Вид_ОС
Код_ОС
Код_ОС
Числовой,
целый
Вторич. ключ
Подстановка из
т. ОС
Дата
Дата
Дата Время
Основание
движения
Дата
Текстовый
50
Структура таблицы «Амортизация_ОС» представлена в таблице 14.
Таблица 14
Описание структуры записей таблицы «Амортизация _ОС»
Наименование
поля
Идентификатор
поля
Тип поля
Длина поля
Прочее
1
2
3
4
5
Код амортизации
Код
амортизации
Счетчик
4
Первичный ключ
Код_ОС
Код_ОС
Числовой,
целый
Вторич. ключ
Подстановка из
т. ОС
Дата
амортизации
Дата
амортизации
Дата Время
Стоимость
амортизации
Стоимость
амортизации
Денежный
Структура таблицы «Списание_ОС» представлена в таблице 15.
68
Таблица 15
Описание структуры записей таблицы «Списание _ОС»
Наименование
поля
Идентификатор
поля
Тип поля
Длина поля
Прочее
1
2
3
4
5
Код списания
Код списания
Счетчик
4
Первичный ключ
Код_ОС
Код_ОС
Числовой,
целый
Вторич. ключ
Подстановка из
т. ОС
Дата списания
Дата списания
Дата Время
Структура таблицы «Модернизация_ОС» представлена в таблице 16.
Таблица 16
Описание структуры записей таблицы «Модернизация _ОС»
Наименование
поля
Идентификатор
поля
Тип поля
Длина поля
Прочее
1
2
3
4
5
Код
модернизации
Код
модернизации
Счетчик
4
Код_ОС
Код_ОС
Числовой,
целый
Вторич. ключ
Подстановка из
т. ОС
Дата
модернизации
Дата
модернизации
Дата Время
Стоимость
модернизации
Стоимость
модернизации
Денежный
Связь между таблицами ОС и Вид_ОС осуществляется через
одноименные поля «Вид_ОС». Однако в таблице Вид_ОС тип данного поля –
числовой, и для него выполнена подстановка из таблицы ОС.
69
Связь между таблицами Движение_ОС и Отдел, осуществляется через
одноименные поля «Отдел».
Связь между таблицами ОС и Движение_ОС осуществляется через
одноименные поля «Код_ОС». Однако в таблице Движение _ОС тип данного
поля – числовой, и для него выполнена подстановка из таблицы ОС.
Связь между таблицами ОС и Амортизация_ОС осуществляется через
одноименные поля «Код_ОС». Однако в таблице Амортизация _ОС тип
данного поля – числовой, и для него выполнена подстановка из таблицы ОС.
Связь между таблицами ОС и Модернизация_ОС осуществляется
через одноименные поля «Код_ОС». Однако в таблице Модернизация _ОС
тип данного поля – числовой, и для него выполнена подстановка из таблицы
ОС.
Связь между таблицами ОС и Списание_ОС осуществляется через
одноименные поля «Код_ОС». Однако в таблице Списание _ОС тип данного
поля – числовой, и для него выполнена подстановка из таблицы ОС.
На основе инфологической модели данных построена даталогическая
модель (рис. 17).
70
Рисунок 17. Даталогическая модель данных
Данная модель получена из схемы базы данных. Связь между
таблицами Вид_ОС – ОС организована по типу один– ко– многим, так как
много основных средств может относиться к одному виду.
Связь между таблицами Отдел – Движение_ОС также организована
по типу один– ко– многим, так как по одному отделу может быть выполнено
движение большого количества основных средств.
Связи между таблицами ОС – Движение_ОС, ОС – Амортизация_ОС,
ОС – Модернизация_ОС, ОС – Списание_ОС также организована по типу
один– ко– многим, так как над одним основным средством действие может
быть выполнено неоднократно.
В предметной области «Управленческий учет основных средств» все
отношения находятся в третьей нормальной форме, а это значит, что на этапе
логического проектирования правильно были определены все объекты
предметной области и выделены их атрибуты и связи.
71
2.3.3 Структурная схема пакета (дерево вызова программных
модулей)
Дерево вызова программных модулей приведено на рисунке 18.
Menu
Datamod
Unit_Zapros
My_Word
Unit_SPISOK_OS
Unit_Spisan
Unit_redakt_OS Unit_New_OS
Unit_Modern_OS
Unit_Amort_OS
Unit_SpravUnit_dvig_OS
Unit_stoim
Рисунок 18. Дерево вызова программных модулей
Модуль доступа к данным Datamod доступен из 10 модулей.
Из главного модуля Menu могут вызываться следующие модули:
модуль Unit_Zapros, содержащий форму отображения запросов;
модуль Unit_sprav, содержащий форму справочников;
модуль Unit_SPISOK_OS, содержащий форму для показа списка ОС;
модуль Unit_Spisan, содержащий форму учета списания ОС;
модуль Unit_redakt_OC, содержащий форму для редактирования
сведений об ОС;
модуль Unit_New_OC, с формой для ввода данных о новом ОС;
72
модуль Unit_Modern_OC, содержащий форму для ввода данных по
модернизации ОС;
модуль Unit_Amort_OC, содержащий форму для ввода данных по
амортизации ОС;
модуль Unit_dvig_OC, содержащий форму для ввода данных по
движению ОС.
модуль datamod содержит средства доступа к базе данных;
модуль Unit_stoim содержит форму с расчетом итоговой стоимости
основного средства.
Модуль MyWord служит для описания функций вывода текста и
таблиц в MS Word и доступен из модулей Unit_Zapros и Unit_stoim.
2.3.4 Описание программных модулей
Информационная система состоит из приложения для работы с базой
данных и базы данных.
Меню содержит 4 пункта верхнего уровня.
Пункт Справочники содержит подпункты:
Виды ОС и
Отделы.
Пункт операции обращается к следующим подпунктам:
Список ОС;
Новое ОС;
Редактировать ОС;
Движение ОС;
Амортизация ОС;
Модернизация ОС;
Списание ОС.
Пункт Справка открывает справочные сведения, а Выход закрывает
приложение.
73
Используются кнопки для быстрого просмотра отчетов:
Список ОС;
История амортизации;
История модернизации;
История движения;
История ввода;
История списания;
ОС отделов;
Сумма амортизации;
Сумма модернизации;
Расчет итоговой стоимости ОС.
База данных Uchet_OS.accdb должна находиться обязательно в одной
папке с приложением tipograf.exe.
Приложение Uchet_OS.accdb представлено 12 модулями.
Первый модуль Menu имеет главную форму Form1.
На ней расположено изображение и главное меню.
Форма Form1 представлена на рисунке 20.
Программный код пункта меню Справочники – Вид ОС приведен
ниже.
procedure TForm1.N1Click(Sender: TObject);
begin
Form_Sprav.Caption:='Вид ОС'; // Вывести заголовок формы
Form_Sprav.DBGrid1.DataSource:=datamod.dm.DS_Vid;
// Указать источник данных – таблица Вид_ОС
Form_Sprav.DBNavigator1.DataSource:=datamod.dm.DS_Vid;
Form_Sprav.Show; // Показать форму Form_Sprav
end;
74
Рисунок 19. Форма Form1
Программный код кнопки «Расчет итоговой стоимости ОС» приведен
ниже:
procedure TForm1.Button2Click(Sender: TObject);
begin
datamod.dm.Table_OS.First; //переход на 1 запись таблицы ОС
FormStoimItog.Show; //показать форму FormStoimItog
end;
Форма Form_Stoim показана на рисунке 21.
75
Рисунок 190. Form_Stoim
Расчет производится по щелчку на компоненте DBNavigator.
Программный код:
procedure TFormStoimItog.DBNavigator1Click(Sender: TObject;
Button: TNavigateBtn);
begin
dm.Zapros_summa_modern.Filtered:=true;
dm.Zapros_summa_modern.Filter:='Код_ОС='''+IntToStr(DBText1.Field.AsInteg
er)+'''';
dm.Zapros_summa_amort.Filtered:=true;
dm.Zapros_summa_amort.Filter:='Код_ОС='''+IntToStr(DBText1.Field.AsIntege
r)+'''';
Label5.Caption:=CurrToStr(DBText3.Field.AsCurrency+DBText4.Field.AsCurre
ncy-DBText5.Field.AsCurrency);
end;
Кнопка с изображением принтера выводит отчет в Word.
procedure TFormStoimItog.ReportToWordClick(Sender: TObject);
begin