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

1. Ознакомление с центром информационных технологий. Организационная и экономическая характеристика предприятия

2. Производственные экскурсии. Организация охраны труда, окружающей среды и энергосбережения на предприятии

3. Производственная работа на штатных рабочих местах. Характеристика программного и системного программного обеспечения на предприятии

4. Изучение технологического процесса обработки информации

4.1 Характеристика технических средств сбора и обработки информации

4.2 Организация документооборота на предприятии

4.3 Организация межсетевого взаимодействия по обмену информацией

4.4 Анализ средств защиты информации

Заключение

Приложение А. Код программы

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

2 Производственные экскурсии. Организация охраны труда, окружающей среды и энергосбережения на предприятии программный системный информация Общие требования безопасности Настоящая инструкция по охране труда программиста, занятого эксплуатацией персональных электронно-вычислительных машин (ПЭВМ) и видеодисплейных терминалов ВДТ (далее программистов), разработана с учетом условий его работы в конкретной организации — ООО «Транссервискарс».

На программиста могут воздействовать опасные и вредные производственные факторы:

а) физические:

— повышенные уровни электромагнитного излучения;

— повышенные уровни рентгеновского излучения;

— повышенные уровни ультрафиолетового излучения;

— повышенный уровень инфракрасного излучения;

— повышенный уровень статического электричества;

— повышенные уровни запыленности воздуха рабочей зоны;

— повышенное содержание положительных аэроионов в воздухе рабочей зоны;

— пониженное содержание отрицательных аэроионов в воздухе рабочей зоны;

— пониженная или повышенная влажность воздуха рабочей зоны;

— пониженная или повышенная подвижность воздуха рабочей зоны;

— повышенный уровень шума;

— повышенный или пониженный уровень освещенности;

— повышенный уровень прямой блесткости;

— повышенный уровень отраженной блесткости;

— повышенный уровень ослепленности;

— неравномерность распределения яркости в поле зрения;

— повышенная яркость светового изображения;

— повышенный уровень пульсации светового потока;

— повышенное значение напряжения в электрической цепи, замыкание которой может произойти через тело человека;

б) химические:

— повышенное содержание в воздухе рабочей зоны двуокиси углерода, озона, аммиака, фенола, формальдегида и полихлорированных бифенилов;

— психофизиологические:

— напряжение зрения;

— напряжение внимания;

— интеллектуальные нагрузки;

— эмоциональные нагрузки;

— длительные статические нагрузки;

— монотонность труда;

— большой объем информации, обрабатываемой в единицу времени;

— нерациональная организация рабочего места;

в) биологические:

— повышенное содержание в воздухе рабочей зоны микроорганизмов.

К работам программистом допускаются:

— лица не моложе 18 лет, прошедшие обязательный при приеме на работу и ежегодные медицинские освидетельствования на предмет пригодности для работы;

— прошедшие вводный инструктаж по охране труда;

— прошедшие обучение безопасным приемам и методам труда по программе, утвержденной руководителем предприятия (работодателем), разработанной на основе Типовой программы, и прошедшие проверку знаний, в том числе по электробезопасности;

— прошедшие курс обучения на персональном компьютере с использованием конкретного программного обеспечения;

— прошедшие инструктаж по охране труда на конкретном рабочем месте по данной инструкции.

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

Характеристика выданных СИЗ (номенклатура, срок выдачи и нормы соответствия) устанавливается из личных карточек работников, занятых на определенном рабочем месте.

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

Требования безопасности перед началом работы Перед началом работы программист обязан:

— осмотреть и привести в порядок рабочее место;

— отрегулировать освещенность на рабочем месте, убедиться в достаточности освещенности, отсутствии отражений на экране, отсутствии встречного светового потока;

— проверить правильность подключения оборудования в электросеть;

— протереть специальной салфеткой поверхность экрана;

— убедиться в отсутствии дискет в дисководах процессора персонального компьютера;

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

