Разработка программ. Расчет экономической эффективности

Размещено на http://www.allbest.ru/

1. Характеристика предприятия

ТОО «Com Sales Group» - официальный дилер Актюбинской областной дирекции телекоммуникации.

Оказывает услуги:

*прием заявок на подключение;

*реализация модемов ведущих производителей телекоммуникационного оборудования

*инсталляция модемов;

*дополнительные работы на стороне абонента

При обращении абонентов, дилер ТОО «Com Sales Group» осуществляет проверку технической возможности предоставления услуги « Megaline » и регистрирует заявления с помощью программного модуля Web - dealer. В данную программу заносится номер телефона абонента и в режиме он-лайн предоставляется ответ о возможности подключения.

Также по просьбе абонента ТОО «Com Sales Group» выполняет инсталляционные работы для подключения к услуге «Megaline». В точке продаж можно сразу и проверить возможность подключения, и выбрать ADSL -модем, и заключить договор на подключение. Благодаря высокой скорости Megaline работа в Интернете становится настоящим удовольствием. Самые большие объемы информации становятся доступными: музыка, online-игры, видео, радио и многое другое.

Квалифицированные сотрудники ответят и проконсультируют всех абонентов по всем имеющимся вопросам.

2. Структура предприятия

ТОО «Com Sales Group» состоит из ниже перечисленных структур. Каждая структура тесно связана друг с другом, поскольку с помощью принятых заявок отдел инсталяции будет работать над подключением интернета, а в случаях технических поломок, работает технический отдел.

Размещено на http://www.allbest.ru/

3. Методика составления алгоритмов, разработка численных методов решения задач

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

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

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

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

4. Составление программ на языке программирования

Целью данного этапа состоит в записи алгоритма на языке программирования и переносе текста программы на носитель, с которого она может быть введена в ЭВМ.

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

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

5. Методы откладки программ

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

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

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

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

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

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

6. Анализ технологии машинной обработки экономической информации

язык программирование машинный экономический

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

Обсуждая по требования, составляются модули, задания, тесты, из которых будет состоять электронный учебник. Все модули, задания, тесты утверждаются директором РЦИО и сохраняются на магнитных носителях в виде файлов с расширением «ppt, doc, txt».

После данные передаются программисту, который создает программу оболочку, в среде «Delphi, C++, Visual Basic», из данных ему моделей. т.е. электронный учебник, который каждое время контролируется, меняется заказчиком.

При озвучивание электронного учебника данные записывающие через микрофон и сохраняются в формате «Wav, mid. mp3»/

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

После того как учебник был создан, его копия заносится в архив, а так же документируется. А заказчику передаётся готовый продукт, записанный на СD диск.

7. Расчет фонда заработной платы

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

Тарифная ставка - это размер оплаты труда рабочего за час или день.

Тарифная ставка работника соответствующей квалификации определяется по формуле

Т_ст1=Т _ст(1) *К_т1,

Где Т_ст(1) - тарифная ставка 1-го разряда; К_т1- тарифный коэффициент 1-го разряда.

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

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

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

Различают следующие разновидность сдельной формы оплаты:

- прямая сдельная;

- сдельно-премиальная;

- сдельно-прогрессивная;

- косвенно-сдельная;

- аккордная;

- аккордно-премиальная.

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

Сдельная расценка, а соответственно и сдельная форма оплаты труда, может быть индивидуальной и коллективной.

При прямой сдельной системе оплаты труд оплачивается по сдельным

расценкам непосредственно за количество произведенной продукции (операций) по формуле

З_сд =Р_сд* В,

где З_сд -сдельный заработок, руб.,; В- количество (объем) произведенной продукции (работ), ед. продукции.

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

З_сд.пр = З_сд+З_пр или З_сд *(1+П_пр/100),

где З _сд.пр- сдельный заработок при сдельно-премиальной оплате труда, руб.; З_пр- премия за выполнение (перевыполнение) установленных показателей, руб.; П_пр- процент премии за выполнение показателей премирования.

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

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

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

