Написание программы с использованием команд void prepod_see(int n), void admin_see(), void students_see(), void not_see2(bool t), страница 3

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

void __fastcall TForm2::Button2Click(TObject *Sender)

{ AnsiString s;

if(AnsiPos('#',Form2->Edit6->Text)||AnsiPos('/',Form2->Edit6->Text)){ShowMessage("В пароле запрещено использовать сииволы # и / ");}

else

    {if(Form2->Edit6->Text!=""){

        if(parol_2(Form2->Edit6->Text,1,0)==0)ShowMessage("такой пароль уже сушествует");

        else{Form1->Memo1->Lines->Strings[0]=Form2->Edit6->Text;

             s=GetDir(); s=s+"БД\\pas.txt";

             Form1->Memo1->Lines->SaveToFile(s);

             ShowMessage("Изменения внесены.");

            } 

    }else ShowMessage("Введите новый пароль");

  }

}

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

void __fastcall TForm2::Button4Click(TObject *Sender)

{AnsiString s;

if(AnsiPos('#',Form2->Edit7->Text)||AnsiPos('/',Form2->Edit7->Text)){ShowMessage("В пароле запрещено использовать сииволы # и / ");}

else

{if(parol_2(Form2->Edit7->Text,1,1)==0)ShowMessage("такой пароль уже сушествует");

  else{

       Form1->Memo1->Lines->Strings[1]=Form2->Edit7->Text;

       s=GetDir(); s=s+"БД\\pas.txt";

       Form1->Memo1->Lines->SaveToFile(s);

       ShowMessage("Изменения внесены.  НЕЗАБЫВАЙТЕ СВОЙ ПАРЛЬ");

  }

}

}

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

Form 3


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

#include <vcl.h>

#pragma hdrstop

#include "Unit3.h"

#include "Unit4.h"

#include "Unit5.h"

void not_see3();

void Show_vopros(int n_v,int f);

int nomer_poslednego_voprosa();

void v_a_see(AnsiString v_a,int n,int f);

AnsiString road;

int add=0;//(ФЛАЖОК)При добавлепнии вопроса делает не видимыми лишние(пустые) Edit-ты

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

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm3 *Form3;

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

__fastcall TForm3::TForm3(TComponent* Owner)

        : TForm(Owner)

{not_see3();}

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

void add_see_f()

{add=1;}

void give_road(AnsiString t)

{road=t;}

void  add_see_EDIT_x()

     {Form3->Edit3->Visible=false;

      Form3->Edit4->Visible=false;

      Form3->Edit5->Visible=false;

      Form3->Edit6->Visible=false;

      Form3->Edit7->Visible=false;

      Form3->Edit8->Visible=false;

      Form3->Edit9->Visible=false;

      Form3->Edit10->Visible=false;

      Form3->Label3->Visible=false;

      Form3->Label4->Visible=false;

Form3->Label5->Visible=false;

Form3->Label6->Visible=false;

Form3->Label7->Visible=false;

Form3->Label8->Visible=false;

 Form3->Label9->Visible=false;

 Form3->Label10->Visible=false;

 Form3->RadioButton3->Visible=false;

Form3->RadioButton4->Visible=false;

Form3->RadioButton5->Visible=false;

Form3->RadioButton6->Visible=false;

Form3->RadioButton7->Visible=false;

Form3->RadioButton8->Visible=false;

Form3->RadioButton9->Visible=false;

Form3->RadioButton10->Visible=false;

     }

void not_see3()

{Form3->Edit1->Visible=false;

Form3->Edit2->Visible=false;

Form3->Edit3->Visible=false;

Form3->Edit4->Visible=false;

Form3->Edit5->Visible=false;

Form3->Edit6->Visible=false;

Form3->Edit7->Visible=false;

Form3->Edit8->Visible=false;

Form3->Edit9->Visible=false;

Form3->Edit10->Visible=false;

Form3->Label1->Visible=false;

Form3->Label2->Visible=false;

Form3->Label3->Visible=false;

Form3->Label4->Visible=false;

Form3->Label5->Visible=false;

Form3->Label6->Visible=false;

Form3->Label7->Visible=false;

Form3->Label8->Visible=false;

Form3->Label9->Visible=false;

Form3->Label10->Visible=false;

Form3->RadioButton1->Visible=false;

Form3->RadioButton2->Visible=false;

Form3->RadioButton3->Visible=false;

Form3->RadioButton4->Visible=false;

Form3->RadioButton5->Visible=false;

Form3->RadioButton6->Visible=false;

Form3->RadioButton7->Visible=false;

Form3->RadioButton8->Visible=false;

Form3->RadioButton9->Visible=false;

Form3->RadioButton10->Visible=false;

Form3->Button2->Visible=false;

Form3->Button3->Visible=false;

Form3->Button4->Visible=false;

Form3->Button5->Visible=false;

Form3->Button6->Visible=false;

}

int end_BD()//Возвращает номер последней строки БД

{AnsiString s='\0';

 int i=0;

 s=Form3->Memo1->Lines->Strings[i].c_str();

 for(i=0;s[1]!='@';i++)

     {s=Form3->Memo1->Lines->Strings[i+1].c_str();}

 return( i);

}

int nomer_poslednego_voprosa()

{int i=0,n,j=1;

 n=end_BD();

 if(n!=0)

 {AnsiString s='\0',s1="";

  n=n-2;

  s=Form3->Memo1->Lines->Strings[n].c_str();

  for(i=n;s[1]!='['&&i>=0;i--)

      {s=Form3->Memo1->Lines->Strings[i].c_str();}

  while(s[j+1]!=']'){s1=s1+s[j+1];j++;}

  n=atoi(s1.c_str());

 }

return (n);

}

int nomer_stroki(int n)// возвращает номер строки в Бд, вопроса намер n.

{AnsiString s='\0',p_n="";

 int j;

s=Form3->Memo1->Lines->Strings[0].c_str();

for(int i=0;s[1]!='@';i++)