Список літератури

1. Borland C++ Builder 5. Энциклопедия программиста. Калверт Ч., Рейсдорф К., «ДиаСофт» - 2001, 944 стр.

2. Архангельский А.Я. C++Builder 6. Справочное пособие. Книга 1. Язык C++. - М.: Бином-Пресс, 2002 г. - 544 с.: ил.

3. Архангельский А.Я. C++Builder 6. Справочное пособие. Книга 2. Классы и компоненты. М.: Бином-Пресс, 2002 г. - 528 с.: ил.

4. Хомоненко А.Д., Ададуров С.Е. Работа с базами данных в C++ Builder. - СПб.: БХВ-Петербург, 2006. - 496 с: ил.

5. Джарод Холингвэрт, Дэн Баттерфилд, Боб Сворт, Джейми Оллсоп С++ Builder 5. Руководство разработчика.

6. Хаббард Дж. Автоматизированное проектирование баз данных. - М.: Мир, 1984. - 294 с.

7. Карпова Т.С. Базы данных: модели, разработка, реализация. - СПб.: Питер, 2002. - 304 с.

8. Кириллов В.В. Структуризованный язык запросов (SQL). - СПб.: ИТМО, 1994. - 80 с.

9. http://www.cyberforum.ru/cpp-beginners/thread152353.html

10. Borland C++ Builder 6. Разработка приложений баз данных, Послед Б.С., 2003, 320  стр.

Додаток 1. Лістинг програми

Unit1.cpp

#include <vcl.h>

#pragma hdrstop

#include "Unit1.h"

#include "Unit2.h"

#include "Unit3.h"

#include "Unit4.h"

#include "Unit5.h"

#include "Unit6.h"

#include "Unit7.h"

#include "Unit8.h"

#include "Unit10.h"

#include "Unit11.h"

#include "Unit12.h"

#include "Unit9.h"

#include "Unit13.h"

#include "Unit14.h"

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm1 *Form1;

__fastcall TForm1::TForm1(TComponent* Owner)

: TForm(Owner){}

void __fastcall TForm1::Button1Click(TObject *Sender)

{{

if((Edit1->Text!="")&&(Edit1->Text!="Robitnuku"))

if(DataModule2->ADOTable1->Locate("PIB",Edit1->Text, TLocateOptions()))

{ ShowMessage("присутній!");}

else ShowMessage("Error!");

} }

void __fastcall TForm1::Button2Click(TObject *Sender)

{{

String fd;

if(RadioButton1->Checked==true) { fd="Kod_robitnuka"; }

if(RadioButton2->Checked==true) { fd="PIB"; }

if(RadioButton3->Checked==true) { fd="Staj"; }

if(RadioButton4->Checked==true) { fd="Vik"; }

if(RadioButton5->Checked==true) { fd="Adressa";}

if(RadioButton6->Checked==true) { fd="Zarplata"; }

if(Edit2->Text!="")

{

DataModule2->ADOTable1->Filtered = false;

DataModule2->ADOTable1->Filter = fd+" like '"+Edit2->Text+"*'";

DataModule2->ADOTable1->Filtered = true; }

else DataModule2->ADOTable1->Filtered = false;}}

void __fastcall TForm1::ToolButton1Click(TObject *Sender)

{Form3->Show(); }

void __fastcall TForm1::ToolButton2Click(TObject *Sender)

{Form4->Show(); }

void __fastcall TForm1::ToolButton3Click(TObject *Sender)

{Form5->Show(); }

void __fastcall TForm1::ToolButton4Click(TObject *Sender)

{Form6->Show(); }

void __fastcall TForm1::ToolButton6Click(TObject *Sender)

{Form7->Show(); }

void __fastcall TForm1::ToolButton7Click(TObject *Sender)

{Form8->Show(); }

void __fastcall TForm1::ToolButton9Click(TObject *Sender)

{Form9->Show(); }

void __fastcall TForm1::ToolButton11Click(TObject *Sender)

{Form1->Close(); }

void __fastcall TForm1::ToolButton13Click(TObject *Sender)

{Form14->ShowModal();}

void __fastcall TForm1::ToolButton14Click(TObject *Sender)

