База данных со сведениями о пациентах и медицинских услугах в стационаре
Курсовая работа, 17 Июня 2014, автор: пользователь скрыл имя
Описание работы
На сегодняшний день деятельность большинства предприятий основана на использовании современных средств автоматизации, так как для приема, хранения, передачи информации на бумажных носителях требуются высокие затраты времени и труда специалистов. Информация, хранимая на бумажных носителях, может испортиться с течением времени, под воздействием внешних факторов. Такая информация часто не может быть восстановлена в соответствии с первоначальными документами. В современных условиях выполняется переход к автоматизированной обработке экономической информации и предпосылками для перехода к автоматизированной обработке являются:
- увеличение номенклатуры объема продукции (работ, услуг и т.д.);
- необходимость снижения затрат (времени, финансов и др. ресурсов) на производственную деятельность.
Файлы: 1 файл
Курсовик.doc
— 4.07 Мб (Скачать файл)
Таблица 6.2- Свойства компонентов формы AboutBox
Компонент и его имя |
Надпись |
Свойство |
Значение |
Метка, Lable1 |
Разработчик Уколкина Марина Анатольевна |
Caption |
Разработчик Уколкина Марина Анатольевна |
Font |
Monotipe Corvisa, 14pt | ||
Метка, Lable2 |
Учет пациентов и мед. услуг в стационаре |
Caption |
Учет пациентов и мед. услуг в стационаре |
Font |
Times New Roman, 22pt | ||
Метка, Lable3 |
База Данных |
Caption |
База Данных |
Font |
Times New Roman, 26pt | ||
Метка, Lable4 |
Пенза, 2011 |
Caption |
Пенза, 2011 |
Font |
Times New Roman, 16pt , | ||
Кнопка, OKButton |
ОК |
Caption |
ОК |
Font |
Times New Roman, 16pt |
Таблица 6.3 – Свойства компонентов формы Pacient
Компонент и его имя |
Надпись |
Свойство |
Значение |
1 |
2 |
3 |
4 |
Метка, Label1 |
Номер полиса |
Caption |
Номер полиса |
Font |
MonotipeCorvisa, 16pt | ||
Метка, Label2 |
Фамилия |
Caption |
Фамилия |
Font |
MonotipeCorvisa, 16pt | ||
Метка, Label3 |
Имя |
Caption |
Имя |
Font |
MonotipeCorvisa, 16pt |
Продолжение таблицы 6.3
1 |
2 |
3 |
4 |
Метка, Label4 |
Отчество |
Caption |
Отчество |
Font |
MonotipeCorvisa, 16pt | ||
Метка, Label5 |
Адрес |
Caption |
Адрес |
Font |
MonotipeCorvisa, 16pt | ||
Метка, Label6 |
Работа |
Caption |
Работа |
Font |
MonotipeCorvisa, 16pt | ||
Поле для ввода, DBEdit1 |
- |
Font |
TimeNewRoman, 11pt |
DataSource |
DataSource1 | ||
DataField |
NPolis | ||
Поле для ввода, DBEdit2 |
- |
Font |
TimeNewRoman, 11pt |
DataSource |
DataSource1 | ||
DataField |
NFamily | ||
Поле для ввода, DBEdit3 |
- |
Font |
TimeNewRoman, 11pt |
DataSource |
DataSource1 | ||
DataField |
NName | ||
Поле для ввода, DBEdit4 |
- |
Font |
TimeNewRoman, 11pt |
DataSource |
DataSource1 | ||
DataField |
NPatromyc | ||
Поле для ввода, DBEdit5 |
- |
Font |
TimeNewRoman, 11pt |
DataSource |
DataSource1 | ||
DataField |
NPlace | ||
Поле для ввода, DBEdit6 |
- |
Font |
TimeNewRoman, 11pt |
DataSource |
DataSource1 | ||
DataField |
NJob | ||
Источник данных, DataSource1 |
- |
DataSet |
Table1 |
Набор данных, Table1 |
- |
DatabaseName |
C:\BD\ |
TableName |
Pacient.db | ||
Навигационная панель управления, DBNavigator1 |
- |
DataSourse |
DataSource1 |
VisibleButtons |
[nbFirst,nbPrior,nbNext, |
Таблица 6.4 – Свойства компонентов формы Postupleniya.
Компонент и его имя |
Надпись |
Свойство |
Значение |
Метка, Label1 |
Номер полиса |
Caption |
Номер полиса |
Font |
Monotipe Corvisa, 18pt | ||
Метка, Label2 |
Дата поступления |
Caption |
Дата поступления |
Font |
Monotipe Corvisa, 18pt | ||
Метка, Label3 |
Дата выписки |
Caption |
Дата выписки |
Font |
Monotipe Corvisa, 18pt | ||
Метка, Label4 |
Оплата в день |
Caption |
Оплата в день |
Font |
Monotipe Corvisa, 18pt |
Продолжение таблицы 6.3
Компонент и его имя |
Надпись |
Свойство |
Значение |
Поле для ввода, DBEdit1 |
- |
Font |
TimeNewRoman, 11pt |
DataSource |
DataSource2 | ||
DataField |
NPolis | ||
Поле для ввода, DBEdit2 |
- |
Font |
TimeNewRoman, 11pt |
DataSource |
DataSource2 | ||
DataField |
NData_Postuplenie | ||
Поле для ввода, DBEdit4 |
- |
Font |
TimeNewRoman, 11pt |
DataSource |
DataSource2 | ||
DataField |
NData_Vipiska | ||
Поле для ввода, DBEdit5 |
- |
Font |
TimeNewRoman, 11pt |
DataSource |
DataSource2 | ||
DataField |
NOplata_za_1_day | ||
Источник данных, DataSource2 |
- |
DataSet |
Table2 |
Набор данных, Table2 |
- |
DatabaseName |
C:\BD\ |
TableName |
Med. uslugi.DB | ||
Навигационная панель управления, DBNavigator2 |
- |
DataSourse |
DataSource2 |
Visible Buttons |
[nbFirst,nbPrior,nbNext, |
Таблица 6.5 – Свойства компонентов формы BD.
Компонент и его имя |
Надпись |
Свойство |
Значение |
Источник данных, DataSource1 |
- |
DataSet |
Table1 |
Набор данных, Table1 |
- |
DatabaseName |
C:\BD\ |
TableName |
Pacient.db | ||
Навигационная панель управления, DBNavigator1 |
- |
DataSourse |
DataSource1 |
VisibleButtons |
[nbFirst,nbPrior,nbNext, | ||
Источник данных, DataSource2 |
- |
DataSet |
Table2 |
Набор данных, Table2 |
- |
DatabaseName |
C:\BD\ |
TableName |
Med. uslugi.DB | ||
Навигационная панель управления, DBNavigator2 |
- |
DataSourse |
DataSource2 |
VisibleButtons |
[nbFirst,nbPrior,nbNext, |
Продолжение таблицы 6.5
Компонент и его имя |
Надпись |
Свойство |
Значение |
Компонент визуализации данных, DBGrid1 |
- |
DataSource |
DataSource1 |
Font |
MS Sans Serif, 8pt | ||
ReadOnly |
False | ||
Компонент визуализации данных, DBGrid1 |
- |
DataSource |
DataSource1 |
Font |
MS Sans Serif, 8pt | ||
ReadOnly |
False | ||
Контейнер переключателей, RadioGroup1 |
- |
Font |
MS Sans Serif, 8pt |
Items |
По месту работы, по ФИО | ||
Контейнер переключателей, RadioGroup2 |
- |
Font |
MS Sans Serif, 8pt |
Items |
По дате поступления, по дате выписки | ||
Переключатель, RadioButton1 |
По месту работы |
Font |
MS Sans Serif, 8pt |
OnClick |
PacientSort | ||
Переключатель, RadioButton2 |
По ФИО |
Font |
MS Sans Serif, 8pt |
OnClick |
PacientSort | ||
Компонент и его имя |
Надпись |
Свойство |
Значение |
Переключатель, RadioButton3 |
По дате поступления |
Font |
MS Sans Serif, 8pt |
OnClick |
PostuplenieSort | ||
Переключатель, RadioButton4 |
По дате выписки |
Font |
|
OnClick |
PostuplenieSort | ||
Поле для ввода календарной даты, DateTimePicker1 |
- |
Font |
MS Sans Serif, 8pt |
Поле для ввода календарной даты, DateTimePicker2 |
- |
Font |
MS Sans Serif, 8pt |
Кнопка, Button1 |
Фильтр по выписке |
Caption |
Фильтр по выписке |
Font |
MS Sans Serif, 8pt | ||
OnClick |
Button1Click | ||
Кнопка, Button2 |
Фильтр по поступлению |
Caption |
Фильтр по поступлению |
Font |
MS Sans Serif, 8pt | ||
OnClick |
Button2Click |
Таблица 6.6 – Свойства компонентов формы D1
Компонент и его имя |
Надпись |
Свойство |
Значение |
Набор данных, Query1 |
- |
Active |
True |
DatabaseName |
C:\BD\ | ||
Name |
Query1 | ||
SQL |
SELECT Uslugi.NData_Postuplenie, count(Uslugi.NPolis) FROM "Med. uslugi.DB" Uslugi GROUP BY Uslugi.NData_Postuplenie | ||
Шаблон графика, DBChart1 |
- |
DataSet |
Query1 |
Таблица 6.7 – Свойства компонентов формы D2
Компонент и его имя |
Надпись |
Свойство |
Значение |
Набор данных, Query1 |
- |
Active |
True |
DatabaseName |
C:\BD\ | ||
Name |
Query1 | ||
SQL |
SELECT Uslugi.NSpisok, Pacient.NJob, sum((NData_Vipiska - NData_Postuplenie) * Uslugi.NOplata_za_1_day) FROM " C:\BD\Pacient.db" Pacient INNER JOIN " C:\BD\Med. uslugi.DB" Uslugi ON (Pacient.NPolis = Uslugi.NPolis) WHERE NData_Vipiska is not NULL Group By Uslugi.NSpisok, Pacient.NJob Order By Pacient.NJob | ||
Шаблон графика, DBChart1 |
- |
DataSet |
Query1 |
Таблица 6.8 – Свойства компонентов формы Ot1
Компонент и его имя |
Надпись |
Свойство |
Значение |
Набор данных, Query1 |
- |
Active |
True |
DatabaseName |
C:\BD\ | ||
Name |
Query1 | ||
SQL |
SELECT Pacient.NJob, Pacient.NFamily, Pacient.NName, Pacient.NPatromyc,sum((NData_ FROM " C:\BD\Pacient.db" Pacient INNER JOIN " C:\BD\Med. uslugi.DB" Uslugi ON (Pacient.NPolis = Uslugi.NPolis) WHERE NData_Vipiska is not NULL Group By Pacient.NJob, Pacient.NFamily, Pacient.NName, Pacient.NPatromyc Order By Pacient.NJob | ||
"заготовка отчёта", QuickRep1 |
- |
DataSet |
Query1 |
Name |
QuickRep1 | ||
Месторасположение компонентов, QRBand2 |
- |
Name |
QRBand2 |
BandType |
rbTitle | ||
Месторасположение компонентов, QRGroup1 |
- |
Name |
QRGroup1 |
Expression |
Query1.NJob | ||
Месторасположение компонентов, QRGroup2 |
- |
Name |
QRGroup2 |
Месторасположение компонентов, QRGroup3 |
- |
Name |
QRGroup3 |
Текстовая строка, QRLabel2 |
- |
Caption |
Отчет по предприятиям |
Font |
TimeNewRoman, 26pt | ||
Name |
QRLabel12 | ||
Color |
clRed | ||
Текстовая строка, QRLabel12 |
- |
Caption |
Сумма |
Font |
TimeNewRoman, 18pt | ||
Name |
QRLabel2 | ||
Color |
ClGreen | ||
Текстовая строка, QRLabel3 |
- |
Caption |
Организация |
Font |
TimeNewRoman, 12pt | ||
Name |
QRLabel3 | ||
Color |
ClGreen | ||
Текстовая строка, QRLabel4 |
- |
Caption |
Фамилия |
Font |
TimeNewRoman, 12pt | ||
Name |
QRLabel4 | ||
Color |
clGreen |
Продолжение таблицы 6.8
Компонент и его имя |
Надпись |
Свойство |
Значение |
Текстовая строка, QRLabel5 |
- |
Caption |
Имя |
Font |
TimeNewRoman, 12pt | ||
Name |
QRLabel5 | ||
Color |
clGreen | ||
Текстовая строка, QRLabel6 |
- |
Caption |
Отчество |
Font |
TimeNewRoman, 12pt | ||
Name |
QRLabel6 | ||
Color |
clGreen | ||
Вывод содержимого текстового поля, QRDBText1 |
- |
DataField |
NJob |
DataSet |
Query1 | ||
Font |
TimeNewRoman, 12pt | ||
Color |
clBlue | ||
Вывод содержимого текстового поля, QRDBText4 |
- |
DataField |
NFamily |
DataSet |
Query1 | ||
Font |
TimeNewRoman, 12pt | ||
Color |
clWindowText | ||
Вывод содержимого текстового поля, QRDBText5 |
- |
DataField |
NName |
DataSet |
Query1 | ||
Font |
TimeNewRoman, 12pt | ||
Color |
clWindowText | ||
Вывод содержимого текстового поля, QRDBText9 |
- |
DataField |
NPatromyc |
DataSet |
Query1 | ||
Font |
TimeNewRoman, 12pt | ||
Color |
clWindowText | ||
Вывод содержимого текстового поля, QRDBText10 |
- |
DataField |
SUM OF NData_Vipiska - |
DataSet |
Query1 | ||
Font |
TimeNewRoman, 12pt | ||
Color |
clWindowText | ||
Вывод содержимого текстового поля, QRDBText2 |
- |
DataField |
SUM OF NData_Vipiska - |
DataSet |
Query1 | ||
Font |
TimeNewRoman, 12pt | ||
Color |
clWindowText |