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

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

- служба безопасности и охраны труда в организации должны быть организованы в соответствии с 21 статьей закона «Служба безопасности и охраны труда в организации»;

- также должны быть разработаны нормативы в области безопасности и охраны труда в соответствии со статьей 22 закона «Разработка нормативов в области безопасности и охраны труда». Где в пункте 1 и 2 данной статьи, указано, что нормативы в области безопасности и охраны труда устанавливают технические, технологические, санитарно-гигиенические, физические и иные нормы, правила и критерии, направленные на сохранение жизни и здоровья работников в процессе их трудовой деятельности. Разработка и утверждение отраслевых нормативов в области безопасности и охраны труда осуществляются соответствующими уполномоченными государственными органами в порядке, установленном Правительством Республики Казахстан. Каковым и является документ «Санитарные правила и нормы по гигиене труда в промышленности», утвержденным главным государственным санитарным врачом Республики Казахстан А.Г. Дерновым 22.08.1994 г., часть III «санитарные нормы и правила для работников вычислительных центров №1.10.076-94» [5].

- устанавливаются требования по безопасности и охране труда при эксплуатации производственных объектов и средств производства в соответствии со статьей 23 закона «Требования по безопасности и охране труда при проектировании, строительстве и эксплуатации производственных объектов и средств производства».

программный база данный фотосалон



5.1 Анализ опасных и вредных производственных факторов

Современные условия работы, связанные с ЭВМ, в большинстве случаев сопровождаются наличием опасных и вредных факторов.

Особенность режима труда у работников, чья деятельность связана с ЭВМ, - это значительное умственное напряжение, которое приводит к изменению функционального состояния центрально-нервной системы.

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

Эти люди также сталкиваются с воздействием таких физически опасных и вредных производственных факторов, как:

- недостаток естественного света;

- недостаточная искусственная освещенность рабочего места;

- электромагнитное излучение от монитора ;

- повышенная температура внешней среды;

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

- опасность поражения электрическим током и статическое электричество.

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

Настоящие санитарные нормы и правила направлены на обеспечение оптимальных условий, режимов труда и отдыха работников данных объектов (математиков-программистов, операторов, инженеров, обслуживающих ЭВМ), относящихся к категории лиц умственного труда. Практическая реализация требований, изложенных в этом проекте, будет способствовать пониманию работников компьютерного зала (КЗ) того, как улучшить условия труда, повысить работоспособность, сохранить здоровье.

Данный раздел дипломного проекта посвящен рассмотрению следующих вопросов:

- требования к освещению помещений и расчет естественного освещения для помещения, в котором работает логист;

- заземление электрооборудования;

- пожарная безопасность;

- электробезопасность.

5.2 Освещенность

Требования к освещению помещений [5]

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

Освещение в помещениях должно быть смешанным (естественным и искусственным).

Естественное освещение в помещениях должно осуществляться в виде бокового освещения. Величина коэффициента естественной освещенности (К_ео) должна соответствовать нормативным уровням по СНиП РК 2-04-05-2002 «Естественное и искусственное освещение». При выполнении работы категории высокой зрительной точности К_ео должен быть не ниже 1,5%, при зрительной работе средней точности - не ниже 10%. Ориентация световых проемов для помещений с ЭВМ и видеотерминалами должна быть северной.

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

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

Расчет естественного освещения

1. Измерить освещенность на условной рабочей плоскости в четырех наиболее удаленных от окон рабочих местах помещения. И по формуле (5.1) вычислить .

E_вн1 = 90 люкс;

E_вн2 = 92 люкс;

E_вн3 = 94 люкс;

E_вн4 = 96 люкс;

(5.1)

где - измеренная внутренняя освещенность в первой точке, лк;

- измеренная внутренняя освещенность во второй точке, лк;

- измеренная внутренняя освещенность в третьей точке, лк;

- измеренная внутренняя освещенность в четвертой точке, лк;

n- число точек.

лк

2. Определить наружную освещенность (измерения производят снаружи помещения, не допуская попадания прямого солнечного света на фотоэлемент).

E_н = 206 люкс;

3. По минимальной освещенности на рабочих местах вычислить фактический коэффициент естественной освещенности по формуле (5.2).

(5.2)

где - измеренная внутренняя освещенность, лк;

- измеренная наружная освещенность, лк.

4. Вычислить расчетный коэффициент естественной освещенности по формуле (5.3).

(5.3)

где - нормированное значение коэффициента естественной освещенности;

- значение коэффициента светового климата;

- значение коэффициента солнечности;

значение взято из таблицы 5.1;

значение взято из таблицы 5.1;

значение взято из таблицы 5.2;



Таблица 5.1

Значение нормируемого коэффициента естественной освещенности (е) для производственных помещений (СП и П П-479)

Характеристика зрительной работы	Наименьший размер объекта различении (мм)	Разряд зрительной работы	Значение (е) % при освещений
			боковое	верхнее и комбин.
Наивысшей точности	менее 0,15	I	3,5	10
Очень высокой точности	0,15-0,3	II	2,5	7
Высокой точности	0,3-0,5	III	2,0	5
Средней точности	0,5-1	IV	1,5	4
Малой точности	1-5	V	1,0	3
Грубая	более 5	VI	0,5	2

Примечание:

1. Приведенные значения (е) следует принимать для условной рабочей поверхности.

2. В помещениях с работой различной точности значение (е) следует принимать по точности работы, преобладающей в данном производстве.

3. Приведенные значение (е) при работах II-V разрядов допускается повышать на 1 разряд для помещений, предназначенных для работы или производственного обучения подростков.

4. Значение коэффициента светового климата (К).

Пояс светового климата	I	II	III	IV	V
Коэффициент (К)	1,2	1,1	1,0	0,9	0,8

%

5. Вычислить отношения Д/Г, Р/Г, Г/Н и Р/Н,

где Д - длина помещения, м;

Р - расстояние от наружной стены до рабочей точки, м;

