Автоматизированная информационная система "Автосалон"

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

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

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

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

Требование к шуму и вибрации.

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

При выполнении основной работы на ПЭВМ (диспетчерские, операторские, расчетные кабины и посты управления, залы вычислительной техники и др.), во всех учебных и дошкольных помещениях с ПЭВМ уровень шума на рабочем месте не должен превышать 50 дБА. В помещениях, где работают инженерно - технические работники, осуществляющие лабораторный, аналитический или измерительный контроль, уровень шума не должен превышать 60 дБА. В помещениях операторов ЭВМ (без дисплеев) уровень шума не должен превышать 65 дБА. На рабочих местах в помещениях для размещения шумных агрегатов вычислительных машин (АЦПУ, принтеры и т.п.) уровень шума не должен превышать 75 дБА.

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

Шумящее оборудование (АЦПУ, принтеры и т.п.), уровни шума которого превышают нормированные, должно находиться вне помещения с ПЭВМ.

Снизить уровень шума в помещениях с ПЭВМ можно использованием звукопоглощающих материалов с максимальными коэффициентами звукопоглощения в области частот 63 - 8000 Гц для отделки помещений (разрешенных органами и учреждениями Госсанэпиднадзора России), подтвержденных специальными акустическими расчетами. Дополнительным звукопоглощением служат однотонные занавеси из плотной ткани, гармонирующие с окраской стен и подвешенные в складку на расстоянии 15 - 20 см от ограждения. Ширина занавеси должна быть в 2 раза больше ширины окна.

Требования к освещению помещения и рабочих мест с ПЭВМ.

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

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

Основные требования к освещению помещений и рабочих мест с ПЭВМ:

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

Освещенность на поверхности стола в зоне размещения рабочего документа должна быть 300-500 лк. Допускается установка светильников местного освещения для подсветки документов. Местное освещение не должно создавать бликов на поверхности экрана и увеличивать освещенность экрана более 300 лк.

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

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

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

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

Для освещения помещений с ПЭВМ следует применять светильники серии ЛПО36 с зеркализованными решетками, укомплектованные высокочастотными пускорегулирующими аппаратами (ВЧ ПРА). Допускается применять светильники серии ЛПО36 без ВЧ ПРА только в модификации "Кососвет", а также светильники прямого света - П, преимущественно прямого света - Н, преимущественно отраженного света - В. Применение светильников без рассеивателей и экранирующих решеток не допускается.

Коэффициент пульсации не должен превышать 5%, что должно обеспечиваться применением газоразрядных ламп в светильниках общего и местного освещения с высокочастотными пускорегулирующими аппаратами (ВЧ ПРА) для любых типов светильников. При отсутствии светильников с ВЧ ПРА лампы многоламповых светильников или рядом расположенные светильники общего освещения следует включать на разные фазы трехфазной сети.

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

Требования по организации и оборудованию рабочих мест с ПЭВМ.

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

Схемы размещения рабочих мест с ПЭВМ должны учитывать расстояния между рабочими столами с видеомониторами (в направлении тыла поверхности одного видеомонитора и экрана другого видеомонитора), которое должно быть не менее 2,0 м, а расстояние между боковыми поверхностями видеомониторов - не менее 1,2 м.

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

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

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

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

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

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

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

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

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

Экран видеомонитора должен находиться от глаз пользователя на оптимальном расстоянии 600-700 мм, но не ближе 500 мм с учетом размеров алфавитно-цифровых знаков и символов.

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

Профессиональные заболевания.

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

К ним относятся:

- заболевания позвоночника (остеохондроз, искривления позвоночника);

- заболевания органов дыхания;

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

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

Заболевания позвоночника.

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

Заболевания органов дыхания.

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

Способы профилактики:

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

- для увеличения влажности можно ставить открытую емкость с водой. (Например: аквариум с рыбками, декоративные водопады);

- после покупки компьютера, желательно включить и оставить его на несколько часов в проветриваемом помещении.

Туннельный синдром или синдром запястного канала.

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

Способы профилактики:

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

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

Стресс, депрессия, нервные расстройства.

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

Способы профилактики:

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

- в интернете: не ждите долго загрузки страницы посмотрите в это время другую, постарайтесь пользоваться качественным доступом (лучше 1 час с нормальной связью, чем 2 с..);

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

7. Результаты

7.1 Вывод по реализации задачи

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

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

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

7.2 Перспективы развития проекта

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

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

1. Архангельский А.Я. «Программирование в Delphi 6» - М.: Издательство «БИНОМ», 2003.

2. Бакнелл - «Фундаментальные алгоритмы» - СПб.: ООО «ДиаСофтЮП», 2003.

