Автор работы: Пользователь скрыл имя, 17 Апреля 2013 в 13:43, курсовая работа
В данном курсовом проекте рассмотрены основные понятия и принципы, лежащие в основе систем управления базами данных. Рассмотрены вопросы применения объектно-ориентированного программирования для решения различных задач, разработана объектно-ориентированная графическая процедура согласно заданию. Произведена разработка алгоритмов, был выбран язык программирования С++ Builder, как наиболее подходящий для данного проекта, реализующая разработанный алгоритм. Созданная программа работает с базой данных, добавляя, редактируя или изменяя существующие поля.
Введение………………………………………………………………….……….3
Теоретическая часть
1.1 Структура, организация Министерства Внутренних Дел, главных управлений по федеральным округам и органов внутренних дел субъектов Российской Федерации………………………………………………………..….5
1.2 Этапы проектирования БД…………………………………………..10
1.3 Модели данных…………………………………………...................13
1.4 Инфологическая модель данных. Основные понятия…………….14
1.5 Датологическая и физическая модели………………………………16
1.6 Borland C++ Builder…………………….……………………………17
1.7 Принципы организации данных, лежащие в основе СУБД..........17
2. Проектная часть
2.1. Проектирование БД………………………………..…………………19
2.2. Функции системы..…………………………………...........................23
2.3. Описание работы с программой……………………………………..24
Заключение……………………………………………………….......................31
Список литературы……………………………………………………………32
Приложение №1…………………………………………………....................33
void __fastcall TFR::Button9Click(TObject *Sender)
{
Table3->Insert();
}
//----------------------------
void __fastcall TFR::Button7Click(TObject *Sender)
{
if ( Application->MessageBox(
"Действительно хотите удалить запись?",
"Подтвердите решение",
MB_YESNO+MB_ICONEXCLAMATION)==
Table3->Delete();
}
//----------------------------
void __fastcall TFR::TabSheet3ContextPopup(
TPoint &MousePos, bool &Handled)
{
EFam_Sv->Text = Table4Fam_Sv->AsString;
EIm_Sv->Text = Table4Im_Sv->AsString;
EOtc_Sv->Text = Table4Otc_Sv->AsString;
EA_MG_Sv->Text = Table4A_MG_Sv->AsString;
}
//----------------------------
void __fastcall TFR::Table4AfterScroll(
{
EFam_Sv->Text = Table4Fam_Sv->AsString;
EIm_Sv->Text = Table4Im_Sv->AsString;
EOtc_Sv->Text = Table4Otc_Sv->AsString;
EA_MG_Sv->Text = Table4A_MG_Sv->AsString;
}
//----------------------------
void __fastcall TFR::Button10Click(TObject *Sender)
{
Table4->Insert();
}
//----------------------------
void __fastcall TFR::Button12Click(TObject *Sender)
{
if ( Application->MessageBox(
"Действительно хотите удалить запись?",
"Подтвердите решение",
MB_YESNO+MB_ICONEXCLAMATION)==
Table4->Delete();
}
//----------------------------
void __fastcall TFR::Button11Click(TObject *Sender)
{
AnsiString s;
const AnsiString s1=", ";
s="";
if (Table4Fam_Sv->AsString != EFam_Sv->Text)
s+= "Фамилия свидетеля";
if (Table4Im_Sv->AsString !=EIm_Sv->Text)
{
if (s !="") s+=s1;
s+= "Имя свидетеля" ;
}
if (Table4Otc_Sv->AsString !=EOtc_Sv->Text)
{
if (s !="") s+=s1;
s+= "Отчество свидетеля";
}
if (Table4A_MG_Sv->AsString !=EA_MG_Sv->Text)
{
if (s !="") s+=s1;
s+= "Адрес места жительства свидетеля";
}
if (s !="")
{
if ( Application->MessageBox(
("Действительно хотите изменить запись?"+s+"?").c_str(),
"Подтвердите изменение",
MB_YESNO+MB_ICONQUESTION)==
{
Table4->Edit();
Table4Fam_Sv->AsString = EFam_Sv->Text;
Table4Im_Sv->AsString = EIm_Sv->Text;
Table4Otc_Sv->AsString = EOtc_Sv->Text;
Table4A_MG_Sv->AsString = EA_MG_Sv->Text;
}
}
}
//----------------------------
Текст программы для формы FF
#include <vcl.h>
#pragma hdrstop
#include "UF.h"
#include "UGL.h"
//----------------------------
#pragma package(smart_init)
#pragma link "CSPIN"
#pragma resource "*.dfm"
TFF *FF;
//----------------------------
__fastcall TFF::TFF(TComponent* Owner)
: TForm(Owner)
{
}
//----------------------------
void __fastcall TFF::RGFClick(TObject *Sender)
{
if (RGF->ItemIndex==0)
Table1->Filtered = false;
else
{
if (RGF->ItemIndex==1)
Table1->Filter="N_P='"+CBN_P->
else
Table1->Filter="V_P='"+CBV_P->
Table1->Filtered = true;
}
}
//----------------------------
void __fastcall TFF::EN_dokChange(TObject *Sender)
{
TLocateOptions SearchOptions;
Table1->Locate("N_dok",EN_dok-
SearchOptions<<loPartialKey<<
}
//----------------------------
void __fastcall TFF::EId_SvChange(TObject *Sender)
{
TLocateOptions SearchOptions;
Table1->Locate("Id_Sv",EId_Sv-
SearchOptions<<loPartialKey<<
}
//----------------------------
void __fastcall TFF::EFIO_SChange(TObject *Sender)
{
TLocateOptions SearchOptions;
Table1->Locate("FIO_S",EFIO_S-
SearchOptions<<loPartialKey<<
}
//----------------------------
void __fastcall TFF::EM_PChange(TObject *Sender)
{
TLocateOptions SearchOptions;
Table1->Locate("M_P",EM_P->
SearchOptions<<loPartialKey<<
}
//----------------------------
void __fastcall TFF::CBN_PChange(TObject *Sender)
{
if (RGF->ItemIndex==0)
Table1->Filtered = false;
else
{
if (RGF->ItemIndex==1)
Table1->Filter="N_P='"+CBN_P->
else
Table1->Filter="V_P='"+CBV_P->
Table1->Filtered = true;
}
}
//----------------------------
void __fastcall TFF::CBV_PChange(TObject *Sender)
{
if (RGF->ItemIndex==0)
Table1->Filtered = false;
else
{
if (RGF->ItemIndex==1)
Table1->Filter="N_P='"+CBN_P->
else
Table1->Filter="V_P='"+CBV_P->
Table1->Filtered = true;
}
}
//----------------------------
void __fastcall TFF::FormCreate(TObject *Sender)
{
Table1->Active = false;
Table1->DatabaseName = GetCurrentDir() + "\\MMM";
Table1->Active = true;
}
//----------------------------
Текст программы для формы Form5 (справка)
#include <vcl.h>
#pragma hdrstop
#include "Unit5.h"
#include "UGL.h"
//----------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm5 *Form5;
//----------------------------
__fastcall TForm5::TForm5(TComponent* Owner)
: TForm(Owner)
{
}
//----------------------------
void __fastcall TFSpravka::N1Click(TObject *Sender)
{
FForm5->Close();
}
//----------------------------
Текст программы для формы Form1
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
#include "UM1.h"
#include "UGL.h"
//----------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//----------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//----------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
if(EN_dok->Text == "")
{
FM1->Table1->Filtered=false;
}
else
{
FM1->Table1->Filtered=false;
FM1->Table1->Filter="N_dok='"+
FM1->Table1->Filtered=true;
}
FM1->QuickRep1->Preview();
}
//----------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
if(EN_dok->Text == "")
{
FM1->Table1->Filtered=false;
}
else
{
FM1->Table1->Filter="N_dok='"+
FM1->Table1->Filtered=true;
FM1->Table1->Filtered=false;
}
FM1->QuickRep1->Print();
}
//----------------------------
void __fastcall TForm1::N1Click(TObject *Sender)
{
Form1->Close();
}
//----------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
FM1->Table1->Active = false;
FM1->Table1->DatabaseName = GetCurrentDir() + "\\MMM";
FM1->Table1->Filtered=false;
FM1->Table1->Active = true;
}
//----------------------------
Текст программы для формы Form2
#include <vcl.h>
#pragma hdrstop
#include "Unit2.h"
#include "UM2.h"
#include "UGL.h"
//----------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm2 *Form2;
//----------------------------
__fastcall TForm2::TForm2(TComponent* Owner)
: TForm(Owner)
{
}
//----------------------------
void __fastcall TForm2::Button1Click(TObject *Sender)
{
if(EA_MG_Pot->Text == "")
{
FM2->Table1->Filtered=false;
}
else
{
FM2->Table1->Filter="A_MG_Pot=
FM2->Table1->Filtered=true;
FM2->Table1->Filtered=false;
}
FM2->QuickRep1->Print();
}
//----------------------------
void __fastcall TForm2::Button2Click(TObject *Sender)
{
if(EA_MG_Pot->Text == "")
{
FM2->Table1->Filtered=false;
}
else
{
FM2->Table1->Filtered=false;
FM2->Table1->Filter="A_MG_Pot=
FM2->Table1->Filtered=true;
}
FM2->QuickRep1->Preview();
}
//----------------------------
void __fastcall TForm2::FormCreate(TObject *Sender)
{
FM2->Table1->Active = false;
FM2->Table1->DatabaseName = GetCurrentDir() + "\\MMM";
FM2->Table1->Active = true;
}
//----------------------------
Текст программы для формы Form3
#include <vcl.h>
#pragma hdrstop
#include "Unit3.h"
#include "UM3.h"
#include "UGL.h"
//----------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm3 *Form3;
//----------------------------
__fastcall TForm3::TForm3(TComponent* Owner)
: TForm(Owner)
{
}
//----------------------------
void __fastcall TForm3::Button2Click(TObject *Sender)
{
if(EFam_Pr->Text == "")
{
FM3->Table1->Filtered=false;
}
else
{
FM3->Table1->Filter="Fam_Pr='"
FM3->Table1->Filtered=true;
FM3->Table1->Filtered=false;
}
FM3->QuickRep1->Print();
}
//----------------------------
void __fastcall TForm3::Button1Click(TObject *Sender)
{
if(EFam_Pr->Text == "")
{
FM3->Table1->Filtered=false;
}
else
{
FM3->Table1->Filtered=false;
FM3->Table1->Filter="Fam_Pr='"
FM3->Table1->Filtered=true;
}
FM3->QuickRep1->Preview();
}
//----------------------------
void __fastcall TForm3::FormCreate(TObject *Sender)
{
FM3->Table1->Active = false;
FM3->Table1->DatabaseName = GetCurrentDir() + "\\MMM";
FM3->Table1->Active = true;
}
//----------------------------
Текст программы для формы Form4
#include <vcl.h>
#pragma hdrstop
#include "Unit4.h"
#include "UM4.h"
#include "UGL.h"
//----------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm4 *Form4;
//----------------------------
__fastcall TForm4::TForm4(TComponent* Owner)
: TForm(Owner)
{
}
//----------------------------
void __fastcall TForm4::Button1Click(TObject *Sender)
{
if(EIm_Sv->Text == "")
{
FM4->Table1->Filtered=false;
}
else
{
FM4->Table1->Filter="Im_Sv='"+
FM4->Table1->Filtered=true;
FM4->Table1->Filtered=false;
}
FM4->QuickRep1->Print();
}
//----------------------------
void __fastcall TForm4::Button2Click(TObject *Sender)
{
if(EIm_Sv->Text == "")
{
FM4->Table1->Filtered=false;
}
else
{
FM4->Table1->Filtered=false;
FM4->Table1->Filter="Im_Sv='"+
FM4->Table1->Filtered=true;
}
FM4->QuickRep1->Preview();
}
//----------------------------
void __fastcall TForm4::FormCreate(TObject *Sender)
{
FM4->Table1->Active = false;
FM4->Table1->DatabaseName = GetCurrentDir() + "\\MMM";
FM4->Table1->Active = true;
}
//----------------------------