Реферат: Система рейтингового контроля знаний

class TDM1 : public TDataModule

{

__published:      // IDE-managed Components

      TDataSource *DataSource1;

      TTable *Table1;

      TQuery *Query1;

      TDataSource *DataSource2;

private:    // User declarations

public:           // User declarations

      __fastcall TDM1(TComponent* Owner);

};

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

extern TDM1 *DM1;

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

#endif

filename.h:

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

#ifndef filenameH

#define filenameH

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

#include <vcl\Classes.hpp>

#include <vcl\Controls.hpp>

#include <vcl\StdCtrls.hpp>

#include <vcl\Forms.hpp>

#include <vcl\ExtCtrls.hpp>

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

class TForm6 : public TForm

{

__published:      // IDE-managed Components

      TEdit *Edit1;

      TLabel *Label2;

      TBevel *Bevel1;

      TButton *Button1;

      TButton *Button2;

      void __fastcall Button1Click(TObject *Sender);

private:    // User declarations

public:           // User declarations

      __fastcall TForm6(TComponent* Owner);

};

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

extern TForm6 *Form6;

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

#endif

filter.h:

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

#ifndef filterH

#define filterH

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

#include <vcl\Classes.hpp>

#include <vcl\Controls.hpp>

#include <vcl\StdCtrls.hpp>

#include <vcl\Forms.hpp>

#include <vcl\ExtCtrls.hpp>

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

class TForm5 : public TForm

{

__published:      // IDE-managed Components

      TBevel *Bevel1;

      TLabel *Label1;

      TLabel *Label2;

      TComboBox *ComboBox1;

      TEdit *Edit1;

      TButton *Button1;

      TButton *Button2;

      TButton *Button3;

      void __fastcall Button3Click(TObject *Sender);

private:    // User declarations

public:           // User declarations

      __fastcall TForm5(TComponent* Owner);

};

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

extern TForm5 *Form5;

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

#endif

Findcust.h:

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

#ifndef filterH

#define filterH

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

#include <vcl\Classes.hpp>

#include <vcl\Controls.hpp>

#include <vcl\StdCtrls.hpp>

#include <vcl\Forms.hpp>

#include <vcl\ExtCtrls.hpp>

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

class TForm5 : public TForm

{

__published:      // IDE-managed Components

      TBevel *Bevel1;

      TLabel *Label1;

      TLabel *Label2;

      TComboBox *ComboBox1;

      TEdit *Edit1;

      TButton *Button1;

      TButton *Button2;

      TButton *Button3;

      void __fastcall Button3Click(TObject *Sender);

private:    // User declarations

public:           // User declarations

      __fastcall TForm5(TComponent* Owner);

};

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

extern TForm5 *Form5;

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

#endif

Repopt.h:

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

#ifndef ReportH

#define ReportH

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

#include <vcl\ExtCtrls.hpp>

#include <vcl\StdCtrls.hpp>

#include <vcl\Quickrep.hpp>

#include <vcl\Dialogs.hpp>

#include <vcl\Forms.hpp>

#include <vcl\Controls.hpp>

#include <vcl\Graphics.hpp>

#include <vcl\Classes.hpp>

#include <vcl\SysUtils.hpp>

#include <vcl\Messages.hpp>

#include <vcl\Windows.hpp>

#include <vcl\System.hpp>

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

class TQRListForm : public TForm

{

__published:

      TQuickReport *QuickReport;

      TQRBand *Title;

      TQRBand *PageHeader;

      TQRBand *Detail;

      TQRBand *PageFooter;

      TQRLabel *QRLabel4;

      TQRLabel *QRLabel1;

      TQRLabel *QRLabel2;

      TQRLabel *QRLabel3;

      TQRLabel *QRLabel5;

      TQRLabel *QRLabel6;

      TQRGroup *QRGroup1;

      TQRSysData *QRSysData1;

      TQRShape *QRShape1;

      TQRDBText *QRDBText3;

      TQRDBText *QRDBText1;

      TQRDBText *QRDBText9;

      TQRDBText *QRDBText10;

      TQRDBText *QRDBText2;

      void __fastcall QRGroup1NeedData(AnsiString &Value);

private:

public:

