Список використаних джерел

1. Н.Ф.Халімон, О.І. Никопоренко, А.В. радченко: Система керування базами даних MS SQL Server. – К.: НАУ, 2004. – 88 с.

2. Створення проектів у візуальному об’єктно-орієнтованому середовищі C++ Builder – методичні вказівки до виконання лабораторних тобіт та завдання на курсовий проект.

3. Дейт К. Дж. Введение в системы баз данных.- 7-е изд.: Пер. С англ. – М.: Издательский дом «Вильямс», 2001. – 1072 с.

4. Джеймс Р. Грофф, Пол Н. Вайнберг. SQL : Полное руководство: Пер. С англ. – К.: Издательская группа BHV, 1999.- 608 с.

Додаток

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

#include <vcl.h>

#pragma hdrstop

#include "abiturient_osn.h"

#include "ABIT_OBAVT.h"

#include "ABIT_SPR.h"

#include "Unit1.h"

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

#pragma package(smart_init)

#pragma resource "*.dfm"

TFormosn *Formosn;

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

__fastcall TFormosn::TFormosn(TComponent* Owner)

: TForm(Owner)

{

}

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

void __fastcall TFormosn::MenuAb8Click(TObject *Sender)

{

Close();

}

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

void __fastcall TFormosn::MenuAb9Click(TObject *Sender)

{

FormSpravka->Show();

FormSpravka->Memo1->Lines->LoadFromFile("C:\\abit.txt");

}

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

void __fastcall TFormosn::MenuAb10Click(TObject *Sender)

{

FormOB_AVTORE->Show();

}

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

void __fastcall TFormosn::MenuAb1Click(TObject *Sender)

{

Tableabiturient->Active=true;

Tableinstitut->Active=false;

TablePredmet->Active=false;

TableSpcialnist->Active=false;

DBGridabiturient->Visible=true;

DBGridinstitut->Visible=false;

DBGridPredmet->Visible=false;

DBGridSpcialnist->Visible=false;

DBGridOut->Visible=false;

DBGridabiturient->DataSource=DataSourceabiturient;

DBNavigator1->DataSource=DataSourceabiturient;

DBNavigator1->Visible=true;

DBNavigator1->Enabled=true;

PanelOsn->Caption="Абитуриент";

}

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

void __fastcall TFormosn::MenuAb2Click(TObject *Sender)

{

Tableabiturient->Active=false;

Tableinstitut->Active=true;

TablePredmet->Active=false;

TableSpcialnist->Active=false;

DBGridabiturient->Visible=false;

DBGridinstitut->Visible=true;

DBGridPredmet->Visible=false;

DBGridSpcialnist->Visible=false;

DBGridOut->Visible=false;

DBGridabiturient->DataSource=DataSourceinstitut;

DBNavigator1->DataSource=DataSourceinstitut;

DBNavigator1->Visible=true;

DBNavigator1->Enabled=true;

PanelOsn->Caption="Институт";

}

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

void __fastcall TFormosn::MenuAb3Click(TObject *Sender)

{

Tableabiturient->Active=false;

Tableinstitut->Active=false;

TablePredmet->Active=true;

TableSpcialnist->Active=false;

DBGridabiturient->Visible=false;

DBGridinstitut->Visible=false;

DBGridPredmet->Visible=true;

DBGridSpcialnist->Visible=false;

DBGridOut->Visible=false;

DBGridabiturient->DataSource=DataSourcePredmet;

DBNavigator1->DataSource=DataSourcePredmet;

DBNavigator1->Visible=true;

DBNavigator1->Enabled=true;

PanelOsn->Caption="Предмет";

}

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

void __fastcall TFormosn::MenuAb4Click(TObject *Sender)

