Разработка программного средства "Инвентаризация незавершенного производства основных цехов в разрезе ярлыков"

Нормальное освещение обеспечивается путем рационального комбинирования и применения естественного и искусственного освещения. Правильного размещения монитора на рабочем месте относительно оконных проемов.

Для защиты от шума, создаваемого в лаборатории оборудованием, целесообразно использовать следующие методы: снижение шума в источнике его возникновения, снижение шума на пути его распространения.

Так, для уменьшения шума создаваемого оборудованием лаборатории, его необходимо располагать на специальных аммортизирующих прокладках, помещение, в котором данное оборудование облицовывать звукопоглощающей плиткой.

Для защиты от внешнего шума подобные лаборатории следует располагать в нерабочей зоне (в отдельном здании, либо в здании управления предприятием).

Для защиты от ионизирующего излучения следует использовать: во-первых, источники с минимальным выходом ионизирующего излучения (электронно-лучевая трубка), во-вторых, ограничивать время работы с источником ионизирующего излучения и, в-третьих - экранирование источников.

Защита персонала лаборатории по разработке ПО от поражения электрическим током обеспечивается правильным размещением оборудования, правильным выполнением электропроводки, ее надежной изоляцией и выполнением требований по технике безопасности при работе в лаборатории.

Уменьшение влияния психофизиологических нагрузок на организм человека достигается путем правильного оформления рабочего места (согласно ГОСТ 122.032-78 и ГОСТ 21829-76), рационального распределения рабочего времени (через каждые 2 часа проведенные за ПЭВМ необходимо обеспечивать 10-15 минут отдыха), правильным цветовым оформлением (коэффициенты отражения должны быть: 60-70% для потолка, 40-50% для стен, 30% для пола, 30-40% для других отражающих поверхностей), обеспечением соответствующей настройки параметров терминального оборудования (контрастность изображения знака не менее 0,8); разрешение экрана 640х480 и более; частота регенерации изображения не менее 72 МГц).

Пожарная безопасность в соответствии с ГОСТ 12.1.004-91 обеспечивается системами предотвращения пожара (использование заземления для защиты от статического напряжения, контроль состояния изоляции, молниезащита зданий, наличие плавких предохранителей в электрооборудовании), системами пожарной защиты (системы оповещения о пожаре, наличия первичных средств тушения пожара, аварийное отключение аппаратуры), организационно-техническими мероприятиями.

4.3 Эргономика

Эргономика - это точное приспособление инструмента к решаемой задаче и приобретение соответствующих правильных привычек и навыков, до минимума снимающих ненужные напряжения в теле. Эргономика начинается с подбора правильной высоты стола и стула.

Высота рабочей поверхности стола для взрослых пользователей должна регулироваться в пределах 680-800 мм, при отсутствии такой возможности высота рабочей поверхности стола должна составлять 725 мм.

Лучше всего использовать специальный компьютерный стол со столешницей достаточной глубины, чтобы на ней свободно размещалась клавиатура. Оптимальная высота стола или выдвижной полки для клавиатуры 68-73 см над полом.

Рабочий стул (кресло) должен быть подъемно-поворотным и регулируемым по высоте и углам наклона сиденья и спинки. А также расстоянию спинки от переднего края сидения.

Запястье должно быть прямым. Подбирая рабочий стол, необходимо выбрать такой, чтобы за мышкой не приходилось тянуться слишком далеко. Для движения мышкой должно быть достаточно свободного места.

Расстояние от глаз до экрана монитора должно быть 60-70 см.

Длительное сидение в неподвижной позе ухудшает кровообращение. Стул и кресло должны иметь мягкое сидение, колени согнуты под прямым углом, а стопы должны плоско стоять на полу.

Компьютер находиться в системном блоке, поэтому устанавливать его следует устойчиво на ровной поверхности таки образом, чтобы углы системного блока не выступали за края стола.

Каждый сотрудник должен соблюдать следующие правила во время работы:

· Постоянно следить за исправностью оборудования;

· Держать в порядке и чистоте рабочее место, не допускать его

загромождения, быть внимательным, не отвлекаться и не отвлекать других;

· Включение ПЭВМ и других устройств ЭВТ в электросеть

разрешается только при наличии защитного заземления (заземляющий контакт розетки питания либо подключение корпусного болта изделия к шине защитного заземления);

