Главная | Обратная связь | Поможем написать вашу работу!
МегаЛекции

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

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

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

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

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

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

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

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

Заключение

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

 

 

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

 

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

 


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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

 


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

 

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

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

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

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

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

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

 


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

 

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

 

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

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

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

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

сканер;

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

 

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

 

Заявка на поставку продукции

"____"_____________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 Организация межсетевого взаимодействия по обмену информацией

 

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

 

 

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

 

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

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

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

 


Заключение

 

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

 


Приложения

 

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

 

unit Unit1;

interface, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, Db, DBTables, StdCtrls, ComCtrls, ExtCtrls, DBCtrls, Grids, DBGrids, unit2, unit3,unit5, Menus, CheckLst,IBSQL;= class(TForm): TPageControl;: TTabSheet;: TLabel;: TTable;: TDataSource;: TDBGrid;: TDBNavigator;: TButton;: TButton;: TButton;: TButton;: TButton;: TButton;: TTabSheet;: TButton;: TDataSource;: TTable;: TDBText;: TDBText;: TDBText;: TDBText;: TDBText;: TDBText;: TDBText;: TDBText;: TDBText;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TDBText;: TDBText;: TTabSheet;: TDataSource;: TTable;: TButton;: TTabSheet;: TButton;: TTabSheet;: TDataSource;: TDataSource;: TTable;: TDBGrid;: TDBGrid;: TButton;: TTabSheet;: TDataSource;: TTable;: TDBGrid;: TButton;: TTabSheet;: TDBGrid;: TDataSource;: TTable;: TButton;: TDBGrid;: TDBGrid;: TTable;: TMainMenu;: TMenuItem;: TButton;: TDBText;: TDBText;: TDBText;: TDBText;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TDBText;: TLabel;: TDBText;: TLabel;: TLabel;: TDBText;: TDBText;: TDBText;: TDataSource;: TTable;: TDataSource;: TTable;: TTable;: TDataSource;: TLabel;: TDBText;: TDBMemo;: TLabel;: TDataSource;: TTable;: TQuery;: TDataSource;: TButton;Otdel: TStringField;Fam: TStringField;Name: TStringField;Otch: TStringField;Dolzhnost: TStringField;TekKval: TStringField;Color: TStringField;: TLabel;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TAutoIncField;: TIntegerField;: TStringField;: TStringField;: TStringField;: TStringField;: TStringField;: TStringField;: TStringField;: TIntegerField;: TStringField;: TStringField;: TStringField;: TStringField;: TStringField;: TStringField;: TStringField;: TStringField;: TStringField;: TStringField;: TStringField;: TStringField;: TIntegerField;: TAutoIncField;: TIntegerField;: TStringField;: TStringField;: TStringField;: TFloatField;: TStringField;: TIntegerField;: TAutoIncField;: TIntegerField;: TStringField;: TStringField;: TStringField;: TStringField;: TIntegerField;: TAutoIncField;: TFloatField;: TStringField;: TStringField;: TStringField;: TStringField;: TBooleanField;: TBooleanField;: TMemoField;: TIntegerField;: TAutoIncField;: TStringField;: TIntegerField;: TStringField;: TStringField;: TStringField;: TStringField;: TStringField;: TStringField;: TStringField;: TIntegerField;: TStringField;: TStringField;: TStringField;: TStringField;: TIntegerField;: TAutoIncField;: TIntegerField;: TStringField;: TStringField;: TStringField;: TIntegerField;: TAutoIncField;: TStringField;: TIntegerField;: TStringField;: TDBText;: TDBText;: TDBText;: TDBText;: TDBText;: TIntegerField;: TStringField;: TStringField;: TStringField;: TMemoField;: TIntegerField;: TStringField;: TStringField;: TStringField;: TStringField;: TLabel;: TQuery;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;N1: TIntegerField;N: TIntegerField;FormCreate(Sender: TObject);Button1Click(Sender: TObject);DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);DBGrid1CellClick(Column: TColumn);DBGrid1KeyUp(Sender: TObject; var Key: Word;: TShiftState);Button2Click(Sender: TObject);Button3Click(Sender: TObject);Button6Click(Sender: TObject);Button4Click(Sender: TObject);Button5Click(Sender: TObject);Button7Click(Sender: TObject);Button8Click(Sender: TObject);Button9Click(Sender: TObject);Button10Click(Sender: TObject);Button12Click(Sender: TObject);Button11Click(Sender: TObject);Button13Click(Sender: TObject);FormShow(Sender: TObject);Button14Click(Sender: TObject);N1Click(Sender: TObject);N3Click(Sender: TObject);DBGrid1DblClick(Sender: TObject);N12Click(Sender: TObject);N20Click(Sender: TObject);N21Click(Sender: TObject);N13Click(Sender: TObject);N14Click(Sender: TObject);N15Click(Sender: TObject);N16Click(Sender: TObject);N17Click(Sender: TObject);N18Click(Sender: TObject);N22Click(Sender: TObject);N23Click(Sender: TObject);PageControl1Changing(Sender: TObject;AllowChange: Boolean);FormActivate(Sender: TObject);N25Click(Sender: TObject);N26Click(Sender: TObject);N19Click(Sender: TObject);DBGrid5KeyDown(Sender: TObject; var Key: Word;: TShiftState);

