Главная Коллекция "Otherreferats" Программирование, компьютеры и кибернетика Информационно-справочная система мебельного магазина

Информационно-справочная система мебельного магазина

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

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

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

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

Страница:

if( ComboBox7.Text='Цвет')then

ADOTable4.Locate('Цвет',edit7.text, [loPartialKey]);

if( ComboBox7.Text='Размер')then

ADOTable4.Locate('Размер',edit7.text, [loPartialKey]);

if( ComboBox7.Text='Цена')then

ADOTable4.Locate('Цена',edit7.text, [loPartialKey]);

if( ComboBox7.Text='Производитель')then

ADOTable4.Locate('Производитель',edit7.text, [loPartialKey]);

if( ComboBox7.Text='Количество')then

ADOTable4.Locate('Количество',edit7.text, [loPartialKey]);

end;

end;

procedure TForm1.N6Click(Sender: TObject);

begin

form2.show ()

end;

procedure TForm1.N3Click(Sender: TObject);

begin

ShellExecute(Application.Handle, 'open', 'Справка.chm', nil, nil, 1);

end;

procedure TForm1.N7Click(Sender: TObject);

var

XLApp,Sheet,Colum:Variant;

index,i:Integer;

begin

XLApp:= CreateOleObject('Excel.Application');

XLApp.Visible:=true;

XLApp.Workbooks.Add(-4167);

XLApp.Workbooks[1].WorkSheets[1].Name:='Отчёт';

Colum:=XLApp.Workbooks[1].WorkSheets['Отчёт'].Columns;

Colum.Columns[1].ColumnWidth:=20;

Colum.Columns[2].ColumnWidth:=20;

Colum.Columns[3].ColumnWidth:=20;

Colum.Columns[4].ColumnWidth:=20;

Colum.Columns[5].ColumnWidth:=20;

Colum.Columns[6].ColumnWidth:=20;

Colum.Columns[7].ColumnWidth:=20;

Colum.Columns[8].ColumnWidth:=20;

Colum.Columns[9].ColumnWidth:=20;

Colum:=XLApp.Workbooks[1].WorkSheets['Отчёт'].Rows;

Colum.Rows[2].Font.Bold:=true;

Colum.Rows[1].Font.Bold:=true;

Colum.Rows[1].Font.Color:=clBlue;

Colum.Rows[1].Font.Size:=14;

Sheet:=XLApp.Workbooks[1].WorkSheets['Отчёт'];

Sheet.Cells[1,2]:='Гостинная';

Sheet.Cells[2,1]:='Код';

Sheet.Cells[2,2]:='Тип';

Sheet.Cells[2,3]:='Наименование';

Sheet.Cells[2,4]:='Цвет';

Sheet.Cells[2,5]:='Размер';

Sheet.Cells[2,6]:='Производитель';

Sheet.Cells[2,7]:='Материал';

Sheet.Cells[2,8]:='Цена';

Sheet.Cells[2,9]:='Количество';

index:=3;

ADOTable2.First;

for i:=0 to ADOTable2.RecordCount-1 do

begin

Sheet.Cells[index,1]:=ADOTable2.Fields.Fields[0].AsString;

Sheet.Cells[index,2]:=ADOTable2.Fields.Fields[1].AsString;

Sheet.Cells[index,3]:=ADOTable2.Fields.Fields[2].AsString;

Sheet.Cells[index,4]:=ADOTable2.Fields.Fields[3].AsString;

Sheet.Cells[index,5]:=ADOTable2.Fields.Fields[4].AsString;

Sheet.Cells[index,6]:=ADOTable2.Fields.Fields[5].AsString;

Sheet.Cells[index,7]:=ADOTable2.Fields.Fields[6].AsString;

Sheet.Cells[index,8]:=ADOTable2.Fields.Fields[7].AsString;

Sheet.Cells[index,9]:=ADOTable2.Fields.Fields[8].AsString;

Inc(index);

ADOTable2.Next;

end;

end;

