В данном разделе описывается набор операций, необходимых для автоматизируемой технологии обработки данных, форма и способ их выполнения пользователем.

Определим необходимые операции для каждой базы данных:

- просмотр содержащихся записей

- добавление записи

- редактирование записи

- удаление записи

- отбор записей

Определим специфические операции:

- последовательный выбор комплектующих компьютера

- просмотр итоговой сметы

- печать итоговой сметы

- отбор покупок по реквизитам

- просмотр информации о программе

Для реализации всех операций разработаем схему диалога.

Во-первых, рассмотрим главное окно приложения и опишем все его элементы.

Рисунок 3 - Диалоговое окно основной формы

Кнопки "Процессоры", "Мат. платы", "Модули памяти", "Мониторы" позволяют осуществлять просмотр информации, добавление, редактирование и удаление записей в соответствующих таблицах, а также в подчиненных им таблицах "Ядра" и "Чипсеты".

Кнопка "Смета покупки" открывает последовательность диалоговых окон для осуществления выбора комплектации компьютера и включения комплектующих в смету с возможностью распечатки итоговой сметы.

Кнопка "Журнал смет" дает возможность пользователю просмотреть все ранее произведенные покупки, а также задать условия для отбора записей журнала.

Справка: просмотр справочной информации.

Выход: выход из приложения с закрытием всех таблиц и окон.

Все кнопки дублируются в главном меню программы.

Далее более подробно остановимся на схеме организации диалога.

Рисунок 4 - Структура диалога

Окно Processors для просмотра информации о процессорах и загружающий по нажатию клавиши "Процессоры" главного окна, представлен ниже:

Рисунок 5 - Окно Processors

Компонент DBDrid представляет общую информацию о процессорах, показывая их название, тактовую частоту, частоту шину, кэш Level2, и цену. При выборе определенного элемента компонента в полях вывода появляются технические данные ядра процессора.

Справа от таблицы располагаются быстрые кнопки для вызова диалоговых окон добавления и изменения записей, а также кнопка удаления текущей записи. Удаление происходит только после подтверждения пользователя.

При нажатии на кнопку "Добавить" загружается окно Аdd_pr.

Рисунок 6 - Окно добавления элемента справочника

Для добавления нового процессора можно выбрать название ядра с помощью компонента ScrollBox. Это позволяет избежать ненужных ошибок в процессе ввода данных. При нажатии на кнопку "ОК" произойдет запись введенных данных (при нажатии "Cancel" данные не запишутся) и переход к окну Processors.

Если поля формы, помеченные звездочками (обязательные для заполнения), останутся пустыми, то будет выдано сообщение об ошибке.

Рисунок 7 - Сообщение об ошибке

Такое сообщение об ошибке будет выдаваться каждый раз при незаполнении ключевых полей и в дальнейших окнах добавления и редактирования записей.

При нажатии на кнопку "Изменить" загружается окно Edit_pr.

Рисунок 7 - Окно редактирования элемента справочника

По-прежнему изначально необходимо заполнить все поля, отмеченные звездочками. Кнопка "ОК" сохраняет введенные изменения, кнопка "Cancel" осуществляет переход к окну Processors.

При нажатии на кнопку "Удалить" запрашивается подтверждение на удаление.

Рисунок 8 - Подтверждение удаления

При нажатии "Да" выбранная запись удаляется и загружается экран Processors, при нажатии "Нет" просто загружается окно Processors.

Кнопка "Справочник Ядра" переводит пользователя в диалоговое окно подчиненного справочника.

Рисунок 9 - Диалоговое окно подчиненного справочника

Здесь также можно осуществлять, добавление, изменение и удаление записей с помощью компонента DBNavigator. При этом изменения кэшируются и запись обновленных данных в запись произойдет только после нажатия на кнопки "ОК" и "Применить". Кнопка "Отмена" вернет пользователя к окну Processors без сохранения произведенных изменений.

Так как окна диалога с пользователем, соответствующие различным справочникам, практически полностью идентичны (различаясь в основном лишь значениями полей ввода), в рамках данного отчета их рассматривать отдельно не будем, а ограничимся лишь отражением в схеме диалога.

