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

      Form2->Edit1->Text=p;p="";

      for(i3=i2+1;s[i3]!='/';i3++)

          {p=p+s[i3];}

      Form2->Edit2->Text=p;p="";

      for(i4=i3+1;s[i4]!='/';i4++)

          {p=p+s[i4];}

      Form2->Edit3->Text=p;p="";

      Form2->Edit4->Text=Form2->ListBox1->Items->Strings[n];

}

AnsiString Change_data_prepod(int n)//Изменение(ввод новых) данных о преподах

{AnsiString s="",p;

 p=Form2->Edit5->Text;s=p+'/';

 p=Form2->Edit1->Text;s=s+p+'/';

 p=Form2->Edit2->Text;s=s+p+'/';

 p=Form2->Edit3->Text;s=s+p+'/';

 p=Form2->Edit4->Text;s=s+p+'#';

 Form1->Memo1->Lines->Strings[n]=s;

 return p;

}

int predmet_2(AnsiString p1)

{AnsiString s;

 s=Form1->Memo1->Lines->Strings[2];

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

     {if(p1==Form2->ListBox1->Items->Strings[i])return(0);

      s=Form1->Memo1->Lines->Strings[i+1];

     }

return (1);

}

int parol_2(AnsiString pas1,int f1,int f2)

{AnsiString s,pas2;

 if(Form1->Memo1->Lines->Strings[0]==pas1)return(0);

 if(Form1->Memo1->Lines->Strings[1]==pas1)return(0);

 s=Form1->Memo1->Lines->Strings[2];

 int i,j;

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

     {pas2="";

      for(j=1;s[j]!='/';j++)

          {pas2=pas2+s[j];}

      if(pas2==pas1){if(f1==1&&f2==i);

                   else return(0);}

      s=Form1->Memo1->Lines->Strings[i+1];

     }

return (1);

}

int control_add_ADMIN()

{AnsiString s;

 if(AnsiPos('#',Form2->Edit1->Text)||AnsiPos('/',Form2->Edit1->Text)){ShowMessage("Разве в фамилии могут быть сииволы # и / ");return 0;}

 if(AnsiPos('#',Form2->Edit2->Text)||AnsiPos('/',Form2->Edit2->Text)){ShowMessage("Разве в имени могут быть сииволы # и / ");return 0;}

 if(AnsiPos('#',Form2->Edit3->Text)||AnsiPos('/',Form2->Edit3->Text)){ShowMessage("Разве в отчестве могут быть сииволы # и / ");return 0;}

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

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

 return 1;

 }

int all_data_true(int f1,int f2)//Проверяет правилино или введены данные о преподах.

{ //f1=1 при изменении данных  f1=0  при добавлении новых данных

 if(Form2->Edit1->Text!="")

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

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

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

                {if(f1==0&&predmet_2(Form2->Edit4->Text)==0)ShowMessage("Такой предмет уже есть");

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

                                                 else return (1);

                                                }

                      else ShowMessage("не задан пароль"); }

                }else ShowMessage("Введите название предмета");

           }else ShowMessage("Введите Отчество");

      }else ShowMessage("Введите Имя");

  }else ShowMessage("Введите Фамилию");

return (0);

}

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

void __fastcall TForm2::Button5Click(TObject *Sender)

{Form2->Close();//возврат на главную форму

 Form5->Show();

}

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

void __fastcall TForm2::ListBox1Click(TObject *Sender)

{

if(ListBox1->ItemIndex>1)Show_data_for_prepod(ListBox1->ItemIndex);

}

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

void __fastcall TForm2::Button3Click(TObject *Sender)//Внести изменения

{AnsiString s;

if(control_add_ADMIN()!=0)

  {if(Form2->ListBox1->ItemIndex<=1)ShowMessage("Не выбран препод");

   else if(all_data_true(1,ListBox1->ItemIndex)){Change_data_prepod(Form2->ListBox1->ItemIndex);

                          s=GetDir();

                          s=s+"БД\\pas.txt";

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

                          ShowMessage("Данные преподавателя , БД изменина.");

                         }

  }

}

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

void __fastcall TForm2::Button1Click(TObject *Sender)

{AnsiString s='\0',p,s2;

 int i=0;

 if(control_add_ADMIN()!=0)

   {s=Form1->Memo1->Lines->Strings[1].c_str();

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

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

    if(all_data_true(0,-1))

      {Form1->Memo1->Lines->Add('@');

       p=Change_data_prepod(i);

       Form3->Memo1->Lines->Clear();

       Form3->Memo1->Lines->Add("@#");

       Form3->Memo2->Lines->Clear();

       Form3->Memo2->Lines->Add('@');

       s2=s=GetDir();

       s=s+"БД\\"+p+".txt";

       s2=s2+"БД\\s_"+p+".txt";

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

       Form3->Memo2->Lines->SaveToFile(s2);

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

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

       Form2->Close();

       Form5->Show();

       ShowMessage("Преподаватель зарегестрирован, БД создана.");

      }

   }

}