procedure TForm1.Edit4Change(Sender: TObject);

begin

if edit4.Text<>'' then begin

ADOTable2.Filtered:=true;

if combobox4.Text='Тип' then

ADOTable2.Filter:='Тип' + ' LIKE ' + #39 + edit4.Text + '%' + #39;

if combobox4.Text='Наименование' then

ADOTable2.Filter:='Наименование' + ' LIKE ' + #39 + edit4.Text + '%' + #39;

if combobox4.Text='Цвет' then

ADOTable2.Filter:='Цвет' + ' LIKE ' + #39 + edit4.Text + '%' + #39;

if combobox4.Text='Размер' then

ADOTable2.Filter:='Размер' + ' LIKE ' + #39 + edit4.Text + '%' + #39;

if combobox4.Text='Производитель' then

ADOTable2.Filter:='Производитель' + ' LIKE ' + #39 + edit4.Text + '%' + #39;

if combobox4.Text='Материал' then

ADOTable2.Filter:='Материал' + ' LIKE ' + #39 + edit4.Text + '%' + #39;

if combobox4.Text='Цена' then

ADOTable2.Filter:='Цена' + ' LIKE ' + #39 + edit4.Text + '%' + #39;

if combobox4.Text='Количество' then

ADOTable2.Filter:='Количество' + ' LIKE ' + #39 + edit4.Text + '%' + #39;

end

else ADOTable2.Filtered:=false;

end;

procedure TForm1.Edit6Change(Sender: TObject);

begin

if edit6.Text<>'' then begin

ADOTable3.Filtered:=true;

if combobox6.Text='Тип' then

ADOTable3.Filter:='Тип' + ' LIKE ' + #39 + edit6.Text + '%' + #39;

if combobox6.Text='Наименование' then

ADOTable3.Filter:='Наименование' + ' LIKE ' + #39 + edit6.Text + '%' + #39;

if combobox6.Text='Цвет' then

ADOTable3.Filter:='Цвет' + ' LIKE ' + #39 + edit6.Text + '%' + #39;

if combobox6.Text='Высота' then

ADOTable3.Filter:='Высота' + ' LIKE ' + #39 + edit6.Text + '%' + #39;

if combobox6.Text='Ширина' then

ADOTable3.Filter:='Ширина' + ' LIKE ' + #39 + edit6.Text + '%' + #39;

if combobox6.Text='Длина' then

ADOTable3.Filter:='Длина' + ' LIKE ' + #39 + edit6.Text + '%' + #39;

if combobox6.Text='Производитель' then

ADOTable3.Filter:='Производитель' + ' LIKE ' + #39 + edit6.Text + '%' + #39;

if combobox6.Text='Стоимость' then

ADOTable3.Filter:='Стоимость' + ' LIKE ' + #39 + edit6.Text + '%' + #39;

if combobox6.Text='Количество' then

ADOTable3.Filter:='Количество' + ' LIKE ' + #39 + edit6.Text + '%' + #39;

end

else ADOTable3.Filtered:=false;

end;

procedure TForm1.Edit8Change(Sender: TObject);

begin

if edit8.Text<>'' then begin

ADOTable4.Filtered:=true;

if combobox8.Text='Тип' then

ADOTable4.Filter:='Тип' + ' LIKE ' + #39 + edit8.Text + '%' + #39;

if combobox8.Text='Наименование' then

ADOTable4.Filter:='Наименование' + ' LIKE ' + #39 + edit8.Text + '%' + #39;

if combobox8.Text='Цвет' then

ADOTable4.Filter:='Цвет' + ' LIKE ' + #39 + edit8.Text + '%' + #39;

if combobox8.Text='Размер' then

ADOTable4.Filter:='Размер' + ' LIKE ' + #39 + edit8.Text + '%' + #39;

if combobox8.Text='Производитель' then

ADOTable4.Filter:='Производитель' + ' LIKE ' + #39 + edit8.Text + '%' + #39;

if combobox8.Text='Материал' then

