Создание подсистемы для автоматизации деятельности коллекционеров с реализацией возможности учета элементов коллекции

ПРИЛОЖЕНИЕ А

Список названий различных видов коллекционирования

А.1

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

А.2

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

А.3

каталогофилия	каталогов и реестров каких-либо объектов (каталоги марок, книг, монет, медалей, открыток, денежных знаков и т.д.)
кервалабелофилия	пивных этикеток
киндерфилия	киндер-сюрпризов из шоколадных яиц
киноклефилия	брелков для ключей
кипсекофилия	роскошно изданных авторских книг или альбомов, иллюминированных изданий вообще в особых владельческих переплетах. Обычно такие издания изготавливаются в количестве от 1 до 50 экз
кокофрамофилия	отдельных номеров газет
конхиофилия (конхиология, конхилиомания)	морских, речных раковин и ракушек
копоклефилия	колец для ключей (дверных ключей)
кораллография	окаменевших кораллов
кофрокартия	собирание чемоданных наклеек (гостиничных, автомобильных, аэрофлотских и т.д.) и чемоданов
кофрофилия	собирание чемоданов и дорожных сумок
ксирофилия (ксерофилия)	конвертиков и упаковок бритвенных лезвий
легофилия	игрушек lego
лейбология	этикеток, термин используется по отношению к собранию пивных этикеток и является частью бирофилии
лепидоптерофилия	бабочек (натуральных)
лецифиофилия	образцов духов
ляпофилия	нелепостей периодической печати
максимофилия	картмаксимумов, т.е. открыток с наклеенными на них марками такого же рисунка, погашенных штемпелем, тематически соответствующим марке или открытке
маринофилия	морской атрибутики: якорей, изображений маяков, моделей кораблей, оснащения кораблей и судов, якорей и морских узлов
меморифилия	пропусков и пригласительных билетов
мидальеника (фалеристика)	орденов и медалей России и иностранных государств (разрешение на право занятия данным видом коллекционирования прописано в законах РФ)

А.4

микрофилия	молочнокислых бактерий, грибков и использование их человеком
минералогия	минералов и кристаллов, а также изучение влияния камней на характер и судьбу человека
минималистика	мелких предметов
мшелоимство (плюшкинизм)	старых и ни на что непригодных вещей из-за нежелания расставаться с ними
мылофилия	кусков мыла и оберток из-под мыла
никовилия	сигаретных пачек
нордоманофилия (нордомания)	«северной темы» в литературе, изобразительном и прикладном искусстве
нумизматика	монет и предметов денежного обращения
офтальмофилия	линз, очков, оптических приборов и различных таблиц, используемых для контроля уровня зрения
палеонтологофилия	останков ископаемых организмов (бивней, скелетов и их частей) «доисторических» птиц и животных
папирофилия (папирология)	древнеегипетских папирусов
парагеннофилия (парагенное коллекционирование)	аналогичных объектов, объединенных одной темой (например, марок, монет и банкнотов с портретом одного человека)
паремиология	паремий - кратких изречений и притч
перидромофилия	проездных билетов, талонов и карточек
петрофилия	природных камней и минералов
пирофилия	зажигалок и спичек
плангонология	кукол
пресофилия	утюгов
прессофилия	периодических (газет, журналов) и непериодических изданий, книг, брошюр, вырезок из газет и журналов, объединенных общей темой
промграфофилия	произведений графики малых форм, которые используются в прикладных целях (разного рода этикетки, фантики и различная упаковка)
псалиграфофилия (псалиграфия)	вырезанных из бумаги, силуэтов и их изготовление
ренардофилия (ренардофильство)	собирание материалов, связанных с образом хитрого лиса - героя многих сказок и басен

А.5

рецептаризм	рецептов (в разных отраслях)
серпентафилия	змей
сигиллатия	рисунков на почтовых конвертах. В отличие от филателистов сигаллатистов интересуют не столько сами конверты, а рисунки и изображения на них
сигнуманистика	различных нарукавных и нагрудных нашивок и шевронов
скрипофилия	потерявшие ценность акции, облигации, лотерейные билеты, бумажные деньги и талоны
спелеофилателия	марки с изображениями и картами пещер, минералами, найденными в пещерах, фауной пещер, наскальными рисунками, исследователями пещер и пр.
советика	литературных и художественных произведений и материалов, посвященных СССР
ставрографофилия	крестов, их изображений, сведений о наиболее известных крестах-памятниках, значений и символики креста
стереокартия	открытки с объемным изображением, а также двойные стереооткрытки
стикофилия	разных наклеек
стилофилия	разного вида карандашей, средств письма (палочек, стилей, иголок и т.д.)
сфрагистика	всевозможных печатей
табуирофилия	табуированных (матерных, непристойных) слов и выражений
таксидермистикофилия	чучел птиц и животных, их изготовление
татуфилия	татуировок и изучение искусства татуировки
тегестология	подставок для пива (бирдекелей)
тегестофилия	пива
телефонокартия	телефонных карт (один из терминов)
тембрология	устаревшее название филателии
терминофилия	совокупности терминов одной или нескольких наук, дисциплин, видов искусств и коллекционирования
тессеристика	продуктовые талоны, карточки
тиросемиофилия	этикеток от плавленых сырков

А.6

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

А.7

