Размещено на http://www.allbest.ru/

ДЕПАРТАМЕНТ ОБРАЗОВАНИЯ, НАУКИ И МОЛОДЕЖНОЙ ПОЛИТИКИ

ВОРОНЕЖСКОЙ ОБЛАСТИ

ГОСУДАРСТВЕННОЕ БЮДЖЕТНОЕ ПРОФЕССИОНАЛЬНОЕ ОБРАЗОВАТЕЛЬНОЕ УЧРЕЖДЕНИЕ

ВОРОНЕЖСКОЙ ОБЛАСТИ «СЕМИЛУКСКИЙ ПОЛИТЕХНИЧЕСКИЙ КОЛЛЕДЖ»

КУРСОВОЙ ПРОЕКТ

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

Специальность 09.02.03 Программирование в компьютерных системах

ПМ.01. Разработка программных модулей программного обеспечения для компьютерных систем

РЕФЕРАТ

Ключевые слова: ПРОГРАММНОЕ ОБЕСПЕЧЕНИЕ, СПЕЦИФИКАЦИЯ, ОТЛАДКА, ТЕСТИРОВАНИЕ, ДОКУМЕНТАЦИЯ, ИНТЕРФЕЙС, ЗООМАГАЗИН.

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

Предмет исследования - исследование возможностей интегрированной среды разработки Delphi для обработки данных о товарах зоомагазина.

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

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

Все неоговоренные в курсовом проекте рисунки и таблицы составлены автором по материалам практики и учебной литературы.

ВВЕДЕНИЕ

Цель курсового проекта: разработка программного обеспечения для обработки данных о товарах в зоомагазине.

Задачи:

- разработка программы на языке Delphi;

- создание удобного интерфейса;

- углубление знаний о языке программирования Delphi;

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

Для разработки программного обеспечения было решено указывать сведения о товарах:

1. Наименование.

2. Зоомагазин.

3. Цена.

4. Дата продажи.

5. Дата поставки.

Предусматривается разработать данную программу на языке программирования Delphi. Для удобства просмотра данных, они должны выводиться в виде таблицы.

РАЗДЕЛ 1 ВОЗМОЖНОСТИ СРЕДЫ ПРОГРАММИРОВАНИЯ DELPHI ПРИ РАЗРАБОТКЕ ПРИЛОЖЕНИЯ С ВИЗУАЛЬНЫМ ИНТЕРФЕЙСОМ

Delphi представляет собой средство разработки приложений для Microsoft Windows. Delphi является мощным и простым в использовании инструментом для создания автономных программ, обладающих графическим интерфейсом (GUI), или 32-битных консольных приложений (программ, которые не имеют графического интерфейса).

В сочетании с Borland Kylix, программисты Delphi могут создавать из одного исходного текста приложения и для Windows и для Linux, и это открывает новые возможности и увеличивает потенциальную отдачу от усилий, вложенных в изучение Delphi. В Delphi используется кросс-платформенная библиотека компонентов CLX и визуальные дизайнеры для создания высокопроизводительных приложений для Windows, которые повторной компиляцией можно легко превратить в приложения для Linux.

Delphi является первым языком программирования, обладающим простой в использовании средой для быстрой разработки приложений, разрушающей барьеры между языками высокого уровня, и языками, на низком уровне разговаривающими с системой на языке битов и байтов.

При создании графического интерфейса приложений Delphi, у вас все возможности языка программирования Object Pascal, "завернутого" в среду RAD. Такие компоненты окна графического пользовательского интерфейса, как формы, кнопки и списки объектов, включены в состав Delphi. Это означает, что вам не нужно писать никакого кода при добавлении их в ваше приложение. Вы просто "кладёте" их на вашу Форму, как в графическом редакторе. Вы можете также добавить на Форму элементы управления ActiveX, для создания в считанные минуты специализированных программ таких, например, как веб-браузеры. Delphi позволяет разработчикам дизайна внедрять в интерфейс новые элементы и кодировать их события одним щелчком мыши.

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

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

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

