Дипломная работа: Автоматизация договорных отношений мелкооптового склада магазина ИП Шевелевой Е.В. с поставщиками и оптовыми покупателями
Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
57
Рисунок №9. Форма для ввода товара
Для обеспечения надежности функционирования модуля применяется
принцип «защитного программирования», когда пользователь вводит все, что
хочет, а программа принимает только правильные данные. Этот принцип будет
обеспечен применением компонентов для обеспечения ввода выбором
следующих значений:
- единицы измерения (рисунок №10).
Рисунок №10. Ввод выбором единицы измерения.
По событию нажатия кнопки «Запись» осуществляется контроль ввода
заполнения полей:
procedure TfrWTov.Button2Click(Sender: TObject);
begin
//контроль ввода
if trim(DBEdit1.Text)='' then
begin
showmessage('Не определено наименование товара');
DBEdit1.SetFocus;
exit;
end
58
else
if trim(DBComboBox1.Text)='' then
begin
showmessage('Не определена ед.измерения товара');
DBComboBox1.SetFocus;
exit;
end
else
if trim(DBEdit3.Text)='' then
begin
showmessage('Не определена опт.цена товара');
DBEdit3.SetFocus;
exit;
end
else
if trim(DBEdit4.Text)='' then
begin
showmessage('Не определена розн.цена товара');
DBEdit4.SetFocus;
exit;
end
else
ModalResult:=mrOk;
end;
Уникальный код товара формируется автоматически СУБД.
Работа модуля завершается средствами Windows для закрытия окна,
например Alt+F4.
Модуль «Поставщики»
Входные данные
Входными данными модуля являются данные о поставщиках товаров:
- наименование поставщика (символьное);
- ключевое слово для поиска (символьное);
59
- почтовый адрес (символьное);
- телефон для связи (символьное);
- расчетный счет (числовое);
- корреспондирующий счет (числовое);
- обслуживающий банк (символьное).
Выходные данные
Выходными данными является, заполненный сведениями о поставщиках
справочник поставщиков (таблица №2 базы данных). Для каждой записи будет
формироваться уникальный код для идентификации поставщика и для
осуществления связей с другими данными (целое), например, вводе приходной
накладной.
Методы решения
Модуль «Поставщики» запускается выбором пункта меню «Справочники
| Поставщики».
В данном модуле обеспечен ввод сведений обо всех поставщиках
компонентов (рисунок №11.). Форма для ввода информации о поставщике
вызывается по событию AfterEdit при редактировании и AfterInsert при
добавлении информации о новом поставщике:
procedure TDM3.Table3.AfterInsert(DataSet: TDataSet);
begin
if frWFirm.ShowModal=mrOk then
Table3.Post
else
Table3.Cancel;
end;
60
Рисунок №11. Форма модуля «Поставщики».
Рисунок №12. Форма для ввода поставщика
Для обеспечения надежности функционирования модуля применяется
принцип «защитного программирования», когда пользователь вводит все, что
хочет, а программа принимает только правильные данные. По событию нажатия
кнопки «Запись» осуществляется контроль ввода заполнения полей (рисунок
№13):
procedure TfrWFirm.Button2Click(Sender: TObject);
61
begin
//контроль ввода
if trim(DBEdit1.Text)='' then
begin
showmessage('Не определено наименование партнера');
DBEdit1.SetFocus;
exit;
end
else
ModalResult:=mrOk;
end;
Рисунок №13. Контроль ввода информации о партнерах.
Уникальный код поставщика формируется автоматически СУБД.
Работа модуля завершается средствами Windows для закрытия окна,
например Alt+F4.
Модуль «Оптовые покупатели»
Входные данные
Входными данными модуля являются данные об оптовых покупателях
товаров со склада:
- наименование заказчика (символьное);
- ключевое слово для поиска (символьное);
- почтовый адрес (символьное);
- руководитель (символьное);
- телефон для связи (символьное);
- расчетный счет (числовое);
- корреспондирующий счет (числовое);
- обслуживающий банк (символьное).
Источник: https://baza.diplomsite.ru/previewfile/1703