шандалофилия	свечей и подсвечников
шахматофилия	шахмат и всего, что связано с игрой в шахматы
шелонофилия	изображений черепах
школоведение	предметов, тематически связанных со школой и школьной педагогикой: букварей, учебников, учебных пособий, документов (дневников, журналов, ведомостей и т.д.), портретов педагогов, фотографий выпускников.
штемпелеведение	почтовых штемпелей. Является разделом филателии и имеет подразделы: изучение формы штемпелей; функции штемпелей; изучение штемпельной географии; изучение спецгашений
экзонумия (экзотическая нумизматика)	экзотических нумизматических объектов не попадающих под статус официальных гос. денежных знаков: неофициальные памятные знаки и сувениры, имеющие вид монет или денежных знаков, изготовленные по случаю проведения ярмарок, выставок и других юбилейных и традиционных мероприятий
экслибристика	экслибрисов, книжных знаков
энтомологическая коллекция	насекомых
эркафилия	наклеек, которыми оформляется почтовая заказная корреспонденция
эротикофилия	изображений эротического характера
эрринофилия	непочтовых марок. Область на стыке филателии и бонистики. Собирание знаков, не предназначен-ных для оплаты почтовых сборов всех видов: марки, виньетки, квитанции, талоны, этикетки, наклейки, благотворительных членских взносов, милитария, фискальные, налоговые, оплаты услуг, рекламные, агитационные, штрафов, прочие знаки
эфекаларофилия	карманных календарей (название используемое во франции)
эфилабелофилия	собирание винных этикеток
юморинофилия (юморина)	юмористических коллекций, включающих карикатуры, курьезы, игрушки для розыгрыша, юмористические издания и книги
янтарофилия	природного янтаря, предметов и изделий из янтаря

ПРИЛОЖЕНИЕ В

Листинг программы

В.1

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

#include <vcl.h>

#pragma hdrstop

#include "Unit1.h"

#include "Unit2.h"

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

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm1 *Form1;

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

__fastcall TForm1::TForm1(TComponent* Owner)

: TForm(Owner)

{

}

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

void __fastcall TForm1::Exit1Click(TObject *Sender)

{

exit(0);

}

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

void __fastcall TForm1::Add1Click(TObject *Sender)

{

Form2->Visible = true;

}

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

void __fastcall TForm1::Button1Click(TObject *Sender)

{

DBNavigator1->BtnClick(nbInsert);

Form2->Visible = true;

}

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

void __fastcall TForm1::Button2Click(TObject *Sender)

{

DBNavigator1->BtnClick(nbDelete);

}

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

void __fastcall TForm1::Button3Click(TObject *Sender)

{

Form2->Visible = true;

}

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

void __fastcall TForm1::Delete1Click(TObject *Sender)

{

DBNavigator1->BtnClick(nbDelete);

}

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

void __fastcall TForm1::Add2Click(TObject *Sender)

{

DBNavigator1->BtnClick(nbInsert);

}

В.2

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

void __fastcall TForm1::Button4Click(TObject *Sender)

{

ADODataSet1->Close();

Button4->Visible=False;

Button5->Visible=True;

switch ( ComboBox1->ItemIndex ) {

case 0 :

ADODataSet1->CommandText = "SELECT * FROM " + ADOTable1->TableName + " WHERE PuzzleName LIKE \042%" + Edit1->Text + "%\042";

ADODataSet1->Open();

DataSource1->DataSet = ADODataSet1;

break;

case 1 :

ADODataSet1->CommandText = "SELECT * FROM " + ADOTable1->TableName + " WHERE Producer LIKE \042%" + Edit1->Text + "%\042";

ADODataSet1->Open();

DataSource1->DataSet = ADODataSet1;

break;

case 2 :

ADODataSet1->CommandText = "SELECT * FROM " + ADOTable1->TableName + " WHERE Author LIKE \042%" + Edit1->Text + "%\042";

ADODataSet1->Open();

DataSource1->DataSet = ADODataSet1;

break;

}

}

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

void __fastcall TForm1::Button5Click(TObject *Sender)

{

Button4->Visible=True;

Button5->Visible=False;

DataSource1->DataSet = ADOTable1;

ADODataSet1->Close();

Edit1->Text="";

}

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

void __fastcall TForm1::Button6Click(TObject *Sender)

{

ADOTable2->Active = false;

ADOQuery1->Active = false;

ADOQuery1->Close();

ADOQuery1->SQL->Clear();

ADOQuery1->SQL->Text = "INSERT INTO onWay (PuzzleName, Producer, Series, PuzzleTransName, DetailsCount, [Size], Article, Author, [Year], PackSize, CompleteSize, PackWeight, PackageCount) VALUES ('" + DBGrid1->Fields[1]->AsString + "', '" + DBGrid1->Fields[2]->AsString + "', '"+ DBGrid1->Fields[3]->AsString + "', '"+ DBGrid1->Fields[4]->AsString + "', '"+ DBGrid1->Fields[5]->AsString + "', '"+ DBGrid1->Fields[6]->AsString + "', '"+ DBGrid1->Fields[7]->AsString + "', '"+

В.3

DBGrid1->Fields[8]->AsString + "', '"+ DBGrid1->Fields[9]->AsString + "', '"+ DBGrid1->Fields[10]->AsString + "', '"+ DBGrid1->Fields[11]->AsString + "', '"+ DBGrid1->Fields[12]->AsString + "', '"+ DBGrid1->Fields[13]->AsString + "')";

ADOQuery1->ExecSQL();

ADOTable2->Active = true;

}

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

void __fastcall TForm1::Button7Click(TObject *Sender)

{

ADOTable3->Active = false;

ADOQuery1->Active = false;

ADOQuery1->Close();

ADOQuery1->SQL->Clear();

ADOQuery1->SQL->Text = "INSERT INTO inWork (PuzzleName, Producer, Series, PuzzleTransName, DetailsCount, [Size], Article, Author, [Year], PackSize, CompleteSize, PackWeight, PackageCount) VALUES ('" + DBGrid1->Fields[1]->AsString + "', '" + DBGrid1->Fields[2]->AsString + "', '"+ DBGrid1->Fields[3]->AsString + "', '"+ DBGrid1->Fields[4]->AsString + "', '"+ DBGrid1->Fields[5]->AsString + "', '"+ DBGrid1->Fields[6]->AsString + "', '"+ DBGrid1->Fields[7]->AsString + "', '"+ DBGrid1->Fields[8]->AsString + "', '"+ DBGrid1->Fields[9]->AsString + "', '"+ DBGrid1->Fields[10]->AsString + "', '"+ DBGrid1->Fields[11]->AsString + "', '"+ DBGrid1->Fields[12]->AsString + "', '"+ DBGrid1->Fields[13]->AsString + "')";

ADOQuery1->ExecSQL();

ADOTable3->Active = true;

}

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

