Заключение
В ходе написания курсовой работы изучил язык программирования С++. Так же детально изучил Borland C++ Builder 6. Так как при разработке программы были затронуты средства Microsoft Access, были изучены возможности проектирования баз данных Access. Все использованные мной средства можно отметить высокой производительностью, надёжностью и практичностью.
Программное средство работника регистратуры стоматологической поликлиники соответствует исходному техническому заданию. На основе выполненных тестов можно сделать вывод, что программа отвечает эксплуатационным, технологическим требованиям, обладает высокой надёжностью, наглядностью и универсальностью. Это ещё раз подтверждает надёжностьBorland C++ Builder 6 и Microsoft Access.
Литература
Бьерн Страуструп Язык программирования С++: Учебное пособие. –Бином ,.-2011.- 1136 с;
И. Ф. Астахова, С. В. Власов, В. В. Фертиков, А. В. Ларин Язык С++. Учебное пособие,2003.-208 c;
Лаптев В. В., Морозов А. В., Бокова А. В.С++. Объектно-ориентированное программирование. Задачи и упражнения. -СПб.: Питер,2007.-281 c;
Уолтер Савич Программирование на С++.-Киев,2004.- 784 c;
Х. М. Дейтел, П. Дж. ДейтелКак программировать на С/С++.- 3-е издание 2003.-291 с;
Фленов Михаил Библия C#.-БХВ-Петербург,2011.- 560с.
Приложение а
Текст программы
Unit1:
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
#include "Unit2.h"
#include "Unit3.h"
#include "Unit4.h"
#include "Unit6.h"
#include "Unit7.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{
DBNavigator1->BtnClick(nbFirst);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::BitBtn2Click(TObject *Sender)
{
DBNavigator1->BtnClick(nbPrior);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::BitBtn3Click(TObject *Sender)
{
DBNavigator1->BtnClick(nbNext);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::BitBtn4Click(TObject *Sender)
{
DBNavigator1->BtnClick(nbLast);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::BitBtn9Click(TObject *Sender)
{
DBNavigator1->BtnClick(nbInsert);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::BitBtn10Click(TObject *Sender)
{
DBNavigator1->BtnClick(nbDelete);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::BitBtn11Click(TObject *Sender)
{
DBNavigator1->BtnClick(nbPost);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::BitBtn5Click(TObject *Sender)
{
DataModule2->ADODataSet1->IndexFieldNames="lichnyi¹";
}
//---------------------------------------------------------------------------
void __fastcall TForm1::BitBtn6Click(TObject *Sender)
{
DataModule2->ADODataSet1->IndexFieldNames="specialist";
}
//---------------------------------------------------------------------------
void __fastcall TForm1::BitBtn7Click(TObject *Sender)
{
DataModule2->ADODataSet1->IndexFieldNames="telefon";
}
//---------------------------------------------------------------------------
void __fastcall TForm1::BitBtn8Click(TObject *Sender)
{
DataModule2->ADODataSet1->IndexFieldNames="adres";
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Edit1Change(TObject *Sender)
{
DataModule2->ADOQuery1->Active = false;//?????? ????????? ?????????? - ??????????? ?? ????
DataModule2->ADOQuery1->SQL->Clear();//??????? ????????? ?? ????? SQL ??????
DataModule2->ADOQuery1->SQL->Add("select lichnyi¹, specialist, telefon, adres from specialist where lichnyi¹ LIKE'%"+ Edit1->Text+"%';"); //?????? ????? SQL ??????, ??????? ????? ???? ?? ?????????? ?? Edit1
try{//?? ?????? ?????? ????????? ?? ??????
DataModule2->ADOQuery1->Active = true;//??????? ?????????? ????????? ? ??
if(DataModule2->ADOQuery1->RecordCount < 1){//???? ????? ????????? ??????? <1
ShowMessage("??????? ?? ???????");//?? ??????? ?? ????? ????????? "??????? ?? ???????"
DBGrid1->Enabled = false;//?????? ??????????? ???????
DBGrid1->Enabled = true; //????? ?????? ??????? ?????????
}
}catch(...){}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Edit2Change(TObject *Sender)
{
DataModule2->ADOQuery1->Active = false;//?????? ????????? ?????????? - ??????????? ?? ????
DataModule2->ADOQuery1->SQL->Clear();//??????? ????????? ?? ????? SQL ??????
DataModule2->ADOQuery1->SQL->Add("select lichnyi¹, specialist, telefon, adres from specialist where specialist LIKE'%"+ Edit2->Text+"%';"); //?????? ????? SQL ??????, ??????? ????? ???? ?? ?????????? ?? Edit1
try{//?? ?????? ?????? ????????? ?? ??????
DataModule2->ADOQuery1->Active = true;//??????? ?????????? ????????? ? ??
if(DataModule2->ADOQuery1->RecordCount < 1){//???? ????? ????????? ??????? <1
ShowMessage("??????? ?? ???????");//?? ??????? ?? ????? ????????? "??????? ?? ???????"
DBGrid1->Enabled = false;//?????? ??????????? ???????
DBGrid1->Enabled = true; //????? ?????? ??????? ?????????
}
}catch(...){}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::BitBtn12Click(TObject *Sender)
{
Form3->QuickRep1->Preview();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::BitBtn13Click(TObject *Sender)
{
Form3->QuickRep1->Print();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::BitBtn14Click(TObject *Sender)
{
Close();
Form4->Visible = true;
}
Unit2
#include <vcl.h>
#pragma hdrstop
#include "Unit2.h"
#include "Unit1.h"
#include "Unit3.h"
#include "Unit4.h"
#include "Unit8.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TDataModule2 *DataModule2;
//---------------------------------------------------------------------------
__fastcall TDataModule2::TDataModule2(TComponent* Owner)
: TDataModule(Owner)
{
}
Unit3
#include <vcl.h>
#pragma hdrstop
#include "Unit3.h"
#include "Unit1.h"
#include "Unit2.h"
#include "Unit4.h"
#include "Unit6.h"
#include "Unit7.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm3 *Form3;
//---------------------------------------------------------------------------
__fastcall TForm3::TForm3(TComponent* Owner)
: TForm(Owner)
{
}
Unit4
void __fastcall TForm4::BitBtn4Click(TObject *Sender)
{
// Открытие файла справки
AnsiString FILE_HELP_NAME_STR = "Справка.chm";
if (FileExists(FILE_HELP_NAME_STR) )
{
ShellExecute(Handle, "open", "Справка.chm", 0, 0, SW_SHOWNORMAL);
return;
}
else
{
ShowMessage("Файл справки \"Справка.chm\" в папке с исполняемым файлом не найден. Для исправления данной ситуации можно либо переустановить программу, либо искать файл самостоятельно.");
return;
}
}
//---------------------------------------------------------------------------
void __fastcall TForm4::N5Click(TObject *Sender)
{
// Открытие файла справки
AnsiString FILE_HELP_NAME_STR = "Справка.chm";
if (FileExists(FILE_HELP_NAME_STR) )
{
ShellExecute(Handle, "open", "Справка.chm", 0, 0, SW_SHOWNORMAL);
return;
}
else
{
ShowMessage("Файл справки \"Справка.chm\" в папке с исполняемым файлом не найден. Для исправления данной ситуации можно либо переустановить программу, либо искать файл самостоятельно.");
return;
}
}
//---------------------------------------------------------------------------
void __fastcall TForm4::N6Click(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------
void __fastcall TForm4::BitBtn5Click(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------
void __fastcall TForm4::N2Click(TObject *Sender)
{
Form4->Visible = false;
Form1->Show();
}
//---------------------------------------------------------------------------
void __fastcall TForm4::N3Click(TObject *Sender)
{
Form5->Show();
}
//---------------------------------------------------------------------------
void __fastcall TForm4::N4Click(TObject *Sender)
{
Form7->Show();
}
Unit5
#include <vcl.h>
#pragma hdrstop
#include "Unit5.h"
#include "Unit1.h"
#include "Unit2.h"
#include "Unit3.h"
#include "Unit4.h"
#include "Unit6.h"
#include "Unit7.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm5 *Form5;
//---------------------------------------------------------------------------
__fastcall TForm5::TForm5(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm5::SpeedButton1Click(TObject *Sender)
{
DBNavigator1->BtnClick(nbFirst);
}
//---------------------------------------------------------------------------
void __fastcall TForm5::SpeedButton2Click(TObject *Sender)
{
DBNavigator1->BtnClick(nbPrior);
}
//---------------------------------------------------------------------------
void __fastcall TForm5::SpeedButton3Click(TObject *Sender)
{
DBNavigator1->BtnClick(nbNext);
}
//---------------------------------------------------------------------------
void __fastcall TForm5::SpeedButton4Click(TObject *Sender)
{
DBNavigator1->BtnClick(nbLast);
}
//---------------------------------------------------------------------------
void __fastcall TForm5::BitBtn1Click(TObject *Sender)
{
DataModule2->ADODataSet3->IndexFieldNames="¹istorii";
}
//---------------------------------------------------------------------------
void __fastcall TForm5::BitBtn2Click(TObject *Sender)
{
DataModule2->ADODataSet3->IndexFieldNames="pacient";
}
//---------------------------------------------------------------------------
void __fastcall TForm5::BitBtn3Click(TObject *Sender)
{
DataModule2->ADODataSet3->IndexFieldNames="adres";
}
//---------------------------------------------------------------------------
void __fastcall TForm5::BitBtn4Click(TObject *Sender)
{
DataModule2->ADODataSet3->IndexFieldNames="telefon";
}
//---------------------------------------------------------------------------
void __fastcall TForm5::Edit1Change(TObject *Sender)
{
DataModule2->ADOQuery2->Active = false;
DataModule2->ADOQuery2->SQL->Clear();
DataModule2->ADOQuery2->SQL->Add("select ¹istorii, pacient, adres, telefon from pacient where ¹istorii LIKE'%"+ Edit1->Text+"%';");
DataModule2->ADOQuery2->Active = true
if(DataModule2->ADOQuery2->RecordCount < 1
ShowMessage("??????? ?? ???????");
DBGrid2->Enabled = false;//
DBGrid2->Enabled = true; //
}
}catch(...){}
}
//---------------------------------------------------------------------------
void __fastcall TForm5::Edit2Change(TObject *Sender)
{
DataModule2->ADOQuery2->Active = false;
DataModule2->ADOQuery2->SQL->Clear();
DataModule2->ADOQuery2->SQL->Add("select ¹istorii, pacient, adres, telefon from pacient where pacient LIKE'%"+ Edit2->Text+"%';");
Edit1
try
DataModule2->ADOQuery2->Active = true
if(DataModule2->ADOQuery2->RecordCount < 1
ShowMessage("??????? ?? ???????");
DBGrid2->Enabled = false;
DBGrid2->Enabled = true;
}
}catch(...){}
}
//---------------------------------------------------------------------------
void __fastcall TForm5::Edit3Change(TObject *Sender)
{
DataModule2->ADOQuery2->Active = false;
DataModule2->ADOQuery2->SQL->Clear();
DataModule2->ADOQuery2->SQL->Add("select ¹istorii, pacient, adres, telefon from pacient where adres LIKE'%"+ Edit3->Text+"%';");
DataModule2->ADOQuery2->Active = true;
if(DataModule2->ADOQuery2->RecordCount < 1
ShowMessage("??????? ?? ???????");
DBGrid2->Enabled = false;
DBGrid2->Enabled = true;
}
}catch(...){}
}
//---------------------------------------------------------------------------
void __fastcall TForm5::BitBtn5Click(TObject *Sender)
{
DBNavigator1->BtnClick(nbInsert);
}
//---------------------------------------------------------------------------
void __fastcall TForm5::BitBtn6Click(TObject *Sender)
{
DBNavigator1->BtnClick(nbDelete);
}
//---------------------------------------------------------------------------
void __fastcall TForm5::BitBtn7Click(TObject *Sender)
{
DBNavigator1->BtnClick(nbPost);
}
//---------------------------------------------------------------------------
void __fastcall TForm5::BitBtn8Click(TObject *Sender)
{
Form6->QuickRep1->Preview();
}
//---------------------------------------------------------------------------
void __fastcall TForm5::BitBtn9Click(TObject *Sender)
{
Form6->QuickRep1->Print();
}
//---------------------------------------------------------------------------
void __fastcall TForm5::BitBtn10Click(TObject *Sender)
{
Close();
Unit6
#include <vcl.h>
#pragma hdrstop
#include "Unit6.h"
#include "Unit1.h"
#include "Unit2.h"
#include "Unit3.h"
#include "Unit4.h"
#include "Unit5.h"
#include "Unit7.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm6 *Form6;
//---------------------------------------------------------------------------
__fastcall TForm6::TForm6(TComponent* Owner)
: TForm(Owner)
{
}
Unit7
#include <vcl.h>
#pragma hdrstop
#include "Unit7.h"
#include "Unit1.h"
#include "Unit2.h"
#include "Unit3.h"
#include "Unit4.h"
#include "Unit5.h"
#include "Unit6.h"
#include "Unit8.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm7 *Form7;
//---------------------------------------------------------------------------
__fastcall TForm7::TForm7(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm7::BitBtn2Click(TObject *Sender)
{
Form8->Show();
}
//---------------------------------------------------------------------------
void __fastcall TForm7::BitBtn1Click(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------
void __fastcall TForm7::BitBtn3Click(TObject *Sender)
{
DBNavigator1->BtnClick(nbInsert);
}
//---------------------------------------------------------------------------
void __fastcall TForm7::BitBtn4Click(TObject *Sender)
{
DBNavigator1->BtnClick(nbDelete);
}
//---------------------------------------------------------------------------
void __fastcall TForm7::BitBtn5Click(TObject *Sender)
{
DBNavigator1->BtnClick(nbPost);
}
Unit8
#include <vcl.h>
#pragma hdrstop
#include "Unit8.h"
#include "Unit1.h"
#include "Unit2.h"
#include "Unit3.h"
#include "Unit4.h"
#include "Unit5.h"
#include "Unit6.h"
#include "Unit7.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm8 *Form8;
//---------------------------------------------------------------------------
__fastcall TForm8::TForm8(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm8::BitBtn8Click(TObject *Sender)
{
Close();
Form4->Visible = true;
}
//---------------------------------------------------------------------------
void __fastcall TForm8::BitBtn5Click(TObject *Sender)
{
DBNavigator1->BtnClick(nbDelete);
}
//---------------------------------------------------------------------------
void __fastcall TForm8::Edit1Change(TObject *Sender)
{
if (ComboBox1->ItemIndex==0)
{
DataModule2->ADOQuery3->Active = false;
DataModule2->ADOQuery3->SQL->Clear();
DataModule2->ADOQuery3->SQL->Add("select pacient, specialist, vizit, data_vizita, diagnoz, lechenie, stoimost_yslyg from Vizity where pacient LIKE'%"+ Edit1->Text+"%';");
Edit1
DataModule2->ADOQuery3->Active = false;
DataModule2->ADOQuery3->SQL->Clear();
DataModule2->ADOQuery3->SQL->Add("select pacient, specialist, vizit, data_vizita, diagnoz, lechenie, stoimost_yslyg from Vizity where specialist LIKE'%"+ Edit1->Text+"%';"); Edit1
//try{
DataModule2->ADOQuery3->Active = true;
}
/*if(DataModule2->ADOQuery3->RecordCount < 1){ <1
ShowMessage("??????? ?? ???????");
DBGrid2->Enabled = false;
DBGrid2->Enabled = true;
}
}catch(...){}*/
if (ComboBox1->ItemIndex==2)
{
DataModule2->ADOQuery3->Active = false;
DataModule2->ADOQuery3->SQL->Clear();
DataModule2->ADOQuery3->SQL->Add("select pacient, specialist, vizit, data_vizita, diagnoz, lechenie, stoimost_yslyg from Vizity where diagnoz LIKE'%"+ Edit1->Text+"%';"); Edit1
//try{
DataModule2->ADOQuery3->Active = true;
}
/*if(DataModule2->ADOQuery3->RecordCount < 1
ShowMessage("??????? ?? ???????");//
DBGrid2->Enabled = false;
DBGrid2->Enabled = true;
}
}catch(...){} */
}
//---------------------------------------------------------------------------
void __fastcall TForm8::BitBtn1Click(TObject *Sender)
{
DataModule2->ADODataSet5->IndexFieldNames="pacient";
}
//---------------------------------------------------------------------------
void __fastcall TForm8::BitBtn2Click(TObject *Sender)
{
DataModule2->ADODataSet5->IndexFieldNames="specialist";
}
//---------------------------------------------------------------------------
void __fastcall TForm8::BitBtn3Click(TObject *Sender)
{
DataModule2->ADODataSet5->IndexFieldNames="diagnoz";
}
//---------------------------------------------------------------------------
void __fastcall TForm8::BitBtn4Click(TObject *Sender)
{
DataModule2->ADODataSet5->IndexFieldNames="lechenie";
}
Начало
polikl.mdb
Загрузка программы
Загрузка основной формы
Конец
Дисплей
Выбор действия
1
Дисплей
polikl.mdb
polikl.mdb
Печать
1
Поиск
1
Дисплей
1
1