{

Tableabiturient->Active=false;

Tableinstitut->Active=false;

TablePredmet->Active= false;

TableSpcialnist->Active=true;

DBGridabiturient->Visible=false;

DBGridinstitut->Visible=false;

DBGridPredmet->Visible=false;

DBGridSpcialnist->Visible=true;

DBGridOut->Visible=false;

DBGridabiturient->DataSource=DataSourceSpcialnist;

DBNavigator1->DataSource=DataSourceSpcialnist;

DBNavigator1->Visible=true;

DBNavigator1->Enabled=true;

PanelOsn->Caption="Специальность";

}

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

void __fastcall TFormosn::TableabiturientAfterOpen(TDataSet *DataSet)

{

char string[21];

ltoa(Tableabiturient->RecordCount,string,20);

EditKolZap->Text=string;

}

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

void __fastcall TFormosn::TableabiturientAfterDelete(TDataSet *DataSet)

{

EditKolZap->Text=IntToStr(Tableabiturient->RecordCount);

}

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

void __fastcall TFormosn::TableinstitutAfterOpen(TDataSet *DataSet)

{

char string[21];

ltoa(Tableinstitut->RecordCount,string,20);

EditKolZap->Text=string;

}

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

void __fastcall TFormosn::TableinstitutAfterDelete(TDataSet *DataSet)

{

EditKolZap->Text=IntToStr(Tableinstitut->RecordCount);

}

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

void __fastcall TFormosn::TablePredmetAfterOpen(TDataSet *DataSet)

{

char string[21];

ltoa(TablePredmet->RecordCount,string,20);

EditKolZap->Text=string;

}

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

void __fastcall TFormosn::TablePredmetAfterDelete(TDataSet *DataSet)

{

EditKolZap->Text=IntToStr(TablePredmet->RecordCount);

}

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

void __fastcall TFormosn::TableSpcialnistAfterOpen(TDataSet *DataSet)

{

char string[21];

ltoa(TableSpcialnist->RecordCount,string,20);

EditKolZap->Text=string;

}

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

void __fastcall TFormosn::TableSpcialnistAfterDelete(TDataSet *DataSet)

{

EditKolZap->Text=IntToStr(TableSpcialnist->RecordCount);

}

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

void __fastcall TFormosn::Zap1Click(TObject *Sender)

{

PanelZap->Show();

PanelOsn->Visible=false;

DBGridabiturient->Visible=false;

DBGridinstitut->Visible=false;

DBGridPredmet->Visible=false;

DBGridSpcialnist->Visible=false;

DBNavigator1->Enabled=false;

}

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

void __fastcall TFormosn::ButtonExit1Click(TObject *Sender)

{

PanelZap->Visible=false;

PanelOsn->Visible=true;

PanelOsn->Caption="Абитуриент";

Tableabiturient->Active=true;

DBGridabiturient->Visible=true;

DBNavigator1->DataSource=DataSourceabiturient;

DBNavigator1->Visible=true;

DBNavigator1->Enabled=true;

}

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

void __fastcall TFormosn::ButtonZap1Click(TObject *Sender)

{

AnsiString abfamiliya=Formosn->EditFamiliya->Text;

AnsiString ZO, ZOSort, ZPole, Zprs;

ZO="select * from abiturient where ";

ZPole="familia = '"+abfamiliya+"' ";

ZOSort="order by familia ";

Zprs=ZO+ZPole+ZOSort;

//Edit1->Text=Zprs;

Query1->Close();

Query1->SQL->Clear();

Query1->SQL->Add(Zprs);

Query1->Open();

}

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

void __fastcall TFormosn::Query1AfterOpen(TDataSet *DataSet)

{

DBGridOut->Show();

DBGridOut->DataSource=DataSourceQuery;

PanelZap->Visible = false;

Formosn->EditKolZap->Text=IntToStr(Query1->RecordCount);

}

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

void __fastcall TFormosn::MenuAb12Click(TObject *Sender)

{

QRMDForm->QuickRep1->Preview();

}

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

void __fastcall TFormosn::MenuAb11Click(TObject *Sender)

{

if (Printer()->Printers->Count==0)

{

ShowMessage("Принтер отсутствует! Все пропало!!!");

return;

}

PrintDialog1->Execute();

}

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