База данных "Карточка амбулаторного больного"
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
ловка и поместим в ней метку 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;
}