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

Form1->Panel1->Visible=true;

}

void Zapis::RadioButton2Click()

{

Form1->Label6->Visible=false;

if(Form1->RadioButton2->Checked==true){

Form1->ADODataSet1->Close();

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

Form1->ADODataSet1->Open();

Form1->Panel1->Visible=true;

Form1->DBGrid1->Visible=false;

Form1->DBEdit1->Visible=true;

Form1->DBEdit2->Visible=true;

Form1->DBEdit3->Visible=true;

Form1->DBEdit4->Visible=true;

Form1->DBEdit5->Visible=true;

Form1->Label1->Visible=true;

Form1->Label2->Visible=true;

Form1->Label3->Visible=true;

Form1->Label4->Visible=true;

Form1->Label5->Visible=true;

Form1->DBNavigator1->Visible=true;

Form1->RadioButton1->Action;

}

else

{

Form1->Panel1->Visible=false;

Form1->DBGrid1->Visible=true;

Form1->DBEdit1->Visible=false;

Form1->DBEdit2->Visible=false;

Form1->DBEdit3->Visible=false;

Form1->DBEdit4->Visible=false;

Form1->DBEdit5->Visible=false;

Form1->Label1->Visible=false;

Form1->Label2->Visible=false;

Form1->Label3->Visible=false;

Form1->Label4->Visible=false;

Form1->Label5->Visible=false;

Form1->DBNavigator1->Visible=false;

}

}

void Zapis::RadioButton3Click()

{

Form1->Label6->Visible=false;

if(Form1->RadioButton3->Checked==true){

Form3->ShowModal();

if(Form3->ModalResult==mrOk){

Form3->Calendar->Visible=true;

Form1->RadioButton3->SetFocus();

}

}

}