, , , , , . .

 

 

!

 

:

:

 

 

 

?

StudentHelp, , MS Word. , , antiplagiat.ru, etxt.ru advego.ru. StudentHelp , Word .


:


:

: . : 20.05.2012. : 2011. : 14. antiplagiat.ru: < 30%

():


- Ȼ







? ?





: . .
. .
: ..






-
2005

5. Ҡ
10, 12 .
, , , , , , , (/).
, , , . . .
, .
:
    ;
    , .



. 1
. 2-5.
. 6-18





























. 1.



. 2. ""



. 3. ""


. 4. ""


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

#include <vcl.h>
#pragma hdrstop

#include "main.h"
#include "Unit1.h"
#include "Unit2.h"
#include "Unit3.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TMain_Form *Main_Form;
//---------------------------------------------------------------------------
__fastcall TMain_Form::TMain_Form(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TMain_Form::BPlansClick(TObject *Sender)
{
Plans->ShowModal();
}
//---------------------------------------------------------------------------

void __fastcall TMain_Form::BCardsClick(TObject *Sender)
{
Students -> ShowModal ();
}
//---------------------------------------------------------------------------

void __fastcall TMain_Form::PredmClick(TObject *Sender)
{
Subjects -> ShowModal ();
}
//---------------------------------------------------------------------------

void __fastcall TMain_Form::BExitClick(TObject *Sender)
{
Main_Form -> Close ();
}
//---------------------------------------------------------------------------



//------------------- " "------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
#include "main.h"
#include "Unit2.h"
#include "Unit3.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TPlans *Plans;
//---------------------------------------------------------------------------
__fastcall TPlans::TPlans(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TPlans::Edit_KafKeyPress(TObject *Sender, char &Key)
{
int value;
if (Key == 13)
{
TPlans::Add_KafClick(Sender);
}
}

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

void __fastcall TPlans::Add_KafClick(TObject *Sender)
{
int value;
FindKaf -> Active = False;
FindKaf -> ParamByName ("KafName") -> Value = Edit_Kaf -> Text;
FindKaf -> Active = True;
if (FindKaf -> FieldByName ("NUMBER") -> Value !=0) MessageBox (NULL, " ", NULL, MB_OK);
else
{
if (Edit_Kaf->Text=="") MessageBox (NULL, " ", NULL, MB_OK);
else
{
if (Kaf -> FindLast () == False) value = 0; else value = Kaf -> FieldByName (" ") -> Value;
value++;
Kaf -> Append ();
Kaf -> FieldByName (" ") -> Value = value;
Kaf -> FieldByName ("") -> Value = Edit_Kaf -> Text;
Kaf -> Post ();
}
}
}
//---------------------------------------------------------------------------

void __fastcall TPlans::Chg_KafClick(TObject *Sender)
{
FindKaf -> Active = False;
FindKaf -> ParamByName ("KafName") -> Value = Edit_Kaf -> Text;
FindKaf -> Active = True;
if (FindKaf -> FieldByName ("NUMBER") -> Value !=0) MessageBox (NULL, " ", NULL, MB_OK);
else
{
Kaf -> Edit ();
Kaf -> FieldByName ("") -> Value = Edit_Kaf -> Text;
Kaf -> Post ();
}
}

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

void __fastcall TPlans::Del_KafClick(TObject *Sender)
{
if (MessageBox (NULL, ". ?", "", MB_OKCANCEL) == 1)
{
Spec -> First();
while (!Spec->Eof)
{
if (Spec -> FieldByName (" ") -> Value == Kaf -> FieldByName (" ") -> Value)
{
Stud -> First();
while (!Stud->Eof)
{
if (Stud -> FieldByName (" ") -> Value == Spec -> FieldByName (" ") -> Value)
{
Otm -> First ();
while (!Otm -> Eof)
{
if (Stud -> FieldByName (" ") -> Value == Otm-> FieldByName (" ") -> Value) Otm -> Delete ();
Otm -> Next ();
}
Stud -> Delete();
}
Stud -> Next ();
}
Plan_All->First();
while (!Plan_All->Eof)
{
if (Plan_All -> FieldByName (" ") -> Value == Spec -> FieldByName (" ") -> Value) Plan_All ->Delete();
Plan_All -> Next ();
}
Spec -> Delete ();
}
Spec -> Next ();
}
Kaf -> Delete ();
Plan -> Active = False;
Plan -> Active = True;
}
}
//---------------------------------------------------------------------------

void __fastcall TPlans::Add_SpecClick(TObject *Sender)
{
int value;
if (Edit_SpecNum -> Text == "") MessageBox (NULL, " ", NULL, MB_OK);
else
{
if (Edit_Spec -> Text == "") MessageBox (NULL, " ", NULL, MB_OK);
else
{
FindSpec -> Active = False;
FindSpec -> ParamByName ("SpecNum") -> Value = Edit_SpecNum -> Text;
FindSpec -> Active = True;
if ((FindSpec -> FieldByName ("NUMBER") -> Value !=0)&&(Spec -> FieldByName ("") -> Value == Edit_SpecNum -> Text)) MessageBox (NULL, " ", NULL, MB_OK);
else
{
if (Spec_All -> FindLast() == False) value = 0;
else value = Spec_All -> FieldByName (" ") -> Value;
value++;
Spec -> Append ();
Spec -> FieldByName (" ") -> Value = value;
Spec -> FieldByName ("") -> Value = Edit_Spec -> Text;
Spec -> FieldByName ("") -> Value = Edit_SpecNum -> Text;
Spec -> FieldByName (" ") -> Value = Kaf -> FieldByName (" ") -> Value;
Spec -> Post ();
Spec -> Active = False;
Spec -> Active = True;
}
}
}
}

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

void __fastcall TPlans::Edit_SpecNumKeyPress(TObject *Sender, char &Key)
{
if (Key == 13)
{
Plans -> ActiveControl = Edit_Spec;
}
}
//---------------------------------------------------------------------------

void __fastcall TPlans::Chg_SpecClick(TObject *Sender)
{
FindSpec -> Active = False;
FindSpec -> ParamByName ("SpecNum") -> Value = Edit_SpecNum -> Text;
FindSpec -> Active = True;
if ((FindSpec -> FieldByName ("NUMBER") -> Value !=0)&&(Spec -> FieldByName ("") -> Value != Edit_SpecNum -> Text) && (Spec -> FieldByName ("") -> Value == Edit_Spec -> Text)) MessageBox (NULL, " ", NULL, MB_OK);
else
{
if (Edit_Spec -> Text == "") MessageBox (NULL, " ", NULL, MB_OK);
else
{
Spec -> Edit ();
Spec -> FieldByName ("") -> Value = Edit_Spec -> Text;
Spec -> FieldByName ("") -> Value = Edit_SpecNum -> Text;
Spec -> Post ();
}
}

}
//---------------------------------------------------------------------------

void __fastcall TPlans::Del_SpecClick(TObject *Sender)
{
if (MessageBox (NULL, ". ?", "", MB_OKCANCEL) == 1)
{
Stud -> First();
while (!Stud->Eof)
{
if (Stud -> FieldByName (" ") -> Value == Spec -> FieldByName (" ") -> Value)
{
Otm -> First ();
while (!Otm -> Eof)
{
if (Stud -> FieldByName (" ") -> Value == Otm-> FieldByName (" ") -> Value) Otm -> Delete ();
Otm -> Next ();
}
if (Stud -> FieldByName (" ") -> Value == Otm-> FieldByName (" ") -> Value) Otm -> Delete ();

}
Stud -> Delete ();
Stud -> Next ();
}
if (Stud -> FieldByName (" ") -> Value == Spec -> FieldByName (" ") -> Value) Stud -> Delete ();
}
Spec -> Delete ();
Plan -> Active = False;
Plan -> Active = True;
}
//---------------------------------------------------------------------------


void __fastcall TPlans::Grid_KafCellClick(TColumn *Column)
{
Plan -> Active = False;
Plan -> ParamByName ("Kod_Spec") -> Value = Spec -> FieldByName (" ") -> Value;
int value = Semestr -> ItemIndex;
value++;
Plan -> ParamByName ("Sem_Num") -> Value = value;
Plan -> Active = True;
if (Kaf -> FieldByName (" ")!=0) Edit_Kaf -> Text = Kaf -> FieldByName ("") -> Value;
}
//---------------------------------------------------------------------------

void __fastcall TPlans::SemestrChange(TObject *Sender)
{
Plan -> Active = False;
Plan -> ParamByName ("Kod_Spec") -> Value = Spec -> FieldByName (" ") -> Value;
int value = Semestr -> ItemIndex;
value++;
Plan -> ParamByName ("Sem_Num") -> Value = value;
Plan -> Active = True;
}
//---------------------------------------------------------------------------

void __fastcall TPlans::GridSpecCellClick(TColumn *Column)
{
Plan -> Active = False;
Plan -> ParamByName ("Kod_Spec") -> Value = Spec -> FieldByName (" ") -> Value;
int value = Semestr -> ItemIndex;
value++;
Plan -> ParamByName ("Sem_Num") -> Value = value;
Plan -> Active = True;
if (Spec -> FieldByName (" ")!=0)
{
Edit_SpecNum -> Text = Spec -> FieldByName (" ")-> Value;
Edit_Spec -> Text = Spec -> FieldByName ("")-> Value;
}
}


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

void __fastcall TPlans::Add_PredmClick(TObject *Sender)
{
if (Semestr -> ItemIndex == -1) MessageBox (NULL, " ", NULL, MB_OK);
else
{
if (ComboPredm -> Text == "") MessageBox (NULL, " ", NULL, MB_OK);
else
{
int value;
FindPlan -> Active = False;
FindPlan -> ParamByName ("NamePredm") -> Value = ComboPredm-> Text;
FindPlan -> ParamByName ("SpecNum") -> Value = Spec -> FieldByName (" ")->Value;;
FindPlan -> ParamByName ("SemNum") -> Value = Semestr -> Text;
FindPlan -> Active = True;
FindPredm -> Active = False;
FindPredm -> ParamByName ("NamePredm") -> Value = ComboPredm-> Text;
FindPredm -> Active = True;
if (FindPlan -> FieldByName ("NUMBER") -> Value !=0)
{
Plan_All -> Edit ();
Plan_All -> FieldByName (" ") -> Value = Examen -> ItemIndex;
Plan_All -> FieldByName (" ") -> Value = Kursovik -> ItemIndex;
Plan_All -> FieldByName (" ")-> Value = EditLab -> Text;
Plan_All -> FieldByName (" ") -> Value= EditLekt -> Text;
Plan_All -> FieldByName (" ") ->Value = EditPrakt -> Text;
}
else
{
if (Plan_All -> FindLast() == False) value = 0;
else value = Plan_All -> FieldByName ("") -> Value;
value++;
Plan_All -> Append ();
Plan_All -> FieldByName ("") -> Value = value;
Plan_All -> FieldByName (" ") -> Value = Spec -> FieldByName (" ") -> Value;
Plan_All -> FieldByName (" ") -> Value = FindPredm -> FieldByName (" ") -> Value;
Plan_All -> FieldByName ("") -> Value = Semestr-> Text;
Plan_All -> FieldByName (" ") -> Value = Examen -> ItemIndex;
Plan_All -> FieldByName (" ") -> Value = Kursovik -> ItemIndex;
Plan_All -> FieldByName (" ")-> Value = EditLab -> Text;
Plan_All -> FieldByName (" ") -> Value= EditLekt -> Text;
Plan_All -> FieldByName (" ") ->Value = EditPrakt -> Text;
}
Plan_All -> Post ();
Plan -> Active = False;
Plan -> Active = True;
}
}
}
//---------------------------------------------------------------------------

void __fastcall TPlans::Del_PredmClick(TObject *Sender)
{
if (MessageBox (NULL, ". ?", "", MB_OKCANCEL) == 1)
while (!Plan_All-> Eof)
{
if (Plan_All -> FieldByName ("") -> Value == Plan -> FieldByName ("") -> Value) Plan_All -> Delete();
Plan_All -> Next();
}
Plan -> Active = False;
Plan -> Active = True;
}
//---------------------------------------------------------------------------

//--------------- " "------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TStudents *Students;
//---------------------------------------------------------------------------
__fastcall TStudents::TStudents(TComponent* Owner)
: TForm(Owner)
{
}

void __fastcall TStudents::SemestrChange(TObject *Sender)
{
Otm -> Active = False;
int value = Semestr -> ItemIndex;
value++;
Otm -> ParamByName ("SemNum") -> Value = value;
Otm -> ParamByName ("StudNum") -> Value = Stud->FieldByName (" ")->Value;
Otm -> Active = True;
Predm -> Active = False;
Predm -> ParamByName ("SemNum") -> Value = value;
Predm -> ParamByName ("SpecNum") -> Value = Spec->FieldByName (" ")->Value;
Predm -> Active = True;
}

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

void __fastcall TStudents::DBGrid1CellClick(TColumn *Column)
{
Otm -> Active = False;
int value = Semestr -> ItemIndex;
value++;
Otm -> ParamByName ("SemNum") -> Value = value;
Otm -> ParamByName ("StudNum") -> Value = Stud->FieldByName (" ")->Value;
Otm -> Active = True;
}
//---------------------------------------------------------------------------

void __fastcall TStudents::DBGrid2CellClick(TColumn *Column)
{
Otm -> Active = False;
int value = Semestr -> ItemIndex;
value++;
Otm -> ParamByName ("SemNum") -> Value = value;
Otm -> ParamByName ("StudNum") -> Value = Stud->FieldByName (" ")->Value;
Otm -> Active = True;
}
//---------------------------------------------------------------------------

void __fastcall TStudents::Add_StudClick(TObject *Sender)
{
Edit_Stud -> Visible = True;
Edit_Stud -> Text = "";
LStud -> Visible = True;
BStud_OK -> Visible = True;
Students -> ActiveControl = Edit_Stud;
}
//---------------------------------------------------------------------------

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;
..................



90% antiplagiat.ru, etxt.ru advego.ru




* . , .