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

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 "Unit9.h"

#include "Unit10.h"

#include "Unit11.h"

#include "Unit12.h"

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm1 *Form1;

__fastcall TForm1::TForm1(TComponent* Owner)

: TForm(Owner)

{ }

void __fastcall TForm1::N2Click(TObject *Sender)

{ Form4->Show(); }

void __fastcall TForm1::N3Click(TObject *Sender)

{ Form5->Show(); }

void __fastcall TForm1::N4Click(TObject *Sender)

{ Form6->Show(); }

void __fastcall TForm1::N5Click(TObject *Sender)

{ Form7->Show(); }

void __fastcall TForm1::N6Click(TObject *Sender)

{ Form8->Show(); }

void __fastcall TForm1::N8Click(TObject *Sender)

{ Form9->QuickRep1->Preview(); }

void __fastcall TForm1::N9Click(TObject *Sender)

{ Form10->QuickRep1->Preview(); }

void __fastcall TForm1::N14Click(TObject *Sender)

{ Form12->Show(); }

void __fastcall TForm1::N12Click(TObject *Sender)

{ Close(); }

void __fastcall TForm1::N13Click(TObject *Sender)

{ Form11->Show(); }

void __fastcall TForm1::N10Click(TObject *Sender)

{ Form3->Show(); }

void __fastcall TForm1::ToolButton1Click(TObject *Sender)

{ Form4->Show(); }

void __fastcall TForm1::ToolButton2Click(TObject *Sender)

{ Form5->Show(); }

void __fastcall TForm1::ToolButton3Click(TObject *Sender)

{ Form6->Show(); }

void __fastcall TForm1::ToolButton4Click(TObject *Sender)

{ Form7->Show(); }

void __fastcall TForm1::ToolButton5Click(TObject *Sender)

{ Form8->Show(); }

void __fastcall TForm1::ToolButton7Click(TObject *Sender)

{ Form9->QuickRep1->Preview(); }

void __fastcall TForm1::ToolButton8Click(TObject *Sender)

{ Form10->QuickRep1->Preview(); }

void __fastcall TForm1::ToolButton10Click(TObject *Sender)

{ Form3->Show(); }

void __fastcall TForm1::ToolButton12Click(TObject *Sender)

{ Form11->Show(); }

void __fastcall TForm1::ToolButton13Click(TObject *Sender)

{ Form12->Show(); }

void __fastcall TForm1::ToolButton15Click(TObject *Sender)

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

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm3 *Form3;

__fastcall TForm3::TForm3(TComponent* Owner)

: TForm(Owner)

{ }

void __fastcall TForm3::Button1Click(TObject *Sender)

{ DataModule2->ADOQuery3->Active=true;

DBGrid1->DataSource=DataModule2->DataSource8;

DBNavigator1->DataSource=DataModule2->DataSource8; }

void __fastcall TForm3::Button2Click(TObject *Sender)

{ DataModule2->ADOQuery2->Active=true;

DBGrid1->DataSource=DataModule2->DataSource7;

DBNavigator1->DataSource=DataModule2->DataSource7; }

void __fastcall TForm3::Button3Click(TObject *Sender)

{ DataModule2->ADOQuery4->Active=true;

DBGrid1->DataSource=DataModule2->DataSource9;

DBNavigator1->DataSource=DataModule2->DataSource9; }

void __fastcall TForm3::Button4Click(TObject *Sender)

{ DataModule2->ADOQuery5->Active=true;

DBGrid1->DataSource=DataModule2->DataSource10;

DBNavigator1->DataSource=DataModule2->DataSource10; }

Unit 4.cpp

#include <vcl.h>

#pragma hdrstop

#include "Unit4.h"

#include "Unit1.h"

#include "Unit2.h"

#include "Unit3.h"

#include "Unit5.h"

#include "Unit6.h"

#include "Unit11.h"

#include "Unit12.h"

#include "Unit13.h"

#include "Unit7.h"

#include "Unit8.h"

#include "Unit9.h"

#include "Unit10.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=="")

{ ShowMessage("Введіть поле"); }

else

if(DataModule2->ADOTable2->Locate("ПІБ",Edit1->Text, TLocateOptions()))