void __fastcall TForm1::Button8Click(TObject *Sender)

{

ADOTable4->Active = false;

ADOQuery1->Active = false;

ADOQuery1->Close();

ADOQuery1->SQL->Clear();

ADOQuery1->SQL->Text = "INSERT INTO Storage (PuzzleName, Producer, Series, PuzzleTransName, DetailsCount, [Size], Article, Author, [Year], PackSize, CompleteSize, PackWeight, PackageCount) VALUES ('" + DBGrid1->Fields[1]->AsString + "', '" + DBGrid1->Fields[2]->AsString + "', '"+ DBGrid1->Fields[3]->AsString + "', '"+ DBGrid1->Fields[4]->AsString + "', '"+ DBGrid1->Fields[5]->AsString + "', '"+ DBGrid1->Fields[6]->AsString + "', '"+ DBGrid1->Fields[7]->AsString + "', '"+ DBGrid1->Fields[8]->AsString + "', '"+ DBGrid1->Fields[9]->AsString + "', '"+ DBGrid1->Fields[10]->AsString + "', '"+ DBGrid1->Fields[11]->AsString + "', '"+ DBGrid1->Fields[12]->AsString + "', '"+ DBGrid1->Fields[13]->AsString + "')";

ADOQuery1->ExecSQL();

ADOTable4->Active = true;

}

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

void __fastcall TForm1::Button9Click(TObject *Sender)

{

ADOTable5->Active = false;

ADOQuery1->Active = false;

ADOQuery1->Close();

ADOQuery1->SQL->Clear();

ADOQuery1->SQL->Text = "INSERT INTO Wants (PuzzleName, Producer, Series, PuzzleTransName, DetailsCount, [Size], Article, Author, [Year], PackSize, CompleteSize, PackWeight, PackageCount) VALUES ('" + DBGrid1->Fields[1]->AsString + "', '" + DBGrid1->Fields[2]->AsString + "', '"+ DBGrid1->Fields[3]->AsString + "', '"+ DBGrid1->Fields[4]->AsString + "', '"+ DBGrid1->Fields[5]->AsString + "', '"+

В.4

DBGrid1->Fields[6]->AsString + "', '"+ DBGrid1->Fields[7]->AsString + "', '"+ DBGrid1->Fields[8]->AsString + "', '"+ DBGrid1->Fields[9]->AsString + "', '"+ DBGrid1->Fields[10]->AsString + "', '"+ DBGrid1->Fields[11]->AsString + "', '"+ DBGrid1->Fields[12]->AsString + "', '"+ DBGrid1->Fields[13]->AsString + "')";

ADOQuery1->ExecSQL();

ADOTable5->Active = true;

DBGrid1->SelectedField->Clear();

}

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

void __fastcall TForm1::DBGrid1TitleClick(TColumn *Column)

{

ADODataSet1->Close();

ADODataSet1->CommandText = "SELECT * FROM Puzzles ORDER BY '" + Column->FieldName + "'ASC";

ADODataSet1->Open();

DataSource1->DataSet = ADODataSet1;

}

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

void __fastcall TForm1::Button10Click(TObject *Sender)

{

DataSource1->DataSet = ADOTable1;

ADODataSet1->Close();

}

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

void __fastcall TForm1::Button11Click(TObject *Sender)

{

ADOTable6->Active = false;

ADOQuery1->Active = false;

ADOQuery1->Close();

ADOQuery1->SQL->Clear();

ADOQuery1->SQL->Text = "INSERT INTO Zapas (PuzzleName, Producer, Series, PuzzleTransName, DetailsCount, [Size], Article, Author, [Year], PackSize, CompleteSize, PackWeight, PackageCount) VALUES ('" + DBGrid1->Fields[1]->AsString + "', '" + DBGrid1->Fields[2]->AsString + "', '"+ DBGrid1->Fields[3]->AsString + "', '"+ DBGrid1->Fields[4]->AsString + "', '"+ DBGrid1->Fields[5]->AsString + "', '"+ DBGrid1->Fields[6]->AsString + "', '"+ DBGrid1->Fields[7]->AsString + "', '"+ DBGrid1->Fields[8]->AsString + "', '"+ DBGrid1->Fields[9]->AsString + "', '"+ DBGrid1->Fields[10]->AsString + "', '"+ DBGrid1->Fields[11]->AsString + "', '"+ DBGrid1->Fields[12]->AsString + "', '"+ DBGrid1->Fields[13]->AsString + "')";

ADOQuery1->ExecSQL();

ADOTable6->Active = true;

DBNavigator1->BtnClick(nbDelete);

}

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

void __fastcall TForm1::Button12Click(TObject *Sender)

{

ADOTable7->Active = false;

ADOQuery1->Active = false;

ADOQuery1->Close();

ADOQuery1->SQL->Clear();

ADOQuery1->SQL->Text = "INSERT INTO AnotherMaster (PuzzleName, Producer, Series, PuzzleTransName, DetailsCount, [Size], Article, Author, [Year], PackSize, CompleteSize, PackWeight, PackageCount) VALUES ('" + DBGrid1->Fields[1]->AsString + "', '" + DBGrid1->Fields[2]->AsString + "', '"+ DBGrid1->Fields[3]->AsString + "',

В.5

'"+ DBGrid1->Fields[4]->AsString + "', '"+ DBGrid1->Fields[5]->AsString + "', '"+ DBGrid1->Fields[6]->AsString + "', '"+ DBGrid1->Fields[7]->AsString + "', '"+ DBGrid1->Fields[8]->AsString + "', '"+ DBGrid1->Fields[9]->AsString + "', '"+ DBGrid1->Fields[10]->AsString + "', '"+ DBGrid1->Fields[11]->AsString + "', '"+ DBGrid1->Fields[12]->AsString + "', '"+ DBGrid1->Fields[13]->AsString + "')";

