Заключение

При разработке дипломного проекта была разработана программа «Автоматизация делопроизводства и документооборота АСУП ОАО «ВХЗ». Программа предназначена для удобства работников данного предприятия.

Программным решением была выбрана среда программирования Borland Delphi. Используемые средства разработки позволили создать эффективный программный продукт, который можно использовать на предприятии ОАО «ВХЗ».

В процессе создания программы, использовались приложения:

• Microsoft Office Access 2007

• Microsoft Office Word 2007;

• Microsoft Office Visio 2007;

• Adobe Photoshop CS5.

Разработанная программа имеет следующие свойства:

• простота в использовании;

• несет смысловую нагрузку;

• удобный интерфейс.

Полученное программное изделие соответствует поставленным целямВ экономической части дипломного проекта была рассчитана экономическая себестоимость программного продукта. Итоговая отпускная цена составила 552825,64 руб.

Список литературы

1. http://www.delphi-manual.ru/lesson2.php Компоненты Delphi - основа визуального проектирования.

2. http://src-code.net/texnologicheskij-process-testirovaniya/ Тестирование в итеративном жизненном цикле.

3. http://orencode.info/forum/showthread.php?t=2309 Отладка в Delphi.

4. http://program.rin.ru/razdel/html/1040-1.html Интегрированный отладчик Delphi.

Приложение А

(Обязательное) Текст программы

// Процедура ввода пароля

procedure TformAdmin.btn1Click(Sender: TObject);

var

login,pass:string;

begin

login:=LoginEdit.text;

pass:=PasswordEdit.text;

with ADOQuery do

begin

Close;

sql.clear;

sql.add('select [Key1],[Логин] from [Пользователи] where [Логин]=:login and [Пароль]=:pass;');

Parameters.ParamByName('login').Value:=login;

Parameters.ParamByName('pass').Value:=pass;

Open;

if recordCount <> 0 then

begin

if not (Fields[0].AsInteger = 1) then

begin

GlavForm.Show;

GlavForm.sdbgrd1.readOnly:=True;

GlavForm.sdbnvgtr1.Enabled:=False;

GlavForm.sdbgrd2.readOnly:=True;

GlavForm.sdbnvgtr2.Enabled:=False;

GlavForm.sdbgrd3.readOnly:=True;

GlavForm.sdbnvgtr3.Enabled:=False;

GlavForm.Edit11.Enabled:=False;

GlavForm.Edit12.Enabled:=False;

GlavForm.ComboBox13.Enabled:=False;

GlavForm.Edit14.Enabled:=False;

GlavForm.Memo15.Enabled:=False;

GlavForm.Memo16.Enabled:=False;

GlavForm.Edit17.Enabled:=False;

GlavForm.Edit21.Enabled:=False;

GlavForm.Edit22.Enabled:=False;

GlavForm.Edit23.Enabled:=False;

GlavForm.Edit24.Enabled:=False;

GlavForm.Edit25.Enabled:=False;

GlavForm.ComboBox26.Enabled:=False;

GlavForm.Edit27.Enabled:=False;

GlavForm.Edit28.Enabled:=False;

GlavForm.Edit29.Enabled:=False;

GlavForm.Edit29a.Enabled:=False;

GlavForm.Edit31.Enabled:=False;

GlavForm.Edit32.Enabled:=False;

GlavForm.Edit33.Enabled:=False;

GlavForm.Edit34.Enabled:=False;

GlavForm.Edit35.Enabled:=False;

GlavForm.Edit36.Enabled:=False;

GlavForm.Edit37.Enabled:=False;

GlavForm.Edit38.Enabled:=False;

GlavForm.Edit39.Enabled:=False;

GlavForm.Edit41.Enabled:=False;

GlavForm.Edit42.Enabled:=False;

GlavForm.Edit43.Enabled:=False;

GlavForm.Edit44.Enabled:=False;

GlavForm.Edit45.Enabled:=False;

GlavForm.Edit46.Enabled:=False;

GlavForm.Edit47.Enabled:=False;

GlavForm.Edit48.Enabled:=False;

GlavForm.Edit51.Enabled:=False;

GlavForm.Edit52.Enabled:=False;

GlavForm.Edit53.Enabled:=False;

GlavForm.Edit54.Enabled:=False;

GlavForm.Edit55.Enabled:=False;

GlavForm.Edit61.Enabled:=False;

GlavForm.Edit62.Enabled:=False;

GlavForm.Edit63.Enabled:=False;

GlavForm.Edit64.Enabled:=False;

GlavForm.Edit65.Enabled:=False;

GlavForm.Edit66.Enabled:=False;

GlavForm.Edit67.Enabled:=False;

GlavForm.Edit68.Enabled:=False;

GlavForm.Edit69.Enabled:=False;

GlavForm.Edit69a.Enabled:=False;

GlavForm.Edit69b.Enabled:=False;

GlavForm.Edit69c.Enabled:=False;

GlavForm.n3.Visible:=False;

GlavForm.sdbnvgtr1.Enabled:=False;

GlavForm.sdbnvgtr2.Enabled:=False;

GlavForm.sdbnvgtr3.Enabled:=False;

GlavForm.sdbnvgtr4.Enabled:=False;

GlavForm.sdbnvgtr5.Enabled:=False;

GlavForm.sdbnvgtr6.Enabled:=False;

end

else

GlavForm.Show;

formAdmin.Hide;

end

else

Application.MessageBox('Неверный пароль','Ошибка',MB_OK+MB_ICONWARNING+MB_TOPMOST);

end;

end;

end.

// Генерация текстового документа Word

procedure TGlavForm.btn13Click(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\Рабочий стол\автоматизация делопроизводства и документооборота АСУП ОАО ВХЗ\Шаблоны\Shablon2.doc');

except

ShowMessage('Ошибка при попытке WORD загрузить шаблон!');

exit;

end;

MSWord.Visible:=True;

MSWord.Selection.goto(-1,Name:='Наименование');

MSWord.Selection.Text:=Edit11.Text;

MSWord.Selection.goto(-1,Name:='Дата');

MSWord.Selection.Text:=Edit12.Text;

MSWord.Selection.goto(-1,Name:='Вид_договора');

MSWord.Selection.Text:=ComboBox13.Text;

MSWord.Selection.goto(-1,Name:='Номер_договора');

MSWord.Selection.Text:=Edit14.Text;

MSWord.Selection.goto(-1,Name:='Аннотация_к_договору');

MSWord.Selection.Text:=Memo15.Text;

MSWord.Selection.goto(-1,Name:='Текст_приказа');

MSWord.Selection.Text:=Memo16.Text;

MSWord.Selection.goto(-1,Name:='Фамилия_1');

MSWord.Selection.Text:=Edit17.Text;

end;

// Поиск данных

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 TAdm.btn11Click(Sender: TObject);

begin

try

if Application.MessageBox('Удалить запись?','Удаление записи',MB_YESNO)=IDYES then

begin

BookTable4.Delete;

end;

except

on e:Exception do

end;

end;

// Добавление нового пользователя

procedure TUSmena.btn1Click(Sender: TObject);

begin

with Adm.BookTable4 do

begin

Insert;

FieldByName('Логин').Value:=Edit1.Text;

FieldByName('Пароль').Value:=Edit2.Text;

Post;

end;

Close;

end;