Программный модуль сертификации продукции

Содержание
Введение
1. Исследовательский раздел
1.1 Анализ существующих систем аналогов
1.2 Обоснование выбора программно-аппаратных средств
1.3 Постановка задачи
2. Специальный раздел
2.1 Выбор инструментальных средств
2.2 Разработка структурной схемы программного модуля
2.3 Разработка функциональной схемы программного модуля
2.4 Описание информационного фонда системы
2.5 Описание программного интерфейса
2.6 Описание алгоритма работы системы
3. Экономический раздел
3.1. Планирование разработки программного модуля с построением графика выполнения работ
3.1.1. Определение состава работ и состава исполнителей
4. Безопасность жизнедеятельности
Заключение
Список использованных источников
Приложение А – Программный код системы
Приложение В – Скрины программы

Большинство ученых считают, что как кратковременное, так и длительное воздействие всех видов излучения от экрана монитора не опасно для здоровья персонала, обслуживающего компьютеры. Однако исчерпывающих данных относительно опасности воздействия излучения от мониторов на работающих с компьютерами не существует и исследования в этом направлении продолжаются [4.2].
Допустимые значения параметров неионизирующих электромагнитных излучений от монитора компьютера представлены в таблица 4.1.
Максимальный уровень рентгеновского излучения на рабочем месте оператора компьютера обычно не превышает 10мкбэр/ч, а интенсивность ультрафиолетового и инфракрасного излучений от экрана монитора лежит в пределах 10…100мВт/м2.
Таблица 4.1
Допустимые значения параметров неионизирующих электромагнитных излучений (в соответствии с СанПиН 2.2.2/2.4.1340-03.)
Наименование параметра Допустимые значения Напряженность электрической составляющей электромагнитного поля на расстоянии 50см от поверхности видеомонитора 10В/м Напряженность магнитной составляющей электромагнитного поля на расстоянии 50см от поверхности видеомонитора 0,3А/м Напряженность электростатического поля не должна превышать:
для взрослых пользователей
для детей дошкольных учреждений и учащихся средних специальных и высших учебных заведений
20кВ/м
15кВ/м
Для снижения воздействия этих видов излучения рекомендуется применять мониторы с пониженным уровнем излучения (MPR-II, TCO-92, TCO-99), устанавливать защитные экраны, а также соблюдать регламентированные режимы труда и отдыха.
4.2.2 Разработка мер защиты от вредного воздействия электромагнитных, электрических и магнитных полей
Основными видами средств коллективной защиты от воздействия электрического поля токов промышленной частоты являются экранирующие устройства – составная часть электрической установки, предназначенная для защиты персонала в открытых распределительных устройствах.
Допустимые значения параметров электромагнитных излучений представлены в таблице 4.2
Таблица 4.2
Допустимые значения параметров электромагнитных излучений
Наименование параметров Допустимое значение Напряженность ЭМП на расстоянии 50 см вокруг ВДТ по электрической составляющей должна быть не более:
в диапазоне частот 5 Гц – 2 кГц
в диапазоне частот 2 – 400 кГц
25 В/м
2,5 В/м Плотность магнитного потока должна быть не более:
в диапазоне частот 5 Гц – 2 кГц
в диапазоне частот 2 – 400 кГц
250 нТл
25 нТл Поверхностный электростатический потенциал не должен превышать
500 В
Экранизирующее устройство необходимо при осмотре оборудования и при оперативном переключении, наблюдении за производством работ. Конструктивно экранирующие устройства оформляются в виде козырьков, навесов или перегородок из металлических канатов, прутков, сеток.
Переносные экраны также используются при работах по обслуживанию электроустановок в виде съемных козырьков, навесов, перегородок, палаток и щитов.
Экранирующие устройства должны быть заземлены, и иметь антикоррозионное покрытие.
Важное профилактическое мероприятие по защите от электромагнитного облучения – это выполнение требований для размещения оборудования и для создания помещений, в которых находятся источники электромагнитного излучения [4.3].
Защита персонала от переоблучения может быть достигнута за счет размещения генераторов ВЧ, УВЧ и СВЧ, а также радиопередатчиков в специально предназначенных помещениях.
Экраны источников излучения и рабочих мест блокируются с отключающими устройствами, что позволяет исключить работу излучающего оборудования при открытом экране.
Допустимые уровни воздействия на работников и требования к проведению контроля на рабочих местах для электрических полей промышленной частоты изложены в ГОСТ 12.1.002-84 [4.3].
4.2.3 Режим труда и отдыха
Режим труда и отдыха при работе на ПЭВМ выбирается согласно СанПиН 2.2.272.4.1340-03 [4.1].
При работе на ПЭВМ в течение 12 часов в конкретных условиях постоянного излучения пользователь выполняет работу, которая относится к группе А и категории работы с видеомонитором I.
Исходя из этих условий, общее время перерыва составляет 80 мин. Так как утомление пользователя начинает резко возрастать через два часа работы, то для двенадцатичасовой рабочей смены принят следующий режим труда и отдыха:
2 часа работы - 10 мин перерыв;
2 часа работы - обеденный перерыв 30 мин;
2 часа работы - 10 мин перерыв;
2 часа работы - 20 мин перерыв с принятием пищи;
2 часа работы - 10 мин перерыв;
2 часа работы - окончание работы.
4.3 Экологическая оценка переработки узлов компьютерной техники
Использование компьютеров требует решения таких важных вопросов, как утилизация отходов (микросхемы с содержанием цветных металлов, платы, дискеты).
При утилизации старых компьютеров происходит их разработка на семь фракций: металлы, пластмассы, штекеры, провода, батареи, стекло. Ни одна деталь не идет для повторного использования, так как нельзя гарантировать их надежность, но в форме вторичного сырья они идут на изготовление новых компьютеров или других устройств.
При эксплуатации персонального компьютера расходуются следующие ресурсы:
электроэнергия;
бумага для принтера;
картриджи с красящей лентой.
Для рационального использования электроэнергии не следует оставлять включенным компьютер и принтер, если они не нужны в настоящее время. Печатать можно с двух сторон. Расходы на бумагу вряд ли удастся сократить вдвое, однако экономия будет весьма существенной. Проблему с утилизацией бумажных отходов может решить вторичная переработка.
Для повторного использования картриджей с красящей лентой необходимо купить устройство для пропитки лент и тогда картриджи можно будет использовать 20-40 раз [4.6].
Современная технология изготовления элементов средств вычислительной техники (СВТ) позволяет достичь очень низкого уровня отказов элементов во время эксплуатации (приблизительно 1000000 ч/отказ). В связи с этим отпадает необходимость проведения ремонтных работ на месте эксплуатации современных средств вычислительной техники и как следствие не образуются отходы (неисправные микросхемы), содержащие драгоценные и редкоземельные металлы. Естественно, в сервисных центрах, специализирующихся на ремонте и техническом обслуживании СВТ, должен быть организован сбор и учет материалов, содержащих ценные металлы, с последующей обработкой этих материалов на специализированных заводах с целью из извлечения. При работе в условиях рыночной экономики предприятия должны быть сами заинтересованы во вторичной переработке, содержащих драгоценные металлы узлов и элементов при условии невозможности их использования.
Заключение
Целью данной работы является повышение эффективности учета товарной номенклатуры и сертификатов путем разработки и внедрения ИС «Сертификация».
В первой главе работы рассмотрены аналоги программного обеспечения для учета номенклатуры товара и управления продажами: BSManager, Polibase Enterprise, On-CRM.ru, 1С:Торговля и cклад.
Обоснован выбор технических средств, а именно выбрано сетевое оборудование, сервер и рабочие станции.
Разработан перечень требований к проектируемой ИС: функциональные, программные, требования к производительности, требования к программной реализации, требования к надежности.
Во второй главе осуществлен выбор инструментальных средств, а именно выбрана среда разработки Delphi Studio, case-средства ERWin и BPWin и СУБД SQLAnywhere.
Разработана структурная схема программного модуля. Структурная схема включает: БД, ADO-интерфейс доступа к данным и интерфейс пользователя.
Разработана функциональная схема программного модуля.
Описана структура информационного фонда системы. Структура информационного фонда включает информационные таблицы: справочник товаров, операции поступления\отгрузки товара со склада, сертификаты, склад.
Описан программный интерфейс системы. Программный интерфейс представлен главным окном программы с вкладками.
Описан алгоритм работы системы.
Описаны основные процедуры.
Дано финансово-экономическое обоснование разработки и внедрения ИС. Период окупаемости системы составляет 2 месяца. Внедрение системы является целесообразным, так как разработка и внедрение систем дешевле аналогов, так как осуществляется собственными силами и не требует ежегодной покупки лицензии, не требует обучения персонала и привлечения стороннего персонала для обслуживания.
Даны решения по охране труда. Определены основные факторы, оказывающие негативное воздействие на оператора системы.
Таким образом, цель работы можно считать достигнутой, а задачи решенными.
Список использованных источников
К исследовательскому разделу
1.1 Автоматизированные информационные технологии в экономике: Учебник/Под ред. проф. Г.А. Титоренко. – М.: Компьютер, ЮИНИТИ, 2008
1.2 Маклаков С.В. Моделирование бизнес-процессов с AllFusion Process Modeler. М., 2009.
1.3 Вендров А.М. Проектирование программного обеспечения экономических информационных систем.- М.: Финансы и статистика, 2008.
К специальному разделу
2.1 Проектирование экономических информационных систем: учеб. / под ред. Ю.Ф. Тельнова. М., 2008.
2.2 Петров Ю.А. Шлимович Е.Л., Ирюпин Ю.В. Комплексная автоматизация управления предприятием: Информационные технологии - теория и практика. - М.: Финансы и статистика, 2008
2.3 Петров Е.А. Проектирование экономических информационных систем: Учебник / Е.А. Петров, Г.М. Смирнов, А.А. Сорокин, Ю.Ф. Тельнов. - М.: Финансы и статистика, 2008 - 286 с
2.4 Сакун Ю. Электронная коммерция// ИнфоБизнес. – 2008. – №5. – С. 28 – 30
2.5 Симонович С.В. Язык структурированных запросов SQL, СПб «Питер», 2008.
2.6 Шафер Л.И. Управление программными проектами: достижение оптимального качества при минимуме затрат.: Пер. с англ. – М.: Вильямс, 2009.
К экономическому разделу
3.1 Степанов В.П. Учебно-методическое пособие по выполнению курсовой работы Экономическое обоснование проекта автоматизации технологического процесса обработки информации. –М.: МГУПИ, 2008. – 17с.
3.2 Коноплев С.П. Экономика организаций. - М.: Проспект, 2007.-160с.
Просветов Г.И. Математические методы в экономике и менеджменте» – М:. РДЛ, 2007. – 160с.
3.3 Ковалев В.В. Методы оценки инвестиционных проектов. – М: РИНКЦЭ, 2007. – 40 с.
К разделу Безопасность Жизнедеятельности
4.1 СанПиН 2.2.2/2.4.1340-03 «Гигиенические требования к персональным электронно-вычислительным машинам и организации работы»;
4.2 СН-245-71 «Санитарные нормы проектирования промышленных предприятий»;
4.3 ГОСТ 12.1.003-83 «ССБТ. Шум. Общие требования безопасности»;
СНиПП-4-79 «Естественное и искусственное освещение».
4.4 Гетия И.Г. Безопасность при работе на ПЭВМ. Учебное пособие ч.I. - М.: МГАПИ, 2005. - 34 с.: ил.
4.5 Экология компьютерной техники. Под ред. Гетия И.Г. / Учебное пособие. – М.: МГАПИ, 1996г. – 67 с.
Приложение А – Программный код системы
Процедура добавления информации о Наименовании товара:
procedure TForm1.suiButton7Click(Sender: TObject);
begin
try
tsklad.Append;
tsklad.FieldByName('kod_tovar').AsString:=suiMaskEdit3.text;
tsklad.FieldByName('cost').AsString:=suiNumberEdit4.text;
tsklad.FieldByName('treb').AsInteger:=strtoint(suiNumberEdit3.text);
tsklad.FieldByName('kol').AsInteger:=strtoint(suiNumberEdit5.text);
tsklad.FieldByName('nazv').AsString:=suiedit1.text;
tsklad.FieldByName('nehvat').AsInteger:=StrToInt(suiNumberEdit5.text)-strtoint(suiNumberEdit3.text);
tsklad.Post;
Except
MessageDlg('Ошибка ввода данных!',mtInformation,[mbYes],0);
end;
ADOQuery1.Active:=false;
ADOQuery1.Active:=true;
suiComboBox3.Items.Add(tsklad.FieldValues['kod_tovar']+' '+tsklad.FieldValues['nazv']);
suiComboBox4.Items.Add(tsklad.FieldValues['kod_tovar']+' '+tsklad.FieldValues['nazv']);
end;
Процедура удаления информации о Наименовании товара:
procedure TForm1.suiButton9Click(Sender: TObject);
var i:integer;
begin
tsklad.Delete;
ADOQuery1.Active:=false;
ADOQuery1.Active:=true;
tsklad.First;
suiComboBox3.Clear;
suiComboBox4.Clear;
for i:=0 to tsklad.RecordCount-1 do
begin
suiComboBox3.Items.Add(tsklad.FieldValues['kod_tovar']+' '+tsklad.FieldValues['nazv']);
suiComboBox4.Items.Add(tsklad.FieldValues['kod_tovar']+' '+tsklad.FieldValues['nazv']);
tsklad.Next;
end;
end;
Процедура редактирования информации о Наименовании товара:
procedure TForm1.suiButton8Click(Sender: TObject);
begin
try
tsklad.Edit;
tsklad.FieldByName('kod_tovar').AsString:=suiMaskEdit3.text;
tsklad.FieldByName('cost').AsString:=suiNumberEdit4.text;
tsklad.FieldByName('treb').AsInteger:=strtoint(suiNumberEdit3.text);
tsklad.FieldByName('kol').AsInteger:=strtoint(suiNumberEdit5.text);
tsklad.FieldByName('nazv').AsString:=suiedit1.text;
tsklad.FieldByName('nehvat').AsInteger:=StrToInt(suiNumberEdit5.text)-strtoint(suiNumberEdit3.text);
tsklad.Post;
Except
MessageDlg('Ошибка ввода данных!',mtInformation,[mbYes],0);
end;
ADOQuery1.Active:=false;
ADOQuery1.Active:=true;
end;
Процедура заполнения формы товара:
procedure TForm1.suiDBGrid3CellClick(Column: TColumn);
begin
suiMaskEdit3.text:=tsklad.FieldValues['kod_tovar'];
suiNumberEdit4.text:=tsklad.FieldValues['cost'];
suiNumberEdit3.text:=tsklad.FieldValues['treb'];
suiNumberEdit5.text:=tsklad.FieldValues['kol'];
suiedit1.text:=tsklad.FieldValues['nazv'];
end;
Процедура добавления информации о складской операции:
procedure TForm1.suiButton1Click(Sender: TObject);
var i:integer;
begin
try
toperacii.Append;
toperacii.FieldByName('kod_tovar').AsString:=copy(suiComboBox3.text,0,4);
toperacii.FieldByName('kod_oper').AsString:=suiMaskEdit1.text;
toperacii.FieldByName('type_oper').AsString:=suiComboBox1.text;
toperacii.FieldByName('kol').AsInteger:=strtoint(suiNumberEdit1.text);
toperacii.FieldByName('data_oper').AsString:=suiMaskEdit5.text;
toperacii.Post;
Except
MessageDlg('Ошибка ввода данных!',mtInformation,[mbYes],0);
end;
if suiComboBox1.text='поступление' then
begin
tsklad.Filter:='kod_tovar='+copy(suiComboBox3.text,0,4);
tsklad.Filtered:=true;
tsklad.Edit;
tsklad.FieldValues['kol']:=tsklad.FieldValues['kol']+strtoint(suiNumberEdit1.text);
tsklad.post;
tsklad.Edit;
tsklad.FieldByName('nehvat').AsInteger:=tsklad.FieldValues['kol']-tsklad.FieldValues['treb'];
tsklad.Post;
tsklad.Filtered:=false;
end;
if suiComboBox1.text='отгрузка' then
begin
tsklad.Filter:='kod_tovar='+copy(suiComboBox3.text,0,4);
tsklad.Filtered:=true;
tsklad.Edit;
tsklad.FieldValues['kol']:=tsklad.FieldValues['kol']-strtoint(suiNumberEdit1.text);
tsklad.post;
tsklad.Edit;
tsklad.FieldByName('nehvat').AsInteger:=tsklad.FieldValues['kol']-tsklad.FieldValues['treb'];
tsklad.post;
tsklad.Filtered:=false;
end;
ADOQuery1.Active:=false;
ADOQuery1.Active:=true;
end;
Процедура редактирования информации о складской операции:
procedure TForm1.suiButton2Click(Sender: TObject);
begin
try
toperacii.Edit;
toperacii.FieldByName('kod_tovar').AsString:=copy(suiComboBox3.text,0,4);
toperacii.FieldByName('kod_oper').AsString:=suiMaskEdit1.text;
toperacii.FieldByName('type_oper').AsString:=suiComboBox1.text;
toperacii.FieldByName('kol').AsInteger:=strtoint(suiNumberEdit1.text);
toperacii.FieldByName('data_oper').AsString:=suiMaskEdit5.text;
toperacii.Post;
Except
MessageDlg('Ошибка ввода данных!',mtInformation,[mbYes],0);
end;
end;
Процедура удаления информации о складской операции:
procedure TForm1.suiButton3Click(Sender: TObject);
begin
toperacii.Delete;
end;
Процедура добавления информации о заявке:
procedure TForm1.suiButton4Click(Sender: TObject);
begin
try
tsklad.Filtered:=false;
tsklad.Filter:='kod_tovar='+copy(suiComboBox4.text,0,4);
tsklad.Filtered:=true;
tzayv.Append;
tzayv.FieldByName('kod_tovar').AsString:=copy(suiComboBox4.text,0,4);
tzayv.FieldByName('kod_zayv').AsString:=suiMaskEdit2.text;
tzayv.FieldByName('status').AsString:=suiComboBox2.text;
tzayv.FieldByName('kol').AsInteger:=strtoint(suiNumberEdit2.text);
tzayv.FieldByName('data_podachi').AsString:=suiMaskEdit7.text;
tzayv.FieldByName('data_post').AsString:=suiMaskEdit8.text;
tzayv.FieldByName('kontragent').AsString:=suiEdit2.text;
tzayv.FieldByName('stoim').Asfloat:=strtoint(suiNumberEdit2.text)*tsklad.FieldValues['cost'];
tzayv.Post;
Except
MessageDlg('Ошибка ввода данных!',mtInformation,[mbYes],0);
end;
//tsklad.Filtered:=false;
//tsklad.Filter:='kod_tovar='+copy(suiComboBox4.text,0,4);
//tsklad.Filtered:=true;
tsklad.Edit;
tsklad.FieldValues['treb']:=tsklad.FieldValues['treb']+strtoint(suiNumberEdit2.text);
tsklad.post;
tsklad.Edit;
tsklad.FieldByName('nehvat').AsInteger:=tsklad.FieldValues['kol']-tsklad.FieldValues['treb'];
tsklad.Post;
tsklad.Filtered:=false;
ADOQuery1.Active:=false;
ADOQuery1.Active:=true;
end;
Процедура удаления информации о заявке:
procedure TForm1.suiButton6Click(Sender: TObject);
begin
tzayv.Delete;
end;
Процедура редактирования информации о заявке:
procedure TForm1.suiButton5Click(Sender: TObject);
begin
try
tsklad.Filtered:=false;
tsklad.Filter:='kod_tovar='+copy(suiComboBox4.text,0,4);
tsklad.Filtered:=true;
tzayv.edit;
tzayv.FieldByName('kod_tovar').AsString:=copy(suiComboBox4.text,0,4);
tzayv.FieldByName('kod_zayv').AsString:=suiMaskEdit2.text;
tzayv.FieldByName('status').AsString:=suiComboBox2.text;
tzayv.FieldByName('kol').AsInteger:=strtoint(suiNumberEdit2.text);
tzayv.FieldByName('data_podachi').AsString:=suiMaskEdit7.text;
tzayv.FieldByName('data_post').AsString:=suiMaskEdit8.text;
tzayv.FieldByName('kontragent').AsString:=suiEdit2.text;
tzayv.FieldByName('stoim').Asfloat:=strtoint(suiNumberEdit2.text)*tsklad.FieldValues['cost'];
tzayv.Post;
Except
MessageDlg('Ошибка ввода данных!',mtInformation,[mbYes],0);
end;
end;
Процедура заполнения формы заявки:
procedure TForm1.suiDBGrid2CellClick(Column: TColumn);
begin
suiComboBox3.text:=tzayv.Fieldvalues['kod_tovar'];
suiMaskEdit2.text:=tzayv.Fieldvalues['kod_zayv'];
suiComboBox2.text:=tzayv.Fieldvalues['status'];
suiNumberEdit2.text:=inttostr(tzayv.Fieldvalues['kol']);
suiMaskEdit7.text:=tzayv.Fieldvalues['data_podachi'];
suiMaskEdit8.text:=tzayv.Fieldvalues['data_post'];
suiEdit2.text:=tzayv.Fieldvalues['kontragent'];
end;
Процедура пересчета нехватки товара при запуске формы:
procedure TForm1.FormCreate(Sender: TObject);
var i:integer;
begin
fl1:=false;
fl2:=false;
fl3:=false;
fl4:=false;
suiPageControl1.ActivePageIndex:=0;
tsklad.First;
for i:=0 to tsklad.RecordCount-1 do
begin
suiComboBox3.Items.Add(tsklad.FieldValues['kod_tovar']+' '+tsklad.FieldValues['nazv']);
suiComboBox4.Items.Add(tsklad.FieldValues['kod_tovar']+' '+tsklad.FieldValues['nazv']);
tsklad.Edit;
tsklad.FieldByName('nehvat').AsInteger:=tsklad.FieldValues['kol']-tsklad.FieldValues['treb'];
tsklad.Post;
tsklad.Next;
end;
ADOQuery1.Active:=false;
ADOQuery1.Active:=true;
end;
Процедура заполнения формы складской операции:
procedure TForm1.suiDBGrid1CellClick(Column: TColumn);
begin
suiComboBox3.text:=toperacii.FieldValues['kod_tovar'];
suiMaskEdit1.text:=toperacii.FieldValues['kod_oper'];
suiComboBox1.text:=toperacii.FieldValues['type_oper'];
suiNumberEdit1.text:=inttostr(toperacii.FieldValues['kol']);
suiMaskEdit5.text:=toperacii.FieldValues['data_oper'];
end;
Процедура изменение статуса заявки на «выполнена»:
procedure TForm1.suiButton10Click(Sender: TObject);
begin
tzayv.edit;
tzayv.FieldByName('status').AsString:='выполнена';
tzayv.Post;
tsklad.Filter:='kod_tovar='+tzayv.FieldValues['kod_tovar'];
tsklad.Filtered:=true;
tsklad.Edit;
tsklad.FieldValues['treb']:=tsklad.FieldValues['treb']-tzayv.FieldValues['kol'];
tsklad.post;
tsklad.Filtered:=false;
// ADOTable1.Refresh;
end;
Процедура выборки наименований требующих пополнения при переключении вкладок:
procedure TForm1.suiPageControl1Click(Sender: TObject);
var i:integer;
begin
{if suiPageControl1.ActivePageIndex=1 then
begin
ADOTable1.Close;
ADOTable1.Open;
ADOTable1.Filtered:=false;
ADOTable1.First;
for i:=0 to ADOTable1.RecordCount-1 do
begin
ADOTable1.Edit;
ADOTable1.FieldValues['treb']:=ADOTable1.FieldValues['treb']-ADOTable1.FieldValues['kol'];
ADOTable1.Post;
ADOTable1.Next;
end;
ADOTable1.Filter:='nehvat<0';
ADOTable1.Filtered:=true;
end; }
end;
Процедура фильтрации складских операций по дате:
procedure TForm1.suiButton11Click(Sender: TObject);
begin
if fl1=false then
if suiMaskEdit5.Text='__.__.__' then MessageDlg('Введите дату операции!',mtInformation,[mbYes],0)
else
begin
toperacii.Filter:='data_oper='+suiMaskEdit5.Text;
toperacii.Filtered:=true;
fl1:=true;
suiButton11.Caption:='Снять фильтр';
end
else
begin
fl1:=false;
suiButton11.Caption:='Фильтр по дате';
toperacii.Filtered:=false;
end;
end;
Процедура фильтрации складских операций по наименованию товара:
procedure TForm1.suiButton12Click(Sender: TObject);
begin
if fl2=false then
if suiComboBox3.Text='' then MessageDlg('Выберите наименование товара!',mtInformation,[mbYes],0)
else
begin
toperacii.Filter:='kod_tovar='+copy(suiComboBox3.Text,0,4);
toperacii.Filtered:=true;
fl2:=true;
suiButton12.Caption:='Снять фильтр';
end
else
begin
fl2:=false;
suiButton12.Caption:='Фильтр по наименованию';
toperacii.Filtered:=false;
end;
end;
Процедура фильтрации заявок по наименованию товара:
procedure TForm1.suiButton14Click(Sender: TObject);
begin
if fl3=false then
if suiComboBox4.Text='' then MessageDlg('Выберите наименование товара!',mtInformation,[mbYes],0)
else
begin
tzayv.Filter:='kod_tovar='+copy(suiComboBox4.Text,0,4);
tzayv.Filtered:=true;
fl3:=true;
suiButton14.Caption:='Снять фильтр';
end
else
begin
fl3:=false;
suiButton14.Caption:='Фильтр по наименованию';
tzayv.Filtered:=false;
end;
end;
Процедура фильтрации заявок по дате:
procedure TForm1.suiButton13Click(Sender: TObject);
begin
if fl4=false then
if suiMaskEdit7.Text='__.__.__' then MessageDlg('Введите дату подачи заявок!',mtInformation,[mbYes],0)
else
begin
tzayv.Filter:='data_podachi='+suiMaskEdit7.Text;
tzayv.Filtered:=true;
fl4:=true;
suiButton13.Caption:='Снять фильтр';
end
else
begin
fl4:=false;
suiButton13.Caption:='Фильтр по дате';
tzayv.Filtered:=false;
end;
end;
Процедура удаления сертификата:
procedure TForm1.suiButton17Click(Sender: TObject);
begin
tsert.Delete;
end;
Процедура добавления сертификата:
procedure TForm1.suiButton15Click(Sender: TObject);
begin
try
tsert.Edit;
tsert.FieldByName('kod_tovar').AsString:=tsklad.FieldValues['kod_tovar'];
tsert.FieldByName('nom_sert').AsString:=suiMaskEdit4.text;
tsert.FieldByName('sert').AsString:=suiEdit3.text;
tsert.FieldByName('data_sert').Asstring:=suiMaskEdit6.text;
tsert.FieldByName('data_okon').Asstring:=suiMaskEdit6.text;
tsert.Post;
Except
MessageDlg('Ошибка ввода данных!',mtInformation,[mbYes],0);
end;
end;
Приложение В – Скрины программы
Вкладка «Товарооборот»
Вкладка «Склад»
Вкладка «Сертификаты»
2
85
Гр. ИТ4–0701з
Листов
Лит.
Программный модуль сертификации продукции
Зав. каф.
Н. Контр.
Рощин А.В.
Консульт.
Рощин А.В.
Руковод.
Студент
Лист
Дат
Подпись
№ докум.
Лист
Изм.
Гр. ИТ4–0701з
Листов
Лит.
Программный модуль сертификации продукции
Зав. каф.
Н. Контр.
Рощин А.В.
Консульт.
Рощин А.В.
Руковод.
Студент
Лист
Дат
Подпись
№ докум.
Лист
Изм.