При включении компьютера соблюдать правила электробезопасности.

Программисту запрещается приступать к работе при:

— отсутствии на ВДТ гигиенического сертификата, включающего оценку визуальных параметров;

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

— отсутствии защитного экранного фильтра класса «полная защита» ;

— отключенном заземляющем проводнике защитного фильтра;

— обнаружении неисправности оборудования;

— отсутствии защитного заземления устройств ПЭВМ и ВДТ;

— отсутствии углекислотного или порошкового огнетушителя и аптечки первой помощи;

— нарушении гигиенических норм размещения ВДТ (при однорядном расположении менее 1 м от стен, при расположении рабочих мест в колонну на расстоянии менее 1,5 м, при размещении на площади менее 6 кв. м на одно рабочее место, при рядном размещении дисплеев экранами друг к другу).

Требования безопасности во время работы Программист во время работы обязан:

— выполнять только ту работу, которая ему была поручена, и по которой он был проинструктирован;

— в течение всего рабочего дня содержать в порядке и чистоте рабочее место;

— держать открытыми все вентиляционные отверстия устройств;

— при необходимости прекращения работы на некоторое время корректно закрыть все активные задачи;

— выполнять санитарные нормы и соблюдать режимы работы и отдыха;

— соблюдать правила эксплуатации вычислительной техники в соответствии с инструкциями по эксплуатации;

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

— соблюдать расстояние от глаз до экрана в пределах 60 — 80 см.

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

Требования безопасности в аварийных ситуациях Программист обязан:

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

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

— при любых случаях сбоя в работе технического оборудования или программного обеспечения немедленно вызвать представителя инженерно-технической службы эксплуатации вычислительной техники;

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

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

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

— произвести закрытие всех активных задач;

— выполнить парковку считывающей головки жесткого диска (если не предусмотрена автоматическая парковка головки);

— убедиться, что в дисководах нет дискет;

— выключить питание системного блока (процессора);

— выключить питание всех периферийных устройств;

— отключить блок питания.

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

3 Производственная работа на штатных рабочих местах. Характеристика программного и системного программного обеспечения на предприятии Установка программы — это процедура записи специальных файлов в определенные места. Этот процесс регулируется специальными программами, которые автоматизируют большую часть процесса установки. Их называют инсталляторами (установщиками), а процедура установки называется инсталляцией.

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

Это комплексы команд для процессора, которые выполняются в определенной логической последовательности.

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

На данном ПК установленное прикладное ПО.

Прикладные программы (прикладное ПО) — это программы которые направлены на выполнение определенных задач пользователя. Они работают не «самостоятельно», а под чутким контролем и управлением пользователя. Например: текстовый редактор Word или электронная таблица Excel. Этот комплекс программ используют обычные пользователи для набора текстов, составления таблиц, прослушивания музыки, общения в интернете и т. д.

4. Изучение технологического процесса обработки информации

4.1 Характеристика технических средств сбора и обработки информации При работе на предприятии использовался ПК. Основная работа проделывалась с помощью программ Infinity, 1С Предприятие, Microsoft Office Word, Excel.

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

Необходимый перечень производственного оборудования в дополнение к работе на ПК составляет:

— принтер (лазерный);

— сканер;

— ксерокс и т. д.

4.2 Организация документооборота на предприятии Заявка на поставку продукции

" ____" _____________2012г. г. Могилев Претендент: ООО «Транссервискарс», директор — Круталевич Дмитрий Леонидович, 212 002, г. Могилев, ул. Чигринова 7а, каб. 3, 4; телефон/факс 45−13−34, УНН 790 272 104, ОКПО 292 465 617 000 р/с 3 012 246 850 010 в отделении № 813 головного филиала по Могилевской области ОАО «Белинвестбанк» г. Могилев, код 712, предлагает к поставке микроавтобус для ПРУП «Кричевцементношифер» в соответствии с представленным Технико-экономическим заданием:

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