· Не разрешается во время работы снимать кожух или включать

ПЭВМ без защитного кожуха, перемещать (передвигать) устройства ЭВТ подключенные к электросети;

· Пользователям ПЭВМ запрещается самостоятельно

производить ремонтные и наладочные работы вычислительной техники;

· Через каждый час работы на ПЭВМ делать перерыв на 10-15

минут. Продолжительность непрерывной работы на ПЭВМ не должна превышать четырех часов подряд;

· Для снижения вредного воздействия излучений монитора

необходимо использовать заземленный защитный экран. Для мониторов, имеющих защитное покрытие экрана, дополнительный защитный экран не требуется. Мониторы должны устанавливаться на расстоянии не менее 2м 22см друг от друга. Расстояние между работником и экраном монитора должно быть не менее 65см;

· Площадь на одно рабочее место с ПЭВМ должна составлять 7кв.м., а объем - не менее 20куб.м;

· Расположение рабочих мест с ПЭВМ в подвальных помещениях не допускается. В случае производственной необходимости эксплуатация ПЭВМ в помещениях без естественного освещения может производиться только по согласованию с органами государственного санитарно - эпидемиологического надзора;

· Работник должен уметь оказать первую медицинскую помощь при поражении электротоком;

· B случае плохого самочувствия прекратить работу, обратиться за помощью к врачу, поставить в известность начальника своего подразделения.

Заключение

Целью данного дипломного проекта являлась изучение и доработка программного средства "Инвентаризация незавершенного производства основных цехов в разрезе ярлыков".

Созданное программное средство позволяет освободить работников предприятия от утомительной и рутинной ручной работы, сократить время выполнения задания, предотвращает появления ошибок. Облегчает процедуру проведения инвентаризации.

Разработанная программа, может применяться на предприятие ОАО «Электрокабель Кольчугинский завод» для проведения инвентаризации.

В процессе дипломного проектирования были изучены новые возможности Delphi, ORACLE. Были изучены вопросы, касающиеся организации труда и техники безопасности на предприятии. В экономической части дипломной работы был произведен расчет себестоимости созданного программного продукта.

Список используемой литературы

1.Кандюзюба C.П., Громов В.Н. Delphi Базы данных и приложения. Лекции и упражнения -- K.: Издательство ДиаСофт 2007

2.Новиков В., Справочник PL/SQL, SQL, SQL*PLUS --М.:2001.

3.Джеймс P. Грофф, Пол H. Вайнберг. SQL: полное руководство: пер. c англ. -- K.: Издательская группа ВНУ, Киев,2003

4.Пестриков B.M., Маслобоев A.H., Delphi на примерах. -- СПб.: БХВ- Петербург, 2005. -- 496 c: ил

5.Дейв Энсор, Йен Стивенсон. Огас1е. Проектирование баз данных: пер. c англ. --К.: Издательская группа BHV, Киев,2008

Приложение 1

Таблица. ХРАНИМЫЕ ТАБЛИЦЫ OBORUD - Планирование и фактический выпуск продукции (Таблица 6)

GOD_MES	VARCHAR2	'год и месяц'
NOM	VARCHAR2	- 'номер строки по-порядку'
KOD_PODR	VARCHAR2	'код подразделения'
KOD_PF	VARCHAR2	'код изделия'
PT	VARCHAR2	`Признак таблицы 95-NAPF, 93-POSTIZD'
N_IZD	VARCHAR2	'наименование изделия'
DAT1	DATE	'дата смены по табельному учету'
N_IZM	VARCHAR2	'наименование единицы измерения'

Таблица 6 YARLIKS - Шапки ярлыков (Таблица 7)

NOMER	NUMBER	'номер ярлыка'
Dat1	DATE	'дата начала формирования ярлыка'
Npp	NUMBER	'уникальный номер внутренней прослеживаемости'
Kod_tar	VARCHAR2	'код тары'

Таблица 7. OBOR_NAMOT - Спецификация ярлыка (Таблица 8)

NPP	NUMBER	'уникальный номер внутренней прослеживаемости'
God _mes	VARCHAR2	'год и месяц'
Nom	VARCHAR2	'номер строки по порядку'
Nomer	NUMBER	'номер ярлыка'
Dat1	DATE	'дата формирования ярлыка'
Prixod	NUMBER	'количество намотанное'
Rasxod	NUMBER	'количество израсходованное'
Operat_P	VARCHAR2	'оператор ввода прихода'
N_kon	NUMBER	'номер конца'

Таблица 8. DVIG_YARLIKS- Таблица документов, отслеживающих движение ярлыков

Npp_yarliks	NUMBER	'уникальный номер ярлыка'
Tip_dok	VARCHAR2	'тип передаточного документа'
N_dok	VARCHAR2	'номер передаточного документа'
Kod_podr	VARCHAR2	'код подразделения, формировавшего документ'
KOD_POTR	VARCHAR2	`номер подразделения, куда передаются ярлыки'

