Автоматизация основного производственного процесса
Введение
Технологическая практика направлена на
закрепление и углубление знаний, практических навыков по специальности
«Программное обеспечение информационных технологий».
Мною был выбран оптимальный вариант
закрепления теоретических знаний и получения практических навыков - прохождение
технологической практики в компании АйБиЭй АйТи Парк. Основным видом
деятельность АйБиЭй АйТи Парк включает реализацию проектов в области системной
интеграции <https://ru.wikipedia.org/wiki/%D0%A1%D0%B8%D1%81%D1%82%D0%B5%D0%BC%D0%BD%D0%B0%D1%8F_%D0%B8%D0%BD%D1%82%D0%B5%D0%B3%D1%80%D0%B0%D1%86%D0%B8%D1%8F>,
разработку программного обеспечения (ПО)
<https://ru.wikipedia.org/wiki/%D0%9F%D1%80%D0%BE%D0%B3%D1%80%D0%B0%D0%BC%D0%BC%D0%BD%D0%BE%D0%B5_%D0%BE%D0%B1%D0%B5%D1%81%D0%BF%D0%B5%D1%87%D0%B5%D0%BD%D0%B8%D0%B5>,
ИТ-консалтинг
<https://ru.wikipedia.org/wiki/%D0%98%D0%A2-%D0%BA%D0%BE%D0%BD%D1%81%D0%B0%D0%BB%D1%82%D0%B8%D0%BD%D0%B3>
и обучение, производство и послегарантийное обслуживание средств вычислительной
техники (СВТ). В процессе прохождения практики необходимо закрепить
теоретические знания путем получения практических навыков.
Срок прохождения практики с 25 мая
2015 г. по 18 июля 2015 г.
В период прохождения практики мною были
выполнены все задания в соответствии с Программой практики для студентов УО
«Минского государственного колледжа электроники» и индивидуальным заданием.
1. Описание организационной структуры управления
предприятием
база данные документооборот редактирование
Управление предприятия строится на принципах
единоначалия и самоуправления. Высшим органом управления предприятия, в
соответствии с ее Уставом и функциональными задачами, является общее собрание
сотрудников, которое решает наиболее важные, стратегические задачи
жизнедеятельности предприятия:
¾ утверждает основные направления
деятельности;
¾ принимает Устав и изменения к нему;
¾ создаёт постоянные и временные
комиссии по различным направлениям работы, определяет их полномочия.
Для руководства деятельностью работает
руководительский комитет. В его функции входит:
¾ обсуждение и выбор планов, программ,
форм и методов организации рабочего процесса;
¾ организация работы по повышению
квалификации педагогических работников, распространение передового опыта;
¾ определение направлений
опытно-экспериментальной работы, взаимодействие предприятия с внешними
организациями;
¾ принятие решений о проведении
промежуточной аттестации в данном отчетном году с определением конкретных форм,
порядка и сроков её проведения;
Непосредственное управление всей деятельностью
предприятия осуществляет директор.
В дирекцию (исполнительный орган) входят:
директор, заместители.
Режим работы и социальное обеспечение.
Рабочий день в АйБиЭй АйТи Парк при 5-ти дневной
рабочей неделе начинается в 09.00 и заканчивается в 18.00 с перерывом на обед и
отдыха с 13.00 до 14.00.
¾ объявление благодарности;
¾ выдача премии;
¾ награждение ценным подарком;
2. Описание организационной структуры
Описание организационной структуры управления
предприятием представлено на рисунке 2.1
Рисунок 2.1 - оорганизационная
структура предприятия
. Характеристика оказываемых предприятием услуг
Компания АйБиЭй АйТи Парк предоставляет услуги
по:
· Созданию СЭД:
· Создание СЭД на основе ППП «Канцлер»
на IBM Notes/Domino
· Система на основе СЭД «Канцлер» на
IBM Content Foundation (FileNet)
· Заказной разработке СЭД
· Поставке коробочных программных
продуктов «Канцлер»
· Созданию электронных архивов на базе
Системы электронного архива «Канцлер» на IBM Content Foundation (FileNet)
· Обучению
· Сопровождению
. Индивидуальное задание
Одним из возможных путей достижения этих целей
является автоматизация непосредственно основного производственного процесса, а
также систему документооборота предприятия, т.е. внедрение в сферу деятельности
предприятия новых продуктов современных технологий. Одним из важнейших условий
обеспечения эффективного функционирования любой организации является наличие
развитой информационной системы.
Целью выполнения индивидуального задания
является создание информационной базы данных сотрудников предприятия.
. Функциональная модель (функции которые
выполняет программа)
- Добавление полей в базу данных;
Редактирование полей базы данных;
Удаление полей из базы данных;
Сортировка полей базы данных;
Поиск в базе данных;
Экспорт в Microsoft
Excel данных.
Для работы с программой необходимо запустить
файл «BD.exe». После
запуска мы видим главную форму, которая имеет вид в соответствии с рисунком
5.1.
Рисунок 5.1 - Главная форма
. Требования к аппаратному обеспечению (мин
требования)
Минимальные требования к аппаратному
обеспечению:
¾ процессор: AMD
E- 450 APU
with Radeon™
HD Graphics
1.65 GHz и выше;
¾ видеокарта 64 MB
или выше;
¾ объем оперативной памяти: 256 MB
и
выше;
¾ операционная система: Windows
XP и выше;
¾ свободное место на жестком диске 250
GB и выше;
¾ наличие монитора VGA с разрешением
не менее 800x600;
¾ наличие мыши;
¾ CD-ROM 10х;
¾ клавиатура.
Unit1;, Messages, SysUtils,
Variants, Classes, Graphics, Controls, Forms,, Grids, DBGrids, acDBGrid,
StdCtrls, sGroupBox, Buttons, sBitBtn,, sSkinManager, DB, ADODB, sLabel, sEdit,
sComboBox, ExtCtrls, ComObj,, OleServer, QuickRpt, ActiveX, sSkinProvider;=
class(TForm): TsDBGrid;: TMainMenu;: TMenuItem;: TMenuItem;: TMenuItem;:
TsGroupBox;: TsGroupBox;: TsBitBtn;: TsBitBtn;: TsBitBtn;: TsBitBtn;:
TsSkinManager;: TDataSource;: TADOConnection;: TADOTable;: TADOQuery;: TsEdit;:
TsLabel;: TsLabel;: TDataSource;: TsComboBox;: TsBitBtn;: TsLabel;: TsLabel;:
TTimer;: TExcelApplication;: TExcelWorksheet;: TExcelOLEObject;: TsBitBtn;:
TADOTable;: TsSkinProvider;: TsLabel;: TsLabel;: TsLabel;:
TsLabel;sBitBtn1Click(Sender: TObject);sBitBtn2Click(Sender:
TObject);sBitBtn3Click(Sender: TObject);sBitBtn4Click(Sender:
TObject);sBitBtn5Click(Sender: TObject);ADOTable1AfterPost(DataSet:
TDataSet);DataSource1DataChange(Sender: TObject; Field:
TField);Timer1Timer(Sender: TObject);sBitBtn6Click(Sender:
TObject);sDBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;: Integer;
Column: TColumn; State: TGridDrawState);FormCreate(Sender: TObject);
{ Private declarations }
{ Public declarations };
: TForm1;
Unit2;
{$R *.dfm}
TForm1.sBitBtn1Click(Sender:
TObject);
.Show;.Insert;;
TForm1.sBitBtn2Click(Sender:
TObject);.Show;.Edit;;TForm1.sBitBtn3Click(Sender:
TObject);.Delete;;TForm1.sBitBtn4Click(Sender: TObject);.Sort := '[name]
'+'DESC';;
TForm1.sBitBtn5Click(Sender:
TObject);sedit1.Text=''
then.DataSource:=DataSource1;.SQL.Clear;.SQL.Add('SELECT * FROM tt WHERE '+scombobox1.text+'
LIKE ''%'+sEdit1.Text+'%''');.Active:=True;.DataSource:=DataSource2;;
TForm1.ADOTable1AfterPost(DataSet:
TDataSet);.Caption:=inttostr(sDBGrid1.DataSource.DataSet.RecordCount);;
TForm1.DataSource1DataChange(Sender:
TObject; Field: TField);.Caption:=inttostr(sDBGrid1.DataSource.DataSet.RecordCount);;
TForm1.Timer1Timer(Sender:
TObject);.Caption:=timetostr(now);;
TForm1.sBitBtn6Click(Sender:
TObject);,Sheet : variant;,i,j:integer;:=
CreateOleObject('Excel.Application');.Visible := true;.WorkBooks.Add(-4167);.WorkBooks[1].WorkSheets[1].name
:= 'Report';:=ExcelApp.WorkBooks[1].WorkSheets['Report'];:=2;
i := 1 to ADOTable1.FieldCount-1
do.cells[1, i]:= ADOTable1.Fields[i-1].DisplayName;
.First;i:=1 to ADOTable1.RecordCount
doj:=1 to ADOTable1.FieldCount
do.cells[index,j]:=ADOTable1.fields[j-1].asstring;(index);.Next;;;
TForm1.sDBGrid1DrawColumnCell(Sender:
TObject; const Rect: TRect;: Integer; Column: TColumn; State: TGridDrawState);:
String;: TDateTime;: TTime;: Integer;
Заключение
(Sender as TsDBGrid).DataSource.DataSet.FieldByName('sl').AsString='Нет'
then(Sender).Canvas.Brush.Color:=RGB(102,255,255);(Sender as
TsDBGrid).DataSource.DataSet.FieldByName('sl').AsString='нет'
then(Sender).Canvas.Brush.Color:=RGB(102,255,255);(Sender as TsDBGrid).DataSource.DataSet.FieldByName('sl').AsString='да'TDBGrid(Sender).Canvas.Brush.Color:=RGB(102,255,102);(Sender
as
TsDBGrid).DataSource.DataSet.FieldByName('sl').AsString='Да'TDBGrid(Sender).Canvas.Brush.Color:=RGB(102,255,102);(Sender
as TsDBGrid).DataSource.DataSet.FieldByName('sl').AsString=''TDBGrid(Sender).Canvas.Brush.Color:=RGB(204,255,153);
gdSelected IN
StateBegin(Sender).Canvas.Brush.Color:= clHighLight;(Sender).Canvas.Font.Color
:= clHighLightText;;(Sender).DefaultDrawColumnCell(Rect,DataCol,Column,State);;GetUserFromWindows:
string;: string;: Dword;:= 255;(userName,
UserNameLen);GetUserName(PChar(UserName), UserNameLen) then:=
Copy(UserName,1,UserNameLen - 1):= 'Unknown';;
.
Список использованных источников
1.
Чиртик А.А. : Программирование в Delphi. - СПб: Питер, 2010
<http://2dip.ru/%D1%81%D0%BF%D0%B8%D1%81%D0%BE%D0%BA_%D0%BB%D0%B8%D1%82%D0%B5%D1%80%D0%B0%D1%82%D1%83%D1%80%D1%8B/10843/>
.
Избачков Ю.С.: Информационные системы. - СПб.: Питер, 2008
<http://2dip.ru/%D1%81%D0%BF%D0%B8%D1%81%D0%BE%D0%BA_%D0%BB%D0%B8%D1%82%D0%B5%D1%80%D0%B0%D1%82%D1%83%D1%80%D1%8B/89402/>
.
Фаронов В.В.: Delphi. Программирование на языке высокого уровня. - СПб.: Питер,
2008 <http://2dip.ru/%D1%81%D0%BF%D0%B8%D1%81%D0%BE%D0%BA_%D0%BB%D0%B8%D1%82%D0%B5%D1%80%D0%B0%D1%82%D1%83%D1%80%D1%8B/95833/>
.
Архангельский А.Я.: Программирование в Delphi для Windows. - М.: Бином-Пресс,
2007
<http://2dip.ru/%D1%81%D0%BF%D0%B8%D1%81%D0%BE%D0%BA_%D0%BB%D0%B8%D1%82%D0%B5%D1%80%D0%B0%D1%82%D1%83%D1%80%D1%8B/76327/>
.
Микрюков В.Ю.: Алгоритмизация и программирование. - Ростов на/Д: Феникс, 2007
<http://2dip.ru/%D1%81%D0%BF%D0%B8%D1%81%D0%BE%D0%BA_%D0%BB%D0%B8%D1%82%D0%B5%D1%80%D0%B0%D1%82%D1%83%D1%80%D1%8B/7490/>
.
Чиртик А.А.: Delphi. Трюки и эффекты. - СПб.: Питер, 2007
<http://2dip.ru/%D1%81%D0%BF%D0%B8%D1%81%D0%BE%D0%BA_%D0%BB%D0%B8%D1%82%D0%B5%D1%80%D0%B0%D1%82%D1%83%D1%80%D1%8B/109395/>
.
Корняков В.Н.: Программирование документов и приложений MS Office в Delphi. -
СПб.: БХВ-Петербург, 2006
<http://2dip.ru/%D1%81%D0%BF%D0%B8%D1%81%D0%BE%D0%BA_%D0%BB%D0%B8%D1%82%D0%B5%D1%80%D0%B0%D1%82%D1%83%D1%80%D1%8B/62904/>