Список литературы

1. Гайдышев И. Решение научных и инженерных задач средствами Excel, VBA и /C++.

2. Культин Н.Б. Самоучитель C++ Builder. – СПб.: БХВ-Петербург, 2004.– 320 с.

3. Бережная Е.В., Бережной В.И. Математические методы моделирования экономических систем. – М.: «Финансы и статистика», 2005. – 432 с.

4. А.Н. Карасев, Н.Ш. Кремер, Т.Н. Савельева «Математические методы в экономике», М. 2000

5. Мину М. Математическое программирование. Теория и алгоритмы. М. 2004

6. Безопасность жизнедеятельности. учебное пособие под Ю.В. Зайцева, РГРТА, 2004 год

7. Уилсон Р. Человек за компьютером. Мир ПК, № 1-1991.

8. В.К. Шумилин, В.И. Осипов «Министерство энергетики РФ РАО «ЕЭС» России «Типовая инструкция по охране труда для пользователей ПЭВМ в электроэнергетике», Москва, 2002, изд. «НЦ ЭНАС»

9. В.К. Шумилин, В.И. Осипов «Министерство энергетики РФ РАО «ЕЭС» России «Типовая инструкция по охране труда для пользователей ПЭВМ в электроэнергетике», Москва, 2002, изд. «НЦ ЭНАС»

Приложение

Текст модуля Unit1.cpp

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

#include <vcl.h>

#pragma hdrstop

#include "Unit1.h"

#include "Unit2.h"

#include "Unit3.h"

#include "Unit4.h"

#include "Unit5.h"

#include "Unit6.h"

#include "Unit7.h"

#include "Unit8.h"

#include "stdlib.h"

#include "math.h"

#include "stdio.h"

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

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm1 *Form1;

int k=0,l=0,m=0,n=0;

char A[10],C[10];

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

__fastcall TForm1::TForm1(TComponent* Owner)

: TForm(Owner)

{

}

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

void __fastcall TForm1::ComboBox1Select(TObject *Sender)

{

sprintf(A,"%s",ComboBox1->Text.c_str());

Form1->Table1->First();

while(Form1->Table1->Eof!=true)

{

if(Form1->Table1INDEX->Value==A)

{

Form1->Edit11->Text=Form1->Table1OBLAST->Value;

Form1->Edit12->Text=Form1->Table1RAYON->Value;

Form1->Edit13->Text=Form1->Table1NAS_PUNKT->Value;

}

Form1->Table1->Next();

}

}

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

void __fastcall TForm1::ComboBox5Select(TObject *Sender)

{

sprintf(C,"%s",ComboBox5->Text.c_str());

Form1->Table1->First();

while(Form1->Table1->Eof!=true)

{

if(Form1->Table1INDEX->Value==C)

{

Form1->Edit14->Text=Form1->Table1OBLAST->Value;

Form1->Edit15->Text=Form1->Table1RAYON->Value;

Form1->Edit16->Text=Form1->Table1NAS_PUNKT->Value;

}

Form1->Table1->Next();

}

}

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

void __fastcall TForm1::Button6Click(TObject *Sender)

{

if(Form1->RadioButton1->Checked==true)

{

k+=1;

Form3->RadioButton1->Checked=false;

Form3->RadioButton2->Checked=false;

Form3->RadioButton3->Checked=false;

Form3->Edit2->Clear();

Form3->Edit3->Clear();

Form3->Show();

}

if(Form1->RadioButton2->Checked==true)

{

l+=1;

Form4->RadioButton1->Checked=false;

Form4->RadioButton2->Checked=false;

Form4->RadioButton3->Checked=false;

Form4->RadioButton4->Checked=false;

Form4->Show();

}

if(Form1->RadioButton3->Checked==true)

{

Form5->RadioButton1->Checked=false;

Form5->RadioButton2->Checked=false;

Form5->RadioButton3->Checked=false;

Form5->Edit1->Clear();

Form5->Edit2->Clear();

Form5->Show();

m+=1;

}

if(Form1->RadioButton4->Checked==true)

{

Form2->RadioButton2->Checked=false;

Form2->RadioButton4->Checked=false;

Form2->RadioButton3->Checked=false;

Form2->RadioButton5->Checked=false;

Form2->CheckBox1->Checked=false;

Form2->CheckBox2->Checked=false;

Form2->Edit1->Clear();

Form2->Edit11->Clear();

Form2->Show();

n+=1;

}

}

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