Таблица 9. NALICH_YARLIKS - Наличие ярлыков в подразделении (Таблица 10).

Kod_nalich	VARCHAR2	'код наличия'
DAT1	DATE	`дата'
NOMER	NUMBER	`номер'
KOD_PF	VARCHAR2	`код подроазделения'
PT	VARCHAR2	`Признак таблицы 95-NAPF, 93-POSTIZD'
OST	NUMBER	`остаток'
KOD_PODR	VARCHAR2	`код подразделения'

Таблица 10. INVENT - Инвентаризация незавершенного производства (Осн.Таблица) (Таблица 11).

GOD_MES	VARCHAR2	`Месяц и год инвентаризации'
KOD_PODR	VARCHAR2	`Код подразделения'
KOD_IZD	VARCHAR2	`Код изделия'
KOL_VO	NUMBER	`Количество'
K_IZM	VARCHAR2	`Код единицы измерения'
DATV	DATE	`Дата ввода информации'
PT	VARCHAR2	`Признак таблицы 95-NAPF, 93-POSTIZD'
DAT_N	DATE	`Дата наличия'
PRIZN	VARCHAR2	`Тип учета «У» или «Б» (Управл./Бухг.)'
N_POS	NUMBER	`Номер позиции Инв. ведомости'
PV	VARCHAR2	`Признак ввода'

Таблица

NOMER_YR	NUMBER	`Номер ярлыка'
DATA_YR	DATE	`Дата ярлыка'
DATA_SHTAMP	DATE	`Дата штампа'
USER_SHTAMP	VARCHAR2	`Оператор штампа'

Таблица 11. Справочники: NAPF- Справочники полуфабрикатов (Таблица 12).

KOD_PODR	VARCHAR2	`Код подразделения'
KOD_PF	VARCHAR2	`Код полуфабриката'
NOMER	NUMBER	`Номер попорядку'
NAIPF	VARCHAR2	`Наименование полуфабриката'
K_IZM	VARCHAR2	`Код единицы измерения'
KOD_PF	VARCHAR2	`Код полуфабриката'

Таблица 12. POSTIZD - Справочник готовых изделий (Таблица 13).

NOMER	NUMBER	`Номер попорядку'
KOD_IZD	VARCHAR2	`Код изделия'
K_IZM	VARCHAR2	`Код единицы измерения'
NAIZD	VARCHAR2	`Наименование готового изделия'
KOD_PODR	VARCHAR2	Код подразделения'

Таблица 13. NAIV- Наименование единиц измерения (Таблица 14).

K_izm	Varchar2	`Код единицы измерения'
N_Izm	Varchar2	`Наименование ед. измерения'

Таблица 14. KOD_PODR - Подразделения завода (Таблица 15).

KOD_PODR	VARCHAR2	`Код подразделения'
NAPODR	VARCHAR2	`Наименование подразделения'

Приложение 2

Листинг программы

1. unit ufTar;

2.

3. interface

4.

5. uses

6. Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

7. Grids, DBGrids, HisGrid, Db, OracleData, Oracle, DBCtrls, StdCtrls,

8. ExtCtrls;

9.

10. type

11. TfTar = class(TForm)

12. Panel1: TPanel;

13. Panel2: TPanel;

14. Label1: TLabel;

15. Label2: TLabel;

16. Label3: TLabel;

17. Label4: TLabel;

18. Label5: TLabel;

19. qTar: TOracleDataSet;

20. DataSource1: TDataSource;

21. DBText1: TDBText;

22. DBText2: TDBText;

23. DBText3: TDBText;

24. DBText4: TDBText;

25. DBText5: TDBText;

26. procedure FormActivate(Sender: TObject);

27. procedure FormKeyDown(Sender: TObject; var Key: Word;

28. Shift: TShiftState);

29. private

30. { Private declarations }

31. public

32. { Public declarations }

33. end;

34.

35. var

36. fTar: TfTar;

37.

38. implementation

39. uses

40. uDm1, uMenu, uAnalit, uInvent;

41. {$R *.DFM}

42.

43. procedure TfTar.FormActivate(Sender: TObject);

44. begin

45. fTar.Caption := 'Информация по таре (Esc-Выход)';

46. with qTar do

47. begin

48. Close;

49. DeclareVariable('NOMER', otString);

50. DeclareVariable('DAT1', otDate);

51. SetVariable('NOMER', fInvent.qInvent.FieldByName('NOMER').asString);

52. SetVariable('DAT1', fInvent.qInvent.FieldByName('DAT1').asDateTime);

53. Open;

54. end;

55.

56. end;

57.

58. procedure TfTar.FormKeyDown(Sender: TObject; var Key: Word;

59. Shift: TShiftState);

60. begin

61. if (Shift = []) and (Key = VK_Escape) then Close;

62. end;

63.

64.

65. end.

66.

67.

68. unit ufKon1;

69.

70. interface

71.

72. uses

73. Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

74. Db, Oracle, OracleData, Grids, DBGrids, HisGrid, DBCtrls, StdCtrls, ExtCtrls;

75.

76. type

77. TfKon1 = class(TForm)

78. Panel1: TPanel;

79. Label1: TLabel;

80. Label2: TLabel;

81. DBText1: TDBText;

82. DBText2: TDBText;

83. HisGrid1: THisGrid;

84. qKon: TOracleDataSet;

85. DataSource1: TDataSource;

86. procedure FormActivate(Sender: TObject);

87. procedure FormKeyDown(Sender: TObject; var Key: Word;

88. Shift: TShiftState);

89. private

90. { Private declarations }

91. public

92. { Public declarations }

93. end;

94.

95. var

96. fKon1: TfKon1;

97.

98. implementation

99. uses

100. uDm1, uMenu, uAnalit,uinvent;

101. {$R *.DFM}

102.

103. procedure TfKon1.FormActivate(Sender: TObject);

104. begin

105. fKon1.Caption := 'Информация по концам';

106. with qKon do

107. begin

108. Close;

109. DeclareVariable('NOMER', otString);

110. DeclareVariable('DAT1', otDate);

111. SetVariable('NOMER', fInvent.qInvent.FieldByName('NOMER').asString);

119.SetVariable('DAT1',fInvent.qInvent.FieldByName('DAT1').asDateTime);

120 Open;

121 end;

122 HisGrid1.SetFocus;

123end;

124

125procedure TfKon1.FormKeyDown(Sender: TObject; var Key: Word;

126 Shift: TShiftState);

127begin

128 if (Shift = []) and (Key = VK_Escape) then Close;

129end;

130

131end.

[Пестриков B.M., Маслобоев A.H., Delphi на примерах. -- СПб.: БХВ- Петербург, 2005. -- 496 c: ил].

Приложение 3

Машинограмма

Машинограмма инвентаризационной ведомости. (рис.31)

Рис.31

Машинограмма печати дополнительных листов инвентаризационной ведомости. (рис.32)

Рис.32

Приложение 4

Тестирование

При тестировании и отладке режима «Инвентаризационная ведомость « возникают следующие ошибки

1. В поле «Цех» вводится номер цеха, если будет указан номер несуществующего цеха (например, 40), то выпадающий список поля участок будет пустым (не нашлось ни одного ярлыка в указанном цехе).

Рис. 33

и далее работа с программой будет остановлена, пока не будет указан правильный номер цеха.

2. В поле «Цех» введем правильный номер цеха и в выпадающем списке выберем поле «Участок» выберем 031100 «Участок по изготовлению силовых кабелей»



Рис.34

3. Для отображения данных нажимаем кнопку «Данные».

Рис.35

4. Чтобы зафиксировать данные, необходимые для составления инвентаризационной ведомости нужно нажать кнопку «Передача данных» .

Рис.36

эта кнопка активна, если в поле варианты выбора ведомости флажок стоит на строчке «Новая ведомость от текущего числа» иначе она не активна.



Рис.37

5. По желанию можно изменить фильтр для сортировки в поле «Фильтр для сортировки».

Рис.38

6. После нажатия кнопки «Передача данных»

Рис.39

появится окно «Information» в нем нажимаем «YES»

Рис.40

7. После успешной передачи данных появится окно «Uchet», которая сообщит нам об успешной передачи данных.



Рис.41

Далее инвентаризационную ведомость можно распечатать в поле «Печать», нажав кнопку «Инвентаризационная ведомость», а так же можно распечатать дополнительные страницы нажав кнопку «Дополнительные страницы»указав их количество в поле «в количестве»

Рис.42

Рис.43

8. Если произвести еще одну передачу данных в тот же день, то появится диалоговое окно с ошибкой

Рис.44

В данном диалоговом окне нажимаем «ОК».

8. Если не выбрать цех и участок и нажать кнопку «Инвентаризационная ведомость» в поле «печать», то появиться диалоговое окно с ошибкой

Рис.45

9. Если не выбрать дату и нажать кнопку «Инвентаризационная ведомость» в поле «печать», то появиться диалоговое окно с ошибкой

Рис.46

10. После нажатия «ОК» программа поставит курсор на списке в поле «Дата» и предложит выбрать дату на которую уже была составлена инвентаризационная ведомость, а так же в поле «Варианты выбора ведомости» флажок автоматически встанет на поле «существующая ведомость»

Рис.47

11.Чтобы просмотреть информацию по концам необходимо нажать клавишу «Информация по концам»

Рис.48

Рис.49

12. Чтобы просмотреть информацию по таре необходимо нажать клавишу «Информация по таре»

Рис.50

Рис.51

Приложение 5

Инструкция пользователя

Вход в программу осуществляется через АРМ меню (ARMmenu). Необходимо выбрать программу «Учёт выпуска продукции в цехе (фактической выработки)». При запуске программы появляется стартовое окно ORACLE LOGON где пользователь должен ввести UserName (имя пользователя), Password (пароль), сервер базы данных (ASTRA) определяется автоматически.

После ввода данных пользователем в стартовом окне ORACLE LOGON, загружается экранная форма "Учет выпуска продукции" (основное меню).

После выбора в основном меню "Учет выпуска продукции" пункт "Аналитика" загружается экранная форма "Аналитика".

После загрузки формы "Аналитика" необходимо выбрать режим "7. Инвентаризация по ярлыкам", нажав кнопку "7".

После этого происходит загрузка экранной формы "Инвентаризация по ярлыкам".

После загрузки экранной формы "Инвентаризация по ярлыкам" необходимо ввести номер цеха, выбрать участок, также можно изменить Фильтр для сортировки. В колонку 1 проставить цифры, определяющие порядок сортировки информации, помещаемой в инвентаризационную ведомость.

В поле "Дата" по умолчанию стоит текущая системная дата. В окне "Варианты выбора ведомости" по умолчанию стоит "Новая ведомость от текущего числа", вариант выбора ведомости можно изменить на «Существующая ведомость».

Для того, чтобы данная программа начала передавать результаты для составления инвентаризационной ведомости нужно нажать кнопку "Передача Данных"

В новом диалогом окне появится сообщения "При передаче данных инвентаризации повторная передача на данную дату невозможна! Вы уверены, что хотите произвести передачу данных?"

Нажав кнопку "Нет" фокус вернется на форму "Инвентаризация по ярлыкам" сохранив предыдущие изменения. Нажав кнопку "Да" программа начнет передавать данные, необходимые для составления инвентаризационной ведомости.

После успешной передачи данных появиться диалоговое окно "Uchet" в котором будет сообщение "Данные переданы!...", нажимаем кнопку "ОК".

Далее в окне "Печать" начинаем печать инвентаризационной ведомости, выбрав пункт "Инвентаризационная ведомость". Можно напечатать дополнительные страницы, введя требуемое количество.

Если в поле Варианты выбора ведомости выбран пункт "Существующая ведомость", то программа предложит в виде списка выбрать одну из дат, на которую была сделана инвентаризационная ведомость.

Выбираем интересующую нас дату. Нажимаем кнопку "Данные" и на экране появляется информация о существующей ведомости. Существующую ведомость так же можно распечатать.

Если курсор стоит на каком-либо поле в таблице, то можно просмотреть информацию по концам и информацию по таре нажав на кнопки "Информация по концам" и "Информация по таре".

Размещено на Allbest.ru