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

          else{if(var_otveta_v()==0)ShowMessage("Выберите правильный вариант ответа");

               else{Add_vopros(1);

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

                    ShowMessage("Вопрос сохранён");

                    Form3->Edit23->Text=nomer_poslednego_voprosa()+1;

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

                    sbros();

                   }

              }

          }

   }

}

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

void __fastcall TForm3::Edit2Change(TObject *Sender)

{if(add==1){Form3->Edit3->Visible=true;Form3->Label3->Visible=true;}

 if(Form3->Edit2->Text==""&&add==1){

 Form3->Edit3->Visible=false;Form3->Label3->Visible=false;Form3->RadioButton3->Visible=false;

 Form3->Edit4->Visible=false;Form3->Label4->Visible=false;Form3->RadioButton4->Visible=false;

 Form3->Edit5->Visible=false;Form3->Label5->Visible=false;Form3->RadioButton5->Visible=false;

 Form3->Edit6->Visible=false;Form3->Label6->Visible=false;Form3->RadioButton6->Visible=false;

 Form3->Edit7->Visible=false;Form3->Label7->Visible=false;Form3->RadioButton7->Visible=false;

 Form3->Edit8->Visible=false;Form3->Label8->Visible=false;Form3->RadioButton8->Visible=false;

 Form3->Edit9->Visible=false;Form3->Label9->Visible=false;Form3->RadioButton9->Visible=false;

 }

}

void __fastcall TForm3::Edit2Change(TObject *Sender)// Edit2 - Edit9…………….

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

void __fastcall TForm3::Button4Click(TObject *Sender)

{ int n;

 n=atoi(Form3->Edit23->Text.c_str());

 del_(n);

 if(nomer_poslednego_voprosa()<=5){Form3->Memo1->Lines->Strings[end_BD()]="@#";}

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

 ShowMessage("Вопрос удалён");

 sbros();

 if(n>1)Form3->Edit23->Text=n-1;

 else {if(n==1&&nomer_poslednego_voprosa()>1)Form3->Edit23->Text=1;}

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

 not_see3();

 Form3->Button2->Visible=true;

 Form3->Button4->Visible=true;

 Form3->Button5->Visible=true;

 Form3->Button6->Visible=true;

 n=nomer_poslednego_voprosa();

 if(n!=0)Show_vopros(n,2);

 else Form3->Memo3->Clear();

}

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

void __fastcall TForm3::Button2Click(TObject *Sender)

{if(control_add()!=0)

{if(Form3->Memo3->Lines->Strings[0].IsEmpty()==1)ShowMessage("Введите текст вопроса");

 else {if(Form3->Edit1->Text==""||Form3->Edit2->Text=="")ShowMessage("Должно быть миниму 2 варианта. Начиная с первого.");

       else{if(var_otveta_v()==0)ShowMessage("Выберите правильный вариант ответа");

            else{Add_vopros(0);

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

                 ShowMessage("Вопрос сохранён");

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

                 sbros();

                 Show_vopros(atoi(Form3->Edit23->Text.c_str()),2);

                }

           }

      }

}     

}

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

void __fastcall TForm3::Button7Click(TObject *Sender)

{//Изменение количества вопросов на которые студенты будут отвечать

 AnsiString s,s1;

 int n;

 n=atoi(Form3->Edit11->Text.c_str());

 if(Form3->Edit11->Text=="")ShowMessage("Введите кол-во вопросов");

 else{if(n<=0)ShowMessage("Чё сума сошли");

      else {if(n>nomer_poslednego_voprosa()-5)ShowMessage("Должно быть более чем на 5 меньше вопросов в БД");

            else {s='@' ;

                  s1=Form3->Edit11->Text;

                  if(Form3->CheckBox1->Checked==true)s=s+s1+'#';

                  else s=s+'#';

                  Form3->Memo1->Lines->Strings[end_BD()]=s;

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

                  ShowMessage("Выборка изменена");

                 }

           }

     }

}

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

void __fastcall TForm3::CheckBox1Click(TObject *Sender)

{if(Form3->CheckBox1->Checked!=true){Form3->Edit11->Text="нет";

                                    Form3->Edit11->Enabled=false;

                                    Form3->Button7->Enabled=false;}

else {Form3->Edit11->Text="";

      Form3->Edit11->Enabled=true;

      Form3->Button7->Enabled=true;}

}

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

FORM 4

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

#include <vcl.h>

#pragma hdrstop

#include <stdlib.h>

#include "Unit1.h"

#include "Unit3.h"

#include "Unit4.h"

#include "Unit5.h"

#include "Unit6.h"

#include "Unit7.h"

AnsiString otvetu();

int end_BD();

int nomer_poslednego_voprosa();

void s_itog(int v, int o);

void not_see4();

AnsiString GetDir();

void add_info_reg(int f);

int nomer_v; //порядковый номер вопроса

int v_true; //кол-во правельных ответов

int vop; //кол-во вопросов в тесте

int x; //порядковый номер правельного варианта ответа в воросе

int test[200];//массив с порядковыми номерами вопросов БД

int f_vub;//флажок - =1 если используется выборка =0 если нет