next;procedure TForm1. suiCheckBox4Click (Sender: TObject);beginif suiEdit2. Enabled=false then suiEdit2. Enabled:=true else suiEdit2. Enabled:=false;end;procedure TForm1. suiButton1Click (Sender: TObject);begintrytr_st.edit;tr_st.FieldByName ('nomer_rs').AsInteger:=strtoint (suiEdit3.text);tr_st.FieldByName ('ip_adr').AsString:=suiEdit1.text;tr_st.FieldByName ('ident').AsString:=suiEdit6.text;tr_st.FieldByName ('spec').AsString:=suiMemo1.text;tr_st.Post;Except MessageDlg ('Ошибкавводаданных!', mtInformation,[mbYes], 0); end;end;procedure TForm1. suiButton2Click (Sender: TObject);var data_sm:extended;begintrytuz.Edit;tuz.FieldByName ('nomer_uz').AsInteger:=strtoint (suiEdit2.text);tuz.FieldByName ('domen').AsString:=suiEdit5.text;tuz.FieldByName ('log').AsString:=suiEdit8.text;tuz.FieldByName ('parol').AsString:=suiEdit9.text;tuz.FieldByName ('polzovatel').AsString:=suiEdit7.text;tuz.FieldByName ('srok_deist').AsInteger:=strtoint (suiEdit4.text);tuz.FieldByName ('data_ust').AsString:=suiEdit21.text;data_sm:=strtodate (suiEdit21.text)+strtoint (suiEdit4.text);tuz.FieldByName ('data_smen').AsString:=DateToStr (data_sm);tuz.Post;Except MessageDlg ('Ошибкавводаданных!', mtInformation,[mbYes], 0); end;end;procedure TForm1. suiButton5Click (Sender: TObject);var data_sm:extended;begintrytuz.Append;tuz.FieldByName ('nomer_uz').AsInteger:=strtoint (suiEdit2.text);tuz.FieldByName ('domen').AsString:=suiEdit5.text;tuz.FieldByName ('log').AsString:=suiEdit8.text;tuz.FieldByName ('parol').AsString:=suiEdit9.text;tuz.FieldByName ('polzovatel').AsString:=suiEdit7.text;tuz.FieldByName ('srok_deist').AsInteger:=strtoint (suiEdit4.text);tuz.FieldByName ('data_ust').AsString:=suiEdit21.text;data_sm:=strtodate (suiEdit21.text)+strtoint (suiEdit4.text);tuz.FieldByName ('data_smen').AsString:=DateToStr (data_sm);tuz.Post;Except MessageDlg ('Ошибкавводаданных!', mtInformation,[mbYes], 0); end;end;procedure TForm1. suiButton4Click (Sender: TObject);begintuz.Delete;end;procedure TForm1. suiButton3Click (Sender: TObject);begintr_st.Delete;end;procedure TForm1. suiDBGrid1CellClick (Column: TColumn);beginsuiEdit3.text:=tr_st.FieldValues['nomer_rs']; suiEdit1. text:=tr_st.FieldValues['ip_adr'];suiEdit6.text:=tr_st.FieldValues['ident'];suiMemo1.text:=tr_st.FieldValues['spec'];end;procedure TForm1. suiDBGrid3CellClick (Column: TColumn);beginsuiEdit5.text:=tuz.FieldValues['domen']; suiEdit8. text:=tuz.FieldValues['log'];suiEdit9.text:=tuz.FieldValues['parol'];suiEdit7.text:=tuz.FieldValues['polzovatel'];suiEdit4.text:=tuz.FieldValues['srok_deist'];suiEdit21.text:=tuz.FieldValues['data_ust'];end;procedure TForm1. suiDBGrid4CellClick (Column: TColumn);beginsuiEdit10.text:=tsob.FieldValues['kod_sob']; suiEdit12. text:=tsob.FieldValues['data'];suiEdit11.text:=tsob.FieldValues['vrem'];suiEdit13.text:=tsob.FieldValues['sob'];suiMemo2.text:=tsob.FieldValues['opis'];suiMemo3.text:=tsob.FieldValues['mery'];end;procedure TForm1. suiDBGrid5CellClick (Column: TColumn);beginsuiEdit23.text:=tmer.FieldValues['kod_mer']; suiEdit14. text:=tmer.FieldValues['data'];suiEdit15.text:=tmer.FieldValues['vrem'];suiEdit16.text:=tmer.FieldValues['mer'];suiEdit20.text:=tmer.FieldValues['isp'];end;procedure TForm1. suiButton17Click (Sender: TObject);begintryt_po.Append;t_po.FieldByName ('nazv').AsString:=suiEdit22.text;t_po.FieldByName ('treb').AsString:=suiEdit25.text;t_po.FieldByName ('type_po').AsString:=suiComboBox1.text;t_po.FieldByName ('opis').AsString:=suiMemo9.text;t_po.Post;Except MessageDlg ('Ошибкавводаданных!', mtInformation,[mbYes], 0);end;end;procedure TForm1. suiButton16Click (Sender: TObject);begint_po.Delete;end;procedure TForm1. suiButton18Click (Sender: TObject);begintryt_po_st.Append;t_po_st.FieldByName ('nazv').AsString:=t_po.FieldValues['nazv']; t_po_st.FieldByName ('id_st').AsInteger:=tr_st.FieldValues['nomer_rs'];t_po_st.Post;Except MessageDlg ('Ошибкавводаданных!', mtInformation,[mbYes], 0); end;end;procedure TForm1. suiDBGrid7CellClick (Column: TColumn);begint_po_st.Filtered:=false;t_po_st.Filter:='id_st='+inttostr (tr_st.FieldValues['nomer_rs']);t_po_st.Filtered:=true;end;end.Заключение
Целью работы является повышение эффективности работы администратора компьютерного салона путем разработки АРМ администратора. В ходе курсового проектирования была создана функциональная модель процесса с использованием средства BPWinProcessModeler. Также для каждой задачи процесса была создана DFD-диаграмма.Создана структурная схема программного комплекса. Осуществлено проектирование структуры информационного фонда с использованием ERWin. После выбора СУБД Accessбыла сформирована физическая структура БД. Была описана модель размещения АРМ на вычислительных узлах сети. Создан календарный план выполнения проекта с использованием инструментария MSProject. Разработан и представлен исходный код АРМ, созданный в среде DelphiStudio.
Список литературы
Управление программными проектами: достижение оптимального качества при минимуме затрат.: Пер. с англ. — М.: Издательский дом «Вильямс», 2007
Интернет — маркетинг: Учебник. Успенский И. В. — СПб.: Изд-во СПГУЭиФ, 2008
Экономическая информатика: Введение в экономический анализ информационных систем: Учебник. — М.: ИНФРА-М, 2008
Шафер Д.Ф., Фартрел Т., Шафер Л. И. Управление программными проектами: достижение оптимального качества при минимуме затрат.: Пер. с англ. — М.: Вильямс, 2009
Марка Д. А., Мак
Гоуэн К. Методология структурного анализа и проектирования SADT. 2008
Проектирование экономических информационных систем: учеб. / под ред. Ю. Ф. Тельнова. М., 2007
Автоматизированные информационные технологии в экономике: Учебник/Под ред. проф. Г. А. Титоренко. — М.: Компьютер, ЮИНИТИ, 2008
Маклаков С. В. Моделирование бизнес-процессов с AllFusion Process Modeler (BPwin 4.1). М., 2008
Маклаков С. В. Создание информационных систем с AllFusion Modeling Suite. — М.: ДИАЛОГ-МИФИ, 2007
Маклаков С.В. BPwin и Erwin. CASE-средства разработки информационных систем. — М.: ДИАЛОГ-МИФИ, 2008
Фаулер М. UML в кратком изложении: применение стандартного языка объектного моделирования: пер. с англ. / М. Фаулер, К. Скотт. М., 2008