4.3 Организация межсетевого взаимодействия по обмену информацией Схема сетевой архитектуры предприятия:

4.4 Анализ средств защиты информации На рабочем ПК установлена антивирусная программа Kaspersky internet security 2011, обновление антивирусных баз производится 2 раза в неделю.

При проверке программного и аппаратного обеспечение вирусов не обнаружено.

Установлен пароль на вход в систему методом Пуск — Панель управления — Учетные записи пользователей.

Заключение

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

Приложения Приложение А. Код программы

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, Db, DBTables, StdCtrls, ComCtrls, ExtCtrls, DBCtrls, Grids, DBGrids, unit2, unit3, unit5, Menus, CheckLst, IBSQL;

type

TForm1 = class (TForm)

PageControl1: TPageControl;

TabSheet1: TTabSheet;

Label1: TLabel;

SpisokT: TTable;

SpisokS: TDataSource;

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

Button1: TButton;

Button2: TButton;

Button3: TButton;

Button4: TButton;

Button5: TButton;

Button6: TButton;

TabSheet2: TTabSheet;

Button7: TButton;

LichS: TDataSource;

LichT: TTable;

DBText1: TDBText;

DBText2: TDBText;

DBText3: TDBText;

DBText4: TDBText;

DBText6: TDBText;

DBText7: TDBText;

DBText8: TDBText;

DBText9: TDBText;

DBText10: TDBText;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Label8: TLabel;

Label9: TLabel;

Label10: TLabel;

Label11: TLabel;

Label12: TLabel;

Label13: TLabel;

Label14: TLabel;

Label15: TLabel;

DBText11: TDBText;

DBText12: TDBText;

TabSheet3: TTabSheet;

RabS: TDataSource;

RabT: TTable;

Button8: TButton;

TabSheet4: TTabSheet;

Button9: TButton;

TabSheet5: TTabSheet;

ObrS: TDataSource;

LangS: TDataSource;

LangT: TTable;

DBGrid2: TDBGrid;

DBGrid3: TDBGrid;

Button10: TButton;

TabSheet6: TTabSheet;

SemS: TDataSource;

SemT: TTable;

DBGrid4: TDBGrid;

Button11: TButton;

TabSheet7: TTabSheet;

DBGrid5: TDBGrid;

GranS: TDataSource;

GranT: TTable;

Button12: TButton;

DBGrid6: TDBGrid;

DBGrid7: TDBGrid;

ObrT: TTable;

MainMenu1: TMainMenu;

N671: TMenuItem;

Button13: TButton;

DBText13: TDBText;

DBText14: TDBText;

DBText15: TDBText;

DBText16: TDBText;

Label16: TLabel;

Label17: TLabel;

Label19: TLabel;

Label20: TLabel;

Label21: TLabel;

DBText17: TDBText;

Label18: TLabel;

DBText18: TDBText;

Label22: TLabel;

Label23: TLabel;

DBText19: TDBText;

DBText20: TDBText;

DBText21: TDBText;

ObrazS: TDataSource;

obrazT: TTable;

SupS: TDataSource;

SupT: TTable;

VoinT: TTable;

VoinS: TDataSource;

Label24: TLabel;

DBText22: TDBText;

DBMemo1: TDBMemo;

Label25: TLabel;

KvaliS: TDataSource;

KvaliT: TTable;

Query1: TQuery;

DataSource1: TDataSource;

Button14: TButton;

Query1Otdel: TStringField;

Query1Fam: TStringField;

Query1Name: TStringField;

Query1Otch: TStringField;

Query1Dolzhnost: TStringField;

Query1TekKval: TStringField;

Query1Color: TStringField;

Label26: TLabel;

N2: TMenuItem;

N3: TMenuItem;

N22: TMenuItem;

N23: TMenuItem;

Label27: TLabel;

Label28: TLabel;

Label29: TLabel;

Label30: TLabel;

Label31: TLabel;