      virtual __fastcall TQRListForm(TComponent* AOwner);

};

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

extern TQRListForm *QRListForm;

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

#endif   

RichАbt.h:

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

#ifndef RichAbtH

#define RichAbtH

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

#include <ExtCtrls.hpp>

#include <StdCtrls.hpp>

#include <Dialogs.hpp>

#include <Forms.hpp>

#include <Controls.hpp>

#include <Graphics.hpp>

#include <Classes.hpp>

#include <SysUtils.hpp>

#include <Messages.hpp>

#include <Windows.hpp>

#include <System.hpp>

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

class TForm2 : public TForm

{

__published:

      TImage *ProgramIcon;

      TButton *OKButton;

public:

    virtual __fastcall TForm2(TComponent *Owner);

};

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

extern TForm2 *Form2;

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

#endif

Sort.h:

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

#ifndef SortH

#define SortH

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

#include <vcl\Classes.hpp>

#include <vcl\Controls.hpp>

#include <vcl\StdCtrls.hpp>

#include <vcl\Forms.hpp>

#include <vcl\ExtCtrls.hpp>

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

class TForm4 : public TForm

{

__published:      // IDE-managed Components

      TBevel *Bevel1;

      TComboBox *ComboBox1;

      TLabel *Label1;

      TButton *Button1;

      TButton *Button2;

      void __fastcall ComboBox1Change(TObject *Sender);

private:    // User declarations

public:           // User declarations

      __fastcall TForm4(TComponent* Owner);

};

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

extern TForm4 *Form4;

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

#endif

Unit1.h:

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

#ifndef Unit1H

#define Unit1H

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

#include <vcl\Classes.hpp>

#include <vcl\Controls.hpp>

#include <vcl\StdCtrls.hpp>

#include <vcl\Forms.hpp>

#include <vcl\DBTables.hpp>

#include <vcl\DB.hpp>

#include <vcl\DBCtrls.hpp>

#include <vcl\Mask.hpp>

#include <vcl\Buttons.hpp>

#include <vcl\ComCtrls.hpp>

#include <vcl\DBGrids.hpp>

#include "Grids.hpp"

#include <vcl\ExtCtrls.hpp>

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

class TForm3 : public TForm

{

__published:      // IDE-managed Components

      TLabel *Label1;

      TLabel *Label2;

      TLabel *Label3;

      TLabel *Label4;

      TDBEdit *DBEdit3;

      TDBEdit *DBEdit6;

      TLabel *Label6;

      TLabel *Label7;

      TDBEdit *DBEdit8;

      TButton *Button1;

      TButton *Button2;

      TButton *Button5;

      TLabel *Label5;

      TDBEdit *DBEdit4;

    TDBEdit *DBEdit1;

    TDBEdit *DBEdit2;

      TLabel *Label8;

      TDBEdit *DBEdit5;

      TBitBtn *BitBtn1;

      TBitBtn *BitBtn2;

      TButton *Button3;

      TStatusBar *StatusBar1;

      void __fastcall FormCreate(TObject *Sender);

      void __fastcall Button1Click(TObject *Sender);

      void __fastcall Button2Click(TObject *Sender);

      void __fastcall Button6Click(TObject *Sender);

      void __fastcall Button4Click(TObject *Sender);

      void __fastcall Button5Click(TObject *Sender);

      void __fastcall Table1AfterOpen(TDataSet *DataSet);

      void __fastcall Button3Click(TObject *Sender);

private:    // User declarations

public:           // User declarations

      __fastcall TForm3(TComponent* Owner);

};

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

extern TForm3 *Form3;

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

#endif

2.    Файлы с методами:

Project1.cpp:

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

#include <vcl\vcl.h>

#pragma hdrstop

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

USEFORM("kur1.cpp", Form1);

USEFORM("Richabt.cpp", Form2);

USERES("Project1.res");

USEFORM("Report.cpp", QRListForm);

USEDATAMODULE("Datam.cpp", DM1);

USEFORM("Unit1.cpp", Form3);

USEFORM("Findcust.cpp", fmFindCust);

USEFORM("Sort.cpp", Form4);

USEFORM("filter.cpp", Form5);