{ Private declarations }

{ Public declarations };: TForm1;Unit4, Unit7, Unit6, Unit8, Unit9, Unit10, Unit11;

{$R *.DFM}TForm1.FormCreate(Sender: TObject);.DataSource:=SpisokS;.Refresh;.Label1.Caption:=form1.SpisokTfam.value + ' '+ form1.SpisokTName.value +

' ' + form1.SpisokTOtch.value;.DBNavigator1.visible:=true;.Active:=true;;TForm1.Button1Click(Sender: TObject);;;TForm1.DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);form1.obrazTObrSred.Value='Среднее' then form5.CheckBox1.Checked:=true else form5.CheckBox1.Checked:=false;form1.obrazTObrSpec.Value='Среднее специальное' then form5.CheckBox2.Checked:=trueform5.CheckBox2.Checked:=false;form1.obrazTObrVis.Value='Высшее' then form5.CheckBox3.Checked:=true else form5.CheckBox3.Checked:=false;form1.VoinTVoinOb.Value='Военнообязанный' then form7.CheckBox1.Checked:=true else form7.CheckBox1.Checked:=false;form1.RabTUvol.Value='Уволен' then form3.CheckBox1.Checked:=true else form3.CheckBox1.Checked:=false;.SelectedRows.CurrentRowSelected:=true;form1.SpisokS.DataSet <> form1.Query1 then.Label1.Caption:=form1.SpisokTfam.value + ' '+ form1.SpisokTName.value +

' ' + form1.SpisokTOtch.value;(Button=nbPrior) or (Button=nbFirst) then.Prior;SpisokT.bof then.Controls[Ord(nbNext)].Enabled:=True;.Controls[Ord(nbLast)].Enabled:=True;.Next;;(Button=nbNext) or (Button=nbLast) then.Next;SpisokT.Eof then.Controls[Ord(nbFirst)].Enabled:=True;.Controls[Ord(nbPrior)].Enabled:=True;.Prior;;;;TForm1.DBGrid1CellClick(Column: TColumn);form1.VoinTVoinOb.Value='Военнообязанный' then form7.CheckBox1.Checked:=true else form7.CheckBox1.Checked:=false;form1.obrazTObrSred.Value='Среднее' then form5.CheckBox1.Checked:=true else form5.CheckBox1.Checked:=false;form1.obrazTObrSpec.Value='Среднее специальное' then form5.CheckBox2.Checked:=trueform5.CheckBox2.Checked:=false;form1.obrazTObrVis.Value='Высшее' then form5.CheckBox3.Checked:=true else form5.CheckBox3.Checked:=false;

form1.Button6.Visible=true then form1.DBGrid1.ReadOnly:=true;form1.SpisokS.DataSet <> form1.Query1 then.Label1.Caption:=form1.SpisokTfam.value + ' '+ form1.SpisokTName.value +

