Информационная система ДЕКАНАТ для автоматизации работы деканата факультета вуза

}

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

void __fastcall TStudents::Edit_StudKeyPress(TObject *Sender, char &Key)

{ 

     Stud -> Active = False;

     int value;

     if (Key == 13)

     {

          if (Edit_Stud -> Text=="") MessageBox (NULL, "Необходимо ввести ФИО", NULL, MB_OK);

          else

          {

                 if (Stud_All -> FindLast () == False ) value = 0;

                 else value = Stud_All -> FieldByName ("Код студента") -> Value;

                    value++;

                    Stud_All -> Append ();

                    Stud_All -> FieldByName ("Код студента") -> Value = value;

                    Stud_All -> FieldByName ("Код специальности") -> Value = Spec -> FieldByName ("Код специальности") -> Value ;

                    Stud_All -> FieldByName ("ФИО") -> Value = Edit_Stud -> Text;

                    Stud_All -> Post ();

          }

     }

    Stud -> Active = True;

}

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

void __fastcall TStudents::BStud_OKClick(TObject *Sender)

{

    Stud -> Active = False;

    int value;

     if (Edit_Stud->Text=="") MessageBox (NULL, "Необходимо ввести ФИО", NULL, MB_OK);

          else

          {

                 if (Stud_All -> FindLast () == False ) value = 0;

                 else value = Stud_All -> FieldByName ("Код студента") -> Value;

                    value++;

                    Stud_All -> Append ();

                    Stud_All -> FieldByName ("Код студента") -> Value = value;

                    Stud_All -> FieldByName ("Код специальности") -> Value = Spec -> FieldByName ("Код специальности") -> Value ;

                    Stud_All -> FieldByName ("ФИО") -> Value = Edit_Stud -> Text;

                    Stud_All -> Post ();

           }

     Stud -> Active = True;

}

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

void __fastcall TStudents::Add_OtmClick(TObject *Sender)

{

     if (Semestr ->ItemIndex == -1)  MessageBox (NULL, "Необходимо выбрать семестр", NULL, MB_OK);

     else

     {

          Predm -> Active = False;

          int value = Semestr -> ItemIndex;

          value++;

          Predm -> ParamByName ("SpecNum") -> Value = Spec-> FieldByName ("Код специальности")->Value;

          Predm -> ParamByName ("StudNum") -> Value = Stud-> FieldByName ("Код студента")->Value;

          Predm -> ParamByName ("SemNum") -> Value = value;

          Predm -> Active = True;

          ComboPredm -> Visible = True;

          ComboEx -> Visible = True;

          ComboKurs -> Visible = True;

          LPredm -> Visible = True;

          LEx -> Visible = True;

          LKurs -> Visible = True;

          BPredm_OK -> Visible = True;

          Students -> ActiveControl = ComboPredm;

     }

}

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

void __fastcall TStudents::BPredm_OKClick(TObject *Sender)

{ 

     if (ComboPredm -> Text == "")  MessageBox (NULL, "Необходимо выбрать предмет", NULL, MB_OK);

     else

     {

                    int value;

                    FindOtm -> Active = False;

                    FindOtm -> ParamByName ("SemNum") -> Value = Semestr -> Text;

                    FindOtm -> ParamByName ("PredmNum") -> Value = Predm -> FieldByName ("Код предмета") -> Value;

                    FindOtm -> ParamByName ("StudNum") -> Value = Stud-> FieldByName ("Код студента")->Value;

                    FindOtm -> Active = True;

                    Otm -> Active = False;

                    if (FindOtm -> FindLast() == True)

                    {

                         Otm_All -> Edit ();

                         if (ComboEx -> Text == "") Otm_All -> FieldByName ("Оценка за экзамен") -> Value = 0;

                         else Otm_All -> FieldByName ("Оценка за экзамен") -> Value = ComboEx -> Text;

                         if (ComboKurs -> Text == "") Otm_All -> FieldByName ("Оценка за курсовик") -> Value = 0;

                         else Otm_All -> FieldByName ("Оценка за курсовик") -> Value = ComboKurs -> Text;

                    }

                    else

                    {

                         if (Otm_All -> FindLast() == False) value = 0;

                         else value = Otm_All -> FieldByName ("Код") -> Value;

                         value++;

                         Otm_All -> Append ();

                         Otm_All -> FieldByName ("Код") -> Value = value;

                         Otm_All -> FieldByName ("Код студента") -> Value = Stud -> FieldByName ("Код студента") -> Value;

                         Otm_All -> FieldByName ("Код предмета") -> Value = Predm -> FieldByName ("Код предмета") -> Value;

                         if (ComboEx -> Text == "") Otm_All -> FieldByName ("Оценка за экзамен") -> Value = 0;

                         else Otm_All -> FieldByName ("Оценка за экзамен") -> Value = ComboEx -> Text;

                         if (ComboKurs -> Text == "") Otm_All -> FieldByName ("Оценка за курсовик") -> Value = 0;

                         else Otm_All -> FieldByName ("Оценка за курсовик") -> Value = ComboKurs -> Text;

                         Otm_All -> FieldByName ("№ семестра") -> Value = Semestr -> Text;

                    }

                    Otm_All -> Post ();

                    Otm -> Active = True;

     }

}

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

//--------------------Форма "Предметы"------------------------------ 

#include <vcl.h>

#pragma hdrstop 

#include "Unit3.h"

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

#pragma package(smart_init)

#pragma resource "*.dfm"

TSubjects *Subjects;

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

__fastcall TSubjects::TSubjects(TComponent* Owner)

    : TForm(Owner)

{

}

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