Приднестровский Государственный Университет

им. Т. Г. Шевченко

Кафедра АСОИиУ

 Курсовая работа

по дисциплине «Технология программирования»
на тему: 

Система рейтингого контроля знаний .
Работу выполнили:                                                 Работу проверили:

студент ИТФ –96В                                                  преподаватели:     

Кольцов Е.С.                                                             Галюшина О.В.

Тирасполь 1999 г.

Содержание:

Задание на курсовую работу

1.1 Задание                                                                                                                                    4

1.2 Реализация                                                                                                                               4

Введение

Глава I:Системы поддержки принятия решений

1. Система Paradox

Глава II: Особенности объектно-ориентированного анализа                                                      19

Информационная модель                                                                                                                 21

Модель состояний для объекта «Операции над БД»                                                                     22

Модель состояний для объекта «Ввод в базу»                                                                                25

Модель взаимодействия объектов                                                                                                  26

Таблица переходов в состояния для объекта «Операции над БД»                                              27

Таблица переходов в состояния для объекта «Ввод в бузу»                                                         28

Список событий                                                                                                                                29

ДПДД для состояния «Инициализация» объекта «Операции над БД»                                       40

ДПДД для состояния «Создание  БД» объекта «Операции над БД»                                           40

ДПДД для состояния «Открытие  БД» объекта «Операции над БД»                                           41

ДПДД для состояния «Редактирование  БД» объекта «Операции над БД»                                41

ДПДД для состояния «Закрытие  БД» объекта «Операции над БД»                                            42

ДПДД для состояния «Ввод данных» объекта «Операции над БД»                                            42

ДПДД для состояния «Сохранение  БД» объекта «Операции над БД»                                       43

ДПДД для состояния «Неуспешное открытие БД»  объекта «Операции над БД»                      43

ДПДД для состояния «Обновление  БД» объекта «Операции над БД»                                      44

Текст программы                                                                                                                               47

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

Задание на курсовую работу

по  дисциплине «Технология программирования»
тема:                              

Система рейтингого контроля знаний .
1.1 Задание
В данной курсовой работе было необходимо написать программу, с использованием объектно-ориентированного метода программирования и объектно-ориентированного анализа, которая позволяла бы вести учетную запись студентов по  десяти предметам с оценкам. В программу заноситься Ф.И.О. студента, факультет на котором он учится, специальность, которую приобретает и группа соответственно. Программа автоматически считает средней балл и заносит его в базу. Данная программа сортирует, находит и фильтрует  данные по студентам, что облегчает поиск или просмотр перед печатью нужных студентов. Результатом программы является вывод перед печатью всех студентов или по каждому студенту соответственно.
1.2 Реализация
Данная программа была реализована на объектно-ориентированном языке С++ и написана в среде разработчика программного обеспечения С++Builder.

Введение

  îáúåêòíîå ïðîãðàììèðîâàíèå:

Òðàäèöèîííàÿ òåõíîëîãèÿ ïðîãðàììèðîâàíèÿ 70-õ ãîäîâ - ñòðóêòóðíîå ïðîãðàììèðîâàíèå:

     - ìîäóëüíîå ïðîãðàììèðîâàíèå;

     - íèñõîäÿùåå ïðîãðàììèðîâàíèå;

     - ñòðóêòóðíîå ïðîåêòèðîâàíèå ïðîöåäóð è äàííûõ (ïðîãðàììèðîâàíèå áåç goto).

     ßçûê Ïàñêàëü  - ñîîòâåòñòâóåò óêàçàííûì ïðèíöèïàì è áûë ðàçðàáîòàí ïîä âëèÿíèåì èäåé ñòðóêòóðíîãî ïðîãðàììèðîâàíèÿ.
     Àëüòåðíàòèâíûé ïîäõîä - âîñõîäÿùåå ïðîãðàììèðîâàíèå -  ïðåäïîëàãàåò â ïðîñòåéøåì ñëó÷àå ñîçäàíèå ñëîÿ ñòðóêòóð äàííûõ è ïðîöåäóð,  îáåñïå÷èâàþùèõ ïîëíûé íàáîð äåéñòâèé íàä îáúåêòàìè, êîòîðûå ïðåäñòàâëåíû â äàííîé çàäà÷å.  Ïðèìåð òðàäèöèîííîãî ïîäõîäà áèáëèîòåêà ñòàíäàðòíûõ ôóíêöèé.
     Ñëåäóþùèé øàã - ââåäåíèå â ïðîãðàììó îáúåêòîâ.  Ïîä îáúåêòîì ïîíèìàåòñÿ ñòðóêòóðà äàííûõ, êîòîðàÿ ñîäåðæèò ïîëíóþ èíôîðìàöèþ î ñîñòîÿíèè ñîîòâåòñòâóþùåãî ôèçè÷åñêîãî îáúåêòà, êîòîðûé îòîáðàæàåòñÿ  ïðîãðàììîé.    Ñè  ýòîìó  ìîæåò  ñîîòâåòñòâîâàòü ñòðóêòóðà struct,  â Ïàñêàëå - çàïèñü (record). Ìíîæåñòâî îáúåêòîâ îäíîãî òèïà ñîñòàâëÿþò ïîíÿòèå êëàññà. Îáúåêòíî-îðèåíòèðîâàííûé ïîäõîä ê ðàçðàáîòêå ïðîãðàìì ïðåäïîëàãàåò, ÷òî â ïðîãðàììå óñòàíàâëèâàåòñÿ âçàèìíî-îäíîçíà÷íîå  ñîîòâåòñòâèå  ìåæäó  ôèçè÷åñêèìè  îáúåêòàìè,

îòîáðàæàåìûìè ïðîãðàììîé,  è ïðîãðàìííûìè îáúåêòàìè, ÿâëÿþùèìèñÿ, ïî  ñóùåñòâó,  ñòðóêòóðèðîâàííûìè  ïåðåìåííûìè  (â äàëüíåéøåì ïîä òåðìèíîì "îáúåêò" áóäåì ïîíèìàòü ïðîãðàììíûé îáúåêò).
Òðàäèöèîííûé ïîäõîä:  ----------    ïåðåìåííàÿ      òèï äàííûõ
Îáúåêòíî-îðèåíòèðîâàííûé ïîäõîä:           

ôèçè÷åñêèé    ïðîãðàììíûé     êëàññ îáúåêò        îáúåêò          îáúåêòîâ
     Ïðè ñîçäàíèè îáúåêòîâ ïðîãðàììèñò îïðåäåëÿåò ìíîæåñòâî ôóíêöèé,  ïðè ïîìîùè êîòîðûõ (à òî÷íåå,  èñêëþ÷èòåëüíî ÷åðåç êîòîðûå)íàä îáúåêòîì âûïîëíÿåòñÿ íåêîòîðîå äîïóñòèìîå ìíîæåñòâî îïåðàöèé.

Òàêèå ôóíêöèè äîëæíû èìåòü îáÿçàòåëüíûé ïàðàìåòð - ññûëêó íà  òåêóùèé îáúåêò,  äëÿ êîòîðîãî îíè âûçûâàþòñÿ. Ñàìè ôóíêöèè ÿâëÿþòñÿ íåîòúåìëèìîé ÷àñòüþ ïîíÿòèÿ êëàññà îáúåêòîâ,  òàê êàê îíè îïðåäåëÿþò  âîçìîæíûå  äåéñòâèÿ íàä îáúåêòàìè îäíîãî è òîãî æå òèïà (òî åñòü êëàññà).