ADOQuery1->ExecSQL();

ADOTable7->Active = true;

}

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

void __fastcall TForm1::Button13Click(TObject *Sender)

{

ADOTable3->Active = false;

ADOQuery1->Active = false;

ADOQuery1->Close();

ADOQuery1->SQL->Clear();

ADOQuery1->SQL->Text = "INSERT INTO inWork (PuzzleName, Producer, Series, PuzzleTransName, DetailsCount, [Size], Article, Author, [Year], PackSize, CompleteSize, PackWeight, PackageCount) VALUES ('" + DBGrid2->Fields[1]->AsString + "', '" + DBGrid2->Fields[2]->AsString + "', '"+ DBGrid2->Fields[3]->AsString + "', '"+ DBGrid2->Fields[4]->AsString + "', '"+ DBGrid2->Fields[5]->AsString + "', '"+ DBGrid2->Fields[6]->AsString + "', '"+ DBGrid2->Fields[7]->AsString + "', '"+ DBGrid2->Fields[8]->AsString + "', '"+ DBGrid2->Fields[9]->AsString + "', '"+ DBGrid2->Fields[10]->AsString + "', '"+ DBGrid2->Fields[11]->AsString + "', '"+ DBGrid2->Fields[12]->AsString + "', '"+ DBGrid2->Fields[13]->AsString + "')";

ADOQuery1->ExecSQL();

ADOTable3->Active = true;

DBNavigator2->BtnClick(nbDelete);

}

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

void __fastcall TForm1::Button14Click(TObject *Sender)

{

ADOTable4->Active = false;

ADOQuery1->Active = false;

ADOQuery1->Close();

ADOQuery1->SQL->Clear();

ADOQuery1->SQL->Text = "INSERT INTO Storage (PuzzleName, Producer, Series, PuzzleTransName, DetailsCount, [Size], Article, Author, [Year], PackSize, CompleteSize, PackWeight, PackageCount) VALUES ('" + DBGrid2->Fields[1]->AsString + "', '" + DBGrid2->Fields[2]->AsString + "', '"+ DBGrid2->Fields[3]->AsString + "', '"+ DBGrid2->Fields[4]->AsString + "', '"+ DBGrid2->Fields[5]->AsString + "', '"+ DBGrid2->Fields[6]->AsString + "', '"+ DBGrid2->Fields[7]->AsString + "', '"+ DBGrid2->Fields[8]->AsString + "', '"+ DBGrid2->Fields[9]->AsString + "', '"+ DBGrid2->Fields[10]->AsString + "', '"+ DBGrid2->Fields[11]->AsString + "', '"+ DBGrid2->Fields[12]->AsString + "', '"+ DBGrid2->Fields[13]->AsString + "')";

ADOQuery1->ExecSQL();

ADOTable4->Active = true;

DBNavigator2->BtnClick(nbDelete);

}

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

void __fastcall TForm1::Button15Click(TObject *Sender)

{

ADOTable5->Active = false;

ADOQuery1->Active = false;

ADOQuery1->Close();

ADOQuery1->SQL->Clear();

В.6

ADOQuery1->SQL->Text = "INSERT INTO Wants (PuzzleName, Producer, Series, PuzzleTransName, DetailsCount, [Size], Article, Author, [Year], PackSize, CompleteSize, PackWeight, PackageCount) VALUES ('" + DBGrid2->Fields[1]->AsString + "', '" + DBGrid2->Fields[2]->AsString + "', '"+ DBGrid2->Fields[3]->AsString + "', '"+ DBGrid2->Fields[4]->AsString + "', '"+ DBGrid2->Fields[5]->AsString + "', '"+ DBGrid2->Fields[6]->AsString + "', '"+ DBGrid2->Fields[7]->AsString + "', '"+ DBGrid2->Fields[8]->AsString + "', '"+ DBGrid2->Fields[9]->AsString + "', '"+ DBGrid2->Fields[10]->AsString + "', '"+ DBGrid2->Fields[11]->AsString + "', '"+ DBGrid2->Fields[12]->AsString + "', '"+ DBGrid2->Fields[13]->AsString + "')";

ADOQuery1->ExecSQL();

ADOTable5->Active = true;

DBNavigator2->BtnClick(nbDelete);

}

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

void __fastcall TForm1::Button16Click(TObject *Sender)

{

ADOTable6->Active = false;

ADOQuery1->Active = false;

ADOQuery1->Close();

ADOQuery1->SQL->Clear();

ADOQuery1->SQL->Text = "INSERT INTO Zapas (PuzzleName, Producer, Series, PuzzleTransName, DetailsCount, [Size], Article, Author, [Year], PackSize, CompleteSize, PackWeight, PackageCount) VALUES ('" + DBGrid2->Fields[1]->AsString + "', '" + DBGrid2->Fields[2]->AsString + "', '"+ DBGrid2->Fields[3]->AsString + "', '"+ DBGrid2->Fields[4]->AsString + "', '"+ DBGrid2->Fields[5]->AsString + "', '"+ DBGrid2->Fields[6]->AsString + "', '"+ DBGrid2->Fields[7]->AsString + "', '"+ DBGrid2->Fields[8]->AsString + "', '"+ DBGrid2->Fields[9]->AsString + "', '"+ DBGrid2->Fields[10]->AsString + "', '"+ DBGrid2->Fields[11]->AsString + "', '"+ DBGrid2->Fields[12]->AsString + "', '"+ DBGrid2->Fields[13]->AsString + "')";

ADOQuery1->ExecSQL();

ADOTable6->Active = true;

DBNavigator2->BtnClick(nbDelete);

}

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