Таблица Delphi StringGrid также обладает очень важным и полезным свойством, характерным для компонентов с графическими возможностями - Canvas(канва). Это свойство позволяет как произвольно рисовать в пределах таблицы, так и размещать в ячейках рисунки и другие графические данные. А также именно это свойство позволяет управлять расположением строк в ячейках. Дело в том, что сама таблица Delphi StringGrid размещает содержимое своих ячеек у их левого края. Программист, работая с канвой таблицы, может разместить данные как по центру, так и у правого края ячеек, в зависимости от потребностей.

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

delphi код модуль интерфейс

РАЗДЕЛ 2 РАЗРАБОТКА ПРОГРАММНОГО ОБЕСПЕЧЕНИЯ

2.1 Разработка спецификации программного обеспечения

Спецификация это законченное поведение программы и требования к ней, которую требуется разработать. Программное обеспечение должно иметь главную форму с находящейся на ней таблицей для вывода данных. В программе должны иметься кнопки управления самой программой, которые позволяют добавлять информацию в таблицу, удалять информацию из таблицы, сохранять содержимое таблицы. Программа должна иметь информацию о самой программе, открытие происходит с помощью специальной кнопки, и информацию об авторе программы, которая открывается после нажатия специальной кнопки. Кнопки должны быть продублированы в главном меню. Для безопасной и правильной работы программы рекомендуется иметь Источник бесперебойного питания. Температура компьютера не должна выходить за рамки значения температуры -20 + 35 градусов по цельсию. Для исключения возможности потери информации программа должна иметь возможность быстро сохранять эту информацию. Специальной защиты данных для пользователя не предусматривается в программе. Программа должна иметь удобный и понятный интерфейс для работы с информацией.

2.2 Разработка кода программного продукта на основе готовой спецификации

Было разработано главное окно программы, Данные представлены в виде таблицы, поэтому основная часть формы занимает таблица StrinGrid. На форме были расположены кнопки, они отображены на (Рисунок 1).



Рисунок 1 - Главная форма программы

Кнопка «Открыть» позволяет открыть диалоговое окно с информацией о товарах зоомагазина. Причем в заголовке отображено назначение диалогового окна. Оно отображено на рисунке 2. Для этого окна были установлены фильтры для открытия различных типов документов: текстовые файлы, все файлы (рисунок 3).

Рисунок 2 - Открытие файла



Рисунок 3 - Установленные фильтры

Для реализации этой кнопки используется код:

procedure TForm2.Button1Click(Sender: TObject);

begin

if OpenDialog1.Execute then

s:=OpenDialog1.FileName

else s:='primer.txt';

assignfile(f,s);

reset (f);

k:=0;

while not eof(f) do

begin

readln (f);

readln (f);

readln (f);

readln (f);

readln (f);

inc(k);

readln (f);

end;

closefile(f);

assignfile(f,s);

reset(f);

SG1.ColCount:=5;

SG1.rowCount:=k;

SG1.cells[0,0]:='Наименование';

SG1.cells[1,0]:='Зоомагазин';

SG1.cells[2,0]:='Цена';

SG1.cells[3,0]:='Дата продажи';

SG1.cells[4,0]:='Дата поставки';

for i:= 1 to SG1.RowCount-1 do

begin

for j:= 0 to SG1.ColCount-1 do begin

readln(f,x);

SG1.Cells[j,i]:=x;

end;

readln(f,x);

end;

closefile(f);

end;

Кнопка «Добавить» позволяет добавить одну строку в таблицу StringGrid. Для реализации этой кнопки используется код:

procedure TForm2.Button5Click(Sender: TObject); //добавить

begin

if SG1.RowCount>1 then

SG1.RowCount:=SG1.RowCount+1;

end;

Кнопка «Удалить» позволяет удалить строку из таблицы. Для реализации этой кнопки используется код:

procedure TForm2.Button6Click(Sender: TObject);

var

a: string;

b: integer;

i,j:integer;

begin

a:=inputbox('Ввод данных','Введите номер строки для удаления', '1');

b:=strtoint(a);

if (b<2) or (b> SG1.RowCount) then ShowMessage('Такого поля нет')

else

with SG1 do begin

for i := b to RowCount - 1 do

for j := 0 to ColCount - 1 do