Label32: TLabel;

Label35: TLabel;

Label36: TLabel;

SpisokTN: TAutoIncField;

SpisokTN1: TIntegerField;

SpisokTOtdel: TStringField;

SpisokTFam: TStringField;

SpisokTName: TStringField;

SpisokTOtch: TStringField;

SpisokTDolzhnost: TStringField;

SpisokTTekKval: TStringField;

SpisokTColor: TStringField;

LichTN: TIntegerField;

LichTPasNum: TStringField;

LichTPasSer: TStringField;

LichTPasVid: TStringField;

LichTPasData: TStringField;

LichTINN: TStringField;

LichTDomAdrUl: TStringField;

LichTDomAdrDom: TStringField;

LichTDomAdpKv: TStringField;

LichTDomTel: TStringField;

LichTRozhData: TStringField;

LichTRozhMesto: TStringField;

LichTPol: TStringField;

KvaliTN: TIntegerField;

KvaliTN2: TAutoIncField;

KvaliTN1: TIntegerField;

KvaliTPovMesto: TStringField;

KvaliTPovS: TStringField;

KvaliTPovPo: TStringField;

KvaliTRaz: TFloatField;

KvaliTKval: TStringField;

SemTN: TIntegerField;

SemTN1: TAutoIncField;

SemTN2: TIntegerField;

SemTDetFam: TStringField;

SemTDetName: TStringField;

SemTDetOtch: TStringField;

SemTDetData: TStringField;

GranTN: TIntegerField;

GranTN2: TAutoIncField;

GranTN1: TFloatField;

GranTZagr: TStringField;

GranTZagrS: TStringField;

GranTZagrPo: TStringField;

GranTZagrGoal: TStringField;

GranTVoinOb: TBooleanField;

GranTGoden: TBooleanField;

GranTOsob: TMemoField;

ObrTN: TIntegerField;

ObrTN2: TAutoIncField;

ObrTZaved: TStringField;

ObrTN1: TIntegerField;

ObrTZavedAdr: TStringField;

ObrTSpec: TStringField;

ObrTGodS: TStringField;

ObrTGodPo: TStringField;

ObrTDipSer: TStringField;

ObrTDipNom: TStringField;

ObrTDipTema: TStringField;

SupTN: TIntegerField;

SupTSup: TStringField;

SupTSupFam: TStringField;

SupTSupName: TStringField;

SupTSupOtch: TStringField;

obrazTN: TIntegerField;

obrazTN2: TAutoIncField;

obrazTN1: TIntegerField;

obrazTObrSred: TStringField;

obrazTObrSpec: TStringField;

obrazTObrVis: TStringField;

LangTN: TIntegerField;

LangTN2: TAutoIncField;

LangTLang: TStringField;

LangTN1: TIntegerField;

LangTLangUrov: TStringField;

DBText23: TDBText;

DBText24: TDBText;

DBText25: TDBText;

DBText26: TDBText;

DBText28: TDBText;

VoinTN: TIntegerField;

VoinTVoinOb: TStringField;

VoinTGoden: TStringField;

VoinTVoinData: TStringField;

VoinTOsob: TMemoField;

RabTN: TIntegerField;

RabTUvolData: TStringField;

RabTPrinData: TStringField;

RabTUvolOsnov: TStringField;

RabTUvol: TStringField;

Label33: TLabel;

Query2: TQuery;

N25: TMenuItem;

N26: TMenuItem;

N12: TMenuItem;

N19: TMenuItem;

Query1N1: TIntegerField;

Query1N: TIntegerField;

procedure FormCreate (Sender: TObject);

procedure Button1Click (Sender: TObject);

procedure DBNavigator1Click (Sender: TObject; Button: TNavigateBtn);

procedure DBGrid1CellClick (Column: TColumn);

procedure DBGrid1KeyUp (Sender: TObject; var Key: Word;

Shift: TShiftState);

procedure Button2Click (Sender: TObject);