void __fastcall TForm1::Button17Click(TObject *Sender)

{

ADOTable7->Active = false;

ADOQuery1->Active = false;

ADOQuery1->Close();

ADOQuery1->SQL->Clear();

ADOQuery1->SQL->Text = "INSERT INTO AnotherMaster (PuzzleName, Producer, Series, PuzzleTransName, DetailsCount, [Size], Article, Author, [Year], PackSize, CompleteSize, PackWeight, PackageCount) VALUES ('" + DBGrid2->Fields[1]->AsString + "', '" + DBGrid2->Fields[2]->AsString + "', '"+ DBGrid2->Fields[3]->AsString + "', '"+ DBGrid2->Fields[4]->AsString + "', '"+ DBGrid2->Fields[5]->AsString + "', '"+ DBGrid2->Fields[6]->AsString + "', '"+ DBGrid2->Fields[7]->AsString + "', '"+ DBGrid2->Fields[8]->AsString + "', '"+ DBGrid2->Fields[9]->AsString + "', '"+ DBGrid2->Fields[10]->AsString + "', '"+ DBGrid2->Fields[11]->AsString + "', '"+ DBGrid2->Fields[12]->AsString + "', '"+ DBGrid2->Fields[13]->AsString + "')";

ADOQuery1->ExecSQL();

ADOTable7->Active = true;

DBNavigator2->BtnClick(nbDelete);

}

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

void __fastcall TForm1::Button18Click(TObject *Sender)

{

В.7

ADOTable1->Active = false;

ADOQuery1->Active = false;

ADOQuery1->Close();

ADOQuery1->SQL->Clear();

ADOQuery1->SQL->Text = "INSERT INTO Puzzles (PuzzleName, Producer, Series, PuzzleTransName, DetailsCount, [Size], Article, Author, [Year], PackSize, CompleteSize, PackWeight, PackageCount) VALUES ('" + DBGrid2->Fields[1]->AsString + "', '" + DBGrid2->Fields[2]->AsString + "', '"+ DBGrid2->Fields[3]->AsString + "', '"+ DBGrid2->Fields[4]->AsString + "', '"+ DBGrid2->Fields[5]->AsString + "', '"+ DBGrid2->Fields[6]->AsString + "', '"+ DBGrid2->Fields[7]->AsString + "', '"+ DBGrid2->Fields[8]->AsString + "', '"+ DBGrid2->Fields[9]->AsString + "', '"+ DBGrid2->Fields[10]->AsString + "', '"+ DBGrid2->Fields[11]->AsString + "', '"+ DBGrid2->Fields[12]->AsString + "', '"+ DBGrid2->Fields[13]->AsString + "')";

ADOQuery1->ExecSQL();

ADOTable1->Active = true;

DBNavigator2->BtnClick(nbDelete);

}

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

void __fastcall TForm1::Button19Click(TObject *Sender)

{

ADOTable4->Active = false;

ADOQuery1->Active = false;

ADOQuery1->Close();

ADOQuery1->SQL->Clear();

ADOQuery1->SQL->Text = "INSERT INTO Storage (PuzzleName, Producer, Series, PuzzleTransName, DetailsCount, [Size], Article, Author, [Year], PackSize, CompleteSize, PackWeight, PackageCount) VALUES ('" + DBGrid3->Fields[1]->AsString + "', '" + DBGrid3->Fields[2]->AsString + "', '"+ DBGrid3->Fields[3]->AsString + "', '"+ DBGrid3->Fields[4]->AsString + "', '"+ DBGrid3->Fields[5]->AsString + "', '"+ DBGrid3->Fields[6]->AsString + "', '"+ DBGrid3->Fields[7]->AsString + "', '"+ DBGrid3->Fields[8]->AsString + "', '"+ DBGrid3->Fields[9]->AsString + "', '"+ DBGrid3->Fields[10]->AsString + "', '"+ DBGrid3->Fields[11]->AsString + "', '"+ DBGrid3->Fields[12]->AsString + "', '"+ DBGrid3->Fields[13]->AsString + "')";

ADOQuery1->ExecSQL();

ADOTable4->Active = true;

DBNavigator3->BtnClick(nbDelete);

}

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

void __fastcall TForm1::Button20Click(TObject *Sender)

{

ADOTable5->Active = false;

ADOQuery1->Active = false;

ADOQuery1->Close();

ADOQuery1->SQL->Clear();

ADOQuery1->SQL->Text = "INSERT INTO Wants (PuzzleName, Producer, Series, PuzzleTransName, DetailsCount, [Size], Article, Author, [Year], PackSize, CompleteSize, PackWeight, PackageCount) VALUES ('" + DBGrid3->Fields[1]->AsString + "', '" + DBGrid3->Fields[2]->AsString + "', '"+ DBGrid3->Fields[3]->AsString + "', '"+ DBGrid3->Fields[4]->AsString + "', '"+ DBGrid3->Fields[5]->AsString + "', '"+ DBGrid3->Fields[6]->AsString + "', '"+ DBGrid3->Fields[7]->AsString + "', '"+ DBGrid3->Fields[8]->AsString + "', '"+ DBGrid3->Fields[9]->AsString + "', '"+ DBGrid3->Fields[10]->AsString + "', '"+ DBGrid3->Fields[11]->AsString + "', '"+ DBGrid3->Fields[12]->AsString + "', '"+ DBGrid3->Fields[13]->AsString + "')";

ADOQuery1->ExecSQL();

ADOTable5->Active = true;

DBNavigator3->BtnClick(nbDelete);

}

В.8

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

void __fastcall TForm1::Button21Click(TObject *Sender)

