(RadioGroup198->ItemIndex==-1)) {

Form4->Show();

} else {

if(RadioGroup159->ItemIndex==0){P5++; } if(RadioGroup160->ItemIndex==0){A5++; } if(RadioGroup161->ItemIndex==0){S5++; } if(RadioGroup162->ItemIndex==0){N5++; } if(RadioGroup163->ItemIndex==0){K5++; } if(RadioGroup164->ItemIndex==0){P5++; } if(RadioGroup165->ItemIndex==0){A5++; } if(RadioGroup166->ItemIndex==0){S5++; } if(RadioGroup167->ItemIndex==0){N5++; } if(RadioGroup168->ItemIndex==0){K5++; } if(RadioGroup169->ItemIndex==0){P5++; } if(RadioGroup170->ItemIndex==0){A5++; } if(RadioGroup171->ItemIndex==0){S5++; } if(RadioGroup172->ItemIndex==0){N5++; } if(RadioGroup173->ItemIndex==0){K5++; } if(RadioGroup174->ItemIndex==0){P5++; } if(RadioGroup175->ItemIndex==0){A5++; } if(RadioGroup176->ItemIndex==0){S5++; } if(RadioGroup177->ItemIndex==0){N5++; } if(RadioGroup178->ItemIndex==0){K5++; } if(RadioGroup179->ItemIndex==0){P5++; } if(RadioGroup180->ItemIndex==0){A5++; } if(RadioGroup181->ItemIndex==0){S5++; } if(RadioGroup182->ItemIndex==0){N5++; } if(RadioGroup183->ItemIndex==0){K5++; } if(RadioGroup184->ItemIndex==0){P5++; } if(RadioGroup185->ItemIndex==0){A5++; } if(RadioGroup186->ItemIndex==0){S5++; } if(RadioGroup187->ItemIndex==0){N5++; } if(RadioGroup188->ItemIndex==0){K5++; } if(RadioGroup189->ItemIndex==0){P5++; } if(RadioGroup190->ItemIndex==0){A5++; } if(RadioGroup191->ItemIndex==0){S5++; } if(RadioGroup192->ItemIndex==0){N5++; } if(RadioGroup193->ItemIndex==0){K5++; } if(RadioGroup194->ItemIndex==0){P5++; } if(RadioGroup195->ItemIndex==0){A5++; } if(RadioGroup196->ItemIndex==0){S5++; } if(RadioGroup197->ItemIndex==0){N5++; } if(RadioGroup198->ItemIndex==0){K5++; }

P5=100/8*P5;

A5=100/8*A5;

S5=100/8*S5;

N5=100/8*N5;

K5=100/8*K5;}

Edit25->Text=IntToStr(P5)+"%";

Edit26->Text=IntToStr(A5)+"%";

Edit27->Text=IntToStr(S5)+"%";

Edit28->Text=IntToStr(N5)+"%";

Edit29->Text=IntToStr(K5)+"%";}

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

void __fastcall TForm3::Button18Click(TObject *Sender)

{if ((RadioGroup199->ItemIndex==-1) ||

(RadioGroup200->ItemIndex==-1) || (RadioGroup201->ItemIndex==-1) || (RadioGroup202->ItemIndex==-1) || (RadioGroup203->ItemIndex==-1) || (RadioGroup204->ItemIndex==-1) || (RadioGroup205->ItemIndex==-1) ||

(RadioGroup206->ItemIndex==-1) || (RadioGroup207->ItemIndex==-1) || (RadioGroup208->ItemIndex==-1) || (RadioGroup209->ItemIndex==-1) || (RadioGroup210->ItemIndex==-1) || (RadioGroup211->ItemIndex==-1) || (RadioGroup212->ItemIndex==-1) || (RadioGroup213->ItemIndex==-1) || (RadioGroup214->ItemIndex==-1) || (RadioGroup215->ItemIndex==-1) || (RadioGroup216->ItemIndex==-1) || (RadioGroup217->ItemIndex==-1) || (RadioGroup218->ItemIndex==-1) || (RadioGroup219->ItemIndex==-1) || (RadioGroup220->ItemIndex==-1) || (RadioGroup221->ItemIndex==-1) || (RadioGroup222->ItemIndex==-1) || (RadioGroup223->ItemIndex==-1) || (RadioGroup224->ItemIndex==-1) || (RadioGroup225->ItemIndex==-1) ||

(RadioGroup226->ItemIndex==-1)) { Form4->Show();}

else {if(RadioGroup199->ItemIndex==0){K6++; } if(RadioGroup200->ItemIndex==0){V6++; } if(RadioGroup201->ItemIndex==0){M6++; } if(RadioGroup202->ItemIndex==0){H6++; } if(RadioGroup203->ItemIndex==0){L6++; } if(RadioGroup204->ItemIndex==0){T6++; } if(RadioGroup205->ItemIndex==0){I6++; } if(RadioGroup206->ItemIndex==0){M6++; } if(RadioGroup207->ItemIndex==0){L6++; } if(RadioGroup208->ItemIndex==0){H6++; } if(RadioGroup209->ItemIndex==0){T6++; } if(RadioGroup210->ItemIndex==0){V6++; } if(RadioGroup211->ItemIndex==0){M6++; } if(RadioGroup212->ItemIndex==0){6++; } if(RadioGroup213->ItemIndex==0){I6++; } if(RadioGroup214->ItemIndex==0){I6++; } if(RadioGroup215->ItemIndex==0){H6++; } if(RadioGroup216->ItemIndex==0){V6++; } if(RadioGroup217->ItemIndex==0){L6++; } if(RadioGroup218->ItemIndex==0){6++; } if(RadioGroup219->ItemIndex==0){K6++; } if(RadioGroup220->ItemIndex==0){T6++; } if(RadioGroup221->ItemIndex==0){M6++; } if(RadioGroup222->ItemIndex==0){V6++; } if(RadioGroup223->ItemIndex==0){K6++; } if(RadioGroup224->ItemIndex==0){I6++; } if(RadioGroup225->ItemIndex==0){H6++; } if(RadioGroup226->ItemIndex==0){T6++; }

L6=100/4*L6; T6=100/4*T6;

V6=100/4*V6; H6=100/4*H6;

M6=100/4*M6;

I6=100/4*I6;

K6=100/4*K6;}

Edit30->Text=IntToStr(L6)+"%"; Edit31->Text=IntToStr(T6)+"%";

Edit32->Text=IntToStr(V6)+"%"; Edit33->Text=IntToStr(H6)+"%";

Edit34->Text=IntToStr(M6)+"%";

Edit35->Text=IntToStr(I6)+"%";

Edit36->Text=IntToStr(K6)+"%";}

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