{Form13->ShowModal();}

void __fastcall TForm1::ToolButton15Click(TObject *Sender)

{Form12->ShowModal(); }

Unit 2.cpp(DataModule)

#include <vcl.h>

#pragma hdrstop

#include "Unit2.h"

#include "Unit1.h"

#include "Unit3.h"

#include "Unit4.h"

#include "Unit5.h"

#include "Unit6.h"

#include "Unit7.h"

#include "Unit8.h"

#include "Unit9.h"

#include "Unit10.h"

#include "Unit11.h"

#include "Unit12.h"

#include "Unit13.h"

#include "Unit14.h"

#pragma package(smart_init)

#pragma resource "*.dfm"

TDataModule2 *DataModule2;

__fastcall TDataModule2::TDataModule2(TComponent* Owner)

: TDataModule(Owner){}

void __fastcall TDataModule2::N6Click(TObject *Sender)

{Form3->Show();}

void __fastcall TDataModule2::N7Click(TObject *Sender)

{ Form4->Show();}

void __fastcall TDataModule2::N8Click(TObject *Sender)

{Form5->Show();}

void __fastcall TDataModule2::N9Click(TObject *Sender)

{Form6->Show();}

void __fastcall TDataModule2::N10Click(TObject *Sender)

{Form1->Show();}

void __fastcall TDataModule2::N11Click(TObject *Sender)

{Form4->Show(); }

void __fastcall TDataModule2::N12Click(TObject *Sender)

{Form5->Show(); }

void __fastcall TDataModule2::N13Click(TObject *Sender)

{Form6->Show();}

void __fastcall TDataModule2::N14Click(TObject *Sender)

{ Form1->Show(); }

void __fastcall TDataModule2::N15Click(TObject *Sender)

{Form3->Show(); }

void __fastcall TDataModule2::N16Click(TObject *Sender)

{Form5->Show(); }

void __fastcall TDataModule2::N17Click(TObject *Sender)

{Form6->Show();}

void __fastcall TDataModule2::N18Click(TObject *Sender){

Form1->Show();}

void __fastcall TDataModule2::N19Click(TObject *Sender)

{Form3->Show(); }

void __fastcall TDataModule2::N20Click(TObject *Sender)

{Form4->Show(); }

void __fastcall TDataModule2::N21Click(TObject *Sender){

Form6->Show();}

void __fastcall TDataModule2::N22Click(TObject *Sender)

{ Form1->Show(); }

void __fastcall TDataModule2::N23Click(TObject *Sender)

{Form3->Show(); }

void __fastcall TDataModule2::N24Click(TObject *Sender)

{Form4->Show(); }

void __fastcall TDataModule2::N25Click(TObject *Sender)

{Form5->Show();}

void __fastcall TDataModule2::N30Click(TObject *Sender)

{ Form7->Show();}

void __fastcall TDataModule2::N31Click(TObject *Sender)

{Form8->Show();}

void __fastcall TDataModule2::N36Click(TObject *Sender)

{ Form9->Show();}

void __fastcall TDataModule2::N37Click(TObject *Sender)

{ Form10->ShowModal();}

void __fastcall TDataModule2::N38Click(TObject *Sender)

{ Form11->Show();}

void __fastcall TDataModule2::N40Click(TObject *Sender)

{Form1->Close();}

void __fastcall TDataModule2::N44Click(TObject *Sender)

{ Form12->ShowModal();}

void __fastcall TDataModule2::N43Click(TObject *Sender)

{ Form13->ShowModal();}

void __fastcall TDataModule2::N42Click(TObject *Sender)

{Form14->ShowModal();}

void __fastcall TDataModule2::N34Click(TObject *Sender)

{ Form7->Show();}

void __fastcall TDataModule2::N35Click(TObject *Sender)

{Form8->Show(); }

void __fastcall TDataModule2::N41Click(TObject *Sender)

{Form1->Show();}

void __fastcall TDataModule2::N45Click(TObject *Sender)

{Form3->Show(); }

void __fastcall TDataModule2::N46Click(TObject *Sender)

{Form4->Show(); }

void __fastcall TDataModule2::N47Click(TObject *Sender)

{Form5->Show(); }

