Разработка программы АРМ "Медицинские услуги" - Курсовая работа

бесплатно 0
4.5 84
Основные требования к программному средству. Компоненты интегрированной среды 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 с.

3. Delphi. Быстрый старт./Сост.В.Э. Гофман, А.Д. Хомоненко - СПБ.: БХВ-Петербург, 2003. - 288 с.

4. Delphi 7. Учебный курс

5. Интернет-ресурсы.

Приложение А Код программы: unit Unit2;

interface uses

Windows, Messages, SYSUTILS, Variants, Classes, Graphics, Controls, Forms, Dialogs, Buttons, XPMAN, STDCTRLS, EXTCTRLS, Grids, DBGRIDS;

type

TFORM2 = class(TFORM)

Panel1: TPANEL;

GROUPBOX1: TGROUPBOX;

XPMANIFEST1: TXPMANIFEST;

SPEEDBUTTON1: TSPEEDBUTTON;

Button1: TBUTTON;

Panel2: TPANEL;

Timer1: TTIMER;

Label1: TLABEL;

Panel3: TPANEL;

GROUPBOX2: TGROUPBOX;

DBGRID1: TDBGRID;

Button2: TBUTTON;

Panel4: TPANEL;

Panel5: TPANEL;

GROUPBOX3: TGROUPBOX;

SPEEDBUTTON2: TSPEEDBUTTON;

Label2: TLABEL;

Label3: TLABEL;

Label4: TLABEL;

Edit1: TEDIT;

Edit2: TEDIT;

Edit3: TEDIT;

Button3: TBUTTON;

Button4: TBUTTON;

COMBOBOX1: TCOMBOBOX;

Button5: TBUTTON;

Button6: TBUTTON;

Label5: TLABEL;

Label6: TLABEL;

GROUPBOX4: TGROUPBOX;

Button7: TBUTTON;

DBGRID2: TDBGRID;

GROUPBOX5: TGROUPBOX;

DBGRID3: TDBGRID;

GROUPBOX6: TGROUPBOX;

DBGRID4: TDBGRID;

Panel6: TPANEL;

Label7: TLABEL;

Label8: TLABEL;

Edit4: TEDIT;

Edit5: TEDIT;

Button8: TBUTTON;

Button9: TBUTTON;

Button10: TBUTTON;

GROUPBOX7: TGROUPBOX;

DBGRID5: TDBGRID;

GROUPBOX8: TGROUPBOX;

DBGRID6: TDBGRID;

Button11: TBUTTON;

Button12: TBUTTON;

Button13: TBUTTON;

Button14: TBUTTON;

Button15: TBUTTON;

Label9: TLABEL;

Label10: TLABEL;

Label11: TLABEL;

procedure SPEEDBUTTON1Click(Sender: TOBJECT);

procedure FORMCREATE(Sender: TOBJECT);

procedure Button1Click(Sender: TOBJECT);

procedure Timer1Timer(Sender: TOBJECT);

procedure Button2Click(Sender: TOBJECT);

procedure Button3Click(Sender: TOBJECT);

procedure Button4Click(Sender: TOBJECT);

procedure FORMCLOSE(Sender: TOBJECT; var Action: TCLOSEACTION);

procedure COMBOBOX1Click(Sender: TOBJECT);

procedure Button5Click(Sender: TOBJECT);

procedure Button6Click(Sender: TOBJECT);

procedure Button7Click(Sender: TOBJECT);

procedure SPEEDBUTTON2Click(Sender: TOBJECT);

procedure DBGRID2CELLCLICK(Column: TCOLUMN);

procedure Button8Click(Sender: TOBJECT);

procedure Button9Click(Sender: TOBJECT);

procedure Button10Click(Sender: TOBJECT);

procedure Button11Click(Sender: TOBJECT);

procedure DBGRID1CELLCLICK(Column: TCOLUMN);

procedure DBGRID5CELLCLICK(Column: TCOLUMN);

procedure DBGRID6CELLCLICK(Column: TCOLUMN);

procedure DBGRID4CELLCLICK(Column: TCOLUMN);

procedure Button12Click(Sender: TOBJECT);

procedure Button13Click(Sender: TOBJECT);

procedure Edit2KEYPRESS(Sender: TOBJECT; var Key: Char);

procedure Edit3KEYPRESS(Sender: TOBJECT; var Key: Char);

procedure Edit5KEYPRESS(Sender: TOBJECT; var Key: Char);

procedure Button14Click(Sender: TOBJECT);