void __fastcall TForm1::Button1Click(TObject *Sender)

{

Form6->QRLabel2->Caption=Form1->ComboBox1->Text.c_str();

Form6->QRLabel4->Caption=Edit5->Text.c_str();

Form6->QRLabel6->Caption=Edit11->Text.c_str();

Form6->QRLabel8->Caption=Edit12->Text.c_str();

Form6->QRLabel10->Caption=Edit13->Text.c_str();

Form6->QRLabel13->Caption=Edit1->Text.c_str();

Form6->QRLabel15->Caption=Edit2->Text.c_str();

Form6->QRLabel17->Caption=Edit3->Text.c_str();

Form6->QRLabel19->Caption=Edit4->Text.c_str();

Form6->QRLabel33->Caption=Form1->Edit16->Text.c_str();

Form6->QRLabel30->Caption=Form1->Edit10->Text.c_str();

Form6->QuickRep1->Preview();

}

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

Текст модуля Unit2.cpp

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

#include <vcl.h>

#pragma hdrstop

#include "Unit1.h"

#include "Unit2.h"

#include "Unit3.h"

#include "Unit4.h"

#include "Unit5.h"

#include "Unit6.h"

#include "Unit7.h"

#include "Unit8.h"

#include "stdlib.h"

#include "math.h"

#include "stdio.h"

#include "SysUtils.hpp"

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

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm2 *Form2;

extern int n;

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

__fastcall TForm2::TForm2(TComponent* Owner)

: TForm(Owner)

{

}

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

void __fastcall TForm2::Button1Click(TObject *Sender)

{

Form6->QRLabel34->Caption=" ";

Form6->QRLabel2->Caption=" ";

Form6->QRLabel4->Caption=" ";

Form6->QRLabel6->Caption=" ";

Form6->QRLabel8->Caption=" ";

Form6->QRLabel10->Caption=" ";

Form6->QRLabel13->Caption=" ";

Form6->QRLabel15->Caption=" ";

Form6->QRLabel17->Caption=" ";

Form6->QRLabel19->Caption=" ";

Form6->QRLabel22->Caption=" ";

Form6->QRLabel33->Caption=" ";

Form6->QRLabel30->Caption=" ";

Form6->QRLabel24->Caption=" ";

Form6->QRLabel25->Caption=" ";

Form6->QRLabel27->Caption=" ";

char buf[35],pp[20],hh[40],tp[3],buf1[35];

sprintf(hh,"%s",DateToStr(Now()));

sprintf(pp,"%s",IntToStr(n));

sprintf(tp,"пс");

strcat(hh,pp);

strcat(hh,tp);

if(RadioButton2->Checked==true) {sprintf(buf,"Стандартная посылка");} //Стандартная посылка

if(RadioButton3->Checked==true) {sprintf(buf,"Нестандартная посылка");}//Нестандартная посылка

if(RadioButton4->Checked==true) {sprintf(buf,"Тяжеловесная посылка");}//Тяжеловесная посылка

if(RadioButton5->Checked==true) {sprintf(buf,"Тяжеловесная крупногабаритная посылка");}//Тяжеловесная крупногабаритная посылка

if(CheckBox1->Checked==true)

{

sprintf(buf1,"Ценная посылка"); // Ценная посылка

Form6->QRLabel25->Caption="Ценная посылка";

Form6->QRLabel27->Caption=Form2->Edit1->Text;

}

Form6->QRLabel34->Caption=hh;

Form6->QRLabel22->Caption=buf;

Form6->QRLabel24->Caption=Form2->Edit11->Text;

Table1->Edit();

Table1->Insert();

Table1NUM->Value=hh;

Table1INDP->Value=StrToInt(Form1->ComboBox1->Text.c_str());

Table1OBLP->Value=Form1->Edit11->Text;

Table1RAJP->Value=Form1->Edit12->Text;

Table1NASPP->Value=Form1->Edit13->Text;

Table1ULP->Value=Form1->Edit1->Text;

Table1DOMP->Value=Form1->Edit2->Text;

Table1KORPP->Value=Form1->Edit3->Text;

Table1KVP->Value=Form1->Edit4->Text;

Table1FIOP->Value=Form1->Edit5->Text;

Table1INDO->Value=StrToInt(Form1->ComboBox5->Text.c_str());

Table1OBLO->Value=Form1->Edit14->Text;

Table1RAJO->Value=Form1->Edit15->Text;

Table1NASPO->Value=Form1->Edit16->Text;

Table1ULO->Value=Form1->Edit6->Text;

Table1DOMO->Value=Form1->Edit7->Text;

Table1KORPO->Value=Form1->Edit8->Text;

Table1KVO->Value=Form1->Edit9->Text;

Table1FIOO->Value=Form1->Edit10->Text;

Table1TYP->Value=buf;

Table1WES->Value=atof(Edit11->Text.c_str());

Table1CEN->Value=atof(Edit1->Text.c_str());

if(CheckBox2->Checked==true)Table1OSOT->Value="Осторожно";

Table1->Post();

Form2->Close();

}

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

