- •4 Техника безопасности 59
- •Общая часть
- •Постановка задачи
- •Технико-математическое описание
- •Вычислительная система
- •2 Специальная часть
- •2.1 Описание алгоритма
- •2.2 Описание работы программы
- •2.3 Тестирование и отладка
- •4 Техника безопасности
- •Заключение
- •(Обязательное) Текст программы
- •Приложение б
- •Парфёнов
Технико-математическое описание
Программный продукт «Автоматизация делопроизводства и документооборота АСУП ОАО «ВХЗ» содержит в себе шесть вкладок на каждой из которых отображены таблицы базы данных:
регистрация договоров и контрактов:
заявление на отпуск;
получение денежных средств;
принятие на должность;
перенос отпуска;
перевод работника.
Поиск по базе данных осуществляется с помощью следующей процедуры.
procedure TGlavForm.btn11btn12Click(Sender: TObject);
begin
if Edit1.text= ' ' then MessageDlg('Введите критерий поиска', mtWarning,[mbOK], MB_OK) else begin
BookTable.Filtered:=True;
If ComboBox1.ItemIndex =0 then
BookTable.Filter:='[Дата договора] = '+ Edit1.Text
else
BookTable.Filter:='[Фамилия подписанта со стороны организации-контрагента] LIKE '+#39 + '%' + Edit1.Text +'%' +#39;
end;
end;
Данная процедура осуществляет поиск записи по дате договора и по фамилии подписанта со стороны организации-контрагента в таблице «Регистрация договоров и контрактов».
Добавление в базу данных осуществляет процедура
procedure TUSmena.btn1Click(Sender: TObject);
begin
with Adm.BookTable4 do
begin
Insert;
FieldByName('Логин').Value:=Edit1.Text;
FieldByName('Пароль').Value:=Edit2.Text;
Post;
end
end;
Данная процедура добавляет запись в таблицу «Пользователи».
Формирование текстового документа в Microsoft Word 2007 и вывод его на печать осуществляется с помощью следующей процедуры:
procedure TGlavForm.btn53Click(Sender: TObject);
begin
try
MsWord := GetActiveOleObject('Word.Application');
except
try
MsWord := CreateOleObject('Word.Application');
except
raise Exception.Create('Ошибка запуска Word');
end;
end;
try
MSWord.Documents.Open('C:\Documents and Settings\Admin\Рабочий стол\автоматизация делопроизводства и документооборота АСУП ОАО ВХЗ\Шаблоны\Perenoc_otpucka.doc');
except
ShowMessage('Ошибка при попытке WORD загрузить шаблон!');
exit;
end;
MSWord.Visible:=True;
MSWord.Selection.goto(-1,Name:='Фамилия');
MSWord.Selection.Text:=Edit51.Text;
MSWord.Selection.goto(-1,Name:='Имя');
MSWord.Selection.Text:=Edit52.Text;
MSWord.Selection.goto(-1,Name:='Отчество');
MSWord.Selection.Text:=Edit53.Text;
MSWord.Selection.goto(-1,Name:='Перенос');
MSWord.Selection.Text:=Edit54.Text;
MSWord.Selection.goto(-1,Name:='Дата');
MSWord.Selection.Text:=Edit55.Text;
MSWord.Selection.goto(-1,Name:='Дата1');
MSWord.Selection.Text:=Edit55.Text;
end;
Формирование текстового документа осуществляется за счёт заполнения полей необходимыми данными.
Вычислительная система
Требования к составу и параметрам технических средств
Программа разрабатывалась для операционной системы Windows XP и минимальный набор параметров представлен в таблице 1.1. Для нормальной работы на жёстком диске должно быть не менее 40 МВ свободного пространства, а для самой программы достаточно и 25 МВ. К видеоадаптеру программа не требовательна и для её работы подойдёт видеокарта с размером на менее 64 МВ.
Таблица 1.1 – Минимальный набор параметров
Наименование |
Конфигурация |
Процессор |
533 Мгц |
Оперативная память |
64 МБ |
Видеокарта |
54 МБ |
Жесткий диск |
20 ГБ |
Монитор |
15” |
Клавиатура |
101/102 |
Манипулятор «Мышь» |
PS/2 |
Программа разрабатывалась для операционной системы Windows XP и оптимальный набор технических средств представлен в таблице 1.2. Для нормальной работы на жёстком диске должно быть не менее 50 МВ свободного пространства, а для самой программы достаточно и 20 МВ. К видеоадаптеру программа не требовательна и для её работы подойдёт видеокарта с размером не менее 128 МВ
Таблица 1.2 – Оптимальный набор параметров
Наименование |
Конфигурация |
Процессор |
1000Мгц |
Оперативная память |
128МБ |
Видеокарта |
64МБ |
Жесткий диск |
40 ГБ |
Клавиатура |
101/102 |
Монитор |
17'' |
Наименование |
Конфигурация |
Манипулятор «Мышь» |
PS/2 |
Для поддержки ресурсов программного продукта и обеспечения управления выбрана операционная среда Microsoft Window XP. Для модернизации и программирования необходима среда программирования Borland Delphi 7.0, которая позволяет быстро создавать приложения различной степени сложности на основе применения технологии визуального программирования.
Для оформления документации использовалась программа Microsoft Office Word 2007.
Графическая часть выполнена в Photoshop CS5, которая содержит для этого все необходимые функции и специально создана для разработки изображения.