Г - глубина помещения, м;

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

Д = 8 м;

Р = 6 м;

Г = 2,5 м;

Н = 2 м;

Д/Г = 8/2,5 = 3,2;

Р/Г = 4/2,5 = 2,4;

Г/Н = 2,5/2 = 1,25;

Р/Н = 6/2 = 3.

6. Вычислить общий коэффициент светопропускания по формуле (5.4).

(5.4)

где - коэффициенты светопропускания.

Примечание: Значительное загрязнение при содержании пыли, дыма, копоти и пр. 10 и более мг/м³; умеренное - от 5 до 10 мг/м³; незначительное - не более 5 мг/м³. Значения коэффициентов установлены с учетом сроков очистки:

При незначительном загрязнении - не менее 4 раза в год;

При умеренном загрязнении - не менее 3 раза в год;

При незначительном загрязнении - не менее 2 раз в год.

7. Вычислить средневзвешенный коэффициент отражения.

(5.5)

где - коэффициент отражения потолка;

- коэффициент отражения стен;

- коэффициент отражения пола;

- площадь потолка, м²;

- площадь стен, м²;

- площадь пола, м²;

значение взято из таблицы 5.4;

значение взято из таблицы 5.4;

значение взято из таблицы 5.5;

м²;

м²;

м²;

.

8. Вычислить площадь световых проемов по формуле (5.6), используя фактический коэффициент естественной освещенности.

(5.6)

где - фактический коэффициент естественной освещенности, %;

- коэффициент световой характеристики световых проемов;

- площадь пола, м²;

- общий коэффициент светопропускания;

- коэффициент;

м²

9. Вычислить площадь световых проемов по формуле (5.7), используя расчетный коэффициент естественной освещенности.

(5.7)

где - расчетный коэффициент естественной освещенности, %;

м²

10. Вычислить относительные погрешности по формулам (5.8) и (5.9).

, (5.8)

где - площадь остекления, м²;

м²;

;

(5.9)

5.3 Заземление электрооборудования

По своему функциональному назначению заземление делится на три вида -- рабочее, защитное, заземление молниезащиты [8].

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

Защитное заземление выполняется для обеспечения безопасности, в первую очередь, людей.

Заземление молниезащиты служит для отвода тока молнии в землю от защитных разрядников и молниеотводов (стержневых или тросовых).

Защитное заземление должны выполнять свое назначение в течение всего года, тогда как заземление, молниезащиты -- лишь в грозовой период.

Защитное заземление - это параллельное включение в электрическую цепь заземлителя со значительно меньшим сопротивлением R_з<<R_r , смотрите рисунок 5.1.

В сетях с напряжением до 1000В сопротивление заземляющего устройства должно быть не более 4 Ом, при напряжении выше 1000В -- не более-0.5 Ом.

При таком включение в электрическую цепь ток, проходящий через человека, будет равен:

, (5.10)

где R_r - сопротивление тела человека, Ом;

I_общ - общий проходящий ток через два заземлителя (тело человека и заземлитель), Ом;

R_общ - общее сопротивление заземлителей, Ом.

Рисунок 5.1. Защитное заземленне: а - схема заземления корпуса электрооборудования; б-эквивалентная электрическая схема

(5.11)

(5.12)

После подстановки значений R_общ и I_общ в формулу (5.10) получим

(5.13)

Пример.

Определить величину поражающего тока при однофазном включении человека в трехфазную сеть с изолированной нейтралью.

Допустим, что сопротивление пола и обуви: R_п = R_об = 0 R_u = 3000 Ом

При отсутствии заземления ток поражения:

А

При наличии защитного заземления:

А

Как видим, ток поражения при наличии заземляющего устройства значительно меньше удерживающего.

Защитное заземление применяется в электроустановках напряжением до 1000В переменного тока с изолированной нейтралью или с изолированным выводом источника однофазного тока, а также электроустановках в напряжением до 1000В в сетях постоянного тока с изолированной средней точкой.

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



Рисунок 5.2 Выносное (а) и контурное (б) заземления: 1-электроды (заземлители); 2-токовды (шины); 3-электроустановки

5.4 Микроклимат помещения

Расчет систем кондиционирование помещений вычислительного центра [7].

Метеорологические условия в вычислительных центрах необходимо создавать исходя как из условий комфортности работающих в помещении, так и из условия нормальной работы ЭВМ. К параметрам, определяющим метеорологические условия помешений вычислительного центра (ВЦ), относятся: температура воздуха (t, ⁰C), относительная влажность (, ), скорость движения воздуха (, м/с) и химическая чистота воздуха. Воздух должен быть достаточно нагрет, умеренно влажен и чист. Поддерживать параметры воздуха в помещениях ВЦ на требуемом уровне - основная задача вентиляции и систем кондиционирования.

Тепловыделения в помещениях ВЦ могут быть из следующих источников:

Тепловыделения от людей;

Тепловыделения от солнечной радиации;

Тепловыделения от системы искусственного освещения;

Тепловыделения от ЭВМ;

Тепловыделения от нагретых поверхностей.

Размер ВЦ 30*40*3 м

Количество человек 40, 40 компьютеров и машинный зал имеет 8 окон с одинарным остеклением,размер окон 1,5*1,8. Максимальная температура наружного воздуха летом +30⁰С, минимальная зимой -20⁰С.Относительная влажность = 60%

1. Тепловыделения одного человека Q' = 525 кДж/час . Тогда имеем

n = количество человек.

(кДж/ч)

2. Тепловыделения от солнечной радиации

q₀ = количество радиации, q₀ = 252 кДж/м²*ч ,

F₀ = поверхность стекла,

А₀ = коэффициент стекла (одинарное А₀=1.45).

(кДж/ч)

3. Тепловыделения от искусственного освещения

= коэффициент (электроэнергию превращает в теплоту) (1),

N = мощность искусственного освящения (1.2 кВт),

3612 = эквивалент (кДж/кВт).

