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

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

Рубрика Программирование, компьютеры и кибернетика
Вид дипломная работа
Язык русский
Дата добавления 16.06.2014
Размер файла 5,4 M

Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже

Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.

void __fastcall TForm1::Button38Click(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 ('" + DBGrid6->Fields[1]->AsString + "', '" + DBGrid6->Fields[2]->AsString + "', '"+ DBGrid6->Fields[3]->AsString + "', '"+ DBGrid6->Fields[4]->AsString + "', '"+ DBGrid6->Fields[5]->AsString + "', '"+ DBGrid6->Fields[6]->AsString + "', '"+ DBGrid6->Fields[7]->AsString + "', '"+ DBGrid6->Fields[8]->AsString + "', '"+ DBGrid6->Fields[9]->AsString + "', '"+ DBGrid6->Fields[10]->AsString + "', '"+ DBGrid6->Fields[11]->AsString + "', '"+ DBGrid6->Fields[12]->AsString + "', '"+ DBGrid6->Fields[13]->AsString + "')";

ADOQuery1->ExecSQL();

ADOTable2->Active = true;

DBNavigator6->BtnClick(nbDelete);

}

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

void __fastcall TForm1::Button41Click(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 ('" + DBGrid6->Fields[1]->AsString +

В.15

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

ADOQuery1->ExecSQL();

ADOTable3->Active = true;

DBNavigator6->BtnClick(nbDelete);

}

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

void __fastcall TForm1::Button39Click(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 ('" + DBGrid6->Fields[1]->AsString + "', '" + DBGrid6->Fields[2]->AsString + "', '"+ DBGrid6->Fields[3]->AsString + "', '"+ DBGrid6->Fields[4]->AsString + "', '"+ DBGrid6->Fields[5]->AsString + "', '"+ DBGrid6->Fields[6]->AsString + "', '"+ DBGrid6->Fields[7]->AsString + "', '"+ DBGrid6->Fields[8]->AsString + "', '"+ DBGrid6->Fields[9]->AsString + "', '"+ DBGrid6->Fields[10]->AsString + "', '"+ DBGrid6->Fields[11]->AsString + "', '"+ DBGrid6->Fields[12]->AsString + "', '"+ DBGrid6->Fields[13]->AsString + "')";

ADOQuery1->ExecSQL();

ADOTable4->Active = true;

DBNavigator6->BtnClick(nbDelete);

}

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

void __fastcall TForm1::Button42Click(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 ('" + DBGrid6->Fields[1]->AsString + "', '" + DBGrid6->Fields[2]->AsString + "', '"+ DBGrid6->Fields[3]->AsString + "', '"+ DBGrid6->Fields[4]->AsString + "', '"+ DBGrid6->Fields[5]->AsString + "', '"+ DBGrid6->Fields[6]->AsString + "', '"+ DBGrid6->Fields[7]->AsString + "', '"+ DBGrid6->Fields[8]->AsString + "', '"+ DBGrid6->Fields[9]->AsString + "', '"+ DBGrid6->Fields[10]->AsString + "', '"+ DBGrid6->Fields[11]->AsString + "', '"+ DBGrid6->Fields[12]->AsString + "', '"+ DBGrid6->Fields[13]->AsString + "')";

ADOQuery1->ExecSQL();

ADOTable5->Active = true;

DBNavigator6->BtnClick(nbDelete);

}

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

void __fastcall TForm1::Button43Click(TObject *Sender)

{

ADOTable1->Active = false;

ADOQuery1->Active = false;

ADOQuery1->Close();

В.16

ADOQuery1->SQL->Clear();

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

ADOQuery1->ExecSQL();

ADOTable1->Active = true;

DBNavigator7->BtnClick(nbDelete);

}

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

void __fastcall TForm1::Button46Click(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 ('" + DBGrid7->Fields[1]->AsString + "', '" + DBGrid7->Fields[2]->AsString + "', '"+ DBGrid7->Fields[3]->AsString + "', '"+ DBGrid7->Fields[4]->AsString + "', '"+ DBGrid7->Fields[5]->AsString + "', '"+ DBGrid7->Fields[6]->AsString + "', '"+ DBGrid7->Fields[7]->AsString + "', '"+ DBGrid7->Fields[8]->AsString + "', '"+ DBGrid7->Fields[9]->AsString + "', '"+ DBGrid7->Fields[10]->AsString + "', '"+ DBGrid7->Fields[11]->AsString + "', '"+ DBGrid7->Fields[12]->AsString + "', '"+ DBGrid7->Fields[13]->AsString + "')";

ADOQuery1->ExecSQL();

ADOTable2->Active = true;

DBNavigator7->BtnClick(nbDelete);

}

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

void __fastcall TForm1::Button44Click(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 ('" + DBGrid7->Fields[1]->AsString + "', '" + DBGrid7->Fields[2]->AsString + "', '"+ DBGrid7->Fields[3]->AsString + "', '"+ DBGrid7->Fields[4]->AsString + "', '"+ DBGrid7->Fields[5]->AsString + "', '"+ DBGrid7->Fields[6]->AsString + "', '"+ DBGrid7->Fields[7]->AsString + "', '"+ DBGrid7->Fields[8]->AsString + "', '"+ DBGrid7->Fields[9]->AsString + "', '"+ DBGrid7->Fields[10]->AsString + "', '"+ DBGrid7->Fields[11]->AsString + "', '"+ DBGrid7->Fields[12]->AsString + "', '"+ DBGrid7->Fields[13]->AsString + "')";

ADOQuery1->ExecSQL();

ADOTable3->Active = true;

DBNavigator7->BtnClick(nbDelete);

}

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

void __fastcall TForm1::Button47Click(TObject *Sender)

В.17

{

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 ('" + DBGrid7->Fields[1]->AsString + "', '" + DBGrid7->Fields[2]->AsString + "', '"+ DBGrid7->Fields[3]->AsString + "', '"+ DBGrid7->Fields[4]->AsString + "', '"+ DBGrid7->Fields[5]->AsString + "', '"+ DBGrid7->Fields[6]->AsString + "', '"+ DBGrid7->Fields[7]->AsString + "', '"+ DBGrid7->Fields[8]->AsString + "', '"+ DBGrid7->Fields[9]->AsString + "', '"+ DBGrid7->Fields[10]->AsString + "', '"+ DBGrid7->Fields[11]->AsString + "', '"+ DBGrid7->Fields[12]->AsString + "', '"+ DBGrid7->Fields[13]->AsString + "')";

ADOQuery1->ExecSQL();

ADOTable4->Active = true;

DBNavigator7->BtnClick(nbDelete);

}

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

void __fastcall TForm1::Button45Click(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 ('" + DBGrid7->Fields[1]->AsString + "', '" + DBGrid7->Fields[2]->AsString + "', '"+ DBGrid7->Fields[3]->AsString + "', '"+ DBGrid7->Fields[4]->AsString + "', '"+ DBGrid7->Fields[5]->AsString + "', '"+ DBGrid7->Fields[6]->AsString + "', '"+ DBGrid7->Fields[7]->AsString + "', '"+ DBGrid7->Fields[8]->AsString + "', '"+ DBGrid7->Fields[9]->AsString + "', '"+ DBGrid7->Fields[10]->AsString + "', '"+ DBGrid7->Fields[11]->AsString + "', '"+ DBGrid7->Fields[12]->AsString + "', '"+ DBGrid7->Fields[13]->AsString + "')";

ADOQuery1->ExecSQL();

ADOTable5->Active = true;

DBNavigator7->BtnClick(nbDelete);

}

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

void __fastcall TForm1::Button48Click(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 ('" + DBGrid7->Fields[1]->AsString + "', '" + DBGrid7->Fields[2]->AsString + "', '"+ DBGrid7->Fields[3]->AsString + "', '"+ DBGrid7->Fields[4]->AsString + "', '"+ DBGrid7->Fields[5]->AsString + "', '"+ DBGrid7->Fields[6]->AsString + "', '"+ DBGrid7->Fields[7]->AsString + "', '"+ DBGrid7->Fields[8]->AsString + "', '"+ DBGrid7->Fields[9]->AsString + "', '"+ DBGrid7->Fields[10]->AsString + "', '"+ DBGrid7->Fields[11]->AsString + "', '"+ DBGrid7->Fields[12]->AsString + "', '"+ DBGrid7->Fields[13]->AsString + "')";

ADOQuery1->ExecSQL();

ADOTable6->Active = true;

DBNavigator7->BtnClick(nbDelete);

В.18

}

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

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

#include <vcl.h>

#pragma hdrstop

#include "Unit2.h"

#include "Unit1.h"

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

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm2 *Form2;

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

__fastcall TForm2::TForm2(TComponent* Owner)

: TForm(Owner)

{

}

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

void __fastcall TForm2::Button1Click(TObject *Sender)

{

Form1->DBNavigator1->BtnClick(nbPost);

Form2->Visible = false;

}

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

Размещено на Allbest.ru

...

Подобные документы

  • Создание автоматизированных систем управления для предприятий нефтяной и газовой промышленности. Система управления базами данных (СУБД), ее функциональные возможности, уровневая архитектура. Характеристика реляционных, объектных и распределенных СУБД.

    курсовая работа [434,7 K], добавлен 20.07.2012

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

    дипломная работа [2,4 M], добавлен 02.06.2013

  • Анализ существующих систем автоматизированного проектирования. Преимущества и недостатки универсальных сборочных приспособлений, их конструирование и сборка, современное информационное обеспечение. Создание базы данных для САПР сборочных приспособлений.

    дипломная работа [403,9 K], добавлен 26.03.2012

  • Обзор требований к разрабатываемой системе автоматизации учета учащихся. Сравнительный анализ и выбор инструментальных средств. Обоснование выбора программных средств реализации. Язык веб-программирования PHP. Система управления базами данных MySQL.

    дипломная работа [1,2 M], добавлен 13.06.2014

  • Анализ существующих систем управления базами данных. Общая характеристика и основные требования, предъявляемые к проектируемой информационной системе, ее структура и функциональные возможности. Разработка интерфейса пользователя, отчетов и запросов.

    контрольная работа [939,2 K], добавлен 25.04.2015

  • Иерархические, сетевые и реляционные модели данных. Различия между OLTP и OLAP системами. Обзор существующих систем управления базами данных. Основные приемы работы с MS Access. Система защиты базы данных, иерархия объектов. Язык программирования SQL.

    курс лекций [1,3 M], добавлен 16.12.2010

  • Краткая характеристика и функциональные возможности MS Access. Базы данных и системы управления базами данных. Проектирование в теории и создание на практике базы данных в продукте корпорации Microsoft для управления базами данных "Microsoft Access".

    курсовая работа [1,6 M], добавлен 07.03.2015

  • Предпосылки появления и история эволюции баз данных (БД и СУБД). Основные типы развития систем управления базами данных. Особенности и черты Access. Создание и ввод данных в ячейки таблицы. Сортировка и фильтрация. Запрос на выборку, основные связи.

    презентация [1,2 M], добавлен 01.12.2015

  • Понятие "база данных", общая классификация. Мировой рынок систем управления базами данных по итогам 2007 года. Oracle: общее понятие, функции. Технология Active Data Guard. Опции Total Recall. Сравнение масштабируемости. Сравнение работы кластеров.

    курсовая работа [676,0 K], добавлен 19.05.2015

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

    курсовая работа [3,1 M], добавлен 17.12.2014

  • Анализ возможностей системы управления базами данных "Microsoft Access 2003". Создание базы данных, предназначенной для отражения деятельности аэропорта. Концептуальная и физическая модель базы данных. Создание таблиц, запросов, отчетов и главной формы.

    курсовая работа [1,8 M], добавлен 26.06.2013

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

    дипломная работа [127,4 K], добавлен 28.06.2010

  • Анализ потока данных с учетом их прогнозирования, составления статических отчетов в системах учета. Ограничения на информацию в базе данных. Логическое проектирование баз данных. Описание основных функций групп пользователей и управления данными.

    курсовая работа [1,6 M], добавлен 09.03.2022

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

    курсовая работа [3,1 M], добавлен 21.11.2009

  • Тенденция развития систем управления базами данных. Иерархические и сетевые модели СУБД. Основные требования к распределенной базе данных. Обработка распределенных запросов, межоперабельность. Технология тиражирования данных и многозвенная архитектура.

    реферат [118,3 K], добавлен 29.11.2010

  • Характеристика категорий современных баз данных. Исследование особенностей централизованных и распределенных баз данных. Классификация систем управления базами данных по видам программ и применению. Управление буферами оперативной памяти и транзакциями.

    курсовая работа [45,2 K], добавлен 10.03.2016

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

    контрольная работа [19,9 K], добавлен 16.11.2010

  • Анализ существующих автоматизированных информационных систем и их классификация. Разработка подсистемы персонифицированного учета предприятия. Информационное, алгоритмическое и техническое обеспечение. Программный модуль подсистемы пенсионного учета.

    дипломная работа [1,6 M], добавлен 07.10.2013

  • Исследование свойств системы управления базами данных Firebird. Разработка базы данных для автоматизации учета товарно-материальных ценностей. Изучение главных сущностей и атрибутов, присутствующих в данной базе данных. Построение связей между сущностями.

    курсовая работа [832,8 K], добавлен 23.02.2014

  • Проектирование информационной системы учета научных публикаций в среде Adobe Dreamweaver. Анализ существующих технологий разработки в сервисе. Системы управления базами данных. Конструктор сущности "users", "papers". Функционал системы учета публикаций.

    дипломная работа [2,6 M], добавлен 14.08.2015

Работы в архивах красиво оформлены согласно требованиям ВУЗов и содержат рисунки, диаграммы, формулы и т.д.
PPT, PPTX и PDF-файлы представлены только в архивах.
Рекомендуем скачать работу.