Автоматизация основного производственного процесса

Введение

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

Мною был выбран оптимальный вариант закрепления теоретических знаний и получения практических навыков — прохождение технологической практики в компании АйБиЭй АйТи Парк. Основным видом деятельность АйБиЭй АйТи Парк включает реализацию проектов в области системной интеграции, разработку программного обеспечения (ПО), ИТ-консалтинг и обучение, производство и послегарантийное обслуживание средств вычислительной техники (СВТ). В процессе прохождения практики необходимо закрепить теоретические знания путем получения практических навыков.

Срок прохождения практики с 25 мая 2015 г. по 18 июля 2015 г.

В период прохождения практики мною были выполнены все задания в соответствии с Программой практики для студентов УО «Минского государственного колледжа электроники» и индивидуальным заданием.

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

ѕ утверждает основные направления деятельности;

ѕ принимает Устав и изменения к нему;

ѕ создаёт постоянные и временные комиссии по различным направлениям работы, определяет их полномочия.

Для руководства деятельностью работает руководительский комитет. В его функции входит:

ѕ обсуждение и выбор планов, программ, форм и методов организации рабочего процесса;

ѕ организация работы по повышению квалификации педагогических работников, распространение передового опыта;

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

ѕ принятие решений о проведении промежуточной аттестации в данном отчетном году с определением конкретных форм, порядка и сроков её проведения;

Непосредственное управление всей деятельностью предприятия осуществляет директор.

В дирекцию (исполнительный орган) входят: директор, заместители.

Режим работы и социальное обеспечение.

Рабочий день в АйБиЭй АйТи Парк при 5-ти дневной рабочей неделе начинается в 09.00 и заканчивается в 18.00 с перерывом на обед и отдыха с 13.00 до 14.00.

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

ѕ объявление благодарности;

ѕ выдача премии;

ѕ награждение ценным подарком;

2. Описание организационной структуры Описание организационной структуры управления предприятием представлено на рисунке 2.1

Рисунок 2.1 — оорганизационная структура предприятия

3. Характеристика оказываемых предприятием услуг Компания АйБиЭй АйТи Парк предоставляет услуги по:

· Созданию СЭД:

· Создание СЭД на основе ППП «Канцлер» на IBM Notes/Domino

· Система на основе СЭД «Канцлер» на IBM Content Foundation (FileNet)

· Заказной разработке СЭД

· Поставке коробочных программных продуктов «Канцлер»

· Созданию электронных архивов на базе Системы электронного архива «Канцлер» на IBM Content Foundation (FileNet)

· Обучению

· Сопровождению

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

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

5. Функциональная модель (функции которые выполняет программа) Данное ПО предоставляет следующие основные функции:

— Добавление полей в базу данных;

— Редактирование полей базы данных;

— Удаление полей из базы данных;

— Сортировка полей базы данных;

— Поиск в базе данных;

— Экспорт в Microsoft Excel данных.

Для работы с программой необходимо запустить файл «BD.exe». После запуска мы видим главную форму, которая имеет вид в соответствии с рисунком 5.1.

Рисунок 5.1 — Главная форма

6. Требования к аппаратному обеспечению (мин требования) Минимальные требования к аппаратному обеспечению:

ѕ процессор: AMD E- 450 APU with Radeon™ HD Graphics 1.65 GHz и выше;

ѕ видеокарта 64 MB или выше;

ѕ объем оперативной памяти: 256 MB и выше;

ѕ операционная система: Windows XP и выше;

ѕ свободное место на жестком диске 250 GB и выше;

ѕ наличие монитора VGA с разрешением не менее 800×600;

ѕ наличие мыши;

ѕ CD-ROM 10х;

ѕ клавиатура.

Приложение А

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, Grids, DBGrids, acDBGrid, StdCtrls, sGroupBox, Buttons, sBitBtn,

Menus, sSkinManager, DB, ADODB, sLabel, sEdit, sComboBox, ExtCtrls, ComObj,

ExcelXP, OleServer, QuickRpt, ActiveX, sSkinProvider;

type

TForm1 = class (TForm)

sDBGrid1: TsDBGrid;

MainMenu1: TMainMenu;

V1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

sGroupBox1: TsGroupBox;

sGroupBox2: TsGroupBox;

sBitBtn1: TsBitBtn;

sBitBtn2: TsBitBtn;

sBitBtn3: TsBitBtn;

sBitBtn4: TsBitBtn;

sSkinManager1: TsSkinManager;

DataSource1: TDataSource;

ADOConnection1: TADOConnection;

ADOTable1: TADOTable;

ADOQuery1: TADOQuery;

sEdit1: TsEdit;

sLabel1: TsLabel;

sLabel2: TsLabel;

DataSource2: TDataSource;

sComboBox1: TsComboBox;

sBitBtn5: TsBitBtn;

sLabel4: TsLabel;

sLabel6: TsLabel;

Timer1: TTimer;

ExcelApplication1: TExcelApplication;

ExcelWorksheet1: TExcelWorksheet;

ExcelOLEObject1: TExcelOLEObject;

sBitBtn6: TsBitBtn;

ADOTable2: TADOTable;

sSkinProvider1: TsSkinProvider;

sLabel7: TsLabel;

sLabel8: TsLabel;

sLabel3: TsLabel;

sLabel5: TsLabel;

procedure sBitBtn1Click (Sender: TObject);

procedure sBitBtn2Click (Sender: TObject);

procedure sBitBtn3Click (Sender: TObject);

procedure sBitBtn4Click (Sender: TObject);

procedure sBitBtn5Click (Sender: TObject);

