Автоматизированная система - Учёт компьютерной и оргтехники на предприятии

5. Таблица «FAX» содержит данные о факсах, имеющихся на предприятии. Состав полей:

CODE. Тип данных – счётчик, ключевое поле. Определяет идентификатор факса.

INV. Тип данных – текстовый. Хранит инвентарный номер факса.

PROIZVOD. Тип данных – текстовый. Содержит название производителя.

MODEL. Тип данных – текстовый. Содержит название и модель факса.

TEHPRINT. Тип данных – текстовый. Отражает информацию о технологии печати.

SPEEDDATE. Тип данных – текстовый. Отражает информацию о скорости передачи данных.

CODSOTRUDNIK. Тип данных – числовой. Хранит идентификатор сотрудника, за которым закреплено оборудование.

6. Таблица «PRINTERS» отражает информацию о принтерах, которые имеются на предприятии. Состав полей:

COD. Тип данных – счётчик, ключевое поле. Определяет идентификатор принтера.

PROIZVODITEL. Тип данных – текстовый. Отражает информацию о производителе.

IVN. Тип данных – текстовый. Хранит инвентарный номер принтера.

TYPEPRINTER. Тип данных – текстовый. Хранит информацию о типе принтера.

PECHAT. Тип данных – текстовый. Хранит информацию о технологии печати принтера.

FORMAT. Тип данных – текстовый. Отражает информацию о форматах бумаги для печати.

MAPS. Тип данных – текстовый. Отражает информацию о поддерживаемых картах памяти.

SOTRY. Тип данных – числовой. Определяет идентификатор сотрудника, за которым закреплено оборудование.

MODELS. Тип данных – текстовый. Хранит информацию о модели принтера.

7. Таблица «SPISANO_ORG» содержит информацию всей списанной  оргтехнике за определённый период. Список полей:

KOD. Тип данных – счетчик, ключевое поле. Отражает идентификатор списанной оргтехники.

SP_INV. Тип данных – текстовый. Хранит инвентарный номер  списанной огртехники.

SP_PROIZVOD. Тип данных – текстовый. Хранит название производителя списанной оргтехники.

SP_MODEL. Тип данных – текстовый. Хранит модель списанной оргтехники.

SP_TYPE. Тип данных – текстовый. Содержит тип списанной оргтехники.

SP_DATE. Тип данных – дата/время. Содержит дату списания.

SP_FN. Тип данных – числовой. Хранит идентификатор сотрудника, который был закреплён за оргтехникой, подлежащей списанию.

 

8. Таблица «SPISANO» содержит информацию обо всех компьютерах,  списанных за определённый период. Список полей:

SP_COD. Тип данных – счётчик, ключевое поле. Определяет идентификатор cписанного ПК.

SP_NOMER. Тип данных – числовой. Хранит паспортный номер списанного компьютера.

SP_INVEN_NUMBER. Тип данных – текстовый. Хранит инвентарный номер списанного компьютера.

SP_CPU. Тип данных – текстовый. Содержит информацию о наименовании списанного процессора и его тактовой частоте.

SP_RAM. Тип данных – текстовый. Содержит информацию о типе списанной оперативной памяти, а так же  её объёме.

SP_HDD. Тип данных – текстовый. Содержит информацию о производителе и размере списанного жёсткого диска.

SP_VD. Тип данных – текстовый. Содержит информацию о списанной видеокарте.

SP_MON. Тип данных – текстовый. Хранит информацию о производителе списанного монитора и его размерах экрана.

SP_KEYBOARD. Тип данных – текстовый. Хранит информацию о модели списанной клавиатуры.

SP_MOUS. Тип данных – текстовый. Хранит информацию о модели, списанной мыши.

SP_NAMEFAM. Тип данных – числовой. Хранит идентификатор сотрудника, который был закреплён за ПК, подлежащий списанию.

DAT. Тип данных – дата/время. Хранит дату списания ПК.

1.4. Обоснование выбора программного обеспечения, используемого в работе

