Информационные технологии ООО 'Транссервискарс'
Содержание
1.
Ознакомление с центром информационных технологий. Организационная и
экономическая характеристика предприятия
2. Производственные экскурсии. Организация охраны труда,
окружающей среды и энергосбережения на предприятии
. Производственная работа на штатных рабочих местах.
Характеристика программного и системного программного обеспечения на
предприятии
. Изучение технологического процесса обработки информации
.1 Характеристика технических средств сбора и обработки
информации
.2 Организация документооборота на предприятии
.3 Организация межсетевого взаимодействия по обмену
информацией
.4 Анализ средств защиты информации
Заключение
Приложение А. Код программы
Ознакомление с центром информационных технологий. Организационная и
экономическая характеристика предприятия
Изучила основные данные, характеризующие деятельность предприятия в
соответствии с его Уставом и Учредительными документами, правила техники
безопасности, организационную структуру предприятия, методы управления
подразделением, формы и системы оплаты труда, систему
материально-технологического обеспечения производства, так же был проведен
инструктаж по технике безопасности. В период прохождения практики были
закреплены и расширены знания, полученные при изучении специальных предметов, приобретены
профессиональные умения по специальности, практический опыт в условиях
трудового коллектива, организаторских умений и навыков в области управления,
экономики и планирования производства, развито профессиональное мышление и
профессиональная самостоятельность.
2 Производственные экскурсии. Организация охраны труда, окружающей среды
и энергосбережения на предприятии
программный системный
информация
Общие требования безопасности
Настоящая инструкция по охране труда программиста, занятого эксплуатацией
персональных электронно-вычислительных машин (ПЭВМ) и видеодисплейных
терминалов ВДТ (далее программистов), разработана с учетом условий его работы в
конкретной организации - ООО «Транссервискарс».
На программиста могут воздействовать опасные и вредные производственные
факторы:
а) физические:
повышенные уровни электромагнитного излучения;
повышенные уровни рентгеновского излучения;
повышенные уровни ультрафиолетового излучения;
повышенный уровень инфракрасного излучения;
повышенный уровень статического электричества;
повышенные уровни запыленности воздуха рабочей зоны;
повышенное содержание положительных аэроионов в воздухе рабочей зоны;
пониженное содержание отрицательных аэроионов в воздухе рабочей зоны;
пониженная или повышенная влажность воздуха рабочей зоны;
пониженная или повышенная подвижность воздуха рабочей зоны;
повышенный уровень шума;
повышенный или пониженный уровень освещенности;
повышенный уровень прямой блесткости;
повышенный уровень отраженной блесткости;
повышенный уровень ослепленности;
неравномерность распределения яркости в поле зрения;
повышенная яркость светового изображения;
повышенный уровень пульсации светового потока;
повышенное значение напряжения в электрической цепи, замыкание которой
может произойти через тело человека;
б) химические:
повышенное содержание в воздухе рабочей зоны двуокиси углерода, озона,
аммиака, фенола, формальдегида и полихлорированных бифенилов;
психофизиологические:
напряжение зрения;
напряжение внимания;
интеллектуальные нагрузки;
эмоциональные нагрузки;
длительные статические нагрузки;
монотонность труда;
большой объем информации, обрабатываемой в единицу времени;
нерациональная организация рабочего места;
в) биологические:
повышенное содержание в воздухе рабочей зоны микроорганизмов.
К работам программистом допускаются:
лица не моложе 18 лет, прошедшие обязательный при приеме на работу и
ежегодные медицинские освидетельствования на предмет пригодности для работы;
прошедшие вводный инструктаж по охране труда;
прошедшие обучение безопасным приемам и методам труда по программе,
утвержденной руководителем предприятия (работодателем), разработанной на основе
Типовой программы, и прошедшие проверку знаний, в том числе по
электробезопасности;
прошедшие курс обучения на персональном компьютере с использованием конкретного
программного обеспечения;
прошедшие инструктаж по охране труда на конкретном рабочем месте по
данной инструкции.
Программист должен быть обеспечен СИЗ в соответствии с Правилами
обеспечения работников специальной одеждой, специальной обувью и другими
средствами индивидуальной защиты; выдаваемые работникам средства индивидуальной
защиты должны соответствовать характеру и условиям работы и обеспечивать
безопасность труда. Не допускается приобретение и выдача работникам средств
индивидуальной защиты без сертификата соответствия.
Характеристика выданных СИЗ (номенклатура, срок выдачи и нормы
соответствия) устанавливается из личных карточек работников, занятых на
определенном рабочем месте.
Нормативные номенклатура и сроки выдачи СИЗ определяются согласно Типовым
отраслевым нормам бесплатной выдачи рабочим и служащим специальной одежды,
специальной обуви и других СИЗ.
Требования безопасности перед началом работы
Перед началом работы программист обязан:
осмотреть и привести в порядок рабочее место;
отрегулировать освещенность на рабочем месте, убедиться в достаточности
освещенности, отсутствии отражений на экране, отсутствии встречного светового
потока;
проверить правильность подключения оборудования в электросеть;
протереть специальной салфеткой поверхность экрана;
убедиться в отсутствии дискет в дисководах процессора персонального
компьютера;
проверить правильность установки стола, стула, подставки для ног,
пюпитра, положения оборудования, угла наклона экрана, положение клавиатуры и,
при необходимости, произвести регулировку рабочего стола и кресла, а также
расположение элементов компьютера в соответствии с требованиями эргономики и в
целях исключения неудобных поз и длительных напряжений тела.
При включении компьютера соблюдать правила электробезопасности.
Программисту запрещается приступать к работе при:
отсутствии на ВДТ гигиенического сертификата, включающего оценку
визуальных параметров;
отсутствии защитного экранного фильтра класса "полная защита";
отключенном заземляющем проводнике защитного фильтра;
обнаружении неисправности оборудования;
отсутствии защитного заземления устройств ПЭВМ и ВДТ;
отсутствии углекислотного или порошкового огнетушителя и аптечки первой
помощи;
нарушении гигиенических норм размещения ВДТ (при однорядном расположении
менее 1 м от стен, при расположении рабочих мест в колонну на расстоянии менее
1,5 м, при размещении на площади менее 6 кв. м на одно рабочее место, при
рядном размещении дисплеев экранами друг к другу).
Требования безопасности во время работы
Программист во время работы обязан:
выполнять только ту работу, которая ему была поручена, и по которой он
был проинструктирован;
в течение всего рабочего дня содержать в порядке и чистоте рабочее место;
держать открытыми все вентиляционные отверстия устройств;
при необходимости прекращения работы на некоторое время корректно закрыть
все активные задачи;
выполнять санитарные нормы и соблюдать режимы работы и отдыха;
соблюдать правила эксплуатации вычислительной техники в соответствии с
инструкциями по эксплуатации;
соблюдать установленные режимом рабочего времени регламентированные
перерывы в работе и выполнять в физкультпаузах и физкультминутках
рекомендованные упражнения для глаз, шеи, рук, туловища, ног;
соблюдать расстояние от глаз до экрана в пределах 60 - 80 см.
Программисту во время работы запрещается: прикасаться к задней панели
системного блока (процессора) при включенном питании; переключать разъемы
интерфейсных кабелей периферийных устройств при включенном питании;
загромождать верхние панели устройств бумагами и посторонними предметами;
допускать захламленность рабочего места бумагой - в целях недопущения
накапливания органической пыли; производить отключение питания во время
выполнения активной задачи; производить частые переключения питания; допускать
попадание влаги на поверхность системного блока (процессора), монитора, рабочую
поверхность клавиатуры, дисководов, принтеров и др. устройств; включать
сильноохлажденное (принесенное с улицы в зимнее время) оборудование;
производить самостоятельно вскрытие и ремонт оборудования.
Требования безопасности в аварийных ситуациях
Программист обязан:
во всех случаях обнаружения обрыва проводов питания, неисправности
заземления и других повреждений электрооборудования, появления запаха гари
немедленно отключить питание и сообщить об аварийной ситуации руководителю и
дежурному электрику;
при обнаружении человека, попавшего под напряжение, немедленно освободить
его от действия тока путем отключения электропитания и до прибытия врача
оказать потерпевшему первую медицинскую помощь;
при любых случаях сбоя в работе технического оборудования или программного
обеспечения немедленно вызвать представителя инженерно-технической службы
эксплуатации вычислительной техники;
в случае появления рези в глазах, резком ухудшении видимости, -
невозможности сфокусировать взгляд или навести его на резкость, появлении боли
в пальцах и кистях рук, усилении сердцебиения немедленно покинуть рабочее
место, сообщить о происшедшем руководителю работ и обратиться к врачу;
при возгорании оборудования отключить питание и принять меры к тушению
очага пожара при помощи углекислотного или порошкового огнетушителя, вызвать
пожарную команду и сообщить о происшествии руководителю работ.
Требования безопасности после окончания работы
По окончании работ программист обязан соблюдать следующую
последовательность выключения вычислительной техники:
произвести закрытие всех активных задач;
выполнить парковку считывающей головки жесткого диска (если не
предусмотрена автоматическая парковка головки);
убедиться, что в дисководах нет дискет;
выключить питание системного блока (процессора);
выключить питание всех периферийных устройств;
отключить блок питания.
По окончании работ программист обязан осмотреть и привести в порядок
рабочее место, повесить халат в шкаф и вымыть с мылом руки и лицо.
3 Производственная работа на штатных рабочих местах. Характеристика
программного и системного программного обеспечения на предприятии
Установка программы - это процедура записи специальных файлов в
определенные места. Этот процесс регулируется специальными программами, которые
автоматизируют большую часть процесса установки. Их называют инсталляторами
(установщиками), а процедура установки называется инсталляцией.
Программы бывают самые разные: маленькие и большие, простые и сложные,
также бывают программы, которые обеспечивают работу других программ (подпрограммы).
Это комплексы команд для процессора, которые выполняются в определенной
логической последовательности.
По способу распространения программы делятся на коммерческие (платные) и
свободно распространяемые (бесплатные ). По назначению программы разделяются на
системные , прикладные и инструментальные.
На данном ПК установленное прикладное ПО.
Прикладные программы (прикладное ПО) - это программы которые направлены
на выполнение определенных задач пользователя. Они работают не
«самостоятельно», а под чутким контролем и управлением пользователя. Например:
текстовый редактор Word или
электронная таблица Excel. Этот
комплекс программ используют обычные пользователи для набора текстов,
составления таблиц, прослушивания музыки, общения в интернете и т.д.
4. Изучение технологического процесса обработки информации
.1 Характеристика технических средств сбора и обработки информации
При работе на предприятии использовался ПК. Основная работа проделывалась
с помощью программ Infinity, 1С
Предприятие, Microsoft Office Word, Excel.
Производилась печать перечня документации, подсчеты с помощью электронной
таблицы. Осуществлялось подключение периферийного устройства (принтера) с
помощью установочного диска. Также имелись в наличии средства мультимедиа,
которые послужили дополнением в процессе выполнения работы. Была произведена,
согласно инструкции, замена картриджа, красящей ленты, заправка тонера.
Необходимый перечень производственного оборудования в дополнение к работе
на ПК составляет:
принтер (лазерный);
сканер;
ксерокс и т.д.
.2 Организация документооборота на предприятии
Заявка на поставку продукции
"____"_____________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
|
|
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
|
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 Организация межсетевого взаимодействия по обмену информацией
Схема сетевой архитектуры предприятия:
.4 Анализ средств защиты информации
На рабочем ПК установлена антивирусная программа 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.