Сдельная расценка устанавливается сразу на весь объем работ, которые должны быть выполнены в срок. Иногда эту систему называют ручно-сдельной. Если при аккордной системе за срочное или качественное выполнение работ выплачивается премия, то ее называют аккордно-премиальной системой оплаты труда.

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

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

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

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

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

8. Охрана труда и производственная санитария

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

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

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

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

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

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

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

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

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

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

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

Норам освещенности СНИП II-4-79. естественное 200 Лк, искусственное освещение 300 Лк, фактическая освещенность в лабораториях составляет: естественное 200 Лк, искусственное 300 Лк.

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

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

Температура и относительная влажность воздуха рабочей зоны производственных помещений (ГОСТ 12.1.005-76)18°С, фактическая температура18°С. В холодной период (ГОСТ 12.1.005-76)18-22°С, фактическая температура 20°С. Влажность воздуха (ГОСТ 12.1.005-76)40-60%.

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

Скорость движения воздуха в рабочей зоне производственных помещений (в холодный, переходной и теплый период года) ГОСТ 12, 1, 005-76 0,5 м/с, фактическая скорость 0,5 м/с.

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

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

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

Допустимые уровни шума (ГОСТ 12.1.003-76) 60 дБ, фактический уровень производственного шума в лабораториях составляет 60 дБ.

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

Электромагнитные и ионизирующие излучения. Не последнюю роль в создании здоровых и безопасных условиях играет и защита от электромагнитных полей в рабочих помещениях является некачественное экранирование источников излучения: индукторов, конденсаторов, трансформаторов, лазеров и т.д. постоянное воздействие электромагнитных излучений, превышающих допустимые величины, может оказать неблагоприятные влияние человека. Для количественной оценки облучения, электромагнитных полей принята интенсивность облучения, выражаемая в величинах плотности потока энергии в пространстве данного участка. Плотности потока энергии не должна превышать 1000 мкВт /см2, а при температуре воздуха выше 28°С или при наличии рентгеновского излучения- 1000 мкВт /см2.

Плотность потока энергии в лабораториях соответствует нормам.

Ионизирующие излучение которых через вещество приводит к ионизации или возбуждению его атомов или молекул. Предельно допустимые дозы для профессиональных работников 0,053 в/год. А для работающих в смежных помещениях-0,0053в/год.

В лабораториях № 302 и №304 радиоактивные вещества и источники ионизирующего излучения отсутствуют.

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

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

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

Общие положения по технике безопасности, производственной санитарии и противопожарной безопасности:

- К работе на ПЭВМ допускаются лица, изучившие настоящую инструкцию по технике безопасности на электрооборудовании, а также прошедшие инструктаж по охране труда на рабочем месте

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

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

До начала работы:

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

а) В наличии и исправности защитного заземления

б) В наличии и соответствии току предохранителей

в) В том, что все токоведущие части закрыты и недоступны для прикосновения

Во время работы:

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

- При эксплуатации ПЭВМ должны соблюдать следующие меры безопасности:

а) Запрещается снимать крышку с источника питания, производить коммутацию, вскрывать корпуса устройств ПЭВМ во включенном состоянии

a) запрещается подключение ПЭВМ к сети переменного тока 220В при неисправном кабеле сетевого питания

b) запрещается во время работы ПЭВМ замыкать и размыкать разъемные соединения

c) снятие и установка модулей в ПЭВМ необходимо производить только при отключенном питании

d) при ремонтных работах группа должна состоять из двух и более человек с квалификационной группой по электр безопасности не ниже третьей каждой

e) при ремонтных работах необходимо пользоваться паяльником на 36В с заземленным сердечником

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

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

h) ПЭВМ должна иметь винт защитного заземления, расположенный на источнике питания. Винт защитного заземления не должен иметь лакокрасочного покрытия

i) При очистке и уходе за механическими узлами ПЭВМ в обязательном порядке отключать от сети

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

По окончании работы:

-Привести в порядок рабочее место

- Отключить от сети приборы, устройства, оборудование, освещение, закрыть на задвижки окна

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

Общие требование техники безопасности:

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

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

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

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

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

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

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

Классификация помещение по степени опасности поражения электрическим током. Сопротивление заземления в лабораториях №302 и №304 соответствует нормам, сопротивление изоляции электрической сети соответствует нормам.

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

