Разработка модели оценки знаний

ПРИЛОЖЕНИЕ А

Фрагмент кода модуля TEST

void __fastcall TStarter::OKClick(TObject *Sender)

{

if(Edit3->Text == ADOTable2Parol->Value)

Starter->Close();

else

{

ShowMessage("Введите правильный пароль!");

Edit3->Clear();

}}

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

void __fastcall TStarter::FormCreate(TObject *Sender)

{

Edit3->PasswordChar='*';

CB1->Clear();

CB2->Clear();

ADOTable3->First();

CB1->Items->Add("Тестовая группа");

while (!ADOTable3->Eof)

  {

   CB1->Items->Add(ADOTable3Gruppa->Value);

   ADOTable3->Next();

  }

CB1->ItemIndex=0;

ADOTable2->Filter = "Gruppa= '"+CB1->Text+"'";

while (!ADOTable2->Eof)

  { CB2->Items->Add(ADOTable2FIO_stud->Value);

    ADOTable2->Next();

  }

CB2->ItemIndex=0;

}

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

void __fastcall TStarter::CB1Change(TObject *Sender)

{

CB2->Clear();

ADOTable2->Filter = "Gruppa= '"+CB1->Text+"'";

while (!ADOTable2->Eof)

  { CB2->Items->Add(ADOTable2FIO_stud->Value);

    ADOTable2->Next();

  }

CB2->ItemIndex=0;

}

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

void __fastcall TForm3::OKClick(TObject *Sender)

{if(Starter->CB1->Text=="Тестовая группа")

Form3->Close();

else

{

String NameF;

NameF=ExtractFileName(Form1->OpenDialog1->FileName);

NameF.Delete(NameF.Pos('.'),4);

ADOTable1->Insert();

ADOTable1FIO_stud->Value=Label2->Caption;

ADOTable1Gruppa->Value= Starter->CB1->Text;

ADOTable1Total_ball->Value=Label3->Caption;

ADOTable1test->Value=NameF;

ADOTable1->Post();

Form3->Close();

}}

ПРИЛОЖЕНИЕ Б

Фрагмент кода программы для работы с базой данных

void __fastcall TForm8::FormCreate(TObject *Sender)

{

//Группы

ADOTable2->First();

CB1->Clear();

CB1->Items->Add("все группы");

while (!ADOTable2->Eof)

  {

   CB1->Items->Add(ADOTable2Gruppa->Value);

   ADOTable2->Next();

  }

CB1->ItemIndex=0;

ADOTable2->First();

//Доступ

ADOTable4->First();

CB3->Clear();

CB3->Items->Add("без сортировки");

while (!ADOTable4->Eof)

  {

   CB3->Items->Add(ADOTable4Dostup->Value);

   ADOTable4->Next();

  }

CB3->ItemIndex=0;

ADOTable4->First();

//Должность

ADOTable5->First();

CB4->Clear();

CB4->Items->Add("без сортировки");

while (!ADOTable5->Eof)

  {

   CB4->Items->Add(ADOTable5Dolgnost->Value);

   ADOTable5->Next();

  }

CB4->ItemIndex=0;

ADOTable5->First();

//Группы результат

ADOTable2->First();

CB5->Clear();

CB5->Items->Add("все группы");

while (!ADOTable2->Eof)

  {

   CB5->Items->Add(ADOTable2Gruppa->Value);

   ADOTable2->Next();

  }

CB5->ItemIndex=0;

ADOTable2->First();

}

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

void __fastcall TForm8::CB1Change(TObject *Sender)

{

if(CB1->ItemIndex !=0)

{

ADOTable1->Filter = "Gruppa= '"+CB1->Text+"'";

ADOTable1->Filtered=true;

}

else

ADOTable1->Filtered=false;

DBGrid1->SetFocus();

}

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

void __fastcall TForm8::Edit1Change(TObject *Sender)

{

TLocateOptions SearchOptions;

ADOTable1->Locate("FIO_stud", Edit1->Text, SearchOptions << loPartialKey << loCaseInsensitive);

}

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

void __fastcall TForm8::ADOTable1AfterScroll(TDataSet *DataSet)

{

Edit2->Text=ADOTable1FIO_stud->Value;

Edit3->Text=ADOTable1Gruppa->Value;

Edit4->Text=ADOTable1Parol->Value;

//CB2->ItemIndex=CB2->Items->IndexOf(ADOTable2Gruppa->Value);

}

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

void __fastcall TForm8::Button3Click(TObject *Sender)

{

ADOTable1->Edit();

ADOTable1FIO_stud->Value=Edit2->Text;

//ADOTable1Gruppa->Value=CB2->Text;

ADOTable1Gruppa->Value=Edit3->Text;

ADOTable1Parol->Value=Edit4->Text;

ADOTable1->Post();

}

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

void __fastcall TForm8::Button2Click(TObject *Sender)

{

ADOTable1->Delete();

}

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

void __fastcall TForm8::Button1Click(TObject *Sender)

{

ADOTable1->Insert();

}

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

void __fastcall TForm8::CB3Change(TObject *Sender)

{

if(CB3->ItemIndex !=0)

{

ADOTable3->Filter = "Dostup= '"+CB3->Text+"'";

ADOTable3->Filtered=true;

}

else

ADOTable3->Filtered=false;

DBGrid2->SetFocus();

}

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

void __fastcall TForm8::CB4Change(TObject *Sender)

{

if(CB4->ItemIndex !=0)

{

ADOTable3->Filter = "Dolgnost= '"+CB4->Text+"'";

ADOTable3->Filtered=true;

}

else

ADOTable3->Filtered=false;

DBGrid2->SetFocus();

}

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

void __fastcall TForm8::Edit5Change(TObject *Sender)

{

TLocateOptions SearchOptions;

ADOTable3->Locate("FIO_Prep", Edit5->Text, SearchOptions << loPartialKey << loCaseInsensitive);       

}

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

void __fastcall TForm8::ADOTable3AfterScroll(TDataSet *DataSet)

{

Edit6->Text=ADOTable3FIO_Prep->Value;

Edit7->Text=ADOTable3Dostup->Value;

Edit8->Text=ADOTable3Dolgnost->Value;

Edit9->Text=ADOTable3Parol->Value;

}

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

void __fastcall TForm8::Button4Click(TObject *Sender)

{

ADOTable3->Insert();       

}

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

void __fastcall TForm8::Button5Click(TObject *Sender)

{

ADOTable3->Delete();       

}

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

void __fastcall TForm8::Button6Click(TObject *Sender)

{

ADOTable3->Edit();

ADOTable3FIO_Prep->Value=Edit6->Text;

//ADOTable1Gruppa->Value=CB2->Text;

ADOTable3Dostup->Value=Edit7->Text;

ADOTable3Dolgnost->Value=Edit8->Text;

ADOTable3Parol->Value=Edit9->Text;

ADOTable3->Post();

}

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

void __fastcall TForm8::Edit10Change(TObject *Sender)

{

TLocateOptions SearchOptions;

ADOTable6->Locate("FIO_stud", Edit10->Text, SearchOptions << loPartialKey << loCaseInsensitive);       

}

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

void __fastcall TForm8::CB5Change(TObject *Sender)

{

if(CB5->ItemIndex !=0)

{

ADOTable6->Filter = "Gruppa= '"+CB5->Text+"'";

ADOTable6->Filtered=true;

}

else

ADOTable6->Filtered=false;

DBGrid3->SetFocus();

}

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

void __fastcall TForm8::BitBtn1Click(TObject *Sender)

{

ADOTable6->Delete();       

}