USEFORM("filename.cpp", Form6);

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

WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)

{

        try

        {

                Application->Initialize();

                Application->CreateForm(__classid(TForm1), &Form1);

            Application->CreateForm(__classid(TQRListForm), &QRListForm);

            Application->CreateForm(__classid(TDM1), &DM1);

            Application->CreateForm(__classid(TForm3), &Form3);

            Application->CreateForm(__classid(TfmFindCust), &fmFindCust);

            Application->CreateForm(__classid(TForm4), &Form4);

            Application->CreateForm(__classid(TForm5), &Form5);

            Application->CreateForm(__classid(TForm6), &Form6);

            Application->Run();

        }

        catch (Exception &exception)

        {

                Application->ShowException(&exception);

        }

        return 0;

}

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

Kur1.cpp:

#include <vcl\vcl.h>

#include <stdio.h>

#pragma hdrstop

#include "kur1.h"

#include "RichAbt.h"

#include "Datam.h"

#include "Report.h"

#include "Unit1.h"

#include "Findcust.h"

#include "Sort.h"

#include "filter.h"

#include "filename.h"

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

#pragma link "Grids"

#pragma resource "*.dfm"

TForm1 *Form1;

AnsiString ff;

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

__fastcall TForm1::TForm1(TComponent* Owner)

        : TForm(Owner)

{

 ff=Form1->Caption;

}

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

void __fastcall TForm1::N10Click(TObject *Sender)

{

      Form1->Caption=ff;

      Form6->ShowModal();

      N2->Enabled=true;

      N20->Enabled=true;

      N5->Enabled=true;

      N14->Enabled=true;

      N16->Enabled=true;

    Form1->Caption =Form1->Caption+"->"+DM1->Table1->TableName;

}

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

void __fastcall TForm1::N17Click(TObject *Sender)

{

Close();

}

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

void __fastcall TForm1::N14Click(TObject *Sender)

{

        QRListForm->QuickReport->Print();

}

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

void __fastcall TForm1::N5Click(TObject *Sender)

{

    DBGrid1->Visible=false;

      DBNavigator1->Enabled=false;

    BitBtn1->Enabled=false;

    BitBtn2->Enabled=false;

    BitBtn3->Enabled=false;

}

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

void __fastcall TForm1::N2Click(TObject *Sender)

{

    DBGrid1->Visible=true;

      DBNavigator1->Enabled=true;

    BitBtn1->Enabled=true;

      DBGrid1->ReadOnly=true;

    BitBtn2->Enabled=true;

    BitBtn3->Enabled=true;

}

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

void __fastcall TForm1::N16Click(TObject *Sender)

{

  QRListForm->QuickReport->Preview();

}

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

void __fastcall TForm1::N20Click(TObject *Sender)

{

     Form3->ShowModal();

     DM1->Table1->Refresh();

  }

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

void __fastcall TForm1::BitBtn1Click(TObject *Sender)

{

   DBGrid1->DataSource=DM1->DataSource2;

   fmFindCust->ShowModal();

  if (fmFindCust->ModalResult == mrOk)

    DM1->Table1->GotoCurrent(DM1->Table1);

}

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

void __fastcall TForm1::BitBtn2Click(TObject *Sender)

{

    DBGrid1->DataSource=DM1->DataSource1;

      Form4->ShowModal();

    if (Form4->ModalResult == mrOk)

    DM1->Table1->GotoCurrent(DM1->Table1);

}

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

void __fastcall TForm1::BitBtn3Click(TObject *Sender)

{

 DBGrid1->DataSource=DM1->DataSource1;

 Form5->ShowModal();

  if (Form4->ModalResult == mrOk)

  DM1->Table1->GotoCurrent(DM1->Table1);

}

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

void __fastcall TForm1::N7Click(TObject *Sender)

{

   if ( OpenDialog1->Execute() )

   {

      Form1->Caption=ff;

      N2->Enabled=true;

      N20->Enabled=true;

      N5->Enabled=true;

      N14->Enabled=true;

      N16->Enabled=true;

     if (DM1->Table1->Active == true )

      DM1->Table1->Active = false;

      DM1->Table1->DatabaseName = ExtractFilePath( OpenDialog1->FileName );

      DM1->Table1->TableName = ExtractFileName( OpenDialog1->FileName );

      DM1->Table1->Active = true;

      Form1->Caption =Form1->Caption+"->"+DM1->Table1->TableName;

   }

}

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