procedure Button3Click (Sender: TObject);

procedure Button6Click (Sender: TObject);

procedure Button4Click (Sender: TObject);

procedure Button5Click (Sender: TObject);

procedure Button7Click (Sender: TObject);

procedure Button8Click (Sender: TObject);

procedure Button9Click (Sender: TObject);

procedure Button10Click (Sender: TObject);

procedure Button12Click (Sender: TObject);

procedure Button11Click (Sender: TObject);

procedure Button13Click (Sender: TObject);

procedure FormShow (Sender: TObject);

procedure Button14Click (Sender: TObject);

procedure N1Click (Sender: TObject);

procedure N3Click (Sender: TObject);

procedure DBGrid1DblClick (Sender: TObject);

procedure N12Click (Sender: TObject);

procedure N20Click (Sender: TObject);

procedure N21Click (Sender: TObject);

procedure N13Click (Sender: TObject);

procedure N14Click (Sender: TObject);

procedure N15Click (Sender: TObject);

procedure N16Click (Sender: TObject);

procedure N17Click (Sender: TObject);

procedure N18Click (Sender: TObject);

procedure N22Click (Sender: TObject);

procedure N23Click (Sender: TObject);

procedure PageControl1Changing (Sender: TObject;

var AllowChange: Boolean);

procedure FormActivate (Sender: TObject);

procedure N25Click (Sender: TObject);

procedure N26Click (Sender: TObject);

procedure N19Click (Sender: TObject);

procedure DBGrid5KeyDown (Sender: TObject; var Key: Word;

Shift: TShiftState);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses Unit4, Unit7, Unit6, Unit8, Unit9, Unit10, Unit11;

{$R *.DFM}

procedure TForm1. FormCreate (Sender: TObject);

begin

dbgrid1.DataSource:=SpisokS;

SpisokT.Refresh;

Form1.Label1.Caption:=form1.SpisokTfam.value + ' '+ form1.SpisokTName.value +

' ' + form1.SpisokTOtch.value;

form1.DBNavigator1.visible:=true;

SpisokT.Active:=true;

end;

procedure TForm1. Button1Click (Sender: TObject);

begin

close;

end;

procedure TForm1. DBNavigator1Click (Sender: TObject; Button: TNavigateBtn);

begin

if form1.obrazTObrSred.Value='Среднее' then form5. CheckBox1.Checked:=true else form5. CheckBox1.Checked:=false;

if form1.obrazTObrSpec.Value='Среднее специальное' then form5. CheckBox2.Checked:=true

else form5. CheckBox2.Checked:=false;

if form1.obrazTObrVis.Value='Высшее' then form5. CheckBox3.Checked:=true else form5. CheckBox3.Checked:=false;

if form1.VoinTVoinOb.Value='Военнообязанный' then form7. CheckBox1.Checked:=true else form7. CheckBox1.Checked:=false;

if form1.RabTUvol.Value='Уволен' then form3. CheckBox1.Checked:=true else form3. CheckBox1.Checked:=false;

DBGrid1.SelectedRows.CurrentRowSelected:=true;

if form1.SpisokS.DataSet <> form1. Query1 then

Form1.Label1.Caption:=form1.SpisokTfam.value + ' '+ form1.SpisokTName.value +

' ' + form1.SpisokTOtch.value;

begin

if (Button=nbPrior) or (Button=nbFirst) then

begin

SpisokT.Prior;

if SpisokT. bof then

begin

DBNavigator1.Controls[Ord (nbNext)]. Enabled:=True;

DBNavigator1.Controls[Ord (nbLast)].Enabled:=True;

end

else

SpisokT.Next;

end;

if (Button=nbNext) or (Button=nbLast) then

begin

SpisokT.Next;

if SpisokT. Eof then

begin

DBNavigator1.Controls[Ord (nbFirst)]. Enabled:=True;

DBNavigator1.Controls[Ord (nbPrior)].Enabled:=True;

