Реферат Системное и прикладное программное обеспечение, используемое в организации
Работа добавлена на сайт bukvasha.net: 2015-10-28Поможем написать учебную работу
Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
Предоплата всего
от 25%
Подписываем
договор
ГОУ СПО Волоколамский техникум экономики и права
ТЕХНИЧЕСКИЙ ОТЧЕТ
о производственной практике
Студента____Четвертого___________курса, группа_____Т – 4_______________________
Фамилия______Лысова_________________________________________
_______________
Имя_______Антона____________________________________________
_______________
Отчество___Владимировича____________________________________
________________
Место практики___Спасская средняя школа______________________________________
Характер практики_________Преддипломная______________________________
________________
Период практики с__13.04.2005_________________по__31.05.2005_________________
Оценка_____________________________ Оценка__________________________________
Оглавление
1. Введение
2. Краткая характеристика объекта производственной практики с кратким перечнем работ настоящей практики.
3. Техника безопасности.
4. Материально-техническая база предприятия.
5. Системное и прикладное программное обеспечение, используемое в организации
6. Выполнявшиеся на месте практики обязанности практиканта.
7. Список работ, выполненных мной в период прохождения преддипломной практики.
8. Детальное описание изученных на практике производственных вопросов и работ
9. Вывод.
10. Индивидуальное задание
11. Приложения
Введение
Я, Лысов Антон Владимирович, студент Волоколамского Техникума Экономики и Права группы Т-4 тринадцатого мая 2010 года был направлен в Спасскую среднюю школу для прохождения преддипломной практики. Прохождение практики началось с собрания, посвященного правилам прохождения преддипломной практики. На собрании я был ознакомлен со всеми особенностями и правилами прохождения преддипломной практики, а также основными датами проведения консультаций и сдачи готового отчета и дневника. Были установлены нормы содержания отчета по прохождению практики. Был ознакомлен с правилами ведения дневника. После проведенного инструктажа прибыл на место прохождения практики. На рабочем месте был назначен выполнять обязанности помощника директора по информационным технологиям.
Режим работы в Спасской средней школе установлен в пределах:
– Начало работы – 8 часов 30 минут, окончание работы – 15 часов 00 минут, окончание работы в пятницу – 13 часов 00 минут. Накануне праздничных дней, продолжительность работы сокращается на один час.
Краткая характеристика объекта преддипломной практики с кратким перечнем работ настоящей практики.
Вся основная работа кабинета информационных технологий заключалась в:.
1. компьютерная машинопись.
2. сканирование.
3. получение документов через электронную почту.
4. получение документов по факсу.
5. редактирование сайта школы.
6. отправка документов через электронную почту.
7. отправка документов по факсу.
8. обнаружение и устранение неполадок в ПК.
Техника безопасности
После ознакомления с должностными инструкциями всех сотрудников приступил к изучению правил техники безопасности на конкретном рабочем месте.
В качестве этих правил является документ по охране труда для пользователей персональными электронно-вычислительными машинами (ПЭВМ) и видеодисплейными терминалами (ВДТ).
1. ОБЩИЕ ТРЕБОВАНИЯ ПОЖАРНОЙ БЕЗОПАСНОСТИ
1.1. Взрослые пользователи ЭВМ и ВДТ допускаются к работе после прохождения предварительного (при поступлении на работу) и периодических медицинских осмотров в порядке и сроки, установленные органами здравоохранения и санэпидслужбы.
1.2. К работе на ПЭВМ и ВДТ допускаются лица, прошедшие инструктаж на рабочем месте, обучение и проверку знании по охране труда, электробезопасности.
1.3. Пользователи ПЭВМ и ВДТ должны соблюдать режим работы труда и отдыха согласно требованиям СанПиН 2.2.2./2.4.1340-03.
1.4. Женщины в период беременности и кормления ребенка не допускаются к работе на ПЭВМ и ВДТ.
1.5. Опасные производственные факторы:
• поражение электрическим током при прикосновении к токоведущим частям;
• неправильный выбор визуальных эргономических параметров ПЭВМ и ВДТ.
2.ТРЕБОВАНИЯ БЕЗОПАСНОСТИ ПЕРЕД НАЧАЛОМ РАБОТЫ
2.1. При использовании защитных экранов, фильтров и других устройств индивидуальной защиты ознакомиться с правилами работы с ними.
2.2. Проверить состояние рабочего места и его оборудования на соответствие требованиям СанПиН 2.2.2./2.4.1340-03.
2.3. Подготовить рабочее место с ВДТ и ПЭВМ в соответствии с выполняемой работой.
З. ТРЕБОВНИЯ БЕЗОПАСНОСТИ ВО ВРЕМЯ РАБОТЫ
3.1. Руководствоваться указаниями по эксплуатации ПЭВМ и ВДТ.
3.2. Выбрать и поддерживать оптимальные значения визуальных эргономических параметров ПЭВМ и ВДТ и параметров организации всех элементов рабочего места на протяжении всего рабочего дня.
3.3. Соблюдать режим труда и отдыха, определенный СанПиНом
2.2.272.4.1340-03
3.4. Соблюдать меры электробезопасности.
4.ТРЕБОВАНИЯ БЕЗОПАСНОСТИ В АВАРИЙНЫХ СИТУАЦИЯХ
4.1. При появлении запаха гари, дыма или возгорания принять меры по обнаружению места, источника и его ликвидации, а при необходимости сообщить руководству организации и вызвать пожарную службу.
4.2. При обнаружении нарушений в работе ПЭВМ и ВДТ, в других блоках и приспособлениях обесточить их и не включать в электросеть до устранения неполадок.
5.ТРЕБОВАНИЯ БЕЗОПАСНОСТИ ПО ОКОНЧАНИИ РАБОТЫ
5.1. Выключить ПЭВМ и ВДТ или перевести их в другой режим работы, если это требует программа, отключить сеть электропитания.
5.2. Отключить вспомогательные устройства и системы.
5.3. Привести в порядок рабочее место.
Материально-техническая база предприятия
Компьютеры имеют следующие характеристики:
• Блоки питания – от 200 W до 300 W;
• Процессоры –от Intel 80486 66 MHz до Intel Pentium IV 2,8 GHz;
• Объем оперативной памяти варьируется от 4 Mb до 1 Gb;
• Объем жестких дисков – начиная от 140 Mb и заканчивая 80 Gb;
• Мониторы с диагональю от 14” до 17”;
• Накопители на компакт-дисках – CD-ROM, а также устройства записи и перезаписи компакт- и DVD-дисков – DVD+RW;
• Видеоадаптеры, начиная от простых - от 1 Mb и заканчивая видеокартами семейства NVidia GeForce FX 5600 128Mb;
• Мыши обыкновенные роликовые или оптические;
• Принтеры делятся на:
o Матричные:
▪ Epson LQ 1070/1080/1050/1170/1180/100/300+ и т.п. Средняя скорость печати таких принтеров около 2 страниц печатного текста в минуту;
o Струйные:
▪ Hewlett Packard DeskJet 620C/640C/3650;
▪ Epson BJC X20/40UX/4550;
Струйные принтеры относятся к среднему классу печати черно-белого текста, при наличии цветных чернил возможна печать картинок, фотографий и графических объектов. Средняя скорость печати струйного принтера черно-белого изображения от 5 до 17 страниц в минуту.
o Лазерные:
▪ Hewlett Packard LaserJet 4L/5L/6L/1000/1100/1200/1300 и совместимые;
▪ Samsung 1210/1220;
▪ Принтеры фирмы «Xerox»;
▪ А также партнеров организации – принтеры фирмы «МВ»;
Лазерные принтеры считаются самым экономичным вариантом для любого офиса, Скорость печати лазерного принтера очень высока и может достигать 35 страниц в минуту, наряду с этим время прогревания может уменьшаться до 0,5 секунды.
• Сканеры – не самый популярный вид компьютерного оборудования, но незаменим при большом количестве набираемом тексте. В организации имеются планшетные сканеры 2-х производителей:
o Первый, довольно устаревший и испорченный временем, сканер фирмы Microtek – немалых габаритов и большой массы, имеет разрешение 300 точек на дюйм, передача цвета – около 65 тысяч оттенков.
o Еще один сканер, более нового поколения, был выпущен в свет фирмой Hewlett Packard марки 2200 – благодаря современному оборудованию приобрел значительное уменьшение в весе и габаритах, причем максимальное разрешение увеличилось до 600 точек на дюйм, а передача цвета улучшилась до 16,5 миллионов оттенков.
Факсы.
Факсимильные аппараты (Panasonic) почти ничем не отличается внешне от обыкновенного телефонного аппарата (не смотря на увеличенные размеры), и, учитывая, что в нем добавлено несколько кнопок управления факсами.
Скорость стандартного факсимильного аппарата зачастую зависит от качества телефонной линии и может достигать 33 600 Кбит/сек.
Копировальные аппараты.
Это большой (около метра), скоростной автоматический многофункциональный цифровой ксерокс фирмы Konica 7022.
Данный аппарат оснащен импульсивным жидкокристаллическим дисплеем, при нажатии на конкретный пункт меню выполняется определенное действие.
Этот ксерокс способен производить копии оригиналов формата А3-А6, увеличивать/уменьшать размер оригинала от 50% до 200%, может выводить изображение одновременно с двух сторон, имеет встроенную память на 8 Mb
Системное и прикладное программное обеспечение, используемое в организации.
В связи с тем, что любое Муниципальное учреждение включает в себя множество различных субъектов, специализирующихся разными видами услуг и работ, в нем, соответственно, имеется различное программное обеспечение. Это объясняется еще и тем, что в этой организации имеется техника со значительным разбросом системных параметров, которые ограничивают возможности установки того или иного программного обеспечения на данный персональный компьютер. Вот перечень системного программного обеспечения, которое встречается в организации:
• Microsoft Windows 98 SE;
• Microsoft Windows Millennium Edition;
• Microsoft Windows 2000 Professional Server;
• Microsoft Windows XP Professional.
С каждым годом устаревшее ПО и компьютеры меняются.
Далее, учитывая конфигурацию персонального компьютера, установлено следующее программное обеспечение:
• Обязательный стандартный набор установленных программ:
o WinRAR и WinZip– программы архивирования данных для компактного архивного хранения информации и ее переноса на другие носители информации.
o Doctor Web или Антивирус Касперского – антивирусные пакеты для поиска, лечения и профилактики компьютера от программ-вирусов.
o Microsoft Office XP, 2003, 07 или ниже – пакет приложений для офиса, состоящий из:
▪ Microsoft Word – несложный и функциональный текстовый редактор;
▪ Microsoft Excel – электронные таблицы с функциями построения графиков функций, диаграмм и многого другого;
▪ Microsoft Access – система управления базами данных
• Программы, устанавливаемые в зависимости от рода деятельности пользователя:
o 1С: Бухгалтерия – программа для учета и анализа бухгалтерского учета;
o Консультант Плюс – правовая система, содержащая в себе правовую информацию (законы, статьи, ссылки, правовые акты);
• Программы, используемые для профессионального использования:
o Adobe Fine Reader– программа распознавания изображений;
o Adobe Acrobat Reader– текстовый процессор, работающий с файлами с расширением *.PDF;
o Adobe Photoshop– графический редактор, позволяющий создавать, редактировать и преобразовывать графические изображения;
o Ahead Nero Burning Rom– лучшая программа для составления и записи CD и DVD дисков;
• А также программы созданные специально для Муниципальных объектов Российской Федерации:
o Программный Комплекс «Аренда» - создан для регистрации и учета земельных участков, находящихся как в собственности, так и в аренде;
o Контроль ДГР – система регистрации, поиска и ввода документов в базе данных;
o DMail – программа для получения электронной почты через сервер почтовых сообщений.
Выполнявшиеся на месте практики обязанности практиканта
Основные обязанности:
- обеспечение приема-передачи служебной информации по каналам связи с использованием факсимильного аппарата;
- обеспечивать работу по ксерокопированию и размножению необходимой информации.
- вести учет проведенной работы на копировальном аппарате.
- выполнять поручения директора школы.
- Устранять неполадки в работе ПК.
Список работ, выполненных мной в период прохождения преддипломной практики
К списку должностных обязанностей также относится обеспечение стабильной работы компьютеров и оргтехники, чем я в основном и занимался.
1. Выполнил работу, связанную с автоматизацией школы. Работа заключалась в сборке компьютеров, их подключение и настройка, также, оснащение их необходимым набором программ. Следующим шагом была подключение и настройка компьютеров в работе в локальной сети, к которой также подключена вся школа.
2. Проведение профилактических работ (плановый осмотр). Данные работы заключались в проведении осмотра персональных, выявление ошибок, их устранение. Также в проведение профилактических работ заключалась проверка компьютеров на наличие вирусов и их устранение.
3. Проведение анализа предметной области и выполнение постановки задачи на индивидуальное задание в период прохождения преддипломной практики, сбор концептуальных требований
4. Разработка и проектирование индивидуального задания на период прохождения преддипломной практики. Для ведения контроля исполнения документов в общем отделе было предложено разработать специализированную программу, которая отвечала бы необходимым требованиям.
Детальное описание изученных на практике производственных вопросов и работ:
За время прохождения преддипломной практики наиболее трудоемкими и интересными мне явились работы по автоматизации школы.
Работа по оснащению компьютерами проводилась в несколько этапов, так как являлась довольно длительной. В школе находился один компьютер, на котором выполнялись основные работы по учету документации, установке наборов программного обеспечения и др. В школе проводились ремонтные работы, в ходе которых неисправные аппаратные средства либо чинились вручную, либо заменялись другими (исправными). Для снятия нагрузки с главного компьютера было решено собрать из имеющихся запчастей еще один компьютер. В результате работы по сборке компьютера была составлена база аппаратных средств, которые могли бы быть использованы в дальнейшем и те, которые не подлежат использованию. После длительных работ по сборке персонального компьютера было решено из оставшихся аппаратных средств собрать еще один компьютер. Параллельно со сборкой второго компьютера мной проводилась установка на «новый» компьютер необходимого программного обеспечения. В соответствии с характеристиками «Воскрешенного» компьютера было решено ставить операционную систему Microsoft Windows ХР. После этого установил необходимый пакет драйверов. Следующим шагом было подключение компьютера к имеющейся в школе локальной сети. Из-за неимения «готовых» кабелей (витая пара) пришлось создавать новые. После проведенной работы проверил работоспособность кабеля на новом компьютере.
Вывод.
Во время прохождения преддипломной практики в Спасской средней школе с неустранимыми проблемами сталкиваться не приходилось. В основном, думаю, как и практически везде, основная проблема – нехватка аппаратного обеспечения, а также средств на их закупку. Вторая проблема – мало опыта в разработке своих программ
Работать помощником директора по информационным технологиям мне показалось довольно интересно и занятно. За время прохождения преддипломной практики я узнал много нового и осознал, что из себя представляет организованное управление. Я получил возможность пользоваться высокотехнологичными средствами. Работа в данной организации не трудная, но требующая полной отдачи. Со стороны руководства упреков не было, наоборот было предложение остаться на работе (продолжать работать дальше).
Индивидуальное задание
В период прохождения преддипломной практики я был ознакомлен с программой «Контроль ДГР», написанную специально для Общего отдела Администрации Волоколамского района. Данная программа предназначена для ведения учета документов. Из-за отсутствия спонсирования дальнейшая разработка программы была прекращена. Общий отдел довольствовался имеющейся программой по учету документации.
Поступающие Распоряжения или Постановления подлежат учету о их исполнении. Эти документы имеют свой срок исполнения. Таким образом, документ передается исполнителю, который в свою очередь передает его другому лицу (ответственному за исполнение документа), после чего в Общий отдел поступает информация о исполнении данного документа к определенному сроку. Если документ к сроку не был исполнен, происходит выяснение причин, по которым ответственный за исполнение документа не выполнил его в срок и его наказание. Из-за отсутствия возможности регистрировать данный процесс на бумаге или в уме, некоторые документы не выполняются, или, хуже того, теряются.
Для автоматизации процесса контроля над исполнением документов начальником Общего отдела и Первым заместителем главы Волоколамского района мне было предложено заняться разработкой программы, которая отвечала бы требованиям Общего отдела.
Данная программа должна вести учет всех документов, подлежащих исполнению, причем учет должен вестись по определенным правилам. Учету подлежит:
• Тип документа (постановление или распоряжение).
• Номер документа (Определенный для Общего отдела).
• Дата регистрации документа (в Общем отделе).
• Текущий номер (документы, созданные машинистками Общего отдела нумеруются по специальному правилу).
• Содержание документа (краткое описание документа).
• Ключевое слово (особая пометка, например, название).
• Исполнитель.
• Ответственный за исполнение.
• Состояние (исполнено или не исполнено).
• Дата исполнения (если исполнено).
Вся эта информация заносится в базу данных, где хранится и изменяется по мере движения документации. К определенному периоду должен создаваться отчет, в котором должны отображаться все неисполненные документы. Данная программа также должна реализовывать поиск документов, подлежащих учету, по ключевому слову.
Программа при запуске выводит информационное окно, демонстрирующее название программы.
[pic]
После того как окно пропадет, пользователю предоставляется рабочее окно программы, с которым в дальнейшем будет работать пользователь
[pic]
В этой программе предоставлены пункты меню:
1. Поставить на контроль, в котором пользователь будет регистрировать документы
[pic]
2. Просмотр. В этом пункте меню пользователь сможет редактировать, просматривать и выполнять поиск документов
[pic]
3. Отчет. В этом пункте будет создаваться отчет
[pic]
4. Справка. О программе
Приложение.
Правила техники безопасности
После ознакомления с должностными обязанностями и организационной структуры Администрации Волоколамского района я был ознакомлен с правилами техники безопасности. В основе этих правил лежит документ
«Гигиенические требования к персональным электронно-вычислительным машинам и организации работы». Данный СанПиН 2.2.2/2.4.1340-03 введен взамен СанПиН 2.2.2.542-96 «Гигиенические требования к видеодисплейным терминалам, персональным электронно-вычислительным машинам и организации работы».
Этот документ включает в себя следующие пункты:
1. Общие положения и область применения;
2. Требования к ЭВМ;
3. Требования к помещениям для работы с ЭВМ;
4. Требования к микроклимату, содержанию аэроионов и вредных химических веществ в воздухе на рабочих местах, оборудованных ЭВМ;
5. Требования к уровням шума и вибрации на рабочих местах, оборудованных ЭВМ;
6. Требования к освещению на рабочих местах, оборудованных ЭВМ;
7. Требования к уровням электромагнитных полей на рабочих местах, оборудованных ЭВМ;
8. Требования к визуальным параметрам ВДТ, контролируемым на рабочих местах;
9. Общие требования к организации рабочих мест пользователей ЭВМ;
10. Требования к организации и оборудованию рабочих мест в ЭВМ для взрослых пользователей;
11. Требования к организации и оборудованию рабочих мест с ЭВМ для обучающихся в общеобразовательных учреждениях и учреждениях начального и высшего профессионального образования;
12. Требования к оборудованию и организации помещений с ЭВМ для детей дошкольного возраста;
13. Требования к организации медицинского обслуживания пользователей ЭВМ;
14. Требования к проведению государственного санитарно-эпидемиологического надзора и производственного контроля.
ДОЛЖНОСТНЫЕ ОБЯЗАННОСТИ (в приложение)
Главного специалиста (системного администратора)
Отдела информационных систем
Администрации Волоколамского района
• Основные обязанности главного специалиста (системного администратора) отдела информационных систем администрации Волоколамского района, которые я выполняю, определены статьей 22 Закона Московской области "О муниципальных должностях и муниципальной службе в Московской области".
• Вопросы, находящиеся в ведении главного специалиста (системного администратора) отдела информационных систем администрации Волоколамского района:
• Осуществляет перечень работы, определяемый Центральной избирательной комиссией, избирательной комиссией Московской области, территориальной избирательной комиссией Волоколамского района и Главой Волоколамского района, с использованием комплекса средств автоматизации территориальной избирательной комиссии, функционирующей в составе Государственной автоматизированной системы РФ «Выборы» (КСА ТИК ГАС «Выборы»).
• Организует работу по проведению выборов и референдумов на территории Волоколамского района;
• Совместно со структурными подразделениями администрации района занимается информатизацией их деятельности;
• Обеспечивает прием-передачу служебной информации по каналам связи с использованием программно-аппаратных средств абонентского места электронной почты;
• Оказывает помощь в освоении нового программного обеспечения структурными подразделениями администрации Волоколамского района;
• Оказывает помощь в оформлении поздравительных текстов;
• Обеспечивает ремонт и проводит модернизацию компьютерной техники находящейся в ведении отдела информационных систем;
• Организует совместно с отделом бухгалтерского учета и отчетности учет используемой в администрации Волоколамского района вычислительной техники, иного оборудования; осуществляет программное обеспечение и соответствующее обслуживание.
• Организует разработку, развитие и поддержку систем информационного обеспечения деятельности администрации Волоколамского района и территориальных администраций, сельских округов и поселков.
• Производит установку программного обеспечения на ПК в структурных подразделениях администрации Волоколамского района;
Оказывает помощь в разработке и закупке программного обеспечения необходимого для эффективной работы в структурных подразделениях администрации Волоколамского района.
Листинг программы
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, StdCtrls, DB, DBTables, ExtCtrls, ShellApi ;
type
TForm1 = class(TForm)
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N7: TMenuItem;
Button1: TButton;
Label1: TLabel;
DataSource1: TDataSource;
Table1: TTable;
N5: TMenuItem;
N6: TMenuItem;
N8: TMenuItem;
N9: TMenuItem;
N10: TMenuItem;
N11: TMenuItem;
procedure N7Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure N10Click(Sender: TObject);
procedure N11Click(Sender: TObject);
procedure N8Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
vremia:string;
implementation
uses Unit2, Unit3, Unit4, Unit5, Unit6, FMPRINTU;
{$R *.dfm}
procedure TForm1.N7Click(Sender: TObject);
begin
close;
end;
procedure TForm1.N2Click(Sender: TObject);
begin
form1.visible:=false;
form2.Show;
end;
procedure TForm1.N4Click(Sender: TObject);
begin
form1.visible:=false;
form3.Show;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
a1,b:integer;
count:integer;
flag:boolean;
begin
flag:=false;
count:=0;
a1:=0;
form1.Table1.Active:=true;
vremia:=DateToStr(Now);
label1.Caption:=vremia;
b:=form2.Table1.FieldCount;
form2.Table1.First;
for a1:=0 to b do
begin
form2.Table1.next;
if form2.Table1.FieldByName('Ispolnit_d').AsString=vremia then
begin
count:=count+1;
flag:=true;
end;
end;
if flag=true then
begin
count:=count-1;
application.MessageBox('Найдены неисполненные документы','Предупреждение',MB_iconwarning);
end;
end;
procedure TForm1.N10Click(Sender: TObject);
begin
ShellExecute(Handle,Nil,'SYS.doc',nil,nil,sw_restore);
end;
procedure TForm1.N11Click(Sender: TObject);
begin
AboutBox.show;
end;
procedure TForm1.N8Click(Sender: TObject);
begin
//form2.table1.indexname:='sostoyanie';
form2.table1.filtered:=true;
fmprint:=Tfmprint.Create(self);
fmprint.QuickRep1.Preview;
fmprint.Free;
form2.table1.Filtered:=false;
end;
end.
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, DBTables, StdCtrls, ExtCtrls, Grids, DBGrids, ComCtrls;
type
TForm2 = class(TForm)
DataSource1: TDataSource;
Table1: TTable;
ComboBox1: TComboBox;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Edit2: TEdit;
Label4: TLabel;
Edit3: TEdit;
Label5: TLabel;
ComboBox2: TComboBox;
Label6: TLabel;
Label7: TLabel;
ComboBox3: TComboBox;
Bevel1: TBevel;
Button1: TButton;
Button2: TButton;
DateTimePicker1: TDateTimePicker;
DateTimePicker2: TDateTimePicker;
Edit1: TEdit;
Label9: TLabel;
ComboBox4: TComboBox;
Label10: TLabel;
Label8: TLabel;
Edit4: TEdit;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form2: TForm2;
implementation
uses Unit1;
{$R *.dfm}
procedure TForm2.Button1Click(Sender: TObject);
begin
form2.TABLE1.EDIT;
form2.TABLE1.APPEND;
form2.table1.FieldByName('Tip').asstring:=combobox1.Text;
form2.table1.FieldByName('DATA_ROBSH').AsDateTime:=DateTimePicker1.date;
form2.table1.FieldByName('Nomer').asstring:=edit2.text;
form2.table1.FieldByName('Nomer_mash').asstring:=edit1.text;
form2.table1.FieldByName('Soderg').asstring:=edit3.text;
form2.table1.FieldByName('Kluch_slov').asstring:=edit4.text;
form2.table1.FieldByName('ispolnitel').asstring:=combobox2.Text;
form2.table1.FieldByName('Kontrol_F').asstring:=combobox4.Text;
form2.table1.FieldByName('Ispolnit_d').AsDateTime:=DateTimePicker2.date;
form2.table1.FieldByName('Sostoyanie').asstring:=combobox3.Text;
form2.table1.post;
edit2.Text:='';
edit3.Text:='';
edit4.Text:='';
combobox1.Text:='';
combobox2.Text:='';
combobox3.Text:='';
end;
procedure TForm2.FormCreate(Sender: TObject);
begin
table1.Active:=true;
end;
procedure TForm2.Button2Click(Sender: TObject);
begin
form2.visible:=false;
form1.Show;
end;
procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
form2.visible:=false;
form1.Show;
end;
end.
unit Unit3;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, DB, DBTables, Grids, DBGrids, Mask, DBCtrls, ExtCtrls;
type
TForm3 = class(TForm)
Button1: TButton;
Button2: TButton;
Button3: TButton;
Edit1: TEdit;
Button4: TButton;
Label1: TLabel;
Label2: TLabel;
DBEdit1: TDBEdit;
Label3: TLabel;
DBEdit2: TDBEdit;
Label4: TLabel;
DBEdit3: TDBEdit;
Label5: TLabel;
DBEdit4: TDBEdit;
Label6: TLabel;
DBEdit5: TDBEdit;
Label7: TLabel;
DBEdit6: TDBEdit;
Label8: TLabel;
DBEdit7: TDBEdit;
Label9: TLabel;
DBEdit8: TDBEdit;
DBNavigator1: TDBNavigator;
DataSource1: TDataSource;
Label10: TLabel;
Label11: TLabel;
Bevel1: TBevel;
Label13: TLabel;
DBEdit9: TDBEdit;
Label14: TLabel;
DBEdit10: TDBEdit;
Label15: TLabel;
DBEdit11: TDBEdit;
DBGrid1: TDBGrid;
Query1: TQuery;
Button7: TButton;
Edit2: TEdit;
DataSource2: TDataSource;
Label12: TLabel;
Button5: TButton;
procedure Button1Click(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure Button7Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form3: TForm3;
parol:string;
MyFile: TextFile;
implementation
uses Unit1, Unit2, FMPRINTU;
{$R *.dfm}
procedure TForm3.Button1Click(Sender: TObject);
begin
form3.visible:=false;
form1.Show;
form2.table1.Filtered:=false;
end;
procedure TForm3.FormShow(Sender: TObject);
begin
form2.TABLE1.EDIT;
form2.table1.post;
button2.Visible:=false;
button4.Visible:=false;
edit1.Visible:=false;
label1.Visible:=false;
form2.table1.active:=true;
end;
procedure TForm3.Button3Click(Sender: TObject);
begin
edit1.Visible:=true;
button4.Visible:=true;
label1.Visible:=true;
//button2.Visible:=true;
end;
procedure TForm3.Button4Click(Sender: TObject);
begin
parol:='Волоколамск';
if edit1.Text=parol then
button2.Visible:=true
else
begin
showmessage('Неверный пароль');
button2.Visible:=false;
button4.Visible:=false;
edit1.Visible:=false;
label1.Visible:=false
end;
end;
procedure TForm3.Button5Click(Sender: TObject);
begin
dbgrid1.DataSource:=datasource1;
form2.table1.filtered:=true;
end;
procedure TForm3.Button2Click(Sender: TObject);
begin
form2.Table1.delete;
end;
procedure TForm3.Button6Click(Sender: TObject);
begin
form2.table1.Filtered:=false;
end;
procedure TForm3.Button7Click(Sender: TObject);
var z:string;
begin
dbgrid1.DataSource:=datasource2;
z:='select * from BAZA where ';
z:=z + 'Kluch_slov like ' + '"'+edit2.Text+'%"';
Query1.SQL.clear;
Query1.SQL.Add(z);
Query1.Active:=true;
end;
procedure TForm3.FormClose(Sender: TObject; var Action: TCloseAction);
begin
form3.visible:=false;
form1.Show;
form2.table1.Filtered:=false;
end;
end.
unit Unit4;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, QuickRpt, DB, Grids, DBGrids, QRCtrls, Menus,
registry, jpeg;
type
TForm4 = class(TForm)
Timer1: TTimer;
Image1: TImage;
UserName: TLabel;
Organization: TLabel;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure Timer1Timer(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form4: TForm4;
implementation
uses Unit1, Unit2, Unit3;
{$R *.dfm}
procedure TForm4.Button1Click(Sender: TObject);
begin
form4.visible:=false;
form1.Show;
end;
procedure TForm4.Button2Click(Sender: TObject);
begin
form4.visible:=false;
form1.Show;
form2.table1.Filtered:=false;
end;
procedure TForm4.N2Click(Sender: TObject);
begin
form4.Print;
end;
procedure TForm4.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
close;
end;
procedure TForm4.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
close;
end;
procedure TForm4.Timer1Timer(Sender: TObject);
begin
close;
end;
procedure TForm4.FormClose(Sender: TObject; var Action: TCloseAction);
begin
action:=cafree;
end;
procedure TForm4.FormCreate(Sender: TObject);
var r:Tregistry;
product:tregistry;
begin
product:=tregistry.Create;
r:=TRegistry.Create;
product.RootKey:=HKEY_LOCAL_MACHINE;
r.RootKey:=HKEY_LOCAL_MACHINE;
product.OpenKey('SOFTWARE\Microsoft\Windows NT\CurrentVersion',false);
if product.ReadString('ProductName')='Microsoft Windows XP' then
begin
r.OpenKey('SOFTWARE\Microsoft\Windows NT\CurrentVersion',false);
UserName.Caption:=r.ReadString('RegisteredOwner');
Organization.Caption:=r.ReadString('RegisteredOrganization');
r.Free;
product.free;
end
else
begin
r.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion',false);
UserName.Caption:=r.ReadString('RegisteredOwner');
Organization.Caption:=r.ReadString('RegisteredOrganization');
r.Free;
product.free;
end;
form4.showmodal;
end;
end.
-----------------------
Руководитель практики
от предприятия
(должность, Ф.И.О.)
___________________________
(подпись и печать)
Дата_______________________
Руководитель практики
от техникума
(должность, Ф.И.О.)
___________________________
(подпись и печать)
Дата_______________________
