Основные требования к программному средству. Компоненты интегрированной среды Delphi 7, алгоритм создания приложения. Разработка программы для редактирования и просмотра данных о клиентах, врачах, перечне медицинских услуг, стоимости медикаментов.
Сегодня не возможно представить нашу жизнь без ПО, установленного на различную технику, начиная с обычных КПК и смартфонов и заканчивая современными автомобилями, мощнейшими ПК и космическими кораблями. Вся эта техника работает под управлением ПО созданного программистами. Начало этапа программирования положила Ада Паскаль. Именно ее язык программирования стал основополагающим для всех последующих языков программирования и именно этот язык программирования первым изучают все будущие программисты.
На данном этапе моего обучения я получил задание, разработать программу по теме «АРМ «Медицинские услуги»».
Данная пояснительная записка является полным описанием разработанного ПС и разбита на ряд разделов по содержательному признаку.
В первом разделе описывается постановка задачи.
Во втором разделе описывается среда разработки.
В третьем разделе содержатся входные данные, выходные данные, алгоритм работы программы, требования к программному и аппаратному обеспечению.
1. Постановка задачи
Программа должна: - Предоставлять возможность просмотра информации;
- Организовать поиск по определенным критериям;
- Предусмотреть возможность добавления, редактирования и удаления данных;
- Предусмотреть возможность выдачи отчетов по запросу менеджера клиники;
Программа должна отвечать следующим параметрам: - Понятность и доступность для любого пользователя;
- Содержать минимальное количество сложных элементов;
- Удобные меню и под меню;
- Удобства просмотра информации;
- Возможность обработки данных;
- Работать без сбоев.
Эта программа позволяет обрабатывать данные о клиентах, врачах, их расписанию, о перечне медицинских услуг (с расценками и описанием), стоимости медикаментов и их количества, выдавать отчеты по запросу менеджера клиники: бланк рецепта, прайс-листы по услугам, имеет удобный и простой интерфейс, понятный для всех пользователей.
2. Среда разработки
Для создания данного программного средства использовались следующие компоненты интегрированной среды Delphi 7: Label, Panel, Image, IMAGELIST, TREEVIEW, RICHEDIT, Button, MAINMENU, POPUPMENU, Edit, BITBTN, Memo, Timer, XPMANIFEST, CHECKBOX, RADIOBUTTON.
Алгоритм создания приложения: - Добавление на форму компонентов;
- Применение свойств компонентов для решения поставленной задачи;
- Обработка команд для дальнейшей работы программного средства;
- Тестирование полученного результата, проверка на работоспособность;
Алгоритм работы тестирования расположен в приложении А в виде кода.
3. Практическая часть
3.1 Входные данные
Входной информацией данного курсового проекта являются данные о клиентах, врачах, их расписании, о перечне медицинских услуг (с расценками и описанием), стоимости медикаментов и их количества, представленные таблицей MS Access (в соответствии с рисунками 1.1-1.5).
Рисунок 1.1 - таблица клиенты
Рисунок 1.2 - таблица врачи
Рисунок 1.3 - таблица расписание
Рисунок 1.4 - таблица медицинские услуги
Рисунок 1.5 - таблица медикаменты
3.2 Выходные данные
Выходной информацией для разрабатываемой программы являются отчеты по запросу менеджера клиники: бланк рецепта, прайс-листы по услугам (в соответствии с рисунками 1.6-1.7).
Рисунок 1.6 - прайс-лист по услугам
Рисунок 1.7 - бланк рецепта
3.3 Алгоритм работы программы
Разработанный программный продукт «АРМ «Медицинские услуги»» представляет собой файл “ Clinic.exe”.
При двойном нажатии кнопки мыши на файл запускается программа, состоящий из загрузочного окна (в соответствии с рисунком Б.1), и после загрузки главного окна программы (в соответствии с рисунком Б.2).
Слева окна программы размещено меню, состоящее из таблиц, отчетов и информации о разработчике. После выбора таблицы (в соответствии с рисунками Б.3-Б.6), можно осуществлять поиск по заданному критерию (в соответствии с рисунком Б.7). Для этого нужно в верхней части формы выбрать из выпадающего меню нужный критерий, ввести текст запроса и нажать кнопку «поиск». Чтобы отменить поиск нужно нажать кнопку «все записи».
Для редактирования информации требуется нажать справа окна кнопку в виде стрелки. По нажатию кнопки появится меню редактирования информации (в соответствии с рисунком Б.8). Для добавления записи требуется ввести информацию в поля и нажать клавишу «добавить». Для удаления записи нужно выбрать нужную вам строку и нажать клавишу «удалить». Для изменения данных нужно выбрать нужную вам строку, заменить информацию в полях и нажать клавишу «изменить».
Для печати отчетов, нужно в меню выбрать интересующий вас отчет, и нажать на соответствующую кнопку.
Для просмотра информации о разработчиках требуется в меню нажать кнопку «О разработчике». В появившейся форме (в соответствии с рисунком Б.9) отображена информация о разработчике программы.
Для выхода из программы на главной форме требуется нажать на красный крестик.
Код алгоритма работы программы расположен в приложении А.
3.4 Требования к программному и аппаратному обеспечению
Минимальными требованиями к аппаратному и программному обеспечению, для корректной работы программы: - процессор: Pentium II 350 МГЦ и выше;
- видеокарта NVIDIA Geforce3 или выше;
- объем оперативной памяти: 128 Мбайт и выше;
- операционная система: Windows Me, Windows XP, Windows Vista, Windows 7;
- свободное место на жестком диске 100 Мбайт и выше;
- наличие монитора VGA с разрешением не менее 1024x756;
- наличие мыши;
- CD-ROM 12х;
- клавиатура.
Заключение
Данное программное средство создано для упрощения и ускорения работы сотрудников в частной клинике. Эта программа, проста в использовании и не требующая больших ресурсов системы. Она проста и интуитивно понятна в использовании, как для опытных, так и для начинающих пользователей. Данный программный продукт имеет возможность быстрого и легкого редактирования и просмотра данных о клиентах, врачах, их расписании, о перечне медицинских услуг (с расценками и описанием), стоимости медикаментов и их количества, поиска по заданным критериям.
Программа функционирует должным образом и готово к применению на предприятии.
Список использованных источников программный приложение медицинский услуга
1. Основы программирования в Delphi 7./Сост.Н.Б. Культин - СПБ.: БХВ-Петербург, 2007. - 608 с.
2. Программирования в Delphi 7./Сост.П.Г. Дарахвелидзе, Е.П. Марков - СПБ.: БХВ-Петербург, 2003. - 784 с.
//клиенты if GROUPBOX2.Visible=true then begin with DBGRID1.DATASOURCE.DATASET do begin
Append;
FIELDBYNAME("KLFIO").Value:=Edit1.Text ;
FIELDBYNAME("KLADRES").Value:=Edit2.Text ;
FIELDBYNAME("KLTEL").Value:=Edit3.Text ;
Post;
end;
end;
//врачи if GROUPBOX4.Visible=true then begin with DBGRID2.DATASOURCE.DATASET do begin
Append;
FIELDBYNAME("VRFIO").Value:=Edit1.Text ;
FIELDBYNAME("VRSP").Value:=Edit2.Text ;
Post;
end;
with DBGRID3.DATASOURCE.DATASET do begin
Append;
FIELDBYNAME("Rpn").Value:="Время" ;
FIELDBYNAME("Rvt").Value:="Время" ;
FIELDBYNAME("Rsr").Value:="Время" ;
FIELDBYNAME("Rcht").Value:="Время" ;
FIELDBYNAME("Rpt").Value:="Время" ;
FIELDBYNAME("Rsb").Value:="Время" ;
FIELDBYNAME("Rvs").Value:="Время" ;
Post;
end;
end;
//мед услуги if GROUPBOX7.Visible=true then begin with DBGRID5.DATASOURCE.DATASET do begin
Append;
FIELDBYNAME("MYNAME").Value:=Edit1.Text ;
FIELDBYNAME("MYOPIS").Value:=Edit2.Text ;
FIELDBYNAME("MYST").Value:=Edit3.Text ;
Post;
end;
end;
//медикаменты if GROUPBOX8.Visible=true then begin with DBGRID6.DATASOURCE.DATASET do begin
Append;
FIELDBYNAME("Mname").Value:=Edit1.Text ;
FIELDBYNAME("Mkol").Value:=Edit2.Text ;
FIELDBYNAME("Mst").Value:=Edit3.Text ;
Post;
end;
end;
Edit1.Text:="";
Edit2.Text:="";
Edit3.Text:="";
end;
procedure TFORM2.Button4Click(Sender: TOBJECT);
begin
//удаление записи ---------------------------------------------------
//клиенты if GROUPBOX2.Visible=true then begin
If Application.MESSAGEBOX("Вы действительно хотите удалить эту запись","!!!Внимание!!!",MB_OKCANCEL)=id_OK then if not DBGRID1.DATASOURCE.DATASET.Eof then
DBGRID1.DATASOURCE.DATASET.Delete;
end;
//врачи if GROUPBOX4.Visible=true then begin
If Application.MESSAGEBOX("Вы действительно хотите удалить эту запись","!!!Внимание!!!",MB_OKCANCEL)=id_OK then if not DBGRID2.DATASOURCE.DATASET.Eof then
DBGRID2.DATASOURCE.DATASET.Delete;
if not DBGRID3.DATASOURCE.DATASET.Eof then
DBGRID3.DATASOURCE.DATASET.Delete;
end;
//мед услуги if GROUPBOX7.Visible=true then begin
If Application.MESSAGEBOX("Вы действительно хотите удалить эту запись", "!!!Внимание!!!", MB_OKCANCEL)=id_OK then if not DBGRID5.DATASOURCE.DATASET.Eof then
DBGRID5.DATASOURCE.DATASET.Delete;
end;
//медикаменты if GROUPBOX8.Visible=true then begin
If Application.MESSAGEBOX("Вы действительно хотите удалить эту запись","!!!Внимание!!!",MB_OKCANCEL)=id_OK then if not DBGRID6.DATASOURCE.DATASET.Eof then
DBGRID6.DATASOURCE.DATASET.Delete;
end;
end;
procedure TFORM2.FORMCLOSE(Sender: TOBJECT; var Action: TCLOSEACTION);
If Application.MESSAGEBOX("Вы действительно хотите удалить эту запись","!!!Внимание!!!",MB_OKCANCEL)=id_OK then if not DBGRID4.DATASOURCE.DATASET.Eof then
