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

                           Form3->Button7->Enabled=true;

                         }

          else {Form3->CheckBox1->Checked=false;

                Form3->CheckBox1->Enabled=true;

                Form3->Edit11->Text="нет";

                Form3->Edit11->Enabled=false;

                Form3->Button7->Enabled=false;

               }

         }

}

void show_list_sudents()

{int j,i1,i2,y;

 AnsiString s,p,p1,p2,v;

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

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

     {p=p1=p2=v="";

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

          {p1=p1+s[i1];}

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

          {p2=p2+s[i2];}

      for(y=1;y<=20-i1;y++)v=v+'_';

      p=p1+"  "+v+"  "+p2;

      Form8->ListBox1->Items->Add("");

      Form8->ListBox1->Items->Strings[j]=p;

      s=Form3->Memo2->Lines->Strings[j+1].c_str();

     }

}

void  registreition()//для регистрации студента и выбора предмета

{int i,j,k,z;

AnsiString s,p;

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

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

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

      j--;p="";

      for(k=j;s[k]!='/';k--);

      for(z=k+1;s[z]!='#';z++)

          {p=p+s[z];}

      if(show_predmet()==1)Form7->ListBox1->Items->Strings[i-2]=p;

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

    }

}

AnsiString otvetu()//Возвращает кол-во вопросов выборки (в формате AnsiString) или пустую строку

{int n;

AnsiString s,p="";

n=end_BD();

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

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

          {p=p+s[i];}

 return (p);

}

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

void __fastcall TForm5::Button1Click(TObject *Sender)

{Form1->Close();

}

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

void __fastcall TForm5::Button2Click(TObject *Sender)

{//Открывает окно СисАдмина для регист. нового препода.

 not_see2(false);

 Form2->Button1->Visible=true;

 Form2->Show();

 Form2->ListBox1->Clear();

 see_predmet();

}

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

void __fastcall TForm5::Button7Click(TObject *Sender)

{//Открывает окно студента для регистрации

 registreition();

 Form7->Show();

 Form5->Button7->Visible=false; //************************

 }

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

void __fastcall TForm5::Button6Click(TObject *Sender)

{Form8->ListBox1->Clear();

 show_list_sudents();

 Form8->Show(); //Открывает окно статистики (не сдалано)

 }

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

void __fastcall TForm5::Button5Click(TObject *Sender)

{//Открывает окно для просмотра вопросов теста

if(nomer_poslednego_voprosa()==0)ShowMessage("База пуста. добавьте вопросы");

else{Form3->Memo3->Lines->Clear();

     Form3->Memo3->ReadOnly=true;

     add_vuborka(0);

 not_see3();

 Form3->Button5->Visible=true; //кнопка "пред "

 Form3->Button6->Visible=true; // кнопка "сл"

 Form3->Show();

 Form3->Edit26->Text=nomer_poslednego_voprosa();

 Show_vopros(1,2);

 }

}  

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

void __fastcall TForm5::Button4Click(TObject *Sender)

{sbros();

 Form3->Memo3->ReadOnly=false;

 int n=nomer_poslednego_voprosa()+1;// порядковый добовляемого номер вопрос в БД

 AnsiString text="";

 Form3->Edit26->Text=n-1;

 not_see3();

 Form3->Button3->Visible=true; //кнопка "добовить "

 Form3->Button7->Visible=false;

 Form3->Edit11->Visible=false;

 Form3->CheckBox1->Visible=false;

 Form3->Label11->Visible=false;

 where_show(text,2,n);                     // Создаёт пустой Edit24 и... (вопрос)

 for(int i=1;i<=9;i++){v_a_see(text,i,2);} // Создаёт пустые Edit1-9

 Form3->Show();

 add_see_f();

 add_see_EDIT_x(); //  убирают лишнее

}

void __fastcall TForm5::Button3Click(TObject *Sender)

{AnsiString text="";

if(nomer_poslednego_voprosa()==0)ShowMessage("Нечего редактировать. База пуста. добавьте вопросы");

else{Form3->Memo3->Lines->Clear();

     Form3->Memo3->ReadOnly=false;

     add_vuborka(1);

     Form3->Edit26->Text=nomer_poslednego_voprosa();

     for(int i=1;i<=9;i++){v_a_see(text,i,2);}

     add_see_f();  not_see3();

     Form3->Button5->Visible=true;

     Form3->Button6->Visible=true;

     Form3->Button2->Visible=true;

     Form3->Button4->Visible=true;

     Form3->Show();

     Show_vopros(1,2);

     }

}

void __fastcall TForm5::Button8Click(TObject *Sender)

{//Открывает окно СисАдмина для просмора данных о преподоватилях и их изменения.

 not_see2(true);

 Form2->Button1->Visible=false;

 Form2->Label9->Visible=true;

 Form2->ListBox1->Clear();

 see_data_admin();

 Form2->Show();

}

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

Form6

void __fastcall TForm6::Button1Click(TObject *Sender)

{Form6->Close();

 Form5->Close();

 Form4->Close();

 Form7->Close();

 Form1->Close();

}

Form7

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

#include <vcl.h>

#pragma hdrstop

#include "Unit7.h"

#include "Unit5.h"

#include "Unit4.h"

#include "Unit3.h"

#include "Unit1.h"

#include "Unit6.h"

void not_see4();