void __fastcall TForm3::Button21Click(TObject *Sender) {PageControl1->ActivePage=TabSheet2; }

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

void __fastcall TForm1::Button1Click(TObject *Sender)

{DataModule9->IBStoredProc1->ParamByName("NAME")->AsString=Form1->LabeledEdit1>Text;

DataModule9->IBStoredProc1->ParamByName("PASS")->AsString=Form1->LabeledEdit2>Text;

DataModule9->IBStoredProc1->Prepare();

DataModule9->IBStoredProc1->ExecProc();

DataModule9->IBTransaction1->Commit();

DataModule9->IBQuery1->ParamByName("NAME")->Value=DataModule1->IBStoredProc1-

>ParamByName("ID_USER")->AsString;

DataModule9->IBQuery1->Active=False;

DataModule9->IBQuery1->Active=True;

}

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

void __fastcall TForm3::Button22Click(TObject *Sender)

{PageControl1->ActivePage=TabSheet3; }

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

void __fastcall TForm3::Button23Click(TObject *Sender)

{PageControl1->ActivePage=TabSheet4;}

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

void __fastcall TForm3::Button24Click(TObject *Sender)

{PageControl1->ActivePage=TabSheet6; }

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

void __fastcall TForm3::Button25Click(TObject *Sender)

{PageControl1->ActivePage=TabSheet7; }

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

void __fastcall TForm3::Button7Click(TObject *Sender)

{PageControl1->ActivePage=TabSheet8; }

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

void __fastcall TForm3::Button9Click(TObject *Sender)

{PageControl1->ActivePage=TabSheet8; }

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

void __fastcall TForm3::Button11Click(TObject *Sender) {PageControl1->ActivePage=TabSheet8; }

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

void __fastcall TForm3::Button26Click(TObject *Sender)

{Edit1->Text="";

Edit2->Text=""; Edit3->Text=""; Edit4->Text=""; Edit5->Text=""; Edit6->Text=""; Edit7->Text=""; Edit8->Text=""; Edit9->Text="";

Edit10->Text=""; Edit11->Text=""; Edit12->Text=""; Edit13->Text=""; Edit14->Text=""; Edit15->Text=""; Edit16->Text=""; Edit17->Text=""; Edit18->Text=""; Edit19->Text=""; Edit20->Text=""; Edit21->Text=""; Edit22->Text=""; Edit23->Text=""; Edit24->Text=""; Edit25->Text=""; Edit26->Text=""; Edit27->Text=""; Edit28->Text=""; Edit29->Text=""; Edit30->Text=""; Edit31->Text=""; Edit32->Text=""; Edit33->Text=""; Edit34->Text="";

Edit35->Text="";

Edit36->Text="";

L1=0, U1=0, T1=0, E1=0, F1=0, M1=0;

R2=0, I2=0, S2=0, K2=0, P2=0, H2=0;

P3=0, T3=0, Z3=0, H3=0, M3=0;

M4=0, O4=0, S4=0, V4=0, A4=0, R4=0,N4=0;

P5=0, A5=0, S5=0, N5=0, K5=0;

L6=0, T6=0, V6=0, H6=0, M6=0, I6=0, K6=0;}

Выпускная квалификационная работа выполнена мной совершенно самостоятельно. Все использованные в работе материалы и концепции из опубликованной научной литературы и других источников имеют ссылки на них.