ADOTable4.Filter:='Материал' + ' LIKE ' + #39 + edit8.Text + '%' + #39;

if combobox8.Text='Цена' then

ADOTable4.Filter:='Цена' + ' LIKE ' + #39 + edit8.Text + '%' + #39;

if combobox8.Text='Количество' then

ADOTable4.Filter:='Количество' + ' LIKE ' + #39 + edit8.Text + '%' + #39;

end

else ADOTable4.Filtered:=false;

end;

procedure TForm1.N8Click(Sender: TObject);

var

XLApp,Sheet,Colum:Variant;

index,i:Integer;

begin

XLApp:= CreateOleObject('Excel.Application');

XLApp.Visible:=true;

XLApp.Workbooks.Add(-4167);

XLApp.Workbooks[1].WorkSheets[1].Name:='Отчёт';

Colum:=XLApp.Workbooks[1].WorkSheets['Отчёт'].Columns;

Colum.Columns[1].ColumnWidth:=20;

Colum.Columns[2].ColumnWidth:=20;

Colum.Columns[3].ColumnWidth:=20;

Colum.Columns[4].ColumnWidth:=20;

Colum.Columns[5].ColumnWidth:=20;

Colum.Columns[6].ColumnWidth:=20;

Colum.Columns[7].ColumnWidth:=20;

Colum.Columns[8].ColumnWidth:=20;

Colum.Columns[9].ColumnWidth:=20;

Colum:=XLApp.Workbooks[1].WorkSheets['Отчёт'].Rows;

Colum.Rows[2].Font.Bold:=true;

Colum.Rows[1].Font.Bold:=true;

Colum.Rows[1].Font.Color:=clBlue;

Colum.Rows[1].Font.Size:=14;

Sheet:=XLApp.Workbooks[1].WorkSheets['Отчёт'];

Sheet.Cells[1,2]:='Детская';

Sheet.Cells[2,1]:='Код';

Sheet.Cells[2,2]:='Тип';

Sheet.Cells[2,3]:='Наименование';

Sheet.Cells[2,4]:='Цвет';

Sheet.Cells[2,5]:='Материал';

Sheet.Cells[2,6]:='Размер';

Sheet.Cells[2,7]:='Производитель';

Sheet.Cells[2,8]:='Цена';

Sheet.Cells[2,9]:='Количество';

index:=3;

ADOTable2.First;

for i:=0 to ADOTable2.RecordCount-1 do

begin

Sheet.Cells[index,1]:=ADOTable2.Fields.Fields[0].AsString;

Sheet.Cells[index,2]:=ADOTable2.Fields.Fields[1].AsString;

Sheet.Cells[index,3]:=ADOTable2.Fields.Fields[2].AsString;

Sheet.Cells[index,4]:=ADOTable2.Fields.Fields[3].AsString;

Sheet.Cells[index,5]:=ADOTable2.Fields.Fields[4].AsString;

Sheet.Cells[index,6]:=ADOTable2.Fields.Fields[5].AsString;

Sheet.Cells[index,7]:=ADOTable2.Fields.Fields[6].AsString;

Sheet.Cells[index,8]:=ADOTable2.Fields.Fields[7].AsString;

Sheet.Cells[index,9]:=ADOTable2.Fields.Fields[8].AsString;

Inc(index);

ADOTable2.Next;

end;

end;

procedure TForm1.N9Click(Sender: TObject);

var

XLApp,Sheet,Colum:Variant;

index,i:Integer;

begin

XLApp:= CreateOleObject('Excel.Application');

XLApp.Visible:=true;

XLApp.Workbooks.Add(-4167);

XLApp.Workbooks[1].WorkSheets[1].Name:='Отчёт';

Colum:=XLApp.Workbooks[1].WorkSheets['Отчёт'].Columns;

Colum.Columns[1].ColumnWidth:=20;

Colum.Columns[2].ColumnWidth:=20;

Colum.Columns[3].ColumnWidth:=20;