К общим мерам защиты от статического электричества можно отнести покрытие технологических полов из однослойного поливинилхлоридного

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

9. Входные данные, листинг программы

Входная информация:

Структура и комплектация компьютера, также основные средства предприятия.

Выходная информация:

Вся информация, касающаяся экспорта на Excel, также и на печать.

1-рис. Титульный лист

2-рис. Главная форма



3-рис. Добавление ОС

4-рис. Справочник.

5-рис. О программе

unit frmAE;

interface

uses

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

Dialogs, ExtCtrls, DBCtrls, DB, DBTables, StdCtrls, Buttons;

type

TForm4 = class(TForm)

Query1: TQuery;

Image1: TImage;

Label1: TLabel;

title: TLabel;

shadow: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

Label8: TLabel;

Label9: TLabel;

Label10: TLabel;

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Edit4: TEdit;

Edit5: TEdit;

Edit6: TEdit;

Edit7: TEdit;

Edit8: TEdit;

Edit9: TEdit;

Edit10: TEdit;

SpeedButton1: TSpeedButton;

SpeedButton2: TSpeedButton;

Label11: TLabel;

Edit11: TEdit;

procedure FormCreate(Sender: TObject);

procedure SpeedButton2Click(Sender: TObject);

procedure FormShow(Sender: TObject);

procedure SpeedButton1Click(Sender: TObject);

private

{ Private declarations }

public

new:boolean;

end;

var

Form4: TForm4;

edt:array[1..11] of TEdit;

implementation

uses frmMain, frmSplash;

{$R *.dfm}

procedure TForm4.FormCreate(Sender: TObject);

var i:byte;

begin

edt[1]:=edit1;

edt[2]:=edit2;

edt[3]:=edit3;

edt[4]:=edit4;

edt[5]:=edit5;

edt[6]:=edit6;

edt[7]:=edit7;

edt[8]:=edit8;

edt[9]:=edit9;

edt[10]:=edit10;

edt[11]:=edit11;

for i:=1 to 11 do edt[i].Color:=rgb(239,219,255);

Query1.DatabaseName:=ExtractFilePath(Application.ExeName)+'base';

end;

procedure TForm4.SpeedButton2Click(Sender: TObject);

begin

close();

end;

procedure TForm4.FormShow(Sender: TObject);

var i:byte;

begin

if new then

begin

title.Caption:='Жаѕа ќызметкер ќосу';

shadow.Caption:='Жаѕа ќызметкер ќосу';

SpeedButton1.Caption:='ќосу';

for i:=1 to 11 do edt[i].Text:='';

end

else

begin

title.Caption:='Ќызметкердіѕ мјліметін ґзгерту';

shadow.Caption:='Ќызметкердіѕ мјліметін ґзгерту';

SpeedButton1.Caption:='ґзгерту';

with query1.SQL do

begin

clear();

add('select * from perd');

add('where (rnn="'+Form3.Query1.FieldByName('rnn').AsString+'");');

end;

query1.Open;

edt[1].Text:=Query1.FieldByName('fio').AsString;

edt[2].Text:=Query1.FieldByName('kyzm').AsString;

edt[3].Text:=Query1.FieldByName('stazh').AsString;

edt[4].Text:=Query1.FieldByName('aylik').AsString;

edt[5].Text:=Query1.FieldByName('cont').AsString;

edt[6].Text:=Query1.FieldByName('sik').AsString;

edt[7].Text:=Query1.FieldByName('rnn').AsString;

edt[8].Text:=Query1.FieldByName('zhk').AsString;

edt[9].Text:=Query1.FieldByName('pf').AsString;

edt[10].Text:=Query1.FieldByName('univer').AsString;

edt[11].Text:=Query1.FieldByName('tk').AsString;

end;

end;

procedure TForm4.SpeedButton1Click(Sender: TObject);

var i:byte;

s:string;

begin

for i:=1 to 11 do

if edt[i].Text='' then

begin

MessageDlg('Алдымен барлыќ ґрістерді толтырыѕыз !!!', mtWarning,[mbOk], 0);