Текст модуля Unit3.cpp

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

#include <vcl.h>

#pragma hdrstop

#include "Unit1.h"

#include "Unit2.h"

#include "Unit3.h"

#include "Unit4.h"

#include "Unit5.h"

#include "Unit6.h"

#include "Unit7.h"

#include "Unit8.h"

#include "stdlib.h"

#include "math.h"

#include "stdio.h"

#include "string.h"

#include "SysUtils.hpp"

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

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm3 *Form3;

extern int k;

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

__fastcall TForm3::TForm3(TComponent* Owner)

: TForm(Owner)

{

}

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

void __fastcall TForm3::Button1Click(TObject *Sender)

{

Form6->QRLabel34->Caption=" ";

Form6->QRLabel2->Caption=" ";

Form6->QRLabel4->Caption=" ";

Form6->QRLabel6->Caption=" ";

Form6->QRLabel8->Caption=" ";

Form6->QRLabel10->Caption=" ";

Form6->QRLabel13->Caption=" ";

Form6->QRLabel15->Caption=" ";

Form6->QRLabel17->Caption=" ";

Form6->QRLabel19->Caption=" ";

Form6->QRLabel22->Caption=" ";

Form6->QRLabel33->Caption=" ";

Form6->QRLabel30->Caption=" ";

Form6->QRLabel24->Caption=" ";

Form6->QRLabel25->Caption=" ";

Form6->QRLabel27->Caption=" ";

char buf[35],pp[20],hh[40],tp[3];

sprintf(hh,"%s",DateToStr(Now()));

sprintf(pp,"%s",IntToStr(k));

sprintf(tp,"п");

strcat(hh,pp);

strcat(hh,tp);

if(RadioButton1->Checked==true) {sprintf(buf,"Простое письмо");} //Простое письмо

if(RadioButton2->Checked==true) {sprintf(buf,"Заказное письмо");}// Заказное письмо

if(RadioButton3->Checked==true)

{

sprintf(buf,"Ценное письмо"); // Письмо с объявленной ценностью

Form6->QRLabel25->Caption="Ценность письма";

Form6->QRLabel27->Caption=Form3->Edit3->Text;

}

Form6->QRLabel34->Caption=hh;

Form6->QRLabel22->Caption=buf;

Form6->QRLabel24->Caption=Form3->Edit2->Text;

Table1->Edit();

Table1->Insert();

Table1NUM->Value=hh;

Table1INDP->Value=StrToInt(Form1->ComboBox1->Text.c_str());

Table1OBLP->Value=Form1->Edit11->Text;

Table1RAJP->Value=Form1->Edit12->Text;

Table1NASPP->Value=Form1->Edit13->Text;

Table1ULP->Value=Form1->Edit1->Text;

Table1DOMP->Value=Form1->Edit2->Text;

Table1KORPP->Value=Form1->Edit3->Text;

Table1KVP->Value=Form1->Edit4->Text;

Table1FIOP->Value=Form1->Edit5->Text;

Table1INDO->Value=StrToInt(Form1->ComboBox5->Text.c_str());

Table1OBLO->Value=Form1->Edit14->Text;

Table1RAJO->Value=Form1->Edit15->Text;

Table1NASPO->Value=Form1->Edit16->Text;

Table1ULO->Value=Form1->Edit6->Text;

Table1DOMO->Value=Form1->Edit7->Text;

Table1KORPO->Value=Form1->Edit8->Text;

Table1KVO->Value=Form1->Edit9->Text;

Table1FIOO->Value=Form1->Edit10->Text;

Table1TYP->Value=buf;

Table1WES->Value=atof(Edit2->Text.c_str());

Table1CEN->Value=atof(Edit3->Text.c_str());

Table1->Post();

Form3->Close();

}

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

