Учет пациентов в ветеринарной клинике
Заказать уникальную курсовую работу- 30 30 страниц
- 13 + 13 источников
- Добавлена 13.09.2015
- Содержание
- Часть работы
- Список литературы
- Вопросы/Ответы
Введение 3
1. Исследование и описание предметной области 4
2. ER-модель предметной области 6
3. Реляционная модель 7
4. Описание приложения 10
Заключение 17
Список литературы 18
Приложения 19
Приложение 1. Форма документа «Талон» 19
Приложение 2. Фрагменты исходного кода приложения 20
Date:=Now;DecodeDate(Now(),Y,M,D); // DateTimePickerOT.Date:=EncodeDate(Y,M,1);GetOrders(); //DatetimeDo.Date:=Now; //DateTimeOt.Date:=EncodeDate(Y,M,1);end;procedure TForm6.GetOrders();beginQtxt:='select IDpr,Data,Vrem,Prodo,Fio,Klich,IDv,IDa from Priem inner join Vrach on Priem.IDv=Vrach.IDv inner join Animal on Priem.IDa=Animal.IDa';withQueryOrd do begin SQL.Clear; SQl.Add(Qtxt); Open; end;end;procedure TForm6.ToolButton1Click(Sender: TObject);begin Form7.ShowModal;end;procedure TForm6.ToolButton7Click(Sender: TObject);begin Form1.ShowModal;end;procedure TForm6.ToolButton8Click(Sender: TObject);begin Form2.ShowModal;end;procedure TForm6.N6Click(Sender: TObject);begin Form6.Close;end;Function TForm6.MakeConv(rDat:TDateTime):string;begin Result:=FormatDateTime('dd.mm.yyyy',rDat); Result:='convert(datetime,'''+Result+''',104)';end;procedure TForm6.ToolButton2Click(Sender: TObject);begin Form1.MYDB.StartTransaction;ErrSoob:='';TryIfMessageDLG('Вы уверены, что хотите удалить талон?',mtWarning,[mbYes,mbNo],0) = mrNo then Exit;Qtxt:='delete from Priem where IDpr = '+ QueryOrd.FieldByName('IDpr').AsString;with QueryMody do begin SQL.Clear; SQL.Add(Qtxt); ExecSQL; end;GetOrders(); Form1.MYDB.Commitexcepton E: EDatabaseError do ErrSoob:= E.Message+#10#13#10#13+Qtxt;else ErrSoob:= Qtxt;end;ifErrSoob>'' thenbegin Form1.MyDB.Rollback;MessageBoxEx(Self.Handle,PCHAR('Отказприпопытке '+'удалить талон. Возможно, у Вас нет прав на '+ 'совершение этой операции. '+#10#13+#10#13+ErrSoob),'Ошибкаудаления', MB_OK or MB_ICONERROR, (SUBLANG_DEFAULT shl 10) or LANG_RUSSIAN);end;GetOrders();end;procedure TForm6.ToolButton3Click(Sender: TObject);begin Panel1.Visible:=True; Button1.Visible:=True; Edit1.Text:=QueryOrd.FieldByName('IDpr').AsString; Edit2.Text:=QueryOrd.FieldByName('Data').AsString; Edit3.Text:=QueryOrd.FieldByName('Vrem').AsString; Edit4.Text:=QueryOrd.FieldByName('IDv').AsString; Edit5.Text:=QueryOrd.FieldByName('Ida').AsString;end;procedure TForm6.Button1Click(Sender: TObject);begin Form1.MYDB.StartTransaction;ErrSoob:=''; TryQtxt:='Update Priem Set IDpr='''+edit1.text+''', Data='''+edit2.text+''', '+ 'Vrem='''+edit3.text+''', '+ 'IDv='''+edit4.text +''', IDa='''+edit5.text+''''+' whereIDpr = '+QueryOrd.FieldByName('IDpr').AsString;with QueryMody do begin SQL.Clear; SQL.Add(Qtxt); ExecSQL; end;GetOrders(); Panel1.Visible:=False; Button1.Visible:=False; Form1.MYDB.Commitexcepton E: EDatabaseError do ErrSoob:= E.Message+#10#13#10#13+Qtxt;else ErrSoob:= Qtxt;end;ifErrSoob>'' thenbegin Form1.MyDB.Rollback;MessageBoxEx(Self.Handle,PCHAR('Отказприпопытке '+'изменить ордер. Возможно, у Вас нет прав на '+ 'совершение этой операции. '+#10#13+#10#13+ErrSoob),'Ошибкаизменения', MB_OK or MB_ICONERROR, (SUBLANG_DEFAULT shl 10) or LANG_RUSSIAN);end;GetOrders(); Panel1.Visible:=False; Button1.Visible:=False;end;procedure TForm6.ToolButton4Click(Sender: TObject);beginQtxt:= 'selectIDpr,Data,Vrem,Prodo,Fio,Klich,IDv,IDa from Priem inner join Vrach on Priem.IDv=Vrach.IDv inner join Animal on Priem.IDa=Animal.IDa Where Priem.Data between '''+edit6.text+ ''' and '''+edit7.text+''' '''+ 'Order By IDpr';withQueryOrd do begin SQL.clear; sql.add(Qtxt); Open; end;end;procedure TForm6.Button2Click(Sender: TObject);beginQtxt:= 'SELECT IDpr,Data,Vrem,Prodo,Fio,Klich,IDv,IDa '+ 'FROM Priem inner join Vrach on Priem.IDv=Vrach.IDv inner join Animal on Priem.IDa=Animal.IDa '+ 'WHERE IDpr = '+IntToStr(QueryOrd['IDpr']); With QueryOtch do begin SQL.Clear; SQL.Add(Qtxt); Open; end; frReport2.Clear; With frReport2 do begin // взятьформуотчетасдискаLoadFromFile(ExtractFilePath(Application.ExeName)+'Талон.frf');// показать готовый отчетShowReport;end;end;procedure TForm6.Button3Click(Sender: TObject);beginQtxt1:= 'SELECT IDpr,Data,Vrem,Prodo,Fio,Klich,IDv,IDa '+ 'FROM Priem inner join Vrach on Priem.IDv=Vrach.IDv inner join Animal on Priem.IDa=Animal.IDa '+ 'Where Priem.Data between '''+edit8.text+ ''' and '''+edit9.text+''''; With QueryOtch do begin SQL.Clear; SQL.Add(Qtxt1); Open; end; frReport1.Clear; With frReport1 do begin // взятьформуотчетасдискаLoadFromFile(ExtractFilePath(Application.ExeName)+'Otchet.frf'); // присвоитьпеременнойотчетазначениеDictionary.Variables['DateOt']:=''''+Edit8.Text+'''';Dictionary.Variables['DateDo']:=''''+Edit9.Text+'''';// показать готовый отчетShowReport;end;end;procedure TForm6.N7Click(Sender: TObject);begin Form8.ShowModal;end;end.
1. Баженова И.Ю. Delphi 7. Самоучитель программиста – М.: КУДИЦ-Образ, 2004. – 448 с.
2. Гарсиа-Молина Г., Ульман Дж., Уидом Дж. Системы баз данных. Полный курс. Пер. с англ.: — М.: Изд. дом «Вильямс», 2004. — 1088 с.
3. Голицына О.Л., Максимов Н.В., Попов И.И. Базы данных: Учебное пособие. – М.: ФОРУМ: ИНФРА-М, 2007.
4. Дейт К. Введение в системы баз данных: проектирование. Реализация и управление. Пер. с англ. – СПб.: БХВ-Петербург, 2004. – 324 с.
5. Дж. Грофф, П. Вайнберг SQL: Полное руководство: Пер. с англ. – 3-е изд., перераб. и доп. – К.: Издательская группа BHV, 2015 – 960 с.
6. К. Дж. Дейт SQL и реляционная теория. Как грамотно писать код на SQL. – Пер. с англ. – СПб.: Символ-Плюс, 2010. – 480 с., ил.
7. Кузин А.В. Базы данных: учебное пособие / А.В. Кузин, С.В. Левонисова. – 5-е издание, исправ., – Москва: Академия, 2012. – 320 с.
8. Кузнецов С. Д. Основы баз данных. — 2-е изд. — М.: Интернет-Университет Информационных Технологий; БИНОМ. Лаборатория знаний, 2007. — 484 с.
9. Малыхина М.П. Базы данных: основы, проектирование, использование, 2-е изд. перераб. и доп. – СПб.: БХВ-Петербург, 2007. – 528 с.
10. Мартин Грабер. Введение в SQL, БХВ-Петербург, 2010. – 228 с.
11. Фараонов В.В. Программирование баз данных в Delphi 7 / В.В. Фараонов. СПб.: Питер, 2004.
12. Фленов М.Е. Библия Delphi – 3-е изд., перераб. и доп. – СПб.: БХВ-Петербург, 2011. – 688 с.
13. Хомоненко А.Д., Цыганков В.М., Мальцев М.Г. Базы данных: Учебник для высших учебных заведений / Под ред. Проф. А.Д. Хомоненко. – 6-е изд., СПб.: КОРОНА принт, 2009. – 736 с.
Вопрос-ответ:
Что такое ER-модель предметной области?
ER-модель предметной области - это модель, которая используется для описания сущностей и их связей в предметной области. Ветеринарная клиника может иметь сущности, такие как пациенты, врачи, услуги и т. д. ER-модель помогает определить атрибуты каждой сущности и связи между ними.
Какие данные содержит форма документа "Талон"?
Форма документа "Талон" содержит данные о пациенте, например, его имя, возраст, порода, а также данные о посещении ветеринарной клиники, такие как дата и время визита, описание проблемы и оказанные услуги.
Какие модели используются для учета пациентов в ветеринарной клинике?
Для учета пациентов в ветеринарной клинике используются ER-модель предметной области и реляционная модель. ER-модель используется для описания сущностей и связей между ними, а реляционная модель - для организации данных в виде таблиц и связей между ними.
Какие данные содержит таблица с пациентами в реляционной модели?
Таблица с пациентами в реляционной модели содержит данные о каждом пациенте, такие как его идентификатор, имя, возраст, порода и другие атрибуты. Каждая строка таблицы представляет отдельного пациента, а каждый столбец соответствует атрибуту пациента.
Какие фрагменты исходного кода используются в приложении для получения списка заказов?
В приложении для получения списка заказов используется фрагмент исходного кода, в котором используются функции для работы с датами. Конкретные функции варьируются в зависимости от используемого языка программирования, но общая логика состоит в том, чтобы получить текущую дату и время, а затем выполнить запрос к базе данных для получения списка заказов, сделанных после определенной даты.
Зачем нужен учет пациентов в ветеринарной клинике?
Учет пациентов в ветеринарной клинике необходим для эффективной организации работы и предоставления качественного медицинского обслуживания. Он позволяет фиксировать информацию о каждом пациенте, его заболеваниях, процедурах и лекарствах, которые были ему назначены. Это помогает врачам и персоналу клиники отслеживать историю болезней, правильно диагностировать и лечить животных, а также обеспечивать своевременное назначение и контроль лекарственных препаратов.
Какова структура исследования предметной области учета пациентов в ветеринарной клинике?
Структура исследования предметной области учета пациентов в ветеринарной клинике включает описание основных процессов и операций, которые выполняются в клинике, а также анализ и описание основных сущностей и их взаимосвязей. Важными компонентами исследования являются описание предметной области, ER модель предметной области и реляционная модель, которые основываются на сущностях и их атрибутах.
Какова структура ER модели предметной области учета пациентов в ветеринарной клинике?
ER модель предметной области учета пациентов в ветеринарной клинике включает сущности (такие как пациенты, врачи, медицинские процедуры, лекарства и др.), их атрибуты (например, имя, вес, диагноз, дата процедуры и т. д.) и связи между ними. Связи могут быть однонаправленными или двунаправленными и иметь различные типы (например, "пациент посещает врача", "врач назначает процедуру" и т. д.). ER модель представляется в виде диаграммы, которая наглядно отображает структуру и взаимосвязи сущностей.
Зачем нужно учет пациентов в ветеринарной клинике?
Учет пациентов в ветеринарной клинике необходим для эффективной работы и организации клиники. Он позволяет записывать информацию о пациентах, их владельцах, проводить диагностику, контролировать лечение, составлять статистику, планировать прием и предоставлять более качественное обслуживание.
Как представлена предметная область учета пациентов в ветеринарной клинике в ER модели?
Предметная область учета пациентов в ветеринарной клинике в ER модели включает сущности "Пациент", "Владелец", "Вид питомца", "Врач", "Процедура" и связи между ними. Например, у каждого пациента есть владелец, у каждого владельца может быть несколько пациентов, врачи проводят процедуры для пациентов.
Какова структура и описание приложения для учета пациентов в ветеринарной клинике?
Приложение для учета пациентов в ветеринарной клинике имеет следующую структуру: форма документа "Талон", фрагменты исходного кода, включающие процедурную часть для получения информации о пациентах и врачах, а также процедуру для получения списка заявок. Приложение использует текущую дату и время для определения временных интервалов.