Создание программного обеспечения для небольшого супермаркета
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
>
procedure TForm3.FormCreate(Sender: TObject);.table2.Active:=true;.table1.Active:=true;.Table1.DatabaseName:=Path;.table1.tablename:='chek.db';.Active:=true;.Edit;not(Table1.IsEmpty) do table1.Delete;
end;
Для поля Edit1 (Код товара) пропишем следующую процедуру:
procedure TForm3.Edit1KeyPress(Sender: TObject; var Key: Char);key=#13 then beginnot(form1.Table1.Locate('kod',edit1.Text,[]))begin showmessage('Код не существует'); edit1.Text:=''; end.SetFocus;;;
Если введенный код товара не существует, то программа выдаст соответствующее сообщение, если существует то, фокус перейдет к следующему полю ввода.
Для поля ввода Edit2 пропишем следующую процедуру:
procedure TForm3.Edit2KeyPress(Sender: TObject; var Key: Char);key=#13 then beginstrtofloat(edit2.Text)<= form1.Table1.FieldByName('Kol_vo').AsFloatbegin.insert;.FieldByName('kod').AsInteger :=form1.Table1.FieldValues['kod'];.FieldByName('Name').Asstring :=form1.Table1.FieldValues['name'];.FieldByName('Cena').Asstring :=form1.Table1.FieldValues['cena'];.FieldByName('trademark').Asstring :=form1.Table1.FieldValues['trademark'];.FieldByName('Kol_vo').AsFloat:=strtofloat(edit2.Text);.FieldByName('Summa').AsFloat:=Table1.FieldByName('Kol_vo').AsFloat*Table1.FieldByName('Cena').AsFloat;.Table1.Edit;.Table1.FieldByName('Kol_vo').AsFloat:= form1.Table1.FieldByName('Kol_vo').AsFloat-strtofloat(edit2.Text);.Table1.Post ;.Prior;:=0;not(Table1.eof) do begin:=s+Table1.FieldByName('Summa').AsFloat;.Next;showmessage('не хватает количества');.Caption:=floattostr(s);.Text:='';.Text:='';.SetFocus;
end;
В данной процедуре при нажатии в поле ввода клавиши Enter происходит следующие действия:
.Определяется не меньше ли, количество товара приобретенного пользователем, имеющегося в базе.
.Если товара достаточно, то производится запись в таблицу Чек.
.Производится расчет общей суммы.
.Если товара недостаточно, выводится соответствующее сообщение
При нажатии кнопки Печать :TForm3.Button2Click(Sender: TObject);.show;.QuickRep1.Preview;
form14.close;;
Для Чека создадим следующую форму (рис. 24):
Рис. 24. Отчет Чек
Для формы отчета Чек пропишем следующую процедуру:
procedure TForm14.FormShow(Sender: TObject);
begin.Caption:=datetimetostr(now);.DataField:='kod';.DataField:='name';.DataField:='trademark';.DataField:='cena';.DataField:='kol_vo';.DataField:='summa';.Caption:=floattostr(s);.Caption:=form3.Edit3.Text;.Caption:=floattostr(strtofloat(form3.Edit3.Text)-s);
end;
Полный листинг формы приведен в приложении 12.
Для создания нового чека пропишем следующую процедуру:
procedure TForm3.Button1Click(Sender: TObject);.Edit;not(Table1.IsEmpty) do table1.Delete;.SetFocus ;.Caption:='';:=0;.Text:='';;
Полный листинг формы приведен в приложении 3.
ЗАКЛЮЧЕНИЕ
Любой супермаркет, для продажи какого бы вида товаров он ни предназначался, представляет собой комплексное предприятие, в орбиту которого вовлекаются многие и многие отрасли хозяйства.
По характеру своей деятельности супермаркет - организация, целью которой является продажа населению продуктов и прочих товаров широкого потребления iелью получения прибыли.
Выбранная в данной дипломной работе структурная схема автоматизированной системы управления супермаркетом достаточно удобна как для рядового сотрудника, так и для инженера АСУ.
Центром любой подобной АСУ всегда является мощный энергонезависимый сервер, хранящий информацию о деятельности всех подсистем супермаркета в виде совокупности распределенных баз данных. Каждая база данных содержит одну или несколько информационных таблиц, содержание которых определяется названием БД и может различаться по внутренним характеристикам; одна и та же база данных может использоваться для работы различных подсистем путем выделения из нее соответствующей информационной таблицы.
Базы данных представляют собой эффективный инструмент для организации ввода, хранения, поиска и обработки структурированных данных.
В качестве среды разработки была выбрана среда Delphi.- это среда разработки, используемой прежде всего для создания и поддержки приложений, предназначенных как для отдельных персональных компьютеров, так и для серверов. Delphi, как и разработанные с ее помощью приложения, могут функционировать под практически любой 32 разрядной операционной системой типа Windows. Создать саму БД (не СУБД) средствами Delphi очень сложно, даже невозможно. Если выбрать двух- или трехзвенную архитектуру, не обойтись без сервера БД, который создать собственными силами очень трудно (да и ни к чему, если на рынке предлагаются десятки таких программ, а в Интернете при желании можно найти и бесплатный, но вполне приличный сервер MySQL).
Если речь идет о файл-серверной БД, то и здесь понадобятся специальные средства. В Delphi для этих целей обычно используется утилита Database Desktop.
База данных АСУ Супермаркет состоит из 3 таблиц. Связь между таблицами осуществляется посредством процедур.
Программа АСУ Супермаркет имеет два режима работы: режим кассира и режим администратора.
При работе в режиме Администратора можно добавлять новый товар, удалять и изменять существующий товар, оформлять поступление товара.
Режим Кассир предназначен для фиксирования операции реализации товара в виде чека.
Одно из достоинств данной программы - независимость от места расположения таблиц и ехе-файла программы, главное чтобы они находились в одной папке. Программа сама прописывает все необходимые свойства, что облегчает работу пользователя.
Поставленная цель дипломной работы достигнута. На примере небольшого супермаркета рассмотрены возможности его автоматизации. Программное обеспечение можно использовать в минимаркетах, небольших магазинах осуществляющих реализацию любого товара.
Для конкретного использования данной программы необходимо доработать механизма получения кода товара, что невозможно без специального оборудования для считывания штрих-кода с продукта.
СПИСОК ИСПОЛЬЗОВАННЫХ ИСТОЧНИКОВ
1.Smtrade.ru
2.Auit.ru
3.Equipnet.ru
4.smartcode.ru
.Электронный журнал Товар лицом
.Чертовской В.Д. Базы и банки данных.
.П