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

void Zapis::sortFamiliya()

{

Form1->Label6->Visible=false;

Form1->ADODataSet1->Close();

Form1->ADODataSet1->CommandText="SELECT * FROM Студент ORDER BY `Familiya`";

Form1->ADODataSet1->Open();

Form1->DBGrid1->Visible=true;}}

void Zapis::sortAdress()

{

Form1->Label6->Visible=false;

if(Form1->ComboBox1->ItemIndex==1){

Form1->ADODataSet1->Close();

Form1->ADODataSet1->CommandText="SELECT * FROM Студент ORDER BY `Adress`";

Form1->ADODataSet1->Open();

Form1->DBGrid1->Visible=true;}}

void Zapis::sortTelefon()

{

Form1->Label6->Visible=false;

if(Form1->ComboBox1->ItemIndex==2){

Form1->ADODataSet1->Close();

Form1->ADODataSet1->CommandText="SELECT * FROM Студент ORDER BY `Telefon`";

Form1->ADODataSet1->Open();

Form1->DBGrid1->Visible=true;}}

void Zapis::sortRobotaUchoba()

{

Form1->Label6->Visible=false;

if(Form1->ComboBox1->ItemIndex==3){

Form1->ADODataSet1->Close();

Form1->ADODataSet1->CommandText="SELECT * FROM Студент ORDER BY `Robota/Uchoba`";

Form1->ADODataSet1->Open();

Form1->DBGrid1->Visible=true;}}

void Zapis::sortDataRogdeniya()

{

Form1->Label6->Visible=false;

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

Form1->ADODataSet1->Close();

Form1->ADODataSet1->CommandText="SELECT * FROM Студент ORDER BY `DataRogdeniya`";

Form1->ADODataSet1->Open();

Form1->DBGrid1->Visible=true;}}

void Zapis::poiscFamiliya()

{

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

Form1->DBGrid1->Visible=false;

Form1->DBNavigator1->Visible=false;

Form2->ShowModal();

if(Form2->ModalResult==mrOk){

Form1->ADODataSet1->Close();

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