Далее перейдем к следующей кнопке главного окна - "Смета покупки", которая загружает последовательность окон для выбора комплектации компьютера.

Окно SmetaProc

Рисунок 10 - Окно выбора процессора

Содержит таблицу для выбора определенного процессора и поля вывода подробной информации о нем. При нажатии на кнопку "Назад" произойдет переход к главному окну, при нажатии на "Далее" - к окну SmetaMP.

Окно SmetaMP

Рисунок 11 - Окно выбора материнской платы

Данная форма выводит только те материнские платы, которые совместимы с выбранным на предыдущем шаге процессором. Таким образом исключаются случайные ошибки. Также пользователь может увидеть информацию о выбранном процессоре, и установить отбор для упрощения поиска по справочнику материнских плат. При нажатии на кнопку "Назад" произойдет переход к окну SmetaProc, при нажатии на "Далее" - к окну SmetaMem.

Окно SmetaMem

Рисунок 12 - Окно выбора модуля памяти

Аналогично предыдущим окнам содержит таблицу для выбора конкретного модуля памяти, поля вывода и кнопки отмены и перехода к следующему окну. В таблице видны только совместимые модули, а не весь справочник. Также существуют возможности отбора записей.

Окно SmetaMon

Рисунок 13 - Окно выбора монитора

Стандартно содержит компонент DBGrid для выбора монитора, поля вывода информации о выбранном мониторе, кнопки возврата к SmetaMem и перехода к окну SmetaItog.

Окно SmetaItog

Рисунок 14 - Итоговое окно сметы

Здесь вы видите информации О выбранных комплектующих, их технических характеристиках и ценах, а также общую сумму покупки. Существует возможность возврата к предыдущему окну (кнопка "Назад"), печати счета на оплату (кнопка "Печать"), полной отмены покупки ("Отмена"), а также принятия получившейся сметы и регистрации ее в журнале покупок ("Принять"). После принятия или отмены сметы осуществляется переход к главному окну программы.

При выборе кнопки "Журнал смет" главного окна выводится диалоговая форма журнала введенных документов. Здесь представлены широчайшие возможности для отбора записей, отображаемых на экране.

Так как покупок со временем накапливается очень много, то просматривать их все для поиска определенной покупки очень неудобно. Для облегчения поиска можно воспользоваться отбором по полям таблицы. Пользователю необходимо задать лишь поле для отбора, диапазон искомых значений (для дат и чисел), или выбрать конкретной значение из предложенного списка (для строковых полей), и компьютер сам отберет все записи, удовлетворяющие поставленным требованиям. Теперь уже не составит особого труда найти интересующий документ.

Все это можно легко сделать в данной формк с помощью элементов ComboBox, Edit, DateTimePicker. Причем состав компонентов, отображаемых на форме, зависит от типа выбранного поля для отбора.

Рисунок 15 - Диалоговое окно журнала документов

Добавление записи в таблицу "Процессоры"

bool flag_close=true;

IBQuery1->SQL->Clear ();

AnsiString text="",text1="",text2="";

text="insert into Processors (NAME, FREQUENCY";

if (ComboBox1->GetTextLen () >0)

{ text=text+", KERNEL";

text1=",'"+ComboBox1->Text+"'";

}

text=text+", FREQBUS";

if (Edit6->GetTextLen () >0)

{ text=text+", CASHL2";

text2=","+Edit6->Text;

}

try {

IBQuery1->SQL->Add (text+", PRICE) values ('" +

Edit2->Text + "', " + Edit3->Text +text1+", " +

Edit5->Text + text2+", '"+

Edit7->Text+"')");

IBQuery1->ExecSQL ();

}

catch (.) {

Application->MessageBox ("Неверно введены данные", "Ошибка", MB_OK + MB_ICONSTOP);

flag_close=false;

}

if (flag_close) FormProcAdd->Close ();

Редактирование записи в таблице "Процессоры"

bool flag_close=true;

IBQuery1->SQL->Clear ();

AnsiString text;

text="update Processors Set ID=" +

Edit1->Text +", NAME='" + Edit2->Text + "', FREQUENCY= " + Edit3->Text;

if (ComboBox1->GetTextLen () >0)

{ text=text+", KERNEL='"+ComboBox1->Text+"'";

}

