База данных "Карточка амбулаторного больного"

Дипломная работа - Компьютеры, программирование

Другие дипломы по предмету Компьютеры, программирование



ловка и поместим в ней метку QRLabel с заголовком Список больных, а также шапку таблицы.

Перенесем компонент QRSubDetail, который осуществляет циклический вывод записей на печать. Остается вставить компоненты QRDBText задав им свойства DataSet и DataField - Table1 и имена соответствующих полей. Затем сохраняем Unit2 через File- Include Unit Hdr.., аналогично сохраняем Unit. Для кнопки Печать и Предварительный просмотр в событие On Click записываем соответствующий код.(Приложение 2)

После завершения работы на C++Builder задаем имя нашему проекту для хранения его в БД и закрываем приложение. Для запуска нажимаем кнопку (рис 4)

Заключение

Вся проделанная работа заключалась в автоматизации введения карточек в больнице с помощью программы Borland C++ Builder 6. С помощью этой программы можно осуществлять автоматизации и других предметных областей.

Созданный мной БД карточек больных позволяет осуществлять ввод новых данных, изменять имеющиеся в базе данных данные и удалять старые. Также в моей информационной системе можно фильтровать всю информацию базы данных по СНИЛСУ, по Коду льготы и осуществлять поиск по номеру карточки. Данная программа очень удобна в использовании для учета больных в больнице.

Работа с программой Borland C++ Builder 6 актуальна в наше время, многие информатики-экономисты используют ее в своей практической работе.

Список использованной литературы

1.Диго С.М. Проектирование баз данных. М.: Финансы и статистика, 2002 г.

.Марков А.С. Базы данных. Введение в теорию и методологию. М.: Финансы и статистика, 2002 г.

.Мейер Д. Теория реляционных баз данных. М., 1987. 608 с., ил.

.Тихонов А.Ф., Тихонова Л.Н. Visual FoxPro 5.0. М., 1997. 466 с.

.Архангельский А.Я. Программирование в C++ Builder 6 - М: ЗАО Издательство БИНОМ 2002 г.

.Архангельский А.Я. Интегрированная среда разработки C++ Builder 5 - М: ЗАО Издательство БИНОМ, 2000 г.

.Архангельский А.Я. Работа с локальными базами данных в C++ Builder 5 - М: ЗАО Издательство БИНОМ, 2000 г.

. Архангельский А.Я. Язык SQL в C++ Builder 5 - М: ЗАО Издательство БИНОМ, 2000 г.

Приложение

Приложение 1

Приложение 2

#include

#pragma hdrstop

#include "Unit1.h"

//---------------------------------------------------------------------------

#pragma package(smart_init)

#pragma link "CSPIN"

#pragma resource "*.dfm"*Form1;

//---------------------------------------------------------------------------

__fastcall TForm1::TForm1(TComponent* Owner)

: TForm(Owner)

{

}

//---------------------------------------------------------------------------__fastcall TForm1::FormCreate(TObject *Sender)

{ENOM_K->Text = Table1NOM_K->AsString;_STRAH->Text = Table1NOM_STRAH->AsString;_L->Text = Table1KOD_L->AsString;>Text = Table1FAM->AsString;>Text = Table1IMYA->AsString;>Text = Table1OTCHESTVO->AsString;_MED->Text = Table1ADRES_MED->AsString;_REGIS->Text = Table1ADRES_REGIS->AsString;>Text = Table1INVALIDNOST->AsString;>Text = Table1POL->AsString;>Text = Table1PROFESSIYA->AsString; -> ItemIndex =CDNAIM->Items->IndexOf (Table1NAIM->AsString);->Text = Table1FAM->AsString;->Text = Table1IMYA->AsString;->Text = Table1OTCHESTVO->AsString;->Text = Table1PROFESSIYA->AsString;_TEL1->Text = Table1NOM_TEL->AsString;

}

//---------------------------------------------------------------------------__fastcall TForm1::Table1AfterScroll(TDataSet *DataSet)