' ' + form1.SpisokTOtch.value;;;TForm1.DBGrid1KeyUp(Sender: TObject; var Key: Word;: TShiftState);form1.VoinTVoinOb.Value='Военнообязанный' then form7.CheckBox1.Checked:=true else form7.CheckBox1.Checked:=false;form1.obrazTObrSred.Value='Среднее' then form5.CheckBox1.Checked:=true else form5.CheckBox1.Checked:=false;form1.obrazTObrSpec.Value='Среднее специальное' then form5.CheckBox2.Checked:=trueform5.CheckBox2.Checked:=false;form1.obrazTObrVis.Value='Высшее' then form5.CheckBox3.Checked:=true else form5.CheckBox3.Checked:=false;form1.Button6.Visible=true then form1.DBGrid1.ReadOnly:=true;form1.SpisokS.DataSet <> form1.Query1 then.Label1.Caption:=form1.SpisokTfam.value + ' '+ form1.SpisokTName.value +

' ' + form1.SpisokTOtch.value;;TForm1.Button2Click(Sender: TObject);s:integer;.First;not spisokT.Eof do.next;:=spisokTN1.value+1;.edit;.BtnClick(nbInsert);.SpisokTN1.Value:=s;.BtnClick(nbrefresh);.showmodal;;TForm1.Button3Click(Sender: TObject);r:integer;:=messagedlg('Вы уверены??',mtConfirmation,[mbOk,mbCancel],0);r=mrOk then begin.Query1.SQL.Clear;.Query1.SQL.Add('Delete from "deti.db" where (n='+inttostr(SemTn.value)+')');.Query1.ExecSQL;.Query1.SQL.Clear;.Query1.SQL.Add('Delete from "Voin.db" where (n='+inttostr(VoinTn.value)+')');.Query1.ExecSQL;.Query1.SQL.Clear;.Query1.SQL.Add('Delete from "Zav.db" where (n='+inttostr(ObrTn.value)+')');.Query1.ExecSQL;.Query1.SQL.Clear;.Query1.SQL.Add('Delete from "otp.db" where (n='+inttostr(form3.OtpTn.value)+')');.Query1.ExecSQL;.Query1.SQL.Clear;.Query1.SQL.Add('Delete from "gran.db" where (n='+inttostr(GranTn.value)+')');.Query1.ExecSQL;.Query1.SQL.Clear;.Query1.SQL.Add('Delete from "obraz.db" where (n='+inttostr(obrazTn.value)+')');.Query1.ExecSQL;.Query1.SQL.Clear;.Query1.SQL.Add('Delete from "t3.db" where (n='+inttostr(LichTn.value)+')');.Query1.ExecSQL;.Query1.SQL.Clear;.Query1.SQL.Add('Delete from "t4.db" where (n='+inttostr(RabTn.value)+')');.Query1.ExecSQL;.Query1.SQL.Clear;.Query1.SQL.Add('Delete from "Kval.db" where (n='+inttostr(kvaliTn.value)+')');.Query1.ExecSQL;.Query1.SQL.Clear;.Query1.SQL.Add('Delete from "Lang.db" where (n='+inttostr(LangTn.value)+')');.Query1.ExecSQL;.Query1.SQL.Clear;.Query1.SQL.Add('Delete from "suprug.db" where (n='+inttostr(SupTn.value)+')');.Query1.ExecSQL;.Query1.SQL.Clear;.Query1.SQL.Add('Delete from "t1.db" where (n='+inttostr(spisokTn.value)+')');.Query1.ExecSQL; end;.BtnClick(nbrefresh);

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

end;;TForm1.Button6Click(Sender: TObject);.Visible:=false;.SpisokS.DataSet:=form1.SpisokT;.edit;.DBGrid1.readOnly:=false;.Enabled:=true;.Enabled:=true;.Enabled:=true;.Enabled:=true;.Enabled:=false;.Enabled:=false;;TForm1.Button4Click(Sender: TObject);.edit;.BtnClick(nbPost);.Enabled:=true;.Visible:=true;.Enabled:=false;.Enabled:=false;.Enabled:=false;.Enabled:=false;.Enabled:=true;;;;TForm1.Button5Click(Sender: TObject);.BtnClick(nbCancel);.Enabled:=true;.Visible:=true;.Enabled:=true;.Enabled:=true;.Enabled:=true;.Enabled:=true;.Enabled:=false;.Enabled:=false;.Enabled:=false;.Enabled:=false;.Enabled:=true;;TForm1.Button7Click(Sender: TObject);.edit;.showmodal;

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

