Курсовая_1 / test

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

#include <vcl.h>
#pragma hdrstop
#include <fstream>

using namespace std;

#include "test.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;

string query;
int staticquery;

void __fastcall TForm1::FormCreate(TObject *Sender)
{
        ADOTable2->Active=true;
        ADOTable3->Active=true;
        ADOQuery3->SQL->Add("Select *  from Авторы");
        ADOQuery3->Open();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::FormDestroy(TObject *Sender)
{
        ADOTable2->Active=false;
        ADOTable3->Active=false;
}

//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) {
        String pr="MSDataShape.1";
        String dpr="Microsoft.Jet.OLEDB.4.0";
        AnsiString tmp = ExtractFilePath(Application->ExeName) + "База\\Библиотека.mdb";
        const String ConnStr = "Provider=%s;Data Provider=%s;Data Source=%s";
        if (!ADOConnection1->Connected)
        {
                ADOConnection1->ConnectionString = Format (ConnStr,
                ARRAYOFCONST((pr,dpr, tmp)));
                ADOQuery1->Open();
        }
        if (!ADOConnection2->Connected)
        {
                ADOConnection2->ConnectionString = Format (ConnStr,
                ARRAYOFCONST((pr,dpr, tmp)));
                ADOQuery4->Open();
        }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
        ADOQuery1->Append();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::ComboBox1Change(TObject *Sender)
{
        AnsiString tabl;
        ADOQuery2->Close();
        ADOQuery2->SQL->Clear();
        switch(ComboBox1->ItemIndex)
        {
                case 0: tabl = "select * from Cдали_книгу"; break;
                case 1: tabl = "select * from Авторы"; break;
                case 2: tabl = "select * from Заказы"; break;
                case 3: tabl = "select * from Издательство"; break;
                case 4: tabl = "select * from Информация_о_заказе"; break;
                case 5: tabl = "select * from Клиенты"; break;
                case 6: tabl = "select * from Книги"; break;
                case 7: tabl = "select * from Телефонная_книга"; break;
        }
        ADOQuery2->SQL->Add(tabl);
        ADOQuery2->Open();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::RadioGroup1Click(TObject *Sender)
{
        if(RadioGroup1->ItemIndex==0)
                ADOTable2->IndexFieldNames="Фамилия";
        if(RadioGroup1->ItemIndex==1)
                ADOTable2->IndexFieldNames="Страна";
        if(RadioGroup1->ItemIndex==3)
                ADOTable2->IndexFieldNames="";
}
//---------------------------------------------------------------------------

void __fastcall TForm1::RadioGroup2Click(TObject *Sender)
{
        ADOTable2->Filtered=false;
        if(RadioGroup2->ItemIndex==0)
                ADOTable2->Filter="Фамилия='"+Edit1->Text+"'";
        ADOTable2->Filtered=true;
        if(RadioGroup2->ItemIndex==1)
                ADOTable2->Filter="Страна='"+Edit2->Text+"'";
        ADOTable2->Filtered=true;
        if(RadioGroup2->ItemIndex==3)
                ADOTable2->Filtered=false;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::ComboBox4Change(TObject *Sender)
{
       switch(ComboBox4->ItemIndex)
       {
                case 0: {
                query = "Select Книга from Книги where Код_автора=:ZAPROS";
                Edit3->Text = "1";
                staticquery = 2;
                Label7->Caption = "Введите код автора";
                Button3->Caption = "Книги Пушкина"; } break;
                case 1: {
                query = "Select Книга from Книги where Год_издания=:ZAPROS";
                Edit3->Text = "1970";
                staticquery = 1980;
                Label7->Caption = "Введите год издания";
                Button3->Caption = "Книги 1980 года издания"; } break;
       }
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button2Click(TObject *Sender)
{
        ADOQuery3->Close();
        ADOQuery3->SQL->Clear();
        std::string test(query);
        const char* x = test.c_str();
        ADOQuery3->SQL->Add(x);
        ADOQuery3->Parameters->ParamByName("ZAPROS")->Value=Edit3->Text;
        ADOQuery3->Open();
        DBGrid3->Visible=true;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button3Click(TObject *Sender)
{
        ADOQuery3->Close();
        ADOQuery3->SQL->Clear();
        std::string test(query);
        const char* x = test.c_str();
        ADOQuery3->SQL->Add(x);
        ADOQuery3->Parameters->ParamByName("ZAPROS")->Value=staticquery;
        ADOQuery3->Open();
        DBGrid3->Visible=true;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::ComboBox2Change(TObject *Sender)
{
        switch(ComboBox2->ItemIndex)
        {
                case 0: DBEdit1->Text = "Л. Н. Толстой"; break;
                case 1: DBEdit1->Text = "А. С. Пушкин"; break;
                case 2: DBEdit1->Text = "Т.Г. Шевченко"; break;
                case 3: DBEdit1->Text = "Эрих Мария Ремарк"; break;
                case 4: DBEdit1->Text = "И.Я. Франко"; break;
                case 5: DBEdit1->Text = "Фабрис Керервэ"; break;
                case 6: DBEdit1->Text = "Александр Дюма"; break;
                case 7: DBEdit1->Text = "М. Ю. Лермонтов"; break;
                case 8: DBEdit1->Text = "Ф. М. Достоевский"; break;
                case 9: DBEdit1->Text = "М. Горький"; break;
                case 10: DBEdit1->Text = "Шопенгауер"; break;
                case 11: DBEdit1->Text = "Лесков"; break;
        }
}
//---------------------------------------------------------------------------

void __fastcall TForm1::ComboBox3Change(TObject *Sender)
{
        switch(ComboBox3->ItemIndex)
        {
                case 0: DBEdit2->Text = "Россия"; break;
                case 1: DBEdit2->Text = "Украина"; break;
                case 2: DBEdit2->Text = "Германия"; break;
                case 3: DBEdit2->Text = "Франция"; break;
                case 4: DBEdit2->Text = "Шведция"; break;
                case 5: DBEdit2->Text = "Англия"; break;
                case 6: DBEdit2->Text = "Италия"; break;
                case 7: DBEdit2->Text = "Швейцария"; break;
                case 8: DBEdit2->Text = "США"; break;
                case 9: DBEdit2->Text = "Китай"; break;
                case 10: DBEdit2->Text = "Япония"; break;
        }
}

//---------------------------------------------------------------------------
void __fastcall TForm1::Button4Click(TObject *Sender)
{
        ADOQuery4->Append();
}
//---------------------------------------------------------------------------



void __fastcall TForm1::RadioGroup3Click(TObject *Sender)
{
        if(RadioGroup3->ItemIndex==0)
                ADOTable3->IndexFieldNames="Книга";
        if(RadioGroup3->ItemIndex==1)
                ADOTable3->IndexFieldNames="Цена";
        if(RadioGroup3->ItemIndex==3)
                ADOTable3->IndexFieldNames="";
}
//---------------------------------------------------------------------------

void __fastcall TForm1::RadioGroup4Click(TObject *Sender)
{
        ADOTable3->Filtered=false;
        if(RadioGroup4->ItemIndex==0)
                ADOTable3->Filter="Книга='"+Edit4->Text+"'";
        ADOTable3->Filtered=true;
        if(RadioGroup4->ItemIndex==1)
                ADOTable3->Filter="Цена='"+Edit5->Text+"'";
        ADOTable3->Filtered=true;
        if(RadioGroup4->ItemIndex==3)
                ADOTable3->Filtered=false;
}
//---------------------------------------------------------------------------