Базы данных: . Баканов В.М - 24 стр.

  Таблица 3.— Имена функций, вызываемых по нажатию кнопок
              на форме рис.13.

    Название компонента-кнопки                  Имя вызываемой процедуры
         RunManuallyInput                            RunSqlFromEdit
           ClearAllInGrid                             ShowAllTable
          SelectByLength                             SelectByMinMax
         SelectByFirstChar                       SelectByFirstCharName
         SelectByAnytChar                        SelectByAnyCharName

  Текст содержащего эти функции файла Unit1.cpp приведен ниже (заголовок
процедуры RunSQL создан вручную, строка
  void __fastcall RunSQL(char* stringSQL);
добавлена в секцию
  __published: // IDE-managed Components
файла Unit1.h таким же образом.

//---------------------------------------------------------------------------
#include 
#include "stdio.h" // необходимо для использования функций семейства str***
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
 char s_const[]="SELECT * FROM biolife WHERE "; // постоянная часть SQL
//---------------------------------------------------------------------------


__fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner)
{
} // конец функции -----

void __fastcall TForm1::RunSqlFromEdit(TObject *Sender)
{
 RunSQL(Edit_ManualInput->Text.c_str());
} // конец функции -----


void __fastcall TForm1::ShowAllTable(TObject *Sender)
{
 RunSQL("select * from biolife");
} // конец функции ShowAllTable -----




                                       - 24 -