Пайдаланылан дебиеттер тізімі

1. М.Грабер Введение в SQL – Москва, 1998.

2. Кренке, Д.. Теория и практика баз данных.- СПб., 2005.

3. Марков, А.С.. Базы данных. Введение в теорию и методологию.- М., 2004.

4. Хакимова, Т.. Теория и методика компьютерного моделирования для задач базы данных и глобальной сети.- Алматы, 2007.

5. Диго, С.М.. Базы данных: проектирование и использование.- М., 2005.

6. Марков, А.С.. Базы данных. Введение в теорию и методологию.- М., 2004.

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

8. Архангельский А.Я., Тагин М.А. Программирование в С++Builder 6 и 2006 – 2007г.

 

Программа коды:

Unit1

#include <vcl.h>

#pragma hdrstop

#include "Unit1.h"

#include "Unit2.h"

#include "Unit3.h"

#include "Unit4.h"

#include "Unit5.h"

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm1 *Form1;

__fastcall TForm1::TForm1(TComponent* Owner)

: TForm(Owner)

{

}

void __fastcall TForm1::Button1Click(TObject *Sender)

{

DBNavigator1->BtnClick(nbInsert);

}

void __fastcall TForm1::Button3Click(TObject *Sender)

{

DBNavigator1->BtnClick(nbDelete);

}

void __fastcall TForm1::Button4Click(TObject *Sender)

{

DBNavigator1->BtnClick(nbPrior);

}

void __fastcall TForm1::Button5Click(TObject *Sender)

{

DBNavigator1->BtnClick(nbNext);

}

void __fastcall TForm1::Button6Click(TObject *Sender)

{

DBNavigator2->BtnClick(nbPrior);

}

void __fastcall TForm1::Button7Click(TObject *Sender)

{

DBNavigator2->BtnClick(nbNext);

}

void __fastcall TForm1::Button8Click(TObject *Sender)

{

DBNavigator1->BtnClick(nbEdit);

}

void __fastcall TForm1::Button9Click(TObject *Sender)

{

DBNavigator1->BtnClick(nbCancel);

}

void __fastcall TForm1::N4Click(TObject *Sender)

{

Form3->Show();

}

void __fastcall TForm1::N6Click(TObject *Sender)

{

Form4->QuickRep1->Preview();

}

void __fastcall TForm1::Button10Click(TObject *Sender)

{

DBNavigator1->BtnClick(nbPost);

}

 

void __fastcall TForm1::N2Click(TObject *Sender)

{

Close();

}

void __fastcall TForm1::ToolButton1Click(TObject *Sender)

{

Close();

}

void __fastcall TForm1::N8Click(TObject *Sender)

{

Form5->Show();

}

void __fastcall TForm1::Button2Click(TObject *Sender)

{

MonthCalendar1->Visible=true;

}

void __fastcall TForm1::MonthCalendar1Click(TObject *Sender)

{

DBEdit4->Text = MonthCalendar1->Date;

MonthCalendar1->Visible=false;

}

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

 

#ifndef Unit1H

#define Unit1H

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

#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 <ComCtrls.hpp>

#include <Menus.hpp>

#include <ToolWin.hpp>

#include <Mask.hpp>

#include <ImgList.hpp>

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

class TForm1 : public TForm

{

__published: // IDE-managed Components

TDBGrid *DBGrid1;

TDBNavigator *DBNavigator2;

TMainMenu *MainMenu1;

TMenuItem *N1;

TMenuItem *N2;

TMenuItem *N3;

TMenuItem *N4;

TMenuItem *N5;

TMenuItem *N6;

TPanel *Panel1;

TLabel *Label1;

TDBComboBox *DBComboBox1;

TDBEdit *DBEdit1;

TLabel *Label2;

TLabel *Label3;

TDBEdit *DBEdit2;

TButton *Button1;

TDBNavigator *DBNavigator1;

TButton *Button3;

TButton *Button4;

TButton *Button5;

TButton *Button8;

TButton *Button9;

TButton *Button10;

TMenuItem *N7;

TMenuItem *N8;

TDBEdit *DBEdit3;

TLabel *Label4;

TDBEdit *DBEdit4;

TDBEdit *DBEdit5;

TLabel *Label5;

TLabel *Label6;

TButton *Button2;

TMonthCalendar *MonthCalendar1;

TDBEdit *DBEdit6;

TLabel *Label7;

void __fastcall Button1Click(TObject *Sender);

void __fastcall Button3Click(TObject *Sender);

void __fastcall Button4Click(TObject *Sender);

void __fastcall Button5Click(TObject *Sender);

void __fastcall Button6Click(TObject *Sender);

void __fastcall Button7Click(TObject *Sender);

void __fastcall Button8Click(TObject *Sender);

void __fastcall Button9Click(TObject *Sender);

void __fastcall N4Click(TObject *Sender);

void __fastcall N6Click(TObject *Sender);

void __fastcall Button10Click(TObject *Sender);

void __fastcall N2Click(TObject *Sender);

void __fastcall ToolButton1Click(TObject *Sender);

void __fastcall N8Click(TObject *Sender);

void __fastcall Button2Click(TObject *Sender);

void __fastcall MonthCalendar1Click(TObject *Sender);

private: // User declarations

public: // User declarations

__fastcall TForm1(TComponent* Owner);

};