{

ADOTable6->Active = false;

ADOQuery1->Active = false;

ADOQuery1->Close();

ADOQuery1->SQL->Clear();

ADOQuery1->SQL->Text = "INSERT INTO Zapas (PuzzleName, Producer, Series, PuzzleTransName, DetailsCount, [Size], Article, Author, [Year], PackSize, CompleteSize, PackWeight, PackageCount) VALUES ('" + DBGrid3->Fields[1]->AsString + "', '" + DBGrid3->Fields[2]->AsString + "', '"+ DBGrid3->Fields[3]->AsString + "', '"+ DBGrid3->Fields[4]->AsString + "', '"+ DBGrid3->Fields[5]->AsString + "', '"+ DBGrid3->Fields[6]->AsString + "', '"+ DBGrid3->Fields[7]->AsString + "', '"+ DBGrid3->Fields[8]->AsString + "', '"+ DBGrid3->Fields[9]->AsString + "', '"+ DBGrid3->Fields[10]->AsString + "', '"+ DBGrid3->Fields[11]->AsString + "', '"+ DBGrid3->Fields[12]->AsString + "', '"+ DBGrid3->Fields[13]->AsString + "')";

ADOQuery1->ExecSQL();

ADOTable6->Active = true;

DBNavigator3->BtnClick(nbDelete);

}

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

void __fastcall TForm1::Button22Click(TObject *Sender)

{

ADOTable7->Active = false;

ADOQuery1->Active = false;

ADOQuery1->Close();

ADOQuery1->SQL->Clear();

ADOQuery1->SQL->Text = "INSERT INTO AnotherMaster (PuzzleName, Producer, Series, PuzzleTransName, DetailsCount, [Size], Article, Author, [Year], PackSize, CompleteSize, PackWeight, PackageCount) VALUES ('" + DBGrid3->Fields[1]->AsString + "', '" + DBGrid3->Fields[2]->AsString + "', '"+ DBGrid3->Fields[3]->AsString + "', '"+ DBGrid3->Fields[4]->AsString + "', '"+ DBGrid3->Fields[5]->AsString + "', '"+ DBGrid3->Fields[6]->AsString + "', '"+ DBGrid3->Fields[7]->AsString + "', '"+ DBGrid3->Fields[8]->AsString + "', '"+ DBGrid3->Fields[9]->AsString + "', '"+ DBGrid3->Fields[10]->AsString + "', '"+ DBGrid3->Fields[11]->AsString + "', '"+ DBGrid3->Fields[12]->AsString + "', '"+ DBGrid3->Fields[13]->AsString + "')";

ADOQuery1->ExecSQL();

ADOTable7->Active = true;

DBNavigator3->BtnClick(nbDelete);

}

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

void __fastcall TForm1::Button23Click(TObject *Sender)

{

ADOTable1->Active = false;

ADOQuery1->Active = false;

ADOQuery1->Close();

ADOQuery1->SQL->Clear();

ADOQuery1->SQL->Text = "INSERT INTO Puzzles (PuzzleName, Producer, Series, PuzzleTransName, DetailsCount, [Size], Article, Author, [Year], PackSize, CompleteSize, PackWeight, PackageCount) VALUES ('" + DBGrid3->Fields[1]->AsString + "', '" + DBGrid3->Fields[2]->AsString + "', '"+ DBGrid3->Fields[3]->AsString + "', '"+ DBGrid3->Fields[4]->AsString + "', '"+ DBGrid3->Fields[5]->AsString + "', '"+ DBGrid3->Fields[6]->AsString + "', '"+ DBGrid3->Fields[7]->AsString + "', '"+ DBGrid3->Fields[8]->AsString + "', '"+ DBGrid3->Fields[9]->AsString + "', '"+ DBGrid3->Fields[10]->AsString + "', '"+ DBGrid3->Fields[11]->AsString + "', '"+ DBGrid3->Fields[12]->AsString + "', '"+ DBGrid3->Fields[13]->AsString + "')";

В.9

ADOQuery1->ExecSQL();

ADOTable1->Active = true;

DBNavigator3->BtnClick(nbDelete);

}

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

void __fastcall TForm1::Button24Click(TObject *Sender)

{

ADOTable2->Active = false;

ADOQuery1->Active = false;

ADOQuery1->Close();

ADOQuery1->SQL->Clear();

ADOQuery1->SQL->Text = "INSERT INTO onWay (PuzzleName, Producer, Series, PuzzleTransName, DetailsCount, [Size], Article, Author, [Year], PackSize, CompleteSize, PackWeight, PackageCount) VALUES ('" + DBGrid3->Fields[1]->AsString + "', '" + DBGrid3->Fields[2]->AsString + "', '"+ DBGrid3->Fields[3]->AsString + "', '"+ DBGrid3->Fields[4]->AsString + "', '"+ DBGrid3->Fields[5]->AsString + "', '"+ DBGrid3->Fields[6]->AsString + "', '"+ DBGrid3->Fields[7]->AsString + "', '"+ DBGrid3->Fields[8]->AsString + "', '"+ DBGrid3->Fields[9]->AsString + "', '"+ DBGrid3->Fields[10]->AsString + "', '"+ DBGrid3->Fields[11]->AsString + "', '"+ DBGrid3->Fields[12]->AsString + "', '"+ DBGrid3->Fields[13]->AsString + "')";

ADOQuery1->ExecSQL();

ADOTable2->Active = true;

DBNavigator3->BtnClick(nbDelete);

}

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

void __fastcall TForm1::Button25Click(TObject *Sender)