ShowMessage("Поле знайдено");

else

ShowMessage("Поле не знайдено"); }

void __fastcall TForm4::Button2Click(TObject *Sender)

{ String fd;

if(RadioButton1->Checked==true) { fd="Код_клієнта"; }

if(RadioButton2->Checked==true) { fd="ПІБ"; }

if(RadioButton3->Checked==true) { fd="Адреса";}

if(RadioButton4->Checked==true) { fd="Телефон";}

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 TForm4::ToolButton1Click(TObject *Sender)

{ Form4->Show(); }

void __fastcall TForm4::ToolButton2Click(TObject *Sender)

{ Form5->Show(); }

void __fastcall TForm4::ToolButton3Click(TObject *Sender)

{ Form6->Show(); }

void __fastcall TForm4::ToolButton4Click(TObject *Sender)

{ Form7->Show(); }

void __fastcall TForm4::ToolButton5Click(TObject *Sender)

{ Form8->Show(); }

void __fastcall TForm4::ToolButton7Click(TObject *Sender)

{ Form9->QuickRep1->Preview(); }

void __fastcall TForm4::ToolButton8Click(TObject *Sender)

{ Form10->QuickRep1->Preview(); }

void __fastcall TForm4::ToolButton10Click(TObject *Sender)

{ Form3->Show(); }

void __fastcall TForm4::ToolButton12Click(TObject *Sender)

{ Form11->Show(); }

void __fastcall TForm4::ToolButton13Click(TObject *Sender)

{ Form12->Show(); }

void __fastcall TForm4::ToolButton15Click(TObject *Sender)

{ Close(); }

Unit 5.h

#ifndef Unit5H

#define Unit5H

#include <Classes.hpp>

#include <Controls.hpp>

#include <StdCtrls.hpp>

#include <Forms.hpp>

#include <ComCtrls.hpp>

#include <DBCtrls.hpp>

#include <DBGrids.hpp>

#include <ExtCtrls.hpp>

#include <Grids.hpp>

#include <Mask.hpp>

#include <Menus.hpp>

#include <ToolWin.hpp>

class TForm5 : public TForm

{

__published: // IDE-managed Components

TDBGrid *DBGrid1;

TDBNavigator *DBNavigator1;

TStatusBar *StatusBar1;

TLabel *Label1;

TDBEdit *DBEdit1;

TLabel *Label2;

TDBEdit *DBEdit2;

TLabel *Label3;

TDBEdit *DBEdit3;

TLabel *Label4;

TDBEdit *DBEdit4;

TRadioButton *RadioButton1;

TRadioButton *RadioButton2;

TRadioButton *RadioButton3;

TRadioButton *RadioButton4;

TButton *Button1; TEdit *Edit1; TButton *Button2;

TEdit *Edit2; TToolBar *ToolBar1; TToolButton *ToolButton1; TMainMenu *MainMenu1; TMenuItem *N1; TMenuItem *N2;TMenuItem *N3;TMenuItem *N4;TMenuItem *N5;TMenuItem *N6;

TMenuItem *N7;TMenuItem *N8;TMenuItem *N9; TMenuItem *N10;TMenuItem *N11;

TMenuItem *N12;TMenuItem *N13; TMenuItem *N14;TToolButton *ToolButton2;TToolButton *ToolButton3; TToolButton *ToolButton4;TToolButton *ToolButton5;TToolButton *ToolButton6;TToolButton *ToolButton7; TToolButton *ToolButton8;

TToolButton *ToolButton9; TToolButton *ToolButton10; TToolButton *ToolButton11;

TToolButton *ToolButton12; TToolButton *ToolButton13; TToolButton *ToolButton14; TToolButton *ToolButton15;

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 ToolButton5Click(TObject *Sender);

void __fastcall ToolButton7Click(TObject *Sender);

void __fastcall ToolButton8Click(TObject *Sender);

void __fastcall ToolButton10Click(TObject *Sender);

void __fastcall ToolButton12Click(TObject *Sender);

void __fastcall ToolButton13Click(TObject *Sender);

void __fastcall ToolButton15Click(TObject *Sender);

private: // User declarations

public: // User declarations

__fastcall TForm5(TComponent* Owner);

};

extern PACKAGE TForm5 *Form5;

#endif

Unit 6.h

#ifndef Unit6H

#define Unit6H

#include <Classes.hpp>

#include <Controls.hpp>

#include <StdCtrls.hpp>

#include <Forms.hpp>

#include <ComCtrls.hpp>

#include <DBCtrls.hpp>

#include <DBGrids.hpp>

#include <ExtCtrls.hpp>

#include <Grids.hpp>

#include <Mask.hpp>

#include <Menus.hpp>

#include <ToolWin.hpp>

class TForm6 : public TForm

{

__published: // IDE-managed Components

TMainMenu *MainMenu1;

TMenuItem *N1;TMenuItem *N2;TMenuItem *N3;TMenuItem *N4;TMenuItem *N5;TMenuItem *N6;TMenuItem *N7; TMenuItem *N8;TMenuItem *N9; TMenuItem *N10;TMenuItem *N11; TMenuItem *N12; TMenuItem *N13;TMenuItem *N14; TStatusBar *StatusBar1; TDBGrid *DBGrid1; TDBNavigator *DBNavigator1; TLabel *Label1;TDBEdit *DBEdit1; TLabel *Label2;TDBEdit *DBEdit2; TLabel *Label3; TDBEdit *DBEdit3; TRadioButton *RadioButton1; TRadioButton *RadioButton2;TButton *Button1;

TEdit *Edit1; TButton *Button2; TEdit *Edit2; TToolBar *ToolBar1;TToolButton *ToolButton1;TToolButton *ToolButton2;

TToolButton *ToolButton3;TToolButton *ToolButton4; TToolButton *ToolButton5;

TToolButton *ToolButton6; TToolButton *ToolButton7; TToolButton *ToolButton8;TToolButton *ToolButton9;TToolButton *ToolButton10; TToolButton *ToolButton11; TToolButton *ToolButton12;TToolButton *ToolButton13; TToolButton *ToolButton14;

TToolButton *ToolButton15;

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 ToolButton5Click(TObject *Sender);

void __fastcall ToolButton7Click(TObject *Sender);

void __fastcall ToolButton8Click(TObject *Sender);

void __fastcall ToolButton10Click(TObject *Sender);

void __fastcall ToolButton12Click(TObject *Sender);

void __fastcall ToolButton13Click(TObject *Sender);

void __fastcall ToolButton15Click(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 <ComCtrls.hpp>

#include <DBCtrls.hpp>

#include <DBGrids.hpp>

#include <ExtCtrls.hpp>

#include <Grids.hpp>

#include <Mask.hpp>

#include <Menus.hpp>

#include <ToolWin.hpp>

class TForm7 : public TForm

{

__published: // IDE-managed Components

TMainMenu *MainMenu1; TMenuItem *N1; TMenuItem *N2; TMenuItem *N3; TMenuItem *N4; TMenuItem *N5; TMenuItem *N6;

TMenuItem *N7; TMenuItem *N8; TMenuItem *N9; TMenuItem *N10; TMenuItem *N11;TMenuItem *N12; TMenuItem *N13;

TMenuItem *N14; TStatusBar *StatusBar1; TDBGrid *DBGrid1; TDBNavigator *DBNavigator1; TLabel *Label1; TDBEdit *DBEdit1;

TLabel *Label2; TDBEdit *DBEdit2;TLabel *Label3;TDBEdit *DBEdit3;TLabel *Label4;TDBEdit *DBEdit4; TLabel *Label5;TDBEdit *DBEdit5; TLabel *Label6; TDBEdit *DBEdit6; TButton *Button1;TEdit *Edit1; TButton *Button2;TEdit *Edit2;TRadioButton *RadioButton1; TRadioButton *RadioButton2; TRadioButton *RadioButton3; TRadioButton *RadioButton4;

TRadioButton *RadioButton5; TRadioButton *RadioButton6;TToolBar *ToolBar1; TToolButton *ToolButton1;

TToolButton *ToolButton2;TToolButton *ToolButton3;TToolButton *ToolButton4; TToolButton *ToolButton5; TToolButton *ToolButton6;TToolButton *ToolButton7; TToolButton *ToolButton8;TToolButton *ToolButton9;TToolButton *ToolButton10;

TToolButton *ToolButton11; TToolButton *ToolButton12;TToolButton *ToolButton13; TToolButton *ToolButton14;TToolButton *ToolButton15;

void __fastcall Button1Click(TObject *Sender);

void __fastcall Button2Click(TObject *Sender);

void __fastcall N12Click(TObject *Sender);

void __fastcall ToolButton1Click(TObject *Sender);

void __fastcall ToolButton2Click(TObject *Sender);

void __fastcall ToolButton3Click(TObject *Sender);

void __fastcall ToolButton4Click(TObject *Sender);

void __fastcall ToolButton5Click(TObject *Sender);

void __fastcall ToolButton10Click(TObject *Sender);

void __fastcall ToolButton12Click(TObject *Sender);

void __fastcall ToolButton13Click(TObject *Sender);

void __fastcall ToolButton7Click(TObject *Sender);

void __fastcall ToolButton8Click(TObject *Sender);

void __fastcall ToolButton15Click(TObject *Sender);

private: // User declarations

public: // User declarations

__fastcall TForm7(TComponent* Owner);

};

extern PACKAGE TForm7 *Form7;

#endif

Unit 8.h

#ifndef Unit8H

#define Unit8H

#include <Classes.hpp>

#include <Controls.hpp>

#include <StdCtrls.hpp>

#include <Forms.hpp>

#include <ComCtrls.hpp>

#include <DBCtrls.hpp>

#include <DBGrids.hpp>

#include <ExtCtrls.hpp>

#include <Grids.hpp>

#include <Mask.hpp>

#include <Menus.hpp>

#include <ToolWin.hpp>

class TForm8 : public TForm

{

__published: // IDE-managed Components

TMainMenu *MainMenu1; TMenuItem *N1; TMenuItem *N2;TMenuItem *N3; TMenuItem *N4;TMenuItem *N5;

TMenuItem *N6;TMenuItem *N7;TMenuItem *N8;TMenuItem *N9; TMenuItem *N10; TMenuItem *N11;TMenuItem *N12; TMenuItem *N13;TMenuItem *N14; TStatusBar *StatusBar1;TDBGrid *DBGrid1; TDBNavigator *DBNavigator1; TLabel *Label1; TDBEdit *DBEdit1;TLabel *Label2;

TDBEdit *DBEdit2;TLabel *Label3; TDBEdit *DBEdit3;TLabel *Label4;TDBEdit *DBEdit4;TLabel *Label5; TDBEdit *DBEdit5;

TLabel *Label6; TDBEdit *DBEdit6; TLabel *Label7; TDBEdit *DBEdit7; TLabel *Label8;TDBEdit *DBEdit8; TButton *Button1;TEdit *Edit1;TButton *Button2; TEdit *Edit2;TRadioButton *RadioButton1;TRadioButton *RadioButton2;TRadioButton *RadioButton3; TRadioButton *RadioButton4;TRadioButton *RadioButton5;TRadioButton *RadioButton6; TRadioButton *RadioButton7;

TRadioButton *RadioButton8;TToolBar *ToolBar1;TToolButton *ToolButton1; TToolButton *ToolButton2; TToolButton *ToolButton3; TToolButton *ToolButton4; TToolButton *ToolButton5;TToolButton *ToolButton6; TToolButton *ToolButton7;

TToolButton *ToolButton8; TToolButton *ToolButton9; TToolButton *ToolButton10;TToolButton *ToolButton11; TToolButton *ToolButton12; TToolButton *ToolButton13; TToolButton *ToolButton14; TToolButton *ToolButton15;

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 ToolButton5Click(TObject *Sender);

void __fastcall ToolButton10Click(TObject *Sender);

void __fastcall ToolButton12Click(TObject *Sender);

void __fastcall ToolButton13Click(TObject *Sender);

void __fastcall ToolButton7Click(TObject *Sender);

void __fastcall ToolButton8Click(TObject *Sender);

void __fastcall ToolButton15Click(TObject *Sender);

private: // User declarations

public: // User declarations

__fastcall TForm8(TComponent* Owner);

};

extern PACKAGE TForm8 *Form8;

#endif

Unit 9.h

#ifndef Unit9H

#define Unit9H

#include <Classes.hpp>

#include <Controls.hpp>

#include <StdCtrls.hpp>

#include <Forms.hpp>

#include <ExtCtrls.hpp>

#include <QRCtrls.hpp>

#include <QuickRpt.hpp>

class TForm9 : public TForm

{

__published: // IDE-managed Components

TQuickRep *QuickRep1;

TQRBand *DetailBand1;

TQRBand *TitleBand1;

TQRLabel *QRLabel1;

TQRLabel *QRLabel2;

TQRLabel *QRLabel3;

TQRDBText *QRDBText1;

TQRDBText *QRDBText2;

TQRDBText *QRDBText3;

TQRLabel *QRLabel4;

private: // User declarations

public: // User declarations

__fastcall TForm9(TComponent* Owner);

};

extern PACKAGE TForm9 *Form9;

#endif

Unit 10.h

#ifndef Unit10H

#define Unit10H

#include <Classes.hpp>

#include <Controls.hpp>

#include <StdCtrls.hpp>

#include <Forms.hpp>

#include <ExtCtrls.hpp>

#include <QRCtrls.hpp>

#include <QuickRpt.hpp>

#include <ADODB.hpp>

#include <DB.hpp>

class TForm10 : public TForm

{

__published: // IDE-managed Components

TQuickRep *QuickRep1; TQRBand *DetailBand1; TQRBand *TitleBand1;TQRLabel *QRLabel1; TQRLabel *QRLabel2; TQRLabel *QRLabel3;TQRLabel *QRLabel4;TQRLabel *QRLabel5;TQRLabel *QRLabel6;TQRLabel *QRLabel7; TQRDBText *QRDBText1; TQRDBText *QRDBText2; TQRDBText *QRDBText3; TQRDBText *QRDBText5; TQRDBText *QRDBText6; TQRDBText *QRDBText4; TQRLabel *QRLabel8; TQRDBText *QRDBText7; TQRLabel *QRLabel9; TQRDBText *QRDBText8;TADOTable *ADOTable1; TQRLabel *QRLabel10; TQRExpr *QRExpr1;

private: // User declarations

public: // User declarations

__fastcall TForm10(TComponent* Owner);

};

extern PACKAGE TForm10 *Form10;

#endif

Unit 11.h

#ifndef Unit11H

#define Unit11H

#include <Classes.hpp>

#include <Controls.hpp>

#include <StdCtrls.hpp>

#include <Forms.hpp>

#include <ExtCtrls.hpp>

#include <jpeg.hpp>

class TForm11 : public TForm

{

__published: // IDE-managed Components

TMemo *Memo1;

TPanel *Panel1;

TImage *Image1;

private: // User declarations

public: // User declarations

__fastcall TForm11(TComponent* Owner);

};

extern PACKAGE TForm11 *Form11;

#endif

Unit 12.h

#ifndef Unit12H

#define Unit12H

#include <Classes.hpp>

#include <Controls.hpp>

#include <StdCtrls.hpp>

#include <Forms.hpp>

#include <ExtCtrls.hpp>

#include <Graphics.hpp>

class TForm12 : public TForm

{

__published: // IDE-managed Components

TPanel *Panel1;

TImage *Image1;

TLabel *Label1;

TLabel *Label2;

TLabel *Label3;

TLabel *Label4;

TLabel *Label5;

private: // User declarations

public: // User declarations

__fastcall TForm12(TComponent* Owner);

};

extern PACKAGE TForm12 *Form12;

#endif

Unit 13.h

#ifndef Unit13H

#define Unit13H

#include <Classes.hpp>

#include <Controls.hpp>

#include <StdCtrls.hpp>

#include <Forms.hpp>

class TForm13 : public TForm

{

__published: // IDE-managed Components

TMemo *Memo1;

private: // User declarations

public: // User declarations

__fastcall TForm13(TComponent* Owner);

};

extern PACKAGE TForm13 *Form13;

#endif