void __fastcall TDataModule2::N48Click(TObject *Sender)

{Form6->Show(); }

void __fastcall TDataModule2::N50Click(TObject *Sender)

{Form7->Show();}

void __fastcall TDataModule2::N51Click(TObject *Sender)

{Form8->Show(); }

void __fastcall TDataModule2::N52Click(TObject *Sender)

{Form9->Show(); }

void __fastcall TDataModule2::N53Click(TObject *Sender)

{Form5->Close();}

void __fastcall TDataModule2::N55Click(TObject *Sender)

{Form7->Show();}

void __fastcall TDataModule2::N56Click(TObject *Sender)

{Form8->Show(); }

void __fastcall TDataModule2::N57Click(TObject *Sender)

{Form9->Show(); }

void __fastcall TDataModule2::N58Click(TObject *Sender)

{ Form6->Close();}

void __fastcall TDataModule2::N60Click(TObject *Sender)

{ Form7->Show();}

void __fastcall TDataModule2::N61Click(TObject *Sender)

{Form8->Show(); }

void __fastcall TDataModule2::N62Click(TObject *Sender)

{Form9->Show();}

void __fastcall TDataModule2::N63Click(TObject *Sender)

{Form4->Close();}

void __fastcall TDataModule2::N28Click(TObject *Sender)

{Form8->Show(); }

void __fastcall TDataModule2::N27Click(TObject *Sender)

{Form7->Show(); }

void __fastcall TDataModule2::N64Click(TObject *Sender)

{Form9->Show(); }

void __fastcall TDataModule2::N65Click(TObject *Sender)

{ Form3->Close();}

void __fastcall TDataModule2::N66Click(TObject *Sender)

{Form9->Close(); }

Unit 3.cpp

#include <vcl.h>

#pragma hdrstop

#include "Unit3.h"

#include "Unit1.h"

#include "Unit2.h"

#include "Unit4.h"

#include "Unit5.h"

#include "Unit6.h"

#include "Unit7.h"

#include "Unit8.h"

#include "Unit10.h"

#include "Unit11.h"

#include "Unit12.h"

#include "Unit13.h"

#include "Unit14.h"

#include "Unit9.h"

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm3 *Form3;

__fastcall TForm3::TForm3(TComponent* Owner)

: TForm(Owner)

{}

void __fastcall TForm3::Button1Click(TObject *Sender)

{{{

if((Edit1->Text!="")&&(Edit1->Text!="Ditu"))

if(DataModule2->ADOTable2->Locate("PIB",Edit1->Text, TLocateOptions()))

{ ShowMessage("присутній!");}

else ShowMessage("Error!");

}}}

void __fastcall TForm3::Button2Click(TObject *Sender)

{{

String fd;

if(RadioButton1->Checked==true) { fd="Kod_ditei"; }

if(RadioButton2->Checked==true) { fd="PIB"; }

if(RadioButton3->Checked==true) { fd="Grupa"; }

if(RadioButton4->Checked==true) { fd="Stan_zdorovia"; }

if(RadioButton5->Checked==true) { fd="Vik";}

if(RadioButton6->Checked==true) { fd="Kod_robitnuka"; }

if(Edit2->Text!="")

{

DataModule2->ADOTable2->Filtered = false;

DataModule2->ADOTable2->Filter = fd+" like '"+Edit2->Text+"*'";

DataModule2->ADOTable2->Filtered = true;

}

else DataModule2->ADOTable2->Filtered = false;

}}

void __fastcall TForm3::ToolButton1Click(TObject *Sender)

{Form1->Show(); }

void __fastcall TForm3::ToolButton2Click(TObject *Sender)

{Form4->Show(); }

void __fastcall TForm3::ToolButton3Click(TObject *Sender)

{Form5->Show(); }

void __fastcall TForm3::ToolButton4Click(TObject *Sender)

{Form6->Show(); }

void __fastcall TForm3::ToolButton6Click(TObject *Sender)

{Form7->Show(); }

void __fastcall TForm3::ToolButton7Click(TObject *Sender)

{Form8->Show(); }

void __fastcall TForm3::ToolButton9Click(TObject *Sender)