cells[j,i]:=cells[j,i+1];

RowCount:=RowCount-1;

end;

end;

end;

Кнопка «Сохранить» сохраняет данные в открытом ранее пользователем файле. Для этого была описана глобальная переменная s, в которой сохраняется путь к файлу при работе. Для реализации этой кнопки используется код:

procedure TForm2.Button2Click(Sender: TObject);

begin

if s <> '' then begin

assignfile(f,s);

rewrite(f);

for i:=1 to SG1.RowCount-1 do

begin

for j:=0 to SG1.ColCount-1 do

writeln(f,SG1.cells[j,i]);

writeln(f,'');

end;

closefile(f)

end

else

showmessage ('Вы не выбрали файл.'+#10#13+'Нужно открыть файл или создать новый и нажать кнопку "Сохранить как"');

end;

Кнопка «Сохранить как» сохраняет данные введенные в таблице как отдельный новый файл (Рисунок 5). Для реализации этой кнопки используется код:

procedure TForm2.Button3Click(Sender: TObject);

begin

if SaveDialog1.Execute then begin

S:=SaveDialog1.FileName+'.txt';

assignfile(f,s);

rewrite(f);

for i:=1 to SG1.RowCount-1 do

begin

for j:=0 to SG1.ColCount-1 do

writeln(f,SG1.cells[j,i]);

writeln(f,'');

end;

closefile(f)

end

else

showMessage('Вы не выбрали файл');

end;

Рисунок 5 - сохранение файла

Кнопка «О программе» открывает информацию о самой созданной программе (Рисунок 6). Для реализации этой кнопки используется код:

procedure TForm2.Button4Click(Sender: TObject);

begin

Form3.show;

end;

Рисунок 6 - О программе

Кнопка «Об авторе» открывает информацию об авторе созданной программы (Рисунок 7). Для реализации этой кнопки используется код:

procedure TForm2.Button7Click(Sender: TObject);

begin

form4.show;

end;

Рисунок 7 - Об авторе программы

Кнопка «Выход» закрывает программу. Для реализации этой кнопки используется код:

procedure TForm2.BitBtn1Click(Sender: TObject);

begin

Form2.close;

end;

2.3 Отладка программных модулей с использованием специализированных программных средств

Отладка ПС - это деятельность, направленная на обнаружение и исправление ошибок в ПС с использованием процессов выполнения его программ. В программе был использован способ «Трассировка». Это процесс выполнения программы по шагам (step-by-step), инструкция за инструкцией. Во время трассировки программист дает команду: выполнить очередную инструкцию программы.

Ниже приведены фрагменты из кода программы позволяющие избежать ошибок.

Для кнопки «Открыть» :

If … //Условия для открытия файла

else

showmessage ('Вы не выбрали файл');

Для кнопки «Удалить»:

If…///Удаление строки

else

showmessage ('Такой строки нет');

Для кнопки «Сохранить как»:

If…//Сохранение файла

else

showMessage('Вы не выбрали файл');

2.4 Тестирование программного обеспечения

Тестирование - это любая деятельность, направленная на обнаружение ошибок в программном продукте. Тестирование проводится для того, чтобы найти ошибки в программе и тем самым повысить ее надежность.

Тестирование программы приведено ниже.

При запуске программы открывается главная форма программы (Рисунок 8).

Рисунок 8 - Главная форма

При нажатии на кнопку «Открыть» открывается окно (Рисунок 9) и заполняется таблица выбранными данными (Рисунок 10).



Рисунок 9 - Работа кнопки «Открыть»

Рисунок 10 - Заполнение таблицы

Если файл не был выбран, появляется окно (Рисунок 11).:

Рисунок 11 - Сообщение об ошибке

Кнопка «Сохранить» позволяет сохранить данные в документе. Кнопка «Сохранить как» сохраняет документ в выбранном пользователем документе (Рисунок 12).

Рисунок 12 - Сохранение документа

Кнопки «О программе» и «Об авторе» открывают информацию об программе и ее разработчике. (Рисунок 13-14).

Рисунок 13 - О программе

Рисунок 14 - Об авторе

На формах (Рисунок 13, 14) расположена кнопка «Вернуться», которая возвращает пользователя на главную форму. Расположенная на главной форме кнопка «Выход» закрывает программу.

2.5 Оптимизация программного кода

Оптимизация программы - улучшение программы, поиск лучших вариантов для более быстрой и стабильной работы программы. Для оптимизации программы следует убирать «мертвые коды», которые не используются при работе программы, устранять мелкие небрежности кода программы и т.п.

procedure TForm2.Button3Click(Sender: TObject);

begin

if SaveDialog1.Execute then begin

S:=SaveDialog1.FileName+'.txt';

assignfile(f,s);

rewrite(f);

for i:=1 to SG1.RowCount-1 do

begin

for j:=0 to SG1.ColCount-1 do

writeln(f,SG1.cells[j,i]);

writeln(f,'');

end;

closefile(f)

end

else

showMessage('Вы не выбрали файл');

end;

2.6 Разработка компонентов проектной и технической документации с использованием графических языков спецификаций

Блок-схема детализируемой программы (в соответствии с ГОСТ 19.701-90).

Рисунок 15 - Схема программы

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

ЗАКЛЮЧЕНИЕ

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

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

1. Наименование.

2. Зоомагазин.

3. Цена.

4. Дата продажи.

5. Дата поставки.

Были углублены знания о возможностях Delphi, работы с таблицами StringGrid и другими возможностями данной программы.

В результате выполнения курсового проекта были также глубоко изучены возможности Delphi.

СПИСОК ИСПОЛЬЗОВАННЫХ ИСТОЧНИКОВ

1. Культин Н.Б. Embarcadero Delphi.

2. Дмитрий Осипов Базы данных и Delphi. Теория и практика.

3. Рубанцев Валерий. Описание книги Delphi в примерах, играх и программах.

4. Сергей Бобровский. Технологии Delphi 2006. Новые возможности.

5. Михаил Голованов, Евгений Веселов. Создание компонентов в среде Delphi. Руководство разработчика.

6. Иван Хладни. Внутренний мир Borland Delphi.

7. А. Я. Архангельский. Программирование в Delphi для Windows.

8. А. Чиртик, В. Борисок, Ю. Корвель. Трюки и эффекты.

9. М. Е. Фленов. Delphi глазами хакера.

10. Д. Тейлор, Дж. Мишель, Дж. Пенман. Delphi, библиотека программиста.

ПРИЛОЖЕНИЕ А

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

procedure TForm2.BitBtn1Click(Sender: TObject); //закрыть

begin

Form2.close;

end;

procedure TForm2.Button1Click(Sender: TObject); //открыть

begin

if OpenDialog1.Execute then

s:=OpenDialog1.FileName

else s:='primer.txt';

assignfile(f,s);

reset (f);

k:=0;

while not eof(f) do

begin

readln (f);

readln (f);

readln (f);

readln (f);

readln (f);

inc(k);

readln (f);

end;

closefile(f);

assignfile(f,s);

reset(f);

SG1.ColCount:=5;

SG1.rowCount:=k;

SG1.cells[0,0]:='Наименование';

SG1.cells[1,0]:='Зоомагазин';

SG1.cells[2,0]:='Цена';

SG1.cells[3,0]:='Дата продажи';

SG1.cells[4,0]:='Дата поставки';

for i:= 1 to SG1.RowCount-1 do

begin

for j:= 0 to SG1.ColCount-1 do begin

readln(f,x);

SG1.Cells[j,i]:=x;

end;

readln(f,x);

end;

closefile(f);

end;

procedure TForm2.Button2Click(Sender: TObject); //сохранить

begin

if s <> '' then begin

assignfile(f,s);

rewrite(f);

for i:=1 to SG1.RowCount-1 do

begin

for j:=0 to SG1.ColCount-1 do

writeln(f,SG1.cells[j,i]);

writeln(f,'');

end;

closefile(f)

end

else

showmessage ('Вы не выбрали файл.'+#10#13+'Нужно открыть файл или создать новый и нажать кнопку "Сохранить как"');

end;

procedure TForm2.Button3Click(Sender: TObject); //сохранить как

begin

if SaveDialog1.Execute then begin

S:=SaveDialog1.FileName+'.txt';

assignfile(f,s);

rewrite(f);

for i:=1 to SG1.RowCount-1 do

begin

for j:=0 to SG1.ColCount-1 do

writeln(f,SG1.cells[j,i]);

writeln(f,'');

end;

closefile(f)

end

else

showMessage('Вы не выбрали файл');

end;

procedure TForm2.Button4Click(Sender: TObject); //о программе

begin

Form3.show;

end;

procedure TForm2.Button5Click(Sender: TObject); //добавить

begin

if SG1.RowCount>1 then

SG1.RowCount:=SG1.RowCount+1;

end;

procedure TForm2.Button6Click(Sender: TObject); //удалить

var

a: string;

b: integer;

i,j:integer;

begin

b:=-1;

with SG1 do begin

for i := 1 to RowCount - 1 do

if cells[1,i]=a then b:=i;

if b<> -1 then begin

if RowCount>=2 then

for i := b to RowCount - 1 do

for j := 0 to ColCount - 1 do

cells[j,i]:=cells[j,i+1];

RowCount:=RowCount-1;

end

else ShowMessage('Такого поля нет');

end;

end;

procedure TForm2.Button7Click(Sender: TObject); //об авторе

begin

form4.show;

end;

procedure TForm2.FormCreate(Sender: TObject); //цвет формы

begin

Form2.color:=rgb(98,99,155);

end;

procedure TForm2.FormShow(Sender: TObject);

begin

SG1.ColWidths[0]:=250;

end;

procedure TForm2.N2Click(Sender: TObject);

begin

if OpenDialog1.Execute then

s:=OpenDialog1.FileName

else s:='primer.txt';

assignfile(f,s);

reset (f);

k:=0;

while not eof(f) do

begin

readln (f);

readln (f);

readln (f);

readln (f);

readln (f);

inc(k);

readln (f);

end;

closefile(f);

assignfile(f,s);

reset(f);

SG1.ColCount:=5;

SG1.rowCount:=k;

SG1.cells[0,0]:='Наименование';

SG1.cells[1,0]:='Зоомагазин';

SG1.cells[2,0]:='Цена';

SG1.cells[3,0]:='Дата продажи';

SG1.cells[4,0]:='Дата поставки';

for i:= 1 to SG1.RowCount-1 do

begin

for j:= 0 to SG1.ColCount-1 do begin

readln(f,x);

SG1.Cells[j,i]:=x;

end;

readln(f,x);

end;

closefile(f);

end;

procedure TForm2.N3Click(Sender: TObject);

begin

if s <> '' then begin

assignfile(f,s);

rewrite(f);

for i:=1 to SG1.RowCount-1 do

begin

for j:=0 to SG1.ColCount-1 do

writeln(f,SG1.cells[j,i]);

writeln(f,'');

end;

closefile(f)

end

else

showmessage ('Вы не выбрали файл.'+#10#13+'Нужно открыть файл или создать новый и нажать кнопку "Сохранить как"');

end;

procedure TForm2.N4Click(Sender: TObject);

begin

if SaveDialog1.Execute then begin

S:=SaveDialog1.FileName+'.txt';

assignfile(f,s);

rewrite(f);

for i:=1 to SG1.RowCount-1 do

begin

for j:=0 to SG1.ColCount-1 do

writeln(f,SG1.cells[j,i]);

writeln(f,'');

end;

closefile(f)

end

else

showMessage('Вы не выбрали файл');

end;

procedure TForm2.N5Click(Sender: TObject);

begin

Form2.close;

end;

procedure TForm2.N7Click(Sender: TObject);

begin

Form3.show;

end;

procedure TForm2.N8Click(Sender: TObject);

begin

form4.show;

end;

procedure TForm2.SG1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect;

State: TGridDrawState);

var

s:string;

h: integer;

begin

with Sender as TStringGrid do

begin

Canvas.FillRect(Rect);

DrawText (Canvas.Handle,

PChar(Cells[ACol, ARow]),

Length(Cells[ACol, ARow]),

Rect, DT_WORDBREAK or

DT_EXPANDTABS);

end;

end;

end.

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