Разработка информационно-справочной системы для парфюмерной компании Avon
Курсовой проект - Компьютеры, программирование
Другие курсовые по предмету Компьютеры, программирование
любого файлового типа, кроме типа Text.
Процедура EOF([файловая переменная]);
Функция Eof возвращает истину, если курсор файла, находится в конце.
Файл, должен был, быть назначен, и открыт с помощью Reset. Предупреждение: после чтения последней строки файла, Eof будет true, даже при том, что данные считались успешно.
Так, что используйте Eof перед чтением, чтобы видеть нужно ли чтение.
Процедура IoResult;
Возвращает результат последней операции ввода/вывода.
Если операция завершилась нормально, то это число 0, положительное число, если операция потерпела неудачу.
Используйте IOResult, когда вы уже отключили значение по умолчанию отлавливающее ошибки ввода/вывода. Когда $IOChecks включено, Delphi выдает исключения для ошибок. Когда выключено Delphi не выдает исключения, требуя, чтобы код сам следил за результатом ввода/вывода IOResult.
3. Структура базы данных
Как выше было сказано, база данных ? это скопление информации и естественно эту информацию надо, где то хранить. В данной курсовой работе мы будем использовать один файл с расширением van. Все данные хранятся в этом же файле под названием Avon.van, то есть там храниться вся информация о виде продукции, о его названии, номера, цене.
Приведем ниже таблицу данных для формальной записи в файле:
ХарактеристикаНазвание поляТип поляВид продукцииvidstring [40]Названиеnamestring [150]Номерnumberstring [10]Ценаpreacestring [10]Описаниеopsstring [150]
Все описание структуры в файле, типов полей и файловых переменных для работы с файлом базы данных делаем в главном модуле Unit1 проекта.
type=record: string [40];: string [150];: string [10];: string [10];: string [150];;= class(TForm): TMainMenu;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TImage;N1Click(Sender: TObject);N2Click(Sender: TObject);N6Click(Sender: TObject);N7Click(Sender: TObject);N5Click(Sender: TObject);N4Click(Sender: TObject);
{ Private declarations }
{ Public declarations };: TForm1;: file of T;: T;
4. Описание программы
файл программирование информационный справочный
Главная форма представляет собой меню с выбором возможности вносить данные, просматривать и организовывать поиск информации в базе данных.
Форма ввода новой продукции
При нажатии на кнопку ввода данных в меню необходимо показать форму ввода данных. Для этого обрабатываем событие 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:
procedure TForm3.FormActivate(Sender: TObject);:integer;.Cells[0,0]:=Вид продукции;.Cells[1,0]:=Название;.Cells[2,0]:=Номер;.Cells[3,0]:=Цена;.Cells[4,0]:=Описание;(f,Avon.van);
{$I-}(f);
0thenshowmessage();:=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);">{$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;
вводим слова (цифры) полностью. Например: Крем - правильно, кре - не правильно.
выход совершается как у стандартных программ на нажатие кнопки .
Заключение
Данный проект можно использовать в продовольственных целях, он очень удобный и при этом не имее