 |
Ознакомление с центром информационных технологий. Организационная и экономическая характеристика предприятия
|
|
|
|
2. Производственные экскурсии. Организация охраны труда, окружающей среды и энергосбережения на предприятии
. Производственная работа на штатных рабочих местах. Характеристика программного и системного программного обеспечения на предприятии
. Изучение технологического процесса обработки информации
Характеристика технических средств сбора и обработки информации
Организация документооборота на предприятии
Организация межсетевого взаимодействия по обмену информацией
Анализ средств защиты информации
Заключение
Приложение А. Код программы
Ознакомление с центром информационных технологий. Организационная и экономическая характеристика предприятия
Изучила основные данные, характеризующие деятельность предприятия в соответствии с его Уставом и Учредительными документами, правила техники безопасности, организационную структуру предприятия, методы управления подразделением, формы и системы оплаты труда, систему материально-технологического обеспечения производства, так же был проведен инструктаж по технике безопасности. В период прохождения практики были закреплены и расширены знания, полученные при изучении специальных предметов, приобретены профессиональные умения по специальности, практический опыт в условиях трудового коллектива, организаторских умений и навыков в области управления, экономики и планирования производства, развито профессиональное мышление и профессиональная самостоятельность.
2 Производственные экскурсии. Организация охраны труда, окружающей среды и энергосбережения на предприятии
программный системный информация
Общие требования безопасности
|
|
|
Настоящая инструкция по охране труда программиста, занятого эксплуатацией персональных электронно-вычислительных машин (ПЭВМ) и видеодисплейных терминалов ВДТ (далее программистов), разработана с учетом условий его работы в конкретной организации - ООО «Транссервискарс».
На программиста могут воздействовать опасные и вредные производственные факторы:
а) физические:
повышенные уровни электромагнитного излучения;
повышенные уровни рентгеновского излучения;
повышенные уровни ультрафиолетового излучения;
повышенный уровень инфракрасного излучения;
повышенный уровень статического электричества;
повышенные уровни запыленности воздуха рабочей зоны;
повышенное содержание положительных аэроионов в воздухе рабочей зоны;
пониженное содержание отрицательных аэроионов в воздухе рабочей зоны;
пониженная или повышенная влажность воздуха рабочей зоны;
пониженная или повышенная подвижность воздуха рабочей зоны;
повышенный уровень шума;
повышенный или пониженный уровень освещенности;
повышенный уровень прямой блесткости;
повышенный уровень отраженной блесткости;
повышенный уровень ослепленности;
неравномерность распределения яркости в поле зрения;
повышенная яркость светового изображения;
повышенный уровень пульсации светового потока;
повышенное значение напряжения в электрической цепи, замыкание которой может произойти через тело человека;
б) химические:
повышенное содержание в воздухе рабочей зоны двуокиси углерода, озона, аммиака, фенола, формальдегида и полихлорированных бифенилов;
психофизиологические:
напряжение зрения;
напряжение внимания;
интеллектуальные нагрузки;
эмоциональные нагрузки;
длительные статические нагрузки;
монотонность труда;
большой объем информации, обрабатываемой в единицу времени;
нерациональная организация рабочего места;
|
|
|
в) биологические:
повышенное содержание в воздухе рабочей зоны микроорганизмов.
К работам программистом допускаются:
лица не моложе 18 лет, прошедшие обязательный при приеме на работу и ежегодные медицинские освидетельствования на предмет пригодности для работы;
прошедшие вводный инструктаж по охране труда;
прошедшие обучение безопасным приемам и методам труда по программе, утвержденной руководителем предприятия (работодателем), разработанной на основе Типовой программы, и прошедшие проверку знаний, в том числе по электробезопасности;
прошедшие курс обучения на персональном компьютере с использованием конкретного программного обеспечения;
прошедшие инструктаж по охране труда на конкретном рабочем месте по данной инструкции.
Программист должен быть обеспечен СИЗ в соответствии с Правилами обеспечения работников специальной одеждой, специальной обувью и другими средствами индивидуальной защиты; выдаваемые работникам средства индивидуальной защиты должны соответствовать характеру и условиям работы и обеспечивать безопасность труда. Не допускается приобретение и выдача работникам средств индивидуальной защиты без сертификата соответствия.
Характеристика выданных СИЗ (номенклатура, срок выдачи и нормы соответствия) устанавливается из личных карточек работников, занятых на определенном рабочем месте.
Нормативные номенклатура и сроки выдачи СИЗ определяются согласно Типовым отраслевым нормам бесплатной выдачи рабочим и служащим специальной одежды, специальной обуви и других СИЗ.
Требования безопасности перед началом работы
Перед началом работы программист обязан:
осмотреть и привести в порядок рабочее место;
отрегулировать освещенность на рабочем месте, убедиться в достаточности освещенности, отсутствии отражений на экране, отсутствии встречного светового потока;
проверить правильность подключения оборудования в электросеть;
протереть специальной салфеткой поверхность экрана;
убедиться в отсутствии дискет в дисководах процессора персонального компьютера;
проверить правильность установки стола, стула, подставки для ног, пюпитра, положения оборудования, угла наклона экрана, положение клавиатуры и, при необходимости, произвести регулировку рабочего стола и кресла, а также расположение элементов компьютера в соответствии с требованиями эргономики и в целях исключения неудобных поз и длительных напряжений тела.
|
|
|
При включении компьютера соблюдать правила электробезопасности.
Программисту запрещается приступать к работе при:
отсутствии на ВДТ гигиенического сертификата, включающего оценку визуальных параметров;
отсутствии информации о результатах аттестации условий труда на данном рабочем месте или при наличии информации о несоответствии параметров данного оборудования требованиям санитарных норм;
отсутствии защитного экранного фильтра класса "полная защита";
отключенном заземляющем проводнике защитного фильтра;
обнаружении неисправности оборудования;
отсутствии защитного заземления устройств ПЭВМ и ВДТ;
отсутствии углекислотного или порошкового огнетушителя и аптечки первой помощи;
нарушении гигиенических норм размещения ВДТ (при однорядном расположении менее 1 м от стен, при расположении рабочих мест в колонну на расстоянии менее 1,5 м, при размещении на площади менее 6 кв. м на одно рабочее место, при рядном размещении дисплеев экранами друг к другу).
Требования безопасности во время работы
Программист во время работы обязан:
выполнять только ту работу, которая ему была поручена, и по которой он был проинструктирован;
в течение всего рабочего дня содержать в порядке и чистоте рабочее место;
держать открытыми все вентиляционные отверстия устройств;
при необходимости прекращения работы на некоторое время корректно закрыть все активные задачи;
выполнять санитарные нормы и соблюдать режимы работы и отдыха;
соблюдать правила эксплуатации вычислительной техники в соответствии с инструкциями по эксплуатации;
соблюдать установленные режимом рабочего времени регламентированные перерывы в работе и выполнять в физкультпаузах и физкультминутках рекомендованные упражнения для глаз, шеи, рук, туловища, ног;
соблюдать расстояние от глаз до экрана в пределах 60 - 80 см.
|
|
|
Программисту во время работы запрещается: прикасаться к задней панели системного блока (процессора) при включенном питании; переключать разъемы интерфейсных кабелей периферийных устройств при включенном питании; загромождать верхние панели устройств бумагами и посторонними предметами; допускать захламленность рабочего места бумагой - в целях недопущения накапливания органической пыли; производить отключение питания во время выполнения активной задачи; производить частые переключения питания; допускать попадание влаги на поверхность системного блока (процессора), монитора, рабочую поверхность клавиатуры, дисководов, принтеров и др. устройств; включать сильноохлажденное (принесенное с улицы в зимнее время) оборудование; производить самостоятельно вскрытие и ремонт оборудования.
Требования безопасности в аварийных ситуациях
Программист обязан:
во всех случаях обнаружения обрыва проводов питания, неисправности заземления и других повреждений электрооборудования, появления запаха гари немедленно отключить питание и сообщить об аварийной ситуации руководителю и дежурному электрику;
при обнаружении человека, попавшего под напряжение, немедленно освободить его от действия тока путем отключения электропитания и до прибытия врача оказать потерпевшему первую медицинскую помощь;
при любых случаях сбоя в работе технического оборудования или программного обеспечения немедленно вызвать представителя инженерно-технической службы эксплуатации вычислительной техники;
в случае появления рези в глазах, резком ухудшении видимости, - невозможности сфокусировать взгляд или навести его на резкость, появлении боли в пальцах и кистях рук, усилении сердцебиения немедленно покинуть рабочее место, сообщить о происшедшем руководителю работ и обратиться к врачу;
при возгорании оборудования отключить питание и принять меры к тушению очага пожара при помощи углекислотного или порошкового огнетушителя, вызвать пожарную команду и сообщить о происшествии руководителю работ.
Требования безопасности после окончания работы
По окончании работ программист обязан соблюдать следующую последовательность выключения вычислительной техники:
произвести закрытие всех активных задач;
выполнить парковку считывающей головки жесткого диска (если не предусмотрена автоматическая парковка головки);
убедиться, что в дисководах нет дискет;
выключить питание системного блока (процессора);
выключить питание всех периферийных устройств;
отключить блок питания.
|
|
|
По окончании работ программист обязан осмотреть и привести в порядок рабочее место, повесить халат в шкаф и вымыть с мылом руки и лицо.
3 Производственная работа на штатных рабочих местах. Характеристика программного и системного программного обеспечения на предприятии
Установка программы - это процедура записи специальных файлов в определенные места. Этот процесс регулируется специальными программами, которые автоматизируют большую часть процесса установки. Их называют инсталляторами (установщиками), а процедура установки называется инсталляцией.
Программы бывают самые разные: маленькие и большие, простые и сложные, также бывают программы, которые обеспечивают работу других программ (подпрограммы).
Это комплексы команд для процессора, которые выполняются в определенной логической последовательности.
По способу распространения программы делятся на коммерческие (платные) и свободно распространяемые (бесплатные). По назначению программы разделяются на системные, прикладные и инструментальные.
На данном ПК установленное прикладное ПО.
Прикладные программы (прикладное ПО) - это программы которые направлены на выполнение определенных задач пользователя. Они работают не «самостоятельно», а под чутким контролем и управлением пользователя. Например: текстовый редактор Word или электронная таблица Excel. Этот комплекс программ используют обычные пользователи для набора текстов, составления таблиц, прослушивания музыки, общения в интернете и т.д.
4. Изучение технологического процесса обработки информации
Характеристика технических средств сбора и обработки информации
При работе на предприятии использовался ПК. Основная работа проделывалась с помощью программ Infinity, 1С Предприятие, Microsoft Office Word, Excel.
Производилась печать перечня документации, подсчеты с помощью электронной таблицы. Осуществлялось подключение периферийного устройства (принтера) с помощью установочного диска. Также имелись в наличии средства мультимедиа, которые послужили дополнением в процессе выполнения работы. Была произведена, согласно инструкции, замена картриджа, красящей ленты, заправка тонера.
Необходимый перечень производственного оборудования в дополнение к работе на ПК составляет:
принтер (лазерный);
сканер;
ксерокс и т.д.
Организация документооборота на предприятии
Заявка на поставку продукции
"____"_____________2012г. г. Могилев
Претендент: ООО «Транссервискарс», директор - Круталевич Дмитрий Леонидович, 212002, г. Могилев, ул. Чигринова 7а, каб. 3, 4; телефон/факс 45-13-34, УНН 790272104, ОКПО 292465617000 р/с 3012246850010 в отделении №813 головного филиала по Могилевской области ОАО «Белинвестбанк» г.Могилев, код 712, предлагает к поставке микроавтобус для ПРУП «Кричевцементношифер» в соответствии с представленным Технико-экономическим заданием:
| Наименование оборудования | Основные характеристики | Срок гарантии, месяцев. | Количество | График поставки |
| Mercedes-Benz Viano | Пассажирский | 12 | 1 | В течение 60 дней с момента осуществления предоплаты |
Директор _____________ Д.Л. Круталевич
|
|
|
|
|
|
| ||||||||||
| ООО ТПЦ "Спринтер" |
|
|
| УТВЕРЖДАЮ | |||||||||||
|
|
|
| Директор ____________С.Н.Майоров | ||||||||||||
|
|
|
| (должность) (подпись) (И.О.Фамилия) | ||||||||||||
|
|
|
|
|
|
| ||||||||||
|
|
|
| "_____"_________________20___г. | ||||||||||||
|
| АКТ |
|
|
|
| ||||||||||
|
| на списание бумаги д/офисной техники |
| |||||||||||||
| Комиссия образованная в соответствии с приказом № от.в составе: | |||||||||||||||
|
|
|
|
|
|
| ||||||||||
| председателя комиссии Ком.директора Жук И.А. |
|
| |||||||||||||
| членов комиссии: | и.о.Гл.бухгалтера Далецкая Н.Е. |
|
| ||||||||||||
|
| бухгалтера Болозева О.А. |
|
| ||||||||||||
| списала бумагу д/офисной техники |
|
|
|
| |||||||||||
|
|
|
|
|
|
| ||||||||||
| Месяц,год | ед.изм. | кол-во | цена,руб | сумма,руб |
|
| |||||||||
| март 2008г | шт | 5 | 8251 | 44790 |
|
| |||||||||
| Итого подлежит списанию | х | 5 | х | 44790 |
|
| |||||||||
| Председатель комиссии | Ком.директор Жук И.А. |
| |||||||||||||
| Член комиссии: | И.О.Гл.бухгалтера | Далецкая Н.Е. |
| ||||||||||||
|
| бухгалтер |
| Болозева О.А. |
| |||||||||||
| ООО "Транссервискарс" |
|
|
|
| |||||||||||
| Расчет отпуска | |||||||||||||||
| ФИО |
|
|
| ||||||||||||
| Должностной оклад на | 01 ноября 2011г. |
| 778 500 | ||||||||||||
| Должностной |
|
|
|
| |||||||||||
| оклад | Месяц | Начислено | Коэффи- | Итого | |||||||||||
|
|
|
| циент |
| |||||||||||
| 407 108 | 03.10 | 148 065 | 1,91 | 0 | |||||||||||
| 407 108 | 04.10 | 407 180 | 1,91 | 778 638 | |||||||||||
| 407 108 | 05.10 | 407 180 | 1,91 | 778 638 | |||||||||||
| 407 108 | 06.10 | 474 272 | 1,91 | 906 936 | |||||||||||
| 407 108 | 07.10 | 514 675 | 1,91 | 984 197 | |||||||||||
| 407 108 | 08.10 | 934 663 | 1,91 | 1 787 327 | |||||||||||
| 407 108 | 09.10 | 559 873 | 1,91 | 1 070 628 | |||||||||||
| 407 108 | 10.10 | 453 230 | 1,91 | 866 698 | |||||||||||
| 407 108 | 11.10 | 924 607 | 1,91 | 1 768 097 | |||||||||||
| 407 108 | 12.10 | 389 282 | 1,91 | 744 412 | |||||||||||
| 461 760 | 01.11 | 539 306 | 1,69 | 909 238 | |||||||||||
| 461 760 | 02.11 | 736 815 | 1,69 | 1 242 226 | |||||||||||
| 461 760 | 03.11 | 161 492 | 1,69 | 272 266 | |||||||||||
| 461 760 | 04.11 | 788 563 | 1,69 | 1 329 470 | |||||||||||
| 499 200 | 05.11 | 792 664 | 1,56 | 1 236 156 | |||||||||||
| 499 200 | 06.11 | 852 218 | 1,56 | 1 329 030 | |||||||||||
| 499 200 | 07.11 | 796 700 | 1,56 | 1 242 450 | |||||||||||
| 499 200 | 08.11 | 758 557 | 1,56 | 1 182 966 | |||||||||||
| 499 200 | 09.11 | 609 573 | 1,56 | 950 626 | |||||||||||
| 778 500 | 10.11 |
| 1,00 | 0 | |||||||||||
| 778 500 | 11.11 |
| 1,00 |
| |||||||||||
| ИТОГО: | Х | Х | Х | 19 379 998 | |||||||||||
|
|
|
|
|
| |||||||||||
| Расчет размера среднедневного заработка: | |||||||||||||||
|
| 19 379 998 | /29,7/19 * | 40 | = | 1 373 737 |
| |||||||||
4.3 Организация межсетевого взаимодействия по обмену информацией
Схема сетевой архитектуры предприятия:
Анализ средств защиты информации
На рабочем ПК установлена антивирусная программа Kaspersky internet security 2011, обновление антивирусных баз производится 2 раза в неделю.
При проверке программного и аппаратного обеспечение вирусов не обнаружено.
Установлен пароль на вход в систему методом Пуск - Панель управления - Учетные записи пользователей.
Заключение
В период прохождения технологической практики были закреплены и расширены знания, полученные при изучении специальных предметов, приобретены профессиональные умения по специальности, практический опыт в условиях трудового коллектива, организаторских умений и навыков в области управления, экономики и планирования производства, развито профессиональное мышление и профессиональная самостоятельность.
Приложения
Приложение А. Код программы
unit Unit1;
interface, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, Db, DBTables, StdCtrls, ComCtrls, ExtCtrls, DBCtrls, Grids, DBGrids, unit2, unit3,unit5, Menus, CheckLst,IBSQL;= class(TForm): TPageControl;: TTabSheet;: TLabel;: TTable;: TDataSource;: TDBGrid;: TDBNavigator;: TButton;: TButton;: TButton;: TButton;: TButton;: TButton;: TTabSheet;: TButton;: TDataSource;: TTable;: TDBText;: TDBText;: TDBText;: TDBText;: TDBText;: TDBText;: TDBText;: TDBText;: TDBText;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TDBText;: TDBText;: TTabSheet;: TDataSource;: TTable;: TButton;: TTabSheet;: TButton;: TTabSheet;: TDataSource;: TDataSource;: TTable;: TDBGrid;: TDBGrid;: TButton;: TTabSheet;: TDataSource;: TTable;: TDBGrid;: TButton;: TTabSheet;: TDBGrid;: TDataSource;: TTable;: TButton;: TDBGrid;: TDBGrid;: TTable;: TMainMenu;: TMenuItem;: TButton;: TDBText;: TDBText;: TDBText;: TDBText;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TDBText;: TLabel;: TDBText;: TLabel;: TLabel;: TDBText;: TDBText;: TDBText;: TDataSource;: TTable;: TDataSource;: TTable;: TTable;: TDataSource;: TLabel;: TDBText;: TDBMemo;: TLabel;: TDataSource;: TTable;: TQuery;: TDataSource;: TButton;Otdel: TStringField;Fam: TStringField;Name: TStringField;Otch: TStringField;Dolzhnost: TStringField;TekKval: TStringField;Color: TStringField;: TLabel;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TAutoIncField;: TIntegerField;: TStringField;: TStringField;: TStringField;: TStringField;: TStringField;: TStringField;: TStringField;: TIntegerField;: TStringField;: TStringField;: TStringField;: TStringField;: TStringField;: TStringField;: TStringField;: TStringField;: TStringField;: TStringField;: TStringField;: TStringField;: TIntegerField;: TAutoIncField;: TIntegerField;: TStringField;: TStringField;: TStringField;: TFloatField;: TStringField;: TIntegerField;: TAutoIncField;: TIntegerField;: TStringField;: TStringField;: TStringField;: TStringField;: TIntegerField;: TAutoIncField;: TFloatField;: TStringField;: TStringField;: TStringField;: TStringField;: TBooleanField;: TBooleanField;: TMemoField;: TIntegerField;: TAutoIncField;: TStringField;: TIntegerField;: TStringField;: TStringField;: TStringField;: TStringField;: TStringField;: TStringField;: TStringField;: TIntegerField;: TStringField;: TStringField;: TStringField;: TStringField;: TIntegerField;: TAutoIncField;: TIntegerField;: TStringField;: TStringField;: TStringField;: TIntegerField;: TAutoIncField;: TStringField;: TIntegerField;: TStringField;: TDBText;: TDBText;: TDBText;: TDBText;: TDBText;: TIntegerField;: TStringField;: TStringField;: TStringField;: TMemoField;: TIntegerField;: TStringField;: TStringField;: TStringField;: TStringField;: TLabel;: TQuery;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;N1: TIntegerField;N: TIntegerField;FormCreate(Sender: TObject);Button1Click(Sender: TObject);DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);DBGrid1CellClick(Column: TColumn);DBGrid1KeyUp(Sender: TObject; var Key: Word;: TShiftState);Button2Click(Sender: TObject);Button3Click(Sender: TObject);Button6Click(Sender: TObject);Button4Click(Sender: TObject);Button5Click(Sender: TObject);Button7Click(Sender: TObject);Button8Click(Sender: TObject);Button9Click(Sender: TObject);Button10Click(Sender: TObject);Button12Click(Sender: TObject);Button11Click(Sender: TObject);Button13Click(Sender: TObject);FormShow(Sender: TObject);Button14Click(Sender: TObject);N1Click(Sender: TObject);N3Click(Sender: TObject);DBGrid1DblClick(Sender: TObject);N12Click(Sender: TObject);N20Click(Sender: TObject);N21Click(Sender: TObject);N13Click(Sender: TObject);N14Click(Sender: TObject);N15Click(Sender: TObject);N16Click(Sender: TObject);N17Click(Sender: TObject);N18Click(Sender: TObject);N22Click(Sender: TObject);N23Click(Sender: TObject);PageControl1Changing(Sender: TObject;AllowChange: Boolean);FormActivate(Sender: TObject);N25Click(Sender: TObject);N26Click(Sender: TObject);N19Click(Sender: TObject);DBGrid5KeyDown(Sender: TObject; var Key: Word;: TShiftState);
{ Private declarations }
{ Public declarations };: TForm1;Unit4, Unit7, Unit6, Unit8, Unit9, Unit10, Unit11;
{$R *.DFM}TForm1.FormCreate(Sender: TObject);.DataSource:=SpisokS;.Refresh;.Label1.Caption:=form1.SpisokTfam.value + ' '+ form1.SpisokTName.value +
' ' + form1.SpisokTOtch.value;.DBNavigator1.visible:=true;.Active:=true;;TForm1.Button1Click(Sender: TObject);;;TForm1.DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);form1.obrazTObrSred.Value='Среднее' then form5.CheckBox1.Checked:=true else form5.CheckBox1.Checked:=false;form1.obrazTObrSpec.Value='Среднее специальное' then form5.CheckBox2.Checked:=trueform5.CheckBox2.Checked:=false;form1.obrazTObrVis.Value='Высшее' then form5.CheckBox3.Checked:=true else form5.CheckBox3.Checked:=false;form1.VoinTVoinOb.Value='Военнообязанный' then form7.CheckBox1.Checked:=true else form7.CheckBox1.Checked:=false;form1.RabTUvol.Value='Уволен' then form3.CheckBox1.Checked:=true else form3.CheckBox1.Checked:=false;.SelectedRows.CurrentRowSelected:=true;form1.SpisokS.DataSet <> form1.Query1 then.Label1.Caption:=form1.SpisokTfam.value + ' '+ form1.SpisokTName.value +
' ' + form1.SpisokTOtch.value;(Button=nbPrior) or (Button=nbFirst) then.Prior;SpisokT.bof then.Controls[Ord(nbNext)].Enabled:=True;.Controls[Ord(nbLast)].Enabled:=True;.Next;;(Button=nbNext) or (Button=nbLast) then.Next;SpisokT.Eof then.Controls[Ord(nbFirst)].Enabled:=True;.Controls[Ord(nbPrior)].Enabled:=True;.Prior;;;;TForm1.DBGrid1CellClick(Column: TColumn);form1.VoinTVoinOb.Value='Военнообязанный' then form7.CheckBox1.Checked:=true else form7.CheckBox1.Checked:=false;form1.obrazTObrSred.Value='Среднее' then form5.CheckBox1.Checked:=true else form5.CheckBox1.Checked:=false;form1.obrazTObrSpec.Value='Среднее специальное' then form5.CheckBox2.Checked:=trueform5.CheckBox2.Checked:=false;form1.obrazTObrVis.Value='Высшее' then form5.CheckBox3.Checked:=true else form5.CheckBox3.Checked:=false;
form1.Button6.Visible=true then form1.DBGrid1.ReadOnly:=true;form1.SpisokS.DataSet <> form1.Query1 then.Label1.Caption:=form1.SpisokTfam.value + ' '+ form1.SpisokTName.value +
' ' + form1.SpisokTOtch.value;;;TForm1.DBGrid1KeyUp(Sender: TObject; var Key: Word;: TShiftState);form1.VoinTVoinOb.Value='Военнообязанный' then form7.CheckBox1.Checked:=true else form7.CheckBox1.Checked:=false;form1.obrazTObrSred.Value='Среднее' then form5.CheckBox1.Checked:=true else form5.CheckBox1.Checked:=false;form1.obrazTObrSpec.Value='Среднее специальное' then form5.CheckBox2.Checked:=trueform5.CheckBox2.Checked:=false;form1.obrazTObrVis.Value='Высшее' then form5.CheckBox3.Checked:=true else form5.CheckBox3.Checked:=false;form1.Button6.Visible=true then form1.DBGrid1.ReadOnly:=true;form1.SpisokS.DataSet <> form1.Query1 then.Label1.Caption:=form1.SpisokTfam.value + ' '+ form1.SpisokTName.value +
' ' + form1.SpisokTOtch.value;;TForm1.Button2Click(Sender: TObject);s:integer;.First;not spisokT.Eof do.next;:=spisokTN1.value+1;.edit;.BtnClick(nbInsert);.SpisokTN1.Value:=s;.BtnClick(nbrefresh);.showmodal;;TForm1.Button3Click(Sender: TObject);r:integer;:=messagedlg('Вы уверены??',mtConfirmation,[mbOk,mbCancel],0);r=mrOk then begin.Query1.SQL.Clear;.Query1.SQL.Add('Delete from "deti.db" where (n='+inttostr(SemTn.value)+')');.Query1.ExecSQL;.Query1.SQL.Clear;.Query1.SQL.Add('Delete from "Voin.db" where (n='+inttostr(VoinTn.value)+')');.Query1.ExecSQL;.Query1.SQL.Clear;.Query1.SQL.Add('Delete from "Zav.db" where (n='+inttostr(ObrTn.value)+')');.Query1.ExecSQL;.Query1.SQL.Clear;.Query1.SQL.Add('Delete from "otp.db" where (n='+inttostr(form3.OtpTn.value)+')');.Query1.ExecSQL;.Query1.SQL.Clear;.Query1.SQL.Add('Delete from "gran.db" where (n='+inttostr(GranTn.value)+')');.Query1.ExecSQL;.Query1.SQL.Clear;.Query1.SQL.Add('Delete from "obraz.db" where (n='+inttostr(obrazTn.value)+')');.Query1.ExecSQL;.Query1.SQL.Clear;.Query1.SQL.Add('Delete from "t3.db" where (n='+inttostr(LichTn.value)+')');.Query1.ExecSQL;.Query1.SQL.Clear;.Query1.SQL.Add('Delete from "t4.db" where (n='+inttostr(RabTn.value)+')');.Query1.ExecSQL;.Query1.SQL.Clear;.Query1.SQL.Add('Delete from "Kval.db" where (n='+inttostr(kvaliTn.value)+')');.Query1.ExecSQL;.Query1.SQL.Clear;.Query1.SQL.Add('Delete from "Lang.db" where (n='+inttostr(LangTn.value)+')');.Query1.ExecSQL;.Query1.SQL.Clear;.Query1.SQL.Add('Delete from "suprug.db" where (n='+inttostr(SupTn.value)+')');.Query1.ExecSQL;.Query1.SQL.Clear;.Query1.SQL.Add('Delete from "t1.db" where (n='+inttostr(spisokTn.value)+')');.Query1.ExecSQL; end;.BtnClick(nbrefresh);
except showmessage('Сохраните изменения!!');
end;;TForm1.Button6Click(Sender: TObject);.Visible:=false;.SpisokS.DataSet:=form1.SpisokT;.edit;.DBGrid1.readOnly:=false;.Enabled:=true;.Enabled:=true;.Enabled:=true;.Enabled:=true;.Enabled:=false;.Enabled:=false;;TForm1.Button4Click(Sender: TObject);.edit;.BtnClick(nbPost);.Enabled:=true;.Visible:=true;.Enabled:=false;.Enabled:=false;.Enabled:=false;.Enabled:=false;.Enabled:=true;;;;TForm1.Button5Click(Sender: TObject);.BtnClick(nbCancel);.Enabled:=true;.Visible:=true;.Enabled:=true;.Enabled:=true;.Enabled:=true;.Enabled:=true;.Enabled:=false;.Enabled:=false;.Enabled:=false;.Enabled:=false;.Enabled:=true;;TForm1.Button7Click(Sender: TObject);.edit;.showmodal;
except('Введите корректные данные!!!');
end;;TForm1.Button8Click(Sender: TObject);.Edit;.showmodal;
except('Введите корректные данные!!!');
end;;TForm1.Button9Click(Sender: TObject);.showmodal;('Введите корректные данные!!!');;;TForm1.Button10Click(Sender: TObject);.showmodal;('Введите корректные данные!!!');;;TForm1.Button12Click(Sender: TObject);.VoinT.Edit;.showmodal;('Введите корректные данные!!!');;;TForm1.Button11Click(Sender: TObject);.showmodal;('Введите корректные данные!!!');;;TForm1.Button13Click(Sender: TObject);.Query1.SQL.Clear;.Query1.SQL.Add('Select *');.Query1.SQL.Add('from "t1.db"');.showmodal;;TForm1.FormShow(Sender: TObject);.ShowModal;;TForm1.Button14Click(Sender: TObject);.SpisokS.DataSet:=form1.SpisokT;.Button2.Visible:=true;.Button3.Visible:=true;.Button4.Visible:=true;.Button5.Visible:=true;.Button6.Visible:=true;.Button14.Visible:=false;.Label1.Visible:=true;.Label26.Visible:=false;.Label1.Caption:=form1.SpisokTfam.value + ' '+ form1.SpisokTName.value +
' ' + form1.SpisokTOtch.value;;TForm1.N1Click(Sender: TObject);.button6.Click;;TForm1.N3Click(Sender: TObject);;;TForm1.DBGrid1DblClick(Sender: TObject);form1.VoinTVoinOb.Value='Военнообязанный' then form7.CheckBox1.Checked:=true else form7.CheckBox1.Checked:=false;form1.obrazTObrSred.Value='Среднее' then form5.CheckBox1.Checked:=true else form5.CheckBox1.Checked:=false;form1.obrazTObrSpec.Value='Среднее специальное' then form5.CheckBox2.Checked:=trueform5.CheckBox2.Checked:=false;form1.obrazTObrVis.Value='Высшее' then form5.CheckBox3.Checked:=true else form5.CheckBox3.Checked:=false;form1.Button6.Visible=true then form1.DBGrid1.ReadOnly:=true;;;TForm1.N12Click(Sender: TObject);.ShortCut:=ShortCut(Word('S'), [ssCtrl]);.Button4.Click;;TForm1.N20Click(Sender: TObject);.Button4.click;;TForm1.N21Click(Sender: TObject);.Button5.click;;TForm1.N13Click(Sender: TObject);.Button7.click;;TForm1.N14Click(Sender: TObject);.Button8.click;;TForm1.N15Click(Sender: TObject);.Button9.click;;TForm1.N16Click(Sender: TObject);.Button10.click;;TForm1.N17Click(Sender: TObject);.Button11.click;;TForm1.N18Click(Sender: TObject);.Button12.click;;TForm1.N22Click(Sender: TObject);.ShowModal;;TForm1.N23Click(Sender: TObject);.showmodal;;TForm1.PageControl1Changing(Sender: TObject;AllowChange: Boolean);(button6.Visible=false) and (form1.SpisokS.DataSet<>form1.Query1) then
messagedlg('Сохраните изменения на первой странице!!!',mtWarning,[mbOk],0);
end;TForm1.FormActivate(Sender: TObject);.Label1.Caption:=form1.SpisokTfam.value + ' '+ form1.SpisokTName.value +
' ' + form1.SpisokTOtch.value;.DBNavigator1.visible:=true;.Active:=true;;TForm1.N25Click(Sender: TObject);.button6.Click;.Button2.Click;;TForm1.N26Click(Sender: TObject);.button6.Click;.Button3.click;;TForm1.N19Click(Sender: TObject);.Button5.Click;;TForm1.DBGrid5KeyDown(Sender: TObject; var Key: Word;: TShiftState);.Button1.Enabled:=true;
end;
end.
|
|
|