{

ADOTable5->Active = false;

ADOQuery1->Active = false;

ADOQuery1->Close();

ADOQuery1->SQL->Clear();

ADOQuery1->SQL->Text = "INSERT INTO Wants (PuzzleName, Producer, Series, PuzzleTransName, DetailsCount, [Size], Article, Author, [Year], PackSize, CompleteSize, PackWeight, PackageCount) VALUES ('" + DBGrid4->Fields[1]->AsString + "', '" + DBGrid4->Fields[2]->AsString + "', '"+ DBGrid4->Fields[3]->AsString + "', '"+ DBGrid4->Fields[4]->AsString + "', '"+ DBGrid4->Fields[5]->AsString + "', '"+ DBGrid4->Fields[6]->AsString + "', '"+ DBGrid4->Fields[7]->AsString + "', '"+ DBGrid4->Fields[8]->AsString + "', '"+ DBGrid4->Fields[9]->AsString + "', '"+ DBGrid4->Fields[10]->AsString + "', '"+ DBGrid4->Fields[11]->AsString + "', '"+ DBGrid4->Fields[12]->AsString + "', '"+ DBGrid4->Fields[13]->AsString + "')";

ADOQuery1->ExecSQL();

ADOTable5->Active = true;

DBNavigator4->BtnClick(nbDelete);

}

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

void __fastcall TForm1::Button28Click(TObject *Sender)

{

ADOTable6->Active = false;

ADOQuery1->Active = false;

ADOQuery1->Close();

ADOQuery1->SQL->Clear();

ADOQuery1->SQL->Text = "INSERT INTO Zapas (PuzzleName, Producer, Series, PuzzleTransName, DetailsCount, [Size], Article, Author, [Year], PackSize, CompleteSize, PackWeight, PackageCount) VALUES ('" + DBGrid4->Fields[1]->AsString + "', '" + DBGrid4->Fields[2]->AsString + "', '"+ DBGrid4->Fields[3]->AsString + "', '"+ DBGrid4->Fields[4]->AsString + "', '"+ DBGrid4->Fields[5]->AsString + "', '"+

В.10

DBGrid4->Fields[6]->AsString + "', '"+ DBGrid4->Fields[7]->AsString + "', '"+ DBGrid4->Fields[8]->AsString + "', '"+ DBGrid4->Fields[9]->AsString + "', '"+ DBGrid4->Fields[10]->AsString + "', '"+ DBGrid4->Fields[11]->AsString + "', '"+ DBGrid4->Fields[12]->AsString + "', '"+ DBGrid4->Fields[13]->AsString + "')";

ADOQuery1->ExecSQL();

ADOTable6->Active = true;

DBNavigator4->BtnClick(nbDelete);

}

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

void __fastcall TForm1::Button26Click(TObject *Sender)

{

ADOTable7->Active = false;

ADOQuery1->Active = false;

ADOQuery1->Close();

ADOQuery1->SQL->Clear();

ADOQuery1->SQL->Text = "INSERT INTO AnotherMaster (PuzzleName, Producer, Series, PuzzleTransName, DetailsCount, [Size], Article, Author, [Year], PackSize, CompleteSize, PackWeight, PackageCount) VALUES ('" + DBGrid4->Fields[1]->AsString + "', '" + DBGrid4->Fields[2]->AsString + "', '"+ DBGrid4->Fields[3]->AsString + "', '"+ DBGrid4->Fields[4]->AsString + "', '"+ DBGrid4->Fields[5]->AsString + "', '"+ DBGrid4->Fields[6]->AsString + "', '"+ DBGrid4->Fields[7]->AsString + "', '"+ DBGrid4->Fields[8]->AsString + "', '"+ DBGrid4->Fields[9]->AsString + "', '"+ DBGrid4->Fields[10]->AsString + "', '"+ DBGrid4->Fields[11]->AsString + "', '"+ DBGrid4->Fields[12]->AsString + "', '"+ DBGrid4->Fields[13]->AsString + "')";

ADOQuery1->ExecSQL();

ADOTable7->Active = true;

DBNavigator4->BtnClick(nbDelete);

}

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

void __fastcall TForm1::Button29Click(TObject *Sender)

{

ADOTable1->Active = false;

ADOQuery1->Active = false;

ADOQuery1->Close();

ADOQuery1->SQL->Clear();

ADOQuery1->SQL->Text = "INSERT INTO Puzzles (PuzzleName, Producer, Series, PuzzleTransName, DetailsCount, [Size], Article, Author, [Year], PackSize, CompleteSize, PackWeight, PackageCount) VALUES ('" + DBGrid4->Fields[1]->AsString + "', '" + DBGrid4->Fields[2]->AsString + "', '"+ DBGrid4->Fields[3]->AsString + "', '"+ DBGrid4->Fields[4]->AsString + "', '"+ DBGrid4->Fields[5]->AsString + "', '"+ DBGrid4->Fields[6]->AsString + "', '"+ DBGrid4->Fields[7]->AsString + "', '"+ DBGrid4->Fields[8]->AsString + "', '"+ DBGrid4->Fields[9]->AsString + "', '"+ DBGrid4->Fields[10]->AsString + "', '"+ DBGrid4->Fields[11]->AsString + "', '"+ DBGrid4->Fields[12]->AsString + "', '"+ DBGrid4->Fields[13]->AsString + "')";

ADOQuery1->ExecSQL();

ADOTable1->Active = true;

DBNavigator4->BtnClick(nbDelete);

}

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

void __fastcall TForm1::Button27Click(TObject *Sender)

{

ADOTable2->Active = false;

ADOQuery1->Active = false;

ADOQuery1->Close();

ADOQuery1->SQL->Clear();

В.11

ADOQuery1->SQL->Text = "INSERT INTO onWay (PuzzleName, Producer, Series, PuzzleTransName, DetailsCount, [Size], Article, Author, [Year], PackSize, CompleteSize, PackWeight, PackageCount) VALUES ('" + DBGrid4->Fields[1]->AsString + "', '" + DBGrid4->Fields[2]->AsString + "', '"+ DBGrid4->Fields[3]->AsString + "', '"+ DBGrid4->Fields[4]->AsString + "', '"+ DBGrid4->Fields[5]->AsString + "', '"+ DBGrid4->Fields[6]->AsString + "', '"+ DBGrid4->Fields[7]->AsString + "', '"+ DBGrid4->Fields[8]->AsString + "', '"+ DBGrid4->Fields[9]->AsString + "', '"+ DBGrid4->Fields[10]->AsString + "', '"+ DBGrid4->Fields[11]->AsString + "', '"+ DBGrid4->Fields[12]->AsString + "', '"+ DBGrid4->Fields[13]->AsString + "')";

ADOQuery1->ExecSQL();

ADOTable2->Active = true;

DBNavigator4->BtnClick(nbDelete);

}

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