Текст модуля Unit4.cpp

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

#include <vcl.h>

#pragma hdrstop

#include "stdlib.h"

#include "math.h"

#include "stdio.h"

#include "string.h"

#include "Unit1.h"

#include "Unit2.h"

#include "Unit3.h"

#include "Unit4.h"

#include "Unit5.h"

#include "Unit6.h"

#include "Unit7.h"

#include "Unit8.h"

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

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm4 *Form4;

extern int l;

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

__fastcall TForm4::TForm4(TComponent* Owner)

: TForm(Owner)

{

}

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

void __fastcall TForm4::Button1Click(TObject *Sender)

{

Form6->QRLabel34->Caption=" ";

Form6->QRLabel2->Caption=" ";

Form6->QRLabel4->Caption=" ";

Form6->QRLabel6->Caption=" ";

Form6->QRLabel8->Caption=" ";

Form6->QRLabel10->Caption=" ";

Form6->QRLabel13->Caption=" ";

Form6->QRLabel15->Caption=" ";

Form6->QRLabel17->Caption=" ";

Form6->QRLabel19->Caption=" ";

Form6->QRLabel22->Caption=" ";

Form6->QRLabel33->Caption=" ";

Form6->QRLabel30->Caption=" ";

Form6->QRLabel24->Caption=" ";

Form6->QRLabel25->Caption=" ";

Form6->QRLabel27->Caption=" ";

char buf[35],pp[20],hh[40],tp[3];

sprintf(hh,"%s",DateToStr(Now()));

sprintf(pp,"%s",IntToStr(k));

sprintf(tp,"ки");

strcat(hh,pp);

strcat(hh,tp);

if(RadioButton1->Checked==true) {sprintf(buf,"Простая почтовая карточка");} //Простая карточка

if(RadioButton2->Checked==true) {sprintf(buf,"Заказная почтовая карточка");}// Заказная карточка

if(RadioButton3->Checked==true) {sprintf(buf,"Простое уведомление");} //Простое уведомление

if(RadioButton4->Checked==true){sprintf(buf,"Заказное уведомление");} //Заказное уведомление

Form6->QRLabel34->Caption=hh;

Form6->QRLabel22->Caption=buf;

Form6->QRLabel24->Caption=" ";

Table1->Edit();

Table1->Insert();

Table1NUM->Value=hh;

Table1INDP->Value=StrToInt(Form1->ComboBox1->Text.c_str());

Table1OBLP->Value=Form1->Edit11->Text;

Table1RAJP->Value=Form1->Edit12->Text;

Table1NASPP->Value=Form1->Edit13->Text;

Table1ULP->Value=Form1->Edit1->Text;

Table1DOMP->Value=StrToInt(Form1->Edit2->Text);

Table1KORPP->Value=Form1->Edit3->Text;

Table1KVP->Value=StrToInt(Form1->Edit4->Text);

Table1FIOP->Value=Form1->Edit5->Text;

Table1INDO->Value=StrToInt(Form1->ComboBox5->Text.c_str());

Table1OBLO->Value=Form1->Edit14->Text;

Table1RAJO->Value=Form1->Edit15->Text;

Table1NASPO->Value=Form1->Edit16->Text;

Table1ULO->Value=Form1->Edit6->Text;

Table1DOMO->Value=StrToInt(Form1->Edit7->Text);

Table1KORPO->Value=Form1->Edit8->Text;

Table1KVO->Value=StrToInt(Form1->Edit9->Text);

Table1FIOO->Value=Form1->Edit10->Text;

Table1TYP->Value=buf;

Table1->Post();

Form4->Close();

}

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