else text=text+", KERNEL=NULL";

text=text+", FREQBUS= " + Edit5->Text;

if (Edit6->GetTextLen () >0)

{ text=text+", CASHL2="+Edit6->Text;

}

else text=text+", CASHL2=NULL";

text=text+",PRICE= '"+

Edit7->Text+"' where id="+FormProc->IBQuery1->FieldByName ("ID") - >AsString;

try {

IBQuery1->SQL->Add (text);

IBQuery1->ExecSQL ();

}

catch (.) {

Application->MessageBox ("Неверно введены данные", "Ошибка", MB_OK + MB_ICONSTOP);

flag_close=false;

}

if (flag_close) FormProcEdit->Close ();

Удаление записи из таблицы "Процессоры"

if (Application->MessageBox ("Вы действительно хотите удалить запись?", "Подтверждение", MB_YESNO + MB_ICONQUESTION) ==IDNO)

return;

IBQuery2->SQL->Clear ();

IBQuery2->SQL->Add ("delete from Processors where id=: id");

IBQuery2->ExecSQL ();

IBQuery2->SQL->Clear ();

IBQuery2->SQL->Add ("select * from kernels where (kernel=: kernel)");

IBQuery2->Open ();

IBQuery1->Close ();

IBQuery1->Open ();

Отбор записей в таблице "Процессоры"

void __fastcall TFormProc:: FormShow (TObject *Sender)

{

ComboBox1->Clear ();

ComboBox2->Clear ();

IBQuery3->GetFieldNames (ComboBox1->Items);

ComboBox1->ItemIndex=0;

ComboBox2->Clear ();

IBQuery3->SQL->Clear ();

IBQuery3->SQL->Add ("Select Distinct "+ComboBox1->Text+" As Par From Processors");

IBQuery3->Open ();

while (! IBQuery3->Eof)

{

ComboBox2->Items->Add (IBQuery3->FieldByName ("Par") - >AsString);

IBQuery3->Next ();

}

ComboBox2->ItemIndex=0;

}

}

void __fastcall TFormProc:: Button7Click (TObject *Sender)

{

IBQuery1->SQL->Clear ();

IBQuery1->SQL->Add ("Select * From Processors where "+ComboBox1->Text+"='"+ComboBox2->Text+"'");

IBQuery1->Open ();

IBQuery1->SQL->Clear ();

IBQuery1->SQL->Add ("Select * From Processors where "+ComboBox1->Text+"='"+ComboBox2->Text+"'");

IBQuery1->Open ();

Button8->Enabled=true;

}

Связывание справочника "Процессоры" и подчиненного справочника "Ядра"

void __fastcall TFormProc:: DataSource1DataChange (TObject *Sender,

TField *Field)

{

IBQuery2->SQL->Clear ();

IBQuery2->SQL->Add ("SELECT * FROM Kernels WHERE kernel=: kernel");

IBQuery2->Open ();

Edit1->Text=IBQuery2->FieldByName ("KERNEL") - >AsString;

Edit3->Text=IBQuery2->FieldByName ("CASHL1") - >AsString;

Edit2->Text=IBQuery2->FieldByName ("PLACE") - >AsString;

Edit4->Text=FloatToStrF (IBQuery2->FieldByName ("TECHNOLOGY") - >AsFloat,ffFixed,2,2);

}

Листинг формы SmetaProc

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

#include <vcl. h>

#pragma hdrstop

#include "MF_Unit. h"

#include "SmetaProc_unit. h"

#include "SmetaItog_unit. h"

#include "SmetaMat_unit. h"

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

#pragma package (smart_init)

#pragma resource "*. dfm"

TSmetaProc *SmetaProc;

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

__fastcall TSmetaProc:: TSmetaProc (TComponent* Owner)

: TForm (Owner)

{

}

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

void __fastcall TSmetaProc:: Otbor ()

{

ComboBox2->Clear ();

IBQuery3->SQL->Clear ();

IBQuery3->SQL->Add ("Select Distinct "+ComboBox1->Text+" As Par From Processors");

IBQuery3->Open ();

while (! IBQuery3->Eof)

{

ComboBox2->Items->Add (IBQuery3->FieldByName ("Par") - >AsString);

IBQuery3->Next ();

}

ComboBox2->ItemIndex=0;

}

