Создание информационной системы "Компьютерный магазин"
Основные требования к разрабатываемой информационной системе. Главная особенность проектирования интерфейса. Особенность реализации тестирования программного средства. Описание выявленных недостатков и функционального качества произведенной программы.
| Рубрика | Программирование, компьютеры и кибернетика |
| Вид | курсовая работа |
| Язык | русский |
| Дата добавления | 11.12.2014 |
| Размер файла | 1018,7 K |
Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже
Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.
Размещено на http://www.allbest.ru/
2
КУРСОВАЯ РАБОТА
ДИСЦИПЛИНА «Основы алгоритмизации и программирования»
Выполнил
студент 3 курса
Проверила
Тусенова С.С.
АСТАНА - 2014
Оглавление
Введение
1. Описание предметной области
1.1 Требования к разрабатываемой информационной системе
1.2 Описание разрабатываемой системы
2. Проектирование программного комплекса
2.1 Проектирование интерфейса
3. Программная реализация
3.1 Выбор средства для разработки
3.2 Реализация программного средства
3.3 Тестирование программного средства
4. Анализ качества программного обеспечения
4.1 Оценка функционального качества программного средства
4.2 Описание выявленных недостатков разработанной программы
4.3 Перспективы развития
Заключение
Список использованных источников
Введение
В настоящее время вычислительная техника постоянно развивается высокими темпами. Мы просто-напросто теперь не можем обойтись без компьютеров, потому что они позволяют автоматизировать нашу жизнь, то есть редактировать документы, проектировать чертежи и так далее. Также не стоит упускать развлекательный фактор, связанный с просмотром фильмов, прослушиванием музыки, прохождением компьютерных игр и многими другими занятиями. Таким образом, сейчас развиваются магазины компьютерной техники. Им, разумеется, никак не обойтись без базы данных. Существует множество СУБД для их редактирования, но хотелось бы создать такое приложение, занимающее небольшой объем, простое в использовании и позволяющее редактировать базу данных без установленной СУБД. Именно этому и посвящена данная курсовая работа.
При изучении предметной области, выяснилось, что информационная система «Компьютерный магазин» на первый взгляд простая, но для ее реализации необходимо обратится к некоторым разделам, таким как создание базы данных и создание приложения для взаимодействия с этой базой данных.
Целью курсовой работы является создание информационной системы «Компьютерный магазин».
Для достижения поставленной цели были определены следующие задачи:
1) Описать предметную область;
2) Спроектировать программный комплекс;
3) Выполнить программную реализацию;
4) Проанализировать качество программного обеспечения.
1. Описание предметной области
Для того чтобы представить структуру будущей информационной системы, можно обратиться к другим, уже существующим информационным системам.
1.1 Требования к разрабатываемой информационной системе
В информационной системе должен быть реализован понятный и простой интерфейс.
Также должны присутствовать следующие функции, выполняемые данной системой:
1) Добавление записей в базу данных
2) Редактирование базы данных
3) Сортировка сотрудников по ФИО или дате рождения
4) Поиск клиента по ФИО
1.2 Описание разрабатываемой системы
Информационная система «Компьютерный магазин» предназначена для сотрудников и администратора этого магазина для взаимодействия с базой данных магазина.
Работа модулей программного продукта и их взаимосвязь представлены на рисунке 1.1.
Рисунок 1.1 Схема взаимодействия системы с окружением
Как видно по схеме, и администратор, и пользователь могут взаимодействовать с базой данных, но пользователь ограничен набором функции. Он не может редактировать интерфейс самой информационной системы.
2. Проектирование программного комплекса
Теперь, непосредственно после описания предметной области, нужно переходить к проектированию программного продукта.
2.1 Проектирование интерфейса
В процессе проектирования интерфейса определены следующие функциональные блоки:
1) База данных (см. Таблица 1.1);
2) Блок просмотра и редактирования (см. Таблица 1.2).
Спецификация функционального блока "База данных"
Таблица 1.1
|
Атрибут |
Значения |
|
|
Назначение |
Упорядоченное хранение данных |
|
|
Описание |
Возможность отображения и редактирования данных с СУБД |
|
|
Внешнее отображение |
Таблицы с данными |
|
|
Входные/выходные данные |
Данные товаров, клиентов, сотрудников |
|
|
Входные/выходные сигналы управления |
Команды редактирования |
Спецификация функционального блока " Блок просмотра и редактирования"
Таблица 1.2
|
Атрибут |
Значения |
|
|
Назначение |
Обеспечение возможности редактирования и просмотра базы данных |
|
|
Описание |
Возможность отображения и редактирования базы данных без СУБД |
|
|
Внешнее отображение |
Совокупность форм на каждую из таблиц |
|
|
Входные/выходные данные |
Данные товаров, клиентов, сотрудников |
|
|
База данных |
База данных компьютерного магазина |
|
|
Входные/выходные сигналы управления |
Команды редактирования |
3. Программная реализация
Проектирование программного продукта завершено. Теперь необходимо выполнить программную реализацию информационной системы. Для того чтобы выполнить эту реализацию, необходимо выбрать подходящее средство для разработки.
3.1 Выбор средства для разработки
Компилятор, встроенный в Delphi, обеспечивает высокую производительность, необходимую для построения приложений в архитектуре «клиент-сервер». Он предлагает легкость разработки и быстрое время проверки готового программного блока, характерного для языков четвертого поколения. Кроме того, Delphi обеспечивает быструю разработку без необходимости писать вставки на Си или ручного написания кода (хотя это возможно).
В процессе построения приложения разработчик выбирает из палитры компонент готовые компоненты как художник, делающий крупные мазки кистью. Еще до компиляции он видит результаты своей работы - после подключения к источнику данных их можно видеть отображенными на форме, можно перемещаться по данным, представлять их в том или ином виде. В этом смысле проектирование в Delphi мало чем отличается от проектирования в интерпретирующей среде, однако после выполнения компиляции мы получаем код, который исполняется в 10-20 раз быстрее, чем то же самое, сделанное при помощи интерпретатора. Кроме того, компилятор компилятору рознь, в Delphi компиляция производится непосредственно в родной машинный код, в то время как существуют компиляторы, превращающие программу в так называемый p-код, который затем интерпретируется виртуальной p-машиной. Это не может не сказаться на фактическом быстродействии готового приложения.
В стандартную поставку Delphi входят основные объекты, которые образуют удачно подобранную иерархию базовых классов. Но если возникнет необходимость в решении какой-то специфической проблемы на Delphi, то лучше просмотреть список свободно распространяемых или коммерческих компонент, разработанных третьими фирмами, количество этих компонент в настоящее время составляет несколько тысяч. Событийная модель в Windows всегда была сложна для понимания и отладки. Но именно разработка интерфейса в Delphi является самой простой задачей для программиста.
3.2 Реализация программного средства
Описание и проектирование программного комплекса, а также выбор средства для разработки программного продукта уже готовы. Теперь, непосредственно, можно приступать к реализации информационной системе.
Для начала необходимо создать саму базу данных в Microsoft Access, состоящую из шести таблиц. Для каждой из таблиц указаны атрибуты. Физическая структура таблиц присутствует в рисунках 1.1 - 1.6.
Рисунок 3.1 Заказы
Рисунок 3.2 Клиенты
Рисунок 3.3 Поставка
Рисунок 3.4 Поставщики
Рисунок 3.5 Сотрудники
Рисунок 3.6 Товары
С базе данных Access использует схема данных между таблицами, схема данных предназначены для улучшения связи между таблицами для упрощения ввода данных.
Рисунок 3.7 Схема данных
База данных готова, после этого приступили к основному этапу курсовой работы - реализации приложения для взаимодействия с созданной базой данных. информационный система интерфейс программа
Для начала создадим десять форм. На первой форме изображено окно авторизации, представленное на рисунке 1.7, в котором необходимо вводить логин и пароль, после вода нажимаем на кнопку вход, после этого будет переход на форму БД Компьютерного магазина «Терабайт», в зависимости от того под каким логином был произведен вход (если вход произведен от администрации, то будут доступны все функции меню, а если вход будет произведен сотрудником, то на форме будет ограниченные возможности).
При нажатии на кнопку вход прописана процедура для открытия соответственной формы. Общий код процедуры для этой кнопки приведен ниже:
Общий код процедуры
Таблица 3.1
|
Компонент |
Свойство |
Значение |
|
|
Label1 |
Caption |
Логин |
|
|
Label2 |
Caption |
Пароль |
|
|
Edit1 |
Caption |
«Очистить свойства» |
|
|
Edit2 |
Caption |
«Очистить свойства» |
|
|
Form1 |
Caption |
Авторизация |
|
|
BitBtn1 |
Caption |
&Вход |
|
procedure TForm9.BitBtn1Click(Sender: TObject);beginprior:=0;if (Edit1.Text='Admin')and(Edit2.Text='ytgh') thenbegin prior:=1;form1.Show;end;if (Edit1.Text='user')and(Edit2.Text='djkuf') thenbeginprior:=1;form10.Show;end;if prior=0 thenbeginmessagebox(0,Вы вели неверный логин или пароль',mb_iconwarning or mb_OK);Edit2.Text:='';Edit1.Text:=''; |
|||
|
Продолжение таблицы 1.1 |
|||
Exit;end;if prior=1 then form9.Visible:=false;end; |
|||
|
BitBtn2 |
Caption |
&Выход |
|
|
Image1 |
Picture |
«Выбрать любой фон» |
Рисунок 3.8. Форма авторизации
Для портативности программы база данных перенесена в папку с проектом. На DataModule загружен компонент ADOConnection, в котором установлена связь с созданной базой данных. Так как системой будут пользоваться только работники магазина и администрация, защиту от пароля можно убрать в самом Access. Для этого нужно включить опцию «Пустой пароль» и в свойстве LoginPrompt прописать параметр False, чтобы не открывалось окно для ввода логина и пароля.
Рисунок 3.8 Настройки доступа к базе данных
На DataModule также добавляем следующие компоненты
Свойства компонентов
Таблица 3.2
|
Компонент |
Свойство |
Значение |
|
|
ADOTable1 |
Connection |
Form1.ADOConnection1 |
|
|
TableName |
`Имя таблицы, соответствующее форме' |
||
|
Name |
Zakazy |
||
|
Active |
True |
||
|
DataSource1 |
DataSet |
ADOTable1 |
|
|
Name |
Zakazy1 |
||
|
ADOTable2 |
Connection |
Form1.ADOConnection1 |
|
|
TableName |
«Имя таблицы, соответствующее форме» |
||
|
Name |
Sotrudniki |
||
|
Active |
True |
||
|
DataSource2 |
DataSet |
ADOTable1 |
|
|
Name |
Sotrudniki1 |
||
|
ADOTable3 |
Connection |
Form1.ADOConnection1 |
|
|
TableName |
«Имя таблицы, соответствующее форме» |
||
|
Name |
Klient |
||
|
Active |
True |
||
|
DataSource3 |
DataSet |
ADOTable1 |
|
|
Name |
Klient1 |
||
|
ADOTable4 |
Connection |
Form1.ADOConnection1 |
|
|
TableName |
«Имя таблицы, соответствующее форме» |
||
|
Name |
Tovary |
||
|
Active |
True |
||
|
DataSource4 |
DataSet |
ADOTable1 |
|
|
Name |
Tovary1 |
||
|
ADOTable5 |
Connection |
Form1.ADOConnection1 |
|
|
TableName |
«Имя таблицы, соответствующее форме» |
||
|
Name |
Postavka |
||
|
Active |
True |
||
|
DataSource5 |
DataSet |
ADOTable1 |
|
|
Name |
Postavka1 |
||
|
ADOTable6 |
Connection |
Form1.ADOConnection1 |
|
|
TableName |
«Имя таблицы, соответствующее форме» |
||
|
Name |
Postavshik |
||
|
Active |
True |
||
|
DataSource6 |
DataSet |
ADOTable1 |
|
|
Name |
Postavshik1 |
Рисунок 3.9 Компоненты на DataModule
На каждой форме добавлены компоненты, которые охарактеризованные в таблице 1.3 - 2.1; Примеры интерфейсов форм представлены на рисунках 1.9 - 2.4;
Таблица 1.3 Свойства компонентов «Заказы»
|
Компонент |
Свойство |
Значение |
|
|
DBGrid1 |
DataSource |
DataModule8.Zakazy1 |
|
|
DBNavigator1 |
DataSource |
DataModule8.Zakazy1 |
|
|
GroupBox1 |
Caption |
Редактор Базы |
|
|
Label1 |
Caption |
Код Товара |
|
|
Label2 |
Caption |
Код Сотрудника |
|
|
Label3 |
Caption |
Код Клиента |
|
|
Label4 |
Caption |
Дата Размещения |
|
|
Label5 |
Caption |
Дата Исполнения |
|
|
DBLookupComboBox1 |
DataSource |
DataModule8.Zakazy1 |
|
|
DataField |
Код_товара |
||
|
ListSourse |
DataModule8.Tovary1 |
||
|
ListField |
Наименование_товара |
||
|
KeyField |
Код_товара |
||
|
DBLookupComboBox2 |
DataSource |
DataModule8.Zakazy1 |
|
|
DataField |
Код_сотрудника |
||
|
ListSourse |
DataModule8.Sotrudniki1 |
||
|
ListField |
ФИО_сотрудника |
||
|
KeyField |
Код_сотрудника |
||
|
DBLookupComboBox3 |
DataSource |
DataModule8.Zakazy1 |
|
|
DataField |
Код_клиента |
||
|
ListSourse |
DataModule8.Klient1 |
||
|
ListField |
ФИО_клиента |
||
|
KeyField |
Код_клиента |
||
|
DBEdit1 |
DataSource |
DataModule8.Zakazy1 |
|
|
DataField |
Дата_размещения |
||
|
DBEdit1 |
DataSource |
DataModule8.Zakazy1 |
|
|
DataField |
Дата_исполнения |
||
|
DateTimePicker1 |
OnChange |
Код «DbEdit1.Text:=DateToStr(DateTimePicker1.Date);» |
|
|
DateTimePicker1 |
OnChange |
Код «DbEdit2.Text:=DateToStr(DateTimePicker2.Date);» |
|
|
BitBtn1 |
Caption |
На главную |
|
|
Glyph |
«Выбрать значок размера 20х20 расширение *.bmp» |
||
procedure TForm2.BitBtn1Click(Sender: TObject);beginok:=0;if (form9.Edit1.Text='1')and(form9.Edit2.Text='1') thenbeginok:=1;form1.Show;close;end;if (form9.Edit1.Text='2')and(form9.Edit2.Text='2') thenbeginok:=1;form10.Show;close;end;end; |
|||
|
BitBtn2 |
Caption |
Сохранить |
|
|
Glyph |
«Выбрать значок размера 20х20 расширение *.bmp» |
||
procedure TForm2.BitBtn2Click(Sender: TObject);beginDBgrid1.DataSource.DataSet.Post;end; |
|||
|
BitBtn3 |
Caption |
Добавить |
|
|
Glyph |
«Выбрать значок размера 20х20 расширение *.bmp» |
||
procedure TForm2.BitBtn3Click(Sender: TObject);beginDBgrid1.DataSource.DataSet.Append;end; |
|||
|
BitBtn4 |
Caption |
Экспорт данных в Excel |
|
procedure TForm2.BitBtn4Click(Sender: TObject);varXLapp, Sheet, Colum:Variant;index,i:Integer;beginXLApp:= 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 dobeginSheet.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; |
|||
|
Forma2 |
Caption |
Заказы |
Рисунок 3.9 Форма «Заказы»
Таблица 3.4 Свойства компонентов «Сотрудники»
|
Компонент |
Свойство |
Значение |
|
|
DBGrid1 |
DataSource |
DataModule8.Sotrudniki1 |
|
|
DBNavigator1 |
DataSource |
DataModule8.Sotrudniki1 |
|
|
RadioGroup1 |
Caption |
Вид сортировки |
|
|
Items |
«Записываем по каким критериям сортировать»По ФИО СотрудникаПо дате рожденияПо должности |
||
|
BitBtn1 |
Caption |
Сортировать |
|
|
Glyph |
«Выбрать значок размера 20х20 расширение *.bmp» |
||
procedure TForm3.BitBtn1Click(Sender: TObject);begincase RadioGroup1.ItemIndex of0:DataModule8.Sotrudniki.indexFieldNames:='ФИО_сотрудника';1:DataModule8.Sotrudniki.IndexFieldNames:='Дата_рождения';2:DataModule8.Sotrudniki.IndexFieldNames:='Должность';end;end; |
|||
|
BitBtn2 |
Caption |
Экспорт данных в Excel |
|
procedure TForm3.BitBtn2Click(Sender: TObject);varXLapp, Sheet, Colum:Variant;index,i:Integer;beginXLApp:= 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.Columns[5].ColumnWidth:=30;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.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]:='Должность';index :=3;DataModule8.Sotrudniki1.DataSet.First;for i:=0 to DataModule8.Sotrudniki1.DataSet.RecordCount-1 dobeginSheet.Cells[index,1]:= DataModule8.Sotrudniki1.DataSet.Fields.Fields[1].AsString;Sheet.Cells[index,2]:= DataModule8.Sotrudniki1.DataSet.Fields.Fields[2].AsString;Sheet.Cells[index,3]:= DataModule8.Sotrudniki1.DataSet.Fields.Fields[3].AsString;Sheet.Cells[index,4]:= DataModule8.Sotrudniki1.DataSet.Fields.Fields[4].AsString;Sheet.Cells[index,5]:= DataModule8.Sotrudniki1.DataSet.Fields.Fields[5].AsString;Inc(index);DataModule8.Sotrudniki1.DataSet.Next;end;end; |
|||
|
BitBtn3 |
Caption |
На главную |
|
|
Glyph |
«Выбрать значок размера 20х20 расширение *.bmp» |
||
procedure TForm2.BitBtn3Click(Sender: TObject);beginok:=0;if (form9.Edit1.Text='1')and(form9.Edit2.Text='1') thenbeginok:=1;form1.Show;close;end;if (form9.Edit1.Text='2')and(form9.Edit2.Text='2') thenbeginok:=1;form10.Show;close;end;end; |
Рисунок 3.10 Форма «Сотрудники»
Таблица 3.5. Свойства компонентов «Клиенты»
|
Компонент |
Свойство |
Значение |
|
|
DBGrid1 |
DataSource |
DataModule8.Klient1 |
|
|
DBNavigator1 |
DataSource |
DataModule8.Klient1 |
|
|
GroupBox1 |
Caption |
Введите ФИО клиента, которого нужно найти |
|
|
Color |
clActiveCaption |
||
|
BitBtn1 |
Caption |
Применить фильтр |
|
|
Glyph |
«Выбрать значок размера 20х20 расширение *.bmp» |
||
procedure TForm4.BitBtn1Click(Sender: TObject);beginDataModule8.Klient.Filtered:= true;DataModule8.Klient.Filter:= 'ФИО_клиента='+#39+edit1.Text+#39;end; |
|||
|
BitBtn2 |
Caption |
Показать все записи |
|
|
Glyph |
«Выбрать значок размера 20х20 расширение *.bmp» |
||
procedure TForm4.BitBtn2Click(Sender: TObject);beginDataModule8.Klient.Filtered:= False;end; |
|||
|
BitBtn3 |
Caption |
Экспорт данных в Excel |
|
procedure TForm4.BitBtn3Click(Sender: TObject);varXLapp, Sheet, Colum:Variant;index,i:Integer;beginXLApp:= 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:=35;Colum.Columns[2].ColumnWidth:=35;Colum.Columns[3].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:=clNavy;Colum.Rows[1].Font.Size:=12;Colum.Rows[2].Font.Size:=12;Colum.Rows[3].Font.Size:=12;Colum.Rows.Font.Name:='Times New Roman';Sheet:=XLApp.Workbooks[1].WorkSheets['Отчет'];Sheet.Cells[1,2]:='"Клиенты" '+DateToStr(Date);Sheet.Cells[2,1]:='ФИО клиента';Sheet.Cells[2,2]:='Адрес';Sheet.Cells[2,3]:='Телефон';index :=3;DataModule8.Klient1.DataSet.First;for i:=0 to DataModule8.Klient1.DataSet.RecordCount-1 dobeginSheet.Cells[index,1]:= DataModule8.Klient1.DataSet.Fields.Fields[1].AsString;Sheet.Cells[index,2]:= DataModule8.Klient1.DataSet.Fields.Fields[2].AsString;Sheet.Cells[index,3]:= DataModule8.Klient1.DataSet.Fields.Fields[3].AsString;Inc(index);DataModule8.Klient1.DataSet.Next;end;end; |
|||
|
BitBtn4 |
Caption |
На главную |
|
|
Glyph |
«Выбрать значок размера 20х20 расширение *.bmp» |
||
procedure TForm4.BitBtn4Click(Sender: TObject);beginok:=0;if (form9.Edit1.Text='1')and(form9.Edit2.Text='1') thenbeginok:=1;form1.Show;close;end;if (form9.Edit1.Text='2')and(form9.Edit2.Text='2') thenbeginok:=1;form10.Show;close;end;end; |
Рисунок 3.11 Форма «Клиенты»
Таблица 3.6. Свойства компонентов «Товары»
|
Компонент |
Свойство |
Значение |
|
|
DBGrid1 |
DataSource |
DataModule8.Tovary1 |
|
|
DBNavigator1 |
DataSource |
DataModule8.Tovary1 |
|
|
RadioGroup1 |
Caption |
Фильтр |
|
|
Items |
«Записываем по каким критериям сортировать»По стоимости закупкиПо наличиеПо количествуПо стоимости продажи |
||
|
BitBtn1 |
Caption |
Сортировать |
|
|
Glyph |
«Выбрать значок размера 20х20 расширение *.bmp» |
||
procedure TForm5.BitBtn1Click(Sender: TObject);begincase RadioGroup1.ItemIndex of0:DataModule8.Tovary.indexFieldNames:='Стоимость_закупки';1:DataModule8.Tovary.IndexFieldNames:='Наличие';2:DataModule8.Tovary.IndexFieldNames:='Количество';3:DataModule8.Tovary.IndexFieldNames:='Стоимость_продажи';end;end; |
|||
|
BitBtn2 |
Caption |
Экспорт данных в Excel |
|
procedure TForm5.BitBtn2Click(Sender: TObject);varXLapp, Sheet, Colum:Variant;index,i:Integer;beginXLApp:= 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:=50;Colum.Columns[4].ColumnWidth:=50;Colum.Columns[5].ColumnWidth:=18;Colum.Columns[6].ColumnWidth:=18;Colum.Columns[7].ColumnWidth:=18;Colum.Columns[8].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:=clBlue;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[7].Font.Size:=12;Colum.Rows[8].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]:='Наличие';Sheet.Cells[2,7]:='Количество';Sheet.Cells[2,8]:='Стоимость продажи';index :=3;DataModule8.Tovary1.DataSet.First;for i:=0 to DataModule8.Tovary1.DataSet.RecordCount-1 dobeginSheet.Cells[index,1]:= DataModule8.Tovary1.DataSet.Fields.Fields[0].AsString;Sheet.Cells[index,2]:= DataModule8.Tovary1.DataSet.Fields.Fields[1].AsString;Sheet.Cells[index,3]:= DataModule8.Tovary1.DataSet.Fields.Fields[2].AsString;Sheet.Cells[index,4]:= DataModule8.Tovary1.DataSet.Fields.Fields[3].AsString;Sheet.Cells[index,5]:= DataModule8.Tovary1.DataSet.Fields.Fields[4].AsString;Sheet.Cells[index,6]:= DataModule8.Tovary1.DataSet.Fields.Fields[5].AsString;Sheet.Cells[index,7]:= DataModule8.Tovary1.DataSet.Fields.Fields[6].AsString;Sheet.Cells[index,8]:= DataModule8.Tovary1.DataSet.Fields.Fields[7].AsString;Inc(index);DataModule8.Tovary1.DataSet.Next;end;end; |
|||
|
BitBtn3 |
Caption |
На главную |
|
|
Glyph |
«Выбрать значок размера 20х20 расширение *.bmp» |
||
procedure TForm5.BitBtn3Click(Sender: TObject);beginok:=0;if (form9.Edit1.Text='1')and(form9.Edit2.Text='1') thenbeginok:=1;form1.Show;close;end;if (form9.Edit1.Text='2')and(form9.Edit2.Text='2') thenbeginok:=1;form10.Show;close;end;end; |
Рисунок 3.12 Форма «Товары»
Таблица 3.7 Свойства компонентов «Поставка»
|
Компонент |
Свойство |
Значение |
|
|
DBGrid1 |
DataSource |
DataModule8.Postavka1 |
|
|
DBNavigator1 |
DataSource |
DataModule8.Postavka1 |
|
|
Edit1 |
Caption |
Код поставщика |
|
|
DBLookupComboBox1 |
DataSource |
DataModule8.Postavka1 |
|
|
DataField |
Код_поставщика |
||
|
ListSourse |
DataModule8.Postavshik1 |
||
|
ListField |
Название_поставщика |
||
|
KeyField |
Код_поставщика |
||
|
BitBtn1 |
Caption |
Экспорт данных в Excel |
|
procedure TForm6.BitBtn1Click(Sender: TObject);varXLapp, Sheet, Colum:Variant;index,i:Integer;beginXLApp:= 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:=20;Colum.Columns[3].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:=clGreen;Colum.Rows[1].Font.Size:=12;Colum.Rows[2].Font.Size:=12;Colum.Rows[3].Font.Size:=12;Colum.Rows.Font.Name:='Times New Roman';Sheet:=XLApp.Workbooks[1].WorkSheets['Отчет'];Sheet.Cells[1,2]:='"Поставка" '+DateToStr(Date);Sheet.Cells[2,1]:='Код_поставки';Sheet.Cells[2,2]:='Код_поставщика';Sheet.Cells[2,3]:='Дата_поставки';index :=3;DataModule8.Postavka1.DataSet.First;for i:=0 to DataModule8.Postavka1.DataSet.RecordCount-1 dobeginSheet.Cells[index,1]:= DataModule8.Postavka1.DataSet.Fields.Fields[0].AsString;Sheet.Cells[index,2]:= DataModule8.Postavka1.DataSet.Fields.Fields[1].AsString;Sheet.Cells[index,3]:= DataModule8.Postavka1.DataSet.Fields.Fields[2].AsString;Inc(index);DataModule8.Postavka1.DataSet.Next;end; |
|||
|
BitBtn3 |
Caption |
На главную |
|
|
Glyph |
«Выбрать значок размера 20х20 расширение *.bmp» |
||
beginok:=0;if (form9.Edit1.Text='1')and(form9.Edit2.Text='1') thenbeginok:=1;form1.Show;close;end;if (form9.Edit1.Text='2')and(form9.Edit2.Text='2') thenbeginok:=1;form10.Show;close;end;end; |
Рисунок 3.13 Форма «Поставка»
Таблица 3.8 Свойства компонентов «Поставщики»
|
Компонент |
Свойство |
Значение |
|
|
DBGrid1 |
DataSource |
DataModule8.Postavshik1 |
|
|
DBNavigator1 |
DataSource |
DataModule8.Postavshik1 |
|
|
BitBtn1 |
Caption |
Экспорт данных в Excel |
|
procedure TForm7.BitBtn1Click(Sender: TObject);varXLapp, Sheet, Colum:Variant;index,i:Integer;beginXLApp:= 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:=50;Colum.Columns[4].ColumnWidth:=18;Colum.Columns[5].ColumnWidth:=50;Colum:=XLApp.Workbooks[1].WorkSheets['Отчет'].Rows;Colum.Rows[2].Font.Bold:=true;Colum.Rows[1].Font.Bold:=true;Colum.Rows[1].Font.Color:=clOlive;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.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]:='Адрес';index :=3;DataModule8.Postavshik1.DataSet.First;for i:=0 to DataModule8.Postavshik1.DataSet.RecordCount-1 dobeginSheet.Cells[index,1]:= DataModule8.Postavshik1.DataSet.Fields.Fields[0].AsString;Sheet.Cells[index,2]:= DataModule8.Postavshik1.DataSet.Fields.Fields[1].AsString;Sheet.Cells[index,3]:= DataModule8.Postavshik1.DataSet.Fields.Fields[2].AsString;Sheet.Cells[index,4]:= DataModule8.Postavshik1.DataSet.Fields.Fields[3].AsString;Sheet.Cells[index,5]:= DataModule8.Postavshik1.DataSet.Fields.Fields[4].AsString;Inc(index);DataModule8.Postavshik1.DataSet.Next;end; |
|||
|
BitBtn2 |
Caption |
На главную |
|
|
Glyph |
«Выбрать значок размера 20х20 расширение *.bmp» |
||
procedure TForm7.BitBtn2Click(Sender: TObject);beginok:=0;if (form9.Edit1.Text='1')and(form9.Edit2.Text='1') thenbeginok:=1;form1.Show;close;end;end; |
Рисунок 3.14 Форма «Поставщики»
3.3 Тестирование программного средства
Тестирование программного обеспечения - процесс исследования программного обеспечения (ПО) с целью получения информации о качестве продукта.
Существующие на сегодняшний день методы тестирования ПО не позволяют однозначно и полностью выявить все дефекты и установить корректность функционирования анализируемой программы, поэтому все существующие методы тестирования действуют в рамках формального процесса проверки исследуемого или разрабатываемого ПО.
С точки зрения ISO 9126-1, качество программных средств можно определить как совокупную характеристику исследуемого ПО с учётом следующих составляющих:
? Функциональные возможности
Функциональные возможности - способность программного средства обеспечивать решение задач, удовлетворяющих сформулированные потребности заказчиков и пользователей при применении комплекса программ в заданных условиях.
? Функциональная пригодность
Функциональная пригодность - набор и описания субхарактеристики и ее атрибутов, определяющие назначение, номенклатуру, основные, необходимые и достаточные функции программного средства, соответствующие техническому заданию и спецификациям требований заказчика или потенциального пользователя.
? Правильность
Правильность (корректность) - способность программного средства обеспечивать правильные или приемлемые для пользователя результаты и внешние эффекты.
? Способность к взаимодействию
Способность к взаимодействию - свойство программных средств и их компонентов взаимодействовать с одной или большим числом компонентов внутренней и внешней среды.
? Защищенность
Защищенность - способность компонентов программного средства защищать программы и информацию от любых негативных воздействий.
? Надёжность
Надежность работы информационных систем определяется надежностью функциональных компонентов, общего программного обеспечения, комплексов технических и инженерных средств.
? Сопровождаемость
Сопровождаемость - приспособленность программного средства к модификации и изменению конфигурации и функций.
? Практичность
Практичность (применимость) - свойства программного средства, обусловливающие сложность его понимания, изучения и использования, а также привлекательность для квалифицированных пользователей при применении в указанных условиях.
? Эффективность
Эффективность - свойства программного средства, обеспечивающие требуемую производительность решения функциональных задач, с учетом количества используемых вычислительных ресурсов в установленных условиях.
? Мобильность
Мобильность - подготовленность программного средства к переносу из одной аппаратно-операционной среды в другую [7].
4. Анализ качества программного обеспечения
4.1 Оценка функционального качества программного средства
Основные составляющие тестирования перечислены. Они использованы для оценки функционального качества информационной системы.
? Функциональные возможности
Функциональные возможности удовлетворяют сформулированные потребности заказчиков и пользователей при применении информационной системы, но они малы. Таким образом, функциональные возможности средние.
? Функциональная пригодность
Информационная система имеет все необходимые функции, исходя из технического задания. Таким образом, функциональная пригодность высокая.
? Правильность
Программное средство обеспечивает правильные или приемлемые результаты и внешние эффекты. Таким образом, правильность высокая.
? Защищенность
Так как система пока не сетевая и ее используют только сотрудники магазина, она лишена защиты паролем. Таким образом, защищенность низкая.
? Надежность
В программном продукте используется мало функций, что отрицательно сказывается на надежности. Таким образом, надёжность низкая.
? Сопровождаемость
Так как система разработана в простом средстве разработки Delphi, можно без проблем модифицировать ее или добавить какие-нибудь новые функции. Таким образом, сопровождаемость высокая.
? Практичность
Система имеет очень простой и понятный интерфейс. Из-за этого она будет привлекательна для квалифицированных пользователей при применении. Таким образом, практичность высокая.
? Эффективность
Информационная система использует мало вычислительных ресурсов при выполнении своих задач и функций. Таким образом, эффективность высокая.
? Мобильность
База данных находится в папке с информационной системой и связана с ней, поэтому появилась возможность беспроблемного переноса из одного компьютера в другой. При этом программа не требует никаких записей в реестре операционной системы. Таким образом, мобильность высокая.
Тестирование программного средства выполнено. Теперь можно соотнести все характеристики и оценки на них в таблицу
Таблица 4.1 Тестирование программного средства.
|
Характеристика |
Оценка |
|
|
Функциональные возможности |
Средне |
|
|
Функциональная пригодность |
Высоко |
|
|
Правильность |
Высоко |
|
|
Защищенность |
Низко |
|
|
Надежность |
Низко |
|
|
Сопровождаемость |
Высоко |
|
|
Практичность |
Высоко |
|
|
Эффективность |
Высоко |
|
|
Мобильность |
Высоко |
4.2 Описание выявленных недостатков разработанной программы
После оценки функционального качества программного средства выявлены данные недостатки:
? несетевая архитектура;
? малое количество функций;
4.3 Перспективы развития
Разумеется, что информационная система в будущем должна развиваться. В течение времени может появиться потребность добавления новых функций, например сортировка не только по возрастанию, а также и по убыванию, сложная фильтрация и так далее. Возможно, в том числе, исправится самый главный недостаток, связанный с архитектурой информационной системы.
Заключение
Таким образом, в ходе курсовой работы были рассмотрены этапы создания информационной системы: описание предметной области, проектирование программного комплекса, программная реализация и анализ качества программного обеспечения. Результатом рассмотрения этапов стала готовая информационная система.
Курсовая работа показала, что проектирование имеет целью обеспечить эффективное функционирование АИС и взаимодействие со специалистами, использующими в сфере деятельности конкретного экономического объекта ЭВМ и развитие средства коммуникации для выполнения своих профессиональных задач и принятия управленческих решений. Именно качественное проектирование обеспечивает создание такой системы, которая способна функционировать при постоянном совершенствовании ее технических, программных, информационных составляющих, то есть её технологической основы, и расширять спектр реализуемых управленческих функций и объектов взаимодействия. Внедрение АИС на предприятии существенно облегчает работу с документами, что дает возможность быстро и оперативно решать многие вопросы. Успешная эксплуатация разработанной и внедренной системы дает заметный экономический эффект, за счет снижения затрат, освобождения рабочего времени специалистов, повышения качества и надежности учета движения товаров, облегчения оформления сопровождающей документации и отчетности.
Список использованных источников
1. Архангельский, А. Я. Delphi 2006. Справочное пособие. Язык Delphi, классы, функции Win32 и NET [Текст] / А. Я. Архангельский. - М. : Бином-Пресс, 2006.
2. Архангельский, А. Я. Приемы программирования в Delphi на основе VCL [Текст]
3. / А. Я. Архангельский. - М. : Бином-Пресс, 2006.
4. Архангельский, А. Я. Программирование в Delphi 7 [Текст] / А. Я. Архангельский. - М. : Бином-Пресс, 2004.
5. Бобровский, С. И. Технологии Delphi 2006. Новые возможности [Текст] / С. И. Боб-ровский. - СПб. : Питер, 2006.
6. Желонкин, А. В. Основы программирования в интегрированной среде DELPHI [Текст] : практикум / А. В. Желонкин. - М. : БИНОМ. Лаборатория знаний, 2006.
7. Зубов, А. В. Программирование на Delphi. Трюки и эффекты [Текст] / А. В. Зубов. - СПб. : Питер, 2005.
8. Культин, Н. Б. Delphi .NET в задачах и примерах [Текст] / Н. Б. Культин. - СПб. : БХВ-Петербург, 2006.
Размещено на Allbest.ru
...Подобные документы
Требования к информационной системе интернет-магазина на базе "1С:Предприятие 8". Выбор средства для разработки. Реализация и тестирование программного средства. Редактирование базы данных. Оценка функционального качества программного средства.
курсовая работа [1,7 M], добавлен 07.09.2012Описание существующих информационных систем в данной сфере. Система управления "Fidelio". Выбор средства для разработки. Тестирование программного средства, оценка его функционального качества. Описание выявленных недостатков разработанной программы.
курсовая работа [856,6 K], добавлен 24.09.2014Требования, предъявляемые к разрабатываемой информационной системе. Подходы к созданию информационной системы Интернет-офиса. Современные информационные системы для автоматизации медицинских учреждений. Технологическая схема ввода и накопления информации.
дипломная работа [2,6 M], добавлен 22.11.2015Разработка объектно-ориентированной модели железнодорожной информационной системы с использованием языка UML. Диаграмма последовательности для варианта "Забронировать билет". Главная особенность диаграммы кооперации. Генерация программного кода С++.
курсовая работа [2,8 M], добавлен 30.06.2015Проектирование базы данных, информационной подсистемы PLC-Tester, модуля тестирования и web-приложения. Разработка логической структуры программного продукта и общие требования к техническому обеспечению. Запуск программы и описание тестовых прогонов.
дипломная работа [3,2 M], добавлен 30.06.2011Разработка программного комплекса и описание алгоритма. Разработка пользовательского интерфейса. Анализ тестовых испытаний программного блока. Защита пользователей от воздействия на них опасных и вредных факторов. Режимы работы программного комплекса.
дипломная работа [1,7 M], добавлен 14.03.2013Анализ предпроектного обследования предметной области "Компьютерного сервиса". Особенность разработки функциональная модель IDEF0 для графического представления описания информационной системы. Построение модели данных для проектируемой системы.
контрольная работа [751,8 K], добавлен 12.01.2023Интернет-магазин – программное обеспечение для удобства покупок и продаж с веб-сайта. Характеристика существующих средств проектирования и разработки информационных систем. Описание особенностей интерфейса разрабатываемого программного приложения.
курсовая работа [703,3 K], добавлен 07.05.2019Характеристика программных продуктов, используемых при разработке информационной системы. Проектирование интерфейса и базы данных. Создание информационной системы, в которой нужно разработать структурную и функциональную схему программного продукта.
курсовая работа [2,1 M], добавлен 04.03.2021Общие принципы построения и основные этапы проектирования корпоративной информационной системы. Архитектура и требования, предъявляемые к системе. Метод функционального моделирования SADT. Основные средства языка UML. Аппаратно-программная платформа.
дипломная работа [867,2 K], добавлен 20.05.2015Принципы и основные этапы проектирования информационной системы, требования к ее функционалу и оценка возможностей, сферы практического применения. Анализ и обоснование используемого программного обеспечения и технических средств. Листинг программы.
контрольная работа [1,4 M], добавлен 04.02.2017Исходные данные к проекту информационной системы "Протокол технического эксперимента", ее назначение. Описание программы, ее структурная схема. Описание алгоритма работы программы. Программные средства разработки. Методика испытания (тестирования).
курсовая работа [806,6 K], добавлен 17.02.2016Создание диаграммы варианта использования для информационной системы. Моделирование взаимодействия объектов во времени в языке UML. Главная особенность диаграммы кооперации. Физическое представление программной системы, семантическая связь между классами.
курсовая работа [3,9 M], добавлен 09.01.2014Описание салона-магазина по предоставлению услуг оператора мобильной связи. Обоснование создания автоматизированной информационной системы "Оператор". Выбор программного обеспечения, проектирование реляционной базы данных. Описание основ интерфейса.
дипломная работа [1,9 M], добавлен 27.05.2015Общая характеристика разрабатываемой информационной системы, ее исследование и анализ, существующие аналоги, оценка практической эффективности. Требования, предъявляемые к данной системе, описание ее интерфейса и разработка инструкции пользователя
курсовая работа [1,1 M], добавлен 10.06.2014Описание особенностей функционирования магазина. Проектирование системы: инфологическое моделирование и построение диаграммы потоков данных. Моделирование и программная реализация информационной системы. Проектирование пользовательского интерфейса.
курсовая работа [1,6 M], добавлен 18.02.2013Определение функциональности программного продукта. Проектирование интерфейса автоматизированной информационной системы администратора. Страница просмотра основных сведений о клиенте. Отображение комплектации автомобиля. Интерфейс формы учёта продаж.
курсовая работа [1,0 M], добавлен 09.12.2014Выбор методологии проектирования и разработка информационной системы "Расчёт зарплаты" для предприятия ОАО РТП "Авторемонтник". Архитектурное проектирование базы данных информационной системы и разработка её интерфейса. Тестирование программного модуля.
дипломная работа [2,3 M], добавлен 25.05.2014Анализ проектирования баз данных на примере построения программы ведения информационной системы картотеки ГИБДД. Основные функции базы данных. Обоснование выбора технологий проектирования и реализации базы данных. Описание информационного обеспечения.
курсовая работа [753,0 K], добавлен 27.08.2012Информационные технологии: современное состояние, роль в бизнесе и тенденции развития. Анализ информационной культуры предприятия. Разработка базы данных "Base" и программного обеспечения, обслуживающего базу. Описание интерфейса информационной системы.
дипломная работа [1,8 M], добавлен 02.11.2015