Текст модуля Unit5.cpp

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

#include <vcl.h>

#pragma hdrstop

#include "Unit1.h"

#include "Unit2.h"

#include "Unit3.h"

#include "Unit4.h"

#include "Unit5.h"

#include "Unit6.h"

#include "Unit7.h"

#include "Unit8.h"

#include "stdlib.h"

#include "math.h"

#include "stdio.h"

#include "SysUtils.hpp"

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

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm5 *Form5;

char B[5];

extern int m;

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

__fastcall TForm5::TForm5(TComponent* Owner)

: TForm(Owner)

{

}

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

void __fastcall TForm5::Button1Click(TObject *Sender)

{

Form6->QRLabel34->Caption=" ";

Form6->QRLabel2->Caption=" ";

Form6->QRLabel4->Caption=" ";

Form6->QRLabel6->Caption=" ";

Form6->QRLabel8->Caption=" ";

Form6->QRLabel10->Caption=" ";

Form6->QRLabel13->Caption=" ";

Form6->QRLabel15->Caption=" ";

Form6->QRLabel17->Caption=" ";

Form6->QRLabel19->Caption=" ";

Form6->QRLabel22->Caption=" ";

Form6->QRLabel33->Caption=" ";

Form6->QRLabel30->Caption=" ";

Form6->QRLabel24->Caption=" ";

Form6->QRLabel25->Caption=" ";

Form6->QRLabel27->Caption=" ";

char buf[35],pp[20],hh[40],tp[3];

sprintf(hh,"%s",DateToStr(Now()));

sprintf(pp,"%s",IntToStr(m));

sprintf(tp,"б");

strcat(hh,pp);

strcat(hh,tp);

if(RadioButton1->Checked==true) {sprintf(buf,"Простая бандероль");} //Простая бандероль

if(RadioButton2->Checked==true) {sprintf(buf,"Заказная бандероль");}// Заказная бандероль

if(RadioButton3->Checked==true)

{

sprintf(buf,"Ценная бандероль"); // Бандероль с объявленной ценностью

Form6->QRLabel25->Caption="Ценность бандероли";

Form6->QRLabel27->Caption=Form5->Edit2->Text;

}

Form6->QRLabel34->Caption=hh;

Form6->QRLabel22->Caption=buf;

Form6->QRLabel24->Caption=Form5->Edit1->Text;

Table1->Edit();

Table1->Insert();

Table1NUM->Value=hh;

Table1INDP->Value=StrToInt(Form1->ComboBox1->Text.c_str());

Table1OBLP->Value=Form1->Edit11->Text;

Table1RAJP->Value=Form1->Edit12->Text;

Table1NASPP->Value=Form1->Edit13->Text;

Table1ULP->Value=Form1->Edit1->Text;

Table1DOMP->Value=Form1->Edit2->Text;

Table1KORPP->Value=Form1->Edit3->Text;

Table1KVP->Value=Form1->Edit4->Text;

Table1FIOP->Value=Form1->Edit5->Text;

Table1INDO->Value=StrToInt(Form1->ComboBox5->Text.c_str());

Table1OBLO->Value=Form1->Edit14->Text;

Table1RAJO->Value=Form1->Edit15->Text;

Table1NASPO->Value=Form1->Edit16->Text;

Table1ULO->Value=Form1->Edit6->Text;

Table1DOMO->Value=Form1->Edit7->Text;

Table1KORPO->Value=Form1->Edit8->Text;

Table1KVO->Value=Form1->Edit9->Text;

Table1FIOO->Value=Form1->Edit10->Text;

Table1TYP->Value=buf;

Table1WES->Value=atof(Edit1->Text.c_str());

Table1CEN->Value=atof(Edit2->Text.c_str());

Table1->Post();

Form5->Close();

}

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