(кДж/ч)

4. Тепловыделения от ЭВМ



где - суммарное количество мощностей (кВт/ч), мощнось одного компьютера - 3кВт.

₁ - средний кпд электродвигателей (0,7 0,9),

₂ - коэффициент использования (0,5 0,8),

₃ - коэффициент одновременности использования электродвигателей (0,5 1),

₄ - коэффициент, характеризующий долю механической энергии, перешедшей в теплоту.

При использовании охлаждающей среды,

= 0.1

(кДж/ч)

Суммарное количество тепла, поступающего от источников в машинный зал ВЦ составляет

(кДж/ч)

На J-d диаграмме определяем состояние воздуха на выходе из кондиціонера

I_вн = 76.44 (кДж/кг),

I_н = 42.84 кДж/ч.

5. Вычислим количество воздуха, необходимого для проветривания машзала ВЦ.

кг/ч

м³/ч

Q_x = Q_max

Количество холода,необходимого для создания требуемой атмосферы

Q_x = 72611,3 кДж/ч.

Согласно данным табл., можно выбрать один кондиционер типа КС-35 с производительностью по воздуху L= 5682.16 м³/ч

5.5 Пожарная безопасность

Согласно СНиП РК 2.02-05-2002 «Пожарная безопасность зданий и сооружений» для большинства помещений ВЦ установлена категория пожарной опасности В.

Таблица 5.2

Категории помещений по взрывопожарной и пожарной опасности [9]

Категория помещения	Характеристика веществ и материалов, находящихся (обращающихся) в помещении
В1-В4 пожароопасная	Горючие и трудногорючие жидкости, твердые пожароопасная горючие и трудногорючие вещества и материалы (и том числе пыли и волокна), вещества и материалы, способные при взаимодействии с водой, кислородом воздуха или друг с другом только гореть, при условии, что помещения, в которых они имеются и наличии или обращаются, не относятся к категории А и Б

Особые требования предъявляют к устройству и размещению кабельных коммуникаций. Все виды кабелей от трансформаторных подстанций и двигатель - генераторных агрегатов прокладывают в металлических газовых трубах вплоть до распределительных щитов и стоек питания. В машинных залах кабельные линии прокладывают под технологическими съемными полами, которые выполняют из негорючих или трудногорючих материалов с пределом огнестойкости не менее 0.5 ч.

Подпольные пространства под съемными полами разделяют несгораемыми перегородками с пределом огнестойкости не менее 0.75 ч на отсеки площадью не более 250 м², коммуникации через которые прокладывают в специальных обоймах с применением негорючих уплотняющих материалов.

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

5.6 Электробезопасность

Электрические установки, к которым относится практически все оборудование ЭВМ, представляет для человека большую потенциальную опасность, т.к. в процессе эксплуатации или проведения профилактических работ человек может коснуться частей, находящихся под напряжением. Специфическая опасность электроустановок: токоведущие проводники, корпуса стоек ЭВМ, оказавшиеся под напряжением в результате повреждения изоляции [8].

Выделяют следующие степени воздействия электрических ударов на тело человека:

- 1 степень - судорожные едва ощутимые сокращения мышц;

- 2 степень - судорожные сокращения мышц без потери сознания;

- 3 степень - потеря сознания с сохранением дыхания и работы сердца;

- 4 степень - потеря сознания с нарушением дыхания и работы сердца;

- 5 степень - клиническая смерть.

По характеру тока выделяют следующие виды тока:

- ощутимый ток (1 мА для переменного напряжения);

- неотпускающий ток 10-15 мА;

- смертельный ток 0,1 А.

Смертельным считается следующий путь прохождения тока: голова - левая рука (левая нога).

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

Согласно СН РК 4.04-23-2004 «Электрооборудование жилых и общественных зданий. Нормы проектирования» для обеспечения электробезопасности предусмотрены следующие технические средства защиты [8]:

- электрическая изоляция токоведущих частей;

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

- применение малого напряжения - для производственных целей используется напряжение 42В;

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

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

Все виды оборудования подключаются к сети через блок фильтра-распределителя.

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

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

Переменный ток более 25-30 мА представляет серьезную опасность; ток более 50 мА вызывает поражения, даже смертельные; ток 100 мА смертелен. Следует считать опасным и неотпускающий ток 20-25 мА, при котором трудно самостоятельно оторваться от проводника. Неопасен ток в 100 мкА. В таблице 5.9 приведены предельно допустимые значения напряжений прикосновения и токов, протекающих через тело человека, при взаимодействии с электроустановками в аварийном режиме [8].

Таблица 5.9

Предельно допустимые значения напряжений прикосновения и токов, протекающих через тело человека, при взаимодействии с электроустановками в аварийном режиме [8].

Нормируемая величина	Наибольшие допустимые значения при продолжительности воздействия, с
	0,01-0,08	0,1	0,2	0,3	0,4	0,5	0,6	0,7	0,8	0,9	1	Более 1
UПР, В	220	200	100	70	55	50	40	35	30	27	25	12
Ih,мA	220	200	100	70	55	50	40	35	30	27	25	2

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

Выводы

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

ЗАКЛЮЧЕНИЕ

При создании автоматизированной системы обработки данных предприятия «Выпускник» был проведен тщательный анализ предметной области и требований пользователя, что позволило разработать функциональную структуру системы и структуры баз данных. При разработке системы была использована Microsoft Access, в среде которой и было реализовано данное приложение с использованием языка программирования Delphi.

Оценивая описанные выше особенности СУБД Microsoft Access и среды программирования Delphi и их функциональные возможности, можно утверждать, что данные системы обладают всеми необходимыми инструментами для создания, редактирования, хранения и ежедневного использования баз данных.