void __fastcall TForm1::N4Click(TObject *Sender)

{

Form2= new TForm2(Application);

Form2->ShowModal();

delete Form2;

}

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

Datam.cpp:

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

#include <vcl\vcl.h>

#pragma hdrstop

#include "Datam.h"

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

#pragma resource "*.dfm"

TDM1 *DM1;

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

__fastcall TDM1::TDM1(TComponent* Owner)

      : TDataModule(Owner)

{

}

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

filename.cpp:

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

#include <vcl\vcl.h>

#pragma hdrstop

#include "filename.h"

#include "Datam.h"

#include "kur1.h"

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

#pragma resource "*.dfm"

TForm6 *Form6;

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

__fastcall TForm6::TForm6(TComponent* Owner)

      : TForm(Owner)

{

}

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

void __fastcall TForm6::Button1Click(TObject *Sender)

{

DM1->Table1->Active=false;

DM1->Query1->Active=false;

if (Edit1->Text == "")

Edit1->Text="ITF.db";

TFileStream *Old = new TFileStream("baza1.db", fmOpenRead);

TFileStream *New = new TFileStream(Edit1->Text,fmCreate);

New->CopyFrom(Old, Old->Size);

delete Old; delete New;

DM1->Table1->TableName=Edit1->Text;

DM1->Query1->Active=true;

DM1->Table1->Active=true;

}

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

filter.cpp:

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

#include <vcl\vcl.h>

#pragma hdrstop

#include "filter.h"

#include "Datam.h"

#include "kur1.h"

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

#pragma resource "*.dfm"

TForm5 *Form5;

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

__fastcall TForm5::TForm5(TComponent* Owner)

      : TForm(Owner)

{

}

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

void __fastcall TForm5::Button3Click(TObject *Sender)

{

AnsiString filter;

filter=Edit1->Text;

if(ComboBox1->Text != ""){

if(Edit1->Text != "" ){

  if (ComboBox1->Text == "L.L.+."){

  DM1->Query1->SQL->Clear();

  DM1->Query1->SQL->Append("Select * From baza Where A=\""+filter+"\"");

  DM1->Query1->Open();

  DM1->Table1->Open();}

  else if (ComboBox1->Text == "Lръєы№ЄхЄ"){

  DM1->Query1->SQL->Clear();

  DM1->Query1->SQL->Append("Select * From baza Where W=\""+filter+"\"");

  DM1->Query1->Open();

  DM1->Table1->Open();}

  else if (ComboBox1->Text == "TяхЎшры№эюёЄ№"){

  DM1->Query1->SQL->Clear();

  DM1->Query1->SQL->Append("Select * From baza Where Q=\""+filter+"\"");

  DM1->Query1->Open();

  DM1->Table1->Open();}

  else if (ComboBox1->Text == "+Ёєяяр"){

  DM1->Query1->SQL->Clear();

  DM1->Query1->SQL->Append("Select * From baza Where S=\""+filter+"\"");

  DM1->Query1->Open();

  DM1->Table1->Open();}

  else if (ComboBox1->Text == "TЁ.+рыы"){

  DM1->Query1->SQL->Clear();

  DM1->Query1->SQL->Append("Select * From baza Where Z>="+filter);

  DM1->Query1->Open();

  DM1->Table1->Open();}}

  else

  {

  DM1->Query1->SQL->Clear();

  DM1->Query1->SQL->Append("Select * From baza ");

  DM1->Query1->Open();

  DM1->Table1->Open();}}

  else{

  DM1->Query1->SQL->Clear();

  DM1->Query1->SQL->Append("Select * From baza ");

  DM1->Query1->Open();

  DM1->Table1->Open();}

  DM1->Table1->Refresh();}

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

findcust.cpp:

#include <vcl.h>

#pragma hdrstop

#include "FindCust.h"

#include "Datam.h"

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

#pragma resource "*.dfm"

