Информационные технологии ООО 'Транссервискарс'

Информационные технологии ООО 'Транссервискарс'

Содержание

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, предлагает к поставке микроавтобус для ПРУП «Кричевцементношифер» в соответствии с представленным Технико-экономическим заданием:

Директор _____________ Д.Л. Круталевич

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.