3. Бузовский О.В. Программирование. Язык Паскаль-концепции,стандарт,расширения - СПб.: БХВ - Петербург, 2006.

4. Гофман В.Э., Хомоненко А.Д. «Работа с БД в Delphi» - СПб.: БХВ - Петербург, 2002.

5. Дархвелидзе П.Г., Марков Е.П. «Программирование в Delphi 7» - СПб.: БХВ - Петербург, 2003

6. Дарахвалидзе - «Delphi 2005 для Win32» - СПб.: БХВ - Петербург, 2005.

7. Елманова, Трепалин, Тенцер - «Delphi и технология COM» - 2 изд, 2003.

8. Зайцев О.В., Владимиров А.М. - ГРАФИКА В ДЕЛЬФИ - СПб.: БХВ - Петербург, 2005.

9. Кандзюба С.П. - Delphi6 Базы данных и приложения

10. Корняков В. - Программирование документов и приложений MS Office в Delphi - СПб.: БХВ - Петербург, 2005.

11. Краснов М. - DirectX Графика в проектах Delphi

12. Михаил Фленов «Библия Delphi» - СПб.: БХВ - Петербург, 2004.

13. Парижский С.М. «Delphi. Учимся на примерах» - К.: «МК-Пресс», 2005

14. Пестреков В.М., Маслобоев А.Н. «Delphi в примерах» - СПб.: БХВ - Петербург, 2005.

15. Ревич Ю. «Нестандартные приёмы программирования на Delphi» - СПб.: БХВ - Петербург, 2005.

16. Род Стивене - Delphi Готовые алгоритмы - СПб.: БХВ - Петербург, 2004.

17. Сорокин А.В. «Разработка БД» - СПб.: Питер, 2005.

18. Фленов М. - Delphi 2005 Секреты программирования - СПб.: БХВ - Петербург, 2006.

19. Фленов М.Е. «Программирование в Delphi глазами хакера» - СПб.: БХВ - Петербург, 2003.

20. Шупрута В.В. Delphi 2005 Учимся программировать - СПб.: БХВ - Петербург, 2005.

Приложение А

«Договор поставки»

Приложение Б

«Платежное поручение»

Приложение В

«Снятие кассы»

Приложение Г

«Диаграмма продаж автомобилей»

Приложение Д

«Объем продаж»

Приложение Е

«Оформление кредита»

Приложение Ж

«Товарный чек»

Приложение З

«Прибыль автосалона»

Приложение И

«Листинг исходных кодов»

«Авторизация»

case ComboBox1.ItemIndex of

0: if Edit1.Text='1' then dlSekr.showModal else showmessage('неправильный ввод');

1: if Edit1.Text='2' then ParKlad.ShowModal else showmessage('неправильный ввод');

2: if Edit1.Text='3' then ParSotr.showModal else showmessage('неправильный ввод');

3: if Edit1.Text='4' then dlMened.showModal else showmessage('неправильный ввод');

4: if Edit1.Text='5' then

begin dlKlien.Position:=poDesigned;

dlKlien.showModal; end

else showmessage('неправильный ввод');

5: if Edit1.Text='6' then dlDirek.showModal else showmessage('неправильный ввод');

else showmessage('неправильный ввод');

end;

«Расчёт суммы поставки»

nakl.ADOTable1itogo.Value:=nakl.ADOTable1obsh_stoim_avt.Value+(nakl.ADOTable1obsh_stoim_avt.Value*nakl.ADOTable1proc_za_postavku.Value);

«Расчёт суммы автомобилей»

dlNakl.ADOTable1stoim_v_rub.Value:=dlNakl.ADOTable1stoim_avt.Value*dlNakl.ADOTable1tar.Value;

«Расчёт суммы продажи»

k:=0;

if (Prodazh.ADOTable1kod_karti.Value<>0) then

begin

k:=0.03;

if (Prodazh.ADOTable1SumKred.Value<>0) then

k:=Prodazh.ADOTable1SumKred.Value;

end;

Prodazh.ADOTable1sum_NDS.Value:=Prodazh.ADOTable1proc_NDS.Value*Prodazh.ADOTable1sum.Value;

Prodazh.ADOTable1summa_prodazh.Value:=(Prodazh.ADOTable1SObor.Value+Prodazh.ADOTable1sum.Value+Prodazh.ADOTable1summa_za_oforml.Value+Prodazh.ADOTable1summa_dostav.Value+Prodazh.ADOTable1sum_NDS.Value)-((Prodazh.ADOTable1SObor.Value+Prodazh.ADOTable1sum.Value+Prodazh.ADOTable1summa_za_oforml.Value+Prodazh.ADOTable1summa_dostav.Value+Prodazh.ADOTable1sum_NDS.Value)*k);