{Form9->Show(); }void __fastcall TForm3::ToolButton11Click(TObject *Sender)

{Form3->Close(); }

Unit 4.h

#include <vcl.h>

#pragma hdrstop

#include "Unit4.h"

#include "Unit1.h"

#include "Unit2.h"

#include "Unit3.h"

#include "Unit5.h"

#include "Unit6.h"

#include "Unit7.h"

#include "Unit8.h"

#include "Unit10.h"

#include "Unit11.h"

#include "Unit12.h"

#include "Unit13.h"

#include "Unit14.h"

#include "Unit9.h"

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm4 *Form4;

__fastcall TForm4::TForm4(TComponent* Owner)

: TForm(Owner)

{}

void __fastcall TForm4::Button1Click(TObject *Sender)

{{{

if((Edit1->Text!="")&&(Edit1->Text!="Poslygi"))

if(DataModule2->ADOTable3->Locate("Nazva",Edit1->Text, TLocateOptions()))

{ ShowMessage("присутній!");}

else ShowMessage("Error!");

}}}

void __fastcall TForm4::Button2Click(TObject *Sender)

{{

String fd;

if(RadioButton1->Checked==true) { fd="Kod_poslygu"; }

if(RadioButton2->Checked==true) { fd="Nazva"; }

if(RadioButton3->Checked==true) { fd="Kod_robitnuka"; }

if(Edit2->Text!="")

{

DataModule2->ADOTable3->Filtered = false;

DataModule2->ADOTable3->Filter = fd+" like '"+Edit2->Text+"*'";

DataModule2->ADOTable3->Filtered = true;

}

else DataModule2->ADOTable3->Filtered = false;

}}

void __fastcall TForm4::ToolButton1Click(TObject *Sender)

{Form1->Show(); }

void __fastcall TForm4::ToolButton2Click(TObject *Sender)

{Form3->Show(); }

void __fastcall TForm4::ToolButton3Click(TObject *Sender)

{Form5->Show(); }

void __fastcall TForm4::ToolButton4Click(TObject *Sender)

{Form6->Show(); }

void __fastcall TForm4::ToolButton6Click(TObject *Sender)

{Form7->Show(); }

void __fastcall TForm4::ToolButton7Click(TObject *Sender)

{Form8->Show(); }

void __fastcall TForm4::ToolButton9Click(TObject *Sender)

{Form9->Show(); }

void __fastcall TForm4::ToolButton11Click(TObject *Sender)

{Form4->Close(); }

Unit 5.h

#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"

#include "Unit8.h"

#include "Unit10.h"

#include "Unit11.h"

#include "Unit12.h"

#include "Unit13.h"

#include "Unit14.h"

#include "Unit9.h"

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm5 *Form5;

__fastcall TForm5::TForm5(TComponent* Owner)

: TForm(Owner)

{}

void __fastcall TForm5::Button1Click(TObject *Sender)

{{{

if((Edit1->Text!="")&&(Edit1->Text!="Rozklad_Dnia"))

if(DataModule2->ADOTable4->Locate("Kod_ditei",Edit1->Text, TLocateOptions()))

{ ShowMessage("присутній!");}

else ShowMessage("Error!");

}}}

void __fastcall TForm5::Button2Click(TObject *Sender)

{{

String fd;

if(RadioButton1->Checked==true) { fd="Kod_rozklady"; }

if(RadioButton2->Checked==true) { fd="Vidkrutia"; }

if(RadioButton3->Checked==true) { fd="Obid"; }

if(RadioButton4->Checked==true) { fd="Tuhui_chas"; }

if(RadioButton5->Checked==true) { fd="Kod_ditei"; }

if(Edit2->Text!="")

{

DataModule2->ADOTable4->Filtered = false;

DataModule2->ADOTable4->Filter = fd+" like '"+Edit2->Text+"*'";

DataModule2->ADOTable4->Filtered = true;

}

else DataModule2->ADOTable4->Filtered = false;

}}

void __fastcall TForm5::ToolButton1Click(TObject *Sender)

{Form1->Show(); }

void __fastcall TForm5::ToolButton2Click(TObject *Sender)

{Form3->Show(); }

