Продовження додатку 2.

Form1->ADODataSet1->Close();

Form1->ADODataSet1->CommandText="SELECT * FROM Студент WHERE `Roboya/Uchoba` Like \042%"+

Form2->Edit1->Text+"%\042";

Form1->DBGrid1->Visible=true;

}

Form1->ADODataSet1->Open();

if(Form1->ADODataSet1->RecordCount==0){

Form1->ADODataSet1->Filtered=false;

ShowMessage("В БД нет записей, удовлетворяющих критерию запроса");}}}

void Zapis::poiscDataRogdeniya()

{

if(Form1->ComboBox2->ItemIndex==4){

Form1->DBGrid1->Visible=false;

Form1->DBNavigator1->Visible=false;

Form2->ShowModal();

if(Form2->ModalResult==mrOk){

Form1->ADODataSet1->Close();

Form1->ADODataSet1->CommandText="SELECT * FROM Студент WHERE `DataRogdeniya` Like \042%"+

Form2->Edit1->Text+"%\042";

Form1->DBGrid1->Visible=true;

}

Form1->ADODataSet1->Open();

Form2->Edit1->Clear();

if(Form1->ADODataSet1->RecordCount==0){

Form1->ADODataSet1->Filtered=false;

ShowMessage("В БД нет записей, удовлетворяющих критерию запроса");}}}

void Zapis::denrogdenya()

{

Form1->Edit1->Text=Form1->Date->Date.CurrentDate();

Form1->Edit1->Text=Form1->Edit1->Text.SubString(0,5);

Form1->ADODataSet1->Close();

Form1->ADODataSet1->CommandText="SELECT * FROM Студент WHERE `DataRogdeniya` Like \042%"+

Form1->Edit1->Text+"%\042";

Form1->DBGrid1->Visible=true;

Form1->ADODataSet1->Open();

if(Form1->ADODataSet1->RecordCount==0)Form1->DBGrid1->Visible=false;

else Form1->Label6->Visible=true;

}

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

__fastcall TForm1::TForm1(TComponent* Owner)

: TForm(Owner)

{

}

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

void __fastcall TForm1::FormActivate(TObject *Sender)

{