extern PACKAGE TForm1 *Form1;

#endif

 

Unit2

#include <vcl.h>

#pragma hdrstop

#include "Unit2.h"

#pragma package(smart_init)

#pragma resource "*.dfm"

TDM *DM;

__fastcall TDM::TDM(TComponent* Owner)

: TDataModule(Owner)

{

}

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

 

#ifndef Unit2H

#define Unit2H

#include <Classes.hpp>

#include <Controls.hpp>

#include <StdCtrls.hpp>

#include <Forms.hpp>

#include <DB.hpp>

#include <DBTables.hpp>

class TDM : public TDataModule

{

__published: // IDE-managed Components

TTable *Tapteka;

TDataSource *DSapteka;

TDataSource *DSQuery;

TQuery *Query1;

private: // User declarations

public: // User declarations

__fastcall TDM(TComponent* Owner);

};

extern PACKAGE TDM *DM;

#endif

 

Unit3

 

#include <vcl.h>

#pragma hdrstop

#include "Unit3.h"

#include "Unit2.h"

#include "Unit1.h"

#include "Unit5.h"

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm3 *Form3;

: TForm(Owner)

{

}

void __fastcall TForm3::Button1Click(TObject *Sender)

{

AnsiString dd=Edit1->Text;

Query1->Close();

Query1->SQL->Clear();

Query1->SQL->Text="SELECT * FROM apteka WHERE TSENA <="+dd;

Query1->Open();

}

void __fastcall TForm3::Button2Click(TObject *Sender)

{

Form3->Close();

}

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

 

#include <Grids.hpp>

#include <ComCtrls.hpp>

#include <DB.hpp>

#include <DBTables.hpp>

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

class TForm3 : public TForm

{

__published: // IDE-managed Components

TButton *Button1;

 

TLabel *Label1;

TDBGrid *DBGrid3;

TEdit *Edit1;

TQuery *Query1;

TDataSource *DataSource1;

TButton *Button2;

void __fastcall Button1Click(TObject *Sender);

void __fastcall Button2Click(TObject *Sender);

private: // User declarations

public: // User declarations

__fastcall TForm3(TComponent* Owner);

};

extern PACKAGE TForm3 *Form3;

#endif

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

Unit4

#include <vcl.h>

#pragma hdrstop

#include "Unit4.h"

#include "Unit2.h"

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm4 *Form4;

__fastcall TForm4::TForm4(TComponent* Owner)

: TForm(Owner)

{

}

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

 

#ifndef Unit4H

#define Unit4H

#include <Controls.hpp>

#include <StdCtrls.hpp>

#include <Forms.hpp>

#include <DB.hpp>

#include <DBTables.hpp>

#include <ExtCtrls.hpp>

#include <QRCtrls.hpp>

#include <QuickRpt.hpp>

class TForm4 : public TForm

{

__published: // IDE-managed Components

TQuickRep *QuickRep1;

TQRBand *QRBand1;

TQRBand *QRBand2

TQRBand *QRBand3;

TQRLabel *QRLabel1;

TQRDBText *QRDBText1;

TQRDBText *QRDBText2;

TQRDBText *QRDBText3;

TQRDBText *QRDBText4;

TQRLabel *QRLabel2;

TQRLabel *QRLabel3;

TQRLabel *QRLabel4;

TQRLabel *QRLabel5;

TTable *Table1;

private: // User declarations

public: // User declarations

__fastcall TForm4(TComponent* Owner);

};

extern PACKAGE TForm4 *Form4;

#endif

 

Unit5

#include <vcl.h>

#pragma hdrstop

#include "Unit5.h"

#include "Unit2.h"

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm5 *Form5;

__fastcall TForm5::TForm5(TComponent* Owner)

: TForm(Owner)

{

}

void __fastcall TForm5::Button1Click(TObject *Sender)

{

Query10->Close();

Query10->SQL->Clear();

Query10->SQL->Add("SELECT COUNT(*) FROM apteka ");

Query10->Open();

}

void __fastcall TForm5::Button2Click(TObject *Sender)

{

}

 

#ifndef Unit5H

#define Unit5H

#include <Classes.hpp>

#include <Controls.hpp>

#include <StdCtrls.hpp>

#include <Forms.hpp>

#include <DBGrids.hpp>

#include <Grids.hpp>

#include <DB.hpp>

#include <DBTables.hpp>

class TForm5 : public TForm

{

__published: // IDE-managed Components

TDBGrid *DBGrid1;

TButton *Button1;

TDataSource *DataSource1;

TQuery *Query10;

void __fastcall Button1Click(TObject *Sender);

void __fastcall Button2Click(TObject *Sender);

private: // User declarations

public: // User declarations

__fastcall TForm5(TComponent* Owner);

};

extern PACKAGE TForm5 *Form5;

#endif