void __fastcall TForm5::ToolButton3Click(TObject *Sender)

{Form4->Show(); }

void __fastcall TForm5::ToolButton4Click(TObject *Sender)

{Form6->Show(); }

void __fastcall TForm5::ToolButton6Click(TObject *Sender)

{Form7->Show(); }

void __fastcall TForm5::ToolButton7Click(TObject *Sender)

{Form8->Show(); }

void __fastcall TForm5::ToolButton9Click(TObject *Sender)

{Form9->Show(); }

void __fastcall TForm5::ToolButton11Click(TObject *Sender)

{Form5->Close(); }

Unit 6.h

#ifndef Unit6H

#define Unit6H

#include <Classes.hpp>

#include <Controls.hpp>

#include <StdCtrls.hpp>

#include <Forms.hpp>

#include <DBCtrls.hpp>

#include <DBGrids.hpp>

#include <ExtCtrls.hpp>

#include <Grids.hpp>

#include <Mask.hpp>

#include <ComCtrls.hpp>

#include <ToolWin.hpp>

class TForm6 : public TForm

{

__published: // IDE-managed Components

TDBGrid *DBGrid1;

TDBNavigator *DBNavigator1;

TLabel *Label1;

TDBEdit *DBEdit1;

TLabel *Label2;

TDBEdit *DBEdit2;

TLabel *Label3;

TDBEdit *DBEdit3;

TLabel *Label4;

TDBEdit *DBEdit4;

TPanel *Panel1;

TButton *Button1;

TEdit *Edit1;

TButton *Button2;

TEdit *Edit2;

TRadioButton *RadioButton1;

TRadioButton *RadioButton2;

TRadioButton *RadioButton3;

TRadioButton *RadioButton4;

TToolBar *ToolBar1;

TToolButton *ToolButton1;

TToolButton *ToolButton2;

TToolButton *ToolButton3;

TToolButton *ToolButton4;

TToolButton *ToolButton5;

TToolButton *ToolButton6;

TToolButton *ToolButton7;

TToolButton *ToolButton8;

TToolButton *ToolButton9;

TToolButton *ToolButton10;

TToolButton *ToolButton11;

void __fastcall Button1Click(TObject *Sender);

void __fastcall Button2Click(TObject *Sender);

void __fastcall ToolButton1Click(TObject *Sender);

void __fastcall ToolButton2Click(TObject *Sender);

void __fastcall ToolButton3Click(TObject *Sender);

void __fastcall ToolButton4Click(TObject *Sender);

void __fastcall ToolButton6Click(TObject *Sender);

void __fastcall ToolButton7Click(TObject *Sender);

void __fastcall ToolButton9Click(TObject *Sender);

void __fastcall ToolButton11Click(TObject *Sender);

private: // User declarations

public: // User declarations

__fastcall TForm6(TComponent* Owner);

};

extern PACKAGE TForm6 *Form6;

#endif

Unit 7.h

#ifndef Unit7H

#define Unit7H

#include <Classes.hpp>

#include <Controls.hpp>

#include <StdCtrls.hpp>

#include <Forms.hpp>

#include <ADODB.hpp>

#include <DB.hpp>

#include <ExtCtrls.hpp>

#include <QRCtrls.hpp>

#include <QuickRpt.hpp>

class TForm7 : public TForm