end

else

SpisokT.Prior;

end;

end;

end;

procedure TForm1. DBGrid1CellClick (Column: TColumn);

begin

try

if form1.VoinTVoinOb.Value='Военнообязанный' then form7. CheckBox1.Checked:=true else form7. CheckBox1.Checked:=false;

if form1.obrazTObrSred.Value='Среднее' then form5. CheckBox1.Checked:=true else form5. CheckBox1.Checked:=false;

if form1.obrazTObrSpec.Value='Среднее специальное' then form5. CheckBox2.Checked:=true

else form5. CheckBox2.Checked:=false;

if form1.obrazTObrVis.Value='Высшее' then form5. CheckBox3.Checked:=true else form5. CheckBox3.Checked:=false;

if form1. Button6.Visible=true then form1. DBGrid1.ReadOnly:=true;

if form1.SpisokS.DataSet <> form1. Query1 then

Form1.Label1.Caption:=form1.SpisokTfam.value + ' '+ form1.SpisokTName.value +

' ' + form1.SpisokTOtch.value;

except

end;

end;

procedure TForm1. DBGrid1KeyUp (Sender: TObject; var Key: Word;

Shift: TShiftState);

begin

if form1.VoinTVoinOb.Value='Военнообязанный' then form7. CheckBox1.Checked:=true else form7. CheckBox1.Checked:=false;

if form1.obrazTObrSred.Value='Среднее' then form5. CheckBox1.Checked:=true else form5. CheckBox1.Checked:=false;

if form1.obrazTObrSpec.Value='Среднее специальное' then form5. CheckBox2.Checked:=true

else form5. CheckBox2.Checked:=false;

if form1.obrazTObrVis.Value='Высшее' then form5. CheckBox3.Checked:=true else form5. CheckBox3.Checked:=false;

if form1. Button6.Visible=true then form1. DBGrid1.ReadOnly:=true;

if form1.SpisokS.DataSet <> form1. Query1 then

Form1.Label1.Caption:=form1.SpisokTfam.value + ' '+ form1.SpisokTName.value +

' ' + form1.SpisokTOtch.value;

end;

procedure TForm1. Button2Click (Sender: TObject);

var s: integer;

begin

spisokT.First;

while not spisokT. Eof do

SpisokT.next;

s:=spisokTN1.value+1;

spisokT.edit;

dbnavigator1.BtnClick (nbInsert);

form1.SpisokTN1.Value:=s;

dbnavigator1.BtnClick (nbrefresh);

form8.showmodal;

end;

procedure TForm1. Button3Click (Sender: TObject);

var r: integer;

begin

try

r:=messagedlg ('Вы уверены??', mtConfirmation,[mbOk, mbCancel], 0);

if r=mrOk then begin

form1.Query1.SQL.Clear;

form1.Query1.SQL.Add ('Delete from «deti.db» where (n='+inttostr (SemTn.value)+')');

form1.Query1.ExecSQL;

form1.Query1.SQL.Clear;

form1.Query1.SQL.Add ('Delete from «Voin.db» where (n='+inttostr (VoinTn.value)+')');

form1.Query1.ExecSQL;

form1.Query1.SQL.Clear;

form1.Query1.SQL.Add ('Delete from «Zav.db» where (n='+inttostr (ObrTn.value)+')');

form1.Query1.ExecSQL;

form1.Query1.SQL.Clear;

form1.Query1.SQL.Add ('Delete from «otp.db» where (n='+inttostr (form3.OtpTn.value)+')');

form1.Query1.ExecSQL;

form1.Query1.SQL.Clear;

form1.Query1.SQL.Add ('Delete from «gran.db» where (n='+inttostr (GranTn.value)+')');

form1.Query1.ExecSQL;

form1.Query1.SQL.Clear;

form1.Query1.SQL.Add ('Delete from «obraz.db» where (n='+inttostr (obrazTn.value)+')');

