38
Рисунок 7- Форма модуля «Компоненты»
В модуле для осуществления просмотра и редактирования перечня
должностей предусмотрено меню, имеющее следующую структуру:
- Навигация:
- В начало;
- Предыдущая;
- Следующая;
- В конец;
- Редактирование:
- Добавить;
- Править;
- Удалить;
- Выход.
Работа модуля завершается выбором пункта меню «Выход» или средствами
Windows для закрытия окна, например Alt+F4.
39
2.7.3 Модуль «Поставщики»
Входные данные
Входными данными модуля являются данные о поставщиках компонентов
изделия, вспомогательных материалов и сырья:
- наименование поставщика (символьное);
- ключевое слово для поиска (символьное);
- почтовый адрес (символьное);
- руководитель (символьное);
- телефон для связи (символьное).
Выходные данные
Выходными данными будет являться, заполненный сведениями о
поставщиках справочник поставщиков (таблица базы данных). Для каждой записи
будет формироваться уникальный код для идентификации поставщика и для
осуществления связей с другими данными (целое), например, со справочником
компоненты.
Методы решения
Модуль «Поставщики» запускается выбором пункта меню «Справочники |
Поставщики».
В данном модуле обеспечен ввод сведений обо всех поставщиках
компонентов (рис 8.).
40
Рисунок 8- Форма модуля «Поставщики»
Для ввода информации о поставщике предназначена специальная панель
которая активируется по событию AfterEdit при редактировании и AfterInsert при
добавлении информации о новом поставщике:
procedure TDM1.tbFirmPBeforeInsert(DataSet: TDataSet);
begin
with frFirmPost do
begin
Panel3.Enabled:=True;
Panel3.Font.Color:=clBlack;
Button1.Visible:=True;
Button2.Visible:=True;
DBEdit1.SetFocus;
end;
end;
41
Рисунок 9- Активированная панель для ввода поставщика
Для обеспечения надежности функционирования модуля применяется
принцип «защитного программирования», когда пользователь вводит все, что хочет,
а программа принимает только правильные данные. По событию нажатия кнопки
«Запись сведений о поставщике» осуществляется контроль ввода заполнения полей
(рис. 9):
procedure TfrFirmPost.Button2Click(Sender: TObject);
begin
if trim(dbEdit1.Text)='' then
begin
showmessage('Не введено наименование поставщика');
dbEdit1.SetFocus;
end
else
DBNavigator1.BtnClick(nbPost);
end;
42
Рисунок 10- Контроль ввода информации о партнерах
Уникальный код поставщика формируется автоматически СУБД.
Модуль будет содержать линейку меню, содержащую следующие пункты:
- «Навигация» - обеспечивает перемещение по справочнику;
- «Редактирование» – обеспечивает корректировку справочника;
- «Выбор»;
- «Выход».
Работа модуля завершается средствами Windows для закрытия окна,
например Alt+F4.
2.7.4 Модуль «Изделия»
Входные данные
Входными данными модуля являются данные об изделиях, выпускаемых на
предприятии:
- наименование изделия (символьное);
- вес (действительное);
- время изготовления (действительное).
Выходные данные
Выходными данными будет являться, заполненный сведениями об изделиях
справочник изделий (таблица базы данных). Для каждой записи будет
формироваться уникальный код для идентификации изделия и для осуществления
связей с другими данными (целое), например, с формой для просмотра и составления
плана выпуска.
43
Методы решения
Модуль «Изделия» будет запускаться выбором пункта меню «Справочники |
Изделия».
Рисунок 11- Форма модуля «Изделия»
В данном модуле будет обеспечен ввод сведений обо всех изделиях,
выпускаемых на предприятии. Уникальный код изделия формируется
автоматически.
Модуль будет содержать линейку меню, содержащую следующие пункты:
- «Навигация» - обеспечивает перемещение по справочнику;
- «Редактирование» – обеспечивает корректировку справочника;
- «Состав изделия», который обеспечит вызов формы для определения норм
расхода сырья и материалов на данное изделие;
- «Выход».
44
Рисунок 12 - Ввод записи «Изделия»
В модуле предусмотрен контроль ввода пустого значения. Для этого
применена следующая обработка:
procedure TDM1.tbIzdelAfterPost(DataSet: TDataSet);
begin
if (dm1.tbIzdelName.AsString ='') then
begin
showmessage('Ввод наименования изделия обязателен!');
dm1.tbIzdel.Delete;
end;
end;
Работа модуля завершается выбором пункта меню «Выход», или нажатием
кнопки «Выход», или средствами Windows для закрытия окна, например Alt+F4.
45
2.7.5 Модуль «Состав изделия»
Входные данные
Входными данными модуля являются данные о необходимых компонентах
и их количестве для изготовления изделия:
- компонент, выбираемый из справочника компонентов, будет храниться только
код компонента для связи со справочником (целое).
- норма расхода (действительное).
Выходные данные
Выходными данными будет являться, введенный состав изделия. Состав
изделия определяется совокупностью записей имеющих такой же код, как
соответствующая изделию запись из справочника «Изделия», необходимый для
идентификации с изделием рецептуры. Сведения о составе изделия будут храниться
в соответствующих записях таблицы базы данных. Уникальность ключа каждой
записи достигается совокупностью кодов изделия и компонента.
Процессы обработки
Модуль «Состав изделия» будет запускаться из справочника «Изделия»
выбором пункта меню «Состав изделия».
В данном модуле будет обеспечен ввод выбором компонентов и ввод норм
расхода каждого компонента, необходимых для изготовления единицы продукции.
Уникальный код изделия, определяющий для которого изделия формируется
рецептура, определяется кодом записи при запуске модуля из справочника
«Изделия», или кодом записи выбранной из специальной формы для выбора
изделия, при запуске из главного меню.
Работа модуля завершается нажатием кнопки «Выход» или средствами
Windows для закрытия окна, например Alt+F4.
46
2.7.6 Модуль «Накладная»
Входные данные
Входными данными модуля являются данные об поступающих или
расходуемых сырь и материалах, отраженных в приходной накладной или
накладной на отпуск:
- наименование поставщика или подразделения(символьное);
- перечень сырья и материалов (символьное);
- единица измерения (символьное);
- количество (действительное);
- цена (действительное);
- сумма (действительное).
Выходные данные
Выходными данными будет являться, заполненный на основании входных
данных накладная на отпуск или приходная накладная (таблицы базы данных). Для
каждой накладной будет формироваться порядковый номер накладной, в качестве
даты поступления будет приниматься «текущая дата». Для каждой записи о
материалах будет формироваться уникальный код для идентификации.
В соответствующей таблице для хранения сведений о наличии сырья и
материалов автоматически будет производиться увеличение значения полей
«приход» или «расход», «обеспечение производства» или «обеспечение задела» на
количество, определенное в накладной
Методы решения
Модуль «Накладная» будет запускаться выбором пункта меню
«Редактирование | Добавить» модуля «Перечень накладных».
В данном модуле будет обеспечен ввод сведений поступившем сырье и
материалах и выбор поставщика или подразделения. Определение материала
происходит выбором из возможных значений определенных в модуле «Товары и
цены». Те записи, которые не будут содержать информацию о материале, будут
удаляться без предупреждения.
47
Рисунок 13- Форма модуля «Накладная»
В данном модуле обеспечен ввод сведений поступивших товарах и выбор
поставщика или оптового покупателя. Определение товара происходит выбором из
возможных значений определенных в модуле «Компонеты». Те записи, которые не
будут содержать информацию о товаре, его количестве или цене, будут удаляться
без предупреждения.
procedure TfrWNakl.FormShow(Sender: TObject);
begin
//SrokKredit.MinDate:=RabDate-1;
SrokKredit.DateTime:=RabDate+10;
DBText2.Field.AsDateTime:=RabDate;
if TipNakl=0 then
begin
Label8.Caption:='Приходная накладная № _________ от __________';
Label5.Caption:='Поставщик';
DBLookupComboBox2.Visible:=False;
DBLookupComboBox4.Visible:=True;