TfmFindCust* fmFindCust;

char field[2]={'A','Z'};

char w1;

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

__fastcall TfmFindCust::TfmFindCust(TComponent* Owner)

  : TForm(Owner)

{

}

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

void __fastcall TfmFindCust::ComboBox1Change(TObject *Sender)

{

  if (ComboBox1->Text == "L.L.+.")

   w1=field[0];

  else   if (ComboBox1->Text == "TЁ.+рыы")

     {w1=field[1];

  //Edit1->Text = "";

  }

  else

  ComboBox1->Text ="L.L.+.";

  w1=field[0];

}

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

void __fastcall TfmFindCust::Edit1Change(TObject *Sender)

{

   bool Success;

    Set<TLocateOption,0,1> flags;

    flags << loCaseInsensitive << loPartialKey;

    TLocateOptions Options;

    Success = DM1->Table1->Locate(w1,Edit1->Text,flags);

  DM1->Table1->Refresh();

}

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

Report.cpp:

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

#include <vcl.h>

#pragma hdrstop

#include "Report.h"

#include "Datam.h"

#include "kur1.h"

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

#pragma resource "*.dfm"

TQRListForm *QRListForm;

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

// QuickReport simple list

// - Connect a datasource to the QuickReport component

// - Put QRDBText components on the Detail band

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

__fastcall TQRListForm::TQRListForm(TComponent* AOwner)

      : TForm(AOwner)

{

}

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

void __fastcall TQRListForm::QRGroup1NeedData(AnsiString &Value)

{

//QuickReport->NewPage();

}

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

RichAbt.cpp:

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

//Borland C++Builder

//Copyright (c) 1987, 1997 Borland International Inc. All Rights Reserved.

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

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

#include <vcl.h>

#pragma hdrstop

#include "RichAbt.h"

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

#pragma resource "*.dfm"

TForm2 *Form2;

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

__fastcall TForm2::TForm2(TComponent *Owner)

  : TForm(Owner)

{

}

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

Sort.cpp:

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

#include <vcl\vcl.h>

#pragma hdrstop

#include "Sort.h"

#include "Datam.h"

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

#pragma resource "*.dfm"

TForm4 *Form4;

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

__fastcall TForm4::TForm4(TComponent* Owner)

      : TForm(Owner)

{

}

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

void __fastcall TForm4::ComboBox1Change(TObject *Sender)

{

  if (ComboBox1->Text == "L.L.+."){

  DM1->Query1->SQL->Clear();

  DM1->Query1->SQL->Append("Select * From baza Order by A asc");

  DM1->Query1->Open();

  DM1->Table1->Open();}

  else   if (ComboBox1->Text == "Lръєы№ЄхЄ"){

  DM1->Query1->SQL->Clear();

  DM1->Query1->SQL->Append("Select * From baza Order by W asc");

  DM1->Query1->Open();

  DM1->Table1->Open();}

  else   if (ComboBox1->Text == "TяхЎшры№эюёЄ№"){

  DM1->Query1->SQL->Clear();

  DM1->Query1->SQL->Append("Select * From baza Order by Q asc");

  DM1->Query1->Open();

  DM1->Table1->Open();}

  else   if (ComboBox1->Text == "+Ёєяяр"){

  DM1->Query1->SQL->Clear();

  DM1->Query1->SQL->Append("Select * From baza Order by S asc");

  DM1->Query1->Open();

  DM1->Table1->Open();}

  else   if (ComboBox1->Text == "Lръєы№ЄхЄ"){

  DM1->Query1->SQL->Clear();

  DM1->Query1->SQL->Append("Select * From baza Order by Z asc");

  DM1->Query1->Open();

  DM1->Table1->Open();}

  DM1->Table1->Refresh();

 }

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

Unit1.cpp:

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

#include <vcl\vcl.h>

#pragma hdrstop

#include "Unit1.h"

#include "Datam.h"

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

#pragma link "Grids"

#pragma resource "*.dfm"

TForm3 *Form3;

char predmet1[9]={'H','N','U','J','M','I','K','1','O'};

char predmet2[9]={'E','D','C','R','F','V','T','G','B'};

double ozenka1[12];