void __fastcall TSmetaProc:: Button1Click (TObject *Sender)

{

SmetaProc->Close ();

}

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

void __fastcall TSmetaProc:: DataSource1DataChange (TObject *Sender,

TField *Field)

{

IBQuery2->SQL->Clear ();

IBQuery2->SQL->Add ("SELECT * FROM Kernels WHERE kernel=: kernel");

IBQuery2->Open ();

Edit1->Text=IBQuery2->FieldByName ("KERNEL") - >AsString;

Edit3->Text=IBQuery2->FieldByName ("CASHL1") - >AsString;

Edit2->Text=IBQuery2->FieldByName ("PLACE") - >AsString;

Edit4->Text=FloatToStrF (IBQuery2->FieldByName ("TECHNOLOGY") - >AsFloat,ffFixed,2,2);

}

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

void __fastcall TSmetaProc:: FormCreate (TObject *Sender)

{

ComboBox1->Clear ();

ComboBox2->Clear ();

IBQuery3->GetFieldNames (ComboBox1->Items);

ComboBox1->ItemIndex=0;

Otbor ();

}

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

void __fastcall TSmetaProc:: ComboBox1Change (TObject *Sender)

{

Otbor ();

}

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

void __fastcall TSmetaProc:: Button7Click (TObject *Sender)

{

IBQuery1->SQL->Clear ();

IBQuery1->SQL->Add ("Select * From Processors where "+ComboBox1->Text+"='"+ComboBox2->Text+"'");

IBQuery1->Open ();

IBQuery1->SQL->Clear ();

IBQuery1->SQL->Add ("Select * From Processors where "+ComboBox1->Text+"='"+ComboBox2->Text+"'");

IBQuery1->Open ();

Button8->Enabled=true;

}

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

void __fastcall TSmetaProc:: Button8Click (TObject *Sender)

{

IBQuery1->SQL->Clear ();

IBQuery1->SQL->Add ("Select * From Processors");

IBQuery1->Open ();

Button8->Enabled=false;

}

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

void __fastcall TSmetaProc:: FormShow (TObject *Sender)

{

Otbor ();

}

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

void __fastcall TSmetaProc:: Button2Click (TObject *Sender)

{

SmetaItog->Edit1->Text=IBQuery1->FieldByName ("NAME") - >AsString+

" <"+IBQuery2->FieldByName ("PLACE") - >AsString+

", "+IBQuery1->FieldByName ("FREQUENCY") - >AsString+" MHz"+

", "+IBQuery1->FieldByName ("KERNEL") - >AsString+

", FSB "+IBQuery1->FieldByName ("FREQBUS") - >AsString+

">";

SmetaItog->ProcID=IBQuery1->FieldByName ("ID") - >AsInteger;

SmetaItog->Label5->Caption=StringReplace (FloatToStrF (IBQuery1->FieldByName ("PRICE") - >AsFloat,ffGeneral,6,2),',','. ',TReplaceFlags () <<rfReplaceAll);

SmetaProc->Close ();

SmetaMat->Show ();

}

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

Листинг формы SmetaMP

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

#include <vcl. h>

#pragma hdrstop

#include "SmetaMat_unit. h"

#include "SmetaItog_unit. h"

#include "SmetaProc_unit. h"

#include "SmetaMem_unit. h"

#include "MF_Unit. h"

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

#pragma package (smart_init)

#pragma resource "*. dfm"

TSmetaMat *SmetaMat;

AnsiString TextQuery="";

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

__fastcall TSmetaMat:: TSmetaMat (TComponent* Owner)

: TForm (Owner)

{

}

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

void __fastcall TSmetaMat:: Otbor ()

{

ComboBox2->Clear ();

IBQuery3->SQL->Clear ();

IBQuery3->SQL->Add ("Select Distinct "+ComboBox1->Text+" As Par From Matplatas "+TextQuery);

IBQuery3->Open ();

while (! IBQuery3->Eof)

{

ComboBox2->Items->Add (IBQuery3->FieldByName ("Par") - >AsString);

IBQuery3->Next ();

}

ComboBox2->ItemIndex=0;

}

