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

Размещено на http://www.allbest.ru/

Содержание

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

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

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

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

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

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

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

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

Заключение

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

Размещено на http://www.allbest.ru/

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

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

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

программный системный информация

Общие требования безопасности

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Программист обязан:

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

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

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

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

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

Требования безопасности после окончания работы

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

- сканер;

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

4.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	906 936
407 108	07.10	514 675	1,91	984 197
407 108	08.10	934 663	1,91	1 787 327
407 108	09.10	559 873	1,91	1 070 628
407 108	10.10	453 230	1,91	866 698
407 108	11.10	924 607	1,91	1 768 097
407 108	12.10	389 282	1,91	744 412
461 760	01.11	539 306	1,69	909 238
461 760	02.11	736 815	1,69	1 242 226
461 760	03.11	161 492	1,69	272 266
461 760	04.11	788 563	1,69	1 329 470
499 200	05.11	792 664	1,56	1 236 156
499 200	06.11	852 218	1,56	1 329 030
499 200	07.11	796 700	1,56	1 242 450
499 200	08.11	758 557	1,56	1 182 966
499 200	09.11	609 573	1,56	950 626
778 500	10.11		1,00	0
778 500	11.11		1,00
ИТОГО:	Х	Х	Х	19 379 998
Расчет размера среднедневного заработка:
		19 379 998	/29,7/19 *	40	=	1 373 737

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

Схема сетевой архитектуры предприятия:

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.

Размещено на Allbest.ru