break;

exit;

end;

if new then

begin

with query1.SQL do

begin

clear();

add('insert into perd values ');

add('("'+edt[1].Text+'","'+edt[11].Text+'","'+edt[5].Text+'","'+edt[2].Text+'",'+edt[3].Text+','+edt[4].Text+

',"'+edt[7].Text+'","'+edt[6].Text+'","'+edt[9].Text+'","'+edt[8].Text+'","'+edt[10].Text+'")');

end;

Query1.ExecSQL;

end

else

begin

with Query1.SQL do

begin

clear();

add('update perd set ');

add('fio="'+edt[1].Text+'", ');

add('kyzm="'+edt[2].Text+'", ');

add('stazh='+edt[3].Text+', ');

add('aylik='+edt[4].Text+', ');

add('cont="'+edt[5].Text+'", ');

add('sik="'+edt[6].Text+'", ');

add('rnn="'+edt[7].Text+'", ');

add('zhk="'+edt[8].Text+'", ');

add('pf="'+edt[9].Text+'", ');

add('univer="'+edt[10].Text+'", ');

add('tk="'+edt[11].Text+'" where (Rnn="'+form3.Query1.FieldByName('rnn').AsString+'") and (fio="'+form3.Query1.FieldByName('fio').AsString+'");');

end;

Query1.ExecSQL;

end;

Form3.Query1.Close;

Form3.Query1.Open;

close();

end;

end.

unit frmData;

interface

uses

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

Dialogs, ExtCtrls, StdCtrls;

type

TForm6 = class(TForm)

Image1: TImage;

Label9: TLabel;

Label8: TLabel;

Label7: TLabel;

Label6: TLabel;

Label5: TLabel;

Label4: TLabel;

Label3: TLabel;

Label2: TLabel;

Label11: TLabel;

Label10: TLabel;

Label1: TLabel;

Edit9: TEdit;

Edit8: TEdit;

Edit7: TEdit;

Edit6: TEdit;

Edit5: TEdit;

Edit4: TEdit;

Edit3: TEdit;

Edit2: TEdit;

Edit11: TEdit;

Edit10: TEdit;

Edit1: TEdit;

procedure Image1Click(Sender: TObject);

procedure FormDeactivate(Sender: TObject);