procedure Button15Click(Sender: TOBJECT);

private

{ Private declarations } public

{ Public declarations } end;

var

Form2: TFORM2;

k,n,l:integer;

{$IFNDEF WIN32} const MAX_PATH = 144;

{$ENDIF} implementation uses Unit3, DB, COMMDLG;

{$R *.dfm} procedure TFORM2.SPEEDBUTTON1Click(Sender: TOBJECT);

begin if k=0 then begin

GROUPBOX1.Width:=0;

Panel1.Width:=36;

k:=1;

SPEEDBUTTON1.Glyph.LOADFROMFILE("jpg/Bitmap2.1.BMP");

end else begin

GROUPBOX1.Width:=152;

Panel1.Width:=188;

k:=0;

SPEEDBUTTON1.Glyph.LOADFROMFILE("jpg/Bitmap2.BMP");

end;

end;

procedure TFORM2.FORMCREATE(Sender: TOBJECT);

begin k:=0;

l:=0;

Panel5.Width:=33;

GROUPBOX3.Width:=0;

GROUPBOX5.Visible:=false;

GROUPBOX6.Visible:=false;

end;

procedure TFORM2.Button1Click(Sender: TOBJECT);

begin

SHOWMESSAGE("Программу разработал: Маскальчук Иван" #13 "Контактный телефон: 375292646548" #13 "E-mail: vano.maskalchuk27@gmail.com");

end;

procedure TFORM2.Timer1Timer(Sender: TOBJECT);

begin

Form2.Caption:="АРМ "Медицинские услуги". Сегодня:" datetostr(now) " " timetostr(now);

end;

procedure TFORM2.Button2Click(Sender: TOBJECT);

begin

//кнопка клиенты ---------------------------------------

Panel2.Visible:=false;

Panel3.Visible:=true;

Panel6.Visible:=false;

Label4.Visible:=true;

Edit3.Visible:=true;

GROUPBOX2.Visible:=true;

GROUPBOX4.Visible:=false;

GROUPBOX7.Visible:=false;

GROUPBOX8.Visible:=false;

Label2.Caption:="ФИО";

Label3.Caption:="Адрес";

Label4.Caption:="Телефон";

COMBOBOX1.Items.Text:="";

COMBOBOX1.Items.Text:="№" #13 "ФИО" #13 "Адресу" #13 "Телефону";

Edit1.Text:="";

Edit2.Text:="";

Edit3.Text:="";

end;

procedure TFORM2.Button3Click(Sender: TOBJECT);

begin

//добавление записей---------------------------------------------

//клиенты 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);

begin

Application.Terminate;

end;

procedure TFORM2.COMBOBOX1Click(Sender: TOBJECT);

begin n:=COMBOBOX1.ITEMINDEX;

Label6.Caption:=COMBOBOX1.Items.Strings[n];

COMBOBOX1.Text:="";

end;

procedure TFORM2.Button5Click(Sender: TOBJECT);

begin

//поиск--------------------------------------------------

//клиенты if GROUPBOX2.Visible=true then begin if Label6.Caption="№" then begin

DATAMODULE3.ADODATASET1.Active:=false;

DATAMODULE3.ADODATASET1.COMMANDTEXT:="select IDKL, KLFIO, KLADRES, KLTEL from Klientu WHERE IDKL=" COMBOBOX1.Text;

DATAMODULE3.ADODATASET1.Active:=true;

end;

if Label6.Caption="ФИО" then begin

DATAMODULE3.ADODATASET1.Active:=false;

DATAMODULE3.ADODATASET1.COMMANDTEXT:="select IDKL, KLFIO, KLADRES, KLTEL from Klientu WHERE KLFIO LIKE ""%" COMBOBOX1.Text "%"" ORDER BY KLFIO";

DATAMODULE3.ADODATASET1.Active:=true;

end;

if Label6.Caption="Адресу" then begin

DATAMODULE3.ADODATASET1.Active:=false;

DATAMODULE3.ADODATASET1.COMMANDTEXT:="select IDKL, KLFIO, KLADRES, KLTEL from Klientu WHERE KLADRES LIKE ""%" COMBOBOX1.Text "%"" ORDER BY KLFIO";

DATAMODULE3.ADODATASET1.Active:=true;

end;

if Label6.Caption="Телефону" then begin

DATAMODULE3.ADODATASET1.Active:=false;

DATAMODULE3.ADODATASET1.COMMANDTEXT:="select IDKL, KLFIO, KLADRES, KLTEL from Klientu WHERE KLTEL LIKE ""%" COMBOBOX1.Text "%"" ORDER BY KLTEL";

DATAMODULE3.ADODATASET1.Active:=true;

end;

end;

//врачи if GROUPBOX4.Visible=true then begin if Label6.Caption="№" then begin

DATAMODULE3.ADODATASET2.Active:=false;

DATAMODULE3.ADODATASET2.COMMANDTEXT:="select IDVR, VRFIO, VRSP from Vrachi WHERE IDVR=" COMBOBOX1.Text;

DATAMODULE3.ADODATASET2.Active:=true;

end;

if Label6.Caption="ФИО" then begin

DATAMODULE3.ADODATASET2.Active:=false;

DATAMODULE3.ADODATASET2.COMMANDTEXT:="select IDVR, VRFIO, VRSP from Vrachi WHERE VRFIO LIKE ""%" COMBOBOX1.Text "%"" ORDER BY VRFIO";

DATAMODULE3.ADODATASET2.Active:=true;

end;

if Label6.Caption="Специализации" then begin

DATAMODULE3.ADODATASET2.Active:=false;

DATAMODULE3.ADODATASET2.COMMANDTEXT:="select IDVR, VRFIO, VRSP from Vrachi WHERE VRSP LIKE ""%" COMBOBOX1.Text "%"" ORDER BY VRSP";

DATAMODULE3.ADODATASET2.Active:=true;

end;

end;

//мед услуги if GROUPBOX7.Visible=true then begin if Label6.Caption="№" then begin

DATAMODULE3.ADODATASET4.Active:=false;

DATAMODULE3.ADODATASET4.COMMANDTEXT:="select IDMY, MYNAME, MYOPIS, MYST from Med_yslygi WHERE IDMY=" COMBOBOX1.Text;

DATAMODULE3.ADODATASET4.Active:=true;

end;

if Label6.Caption="Врачу" then begin

DATAMODULE3.ADODATASET4.Active:=false;

DATAMODULE3.ADODATASET4.COMMANDTEXT:="select IDMY, MYNAME, MYOPIS, MYST from Med_yslygi WHERE MYNAME LIKE ""%" COMBOBOX1.Text "%"" ORDER BY MYNAME";

DATAMODULE3.ADODATASET4.Active:=true;

end;

if Label6.Caption="Наименованию" then begin

DATAMODULE3.ADODATASET4.Active:=false;

DATAMODULE3.ADODATASET4.COMMANDTEXT:="select IDMY, MYNAME, MYOPIS, MYST from Med_yslygi WHERE MYOPIS LIKE ""%" COMBOBOX1.Text "%"" ORDER BY MYNAME";

DATAMODULE3.ADODATASET4.Active:=true;

end;

if Label6.Caption="Стоимости" then begin

DATAMODULE3.ADODATASET4.Active:=false;

DATAMODULE3.ADODATASET4.COMMANDTEXT:="select IDMY, MYNAME, MYOPIS, MYST from Med_yslygi WHERE MYST LIKE ""%" COMBOBOX1.Text "%"" ORDER BY MYST";

DATAMODULE3.ADODATASET4.Active:=true;

end;

end;

//медикаменты if GROUPBOX8.Visible=true then begin if Label6.Caption="№" then begin

DATAMODULE3.ADODATASET5.Active:=false;

DATAMODULE3.ADODATASET5.COMMANDTEXT:="select IDM, Mkol, Mname, Mst from Medikomenti WHERE IDM=" COMBOBOX1.Text;

DATAMODULE3.ADODATASET5.Active:=true;

end;

if Label6.Caption="Названию" then begin

DATAMODULE3.ADODATASET5.Active:=false;

DATAMODULE3.ADODATASET5.COMMANDTEXT:="select IDM, Mkol, Mname, Mst from Medikomenti WHERE Mname LIKE ""%" COMBOBOX1.Text "%"" ORDER BY Mname";

DATAMODULE3.ADODATASET5.Active:=true;

end;

if Label6.Caption="Количеству" then begin

DATAMODULE3.ADODATASET5.Active:=false;

DATAMODULE3.ADODATASET5.COMMANDTEXT:="select IDM, Mkol, Mname, Mst from Medikomenti WHERE Mkol LIKE ""%" COMBOBOX1.Text "%"" ORDER BY Mkol";

DATAMODULE3.ADODATASET5.Active:=true;

end;

if Label6.Caption="Стоимости" then begin

DATAMODULE3.ADODATASET5.Active:=false;

DATAMODULE3.ADODATASET5.COMMANDTEXT:="select IDM, Mkol, Mname, Mst from Medikomenti WHERE Mst LIKE ""%" COMBOBOX1.Text "%"" ORDER BY Mst";

DATAMODULE3.ADODATASET5.Active:=true;

end;

end;

end;

procedure TFORM2.Button6Click(Sender: TOBJECT);

begin

//кнопка все записи ----------------------------------------------

//клиенты

DATAMODULE3.ADODATASET1.Active:=false;

DATAMODULE3.ADODATASET1.COMMANDTEXT:="select IDKL, KLFIO, KLADRES, KLTEL from Klientu";

DATAMODULE3.ADODATASET1.Active:=true;

//врачи

DATAMODULE3.ADODATASET2.Active:=false;

DATAMODULE3.ADODATASET2.COMMANDTEXT:="select IDVR, VRFIO, VRSP from Vrachi";

DATAMODULE3.ADODATASET2.Active:=true;

//мед услуги

DATAMODULE3.ADODATASET4.Active:=false;

DATAMODULE3.ADODATASET4.COMMANDTEXT:="select IDMY, MYNAME, MYOPIS, MYST from Med_yslygi";

DATAMODULE3.ADODATASET4.Active:=true;

//медикаменты

DATAMODULE3.ADODATASET5.Active:=false;

DATAMODULE3.ADODATASET5.COMMANDTEXT:="select IDM, Mkol, Mname, Mst from Medikomenti";

DATAMODULE3.ADODATASET5.Active:=true;

end;

procedure TFORM2.Button7Click(Sender: TOBJECT);

begin

//кнопка врачи----------------------------------------------------------

Panel2.Visible:=false;

Panel3.Visible:=true;

Label4.Visible:=false;

Edit3.Visible:=false;

GROUPBOX2.Visible:=false;

GROUPBOX4.Visible:=true;

GROUPBOX7.Visible:=false;

GROUPBOX8.Visible:=false;

Label2.Caption:="ФИО";

Label3.Caption:="Специализация";

Label7.Caption:="Наименование";

Label8.Caption:="Стоимость";

COMBOBOX1.Items.Text:="";

COMBOBOX1.Items.Text:="№" #13 "ФИО" #13 "Специализации";

Edit1.Text:="";

Edit2.Text:="";

Edit3.Text:="";

end;

procedure TFORM2.SPEEDBUTTON2Click(Sender: TOBJECT);

begin if l=0 then begin

Panel5.Width:=348;

GROUPBOX3.Width:=315;

SPEEDBUTTON2.Glyph.LOADFROMFILE("jpg/Bitmap2.1.BMP");

l:=1 end else begin

Panel5.Width:=33;

GROUPBOX3.Width:=0;

SPEEDBUTTON2.Glyph.LOADFROMFILE("jpg/Bitmap2.BMP");

l:=0 end;

end;

procedure TFORM2.DBGRID2CELLCLICK(Column: TCOLUMN);

var d,z:string;

begin

Panel6.Visible:=true;

GROUPBOX5.Visible:=true;

GROUPBOX6.Visible:=true;

d:=DATAMODULE3.ADODATASET2.FIELDBYNAME("IDVR").ASSTRING;

z:=DATAMODULE3.ADODATASET2.FIELDBYNAME("VRSP").ASSTRING;

DATAMODULE3.ADODATASET3.Filtered:=false;

DATAMODULE3.ADODATASET3.Filter:="IDR=" d;

DATAMODULE3.ADODATASET3.Filtered:=true;

DATAMODULE3.ADODATASET4.Filtered:=false;

DATAMODULE3.ADODATASET4.Filter:="MYNAME=" """" z """";

DATAMODULE3.ADODATASET4.Filtered:=true;

Edit1.Text:=DATAMODULE3.ADODATASET2.FIELDBYNAME("VRFIO").ASSTRING;

Edit2.Text:=DATAMODULE3.ADODATASET2.FIELDBYNAME("VRSP").ASSTRING;

end;

procedure TFORM2.Button8Click(Sender: TOBJECT);

var x:string;

begin

//добавление услуги-------------------------------------------- x:=DATAMODULE3.ADODATASET2.FIELDBYNAME("VRSP").ASSTRING;

with DBGRID4.DATASOURCE.DATASET do begin

Append;

FIELDBYNAME("MYNAME").Value:=x ;

FIELDBYNAME("MYOPIS").Value:=Edit4.Text ;

FIELDBYNAME("MYST").Value:=Edit5.Text ;

Post;

end;

Edit4.Text:="";

Edit5.Text:="";

end;

procedure TFORM2.Button9Click(Sender: TOBJECT);

begin

//удаление услуги----------------------------------------------

If Application.MESSAGEBOX("Вы действительно хотите удалить эту запись","!!!Внимание!!!",MB_OKCANCEL)=id_OK then if not DBGRID4.DATASOURCE.DATASET.Eof then

DBGRID4.DATASOURCE.DATASET.Delete;

end;

procedure TFORM2.Button10Click(Sender: TOBJECT);

begin

//кнопка мед услуги---------------------------------------

Panel2.Visible:=false;

Panel3.Visible:=true;

Panel6.Visible:=false;

Label4.Visible:=true;

Edit3.Visible:=true;

GROUPBOX2.Visible:=false;

GROUPBOX4.Visible:=false;

GROUPBOX7.Visible:=true;

GROUPBOX8.Visible:=false;

Label2.Caption:="Врач";

Label3.Caption:="Наименование";

Label4.Caption:="Стоимость";

DATAMODULE3.ADODATASET4.Filtered:=false;

COMBOBOX1.Items.Text:="";

COMBOBOX1.Items.Text:="№" #13 "Врачу" #13 "Наименованию" #13 "Стоимости";

Edit1.Text:="";

Edit2.Text:="";

Edit3.Text:="";

end;

procedure TFORM2.Button11Click(Sender: TOBJECT);

begin

//кнопка медикаменты-------------------------------------------

Panel2.Visible:=false;

Panel3.Visible:=true;

Panel6.Visible:=false;

Label4.Visible:=true;

Edit3.Visible:=true;

GROUPBOX2.Visible:=false;

GROUPBOX4.Visible:=false;

GROUPBOX7.Visible:=false;

GROUPBOX8.Visible:=true;

Label2.Caption:="Название";

Label3.Caption:="Количество";

Label4.Caption:="Стоимость";

DATAMODULE3.ADODATASET4.Filtered:=false;

COMBOBOX1.Items.Text:="";

COMBOBOX1.Items.Text:="№" #13 "Названию" #13 "Количеству" #13 "Стоимости";

Edit1.Text:="";

Edit2.Text:="";

Edit3.Text:="";

end;

procedure TFORM2.DBGRID1CELLCLICK(Column: TCOLUMN);

begin

Edit1.Text:=DATAMODULE3.ADODATASET1.FIELDBYNAME("KLFIO").ASSTRING;

Edit2.Text:=DATAMODULE3.ADODATASET1.FIELDBYNAME("KLADRES").ASSTRING

Edit3.Text:=DATAMODULE3.ADODATASET1.FIELDBYNAME("KLTEL").ASSTRING;

end;

procedure TFORM2.DBGRID5CELLCLICK(Column: TCOLUMN);

begin

Edit1.Text:=DATAMODULE3.ADODATASET4.FIELDBYNAME("MYNAME").ASSTRING;

Edit2.Text:=DATAMODULE3.ADODATASET4.FIELDBYNAME("MYOPIS").ASSTRING

Edit3.Text:=DATAMODULE3.ADODATASET4.FIELDBYNAME("MYST").ASSTRING;

end;

procedure TFORM2.DBGRID6CELLCLICK(Column: TCOLUMN);

begin

Edit1.Text:=DATAMODULE3.ADODATASET5.FIELDBYNAME("Mname").ASSTRING;

Edit2.Text:=DATAMODULE3.ADODATASET5.FIELDBYNAME("Mkol").ASSTRING;

Edit3.Text:=DATAMODULE3.ADODATASET5.FIELDBYNAME("Mst").ASSTRING;

end;

procedure TFORM2.DBGRID4CELLCLICK(Column: TCOLUMN);

begin

Edit4.Text:=DATAMODULE3.ADODATASET4.FIELDBYNAME("MYOPIS").ASSTRING

Edit5.Text:=DATAMODULE3.ADODATASET4.FIELDBYNAME("MYST").ASSTRING;

end;

procedure TFORM2.Button12Click(Sender: TOBJECT);

begin

//изменение записей---------------------------------------------

//клиенты if GROUPBOX2.Visible=true then begin

DBGRID1.DATASOURCE.DATASET.Edit ;

DBGRID1.DATASOURCE.DATASET.FIELDBYNAME("KLFIO").Value:=Edit1.Text ;

DBGRID1.DATASOURCE.DATASET.FIELDBYNAME("KLADRES").Value:=Edit2.Text ;

DBGRID1.DATASOURCE.DATASET.FIELDBYNAME("KLTEL").Value:=Edit3.Text ;

DBGRID1.DATASOURCE.DATASET.Post;

end;

//врачи if GROUPBOX4.Visible=true then begin with DBGRID2.DATASOURCE.DATASET do begin

Edit;

FIELDBYNAME("VRFIO").Value:=Edit1.Text ;

FIELDBYNAME("VRSP").Value:=Edit2.Text ;

Post;

end;

end;

//мед услуги if GROUPBOX7.Visible=true then begin with DBGRID5.DATASOURCE.DATASET do begin

Edit;

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

Edit;

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.Button13Click(Sender: TOBJECT);

begin

//изменение услуги with DBGRID4.DATASOURCE.DATASET do begin

Edit;

FIELDBYNAME("MYOPIS").Value:=Edit4.Text ;

FIELDBYNAME("MYST").Value:=Edit5.Text ;

Post;

end;

Edit4.Text:="";

Edit5.Text:="";

end;

procedure TFORM2.Edit2KEYPRESS(Sender: TOBJECT; var Key: Char);

begin if GROUPBOX8.Visible=true then begin case Key of

"0".. "9",#8: ; // цифры и клавиша

#13:Button1.Click else begin key:=Chr(0);

SHOWMESSAGE("Вводить только ЦИФРАМИ!!!"); // символ не отображать end;

end;

end;

end;

procedure TFORM2.Edit3KEYPRESS(Sender: TOBJECT; var Key: Char);

begin case Key of

"0".. "9",#8: ; // цифры и клавиша

#13:Button1.Click else begin key:=Chr(0);

SHOWMESSAGE("Вводить только ЦИФРАМИ!!!"); // символ не отображать end;

end;

end;

procedure TFORM2.Edit5KEYPRESS(Sender: TOBJECT; var Key: Char);

begin case Key of

"0".. "9",#8: ; // цифры и клавиша

#13:Button1.Click else begin key:=Chr(0);

SHOWMESSAGE("Вводить только ЦИФРАМИ!!!"); // символ не отображать end;

end;

end;

procedure TFORM2.Button14Click(Sender: TOBJECT);

var

Pd : TPRINTDLG;

DOCINFO: TDOCINFO;

begin

FILLCHAR(Pd, sizeof(Pd), #0);

Pd.LSTRUCTSIZE := sizeof(Pd);

Pd.HWNDOWNER := Form2.Handle;

Pd.Flags := PD_RETURNDC;

if PRINTDLG(pd) then begin

FILLCHAR(DOCINFO, sizeof(DOCINFO), #0);

DOCINFO.CBSIZE := SIZEOF(DOCINFO);

GETMEM(DOCINFO.LPSZDOCNAME, 32);

GETMEM(DOCINFO.LPSZOUTPUT, MAX_PATH);

//LSTRCPY(DOCINFO.LPSZDOCNAME, "recept");

{Add this line to print to a file }

LSTRCPY(DOCINFO.LPSZOUTPUT, "recept.txt");

STARTDOC(Pd.HDC, DOCINFO);

STARTPAGE(Pd.HDC);

TEXTOUT(Pd.HDC, 100, 100, "Page 1", 6);

ENDPAGE(Pd.HDC);

ENDDOC(Pd.HDC);

FREEMEM(DOCINFO.LPSZDOCNAME, 32);

FREEMEM(DOCINFO.LPSZOUTPUT, MAX_PATH);

end;

end;

procedure TFORM2.Button15Click(Sender: TOBJECT);

begin

DATAMODULE3.RVPROJECT1.Execute;

end;

end.

Приложение Б

Рисунок Б.1 - загрузочная форма

Рисунок Б.2 - главная форма

Рисунок Б.3 - таблица с данными о клиентах

Рисунок Б.4 - таблица с данными о врачах

Рисунок Б.5 - таблица с данными о медицинских услугах

Рисунок Б.6 - таблица с данными о медикаментах

Рисунок Б.7 - поиск

Рисунок Б.8 - редактирование

Рисунок Б.9 - окно информация о разработчике

Рисунок Б.10 - предупреждение о удалении записи

Размещено на .ru

Вы можете ЗАГРУЗИТЬ и ПОВЫСИТЬ уникальность
своей работы


Новые загруженные работы

Дисциплины научных работ





Хотите, перезвоним вам?