int i=0;

double r;

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

__fastcall TForm3::TForm3(TComponent* Owner)

      : TForm(Owner)

{

}

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

void __fastcall TForm3::FormCreate(TObject *Sender)

{

//-юсрты хь эютє¦ чряшё№ т срчє

DM1->Table1->Append();

}

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

void __fastcall TForm3::Button1Click(TObject *Sender)

{

    if(DM1->Table1->State == dsInsert||DM1->Table1->State == dsEdit)

      DM1->Table1->Post();

      DM1->Table1->Append();

    for(i=0;i<=9;i++){

    predmet1[i]=0;}

    i=0;

      Button5->Enabled=true;

      Button2->Enabled=true;

    DBEdit8->DataField='x';

    DBEdit5->DataField='y';

    DBEdit5->ReadOnly=false;

    DBEdit8->ReadOnly=false;

    DBEdit1->ReadOnly=false;

    DBEdit2->ReadOnly=false;

    DBEdit4->ReadOnly=false;

    DBEdit6->ReadOnly=false;

    DBEdit4->Visible=false;

    Label8->Visible=false;

    DM1->Table1->Refresh();

}

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

void __fastcall TForm3::Button6Click(TObject *Sender)

{

   if ( !DM1->Table1->Bof )

      DM1->Table1->Prior();

      i=10;

}

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

void __fastcall TForm3::Button4Click(TObject *Sender)

{

   if ( !DM1->Table1->Eof )

      DM1->Table1->Next();

      i=10;

}

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

void __fastcall TForm3::Button2Click(TObject *Sender)

{

 DM1->Table1->Delete();

 DM1->Table1->Refresh();

 if(DM1->Table1->Eof && DM1->Table1->Bof )

   Button2->Enabled=false;

    DBEdit4->Visible=false;

    Label8->Visible=false;

}

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

void __fastcall TForm3::Button5Click(TObject *Sender)

{

 if(i<=8)

{

 int Size = DBEdit8->GetTextLen();

 char *name = new char[++Size];

 DBEdit8->GetTextBuf(name,Size);

 DBEdit8->Text = name;

  r=atoi(name);

 ozenka1[i]=r;

 delete name;

 r=0;

 DBEdit5->DataField=predmet1[i];

 DBEdit8->DataField=predmet2[i];

 i++;

 Button3->Enabled=true;

}

else {if(i==9){

 int Size = DBEdit8->GetTextLen();

 char *name = new char[++Size];

 DBEdit8->GetTextBuf(name,Size);

 DBEdit8->Text = name;

  r=atoi(name);

 ozenka1[i]=r;

 delete name;

 r=0;}

ozenka1[10]=(ozenka1[0]+ozenka1[1]+ozenka1[2]+ozenka1[3]+ozenka1[4]+ozenka1[5]+ozenka1[6]+ozenka1[7]+ozenka1[8]+ozenka1[9])/10;

DBEdit4->SelText=ozenka1[10];

DM1->Table1->FieldValues["Z"] = ozenka1[10];

Button5->Enabled=false;

Button3->Enabled=false;

DBEdit5->ReadOnly=true;

DBEdit8->ReadOnly=true;

DBEdit1->ReadOnly=true;

DBEdit2->ReadOnly=true;

DBEdit4->ReadOnly=true;

DBEdit6->ReadOnly=true;

DBEdit4->Visible=true;

Label8->Visible=true;

}}

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

void __fastcall TForm3::Table1AfterOpen(TDataSet *DataSet)

{

  if(DM1->Table1->Eof && DM1->Table1->Bof )

      Button2->Enabled=false;

}

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

void __fastcall TForm3::Button3Click(TObject *Sender)

{

 if(i>=0)

{i--;

DBEdit5->DataField=predmet1[i];

DBEdit8->DataField=predmet2[i];

}

else

Button3->Enabled=false;

Button5->Enabled=true;}

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

Список использованной литературы

1.    Трахтенгерц Э.А. «Компьютерная поддержка принятия решений»

2.    Том Сван «Программирование в Borland C++ 5.02»

3.    «Объектно-ориентированный анализ»

4.    Мэт Теллес «Borland С++ Builder»