Содержание
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 Пассажирский121В течение 60 дней с момента осуществления предоплатыДиректор _____________ Д.Л. Круталевич
ООО ТПЦ "Спринтер" УТВЕРЖДАЮДиректор ____________С.Н.Майоров (должность) (подпись) (И.О.Фамилия) "_____"_________________20___г.АКТ на списание бумаги д/офисной техникиКомиссия образованная в соответствии с приказом № от .в составе :председателя комиссии Ком.директора Жук И.А.членов комиссии: и.о.Гл.бухгалтера Далецкая Н.Е.бухгалтера Болозева О.А.списала бумагу д/офисной техникиМесяц,годед.изм.кол-воцена,рубсумма,рубмарт 2008гшт5825144790Итого подлежит списаниюх5х44790Председатель комиссии Ком.директор Жук И.А.Член комиссии: И.О.Гл.бухгалтера Далецкая Н.Е.бухгалтер Болозева О.А.ООО "Транссервискарс"Расчет отпускаФИО Должностной оклад на 01 ноября 2011г.778 500 Должностной окладМесяцНачисленоКоэффи-Итого циент 407 108 03.10148 065 1,910 407 108 04.10407 180 1,91778 638 407 108 05.10407 180 1,91778 638 407 108 06.10474 272 1,91906 936 407 108 07.10514 675 1,91984 197 407 108 08.10934 663 1,911 787 327 407 108 09.10559 873 1,911 070 628 407 108 10.10453 230 1,91866 698 407 108 11.10924 607 1,911 768 097 407 108 12.10389 282 1,91744 412 461 760 01.11539 306 1,69909 238 461 760 02.11736 815 1,691 242 226 461 760 03.11161 492 1,69272 266 461 760 04.11788 563 1,691 329 470 499 200 05.11792 664 1,561 236 156 499 200 06.11852 218 1,561 329 030 499 200 07.11796 700 1,561 242 450 499 200 08.11758 557 1,561 182 966 499 200 09.11609 573 1,56950 626 778 500 10.11 1,000 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.DataSetform1.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.