Создание программного обеспечения для небольшого супермаркета
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
?крывается окно добавления нового товара (Рис 9).
Рисунок 9. Добавление товара
При нажатии кнопки Добавить данные записываются в таблицу и окно закрывается. Фирма-производитель, вид, единицы измерения выбираются из списков.
При нажатии кнопки Изменить открывается окно Изменение товара (Рис 10).
Рисунок 10. Изменение товара
Для просмотра таблицы используются кнопки Вперед и Назад. Кнопка Отмена закрывает окно. При нажатии кнопки Изменить данные товаре записываются в таблицу.
Удалить товар можно при нажатии кнопки Удалить и выборе пункта меню Данные - Удалить.
Поступление товара оформляется с помощью кнопки Поступление товара и при помощи пункта меню Данные - Поступление товара. При нажатии вышеперечисленных кнопок, появляется окно Поступление товара (Рис 11).
Рисунок 11. Поступление товара
Наименование товара выбирается из списка (источник - таблица Данные о товаре). Код товара ставится автоматически. При нажатии кнопки Добавить производятся следующие действия:
.Запись добавляется в таблицу Данные о поступлении
.Поле Количество соответствующего товара в таблице Данные о товаре увеличивается
.Поля вода очищаются и можно добавлять следующую запись
Поля № п\п и Дата поступления заполняются автоматически.
Пункт главного меню Сервис содержит следующие подпункты:
Смена пароля
Добавить (единицы измерения, фирму-производителя, вид товара)
При выборе команды Смена пароля открывается следующее окно (Рис. 12).
Рисунок 12. Смена пароля
На данной форме можно сменить пароль как на режим Кассир, так и на режим Администратор. Для смены пароля обязательно вводится старый, в случае если он не верен, пароль сменить не удастся.
При добавлении товара, либо изменении, такие данные как вид товара, фирма-производитель и единицы измерения, выбираются из списков. Для изменения списков выбирается пункт меню Сервис - Добавить, далее в подпунктах выбирается необходимое поле. При выборе поля откроется соответствующая форма (Рис. 13).
Рисунок 13. Добавление единиц измерения
Пункт главного меню Отчеты предназначен для формирования и распечатки отчетов. Отчет можно сформировать по отсутствующим товарам, присутствующим товарам и полный отчет (Рис. 14).
Рисунок 14. Отчет
Пункт главного меню Экспорт предназначен для экспорта данных из таблиц в новый документ MS Excel.
5. РАЗРАБОТКА ПРОГРАММЫ
5.1 Создание базы данных
Для создания таблиц воспользуемся программой Database Desktop. Создадим таблицу со следующей структурой (рис. 15).
Рисунок 15. Структура таблицы supermarket.db
Аналогично создадим таблицы postuplenie.db и chek.db.
Таблица 1. Список полей таблицы postuplenie.db
Наименование поляТип данныхkodAutoincrement(счетчик)nameLonginteger (целое)naimenAlpha (строковый) - 15 символовdata_postDate (Дата)kol_voNumber (вещественное)
Таблица 2. Список полей таблицы chek.db
Наименование поляТип данныхkodNumber (вещественное)nameAlpha (строковый) - 25 символовtrademarkAlpha (строковый) - 25 символовcenaNumber (вещественное)kol_voNumber (вещественное)summaNumber (вещественное)
5.2 Разработка главной формы режима Администратор
Создадим новый проект в Delphi. Создадим форму согласно рисунку 16.
Рис. 16. Форма
Добавим на форму следующие компоненты для работы с базами данных: Table1, DataSource1, DbGrid1, Table2, DataSource2, DbGrid2.
Для того, чтобы база данных была независимой от места расположения при переносе с одного компьютер на другой, пропишем следующую процедуру.
Листинг1.TForm1.FormCreate(Sender: TObject);.ShowMainForm:=false;:=Application.ExeName; // полный путь и название запущенной программы
Path:=ExtractFileDir(Path); // отбрасываем название программы. Остается путь.Path[Length(Path)]<>'\' then Path:=Path+'\'; // если последний символ не \ то добавить его
{Последняя строка нужна для присвоения последнего символа '\',
потому что при обрезке файла 'C:\PROG.EXE' получим 'C:\',
а при обрезке 'C:\WINDOWS\PROG.EXE' получим 'C:\WINDOWS' }
form1.table1.databasename:= Path;.table1.tablename:='supermarket.db';.Query1.DatabaseName:=Path;.table2.databasename:= Path;.table2.tablename:='postuplenie.DB';.Query2.DatabaseName:=Path;.Active:=true;
end;
При использовании вышеуказанной процедуры, достаточно чтобы таблицы находились в одной папке с файлом проекта.
В таблице DbGrid1 названия полей таблицы отображаются на английском языке. Для того чтобы заменить их на русский, щелкаем дважды на компоненте, в отобразившемся окне Editing DBGrid.Columns правой кнопкой выбираем пункт Add All Fields. Выделяя каждое поле, изменяем свойство Title на подходящее название на русском языке.
Создадим главное меню с помощью компонента MainMenu.
Для кнопки Добавить пропишем следующий исходный код: procedure TForm1.N2Click(Sender: TObject);.Show// открывается форма Добавление товара
end;
Для кнопки ИзменитьTForm1.N4Click(Sender: TObject);
form6.Show; // открывается форма Изменение товара
form6.edit2.Text:=form1.Table1.FieldByName('Name').AsString;.edit3.Text:=form1.Table1.FieldByName('Trademark').AsString;.edit4.Text:=form1.Table1.FieldByName('Kind').AsString;.combobox1.Text:=form1.Table1.FieldByName('Ed_izm').AsStrin;.edit6.Text:=floattostr(form1.Table1.FieldByName('Cena').AsFloat;;
Для кнопки УдалитьTForm1.N3Click(Sender: TObject);.Table1.Delete;
Для кнопки Поступление товараTForm1.N19Click(Sender: TObject);
form11.Show// открывается форма Поступление товара
end;
Полный код формы приведен в приложении 1.
5.3 Разработка формы Вход в программу
Создадим форму как на рис. 17.
Рис. 17. Вход в программу
Для кнопки ОК пропишем следующий исходный код:
procedure TForm2.BitBtn1Click(Sender: TObject);combobox1.Text='администратор' thenedit1.text=paroladmin then1.Show; //показать главное окно