Возможно применение в малом и среднем бизнесе (бухгалтерский учет, ввод заказов, ведение информации о клиентах, ведение информации о деловых контактах, кадрах и т.п.); при разработке программ и хранилищ данных на заказ (разработка внутриотраслевых приложений, разработка межотраслевых приложений, автоматизация некоторых функций предприятий); в крупных корпорациях (приложения для рабочих групп, системы обработки информации, документооборот); в качестве персональной СУБД (справочник по адресам, ведение инвестиционного портфеля, поваренная книга, каталоги книг, пластинок, видеофильмов и т.п.); в качестве средства хранения данных, которое используется в других приложениях.

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

Разработанное приложение объемом 1,5 Мб имеет модульную структуру и представляет собой программу с процедурами, формами, отчетами, удовлетворяющую поставленным требованиям. Может эксплуатироваться на любом персональном компьютере типа IBM PC с процессором, начиная от i486 и с тактовой частотой не менее 66 МГц.

При создании данного проекта также была рассчитана эффективность внедрения приложения с учетом экономической ситуации в Республике Казахстан и нормативные положения об охране труда. Срок экономической окупаемости составляет 0,66 года.



СПИСОК ИСПОЛЬЗОВАННОЙ ЛИТЕРАТУРЫ

1. Шумаков П.В. Базы данных в Delphi.- М.: "Диасофт", 1997, 832 с.

2. Фленов М.Е. Библия программиста Delphi.- СПб.: БХВ-Петербург 2002, 578 с.

3. Бекаревич Ю., Пушкина Н. Самоучитель Microsoft Access 2000. - СПб.: БХВ - Санкт-Петербург, 1999, 480 с.

4. Избачков Ю.С, Петров В.Н., Информационные системы: Учебник для вузов. 2-е изд.- СПб. Питер, 2006, 360 с.

5. СНиП 11-4.82. Естественное и искусственное освещение, 21 с.

6. СНиП 11-2.86. Противопожарные нормы проектирования зданий и сооружений, 18 с.

7. СНиП 11-04-05-91. Отопление, вентиляция и кондиционирование воздуха. Нормы проектирования, 14 с.

8. ГОСТ 12.1.030-81. Система стандартов безопасности труда. Электробезопасность. Защитное заземление, зануление, 12 с.

9. ГОСТ 12.1.004-91. Система стандартов безопасности труда. Пожарная безопасность. Общие требования, 15 с.

10. Максимов Д.К., Шиндаулетова А.Т. Расчет экономической

эффективности внедрения курсовых и дипломных проектов. Методические указания. - Алматы: КазНТУ, 1996, 25 с.



ПРИЛОЖЕНИЕ А

Исходный код формы Admin

unit Admin;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Buttons, DB, ADODB;

type

TAdm = class(TForm)

Label1: TLabel;

ComboBox1: TComboBox;

Edit1: TEdit;

RadioButton1: TRadioButton;

RadioButton2: TRadioButton;

ADOAdd: TADOQuery;

ADOadd2: TADOTable;

Button1: TButton;

Label2: TLabel;

procedure RadioButton1Click(Sender: TObject);

procedure RadioButton2Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Adm: TAdm;

parol:array [1..100,1..100] of string;

implementation

uses Unit1;

procedure TAdm.RadioButton1Click(Sender: TObject);

begin

ComboBox1.Clear;

ADOAdd.Active:=false;

ADOAdd.SQL.Clear;