Ôàêòè÷åñêè îïðåäåëåíèå êëàññà îáúåêòîâ êàê òèïà äàííûõ è èçâåñòíîãî íàáîðà ôóíêöèé äëÿ âûïîëíåíèÿ îïåðàöèé  íàä  ïåðåìåííûìè ýòîãî  òèïà ýêâèâàëåíòíî ïîíÿòèþ áàçîâîãî òèïà äàííûõ (ÁÒÄ) ÿçûêà ïðîãðàììèðîâàíèÿ.  Åäèíñòâåííîå îòëè÷èå êëàññà îò ÁÒÄ çàêëþ÷àåòñÿ â òîì,  ÷òî ïåðâûé îïðåäåëÿåòñÿ ïðîãðàììèñòîì, à âòîðîé âñòðîåí â îïðåäåëåíèå ÿçûêà ïðîãðàììèðîâàíèÿ.

     ßçûê ïðîãðàììèðîâàíèÿ  Ñè++  ïðåäñòàâëÿåò  ñîáîé  ðàñøèðåíèå ÿçûêà Ñè äëÿ ïðîãðàììèðîâàíèÿ îáúåêòîâ è  èõ  êëàññîâ.  Ïðè  ýòîì èñïîëüçîâàíèå êëàññîâ ýêâèâàëåíòíî âïëîòü äî ñèíòàêñèñà èñïîëüçîâàíèþ áàçîâûõ òèïîâ äàííûõ.

Текст программы

В листинг программы  был включен весь тот код, который был написан в процессе разработки и  включения тех строк кода, которые были  автоматически сгенерированы С++ Builder:
1.      Заголовочные файлы:

Kur1.h:

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

#ifndef kur1H

#define kur1H

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

#include <vcl\Classes.hpp>

#include <vcl\Controls.hpp>

#include <vcl\StdCtrls.hpp>

#include <vcl\Forms.hpp>

#include <vcl\Menus.hpp>

#include <vcl\Dialogs.hpp>

#include <vcl\ExtCtrls.hpp>

#include <vcl\ComCtrls.hpp>

#include <vcl\DBGrids.hpp>

#include "Grids.hpp"

#include <vcl\Buttons.hpp>

#include <vcl\DBCtrls.hpp>

#include <vcl\Mask.hpp>

#include <vcl\DB.hpp>

#include <vcl\DBTables.hpp>

#include <vcl\QuickRep.hpp>

#include <vcl\system.hpp>

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

class TForm1 : public TForm

{

__published:    // IDE-managed Components

        TMainMenu *MainMenu1;

        TMenuItem *N1;

        TMenuItem *N3;

        TMenuItem *N4;

        TMenuItem *N10;

        TMenuItem *N14;

        TMenuItem *N16;

        TMenuItem *N17;

       TOpenDialog *OpenDialog1;

        TSaveDialog *SaveDialog1;

        TMenuItem *N18;

        TMenuItem *N20;

        TPrintDialog *PrintDialog1;

        TPrinterSetupDialog *PrinterSetupDialog1;

        TStatusBar *StatusBar1;

        TPanel *Panel1;

        TDBGrid *DBGrid1;

        TDBNavigator *DBNavigator1;

      TMenuItem *N2;

      TMenuItem *N5;

      TMenuItem *N6;

      TBitBtn *BitBtn1;

      TBitBtn *BitBtn2;

      TBitBtn *BitBtn3;

      TMenuItem *N7;

        void __fastcall N10Click(TObject *Sender);

        void __fastcall N17Click(TObject *Sender);

        void __fastcall N14Click(TObject *Sender);
      void __fastcall N5Click(TObject *Sender);

      void __fastcall N2Click(TObject *Sender);

      void __fastcall N16Click(TObject *Sender);

      void __fastcall N20Click(TObject *Sender);

      void __fastcall BitBtn1Click(TObject *Sender);

      void __fastcall BitBtn2Click(TObject *Sender);

      void __fastcall BitBtn3Click(TObject *Sender);

      void __fastcall N7Click(TObject *Sender);

      void __fastcall N4Click(TObject *Sender);

private:        // User declarations

public:         // User declarations

//        AnsiString file2;

        __fastcall TForm1(TComponent* Owner);
};

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

extern TForm1 *Form1;

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

#endif

Datam.h:

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

#ifndef DatamH

#define DatamH

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

#include <vcl\Classes.hpp>

#include <vcl\Controls.hpp>

#include <vcl\StdCtrls.hpp>

#include <vcl\Forms.hpp>

#include <vcl\DB.hpp>

#include <vcl\DBTables.hpp>

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

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»