Prodazh.ADOTable1stoim_oplat.Value:=(Prodazh.ADOTable1SObor.Value+(Prodazh.ADOTable1sum.Value-Prodazh.ADOTable1SumVKred.Value)+Prodazh.ADOTable1summa_za_oforml.Value+Prodazh.ADOTable1summa_dostav.Value+Prodazh.ADOTable1sum_NDS.Value)-((Prodazh.ADOTable1SObor.Value+(Prodazh.ADOTable1sum.Value-Prodazh.ADOTable1SumVKred.Value)+Prodazh.ADOTable1summa_za_oforml.Value+Prodazh.ADOTable1summa_dostav.Value+Prodazh.ADOTable1sum_NDS.Value)*k);

Prodazh.ADOTable1sdacha.Value:=Prodazh.ADOTable1nalichn.Value-Prodazh.ADOTable1stoim_oplat.Value;

«Расчёт суммы выплаты по кредиту»

Present:= Now;

DecodeDate(ViplPoKred.ADOTable1data_oform.Value, Year, Month, Day);

DecodeDate(Present, Year1, Month1, Day1);

k2:=(Year1-(Year+(trunc((Month+ViplPoKred.ADOTable1kol_vipl.Value)/12))));

k3:=(Month1+(k2*12))-(((Month+1+ViplPoKred.ADOTable1kol_vipl.Value)-(trunc((Month+1+ViplPoKred.ADOTable1kol_vipl.Value)/12)*12)));

k4:=(Day1+(k3*30))-Day;

if (k4>0) then

ViplPoKred.ADOTable1obsh_summa.Value:=ViplPoKred.ADOTable1summa_oplati.Value+((ViplPoKred.ADOTable1summa_oplati.Value*ViplPoKred.ADOTable1Pen.Value*k4))

else

ViplPoKred.ADOTable1obsh_summa.Value:=ViplPoKred.ADOTable1summa_oplati.Value;

«Прорисовка демонстрационного зала»

var r,c,j,m,k,d1,d2,d3,d4,d5,i:integer;

b:string;

g:real;

begin

s1:=0;

k:=225;

d1:=15;

d2:=15;

d5:=250;

j:=0;

m:=2;

with Image1 do Canvas.FillRect(Rect(0,0,Width,Height));

with Image1.Canvas do // Снова рисуем пустой зал

begin

for r:=1 to d1 do

begin

c:=0;

for m:=1 to d2 do

begin

c:=c+2;

if r mod 2=0 then begin

RoundRect(25+15*c,10+15*r,38+15*c,23+15*r,8,8);

end

else begin

j:=j+1;

b:=IntToStr(j);

if j<=105 then

TextOut(25+15*c,10+15*r,b);

end;

end;

end;

end;

with Image1.Canvas do // Закрашиваем синим проданные места

begin

ADOTable1.First;

for i:=1 to ADOTable1.RecordCount do begin

r:=ADOTable1.FieldByName('mesto_v_manezhe').AsInteger;

if (r mod 15)<>0 then

m:=(((trunc(r/15))+1)*2)

else m:=((trunc(r/15))*2);

if m=4 then

r:=(r+1)-16

else

if m=6 then

r:=(r+1)-31

else

if m=8 then

r:=(r+1)-46

else

if m=10 then

r:=(r+1)-61

else

if m=12 then

r:=(r+1)-76

else

if m=14 then

r:=(r+1)-91;

if r<>0 then begin

r:=r+r;

Brush.Color:=clBlue;

RoundRect(25+15*r,10+15*m,38+15*r,23+15*m,8,8);

Brush.Color:=clWhite;

end;

{end;}

ADOTable1.Next;

end;

end;

ADOTable1.First;

Brush.Color:=clWhite;

«Оформление продажи»

dlProdaz.DateTimePicker2.DateTime:=now;

Prodazh.ADOTable1.Insert;

if (dlProdaz.DBCheckBox1.Checked=false) then begin

dlProdaz.DateTimePicker2.Visible:=false;

dlProdaz.Label5.Visible:=false;

dlProdaz.Label6.Visible:=false;

dlProdaz.Label7.Visible:=false;

dlProdaz.DBEdit4.Visible:=false;

dlProdaz.DBEdit5.Visible:=false;

end

else begin

dlProdaz.DateTimePicker2.Visible:=true;

dlProdaz.Label5.Visible:=true;

dlProdaz.Label6.Visible:=true;

dlProdaz.Label7.Visible:=true;

dlProdaz.DBEdit4.Visible:=true;

dlProdaz.DBEdit5.Visible:=true;

end;

Prodazh.ADOTable1kod_sotrudnika.Value:=StrToInt(dlKass.Edit1.Text);

dlProdaz.Show;