end;;TForm1.Button8Click(Sender: TObject);.Edit;.showmodal;

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

end;;TForm1.Button9Click(Sender: TObject);.showmodal;('Введите корректные данные!!!');;;TForm1.Button10Click(Sender: TObject);.showmodal;('Введите корректные данные!!!');;;TForm1.Button12Click(Sender: TObject);.VoinT.Edit;.showmodal;('Введите корректные данные!!!');;;TForm1.Button11Click(Sender: TObject);.showmodal;('Введите корректные данные!!!');;;TForm1.Button13Click(Sender: TObject);.Query1.SQL.Clear;.Query1.SQL.Add('Select *');.Query1.SQL.Add('from "t1.db"');.showmodal;;TForm1.FormShow(Sender: TObject);.ShowModal;;TForm1.Button14Click(Sender: TObject);.SpisokS.DataSet:=form1.SpisokT;.Button2.Visible:=true;.Button3.Visible:=true;.Button4.Visible:=true;.Button5.Visible:=true;.Button6.Visible:=true;.Button14.Visible:=false;.Label1.Visible:=true;.Label26.Visible:=false;.Label1.Caption:=form1.SpisokTfam.value + ' '+ form1.SpisokTName.value +

' ' + form1.SpisokTOtch.value;;TForm1.N1Click(Sender: TObject);.button6.Click;;TForm1.N3Click(Sender: TObject);;;TForm1.DBGrid1DblClick(Sender: TObject);form1.VoinTVoinOb.Value='Военнообязанный' then form7.CheckBox1.Checked:=true else form7.CheckBox1.Checked:=false;form1.obrazTObrSred.Value='Среднее' then form5.CheckBox1.Checked:=true else form5.CheckBox1.Checked:=false;form1.obrazTObrSpec.Value='Среднее специальное' then form5.CheckBox2.Checked:=trueform5.CheckBox2.Checked:=false;form1.obrazTObrVis.Value='Высшее' then form5.CheckBox3.Checked:=true else form5.CheckBox3.Checked:=false;form1.Button6.Visible=true then form1.DBGrid1.ReadOnly:=true;;;TForm1.N12Click(Sender: TObject);.ShortCut:=ShortCut(Word('S'), [ssCtrl]);.Button4.Click;;TForm1.N20Click(Sender: TObject);.Button4.click;;TForm1.N21Click(Sender: TObject);.Button5.click;;TForm1.N13Click(Sender: TObject);.Button7.click;;TForm1.N14Click(Sender: TObject);.Button8.click;;TForm1.N15Click(Sender: TObject);.Button9.click;;TForm1.N16Click(Sender: TObject);.Button10.click;;TForm1.N17Click(Sender: TObject);.Button11.click;;TForm1.N18Click(Sender: TObject);.Button12.click;;TForm1.N22Click(Sender: TObject);.ShowModal;;TForm1.N23Click(Sender: TObject);.showmodal;;TForm1.PageControl1Changing(Sender: TObject;AllowChange: Boolean);(button6.Visible=false) and (form1.SpisokS.DataSet<>form1.Query1) then

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

end;TForm1.FormActivate(Sender: TObject);.Label1.Caption:=form1.SpisokTfam.value + ' '+ form1.SpisokTName.value +

' ' + form1.SpisokTOtch.value;.DBNavigator1.visible:=true;.Active:=true;;TForm1.N25Click(Sender: TObject);.button6.Click;.Button2.Click;;TForm1.N26Click(Sender: TObject);.button6.Click;.Button3.click;;TForm1.N19Click(Sender: TObject);.Button5.Click;;TForm1.DBGrid5KeyDown(Sender: TObject; var Key: Word;: TShiftState);.Button1.Enabled:=true;

end;

end.

Поделиться:





Воспользуйтесь поиском по сайту:



©2015 - 2024 megalektsii.ru Все авторские права принадлежат авторам лекционных материалов. Обратная связь с нами...