для объекта «Ввод данных»

Состояние	В1	В2	В3	В4	В5	В6
Инициализация	-	2	-	-	-	-
Отключения редактирования	-	-	3	-	-	-
Формирование поиска, фильт., сортир.,	-	-	-	4	-	-
Формирование групп	-	-	-	-	5	-
Просмотр Перед печ.						6
Печать	-	-	-	-	-	-

 

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

Метка	Значение	Данные события	Источник	Предназначение
О1	Инициализация	ID Основной интерфейс.ID Операции	Основной интерфейс	Операции
О2	Создание БД	ID Основной интерфейс.ID Операции.Создание	Операция	Создание
О3	Открытие БД	ID Основной интерфейс.ID Операции.Открытие	Операция	Открытие
О4	Неуспех	ID Основной интерфейс.ID Операции.Открытие.Статус	Операция	Статус
О5	Закрытие БД	ID Основной интерфейс.ID Операции.Закрытие	Операция	Закрытие
О6	Редактирование БД	ID Основной интерфейс.ID Операции.Редактирование	Операция	Редактирование
О7	Обновление БД	ID Основной интерфейс.ID Операции.Обновление	Операция	Обновление
О8	Ввод в БД	ID Основной интерфейс.ID Операции.	Операция	Редактирование
О9	Сохранение БД	ID Основной интерфейс.ID Операции.Сохранение	Операция	Сохранение
В1	Инициализация	ID Основной интерфейс.ID Операции	Основной интерфейс	База данных
В2	Отключения редактирования	ID Основной интерфейс.ID Операции.	Операция	Переход в основной интерфейс
В3	Формирование поиска, фильтра, сортировки	ID Основной интерфейс.ID Операции.ID	Основной интерфейс	Формирование фильтра
В4	Формирование групп	ID Основной интерфейс.ID Операции.	Основной интерфейс	Формировать
В5	Просмотр перед печатью	ID Основной интерфейс.ID Операции.ID	Основной интерфейс	Просмотр учащихся
В6	Печать	ID Основной интерфейс.ID Операции.ID	Основной интерфейс	Учащихся

 

 

ДПДД для состояния Инициализация

Объекта «Операции над БД»

 

 

 

ДПДД для состояния Создание базы

Объекта «Операции над БД»

 

 

ДПДД для состояния Открытие базы

Объекта «Операции над БД»

 

 

ДПДД для состояния Редактирование базы

Объекта «Операции над БД»

 

 

ДПДД для состояния Закрытие базы

Объекта «Операции над БД»

 

 

 

 

ДПДД для состояния Сохранение БД

Объекта «Операции над БД»

 

 

 

ДПДД для состояния Неуспешное открытие БД

Объекта «Операции над БД»

 

 

ДПДД для состояния Обновление БД

Объекта «Операции над БД»

 

 

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

В листинг программы был включен весь тот код, который был написан в процессе разработки и включения тех строк кода, которые были автоматически сгенерированы С++ 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»