{

__published: // IDE-managed Components

TQuickRep *QuickRep1;

TQRBand *QRBand1;

TQRBand *QRBand2;

TQRLabel *QRLabel1;

TQRLabel *QRLabel2;

TQRLabel *QRLabel3;

TQRLabel *QRLabel4;

TQRLabel *QRLabel5;

TQRLabel *QRLabel6;

TQRLabel *QRLabel7;

TADOTable *ADOTable1;

TQRDBText *Kod_robitnuka;

TQRDBText *PIB;

TQRDBText *Staj;

TQRDBText *Vik;

TQRDBText *Adressa;

TQRDBText *Zarplata;

private: // User declarations

public: // User declarations

__fastcall TForm7(TComponent* Owner);

extern PACKAGE TForm7 *Form7;

#endif

Unit 8.

#ifndef Unit8H

#define Unit8H

#include <Classes.hpp>

#include <Controls.hpp>

#include <StdCtrls.hpp>

#include <Forms.hpp>

#include <ADODB.hpp>

#include <DB.hpp>

#include <ExtCtrls.hpp>

#include <QRCtrls.hpp>

#include <QuickRpt.hpp>

class TForm8 : public TForm

{

__published: // IDE-managed Components

TQuickRep *QuickRep1;

TQRBand *QRBand1;

TQRBand *QRBand2;

TQRLabel *QRLabel1;

TQRLabel *QRLabel2;

TQRLabel *QRLabel3;

TQRLabel *QRLabel4;

TQRLabel *QRLabel5;

TQRLabel *QRLabel6;

TQRLabel *QRLabel7;

TQRDBText *Kod_ditei;

TQRDBText *PIB;

TQRDBText *Grupa;

TQRDBText *Stan_zdorovia;

TQRDBText *Vik;

TQRDBText *Kod_robitnuka;

TADOTable *ADOTable1;

private: // User declarations

public: // User declarations

__fastcall TForm8(TComponent* Owner);

};

extern PACKAGE TForm8 *Form8;

#endif

Unit 9.h

#include <vcl.h>

#pragma hdrstop

#include "Unit9.h"

#include "Unit1.h"

#include "Unit2.h"

#include "Unit3.h"

#include "Unit4.h"

#include "Unit5.h"

#include "Unit6.h"

#include "Unit7.h"

#include "Unit8.h"

#include "Unit10.h"

#include "Unit11.h"

#include "Unit12.h"

#include "Unit13.h"

#include "Unit14.h"

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm9 *Form9;

__fastcall TForm9::TForm9(TComponent* Owner)

: TForm(Owner)

{}

void __fastcall TForm9::Button1Click(TObject *Sender)

{

if(Memo1->Text!="") {

String q1 = Memo1->Text.UpperCase(),memotext;

String w1="INSERT",w2="DELETE",w3="UPDATE",w4="SELECT",w5="FROM";

int s1 = q1.Pos(w1),s2 = q1.Pos(w2),s3 = q1.Pos(w3),k1=0;

if((s1 > 0)||(s2 > 0)||(s3 > 0)) {k1++;

Form9->ADOQuery1->Close();

Form9->ADOQuery1->SQL->Clear();

Form9->ADOQuery1->SQL->Add(Memo1->Text);

Form9->ADOQuery1->ExecSQL();

}

if(k1==0){

Form9->ADOQuery1->Close();

Form9->ADOQuery1->SQL=Memo1->Lines;

Form9->ADOQuery1->Open();

}} }

void __fastcall TForm9::ToolButton1Click(TObject *Sender)

{Form1->Show(); }

void __fastcall TForm9::ToolButton2Click(TObject *Sender)

{Form3->Show(); }

void __fastcall TForm9::ToolButton3Click(TObject *Sender)

{Form4->Show(); }

void __fastcall TForm9::ToolButton4Click(TObject *Sender)

{Form5->Show(); }

void __fastcall TForm9::ToolButton5Click(TObject *Sender)

{Form6->Show(); }

void __fastcall TForm9::ToolButton7Click(TObject *Sender)

{Form7->Show(); }

void __fastcall TForm9::ToolButton8Click(TObject *Sender)

{Form8->Show(); }

void __fastcall TForm9::ToolButton10Click(TObject *Sender)

{Form11->Show(); }

void __fastcall TForm9::ToolButton12Click(TObject *Sender)

{Form9->Close(); }

Unit 10.h

#define Unit10H

#include <Classes.hpp>

#include <Controls.hpp>

#include <StdCtrls.hpp>

#include <Forms.hpp>

#include <ExtCtrls.hpp>

#include <jpeg.hpp>

class TForm10 : public TForm

{

__published: // IDE-managed Components

TImage *Image1;

TLabel *Label1;

TLabel *Label2;

TLabel *Label3;

TLabel *Label4;

TLabel *Label5;

void __fastcall FormCreate(TObject *Sender);

private: // User declarations

public: // User declarations

__fastcall TForm10(TComponent* Owner);

};

extern PACKAGE TForm10 *Form10;

#endif