База данных не реагирует на нажатие клавиш

Файл«main.h» содержит такой код: 
//--------------------------------------------------------------------------- 
#ifndef mainH 
#define mainH 
//--------------------------------------------------------------------------- 
#include <Classes.hpp> 
#include <Controls.hpp> 
#include <StdCtrls.hpp> 
#include <Forms.hpp> 
#include <DBCtrls.hpp> 
#include <ExtCtrls.hpp> 
#include <ButtonGroup.hpp> 
#include <ComCtrls.hpp> 
#include <Menus.hpp> 
//--------------------------------------------------------------------------- 
class TForm1 : public TForm 
{ 
__published: // IDE-managed Components 
TGroupBox *GroupBox1; 
TEdit *Edit1; 
TLabel *Label2; 
TLabel *Label3; 
TEdit *Edit2; 
TLabel *Label4; 
TEdit *Edit3; 
TLabel *Label5; 
TEdit *Edit12; 
TLabel *Label6; 
TEdit *Edit13; 
TStatusBar *StatusBar1; 
TPanel *Panel1; 
TButton *Button1; 
TButton *Button2; 
TButton *Button3; 
TButton *Button4; 
TButton *Button5; 
TButton *Button6; 
TButton *Button7; 
TButton *Button8; 
TButton *Button9; 
TButton *Button10; 
TEdit *Edit4; 
TLabel *Label1; 
TMainMenu *MainMenu1; 
TMenuItem *N111; 
TMenuItem *N221; 
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; 
void __fastcall FormCreate(TObject *Sender); 
void __fastcall Button1Click(TObject *Sender); 
void __fastcall Button2Click(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 Button10Click(TObject *Sender); 
void __fastcall N221Click(TObject *Sender); 
void __fastcall N1Click(TObject *Sender); 
void __fastcall N2Click(TObject *Sender); 
void __fastcall N3Click(TObject *Sender); 
void __fastcall N4Click(TObject *Sender); 
void __fastcall N5Click(TObject *Sender); 
void __fastcall N6Click(TObject *Sender); 
void __fastcall N7Click(TObject *Sender); 
void __fastcall N8Click(TObject *Sender); 
void __fastcall N9Click(TObject *Sender); 
void __fastcall N10Click(TObject *Sender); 
void __fastcall N12Click(TObject *Sender); 
void __fastcall N13Click(TObject *Sender); 
private: // User declarations 
public: // User declarations 
__fastcall TForm1(TComponent* Owner); 
struct TZoo 
{
int nomer; 
char Vid[100]; 
char Klichka[50]; 
int Vozrast; 
double Ves; 
} Zoo[50]; 
int nom; 
int all; 
int tip; 
}; 
//--------------------------------------------------------------------------- 
extern PACKAGE TForm1 *Form1; 
//--------------------------------------------------------------------------- 
#endif
//--------------------------------------------------------------------------- 
#include <vcl.h> 
#include<stdio.h> 
#pragma hdrstop 
#include "main.h" 
#include "Unit2.h" 
//--------------------------------------------------------------------------- 
#pragma package(smart_init) 
#pragma resource "*.dfm" 
TForm1 *Form1; 
//--------------------------------------------------------------------------- 
__fastcall TForm1::TForm1(TComponent* Owner) 
: TForm(Owner) 
{ 
}
//--------------------------------------------------------------------------- 
// В момент создания главной формы происходит инициация элементов
// интерфейса, первых семи записей массива структуры Зоопарка, 
// управляющих переменных
void __fastcall TForm1::FormCreate(TObject *Sender) 
{ 
Zoo[0].nomer=1; 
strcpy(Zoo[0].Vid, "Кошка"); 
strcpy(Zoo[0].Klichka, "Сима"); 
Zoo[0].Vozrast=5; 
Zoo[0].Ves=4.2; 
Zoo[1].nomer=2; 
strcpy(Zoo[1].Vid, "Бигимот"); 
strcpy(Zoo[1].Klichka, "Бим"); 
Zoo[1].Vozrast=8; 
Zoo[1].Ves=956; 
Zoo[2].nomer=3; 
strcpy(Zoo[2].Vid, "Жираф"); 
strcpy(Zoo[2].Klichka, "Петя"); 
Zoo[2].Vozrast=5; 
Zoo[2].Ves=756; 
Zoo[3].nomer=4; 
strcpy(Zoo[3].Vid, "Тигр"); 
strcpy(Zoo[3].Klichka, "Ванька"); 
Zoo[3].Vozrast=12; 
Zoo[3].Ves=463; 
Zoo[4].nomer=5; 
strcpy(Zoo[4].Vid, "Косуля"); 
strcpy(Zoo[4].Klichka, "Ольчик"); 
Zoo[4].Vozrast=5; 
Zoo[4].Ves=81; 
Zoo[5].nomer=6; 
strcpy(Zoo[5].Vid, "Удав"); 
strcpy(Zoo[5].Klichka, "Пятнашка"); 
Zoo[5].Vozrast=6; 
Zoo[5].Ves=32; 
Zoo[6].nomer=7; 
strcpy(Zoo[6].Vid, "Медведь"); 
strcpy(Zoo[6].Klichka, "Гризля"); 
Zoo[6].Vozrast=9; 
Zoo[6].Ves=562;
all=7; 
nom=0; 
Edit1 -> Text = Zoo[nom].nomer; 
Edit2 -> Text = Zoo[nom].Vid; 
Edit3 -> Text = Zoo[nom].Klichka; 
Edit12 -> Text = Zoo[nom].Vozrast; 
Edit13 -> Text = Zoo[nom].Ves; 
StatusBar1 -> SimpleText = "Просмотр записей"; 
StatusBar1 -> SimpleText = "Добавление записи"; 
Button8 -> Enabled = false; Button9 -> Enabled = false; 
Edit4 -> Text = all; 
} 
//--------------------------------------------------------------------------- 
// Перейти к первой записи базы Зоопарк
void __fastcall TForm1::Button1Click(TObject *Sender) 
{ 
nom=0; 
Edit1 -> Text = Zoo[nom].nomer; 
Edit2 -> Text = Zoo[nom].Vid; 
Edit3 -> Text = Zoo[nom].Klichka; 
Edit12 -> Text = Zoo[nom].Vozrast; 
Edit13 -> Text = Zoo[nom].Ves; 
StatusBar1 -> SimpleText = "Просмотр записей"; 
} 
//--------------------------------------------------------------------------- 
// Перейти на одну запись назад в базе Зоопарк
void __fastcall TForm1::Button2Click(TObject *Sender) 
{ 
if (nom <= 0) nom=all-1; else nom--; 
Edit1 -> Text = Zoo[nom].nomer; 
Edit2 -> Text = Zoo[nom].Vid; 
Edit3 -> Text = Zoo[nom].Klichka; 
Edit12 -> Text = Zoo[nom].Vozrast; 
Edit13 -> Text = Zoo[nom].Ves; 
StatusBar1 -> SimpleText = "Просмотр записей"; 
} 
//--------------------------------------------------------------------------- 
// Перейти на одну запись вперед в базе Зоопарк
void __fastcall TForm1::Button3Click(TObject *Sender) 
{ 
if (nom >= all-1) nom=0; else nom++; 
Edit1 -> Text = Zoo[nom].nomer; 
Edit2 -> Text = Zoo[nom].Vid; 
Edit3 -> Text = Zoo[nom].Klichka; 
Edit12 -> Text = Zoo[nom].Vozrast; 
Edit13 -> Text = Zoo[nom].Ves; 
StatusBar1 -> SimpleText = "Просмотр записей"; 
}
//--------------------------------------------------------------------------- 
// Перейти к последней записи в базе Зоопарк
void __fastcall TForm1::Button4Click(TObject *Sender) 
{ 
nom=all-1; 
Edit1 -> Text = Zoo[nom].nomer; 
Edit2 -> Text = Zoo[nom].Vid; 
Edit3 -> Text = Zoo[nom].Klichka; 
Edit12 -> Text = Zoo[nom].Vozrast; 
Edit13 -> Text = Zoo[nom].Ves; 
StatusBar1 -> SimpleText = "Просмотр записей"; 
} 
//--------------------------------------------------------------------------- 
// Начать редактировать текущую запись в базе Зоопарк
void __fastcall TForm1::Button5Click(TObject *Sender) 
{ 
Button1 -> Enabled = false; Button2 -> Enabled = false; 
Button3 -> Enabled = false; Button4 -> Enabled = false; 
Button6 -> Enabled = false; Button7 -> Enabled = false; 
Button10 -> Enabled = false; 
Button8 -> Enabled = true; Button9 -> Enabled = true; 
Edit1 -> Clear(); Edit2 -> Clear(); Edit3 -> Clear(); 
Edit12 -> Clear(); Edit13 -> Clear(); 
StatusBar1 -> SimpleText = "Добавление записи"; 
Edit1 -> Text = all+1; 
Edit2 -> Enabled = true; Edit3 -> Enabled = true; 
Edit12 -> Enabled = true; Edit13 -> Enabled = true; 
tip=0; 
} 
//--------------------------------------------------------------------------- 
// Удалить текущую запись из базы Зоопарк
void __fastcall TForm1::Button6Click(TObject *Sender) 
{ 
StatusBar1 -> SimpleText = "Удаление записи"; 
if (MessageDlg("Вы уверены что хотите удалить текущую запись?", mtConfirmation, 
mbOKCancel, 0) == mrOk) 
{ 
for (int i = nom; i <= all-1; i++) 
{ 
Zoo[i].nomer = Zoo[i+1].nomer-1; 
strcpy(Zoo[i].Vid, Zoo[i+1].Vid); 
strcpy(Zoo[i].Klichka, Zoo[i+1].Klichka); 
Zoo[i].Vozrast = Zoo[i+1].Vozrast; 
Zoo[i].Ves = Zoo[i+1].Ves; 
}
all--; 
Edit1 -> Text = Zoo[nom].nomer; 
Edit2 -> Text = Zoo[nom].Vid; 
Edit3 -> Text = Zoo[nom].Klichka; 
Edit12 -> Text = Zoo[nom].Vozrast; 
Edit13 -> Text = Zoo[nom].Ves; 
} 
Edit4 -> Text = all; 
} 
//--------------------------------------------------------------------------- 
// Редактировать текущую запись в базе Зоопарк
void __fastcall TForm1::Button7Click(TObject *Sender) 
{ 
Button1 -> Enabled = false; Button2 -> Enabled = false; 
Button3 -> Enabled = false; Button4 -> Enabled = false; 
Button6 -> Enabled = false; Button7 -> Enabled = false; 
Button10 -> Enabled = false; 
Button8 -> Enabled = true; Button9 -> Enabled = true; 
Edit2 -> Enabled = true; Edit3 -> Enabled = true; 
Edit12 -> Enabled = true; Edit13 -> Enabled = true; 
tip=1; 
StatusBar1 -> SimpleText = "Редактирование записи"; 
} 
//--------------------------------------------------------------------------- 
// Принять изменения редактирования текущей записи в базе Зоопарк
// или добавления новое записи в конец базы Зоопарк
void __fastcall TForm1::Button8Click(TObject *Sender) 
{ 
if (tip == 0) 
{ 
all++; 
nom=all-1; 
}; 
char s[100]; int e; 
Edit1 -> GetTextBuf(s,100); Zoo[nom].nomer = atof(s); 
Edit2 -> GetTextBuf(s,100); strcpy(Zoo[nom].Vid, s); 
Edit3 -> GetTextBuf(s,100); strcpy(Zoo[nom].Klichka, s); 
Edit12 -> GetTextBuf(s,100); Zoo[nom].Vozrast = atof(s); 
Edit13 -> GetTextBuf(s,100); Zoo[nom].Ves = atof(s); 
Button8 -> Enabled = false; Button9 -> Enabled = false; 
Button1 -> Enabled = true; Button2 -> Enabled = true; 
Button3 -> Enabled = true; Button4 -> Enabled = true; 
Button6 -> Enabled = true; Button7 -> Enabled = true; 
Button10 -> Enabled = true; 
StatusBar1 -> SimpleText = "Просмотр записей"; 
Edit1 -> Enabled = false; Edit2 -> Enabled = false; 
Edit3 -> Enabled = false; Edit12 -> Enabled = false; 
Edit13 -> Enabled = false;
Edit4 -> Text = all; 
} 
//--------------------------------------------------------------------------- 
// Отказаться от изменений редактирования или добавления
// и перейти к режиму просмотра
void __fastcall TForm1::Button9Click(TObject *Sender) 
{ 
Button8 -> Enabled = false; Button9 -> Enabled = false; 
Button1 -> Enabled = true; Button2 -> Enabled = true; 
Button3 -> Enabled = true; Button4 -> Enabled = true; 
Button6 -> Enabled = true; Button7 -> Enabled = true; 
Button10 -> Enabled = true; 
StatusBar1 -> SimpleText = "Просмотр записей"; 
Edit1 -> Enabled = false; Edit2 -> Enabled = false; 
Edit3 -> Enabled = false; Edit12 -> Enabled = false; 
Edit13 -> Enabled = false; 
Button1Click(Sender); 
} 
//--------------------------------------------------------------------------- 
// Искать записи по одному из критериев– открывается вторая форма
void __fastcall TForm1::Button10Click(TObject *Sender) 
{ 
StatusBar1 -> SimpleText = "Поиск записей"; 
Form2 -> Show (); 
} 
//--------------------------------------------------------------------------- 
// Выйти из программы
void __fastcall TForm1::N10Click(TObject *Sender) 
{ 
Application->Terminate(); 
} 
//--------------------------------------------------------------------------- 
//Считать данные из файла
void __fastcall TForm1::N12Click(TObject *Sender) 
{ 
int n; 
n=0; 
int i; 
for (i = 0; i <= all-1; i++) 
{ 
Zoo[i].nomer=0; 
strcpy(Zoo[i].Vid, ""); 
strcpy(Zoo[i].Klichka, ""); 
Zoo[i].Vozrast=0; 
Zoo[i].Ves=0;
} 
FILE *f; 
f=fopen("dannie.txt","r"); 
if(f==NULL) 
{ 
printf("\n Ошибка открытия файла\"dannie.txt\" ") ; 
} 
fscanf(f,"%d",&all); 
while(!feof(f)) 
{ 
fscanf(f,"%d",&Zoo[n].nomer); 
fscanf(f,"%s",&Zoo[n].Vid); 
fscanf(f,"%s",&Zoo[n].Klichka); 
fscanf(f,"%d",&Zoo[n].Vozrast); 
fscanf(f,"%f",&Zoo[n].Ves); 
n++; 
} 
fclose(f); 
Edit4 -> Text = all; 
n=1; 
nom=n; 
Button1Click(Sender); 
} 
//--------------------------------------------------------------------------- 
//Записать данные в файл
void __fastcall TForm1::N13Click(TObject *Sender) 
{ 
FILE *f; 
f=fopen("dannie.txt","w"); 
fprintf(f,"%d\n",all); 
int i; 
for (i = 0; i <= all-1; i++) 
{ 
fprintf(f,"%d\n",Zoo[i].nomer); 
fprintf(f,"%s\n",Zoo[i].Vid); 
fprintf(f,"%s\n",Zoo[i].Klichka); 
fprintf(f,"%d\n",Zoo[i].Vozrast); 
fprintf(f,"%f\n",Zoo[i].Ves); 
} 
fclose(f); 
} 
//--------------------------------------------------------------------------- 
// Все остальные функции– это дублирование кнопочных функций
// главным меню
void __fastcall TForm1::N221Click(TObject *Sender) 
{ 
Button1Click(Sender); 
}
//--------------------------------------------------------------------------- 
void __fastcall TForm1::N1Click(TObject *Sender) 
{ 
Button2Click(Sender); 
} 
//--------------------------------------------------------------------------- 
void __fastcall TForm1::N2Click(TObject *Sender) 
{ 
Button3Click(Sender); 
} 
//--------------------------------------------------------------------------- 
void __fastcall TForm1::N3Click(TObject *Sender) 
{ 
Button4Click(Sender); 
} 
//--------------------------------------------------------------------------- 
void __fastcall TForm1::N4Click(TObject *Sender) 
{ 
Button5Click(Sender); 
} 
//--------------------------------------------------------------------------- 
void __fastcall TForm1::N5Click(TObject *Sender) 
{ 
Button6Click(Sender); 
} 
//--------------------------------------------------------------------------- 
void __fastcall TForm1::N6Click(TObject *Sender) 
{ 
Button7Click(Sender); 
} 
//--------------------------------------------------------------------------- 
void __fastcall TForm1::N7Click(TObject *Sender) 
{ 
Button8Click(Sender); 
} 
//--------------------------------------------------------------------------- 
void __fastcall TForm1::N8Click(TObject *Sender) 
{ 
Button9Click(Sender); 
} 
//--------------------------------------------------------------------------- 
void __fastcall TForm1::N9Click(TObject *Sender) 
{
Button10Click(Sender); 
} 
//--------------------------------------------------------------------------- 
Файл«Unit2.h» содержит такой код: 
//--------------------------------------------------------------------------- 
#ifndef Unit2H 
#define Unit2H 
//--------------------------------------------------------------------------- 
#include <Classes.hpp> 
#include <Controls.hpp> 
#include <StdCtrls.hpp> 
#include <Forms.hpp> 
//--------------------------------------------------------------------------- 
class TForm2 : public TForm 
{ 
__published: // IDE-managed Components 
TLabel *Label2; 
TComboBox *ComboBox1; 
TLabel *Label1; 
TButton *Button1; 
TButton *Button2; 
TEdit *Edit1; 
TMemo *Memo1; 
void __fastcall Button2Click(TObject *Sender); 
void __fastcall Button1Click(TObject *Sender); 
void __fastcall ComboBox1Click(TObject *Sender); 
void __fastcall ComboBox1Change(TObject *Sender); 
void __fastcall FormActivate(TObject *Sender); 
void __fastcall AddZoo(int n); 
private: // User declarations 
public: // User declarations 
__fastcall TForm2(TComponent* Owner); 
char st[20]; 
}; 
//--------------------------------------------------------------------------- 
extern PACKAGE TForm2 *Form2; 
//--------------------------------------------------------------------------- 
#endif
Файл«Unit2.cpp» содержит такой код: 
//--------------------------------------------------------------------------- 
#include <vcl.h> 
#pragma hdrstop 
#include "Unit2.h" 
#include "Main.h"
//--------------------------------------------------------------------------- 
#pragma package(smart_init) 
#pragma resource "*.dfm" 
TForm2 *Form2; 
//--------------------------------------------------------------------------- 
__fastcall TForm2::TForm2(TComponent* Owner) 
: TForm(Owner) 
{ 
} 
//--------------------------------------------------------------------------- 
// Вспомогательная функция– по добавлению полей найденной записи в
// строку компонентаMemo1, в который выводится результат поиска
void __fastcall TForm2::AddZoo(int n) 
{ 
char sr[300]=""; 
char ss[10]; 
itoa(Form1 -> Zoo[n].nomer, ss, 10); 
strcat(sr,ss); 
strcat(sr, " "); 
strcat(sr, Form1 -> Zoo[n].Vid); 
strcat(sr, " "); 
strcat(sr, Form1 -> Zoo[n].Klichka); 
strcat(sr, " "); 
itoa(Form1 -> Zoo[n].Vozrast, ss, 10); 
strcat(sr, " "); 
itoa(Form1 -> Zoo[n].Ves, ss, 10); 
strcat(sr,ss); 
Memo1 -> Lines ->Add(sr); 
} 
// Закрыть окно поиска
void __fastcall TForm2::Button2Click(TObject *Sender) 
{ 
Close(); 
} 
// Выполнить поиск– перебором всех записей и отбором нужных
void __fastcall TForm2::Button1Click(TObject *Sender) 
{ 
Memo1 -> Clear(); 
char s1[20]; char s2[30]; 
int k; 
ComboBox1 -> GetTextBuf(s1,20); Edit1 -> GetTextBuf(s2,30); 
k = ComboBox1 -> ItemIndex; 
int i; 
for (i = 0; i <= Form1 -> all-1; i++) 
{ 
if (k == 0) { if ((Form1 -> Zoo[i].nomer) == atof(s2) ) { AddZoo(i); } } 
if (k == 1) { if (strstr(Form1 -> Zoo[i].Vid, s2) !=0 ) { AddZoo(i); } } 
if (k == 2) { if (strstr(Form1 -> Zoo[i].Klichka, s2) !=0 ) { AddZoo(i); } }
if (k == 3) { if ((Form1 ->Zoo[i].Vozrast) == atof(s2) ) { AddZoo(i); } } 
if (k == 4) { if ((Form1 ->Zoo[i].Ves) == atof(s2) ) { AddZoo(i); } } 
} 
} 
//--------------------------------------------------------------------------- 
void __fastcall TForm2::ComboBox1Click(TObject *Sender) 
{ 
ComboBox1 -> GetTextBuf(st,20); 
} 
//--------------------------------------------------------------------------- 
void __fastcall TForm2::ComboBox1Change(TObject *Sender) 
{ 
ComboBox1 -> Text = st; 
} 
//--------------------------------------------------------------------------- 
void __fastcall TForm2::FormActivate(TObject *Sender) 
{ 
Memo1 ->Clear(); 
} 
//---------------------------------------------------------------------------