void __fastcall TForm1::Button30Click(TObject *Sender)

{

ADOTable3->Active = false;

ADOQuery1->Active = false;

ADOQuery1->Close();

ADOQuery1->SQL->Clear();

ADOQuery1->SQL->Text = "INSERT INTO inWork (PuzzleName, Producer, Series, PuzzleTransName, DetailsCount, [Size], Article, Author, [Year], PackSize, CompleteSize, PackWeight, PackageCount) VALUES ('" + DBGrid4->Fields[1]->AsString + "', '" + DBGrid4->Fields[2]->AsString + "', '"+ DBGrid4->Fields[3]->AsString + "', '"+ DBGrid4->Fields[4]->AsString + "', '"+ DBGrid4->Fields[5]->AsString + "', '"+ DBGrid4->Fields[6]->AsString + "', '"+ DBGrid4->Fields[7]->AsString + "', '"+ DBGrid4->Fields[8]->AsString + "', '"+ DBGrid4->Fields[9]->AsString + "', '"+ DBGrid4->Fields[10]->AsString + "', '"+ DBGrid4->Fields[11]->AsString + "', '"+ DBGrid4->Fields[12]->AsString + "', '"+ DBGrid4->Fields[13]->AsString + "')";

ADOQuery1->ExecSQL();

ADOTable3->Active = true;

DBNavigator4->BtnClick(nbDelete);

}

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

void __fastcall TForm1::Button31Click(TObject *Sender)

{

ADOTable6->Active = false;

ADOQuery1->Active = false;

ADOQuery1->Close();

ADOQuery1->SQL->Clear();

ADOQuery1->SQL->Text = "INSERT INTO Zapas (PuzzleName, Producer, Series, PuzzleTransName, DetailsCount, [Size], Article, Author, [Year], PackSize, CompleteSize, PackWeight, PackageCount) VALUES ('" + DBGrid5->Fields[1]->AsString + "', '" + DBGrid5->Fields[2]->AsString + "', '"+ DBGrid5->Fields[3]->AsString + "', '"+ DBGrid5->Fields[4]->AsString + "', '"+ DBGrid5->Fields[5]->AsString + "', '"+ DBGrid5->Fields[6]->AsString + "', '"+ DBGrid5->Fields[7]->AsString + "', '"+ DBGrid5->Fields[8]->AsString + "', '"+ DBGrid5->Fields[9]->AsString + "', '"+ DBGrid5->Fields[10]->AsString + "', '"+ DBGrid5->Fields[11]->AsString + "', '"+ DBGrid5->Fields[12]->AsString + "', '"+ DBGrid5->Fields[13]->AsString + "')";

ADOQuery1->ExecSQL();

ADOTable6->Active = true;

DBNavigator5->BtnClick(nbDelete);

}

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

void __fastcall TForm1::Button34Click(TObject *Sender)

{

В.12

ADOTable7->Active = false;

ADOQuery1->Active = false;

ADOQuery1->Close();

ADOQuery1->SQL->Clear();

ADOQuery1->SQL->Text = "INSERT INTO AnotherMaster (PuzzleName, Producer, Series, PuzzleTransName, DetailsCount, [Size], Article, Author, [Year], PackSize, CompleteSize, PackWeight, PackageCount) VALUES ('" + DBGrid5->Fields[1]->AsString + "', '" + DBGrid5->Fields[2]->AsString + "', '"+ DBGrid5->Fields[3]->AsString + "', '"+ DBGrid5->Fields[4]->AsString + "', '"+ DBGrid5->Fields[5]->AsString + "', '"+ DBGrid5->Fields[6]->AsString + "', '"+ DBGrid5->Fields[7]->AsString + "', '"+ DBGrid5->Fields[8]->AsString + "', '"+ DBGrid5->Fields[9]->AsString + "', '"+ DBGrid5->Fields[10]->AsString + "', '"+ DBGrid5->Fields[11]->AsString + "', '"+ DBGrid5->Fields[12]->AsString + "', '"+ DBGrid5->Fields[13]->AsString + "')";

ADOQuery1->ExecSQL();

ADOTable7->Active = true;

DBNavigator5->BtnClick(nbDelete);

}

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

void __fastcall TForm1::Button32Click(TObject *Sender)

{

ADOTable1->Active = false;

ADOQuery1->Active = false;

ADOQuery1->Close();

ADOQuery1->SQL->Clear();

ADOQuery1->SQL->Text = "INSERT INTO Puzzles (PuzzleName, Producer, Series, PuzzleTransName, DetailsCount, [Size], Article, Author, [Year], PackSize, CompleteSize, PackWeight, PackageCount) VALUES ('" + DBGrid5->Fields[1]->AsString + "', '" + DBGrid5->Fields[2]->AsString + "', '"+ DBGrid5->Fields[3]->AsString + "', '"+ DBGrid5->Fields[4]->AsString + "', '"+ DBGrid5->Fields[5]->AsString + "', '"+ DBGrid5->Fields[6]->AsString + "', '"+ DBGrid5->Fields[7]->AsString + "', '"+ DBGrid5->Fields[8]->AsString + "', '"+ DBGrid5->Fields[9]->AsString + "', '"+ DBGrid5->Fields[10]->AsString + "', '"+ DBGrid5->Fields[11]->AsString + "', '"+ DBGrid5->Fields[12]->AsString + "', '"+ DBGrid5->Fields[13]->AsString + "')";

ADOQuery1->ExecSQL();

ADOTable1->Active = true;

DBNavigator5->BtnClick(nbDelete);

}

//---------------------------------...