void __fastcall TSmetaMat:: Button1Click (TObject *Sender)

{

SmetaMat->Close ();

SmetaProc->Show ();

}

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

void __fastcall TSmetaMat:: DataSource1DataChange (TObject *Sender,

TField *Field)

{

IBQuery2->SQL->Clear ();

IBQuery2->SQL->Add ("select * from CHIPSETS where (CHIPSET=: CHIPSET)");

IBQuery2->Open ();

Edit1->Text=IBQuery2->FieldByName ("CHIPSET") - >AsString;

Edit3->Text=IBQuery2->FieldByName ("PLACE") - >AsString;

Edit2->Text=IBQuery2->FieldByName ("FREQCPU") - >AsInteger;

Edit4->Text=IBQuery2->FieldByName ("FREQMEM") - >AsInteger;

}

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

void __fastcall TSmetaMat:: FormCreate (TObject *Sender)

{

ComboBox1->Clear ();

ComboBox2->Clear ();

IBQuery3->GetFieldNames (ComboBox1->Items);

ComboBox1->ItemIndex=0;

Otbor ();

}

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

void __fastcall TSmetaMat:: ComboBox1Change (TObject *Sender)

{

Otbor ();

}

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

void __fastcall TSmetaMat:: Button7Click (TObject *Sender)

{

IBQuery1->SQL->Clear ();

IBQuery1->SQL->Add ("Select * From Matplatas "+TextQuery+" AND ("+ComboBox1->Text+"='"+ComboBox2->Text+"')");

IBQuery1->Open ();

IBQuery1->SQL->Clear ();

IBQuery1->SQL->Add ("Select * From Matplatas "+TextQuery+" AND ("+ComboBox1->Text+"='"+ComboBox2->Text+"')");

IBQuery1->Open ();

Button8->Enabled=true;

}

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

void __fastcall TSmetaMat:: Button8Click (TObject *Sender)

{

IBQuery1->SQL->Clear ();

IBQuery1->SQL->Add ("Select * From Matplatas "+TextQuery);

IBQuery1->Open ();

Button8->Enabled=false;

}

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

void __fastcall TSmetaMat:: FormShow (TObject *Sender)

{

AnsiString text;

IBQuery1->SQL->Clear ();

text=SmetaProc->IBQuery2->FieldByName ("Place") - >AsString;

TextQuery="where (chipset IN (select Chipset from Chipsets where (place ='"+text+"')))";

IBQuery1->SQL->Add ("Select * From Matplatas "+TextQuery);

IBQuery1->Open ();

Otbor ();

Label7->Caption="Процессор "+SmetaItog->Edit1->Text;

}

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

void __fastcall TSmetaMat:: Button2Click (TObject *Sender)

{

SmetaItog->Edit2->Text=IBQuery1->FieldByName ("NAME") - >AsString+

" <"+IBQuery2->FieldByName ("PLACE") - >AsString+

", "+IBQuery1->FieldByName ("CHIPSET") - >AsString+

", FSB"+IBQuery2->FieldByName ("FREQCPU") - >AsString+

", DDR"+IBQuery2->FieldByName ("FREQMEM") - >AsString+

", "+IBQuery1->FieldByName ("FORMAT") - >AsString+

">";

SmetaItog->MatID=IBQuery1->FieldByName ("ID") - >AsInteger;

SmetaItog->Label6->Caption=StringReplace (FloatToStrF (IBQuery1->FieldByName ("PRICE") - >AsFloat,ffGeneral,6,2),',','. ',TReplaceFlags () <<rfReplaceAll);

SmetaMat->Close ();

SmetaMem->Show ();

// SmetaItog->ShowModal ();

}

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

Листинг формы SmetaMem

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

#include <vcl. h>

#pragma hdrstop

#include "SmetaMat_unit. h"

#include "SmetaItog_unit. h"

#include "MF_Unit. h"

#include "SmetaMon_unit. h"

#include "SmetaMem_unit. h"

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

#pragma package (smart_init)

#pragma resource "*. dfm"

TSmetaMem *SmetaMem;

AnsiString TextQueryMem="";

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