Colum.Columns[4].ColumnWidth:=20;

Colum.Columns[5].ColumnWidth:=20;

Colum.Columns[6].ColumnWidth:=20;

Colum.Columns[7].ColumnWidth:=20;

Colum.Columns[8].ColumnWidth:=20;

Colum.Columns[9].ColumnWidth:=20;

Colum.Columns[10].ColumnWidth:=20;

Colum:=XLApp.Workbooks[1].WorkSheets['Отчёт'].Rows;

Colum.Rows[2].Font.Bold:=true;

Colum.Rows[1].Font.Bold:=true;

Colum.Rows[1].Font.Color:=clBlue;

Colum.Rows[1].Font.Size:=14;

Sheet:=XLApp.Workbooks[1].WorkSheets['Отчёт'];

Sheet.Cells[1,2]:='Мягкая мебель';

Sheet.Cells[2,1]:='Код';

Sheet.Cells[2,2]:='Тип';

Sheet.Cells[2,3]:='Наименование';

Sheet.Cells[2,4]:='Высота';

Sheet.Cells[2,5]:='Ширина';

Sheet.Cells[2,6]:='Длина';

Sheet.Cells[2,7]:='Цвет';

Sheet.Cells[2,8]:='Стоимость';

Sheet.Cells[2,9]:='Производитель';

Sheet.Cells[2,10]:='Количество';

index:=3;

ADOTable3.First;

for i:=0 to ADOTable3.RecordCount-1 do

begin

Sheet.Cells[index,1]:=ADOTable3.Fields.Fields[0].AsString;

Sheet.Cells[index,2]:=ADOTable3.Fields.Fields[1].AsString;

Sheet.Cells[index,3]:=ADOTable3.Fields.Fields[2].AsString;

Sheet.Cells[index,4]:=ADOTable3.Fields.Fields[3].AsString;

Sheet.Cells[index,5]:=ADOTable3.Fields.Fields[4].AsString;

Sheet.Cells[index,6]:=ADOTable3.Fields.Fields[5].AsString;

Sheet.Cells[index,7]:=ADOTable3.Fields.Fields[6].AsString;

Sheet.Cells[index,8]:=ADOTable3.Fields.Fields[7].AsString;

Sheet.Cells[index,9]:=ADOTable3.Fields.Fields[8].AsString;

Sheet.Cells[index,10]:=ADOTable3.Fields.Fields[9].AsString;

Inc(index);

ADOTable3.Next;

end;

end;

procedure TForm1.N10Click(Sender: TObject);

var

XLApp,Sheet,Colum:Variant;

index,i:Integer;

begin

XLApp:= CreateOleObject('Excel.Application');

XLApp.Visible:=true;

XLApp.Workbooks.Add(-4167);

XLApp.Workbooks[1].WorkSheets[1].Name:='Отчёт';

Colum:=XLApp.Workbooks[1].WorkSheets['Отчёт'].Columns;

Colum.Columns[1].ColumnWidth:=20;

Colum.Columns[2].ColumnWidth:=20;

Colum.Columns[3].ColumnWidth:=20;

Colum.Columns[4].ColumnWidth:=20;

Colum.Columns[5].ColumnWidth:=20;

Colum.Columns[6].ColumnWidth:=20;

Colum.Columns[7].ColumnWidth:=20;

Colum.Columns[8].ColumnWidth:=20;

Colum.Columns[9].ColumnWidth:=20;

Colum:=XLApp.Workbooks[1].WorkSheets['Отчёт'].Rows;

Colum.Rows[2].Font.Bold:=true;

Colum.Rows[1].Font.Bold:=true;

Colum.Rows[1].Font.Color:=clBlue;

Colum.Rows[1].Font.Size:=14;

Sheet:=XLApp.Workbooks[1].WorkSheets['Отчёт'];

Sheet.Cells[1,2]:='Столы и стулья';

Sheet.Cells[2,1]:='Код';

Sheet.Cells[2,2]:='Вид';

Sheet.Cells[2,3]:='Наименование';