procedure ADOTable1AfterPost (DataSet: TDataSet);

procedure DataSource1DataChange (Sender: TObject; Field: TField);

procedure Timer1Timer (Sender: TObject);

procedure sBitBtn6Click (Sender: TObject);

procedure sDBGrid1DrawColumnCell (Sender: TObject; const Rect: TRect;

DataCol: Integer; Column: TColumn; State: TGridDrawState);

procedure FormCreate (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1. sBitBtn1Click (Sender: TObject);

begin

Form2.Show;

Adotable1.Insert;

end;

procedure TForm1. sBitBtn2Click (Sender: TObject);

begin

Form2.Show;

Adotable1.Edit;

end;

procedure TForm1. sBitBtn3Click (Sender: TObject);

begin

Adotable1.Delete;

end;

procedure TForm1. sBitBtn4Click (Sender: TObject);

begin

ADOTable1.Sort := '[name] '+'DESC';

end;

procedure TForm1. sBitBtn5Click (Sender: TObject);

begin

if sedit1. Text='' then

sdbgrid1.DataSource:=DataSource1;

ADOQuery1.SQL.Clear;

ADOQuery1.SQL.Add ('SELECT * FROM tt WHERE '+scombobox1.text+' LIKE ''%'+sEdit1.Text+'%''');

ADOQuery1.Active:=True;

Sdbgrid1.DataSource:=DataSource2;

end;

procedure TForm1. ADOTable1AfterPost (DataSet: TDataSet);

begin

slabel5.Caption:=inttostr (sDBGrid1.DataSource.DataSet.RecordCount);

end;

procedure TForm1. DataSource1DataChange (Sender: TObject; Field: TField);

begin

slabel5.Caption:=inttostr (sDBGrid1.DataSource.DataSet.RecordCount);

end;

procedure TForm1. Timer1Timer (Sender: TObject);

begin

slabel6.Caption:=timetostr (now);

end;

procedure TForm1. sBitBtn6Click (Sender: TObject);

var

ExcelApp, Sheet: variant;

index, i, j:integer;

begin

ExcelApp := CreateOleObject ('Excel.Application');

ExcelApp.Visible := true;

ExcelApp.WorkBooks.Add (-4167);

ExcelApp.WorkBooks[1]. WorkSheets[1].name := 'Report';

sheet:=ExcelApp.WorkBooks[1]. WorkSheets['Report'];

index:=2;

for i := 1 to ADOTable1. FieldCount-1 do

sheet.cells[1, i]: = ADOTable1. Fields[i-1]. DisplayName;

ADOTable1.First;

for i:=1 to ADOTable1. RecordCount do

begin

for j:=1 to ADOTable1. FieldCount do

sheet.cells[index, j]: =ADOTable1.fields[j-1].asstring;

inc (index);

ADOTable1.Next;

end;

end;

procedure TForm1. sDBGrid1DrawColumnCell (Sender: TObject; const Rect: TRect;

DataCol: Integer; Column: TColumn; State: TGridDrawState);

var

StrDT: String;

DT: TDateTime;

T: TTime;

D: Integer;

Begin

Заключение

if (Sender as TsDBGrid).DataSource.DataSet.FieldByName ('sl').AsString='Нет' then

TDBGrid (Sender).Canvas.Brush.Color:=RGB (102,255,255);

if (Sender as TsDBGrid).DataSource.DataSet.FieldByName ('sl').AsString='нет' then

TDBGrid (Sender).Canvas.Brush.Color:=RGB (102,255,255);

if (Sender as TsDBGrid).DataSource.DataSet.FieldByName ('sl').AsString='да'

Then TDBGrid (Sender).Canvas.Brush.Color:=RGB (102,255,102);

if (Sender as TsDBGrid).DataSource.DataSet.FieldByName ('sl').AsString='Да'

Then TDBGrid (Sender).Canvas.Brush.Color:=RGB (102,255,102);

if (Sender as TsDBGrid).DataSource.DataSet.FieldByName ('sl').AsString=''

Then TDBGrid (Sender).Canvas.Brush.Color:=RGB (204,255,153);

IF gdSelected IN State

Then Begin

TDBGrid (Sender).Canvas.Brush.Color:= clHighLight;

TDBGrid (Sender).Canvas.Font.Color := clHighLightText;

End;

TDBGrid (Sender).DefaultDrawColumnCell (Rect, DataCol, Column, State);

end;

function GetUserFromWindows: string;

var

UserName: string;

UserNameLen: Dword;

begin

UserNameLen := 255;

SetLength (userName, UserNameLen);

if GetUserName (PChar (UserName), UserNameLen) then

Result := Copy (UserName, 1, UserNameLen — 1)

else

Result := 'Unknown';

end;

procedure TForm1. FormCreate (Sender: TObject);

begin

slabel8.Caption:= GetUserFromWindows;

end;

end.

Список использованных источников

1. Чиртик А. А.: Программирование в Delphi. — СПб: Питер, 2010

2. Избачков Ю. С.: Информационные системы. — СПб.: Питер, 2008

3. Фаронов В. В.: Delphi. Программирование на языке высокого уровня. — СПб.: Питер, 2008

4. Архангельский А. Я.: Программирование в Delphi для Windows. — М.: Бином-Пресс, 2007

5. Микрюков В. Ю.: Алгоритмизация и программирование. — Ростов на/Д: Феникс, 2007

6. Чиртик А. А.: Delphi. Трюки и эффекты. — СПб.: Питер, 2007

7. Корняков В. Н.: Программирование документов и приложений MS Office в Delphi. — СПб.: БХВ-Петербург, 2006

.ur