Приложение Microsoft Access 97/2000 (далее Access) является мощной и высокопроизводительной 32-разрядной системой управления реляционной базой данных.

Как реляционная СУБД Acces обеспечивает доступ ко всем типам данных и позволяет одновременно использовать несколько таблиц баз данных. Можно использовать таблицы, созданные в среде Paradox или dBase. Работая в среде Microsoft Office, пользователь получает в своё распоряжение совместимые с Access текстовые документы (Word), электронные таблицы (Excel), презентации (PowerPoint). С помощью новых расширений для Internet можно напрямую взаимодейстовать с данными из World Wide Web и транслировать предоставление данных на языке HTML, обеспечивая работу с такими приложениями как Internet Explorer и Netscape Navigator.

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

База данных храниться  в одном файле, но профессиональные пользователи предпочитают разделять  базу данных на два файла: в одном храняться обьекты данных (таблицы, запросы), в другом объекты приложения (формы, отчёты, макросы, модули).

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

База данных, в общем смысле, – совокупность сведений о конкретных обьектах реального мира в какой-либо предметной области или разделе предметной области. В терминах СУБД MS Access база данных – это набор данных и объектов, связанный общей задачей.

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

Borland Delphi 7. Объектно-ориентированный язык, который позволяет объединять данные и код в один класс, создавать дочерние классы и обращаться с классами-потомками, как с родительскими классами. Объектно-ориентированная природа Delphi делает библиотеку компонентов необычайно гибкой.

Выбор среды разработки Delphi 7 обусловлен тем, что Delphi оперирует четырьмя типами шаблонов: формами, приложениями, компонентами и кодами. Шаблоны формы, приложения и компоненты дают возможность повторно использовать созданные ранее коллекции объектов в отдельных программах, либо в качестве основы для новой программы.

Шаблон кода – это  новое средство, которое значительно  уменьшает потребности в вводе повторяющихся фрагментво кода. Ещё одно преимущество в Delphi заключается в том что, многие системы разработки приложений для Windows либо вовсе не генерируют исполняемый код, либо генерируют код – полуфабрикат, или M-код, который не может быть выполнен процессором без дополнительной трансляции во время работы самой программы, что существенно снижает производительность компьютера. Delphi оснащён отличным компилятором и компоновщиком, которые позволяют генерировать машинные коды. Такая реализация лишена непроизводительных затрат, что особенно важно для масштабных мультимедийных программ сегодняшнего дня, которые требуют наличия высокопроизводительных систем. Многим разработчикам, программировавшим на других языках, приходилось сталкиваться с необходимлстью обработки ошибок и защиты ресурсов. Прежний подход к решению этих задач состоял в выполнении функций с последующим анализом результата. В случае получения кода успешного завершения операции, выполнялись некоторые действия и вновь анализировался результат. Этот процесс продолжался до тех пор, пока не исчерпывался исходных код программы. Delphi искусно справляется с проблемой обнаружения ошибок благодаря реализации концепции исключительных ситуаций. Вместо того чтобы работать в предположении, что каждый шаг может привести к сбою, потенциальное выявление которого требует соответствующего тестирования, Delphi позволяет писать программу, исходя из успешного выполнения всех её операторов. В случае возникновения отказа Delphi вызывает исключительную ситуацию, которая перехватывается одним, елинственным обработчиком исключительных ситуаций. Такой подход позволяет программе достойно справится с ошибкой, причём от разработчика в этом случае требуются минимальные усилия.

 

2. Разработка рабочего проекта

2.1. Спецификация проекта

Проект Delphi состоит из форм, модулей, установок параметров проекта, ресурсов и т.д. Вся эта информация размещается в файлах.

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

Проект Delphi представляет собой набор программных единиц – модулей.

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

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

Систематизированный перечень моделей и файлов с указанием  их обозначения и наименования представлены  в таблице 1

Таблица 1. Спецификация проекта