__fastcall TSmetaMem:: TSmetaMem (TComponent* Owner)

: TForm (Owner)

{

}

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

void __fastcall TSmetaMem:: Otbor ()

{

ComboBox2->Clear ();

IBQuery3->SQL->Clear ();

IBQuery3->SQL->Add ("Select Distinct "+ComboBox1->Text+" As Par From Memorys "+TextQueryMem);

IBQuery3->Open ();

while (! IBQuery3->Eof)

{

ComboBox2->Items->Add (IBQuery3->FieldByName ("Par") - >AsString);

IBQuery3->Next ();

}

ComboBox2->ItemIndex=0;

}

void __fastcall TSmetaMem:: Button1Click (TObject *Sender)

{

SmetaMem->Close ();

SmetaMat->Show ();

}

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

void __fastcall TSmetaMem:: FormCreate (TObject *Sender)

{

ComboBox1->Clear ();

ComboBox2->Clear ();

IBQuery3->GetFieldNames (ComboBox1->Items);

ComboBox1->ItemIndex=0;

Otbor ();

}

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

void __fastcall TSmetaMem:: ComboBox1Change (TObject *Sender)

{

Otbor ();

}

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

void __fastcall TSmetaMem:: Button7Click (TObject *Sender)

{

IBQuery1->SQL->Clear ();

IBQuery1->SQL->Add ("Select * From Memorys "+TextQueryMem+" AND ("+ComboBox1->Text+"='"+ComboBox2->Text+"')");

IBQuery1->Open ();

IBQuery1->SQL->Clear ();

IBQuery1->SQL->Add ("Select * From Memorys "+TextQueryMem+" AND ("+ComboBox1->Text+"='"+ComboBox2->Text+"')");

IBQuery1->Open ();

Button8->Enabled=true;

}

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

void __fastcall TSmetaMem:: Button8Click (TObject *Sender)

{

IBQuery1->SQL->Clear ();

IBQuery1->SQL->Add ("Select * From Memorys "+TextQueryMem);

IBQuery1->Open ();

Button8->Enabled=false;

}

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

void __fastcall TSmetaMem:: FormShow (TObject *Sender)

{

AnsiString text;

IBQuery1->SQL->Clear ();

text=SmetaMat->IBQuery2->FieldByName ("Freqmem") - >AsString;

TextQueryMem="where (Frequency <= "+text+")";

IBQuery1->SQL->Add ("Select * From Memorys "+TextQueryMem);

IBQuery1->Open ();

Otbor ();

Label1->Caption="Процессор "+SmetaItog->Edit1->Text;

Label3->Caption="Мат. плата "+SmetaItog->Edit2->Text;

}

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

void __fastcall TSmetaMem:: Button2Click (TObject *Sender)

{

SmetaItog->Edit3->Text=IBQuery1->FieldByName ("NAME") - >AsString;

SmetaItog->MemID=IBQuery1->FieldByName ("ID") - >AsInteger;

SmetaItog->Label7->Caption=StringReplace (FloatToStrF (IBQuery1->FieldByName ("PRICE") - >AsFloat,ffGeneral,6,2),',','. ',TReplaceFlags () <<rfReplaceAll);

SmetaMem->Close ();

SmetaMon->Show ();

}

Листинг формы SmetaMon

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

#include <vcl. h>

#pragma hdrstop

#include "SmetaMon_unit. h"

#include "MF_Unit. h"

#include "SmetaItog_unit. h"

#include "SmetaMem_unit. h"

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

#pragma package (smart_init)

#pragma resource "*. dfm"

TSmetaMon *SmetaMon;

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

__fastcall TSmetaMon:: TSmetaMon (TComponent* Owner)

: TForm (Owner)

{

}

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

void __fastcall TSmetaMon:: Otbor ()

{

ComboBox2->Clear ();

IBQuery3->SQL->Clear ();

IBQuery3->SQL->Add ("Select Distinct "+ComboBox1->Text+" As Par From Monitors");

IBQuery3->Open ();

while (! IBQuery3->Eof)

{

ComboBox2->Items->Add (IBQuery3->FieldByName ("Par") - >AsString);

IBQuery3->Next ();

}

ComboBox2->ItemIndex=0;

}

