Создание информационной системы "Компьютерный магазин" - Курсовая работа

Выполнил студент 3 курсаВ настоящее время вычислительная техника постоянно развивается высокими темпами. Мы просто-напросто теперь не можем обойтись без компьютеров, потому что они позволяют автоматизировать нашу жизнь, то есть редактировать документы, проектировать чертежи и так далее. Также не стоит упускать развлекательный фактор, связанный с просмотром фильмов, прослушиванием музыки, прохождением компьютерных игр и многими другими занятиями. Существует множество СУБД для их редактирования, но хотелось бы создать такое приложение, занимающее небольшой объем, простое в использовании и позволяющее редактировать базу данных без установленной СУБД.Для того чтобы представить структуру будущей информационной системы, можно обратиться к другим, уже существующим информационным системам.В информационной системе должен быть реализован понятный и простой интерфейс.Информационная система «Компьютерный магазин» предназначена для сотрудников и администратора этого магазина для взаимодействия с базой данных магазина.Теперь, непосредственно после описания предметной области, нужно переходить к проектированию программного продукта.В процессе проектирования интерфейса определены следующие функциональные блоки: 1) База данных (см. 2) Блок просмотра и редактирования (см. Спецификация функционального блока "База данных" Описание Возможность отображения и редактирования данных с СУБД Спецификация функционального блока "Блок просмотра и редактирования"Проектирование программного продукта завершено.Компилятор, встроенный в Delphi, обеспечивает высокую производительность, необходимую для построения приложений в архитектуре «клиент-сервер». В процессе построения приложения разработчик выбирает из палитры компонент готовые компоненты как художник, делающий крупные мазки кистью. Кроме того, компилятор компилятору рознь, в Delphi компиляция производится непосредственно в родной машинный код, в то время как существуют компиляторы, превращающие программу в так называемый р-код, который затем интерпретируется виртуальной р-машиной.BITBTN1 Caption &Вход procedure TFORM9.BITBTN1Click(Sender: TOBJECT); begin prior:=0; if (Edit1.Text="Admin")and(Edit2.Text="ytgh") then begin prior:=1; form1.Show; end; if (Edit1.Text="user")and(Edit2.Text="djkuf") then begin prior:=1; form10.Show; end; if prior=0 then begin messagebox(0,Вы вели неверный логин или пароль",mb_iconwarning or mb_OK); Edit2.Text:=""; Edit1.Text:=""; BITBTN4 Caption Экспорт данных в Excel procedure TFORM2.BITBTN4Click(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:=18; Colum.Columns[2].COLUMNWIDTH:=18; Colum.Columns[3].COLUMNWIDTH:=30; Colum.Columns[4].COLUMNWIDTH:=30; Colum.Columns[5].COLUMNWIDTH:=30; Colum.Columns[6].COLUMNWIDTH:=18; Colum:=XLAPP.Workbooks[1].WORKSHEETS["Отчет"].Rows; Colum.Rows[2].Font.Bold:=true; Colum.Rows[1].Font.Bold:=true; Colum.Rows[1].Font.Color:=CLRED; Colum.Rows[1].Font.Size:=12; Colum.Rows[2].Font.Size:=12; Colum.Rows[3].Font.Size:=12; Colum.Rows[4].Font.Size:=12; Colum.Rows[5].Font.Size:=12; Colum.Rows[6].Font.Size:=12; Colum.Rows.Font.Name:=" Times New Roman"; Sheet:=XLAPP.Workbooks[1].WORKSHEETS["Отчет"]; Sheet.Cells[1,3]:=""Заказы" " DATETOSTR(Date); Sheet.Cells[2,1]:="Код заказа"; Sheet.Cells[2,2]:="Код товара"; Sheet.Cells[2,3]:="Код сотрудника"; Sheet.Cells[2,4]:="Дата размещения"; Sheet.Cells[2,5]:="Дата исполнения"; Sheet.Cells[2,6]:="Код клиента"; index :=3; DATAMODULE8.Zakazy1.DATASET.First; for i:=0 to DATAMODULE8.Zakazy1.DATASET.RECORDCOUNT-1 do begin Sheet.Cells[index,1]:= DATAMODULE8.Zakazy1.DATASET.Fields.Fields[0].ASSTRING; Sheet.Cells[index,2]:= DATAMODULE8.Zakazy1.DATASET.Fields.Fields[1].ASSTRING; Sheet.Cells[index,3]:= DATAMODULE8.Zakazy1.DATASET.Fields.Fields[2].ASSTRING; Sheet.Cells[index,4]:= DATAMODULE8.Zakazy1.DATASET.Fields.Fields[3].ASSTRING; Sheet.Cells[index,5]:= DATAMODULE8.Zakazy1.DATASET.Fields.Fields[4].ASSTRING; Sheet.Cells[index,6]:= DATAMODULE8.Zakazy1.DATASET.Fields.Fields[5].ASSTRING; Inc(index); DATAMODULE8.Zakazy1.DATASET.Next; end; BITBTN2 Caption Экспорт данных в Excel procedure TFORM3.BITBTN2Click(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:=18; Colum.Columns[2].COLUMNWIDTH:=30; Colum.Columns[3].COLUMNWIDTH:=30; Colum.Columns[4].COLUMNWIDTH:=30; Colum.

Оглавление

Введение

1. Описание предметной области

1.1 Требования к разрабатываемой информационной системе

1.2 Описание разрабатываемой системы

2. Проектирование программного комплекса

2.1 Проектирование интерфейса

3. Программная реализация

3.1 Выбор средства для разработки

3.2 Реализация программного средства

3.3 Тестирование программного средства

4. Анализ качества программного обеспечения

4.1 Оценка функционального качества программного средства

4.2 Описание выявленных недостатков разработанной программы

4.3 Перспективы развития

Заключение

Список использованных источников