Обозначение	Наименование	Примечание
IT_Computer.exe		Исполняемый файл проекта
IT_Computer.dpr	Delphi Project	Основной файл проекта
IT_Computer.cfg	Delphi option file project Configuration file	Файлы конфигурации проекта
IT_Computer.res	Файл ресурсов проекта	Хранит информацию о версии и  значок программы
*.pas	Файл исходного текста	Фалы модуля (unit) с текстом программы на языке Object Pascal
*.dfm	Delphi from file	Хранит все, что касается формы: содержащиеся на ней компоненты и  их свойства, а также свойства самой  формы
*.dcu *.dcu	Delphi compiled unit	Содержит компилированный код  модуля (формы)
*.html	Hypertext Markup Language	Web-страницы, содержат условия и решения задач

2.2. Система меню

 

 

 

Рисунок 2. –  Структура программы в Delphi

На данном изображении  отражена схема, командного меню программы, с возможностью выбора определённого  пункта меню.

2.3. Состав основных модулей

В данном проекте выделено несколько модулей. Каждый из них  выполняет операции в соответствии с написанным кодом.

// Разработал Гайдукевич Виталий

Unit Main_Unit;

Interface

Uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, Menus, ExtCtrls, ComCtrls, Buttons, XPMan, AppEvnts, DBCtrls,

  Grids, DBGrids, StdCtrls, sSkinProvider, sSkinManager, sBitBtn, sPanel,

  sLabel, sEdit, sComboBox, RpCon, RpConDS, RpDefine, RpRave,ComObj, sButton;

//процедура добавления записей в таблицу.

Procedure TFormgl.add_buttonClick (Sender: TObject);

Begin

if

       // пока все поля будут незаполненными, программа будет выводить сообщение о необходимости заполнения полей.

((edit_number.Text='')or(edit_invent.Text='')or(edit_cpu.Text='')or(edit_video.Text='')or(edit_hdd.Text='')) then

begin

ShowMessage('Заполните все  поля!!');

End

Else

Begin

     // реализация запроса Add_computer, основная функция которого является дабавление записей в таблицу.

Container.Add_computer.Parameters.ParamByName('Number_tech').Value:=StrToInt(edit_number.Text);

Container.Add_computer.Parameters.ParamByName('Inven_number').Value:=edit_invent.Text;

Container.Add_computer.Parameters.ParamByName('CPU').Value:=edit_cpu.Text;

Container.Add_computer.Parameters.ParamByName('Monitor').Value:=edit_monitor.Text;

Container.Add_computer.Parameters.ParamByName('Keyboard').Value:=edit_keyb.Text;

Container.Add_computer.Parameters.ParamByName('Mouse').Value:=edit_mouse.Text;

Container.Add_computer.Parameters.ParamByName('soft').Value:=add_combosoft.KeyValue;

Container.Add_computer.Parameters.ParamByName('sotrudnik').Value:=add_combosotrudnik.KeyValue;

Container.Add_computer.ExecSQL;

Container.db_computer.Active:=False;

Container.db_computer.Active:=True;

End;

End;

//процедура удаления записей из таблицы.

Procedure TFormgl.del_recClick(Sender: TObject);

Begin

if MessageBox(Handle,'Удалить запись?','Подтверждение на удаление ',mb_iconquestion+mb_yesno)=idyes  then

Begin

// если нажата кнопка «Да», то данные из таблицы удаляются.

Container.Delete_computer.Parameters.ParamByName ('Code').Value:=Container.db_computer.fieldbyname ('Code').AsInteger;

Container.Delete_computer.ExecSQL;

Container.db_computer.Active:=False;

Container.db_computer.Active:=true;

End;

End;

//процедура изменения записей в таблице

Procedure TFormgl.sBitBtn1Click(Sender: TObject);

Begin

Container.Upd_computer.Parameters.ParamByName('Number_tech').Value:=StrToInt(upd_number.Text);

Container.Upd_computer.Parameters.ParamByName('Inven_number').Value:=upd_inven.Text;

Container.Upd_computer.Parameters.ParamByName('CPU').Value:=upd_cpu.Text;

Text;

Container.Upd_computer.Parameters.ParamByName('Keyboard').Value:=upd_keyboard.Text;