ADOAdd.SQL.Add('SELECT Имя_админ FROM Админ WHERE Админ

= "А"');

ADOAdd.Active:=true;

ADOAdd.First;

while ADOAdd.Eof<>true do

begin

ComboBox1.Items.Add(ADOAdd.Fields.Fields[0].AsString);

ADOAdd.Next;

end;

end;

procedure TAdm.RadioButton2Click(Sender: TObject);

begin

ComboBox1.Clear;

ADOAdd.Active:=false;

ADOAdd.SQL.Clear;

ADOAdd.SQL.Add('SELECT Имя_админ FROM Админ WHERE Админ

= "П"');

ADOAdd.Active:=true;

ADOAdd.First;

while ADOAdd.Eof<>true do

begin

ComboBox1.Items.Add(ADOAdd.Fields.Fields[0].AsString);

ADOAdd.Next;

end;

end;

procedure TAdm.Button1Click(Sender: TObject);

var

i,j :integer;

pass:string;

begin

if (edit1.Text='') or (combobox1.Text='') then MessageDlg('Введены не все

данные!',mtInformation,[mbOk],0)

else

begin

ADOadd2.First;

i:=ADOadd2.RecordCount;

for j:= 1 to i do begin

Parol[j,1]:=ADOadd2.Fields[2].Value;

Parol[j,2]:=ADOadd2.Fields[3].Value;

Parol[j,3]:=ADOadd2.Fields[1].Value;

ADOadd2.Next;

end;

for j:= 1 to i do

if ComboBox1.text=Parol[j,1] then begin

pass:=Parol[j,2];

label2.Caption:=Parol[j,3];

end;

if pass = edit1.Text then adm.Close else MessageDlg('Пароль не

верен!',mtError,[mbOk],0);

end;

end;

end.

Исходный код главной формы

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, Menus, StdCtrls, jpeg, ExtCtrls;

type

TForm1 = class(TForm)

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

N7: TMenuItem;

N8: TMenuItem;

N9: TMenuItem;

N10: TMenuItem;

N11: TMenuItem;

N13: TMenuItem;

N14: TMenuItem;

N12: TMenuItem;

N15: TMenuItem;

Label1: TLabel;

Label2: TLabel;

N3: TMenuItem;

Image3: TImage;

Image4: TImage;

Image5: TImage;

Image6: TImage;

Image7: TImage;

Image8: TImage;

Image9: TImage;

N6: TMenuItem;

N16: TMenuItem;

N17: TMenuItem;

procedure N14Click(Sender: TObject);

procedure N11Click(Sender: TObject);

procedure N5Click(Sender: TObject);

procedure N6Click(Sender: TObject);

procedure N15Click(Sender: TObject);

procedure N2Click(Sender: TObject);

procedure N8Click(Sender: TObject);

procedure FormShow(Sender: TObject);

procedure Image5MouseUp(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

procedure Image5MouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

procedure Image7MouseUp(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

procedure Image7MouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

procedure Image9MouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

procedure Image9MouseUp(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

procedure N9Click(Sender: TObject);

procedure N17Click(Sender: TObject);

procedure N16Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses sot, post, VseKomp, ZakTovar, ZakTovarDat, PrixodTovara,

ProdTovara,

Tov, Admin, TovSmotr, yslygzak, yslygdobav, YslSmotr;

{$R *.dfm}

procedure TForm1.N14Click(Sender: TObject);

begin

SotForm.ShowModal;

end;

procedure TForm1.N11Click(Sender: TObject);

begin

PostFirm.ShowModal;

end;

procedure TForm1.N5Click(Sender: TObject);

begin

ZakTov.ShowModal;

end;

procedure TForm1.N6Click(Sender: TObject);

begin

yslygazak.ShowModal;

end;

procedure TForm1.N15Click(Sender: TObject);

begin

PrixodTov.ShowModal;

end;

procedure TForm1.N2Click(Sender: TObject);

begin

ProdTov.ShowModal;

end;

procedure TForm1.N8Click(Sender: TObject);

begin

Tovar.ShowModal;

end;

procedure TForm1.FormShow(Sender: TObject);

begin

adm.ShowModal;

label1.Caption:=adm.Label2.Caption;

if label1.Caption='П' then label2.Caption:='Вы вошли как пользователь';

if label1.Caption='А' then label2.Caption:='Вы вошли как администратор';

end;

procedure TForm1.Image5MouseUp(Sender: TObject; Button:

TMouseButton;

Shift: TShiftState; X, Y: Integer);

begin

image5.Visible:=true;

ZakTov.ShowModal;

end;

procedure TForm1.Image5MouseDown(Sender: TObject; Button:

TMouseButton;

Shift: TShiftState; X, Y: Integer);

begin

image5.Hide;

end;

procedure TForm1.Image7MouseUp(Sender: TObject; Button:

TMouseButton;

Shift: TShiftState; X, Y: Integer);

begin

image7.Visible:=true;

PrixodTov.ShowModal;

end;

procedure TForm1.Image7MouseDown(Sender: TObject; Button:

TMouseButton;

Shift: TShiftState; X, Y: Integer);

begin

image7.Hide;

end;

procedure TForm1.Image9MouseDown(Sender: TObject; Button:

TMouseButton;

Shift: TShiftState; X, Y: Integer);

begin

image9.Hide;

end;

procedure TForm1.Image9MouseUp(Sender: TObject; Button:

TMouseButton;

Shift: TShiftState; X, Y: Integer);

begin

image9.Visible:=true;

ProdTov.ShowModal;

end;

procedure TForm1.N9Click(Sender: TObject);

begin

TovSmot.ShowModal;

end;

procedure TForm1.N17Click(Sender: TObject);

begin

yslygdob.ShowModal;

end;

procedure TForm1.N16Click(Sender: TObject);

begin

yslsmot.ShowModal;

end;

end.

Исходный код формы заказа товара

unit ZakTovar;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, Spin, StdCtrls, ComCtrls;

type

TZakTov = class(TForm)

Label1: TLabel;

Edit1: TEdit;

Label2: TLabel;

Label3: TLabel;

DateTimePicker1: TDateTimePicker;

DateTimePicker2: TDateTimePicker;

Label4: TLabel;

Label5: TLabel;

ComboBox1: TComboBox;

ComboBox2: TComboBox;

Label10: TLabel;

Label11: TLabel;

CheckBox1: TCheckBox;

Label6: TLabel;

SpinEdit1: TSpinEdit;

Label7: TLabel;

ComboBox3: TComboBox;

Label8: TLabel;

Edit4: TEdit;

Label9: TLabel;

Edit5: TEdit;

Button1: TButton;

procedure ComboBox1Change(Sender: TObject);

procedure ComboBox2Change(Sender: TObject);

procedure ComboBox3Change(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Edit1Change(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

ZakTov: TZakTov;

iCombo2,iCombo1,jNZ,iCombo3,SpinEdit :integer;

var a,b,c: array [0..100,0..100] of string; // Массивы чтоб выводить

Сотрудников и Поставщика в виде Слов!!!

KOD_SOT, KOD_POS, KOD_TOV, CENA_TOV:string;

implementation

uses VseKomp;

{$R *.dfm}

procedure TZakTov.ComboBox2Change(Sender: TObject);

var s:string;

begin

s:= ComboBox2.Text;

for jNZ:= 1 to iCombo2 do

if s= b[jNZ,2] then begin

KOD_POS:= b[jNZ,1];

Label11.Caption:='';

Label11.Caption:='Код поставщика: '+KOD_POS;

end;

end;

procedure TZakTov.ComboBox3Change(Sender: TObject);

var s:string;

begin

s:= ComboBox3.Text;

for jNZ:= 1 to iCombo3 do

if s= c[jNZ,2] then begin

KOD_TOV:= c[jNZ,1];

CENA_TOV:= c[jNZ,3];

Edit4.Text:= CENA_TOV;

end;

end;

procedure TZakTov.Button1Click(Sender: TObject);

begin

if (ComboBox1.Text='') or (ComboBox2.Text='') or

(ComboBox3.Text='')or(Edit1.Text=' ') or (Edit4.Text=' ') or (Edit5.Text=' ')

then begin

MessageDlg('Введены не все данные!',mtWarning,[mbOk],0);

Exit;

end

else begin

if CheckBox1.Checked then begin

SpinEdit1.Value:=SpinEdit1.Value+1;

VseKomponenti.ADONewZak.Close;

Edit4.Text:=inttostr(strtoint(edit4.Text)); // Для чисел Код

Edit5.Text:=inttostr(strtoint(edit5.Text));

VseKomponenti.ADONewZak.SQL.Text:='INSERT INTO Состав_заказа

(KOD, KOD_ZAK, KOD_TOV, CENA, KOL_VO) VALUES

("'+inttostr(SpinEdit1.Value)+'","'+Edit1.Text+'","'+KOD_TOV+'","'+Edit4.

Text+'","'+Edit5.Text+'")';

VseKomponenti.ADONewZak.ExecSQL;

VseKomponenti.ADONewZak.Active;

end

else

begin

Edit1.Text:=inttostr(strtoint(edit1.Text)) ; // Для чисел

VseKomponenti.ADONewZak.Close;

VseKomponenti.ADONewZak.SQL.Text:='INSERT INTO Заказ

(KOD_ZAK, DATA_ZAK, DATA_ISP, id_sot, Key2) VALUES

("'+Edit1.Text+'","'+DateToStr(DateTimePicker1.Date)+'","'+DateToStr(Dat

eTimePicker2.Date)+'","'+KOD_SOT+'","'+KOD_POS+'")';

VseKomponenti.ADONewZak.ExecSQL;

VseKomponenti.ADONewZak.Active;

VseKomponenti.ADONewZak.Close;

Edit4.Text:=inttostr(strtoint(edit4.Text)); // Для чисел Код

Edit5.Text:=inttostr(strtoint(edit5.Text));

VseKomponenti.ADONewZak.SQL.Text:='INSERT INTO Состав_заказа

(KOD, KOD_ZAK, KOD_TOV, CENA, KOL_VO) VALUES

("'+inttostr(SpinEdit1.Value)+'","'+Edit1.Text+'","'+KOD_TOV+'","'+Edit4.

Text+'","'+Edit5.Text+'")';

VseKomponenti.ADONewZak.ExecSQL;

VseKomponenti.ADONewZak.Active;

end;

end;

end;

procedure TZakTov.Edit1Change(Sender: TObject);

var Spin1:integer;

begin

Spin1:=strtoint(edit1.Text);

Spin1:=Spin1*100;

SpinEdit1.Value:=Spin1;

end;

procedure TZakTov.FormCreate(Sender: TObject);

begin

ComboBox1

VseKomponenti.ADOCombo1.First;

iCombo1:=VseKomponenti.ADOCombo1.RecordCount;

for jNZ:= 1 to iCombo1 do begin

a[jNZ,1]:=VseKomponenti.ADOCombo1.Fields[0].Value;

a[jNZ,2]:=VseKomponenti.ADOCombo1.Fields[1].Value;

a[jNZ,3]:=VseKomponenti.ADOCombo1.Fields[2].Value;

a[jNZ,4]:=VseKomponenti.ADOCombo1.Fields[3].Value;

a[jNZ,5]:=VseKomponenti.ADOCombo1.Fields[11].Value;

ComboBox1.Items.Add(VseKomponenti.ADOCombo1.Fields[1].Value+'

'+VseKomponenti.ADOCombo1.Fields[2].Value+'

'+VseKomponenti.ADOCombo1.Fields[3].Value+'

'+VseKomponenti.ADOCombo1.Fields[11].Value);

VseKomponenti.ADOCombo1.Next;

end;

ComboBox2

VseKomponenti.ADOCombo2.First;

iCombo2:=VseKomponenti.ADOCombo2.RecordCount;

for jNZ:= 1 to iCombo2 do begin

b[jNZ,1]:=VseKomponenti.ADOCombo2.Fields[0].Value;

b[jNZ,2]:=VseKomponenti.ADOCombo2.Fields[1].Value;

ComboBox2.Items.Add(VseKomponenti.ADOCombo2.Fields[1].Value);

VseKomponenti.ADOCombo2.Next;

end;

ComboBox3

VseKomponenti.ADOCombo3.First;

iCombo3:=VseKomponenti.ADOCombo3.RecordCount;

for jNZ:= 1 to iCombo3 do begin

c[jNZ,1]:=VseKomponenti.ADOCombo3.Fields[0].Value;

c[jNZ,2]:=VseKomponenti.ADOCombo3.Fields[3].Value;

c[jNZ,3]:=VseKomponenti.ADOCombo3.Fields[4].Value;

ComboBox3.Items.Add(VseKomponenti.ADOCombo3.Fields[3].Value);

VseKomponenti.ADOCombo3.Next;

end;

end;

procedure TZakTov.ComboBox1Change(Sender: TObject);

var s:string;

begin

s:= ComboBox1.Text;

for jNZ:= 1 to iCombo1 do

if s= a[jNZ,2]+' '+a[jNZ,3]+' '+a[jNZ,4] then begin

KOD_SOT:= a[jNZ,1];

Label10.Caption:='';

Label10.Caption:='Код сотрудника: '+KOD_SOT;

end;

end;

end.

Исходный код формы прихода товара

unit PrixodTovara;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, Grids, DBGrids, Spin, StdCtrls, ComCtrls;

type

TPrixodTov = class(TForm)

Label1: TLabel;

Label11: TLabel;

Edit1: TEdit;

Edit4: TEdit;

Label2: TLabel;

DateTimePicker1: TDateTimePicker;

Label3: TLabel;

Label4: TLabel;

ComboBox1: TComboBox;

ComboBox2: TComboBox;

CheckBox1: TCheckBox;

Label5: TLabel;

SpinEdit1: TSpinEdit;

Label6: TLabel;

ComboBox3: TComboBox;

Label7: TLabel;

Edit2: TEdit;

Label8: TLabel;

Edit3: TEdit;

DBGrid1: TDBGrid;

Label13: TLabel;

Button1: TButton;

Label12: TLabel;

Label14: TLabel;

Label15: TLabel;

procedure ComboBox1Change(Sender: TObject);

procedure ComboBox2Change(Sender: TObject);

procedure ComboBox3Change(Sender: TObject);

procedure Edit1Change(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Edit4Change(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

PrixodTov: TPrixodTov;

PRcombo1,PRcombo2,PRcombo3:integer;

jPR,sum1:integer;

PRa,PRb,PRc:array [1..1000,1..1000] of string;

KOD_SOT_PR, KOD_POS_PR, KOD_TOV_PR, CENA_TOV_PR,

KOL_VO_PR:string;

implementation

uses VseKomp;

{$R *.dfm}

procedure TPrixodTov.ComboBox1Change(Sender: TObject);

var PRs:string;

begin

PRs:= ComboBox1.Text;

for jPR:= 1 to PRCombo1 do

if PRs= PRa[jPR,2]+' '+PRa[jPR,3]+' '+PRa[jPR,4] then begin

KOD_SOT_PR:= PRa[jPR,1];

Label12.Caption:='';

Label12.Caption:='Код сотрудника: '+KOD_SOT_PR;

end;

end;

procedure TPrixodTov.ComboBox2Change(Sender: TObject);

var PRs1:string;

begin

PRs1:= ComboBox2.Text;

for jPR:= 1 to PRCombo2 do

if PRs1= PRb[jPR,2] then begin

KOD_POS_PR:= PRb[jPR,1];

Label14.Caption:='';

Label14.Caption:='Код поставщика: '+KOD_POS_PR;

end;

end;

procedure TPrixodTov.ComboBox3Change(Sender: TObject);

var PRs2:string;

begin

PRs2:= ComboBox3.Text;

for jPR:= 1 to PRCombo3 do

if PRs2= PRc[jPR,2] then begin

KOD_TOV_PR:= PRc[jPR,1];

CENA_TOV_PR:=PRc[jPR,3];

KOL_VO_PR:=PRc[jPR,4];

EDit2.Text:= CENA_TOV_PR;

end;

end;

procedure TPrixodTov.Edit1Change(Sender: TObject);

var Spin1:integer;

begin

Spin1:=strtoint(edit1.Text);

Spin1:=Spin1*100;

SpinEdit1.Value:=Spin1;

Edit4.Text:=Edit1.Text;

end;

procedure TPrixodTov.Button1Click(Sender: TObject);

var kolvo1,kolvo2,Sum,Sum1:integer;

PRs2:string;

begin

if (Edit1.Text=' ') or (Edit2.Text=' ') or (Edit3.Text=' ') or (Edit4.Text=' ') or

(ComboBox1.Text='') or (ComboBox2.Text='') or (ComboBox3.Text='')

then begin

MessageDlg('Введены не все данные!',mtWarning,[mbOk],0);

Exit;

end

else begin

VseKomponenti.ADOCombo3.Active:=false;

VseKomponenti.ADOCombo3.Active:=true;

ComboBox3 Обновляем масив

VseKomponenti.ADOCombo3.First;

PRCombo3:=VseKomponenti.ADOCombo3.RecordCount;

for jPR:= 1 to PRCombo3 do begin

PRc[jPR,1]:=VseKomponenti.ADOCombo3.Fields[0].Value;

PRc[jPR,2]:=VseKomponenti.ADOCombo3.Fields[3].Value;

PRc[jPR,3]:=VseKomponenti.ADOCombo3.Fields[4].Value;

PRc[jPR,4]:=VseKomponenti.ADOCombo3.Fields[5].Value;

ComboBox3.Items.Add(VseKomponenti.ADOCombo3.Fields[3].Value);

VseKomponenti.ADOCombo3.Next;

end;

PRs2:= ComboBox3.Text;

for jPR:= 1 to PRCombo3 do

if PRs2= PRc[jPR,2] then begin

KOD_TOV_PR:= PRc[jPR,1];

CENA_TOV_PR:=PRc[jPR,3];

KOL_VO_PR:=PRc[jPR,4];

EDit2.Text:= CENA_TOV_PR;

end;

Меняем количество товара

kolvo1:=strtoint(KOL_VO_PR);

kolvo2:=strtoint(Edit3.Text);

sum:=kolvo1+kolvo2;

Label15.Caption:='Количество на складе: '+inttostr(sum);

if CheckBox1.Checked then begin

SpinEdit1.Value:=SpinEdit1.Value+1;

VseKomponenti.ADOPrihod.Close;

Edit1.Text:=inttostr(strtoint(edit1.Text)); // Для чисел Код

Edit2.Text:=inttostr(strtoint(edit2.Text));

Edit3.Text:=inttostr(strtoint(edit3.Text));

VseKomponenti.ADOPrihod.SQL.Text:='INSERT INTO Состав_прихода

(KOD, KOD_PR, KOD_TOV, CENA, KOL_VO) VALUES

("'+inttostr(SpinEdit1.Value)+'","'+Edit1.Text+'","'+KOD_TOV_PR+'","'+E

dit2.Text+'","'+Edit3.Text+'")';

VseKomponenti.ADOPrihod.ExecSQL;

VseKomponenti.ADOPrihod.Active;

VseKomponenti.ADOChengTovar.Close;

VseKomponenti.ADOChengTovar.SQL.Text:='UPDATE Товар SET

KOL_VO="'+inttostr(sum)+'" WHERE NAZVANIE

="'+ComboBox3.Text+'"';

VseKomponenti.ADOChengTovar.ExecSQL;

VseKomponenti.ADOChengTovar.Active;

end

else

begin

Edit1.Text:=inttostr(strtoint(edit1.Text)) ; // Для чисел

VseKomponenti.ADOPrihod.Close;

VseKomponenti.ADOPrihod.SQL.Text:='INSERT INTO Приход

(KOD_PR, DATA_PR, id_sot, Key2) VALUES

("'+Edit1.Text+'","'+DateToStr(DateTimePicker1.Date)+'","'+KOD_SOT_P

R+'","'+KOD_POS_PR+'")';

VseKomponenti.ADOPrihod.ExecSQL;

VseKomponenti.ADOPrihod.Active;

////////// Изменяет дату (исполнения) прихода товара

VseKomponenti.ADOChengData.Close;

VseKomponenti.ADOChengData.SQL.Text:='UPDATE Заказ SET

DATA_ISP="'+DateToStr(DateTimePicker1.Date)+'" WHERE KOD_ZAK

='+inttostr(strtoint(edit1.Text))+'';

VseKomponenti.ADOChengData.ExecSQL;

VseKomponenti.ADOChengData.Active;

VseKomponenti.ADOPrihod.Close;

Edit1.Text:=inttostr(strtoint(edit1.Text)); // Для чисел Код

Edit2.Text:=inttostr(strtoint(edit2.Text));

Edit3.Text:=inttostr(strtoint(edit3.Text));

VseKomponenti.ADOPrihod.SQL.Text:='INSERT INTO Состав_прихода

(KOD, KOD_PR, KOD_TOV, CENA, KOL_VO) VALUES

("'+inttostr(SpinEdit1.Value)+'","'+Edit1.Text+'","'+KOD_TOV_PR+'","'+E

dit2.Text+'","'+Edit3.Text+'")';

VseKomponenti.ADOPrihod.ExecSQL;

VseKomponenti.ADOPrihod.Active;

VseKomponenti.ADOChengTovar.Close;

VseKomponenti.ADOChengTovar.SQL.Text:='UPDATE Товар SET

KOL_VO="'+inttostr(sum)+'" WHERE NAZVANIE

="'+ComboBox3.Text+'"';

VseKomponenti.ADOChengTovar.ExecSQL;

VseKomponenti.ADOChengTovar.Active;

end;

end;

end;

procedure TPrixodTov.Edit4Change(Sender: TObject);

begin

VseKomponenti.ADOSostavZakaza.Active:=false;

VseKomponenti.ADOSostavZakaza.SQL.Clear;

VseKomponenti.ADOSostavZakaza.SQL.Add('SELECT KOD, KOD_ZAK,

KOD_TOV, CENA, KOL_VO');

VseKomponenti.ADOSostavZakaza.SQL.Add ('FROM Состав_заказа s');

VseKomponenti.ADOSostavZakaza.SQL.Add('WHERE KOD_ZAK LIKE

'''+Edit4.Text+'%''');

VseKomponenti.ADOSostavZakaza.Active:=true;

end;

procedure TPrixodTov.FormCreate(Sender: TObject);

begin

ComboBox1

VseKomponenti.ADOCombo1.First;

PRCombo1:=VseKomponenti.ADOCombo1.RecordCount;

for jPR:= 1 to PRCombo1 do begin

PRa[jPR,1]:=VseKomponenti.ADOCombo1.Fields[0].Value;

PRa[jPR,2]:=VseKomponenti.ADOCombo1.Fields[1].Value;

PRa[jPR,3]:=VseKomponenti.ADOCombo1.Fields[2].Value;

PRa[jPR,4]:=VseKomponenti.ADOCombo1.Fields[3].Value;

ComboBox1.Items.Add(VseKomponenti.ADOCombo1.Fields[1].Value+'

'+VseKomponenti.ADOCombo1.Fields[2].Value+'

'+VseKomponenti.ADOCombo1.Fields[3].Value);

VseKomponenti.ADOCombo1.Next;

end;

ComboBox2

VseKomponenti.ADOCombo2.First;

PRCombo2:=VseKomponenti.ADOCombo2.RecordCount;

for jPR:= 1 to PRCombo2 do begin

PRb[jPR,1]:=VseKomponenti.ADOCombo2.Fields[0].Value;

PRb[jPR,2]:=VseKomponenti.ADOCombo2.Fields[1].Value;

ComboBox2.Items.Add(VseKomponenti.ADOCombo2.Fields[1].Value);

VseKomponenti.ADOCombo2.Next;

end;

ComboBox3

VseKomponenti.ADOCombo3.First;

PRCombo3:=VseKomponenti.ADOCombo3.RecordCount;

for jPR:= 1 to PRCombo3 do begin

PRc[jPR,1]:=VseKomponenti.ADOCombo3.Fields[0].Value;

PRc[jPR,2]:=VseKomponenti.ADOCombo3.Fields[3].Value;

PRc[jPR,3]:=VseKomponenti.ADOCombo3.Fields[4].Value;

PRc[jPR,4]:=VseKomponenti.ADOCombo3.Fields[5].Value;

ComboBox3.Items.Add(VseKomponenti.ADOCombo3.Fields[3].Value);

VseKomponenti.ADOCombo3.Next;

end;

end;

end.



ПРИЛОЖЕНИЕ Б

Рисунок Б 1. ER-диаграмма базы данных

Рисунок Б 2. Схема БД

Рисунок Б 3. Форма «Вход»



Рисунок Б 4. Главная форма

Рисунок Б 5. Форма «Заказ товара на склад»

Рисунок Б 6. Форма «Приход товара на склад»

Рисунок Б 7. Форма «Продажа товара»

Рисунок Б 8. Форма «Товар на складе»

Рисунок Б 9. Форма «Добавление товара»

Рисунок Б 10. Форма «Просмотр товара»

Рисунок Б 11. Форма «Новый заказ»

Рисунок Б 12. Форма «Добавление услуги»



Рисунок Б 13. Форма «Добавление услуги»

Рисунок Б 14. Форма «Просмотр услуг»

Рисунок Б 15. Форма «Поставщики фирмы»

Рисунок Б 16. Форма «Добавление поставщиков»

Рисунок Б 17. Форма «Поиск поставщиков»

Рисунок Б 18. Форма «Найденные поставщики»



Рисунок Б 19. Форма «Фирмы поставщиков»

Рисунок Б 20. Форма «Сотрудники фирмы»

Рисунок Б 21. Форма «Добавление сотрудника»

Рисунок Б 21. Форма «Поиск сотрудников»

Рисунок Б 22. Форма «Найденные сотрудники»

Рисунок Б 23. Отчет «Гарантийный талон»



Рисунок Б 24. Отчет «Прайс-лист»

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