Разработка программы АРМ 'Медицинские услуги'
Содержание
Введение
. Постановка задачи
. Среда разработки
. Практическая часть
.1 Входные данные
.2 Выходные данные
.3 Алгоритм работы программы
.4 Требования к программному и аппаратному обеспечению
Заключение
Список использованных источников
Приложения
Введение
Сегодня не возможно представить нашу жизнь без ПО, установленного на
различную технику, начиная с обычных КПК и смартфонов и заканчивая современными
автомобилями, мощнейшими ПК и космическими кораблями. Вся эта техника работает
под управлением ПО созданного программистами. Начало этапа программирования
положила Ада Паскаль. Именно её язык программирования стал основополагающим для
всех последующих языков программирования и именно этот язык программирования
первым изучают все будущие программисты.
На данном этапе моего обучения я получил задание, разработать программу
по теме «АРМ «Медицинские услуги»».
Данная пояснительная записка является полным описанием разработанного ПС
и разбита на ряд разделов по содержательному признаку.
В первом разделе описывается постановка задачи.
Во втором разделе описывается среда разработки.
В третьем разделе содержатся входные данные, выходные данные, алгоритм
работы программы, требования к программному и аппаратному обеспечению.
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 МГц и выше;
- объем оперативной памяти: 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 с.
. Delphi. Быстрый старт./Сост.В.Э. Гофман, А.Д. Хомоненко - СПб.:
БХВ-Петербург, 2003. - 288 с.
. Delphi 7. Учебный курс
. Интернет-ресурсы.
Приложение А
Код программы:
Unit2;, Messages, SysUtils, Variants, Classes,
Graphics, Controls, Forms,, Buttons, XPMan, StdCtrls, ExtCtrls, Grids,
DBGrids;= class(TForm): TPanel;: TGroupBox;: TXPManifest;: TSpeedButton;:
TButton;: TPanel;: TTimer;: TLabel;: TPanel;: TGroupBox;: TDBGrid;: TButton;:
TPanel;: TPanel;: TGroupBox;: TSpeedButton;: TLabel;: TLabel;: TLabel;: TEdit;:
TEdit;: TEdit;: TButton;: TButton;: TComboBox;: TButton;: TButton;: TLabel;:
TLabel;: TGroupBox;: TButton;: TDBGrid;: TGroupBox;: TDBGrid;: TGroupBox;: TDBGrid;:
TPanel;: TLabel;: TLabel;: TEdit;: TEdit;: TButton;: TButton;: TButton;:
TGroupBox;: TDBGrid;: TGroupBox;: TDBGrid;: TButton;: TButton;: TButton;:
TButton;: TButton;: TLabel;: TLabel;: TLabel;SpeedButton1Click(Sender:
TObject);FormCreate(Sender: TObject);Button1Click(Sender:
TObject);Timer1Timer(Sender: TObject);Button2Click(Sender:
TObject);Button3Click(Sender: TObject);Button4Click(Sender:
TObject);FormClose(Sender: TObject; var Action:
TCloseAction);ComboBox1Click(Sender: TObject);Button5Click(Sender:
TObject);Button6Click(Sender: TObject);Button7Click(Sender:
TObject);SpeedButton2Click(Sender: TObject);DBGrid2CellClick(Column:
TColumn);Button8Click(Sender: TObject);Button9Click(Sender:
TObject);Button10Click(Sender: TObject);Button11Click(Sender: TObject);DBGrid1CellClick(Column:
TColumn);DBGrid5CellClick(Column: TColumn);DBGrid6CellClick(Column:
TColumn);DBGrid4CellClick(Column: TColumn);Button12Click(Sender:
TObject);Button13Click(Sender: TObject);Edit2KeyPress(Sender: TObject; var Key:
Char);Edit3KeyPress(Sender: TObject; var Key: Char);Edit5KeyPress(Sender:
TObject; var Key: Char);Button14Click(Sender: TObject);Button15Click(Sender:
TObject);
{ Private declarations }
{ Public declarations };: TForm2;,n,l:integer;
{$IFNDEF WIN32}MAX_PATH = 144;
{$ENDIF}
uses Unit3, DB, CommDlg;
{$R
*.dfm}TForm2.SpeedButton1Click(Sender: TObject);
begink=0
then.Width:=0;.Width:=36;:=1;.Glyph.LoadFromFile('jpg/Bitmap2.1.BMP');.Width:=152;.Width:=188;:=0;.Glyph.LoadFromFile('jpg/Bitmap2.BMP');;
end;TForm2.FormCreate(Sender:
TObject);
begin:=0;:=0;.Width:=33;.Width:=0;.Visible:=false;.Visible:=false;;
procedure TForm2.Button1Click(Sender:
TObject);
begin('Программу разработал: Маскальчук
Иван'+#13+'Контактный телефон: +375292646548'+#13+'E-mail:
vano.maskalchuk27@gmail.com');;
procedure TForm2.Timer1Timer(Sender:
TObject);
begin.Caption:='АРМ "Медицинские услуги".
Сегодня:'+datetostr(now)+' '+timetostr(now);;
procedure TForm2.Button2Click(Sender:
TObject);
begin
//кнопка клиенты
---------------------------------------.Visible:=false;.Visible:=true;.Visible:=false;.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=false;.Visible:=false;.Visible:=false;.Caption:='ФИО';.Caption:='Адрес';.Caption:='Телефон';.Items.Text:='';.Items.Text:='№'+#13+'ФИО'+#13+'Адресу'+#13+'Телефону';.Text:='';.Text:='';.Text:='';;
procedure TForm2.Button3Click(Sender:
TObject);
begin
//добавление
записей---------------------------------------------
//клиентыGroupBox2.Visible=true then
beginDBGrid1.DataSource.DataSet do begin;('KLfio').Value:=Edit1.Text
;('KLadres').Value:=Edit2.Text ;('KLtel').Value:=Edit3.Text ;;;;
//врачиGroupBox4.Visible=true then
beginDBGrid2.DataSource.DataSet do begin;('VRfio').Value:=Edit1.Text
;('VRsp').Value:=Edit2.Text ;;;DBGrid3.DataSource.DataSet do begin;('Rpn').Value:='Время'
;('Rvt').Value:='Время' ;('Rsr').Value:='Время' ;('Rcht').Value:='Время'
;('Rpt').Value:='Время' ;('Rsb').Value:='Время' ;('Rvs').Value:='Время' ;;;;
//мед услугиGroupBox7.Visible=true then
beginDBGrid5.DataSource.DataSet do begin;('MYname').Value:=Edit1.Text
;('MYopis').Value:=Edit2.Text ;('MYst').Value:=Edit3.Text ;;;;
//медикаментыGroupBox8.Visible=true then
beginDBGrid6.DataSource.DataSet do begin;('Mname').Value:=Edit1.Text
;('Mkol').Value:=Edit2.Text ;('Mst').Value:=Edit3.Text ;;;;.Text:='';.Text:='';.Text:='';;
procedure TForm2.Button4Click(Sender:
TObject);
begin
//удаление записи
---------------------------------------------------
//клиентыGroupBox2.Visible=true then
beginApplication.MessageBox('Вы действительно хотите удалить эту запись','!!!Внимание!!!',MB_OKCANCEL)=id_OK
thennot DBGrid1.DataSource.DataSet.Eof then.DataSource.DataSet.Delete;;
//врачиGroupBox4.Visible=true then
beginApplication.MessageBox('Вы действительно хотите удалить эту
запись','!!!Внимание!!!',MB_OKCANCEL)=id_OK thennot
DBGrid2.DataSource.DataSet.Eof then.DataSource.DataSet.Delete;not
DBGrid3.DataSource.DataSet.Eof then.DataSource.DataSet.Delete;;
//мед услугиGroupBox7.Visible=true then
beginApplication.MessageBox('Вы действительно хотите удалить эту запись',
'!!!Внимание!!!', MB_OKCANCEL)=id_OK thennot DBGrid5.DataSource.DataSet.Eof
then.DataSource.DataSet.Delete;;
//медикаментыGroupBox8.Visible=true then
beginApplication.MessageBox('Вы действительно хотите удалить эту
запись','!!!Внимание!!!',MB_OKCANCEL)=id_OK thennot
DBGrid6.DataSource.DataSet.Eof then.DataSource.DataSet.Delete;;;
procedure TForm2.FormClose(Sender:
TObject; var Action: TCloseAction);
begin.Terminate;;
procedure
TForm2.ComboBox1Click(Sender: TObject);
begin:=ComboBox1.ItemIndex;.Caption:=ComboBox1.Items.Strings[n];.Text:='';;
procedure TForm2.Button5Click(Sender:
TObject);
begin
//поиск--------------------------------------------------
//клиентыGroupBox2.Visible=true then
beginLabel6.Caption='№' then.ADODataSet1.Active:=false;.ADODataSet1.CommandText:='select
IDKL, KLfio, KLadres, KLtel from Klientu WHERE
IDKL='+ComboBox1.Text;.ADODataSet1.Active:=true;;Label6.Caption='ФИО'
then.ADODataSet1.Active:=false;.ADODataSet1.CommandText:='select IDKL, KLfio,
KLadres, KLtel from Klientu WHERE KLfio LIKE ''%'+ComboBox1.Text+'%'' ORDER BY
KLfio';.ADODataSet1.Active:=true;;Label6.Caption='Адресу'
then.ADODataSet1.Active:=false;.ADODataSet1.CommandText:='select IDKL, KLfio,
KLadres, KLtel from Klientu WHERE KLadres LIKE ''%'+ComboBox1.Text+'%'' ORDER
BY KLfio';.ADODataSet1.Active:=true;;Label6.Caption='Телефону'
then.ADODataSet1.Active:=false;.ADODataSet1.CommandText:='select IDKL, KLfio,
KLadres, KLtel from Klientu WHERE KLtel LIKE ''%'+ComboBox1.Text+'%'' ORDER BY
KLtel';.ADODataSet1.Active:=true;;;
//врачиGroupBox4.Visible=true then
beginLabel6.Caption='№'
then.ADODataSet2.Active:=false;.ADODataSet2.CommandText:='select IDVR, VRfio,
VRsp from Vrachi WHERE
IDVR='+ComboBox1.Text;.ADODataSet2.Active:=true;;Label6.Caption='ФИО'
then.ADODataSet2.Active:=false;.ADODataSet2.CommandText:='select IDVR, VRfio,
VRsp from Vrachi WHERE VRfio LIKE ''%'+ComboBox1.Text+'%'' ORDER BY
VRfio';.ADODataSet2.Active:=true;;Label6.Caption='Специализации'
then.ADODataSet2.Active:=false;.ADODataSet2.CommandText:='select IDVR, VRfio,
VRsp from Vrachi WHERE VRsp LIKE ''%'+ComboBox1.Text+'%'' ORDER BY
VRsp';.ADODataSet2.Active:=true;;;
//мед услугиGroupBox7.Visible=true then
beginLabel6.Caption='№'
then.ADODataSet4.Active:=false;.ADODataSet4.CommandText:='select IDMY, MYname,
MYopis, MYst from Med_yslygi WHERE
IDMY='+ComboBox1.Text;.ADODataSet4.Active:=true;;Label6.Caption='Врачу'
then.ADODataSet4.Active:=false;.ADODataSet4.CommandText:='select IDMY, MYname,
MYopis, MYst from Med_yslygi WHERE MYname LIKE ''%'+ComboBox1.Text+'%'' ORDER
BY MYname';.ADODataSet4.Active:=true;;Label6.Caption='Наименованию'
then.ADODataSet4.Active:=false;.ADODataSet4.CommandText:='select IDMY, MYname,
MYopis, MYst from Med_yslygi WHERE MYopis LIKE ''%'+ComboBox1.Text+'%'' ORDER
BY MYname';.ADODataSet4.Active:=true;;Label6.Caption='Стоимости'
then.ADODataSet4.Active:=false;.ADODataSet4.CommandText:='select IDMY, MYname,
MYopis, MYst from Med_yslygi WHERE MYst LIKE ''%'+ComboBox1.Text+'%'' ORDER BY
MYst';.ADODataSet4.Active:=true;;;
//медикаментыGroupBox8.Visible=true then
beginLabel6.Caption='№'
then.ADODataSet5.Active:=false;.ADODataSet5.CommandText:='select IDM, Mkol,
Mname, Mst from Medikomenti WHERE
IDM='+ComboBox1.Text;.ADODataSet5.Active:=true;;Label6.Caption='Названию'
then.ADODataSet5.Active:=false;.ADODataSet5.CommandText:='select IDM, Mkol,
Mname, Mst from Medikomenti WHERE Mname LIKE ''%'+ComboBox1.Text+'%'' ORDER BY
Mname';.ADODataSet5.Active:=true;;Label6.Caption='Количеству'
then.ADODataSet5.Active:=false;.ADODataSet5.CommandText:='select IDM, Mkol,
Mname, Mst from Medikomenti WHERE Mkol LIKE ''%'+ComboBox1.Text+'%'' ORDER BY
Mkol';.ADODataSet5.Active:=true;;Label6.Caption='Стоимости'
then.ADODataSet5.Active:=false;.ADODataSet5.CommandText:='select IDM, Mkol,
Mname, Mst from Medikomenti WHERE Mst LIKE ''%'+ComboBox1.Text+'%'' ORDER BY
Mst';.ADODataSet5.Active:=true;;;;
procedure TForm2.Button6Click(Sender:
TObject);
begin
//кнопка все записи
----------------------------------------------
//клиенты.ADODataSet1.Active:=false;.ADODataSet1.CommandText:='select
IDKL, KLfio, KLadres, KLtel from Klientu';.ADODataSet1.Active:=true;
//врачи.ADODataSet2.Active:=false;.ADODataSet2.CommandText:='select
IDVR, VRfio, VRsp from Vrachi';.ADODataSet2.Active:=true;
//мед услуги.ADODataSet4.Active:=false;.ADODataSet4.CommandText:='select
IDMY, MYname, MYopis, MYst from Med_yslygi';.ADODataSet4.Active:=true;
//медикаменты.ADODataSet5.Active:=false;.ADODataSet5.CommandText:='select
IDM, Mkol, Mname, Mst from Medikomenti';.ADODataSet5.Active:=true;;
procedure TForm2.Button7Click(Sender:
TObject);
begin
procedure
TForm2.SpeedButton2Click(Sender: TObject);
beginl=0 then.Width:=348;.Width:=315;.Glyph.LoadFromFile('jpg/Bitmap2.1.BMP');:=1else.Width:=33;.Width:=0;.Glyph.LoadFromFile('jpg/Bitmap2.BMP');:=0;;
procedure
TForm2.DBGrid2CellClick(Column: TColumn);
var
d,z:string;.Visible:=true;.Visible:=true;.Visible:=true;:=DataModule3.ADODataSet2.FieldByName('IDVR').AsString;:=DataModule3.ADODataSet2.FieldByName('VRsp').AsString;.ADODataSet3.Filtered:=false;.ADODataSet3.Filter:='IDR='+d;.ADODataSet3.Filtered:=true;.ADODataSet4.Filtered:=false;.ADODataSet4.Filter:='MYname='+''''+z+'''';.ADODataSet4.Filtered:=true;
Edit1.Text:=DataModule3.ADODataSet2.FieldByName('VRfio').AsString;
Edit2.Text:=DataModule3.ADODataSet2.FieldByName('VRsp').AsString;;
procedure
TForm2.Button8Click(Sender: TObject);
var x:string;
//добавление услуги--------------------------------------------:=DataModule3.ADODataSet2.FieldByName('VRsp').AsString;DBGrid4.DataSource.DataSet
do begin;('MYname').Value:=x ;('MYopis').Value:=Edit4.Text
;('MYst').Value:=Edit5.Text ;;;.Text:='';.Text:='';;
procedure TForm2.Button9Click(Sender:
TObject);
begin
//удаление
услуги----------------------------------------------Application.MessageBox('Вы
действительно хотите удалить эту запись','!!!Внимание!!!',MB_OKCANCEL)=id_OK
thennot DBGrid4.DataSource.DataSet.Eof then.DataSource.DataSet.Delete;;
procedure
TForm2.Button10Click(Sender: TObject);
begin
//кнопка мед
услуги---------------------------------------.Visible:=false;.Visible:=true;.Visible:=false;.Visible:=true;.Visible:=true;.Visible:=false;.Visible:=false;.Visible:=true;.Visible:=false;.Caption:='Врач';.Caption:='Наименование';.Caption:='Стоимость';.ADODataSet4.Filtered:=false;.Items.Text:='';.Items.Text:='№'+#13+'Врачу'+#13+'Наименованию'+#13+'Стоимости';.Text:='';.Text:='';.Text:='';;
procedure
TForm2.Button11Click(Sender: TObject);
begin
//кнопка
медикаменты-------------------------------------------.Visible:=false;.Visible:=true;.Visible:=false;.Visible:=true;.Visible:=true;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=true;.Caption:='Название';.Caption:='Количество';.Caption:='Стоимость';.ADODataSet4.Filtered:=false;.Items.Text:='';.Items.Text:='№'+#13+'Названию'+#13+'Количеству'+#13+'Стоимости';.Text:='';.Text:='';.Text:='';;
procedure
TForm2.DBGrid1CellClick(Column: TColumn);
begin
Edit1.Text:=DataModule3.ADODataSet1.FieldByName('KLfio').AsString;.Text:=DataModule3.ADODataSet1.FieldByName('KLadres').AsString
Edit3.Text:=DataModule3.ADODataSet1.FieldByName('KLtel').AsString;
end;TForm2.DBGrid5CellClick(Column:
TColumn);
begin.Text:=DataModule3.ADODataSet4.FieldByName('MYname').AsString;
Edit2.Text:=DataModule3.ADODataSet4.FieldByName('MYopis').AsString
Edit3.Text:=DataModule3.ADODataSet4.FieldByName('MYst').AsString;;
procedure
TForm2.DBGrid6CellClick(Column: TColumn);
begin.Text:=DataModule3.ADODataSet5.FieldByName('Mname').AsString;.Text:=DataModule3.ADODataSet5.FieldByName('Mkol').AsString;.Text:=DataModule3.ADODataSet5.FieldByName('Mst').AsString;;
procedure
TForm2.DBGrid4CellClick(Column: TColumn);
begin
Edit4.Text:=DataModule3.ADODataSet4.FieldByName('MYopis').AsString
Edit5.Text:=DataModule3.ADODataSet4.FieldByName('MYst').AsString;;
procedure
TForm2.Button12Click(Sender: TObject);
begin
//изменение
записей---------------------------------------------
//клиентыGroupBox2.Visible=true
then begin.DataSource.DataSet.Edit
;.DataSource.DataSet.FieldByName('KLfio').Value:=Edit1.Text
;.DataSource.DataSet.FieldByName('KLadres').Value:=Edit2.Text
;.DataSource.DataSet.FieldByName('KLtel').Value:=Edit3.Text ;.DataSource.DataSet.Post;;
//врачиGroupBox4.Visible=true
then beginDBGrid2.DataSource.DataSet do begin;('VRfio').Value:=Edit1.Text
;('VRsp').Value:=Edit2.Text ;;;;
//мед
услугиGroupBox7.Visible=true then beginDBGrid5.DataSource.DataSet do
begin;('MYname').Value:=Edit1.Text ;('MYopis').Value:=Edit2.Text
;('MYst').Value:=Edit3.Text ;;;;
//медикаментыGroupBox8.Visible=true
then beginDBGrid6.DataSource.DataSet do begin;('Mname').Value:=Edit1.Text
;('Mkol').Value:=Edit2.Text ;('Mst').Value:=Edit3.Text ;;;;.Text:='';.Text:='';.Text:='';;
procedure
TForm2.Button13Click(Sender: TObject);
begin
//изменение
услугиDBGrid4.DataSource.DataSet do begin;('MYopis').Value:=Edit4.Text
;('MYst').Value:=Edit5.Text ;;;.Text:='';.Text:='';;
procedure
TForm2.Edit2KeyPress(Sender: TObject; var Key: Char);
beginGroupBox8.Visible=true
then beginKey of
'0'.. '9',#8: ; // цифры и
клавиша <Backspace>
#13:Button1.Click:=Chr(0);('Вводить
только ЦИФРАМИ!!!'); // символ не отображать;;;;TForm2.Edit3KeyPress(Sender:
TObject; var Key: Char);Key of
'0'.. '9',#8: ; // цифры и
клавиша <Backspace>
#13:Button1.Click:=Chr(0);('Вводить
только ЦИФРАМИ!!!'); // символ не отображать;;;
procedure
TForm2.Edit5KeyPress(Sender: TObject; var Key: Char);
beginKey of
'0'.. '9',#8: ; // цифры и
клавиша <Backspace>
#13:Button1.Click:=Chr(0);('Вводить
только ЦИФРАМИ!!!'); // символ не отображать;;;
procedure
TForm2.Button14Click(Sender: TObject);
var: TPrintDlg;:
TDocInfo;(Pd, sizeof(Pd), #0);.lStructSize := sizeof(Pd);.hWndOwner :=
Form2.Handle;.Flags := PD_RETURNDC;PrintDlg(pd) then begin(DocInfo,
sizeof(DocInfo), #0);.cbSize := SizeOf(DocInfo);(DocInfo.lpszDocName,
32);(DocInfo.lpszOutput, MAX_PATH);
//lStrCpy(DocInfo.lpszDocName,
'recept');
{Add this line to print to a
file }(DocInfo.lpszOutput, 'recept.txt');(Pd.hDc, DocInfo);(Pd.hDc);(Pd.hDc,
100, 100, 'Page 1', 6);(Pd.hDc);(Pd.hDc);(DocInfo.lpszDocName,
32);(DocInfo.lpszOutput, MAX_PATH);;
end;TForm2.Button15Click(Sender:
TObject);
begin.RvProject1.Execute;;.
Приложение Б
Рисунок Б.1 - загрузочная форма
Рисунок Б.2 - главная форма
Рисунок Б.3 - таблица с данными о клиентах
Рисунок Б.4 - таблица с данными о врачах
Рисунок Б.5 - таблица с данными о медицинских услугах
Рисунок Б.7 - поиск
Рисунок Б.8 - редактирование
Рисунок Б.9 - окно информация о разработчике
Рисунок Б.10 - предупреждение о удалении записи