form1.Query1.ExecSQL;

form1.Query1.SQL.Clear;

form1.Query1.SQL.Add ('Delete from «t3.db» where (n='+inttostr (LichTn.value)+')');

form1.Query1.ExecSQL;

form1.Query1.SQL.Clear;

form1.Query1.SQL.Add ('Delete from «t4.db» where (n='+inttostr (RabTn.value)+')');

form1.Query1.ExecSQL;

form1.Query1.SQL.Clear;

form1.Query1.SQL.Add ('Delete from «Kval.db» where (n='+inttostr (kvaliTn.value)+')');

form1.Query1.ExecSQL;

form1.Query1.SQL.Clear;

form1.Query1.SQL.Add ('Delete from «Lang.db» where (n='+inttostr (LangTn.value)+')');

form1.Query1.ExecSQL;

form1.Query1.SQL.Clear;

form1.Query1.SQL.Add ('Delete from «suprug.db» where (n='+inttostr (SupTn.value)+')');

form1.Query1.ExecSQL;

form1.Query1.SQL.Clear;

form1.Query1.SQL.Add ('Delete from «t1.db» where (n='+inttostr (spisokTn.value)+')');

form1.Query1.ExecSQL; end;

DBNavigator1.BtnClick (nbrefresh);

except showmessage ('Сохраните изменения!!');

end;

end;

procedure TForm1. Button6Click (Sender: TObject);

begin

button6.Visible:=false;

form1.SpisokS.DataSet:=form1.SpisokT;

SpisokT.edit;

form1.DBGrid1.readOnly:=false;

button2.Enabled:=true;

button3.Enabled:=true;

button4.Enabled:=true;

button5.Enabled:=true;

button1.Enabled:=false;

button14.Enabled:=false;

end;

procedure TForm1. Button4Click (Sender: TObject);

begin

try

SpisokT.edit;

DBNavigator1.BtnClick (nbPost);

button1.Enabled:=true;

button6.Visible:=true;

button2.Enabled:=false;

button3.Enabled:=false;

button4.Enabled:=false;

button5.Enabled:=false;

button1.Enabled:=true;

except;

end;

end;

procedure TForm1. Button5Click (Sender: TObject);

begin

DBNavigator1.BtnClick (nbCancel);

button1.Enabled:=true;

button6.Visible:=true;

button2.Enabled:=true;

button3.Enabled:=true;

button4.Enabled:=true;

button5.Enabled:=true;

button2.Enabled:=false;

button3.Enabled:=false;

button4.Enabled:=false;

button5.Enabled:=false;

button1.Enabled:=true;

end;

procedure TForm1. Button7Click (Sender: TObject);

begin

try

LichT.edit;

form10.showmodal;

except

showmessage ('Введите корректные данные!!!');

end;

end;

procedure TForm1. Button8Click (Sender: TObject);

begin

try

RabT.Edit;

Form3.showmodal;

except

showmessage ('Введите корректные данные!!!');

end;

end;

procedure TForm1. Button9Click (Sender: TObject);

begin

try

form4.showmodal;

except

showmessage ('Введите корректные данные!!!');

end;

end;

procedure TForm1. Button10Click (Sender: TObject);

begin

try

form5.showmodal;

except

showmessage ('Введите корректные данные!!!');

end;

end;

procedure TForm1. Button12Click (Sender: TObject);

begin

try

form1.VoinT.Edit;

form7.showmodal;

except

showmessage ('Введите корректные данные!!!');

end;

end;

procedure TForm1. Button11Click (Sender: TObject);

begin

try

form6.showmodal;

except

showmessage ('Введите корректные данные!!!');

end;

end;

procedure TForm1. Button13Click (Sender: TObject);

begin

form1.Query1.SQL.Clear;

form1.Query1.SQL.Add ('Select *');

form1.Query1.SQL.Add ('from «t1.db» ');

form9.showmodal;

end;

