Главная: Рефераты

Рефераты. Система рейтингового контроля знаний p> Set flags; flags Locate(w1,Edit1->Text,flags);
DM1->Table1->Refresh();
}
//--------------------------------------------------------------------------
-
Report.cpp:
//---------------------------------------------------------------------
#include
#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
#pragma hdrstop

#include "RichAbt.h"
//--------------------------------------------------------------------------
--
#pragma resource "*.dfm"
TForm2 *Form2;
//--------------------------------------------------------------------------
--
__fastcall TForm2::TForm2(TComponent *Owner)
: TForm(Owner)
{
}
//--------------------------------------------------------------------------
--
Sort.cpp:
//--------------------------------------------------------------------------
-
#include
#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
#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)
DM1->Table1->State == dsEdit)

DM1->Table1->Post();

DM1->Table1->Append(); for(i=0;iEnabled=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(iGetTextLen(); 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»


-----------------------

O8: Осуществляется ввод строк

запроса

6. Просмотр пер. печ (Г)

1

1

Интерфейс

ID Основной

управление

О3.4: Вернуть

[pic]

Выполнение

продукций

Запрос чистых

ID Операции

[pic]

результата

Возврат

Ввод данных

данные

Использует

ID Основной

Интерфейс

Содержит

Содержится в


[pic]

Получить вектор

запросы

Отвечает на

данные

Запрашивает

запроса

Выполнение

связь

Обеспечивает

данные

Получить

Ответ

Запрос

количества

Передача

Ошибка

О3.4: Вернуть

управление

-

R6


ID Базы

R4

R8

R3

R12

R1

R9

[pic]

[pic]

X1.2: Получить

данные

X1.3:Ошибка

заполнения

Порождает O6: Редактирование БД

Операции.Сохранение)

(ID Основной Интерфейс.ID

Вызывается операция

O9: Осуществляется сохранение БД

Операции.Обновление)

(ID Основной Интерфейс.ID

Вызывается операция

5. Запись в БД (ЗБД)

*описание действия

*номер записи

*ID Базы данных (R6)

4. База данных (БД)

*статус

*число записей

*ID псевдоним базы

3. Печать (Х)

*вектор-заполнитель

X1: Инициал.

*количество студентов

окно диалога

2. Операции над БД (ОБД)

*статус

*путь к базе данных

*имя базы данных

*ID Операции

O7: Осуществляется обновление БД

1. Основной интерфейс (ОИ)

*Создание базы данных

*ID Базы данных (R12)

*ID Хранилища

Операции.Редактирование)

(ID Основной Интерфейс.ID

Вызывается операция

O6: Осуществляется редактирование БД

Операции.Создание)

(ID Основной Интерфейс.ID

Вызывается операция

O2: Осуществляется создание БД

Операции.Открытие)

(ID Основной Интерфейс.ID

Вызывается операция

O3: Осуществляется открытие БД

ID Основной Интерфейс.ID Операции.ID ввода данных

Создается объект ввода данных

ID Основной Интерфейс.ID Операции.Имя БД= ""

ID Основной Интерфейс.ID Операции.Путь к БД= ""

ID Основной Интерфейс, ID Операции

Создается объект на главной форме

(ID Основной Интерфейс)

O1. Создается главная форма

БД

Обновление

7

Сохранение

9

Ввод в Базу

8

БД

Редактирование

6

Закрытие БД

5

открытие

Неуспешное

4

базы

Открытие

3

базы

Создание

2

Инициализация

Интерфейс

ID Основной

ID Файла


ID Таблицы

файла

Атрибуты

таблицу

O2.2 Создать

в новый файл

О2.1 Сохранить

Вызывается операция

(ID Основной Интерфейс.ID

Операции.Генерация)

O5: Осуществляется закрытие БД

Вызывается операция

(ID Основной Интерфейс.ID

Операции.Закрытие)

Порождает O1: Инициализация БД

Порождает O5: Закрытие БД

O3: Осуществляется открытие БД

Вызывается операция

(ID Основной Интерфейс.ID

Операции.Открытие)

Порождает O6:

Редактирование

БД

Операции

O4: Неуспешное открытие

(ID Основной Интерфейс.ID

Операции.Открытие.Статус)

Количеств студ.

Ф4.1:Получить

BDE(i):Результат запроса

BDE(i):Запрос

OS(i):Результат запроса

БД (i):Запрос

запроса

АА(i):Результат

OS(i):Запрос

AAB(i):Результат запроса

АА(i):Запрос

SYS5:Закрыть БД

SYS4:Открыть БД

SYS3: Сохранить БД

SYS2:Создать БД

SYS1:Редактировать БД

ЭВМ

ОС

абстракции

Аппаратные

Х3.1: Вернуть опеч. лист

X2:

*один студент

*текущее число студентов

Интерфейс

ID Основной

[pic]

О5:Закрыть БД

О3:Открыть БД

О2:Создать БД

О6:Редактировать БД

О9: Сохранить БД


Г3.2:Поиск


Г3.1:Фильтрация

Г4.6:Сортировка

Г4.1: Получить размер группы

Г4.2: Получить длину группы

Г3.2:Получить по одному

Г3.1:Получить по всем

ID Базы

Х3:Сгенерировать количество

O3:Получить имя БД

Гф3: Ввести все данные

Гф2: Устоновить поле

Г1:Принять решение

Г2: Решение принято

Гф1: Произвести ввод

дерево

Д1:Построить


Сообщение для пользователя


Запрос пользователя


BDE

База данных

Печать

Перемещение по БД

Инициализация

2

Откл. Редактир.
Базы

Операции над БД

3

Формирование

Поиска,фильтр.,сортир.

4

Формирование

групп

5

Отчет

6

Печать

Г1. Создается объект ввода данных

(ID Основной Интерфейс.ID Операции над БД.ID ввода данных)

ID Основной Интерфейс.ID Операции над БД.ID Ввод данных.Ф.И.О.

ID Основной Интерфейс.ID Операции над БД.ID Ввод данных.Факультет


ID Основной Интерфейс.ID Операции над БД.ID Ввод данных.Специальность


ID Основной Интерфейс.ID Операции над БД.ID Ввод данных.Группа


ID Основной Интерфейс.ID Операции над БД.ID Ввод данных.Предмет=10


ID Основной Интерфейс.ID Операции над БД.ID Ввод данных.Оценка=10


Г2: Из базы данных ID Основной Интерфейс.ID Операции

над БД.ID Запись в БД отключение редактирования

ID Основной Интерфейс.ID Операции над БД.сортировка, фильтрация, поиск

Г3: Происходит просмотр введенных данных

ID Основной Интерфейс.ID Операции над БД.ID Переход по строкам

Г4: Происходит формирование групп на основе введенных данных

ID Основной Интерфейс.ID Операции над БД.ID Формировать по выбору

Г5: Происходит формирование готовых групп

ID Основной Интерфейс.ID Операции над БД.ID .Фильтр по сортир., фил.

Г6: Объект печать

ID Основной Интерфейс.ID Операции над БД.ID формирование групп

Ввод данных


Просморт данных

Просмотр перед печатью

Ввод данных

интерфейс

Основной

Пользователь


Страницы: 1, 2, 3, 4, 5
2012 © Все права защищены
При использовании материалов активная ссылка на источник обязательна.