{_K->Text = Table1NOM_K->AsString;_STRAH->Text = Table1NOM_STRAH->AsString;_L->Text = Table1KOD_L->AsString;>Text = Table1FAM->AsString;>Text = Table1IMYA->AsString;>Text = Table1OTCHESTVO->AsString;_MED->Text = Table1ADRES_MED->AsString;_REGIS->Text = Table1ADRES_REGIS->AsString;>Text = Table1INVALIDNOST->AsString;>Text = Table1POL->AsString;>Text = Table1PROFESSIYA->AsString;>ItemIndex =CDNAIM->Items->IndexOf(Table1NAIM->AsString);->Text = Table2FAM->AsString;->Text = Table2IMYA->AsString;->Text = Table2OTCHESTVO->AsString;->Text = Table2PROFESSIYA->AsString;_TEL1->Text = Table2NOM_TEL->AsString;

}

//---------------------------------------------------------------------------__fastcall TForm1::Button1Click(TObject *Sender)

{s;AnsiString s1=", ";="";(Table1NOM_K->AsString != ENOM_K->Text)= "НОМЕР КАРТОЧКИ";(Table1NOM_STRAH->AsString !=ENOM_STRAH->Text)

{(s !="") s+=s1;= "НОМЕР СТРАХ. ПОЛИСА" ;

}(Table1KOD_L->AsString !=EKOD_L->Text)

{(s !="") s+=s1;= "КОД ЛЬГОТЫ";

}(Table1FAM->AsString !=EFAM->Text)

{(s !="") s+=s1;= "ФАМИЛИЯ";

}(Table1IMYA->AsString !=EIMYA->Text)

{(s !="") s+=s1;= "ИМЯ";

}(Table1OTCHESTVO->AsString !=EOTCHESTVO->Text)

{(s !="") s+=s1;= "ОТЧЕСТВО";

}(Table1ADRES_MED->AsString !=EADRES_MED->Text)

{(s !="") s+=s1;= "АДРЕС МЕД. УЧРЕЖДЕНИЯ";

}(Table1ADRES_REGIS->AsString !=EADRES_REGIS->Text)

{(s !="") s+=s1;= "АДРЕС РЕГИСТРАЦИИ";

}(Table1INVALIDNOST->AsString !=EINVALIDNOST->Text)

{(s !="") s+=s1;= "ИНВАЛИДНОСТЬ";

}(Table1POL->AsString !=EPOL->Text)

{(s !="") s+=s1;= "ПОЛ";

}(Table1PROFESSIYA->AsString !=EPROFESSIYA->Text)

{(s !="") s+=s1;= "ПРОФЕССИЯ";

}(Table1NAIM->AsString !=CDNAIM->Text)

{(s !="") s+=s1;= "НАИМЕНОВАНИЕ ЗАБОЛЕВАНИЯ";

}(s !="")

{( Application->MessageBox(

("Действительно хотите изменить запись?"+s+"?").c_str(),

"Подтвердите изменение",_YESNO+MB_ICONQUESTION)==IDYES)

{->Edit();NOM_K->Text = Table1NOM_K->AsString;NOM_STRAH->Text = Table1NOM_STRAH->AsString;KOD_L->Text = Table1KOD_L->AsString;FAM->Text = Table1FAM->AsString;IMYA->Text = Table1IMYA->AsString;OTCHESTVO->Text = Table1OTCHESTVO->AsString;ADRES_MED->Text = Table1ADRES_MED->AsString;ADRES_REGIS->Text = Table1ADRES_REGIS->AsString;INVALIDNOST->Text = Table1INVALIDNOST->AsString;POL->Text = Table1POL->AsString;PROFESSIYA->Text = Table1PROFESSIYA->AsString;NAIM->AsString = CDNAIM->Text;

}

} }

//---------------------------------------------------------------------------__fastcall TForm1::Button2Click(TObject *Sender)

{->Insert();

}

//---------------------------------------------------------------------------__fastcall TForm1::Button3Click(TObject *Sender)

{( Application->MessageBox(

"Действительно хотите удалить запись?",

"Подтвердите решение",_YESNO+MB_ICONEXCLAMATION)==IDYES)

Table1->Delete();

}

//---------------------------------------------------------------------------__fastcall TForm1::RGFClick(TObject *Sender)

{ if (RGF->ItemIndex==0)->Filtered = false;

{(RGF->ItemIndex==1)->Filter="NOM_STRAH='"+CBNOM_STRAH->Text+"'";->Filter="(KOD_LFiltered = true;

}