Текст модуля Unit6.cpp

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

#include <vcl.h>

#pragma hdrstop

#include "Unit1.h"

#include "Unit2.h"

#include "Unit3.h"

#include "Unit4.h"

#include "Unit5.h"

#include "Unit6.h"

#include "Unit7.h"

#include "Unit8.h"

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

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm6 *Form6;

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

__fastcall TForm6::TForm6(TComponent* Owner)

: TForm(Owner)

{

}

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

Текст модуля Unit7.cpp

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

#include <vcl.h>

#pragma hdrstop

#include "Unit1.h"

#include "Unit2.h"

#include "Unit3.h"

#include "Unit4.h"

#include "Unit5.h"

#include "Unit6.h"

#include "Unit7.h"

#include "Unit8.h"

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

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm7 *Form7;

int k,l,m,n;

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

__fastcall TForm7::TForm7(TComponent* Owner)

: TForm(Owner)

{

}

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

void __fastcall TForm7::Button1Click(TObject *Sender)

{

Form1->Show();

}

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

void __fastcall TForm7::Button2Click(TObject *Sender)

{

Form8->Show();

}

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

Текст модуля Unit8.cpp

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

#include <vcl.h>

#pragma hdrstop

#include "Unit1.h"

#include "Unit2.h"

#include "Unit3.h"

#include "Unit4.h"

#include "Unit5.h"

#include "Unit6.h"

#include "Unit7.h"

#include "Unit8.h"

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

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm8 *Form8;

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

__fastcall TForm8::TForm8(TComponent* Owner)

: TForm(Owner)

{

}

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

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

void __fastcall TForm8::Button1Click(TObject *Sender)

{

Form3->Table1->Filtered=False;

AnsiString a=Edit1->Text;

Form3->Table1->Filter="NUM="+QuotedStr(a);

Form3->Table1->Filtered=True;

}

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

void __fastcall TForm8::Button2Click(TObject *Sender)

{

Edit1->Clear();

Form3->Table1->Filtered=False;

}

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

void __fastcall TForm8::Button3Click(TObject *Sender)

{

Form5->Table1->Filtered=False;

AnsiString a=Edit2->Text;

Form5->Table1->Filter="NUM="+QuotedStr(a);

Form5->Table1->Filtered=True;

}

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

void __fastcall TForm8::Button4Click(TObject *Sender)

{

Edit2->Clear();

Form5->Table1->Filtered=False;

}

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

void __fastcall TForm8::Button5Click(TObject *Sender)

{

Form4->Table1->Filtered=False;

AnsiString a=Edit3->Text;

Form4->Table1->Filter="NUM="+QuotedStr(a);

Form4->Table1->Filtered=True;

}

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

void __fastcall TForm8::Button6Click(TObject *Sender)

{

Edit3->Clear();

Form4->Table1->Filtered=False;

}

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

void __fastcall TForm8::Button7Click(TObject *Sender)

{

Form2->Table1->Filtered=False;

AnsiString a=Edit4->Text;

Form2->Table1->Filter="NUM="+QuotedStr(a);

Form2->Table1->Filtered=True;

}

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

void __fastcall TForm8::Button8Click(TObject *Sender)

{

Edit4->Clear();

Form2->Table1->Filtered=False;

}

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

14