«Фильтрация кредитов»

ViplPoKred.ADOTable1.Filtered:=false;

ViplPoKred.ADOTable1.Filter:='kod_kredita='''+Edit2.Text+'''';

ViplPoKred.ADOTable1.Filtered:=true;

«Поиск автомобилей»

var s1,s2:string;

op:TLocateOptions;

begin

Case ComboBox1.ItemIndex of

0:begin s1:= 'kod_avt';

s2:= Edit1.Text;

op:= [loCaseInsensitive];

end;

1:begin s1:= 'marka';

s2:= Edit1.Text;

op:= [loCaseInsensitive];

end;

2:begin s1:= 'nazvan_avt';

s2:= Edit1.Text;

op:= [loCaseInsensitive];

end;

3:begin s1:= 'god_vipuska';

s2:= Edit1.Text;

op:= [loCaseInsensitive];

end;

4:begin s1:= 'strana_proizvod';

s2:= Edit1.Text;

op:= [loCaseInsensitive];

end;

5:begin s1:= 'stoim_s_nadb';

s2:= Edit1.Text;

op:= [loCaseInsensitive];

end;

6:begin s1:= 'kol_mest';

s2:= Edit1.Text;

op:= [loCaseInsensitive];

end;

7:begin s1:= 'cvet_avt';

s2:= Edit1.Text;

op:= [loCaseInsensitive];

end;

8:begin s1:= 'tip_kuzova';

s2:= Edit1.Text;

op:= [loCaseInsensitive];

end;

9:begin s1:= 'tip_dvigat';

s2:= Edit1.Text;

op:= [loCaseInsensitive];

end;

10:begin s1:= 'max_scor';

s2:= Edit1.Text;

op:= [loCaseInsensitive];

end;

11:begin s1:= 'moshn_avt';

s2:= Edit1.Text;

op:= [loCaseInsensitive];

end;

12:begin s1:= 'kol_dverei';

s2:= Edit1.Text;

op:= [loCaseInsensitive];

end;

13:begin s1:= 'razgon';

s2:= Edit1.Text;

op:= [loCaseInsensitive];

end;

14:begin s1:= 'obem_bagazhn';

s2:= Edit1.Text;

op:= [loCaseInsensitive];

end;

15:begin s1:= 'obem_topl_baka';

s2:= Edit1.Text;

op:= [loCaseInsensitive];

end;

16:begin s1:= 'tip_kor_pered';

s2:= Edit1.Text;

op:= [loCaseInsensitive];

end;

17:begin s1:= 'tip_rul';

s2:= Edit1.Text;

op:= [loCaseInsensitive];

end;

end;

if (Skl.Edit1.Text='0') then begin

if not KladSkl.ADOTable1.Locate(s1,s2,op) then

ShowMessage(' не найдена ');

end

else

begin

if not Sklad.ADOTable1.Locate(s1,s2,op) then

ShowMessage(' не найдена ');

end;

«Дерево данных автомобилей»

var

i:integer;

CaptionStr:String;

NewNode,NewNode2:TTreeNode;

j:integer;

r,c,h,m,k,d1,d2,d3,d4,d5:integer;

b:string;

g:real;

cv1:Tcolor;

begin

ADOTable1.Active:=false;

ADOTable1.Active:=true;

ADOQuery2.Active:=false;

ADOQuery2.Active:=true;

ADOQuery1.Active:=false;

ADOQuery1.Active:=true;

TreeView1.Items.Clear;

CaptionStr:='';

ADOQuery2.First;

for i:=1 to ADOQuery2.RecordCount do begin

NewNode:=TreeView1.Items.Add(Nil, ADOQuery2marka.AsString);

CaptionStr:=ADOQuery2marka.AsString;

ADOQuery1.First;

for j:=1 to ADOQuery1.RecordCount do begin

if ((CaptionStr)=(ADOQuery1marka.AsString)) then

begin

NewNode2:=TreeView1.Items.AddChild(NewNode, ADOQuery1nazvan_avt.AsString);

end;

ADOQuery1.Next;

end;

ADOQuery2.Next;

end;

s1:=0;

k:=225;

d1:=2;

d2:=5;

{d3:=280;

d4:=265;}

d5:=250;

j:=0;

m:=2;

with Image1 do Canvas.FillRect(Rect(0,0,Width,Height));

with Image1.Canvas do // Снова рисуем пустой зал

begin

for r:=1 to d1 do

begin

c:=0;

for m:=1 to d2 do begin

h:=m;

if r=2 then h:=h+5;

cv1:=cvet[h];

Brush.Color:=cv1;

RoundRect(24*m-24,24*r-24,24*m,24*r,24,24);

Brush.Color:=clWhite;

end;

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