Разработка информационно-справочной системы для парфюмерной компании Avon
МІНІСТЕРСТВО
ОСВІТИ І НАУКИ УКРАЇНИ
ПІВДЕННОУКРАЇНСЬКИЙ
ДЕРЖАВНИЙ ПЕДАГОГІЧНИЙ УНІВЕРСИТЕТ Ім. К.Д. Ушинського
Кафедра
прикладної математики та інформатики
Курсова
робота
По
дисципліні «ІНФОРМАТИКА» на тему
«Розробка
інформаційно-довідкової системи для парфумерної компанії Avon»
Виконавець:
Студентка ІІ-го курсу
Фізико-математичного факультету
Короткова А.Г.
Науковий керівник:
Старший викладач: Крапiвна О.В.
Одеса-2010
Содержание
Введение
. Техническое
задание
. Описание
типизированных файлов в Delphi
. Структура
базы данных
. Описание
программы
. Инструкция
пользователя
Список
литературы
Введение
Данная курсовая работа посвящена созданию базы
данных на основе типизированных файлов средствами визуальной среды
программирования Delphi.
Delphi ˗ язык
программирования
<#"551940.files/image001.jpg">
Форма ввода новой продукции
При нажатии на кнопку ввода данных в меню
необходимо показать форму ввода данных. Для этого обрабатываем событие OnClick
для кнопки «Ввода новой продукции»:
procedure TForm1.N1Click(Sender:
TObject);( f, 'Avon.van');
{$I-}(f);
{$I+}ioresult <> 0 then
rewrite (f);(f, filesize (f));.show;
end;
На форме «Ввод новой продукции» обрабатываем
процедуру для хранения данных (Кнопка Сохранить):
procedure
TForm2.BitBtn1Click(Sender:
TObject);.vid:=Edit1.text;.name:=Edit2.text;.number:=Edit3.text;.preace:=Edit4.text;.ops:=Edit5.text;(f,a);.text:='';.text:='';.text:='';.text:='';.text:='';
Edit1.setfocus;;
Также, обрабатываем процедуру для отмены данных
в случае неправильной записи (Кнопка Отмена):
procedure
TForm2.BitBtn2Click(Sender:
TObject);.text:='';.text:='';.text:='';.text:='';.text:='';.setfocus;
end;
Форма просмотра всей продукции
При нажатии на кнопку просмотр в меню необходимо
показать форму просмотра данных, для этого обрабатываем процедуру OnActivate:
{$I-}(f);
{$I+}ioresult <> 0 then
showmessage ('Файла нет);:=1;not(EOF(f))
do(f,a);.Cells[0,i]:= a.vid;.Cells[1,i]:= a.name;.Cells[2,i]:=
a.number;.Cells[3,i]:= a.preace;.Cells[4,i]:= a.ops;:=i+1;;(f);
end;
Форма поиска по виду продукции
Обрабатываем процедуру нажатия #13 (Enter) после
ввода определенного критерия:
implementation
{$R *.dfm}unit1, unit2,
unit3;TForm4.Edit1KeyPress(Sender: TObject; var Key: Char);:integer;key=#13
then.Cells[0,0]:='Вид продукции';.Cells[1,0]:='Название';.Cells[2,0]:='Номер';.Cells[3,0]:='Цена';.Cells[4,0]:='Описание';(f,'Avon.van');(f);:=1;not
(EOF(f)) do(f,a);a.vid=edit1.Text then.Cells[0,i]:= a.vid;.Cells[1,i]:=
a.name;.Cells[2,i]:= a.number;.Cells[3,i]:= a.preace;.Cells[4,i]:=
a.ops;:=1;;;(f);
end;;
Поиск происходит аналогично, вот только меняется
критерий требования в поиске.
5. Инструкция пользователя
Данный проект предназначен для создания
информационно-справочной системы «Парфюмерная компания Avon», другими словами,
в этой программе будет храниться информация о самой продукции: ее вид,
название, номер, цена и описание. Кроме того в программе есть функции ввода,
просмотра и поиска.
Существующий интерфейс программы достаточно
прост в понимании, но иногда возникают вопросы, то данная инструкция позволит
вас избавиться от них.
ô Ввод:
§ вводить нужную информацию требуется только в определенную
ячейку;
§ кнопку не
нажимаем больше одного раза (все данные сохраняются с первого нажатия);
§ кнопка нужна
только в том случае, если вы набрали неправильный текст.
§ выход совершается как у стандартных программ на
нажатие кнопки .
ô Просмотр:
§ на форме просмотр особых навыков не требуется.
При активации формы (нажатие на в главном меню)
вся информация показывается сама;
ô Поиск:
§ вводим определенный критерий (слова, цифры) в
ячейку C
и нажимаем на клавиатуре кнопку «Enter»;
§ вводим слова (цифры) полностью. Например: Крем -
правильно, кре - не правильно.
§ выход совершается как у стандартных программ на
нажатие кнопки .
Заключение
Данный проект можно использовать в
продовольственных целях, он очень удобный и при этом не имеет больших
сложность, да и навыков для работы с ним.
Разрабатывая этот проект мы приобрели навыки в
формировании технического задания по требованиям заказчика, самостоятельно
разработали программный проект в соответствии с требованиями технического
задания, усовершенствовали работу с типизированными файлами, а так же приобрели
навыки оформления программной документации для дальнейшей эксплуатации проекта.
Список литературы
<http://ru.wikipedia.org/wiki/Delphi>
<http://www.codenet.ru/progr/delphi/Object-Pascal/files.php>
<http://articles.org.ru/cfaq/index.php?qid=444&frommostrecent=yes>
<http://www.knigka.info/category/pascal/>
<http://rsc-team.ru/cgi-bin/index.pl?rzd=2&group=lection&ind=15>