procedure FormShow(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form6: TForm6;

edt:array[1..11] of TEdit;

implementation

uses frmMain, frmSplash;

{$R *.dfm}

procedure TForm6.Image1Click(Sender: TObject);

begin

close();

end;

procedure TForm6.FormDeactivate(Sender: TObject);

begin

close();

end;

procedure TForm6.FormShow(Sender: TObject);

begin

edt[1].Text:=Form3.Query1.FieldByName('fio').AsString;

edt[2].Text:=Form3.Query1.FieldByName('kyzm').AsString;

edt[3].Text:=Form3.Query1.FieldByName('stazh').AsString;

edt[4].Text:=Form3.Query1.FieldByName('aylik').AsString;

edt[5].Text:=Form3.Query1.FieldByName('cont').AsString;

edt[6].Text:=Form3.Query1.FieldByName('sik').AsString;

edt[7].Text:=Form3.Query1.FieldByName('rnn').AsString;

edt[8].Text:=Form3.Query1.FieldByName('zhk').AsString;

edt[9].Text:=Form3.Query1.FieldByName('pf').AsString;

edt[10].Text:=Form3.Query1.FieldByName('univer').AsString;

edt[11].Text:=Form3.Query1.FieldByName('tk').AsString;

edt[1].SetFocus;

end;

procedure TForm6.FormCreate(Sender: TObject);

var i:byte;

begin

edt[1]:=edit1;

edt[2]:=edit2;

edt[3]:=edit3;

edt[4]:=edit4;

edt[5]:=edit5;

edt[6]:=edit6;

edt[7]:=edit7;

edt[8]:=edit8;

edt[9]:=edit9;

edt[10]:=edit10;

edt[11]:=edit11;

for i:=1 to 11 do edt[i].Color:=rgb(239,219,255);

end;

end.

unit frmMain;

interface

uses

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

Dialogs, Grids, DBGrids, ExtCtrls, StdCtrls, DB, DBTables, Buttons,

ImgList,frmRep,QControls,types,QPrinters;

type

TForm3 = class(TForm)

Image1: TImage;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

DBGrid1: TDBGrid;

DataSource1: TDataSource;

Query1: TQuery;

SpeedButton1: TSpeedButton;

ImageList1: TImageList;

SpeedButton2: TSpeedButton;

PrintDialog1: TPrintDialog;

SaveDialog1: TSaveDialog;

SpeedButton3: TSpeedButton;

SpeedButton4: TSpeedButton;

procedure FormShow(Sender: TObject);

procedure FormHide(Sender: TObject);

procedure Label1MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Label2MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Label3MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Label4MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Label5MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Label6MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Label6Click(Sender: TObject);

procedure SpeedButton4Click(Sender: TObject);

procedure Label1Click(Sender: TObject);

procedure Label2Click(Sender: TObject);

procedure Label3Click(Sender: TObject);

procedure SpeedButton2Click(Sender: TObject);

procedure DBGrid1DblClick(Sender: TObject);

procedure Label4Click(Sender: TObject);

procedure Label5Click(Sender: TObject);

procedure SpeedButton3Click(Sender: TObject);

procedure SpeedButton1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form3: TForm3;

mnu:array[1..7] of TLabel;

st:array[0..6] of string[100];

fl:array[1..11] of string[20];

Mouse:TMouse;

implementation

uses frmSplash,frmAE,frmData,frmSearch,frmSort;

{$R *.dfm}

procedure TForm3.FormShow(Sender: TObject);

var i:integer;

begin

Query1.DatabaseName:=ExtractFilePath(Application.ExeName)+'base';

with query1.SQL do

begin

clear();

add('select * from perd order by fio');

end;

Query1.Open;

dbgrid1.Color:=rgb(239,219,255);

for i:=0 to dbgrid1.Columns.Count-1 do

dbgrid1.Columns[i].Color:=rgb(239,219,255);

label7.Font.Color:=rgb(239,219,255);

st[0]:='Ќызметкердіѕ толыќ мјліметін ќарау їшін екі рет шертіѕіз';

st[1]:='Жаѕа ќызметкер ќосу';

st[2]:='Ќызметкердіѕ мјлметін ґзгерту';

st[3]:='Ќызметкерді мјліметтер ќорынан ґшіру';

st[4]:='Ќызметкерлерді јр тїрлі параметрі бойынша іздеу';

st[5]:='Ќызметкерлер тізімін сўрыптау';

st[6]:='Бастапќы терезеге ќайтып оралу';

mnu[1]:=label1;

mnu[2]:=label2;

mnu[3]:=label3;

mnu[4]:=label4;

mnu[5]:=label5;

mnu[6]:=label6;

mnu[7]:=Label7;

fl[1]:='Аты-жґні';

fl[2]:='Ќызметі';

fl[3]:='Мекен-жайы';

fl[4]:='Стажы';

fl[5]:='Айлыєы';

fl[6]:='СИК';

fl[7]:='РНН';

fl[8]:='Жеке кујлігі';

fl[9]:='Зейнет ќоры';

fl[10]:='Бітірген оќу орны';

fl[11]:='Туєан кїні';

end;

procedure TForm3.FormHide(Sender: TObject);

begin

Form1.Show;

end;

procedure mm(ind:byte);

var i:byte;

begin

for i:=1 to 6 do mnu[i].Font.Style:=[fsBold];

if ind<>0 then mnu[ind].Font.Style:=[fsUnderline,fsBold];

mnu[7].caption:=st[ind];

end;

procedure TForm3.Label1MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

mm(1);

end;

procedure TForm3.Label2MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

mm(2);

end;

procedure TForm3.Label3MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

mm(3);

end;

procedure TForm3.Label4MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

mm(4);

end;

procedure TForm3.Label5MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

mm(5);

end;

procedure TForm3.Label6MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

mm(6);

end;

procedure TForm3.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

mm(0);

end;

procedure TForm3.Label6Click(Sender: TObject);

begin

Hide.

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