void __fastcall TSmetaMon:: Button1Click (TObject *Sender)

{

SmetaMon->Close ();

SmetaMem->Show ();

}

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

void __fastcall TSmetaMon:: FormCreate (TObject *Sender)

{

ComboBox1->Clear ();

ComboBox2->Clear ();

IBQuery3->GetFieldNames (ComboBox1->Items);

ComboBox1->ItemIndex=0;

Otbor ();

}

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

void __fastcall TSmetaMon:: ComboBox1Change (TObject *Sender)

{

Otbor ();

}

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

void __fastcall TSmetaMon:: Button7Click (TObject *Sender)

{

IBQuery1->SQL->Clear ();

IBQuery1->SQL->Add ("Select * From Monitors where "+ComboBox1->Text+"='"+ComboBox2->Text+"'");

IBQuery1->Open ();

IBQuery1->SQL->Clear ();

IBQuery1->SQL->Add ("Select * From Monitors where "+ComboBox1->Text+"='"+ComboBox2->Text+"'");

IBQuery1->Open ();

Button8->Enabled=true;

}

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

void __fastcall TSmetaMon:: Button8Click (TObject *Sender)

{

IBQuery1->SQL->Clear ();

IBQuery1->SQL->Add ("Select * From Monitors");

IBQuery1->Open ();

Button8->Enabled=false;

}

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

void __fastcall TSmetaMon:: FormShow (TObject *Sender)

{

IBQuery1->SQL->Clear ();

IBQuery1->SQL->Add ("Select * From Monitors");

IBQuery1->Open ();

Otbor ();

Label4->Caption="Процессор "+SmetaItog->Edit1->Text;

Label5->Caption="Мат. плата "+SmetaItog->Edit2->Text;

Label7->Caption="Память "+SmetaItog->Edit3->Text;

}

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

void __fastcall TSmetaMon:: DataSource1DataChange (TObject *Sender,

TField *Field)

{

Edit1->Text=IBQuery1->FieldByName ("MAXRAZR") - >AsString;

Edit2->Text=IBQuery1->FieldByName ("REKRAZR") - >AsString;

}

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

void __fastcall TSmetaMon:: Button2Click (TObject *Sender)

{

SmetaItog->Edit4->Text=IBQuery1->FieldByName ("Diagonal") - >AsString+"'' "+

IBQuery1->FieldByName ("NAME") - >AsString+

" <"+IBQuery1->FieldByName ("TYPE") - >AsString+

", "+IBQuery1->FieldByName ("REKRAZR") - >AsString+

", "+IBQuery1->FieldByName ("STANDART") - >AsString+

">";

SmetaItog->MonID=IBQuery1->FieldByName ("ID") - >AsInteger;

SmetaItog->Label8->Caption=StringReplace (FloatToStrF (IBQuery1->FieldByName ("PRICE") - >AsFloat,ffGeneral,6,2),',','. ',TReplaceFlags () <<rfReplaceAll);

SmetaMon->Close ();

SmetaItog->Show ();

}

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

Листинг формы SmetaItog

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

#include <vcl. h>

#pragma hdrstop

#include "MF_Unit. h"

#include "SmetaRep_unit. h"

#include "SmetaMon_unit. h"

#include "SmetaItog_unit. h"

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

#pragma package (smart_init)

#pragma resource "*. dfm"

TSmetaItog *SmetaItog;

int number;

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

__fastcall TSmetaItog:: TSmetaItog (TComponent* Owner)

: TForm (Owner)

{

}

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

void __fastcall TSmetaItog:: Button2Click (TObject *Sender)

{

SmetaItog->Close ();

}

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

void __fastcall TSmetaItog:: FormShow (TObject *Sender)

{

float result;

result=StrToFloat (Label5->Caption) +StrToFloat (Label6->Caption) +StrToFloat (Label7->Caption) +StrToFloat (Label8->Caption);

Label10->Caption=StringReplace (FloatToStrF (result,ffGeneral,6,2),',','. ',TReplaceFlags () <<rfReplaceAll);

IBQuery1->SQL->Clear ();

IBQuery1->SQL->Add ("Select MAX (ID) as Max_ID from Register");

IBQuery1->Open ();