Sheet.Cells[2,4]:='Материал';

Sheet.Cells[2,5]:='Цвет';

Sheet.Cells[2,6]:='Размер';

Sheet.Cells[2,7]:='Цена';

Sheet.Cells[2,8]:='Производитель';

Sheet.Cells[2,9]:='Количество';

index:=3;

ADOTable3.First;

for i:=0 to ADOTable4.RecordCount-1 do

begin

Sheet.Cells[index,1]:=ADOTable4.Fields.Fields[0].AsString;

Sheet.Cells[index,2]:=ADOTable4.Fields.Fields[1].AsString;

Sheet.Cells[index,3]:=ADOTable4.Fields.Fields[2].AsString;

Sheet.Cells[index,4]:=ADOTable4.Fields.Fields[3].AsString;

Sheet.Cells[index,5]:=ADOTable4.Fields.Fields[4].AsString;

Sheet.Cells[index,6]:=ADOTable4.Fields.Fields[5].AsString;

Sheet.Cells[index,7]:=ADOTable4.Fields.Fields[6].AsString;

Sheet.Cells[index,8]:=ADOTable4.Fields.Fields[7].AsString;

Sheet.Cells[index,9]:=ADOTable4.Fields.Fields[8].AsString;

Inc(index);

ADOTable4.Next;

end;

end;

end.

Листинг 2 - Модуль Unit2.pas

{===========================================================================}

{ Модуль Unit2.раs}

{ гр. П-10 };

{ Разработчик: Уроднич-Якимович И.Ю.}

{ Модифицирован: 07 июня 2017}

{------------------------------------------------------------------------------------}

{ в данном модуле содержится краткая информация о программе: тема курсового проекта и данные об разработчике }

{***********************************************************************************************}

unit Unit2;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

type

TForm2 = class(TForm)

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Button1: TButton;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);

begin

close;

end;

end.

ПРИЛОЖЕНИЕ Б

СОДЕРЖАНИЕ ЭЛЕКТРОННОГО НОСИТЕЛЯ

На прилагаемом электронном носителе информации расположены следующие файлы и папки:

1. Файл «Пояснительная записка.doc».

Представляет собой текстовый документ с пояснительной запиской.

2. Папка «Курсовой проект».

В папке содержится: сама программа, справка, файл «База данных мебельного магазина», установщик программы (Setup.exe).

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

Страница:


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

  • Информационно-справочная система "Контроль работы промоутеров"

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

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

  • Разработка базы данных мебельного магазина

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

    курсовая работа [2,7 M], добавлен 02.12.2012

  • Информационно-справочная система "Обработка результатов сдачи сессии"

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

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

  • Информационная система мебельного магазина

    Создание базы данных для управления мебельным магазином: постановка задачи, требования к информационно-программной совместимости, составу и параметрам технических средств, документации. Разработка базы данных: структура таблиц, клиентское приложение.

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

  • Информационная система учета распределения средств вычислительной техники на предприятии

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

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

  • Разработка базы данных информационно-справочной системы "Парикмахерская"

    Анализ информационных потоков. Описание информационных задач. Функциональное назначение программы, ее структура, описание логики. Тексты запросов на языке SQL. Назначение и условия применения информационно-справочной системы, описание операций, отчетов.

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

  • Информационная система "Складской учет мебельного магазина"

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

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

  • Создание информационно-программного комплекса

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

    курсовая работа [862,5 K], добавлен 10.02.2015

  • Информационно-справочная система кадровой службы предприятия ООО "БелКартриджСервис"

    Разработка и описание предметной области программы. Проектирование и структура базы данных в СУБД MYSQL. Формулирование алгоритма на языке С++. Возможности применения программы, ее функциональные особенности и назначение, перспективы использования.

    курсовая работа [854,5 K], добавлен 30.05.2013

  • Программный модуль для работы с базой данных "Магазин косметики"

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

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

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

© 2000 — 2023, ООО «Олбест» Все права защищены