procedure TForm1. FormShow (Sender: TObject);

begin

form2.ShowModal;

end;

procedure TForm1. Button14Click (Sender: TObject);

begin

form1.SpisokS.DataSet:=form1.SpisokT;

form1.Button2.Visible:=true;

form1.Button3.Visible:=true;

form1.Button4.Visible:=true;

form1.Button5.Visible:=true;

form1.Button6.Visible:=true;

form1.Button14.Visible:=false;

form1.Label1.Visible:=true;

form1.Label26.Visible:=false;

Form1.Label1.Caption:=form1.SpisokTfam.value + ' '+ form1.SpisokTName.value +

' ' + form1.SpisokTOtch.value;

end;

procedure TForm1. N1Click (Sender: TObject);

begin

form1.button6.Click;

end;

procedure TForm1. N3Click (Sender: TObject);

begin

close;

end;

procedure TForm1. DBGrid1DblClick (Sender: TObject);

begin

try

if form1.VoinTVoinOb.Value='Военнообязанный' then form7. CheckBox1.Checked:=true else form7. CheckBox1.Checked:=false;

if form1.obrazTObrSred.Value='Среднее' then form5. CheckBox1.Checked:=true else form5. CheckBox1.Checked:=false;

if form1.obrazTObrSpec.Value='Среднее специальное' then form5. CheckBox2.Checked:=true

else form5. CheckBox2.Checked:=false;

if form1.obrazTObrVis.Value='Высшее' then form5. CheckBox3.Checked:=true else form5. CheckBox3.Checked:=false;

if form1. Button6.Visible=true then form1. DBGrid1.ReadOnly:=true;

except

end;

end;

procedure TForm1. N12Click (Sender: TObject);

begin

n12.ShortCut:=ShortCut (Word ('S'), [ssCtrl]);

form1.Button4.Click;

end;

procedure TForm1. N20Click (Sender: TObject);

begin

form1.Button4.click;

end;

procedure TForm1. N21Click (Sender: TObject);

begin

form1.Button5.click;

end;

procedure TForm1. N13Click (Sender: TObject);

begin

form1.Button7.click;

end;

procedure TForm1. N14Click (Sender: TObject);

begin

form1.Button8.click;

end;

procedure TForm1. N15Click (Sender: TObject);

begin

form1.Button9.click;

end;

procedure TForm1. N16Click (Sender: TObject);

begin

form1.Button10.click;

end;

procedure TForm1. N17Click (Sender: TObject);

begin

form1.Button11.click;

end;

procedure TForm1. N18Click (Sender: TObject);

begin

form1.Button12.click;

end;

procedure TForm1. N22Click (Sender: TObject);

begin

Form9.ShowModal;

end;

procedure TForm1. N23Click (Sender: TObject);

begin

form11.showmodal;

end;

procedure TForm1. PageControl1Changing (Sender: TObject;

var AllowChange: Boolean);

begin

if (button6.Visible=false) and (form1.SpisokS.DataSet<>form1.Query1) then

messagedlg ('Сохраните изменения на первой странице!!!', mtWarning,[mbOk], 0);

end;

procedure TForm1. FormActivate (Sender: TObject);

begin

Form1.Label1.Caption:=form1.SpisokTfam.value + ' '+ form1.SpisokTName.value +

' ' + form1.SpisokTOtch.value;

form1.DBNavigator1.visible:=true;

SpisokT.Active:=true;

end;

procedure TForm1. N25Click (Sender: TObject);

begin

form1.button6.Click;

form1.Button2.Click;

end;

procedure TForm1. N26Click (Sender: TObject);

begin

form1.button6.Click;

form1.Button3.click;

end;

procedure TForm1. N19Click (Sender: TObject);

begin

Form1.Button5.Click;

end;

procedure TForm1. DBGrid5KeyDown (Sender: TObject; var Key: Word;

Shift: TShiftState);

begin

form7.Button1.Enabled:=true;

end;

end.