Домашняя библиотека

{

      SearchForm->Show();

}

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

void __fastcall TMainForm::bDelClick(TObject *Sender)

{

        HomeBibl b;

        b.avtor = Table->Cells[0][Table->Row].c_str();

        b.name = Table->Cells[1][Table->Row].c_str();

        b.year = StrToInt(Table->Cells[2][Table->Row]);

        int res = Application->MessageBox("Вы действительно хотите удалить книгу?", "", MB_YESNOCANCEL + MB_ICONQUESTION);

        switch (res) {

                case IDYES: {b.DelBook(Table->Row-1);ShowMessage("Книжка успешно удалена!"); break;};

                case IDNO: break;

                case IDCANCEL: break;

        }

        MainForm->Activate(); 

}

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

void __fastcall TMainForm::bRedactClick(TObject *Sender)

{

         //заполняем текстовые поля значением  из выделенной книги

        EditForm->eAvtor->Text = Table->Cells[0][Table->Row];

        EditForm->eBook->Text = Table->Cells[1][Table->Row];

        EditForm->eYear->Text = Table->Cells[2][Table->Row];

        EditForm->Edit1->Text = Table->Row-1;

        EditForm->Show();

        MainForm->Activate();

}

void __fastcall TMainForm::FormClose(TObject *Sender, TCloseAction &Action)

{

        for(int i=0;i<numRecords;i++){

          free(ob[i].avtor);

          free(ob[i].name);

        }

} 

ProgInfUnit.cpp 

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

#include <vcl.h>

#pragma hdrstop 

#include "ProgInfUnit.h"

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

#pragma package(smart_init)

#pragma resource "*.dfm"

TInfForm *InfForm;

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

__fastcall TInfForm::TInfForm(TComponent* Owner)

        : TForm(Owner)

{

}

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

void __fastcall TInfForm::bOKClick(TObject *Sender)

{

    InfForm->Close();

}

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

SearchUnit.cpp 

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

#include <vcl.h>

#pragma hdrstop

#include <stdio.h>

#include <stdlib.h>

#include <string.h>

#include <ctype.h>

#pragma hdrstop 

#include "Bibl.cpp"

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

#pragma package(smart_init)

#pragma resource "*.dfm"

#include "SearchUnit.h"

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

#pragma package(smart_init)

#pragma resource "*.dfm"

TSearchForm *SearchForm;

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

__fastcall TSearchForm::TSearchForm(TComponent* Owner)

        : TForm(Owner)

{

}

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

void __fastcall TSearchForm::Button3Click(TObject *Sender)

{

        SearchForm->Close();

}

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

void __fastcall TSearchForm::FormShow(TObject *Sender)

{

        STable->Cells[0][0]= "Автор";

        STable->Cells[1][0]= "Названи книги";

        STable->Cells[2][0]= "Год издания"; 

}

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

void __fastcall TSearchForm::Button2Click(TObject *Sender)

{

        HomeBibl book;

        char *s;

        //avtor

        s = (char *) malloc((strlen(EAvtor->Text.c_str())) +1);

        strcpy(s, AnsiLowerCase(EAvtor->Text).c_str());

        book.avtor = s;

        //name

        s = (char *) malloc((strlen(EName->Text.c_str())) +1);

        strcpy(s, AnsiLowerCase(EName->Text).c_str());

        book.name = s;

        //year

        //s = (char *) malloc((strlen(EYear->Text.c_str())) +1);

        //strcpy(s, EYear->Text.c_str());

        if (EYear->Text!="") book.year = StrToInt(EYear->Text); else book.year = 0;

        book.SearchBook();

        STable->Font->Style=TFontStyles()<<fsBold;

        STable->Cells[0][0]="Автор книги";

        STable->Cells[1][0]="Название книги";

        STable->Cells[2][0]="Год издания";

        fillGrid(STable);

}

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