Отчет по практике в фирме "Ягуар+"

 

Содержание

 

1 Общие сведения об  организации…………………………………………….4

2 Описание вычислительной техники………………………………………….6

3 Виды обеспечения автоматизированных систем………….………………..8

4 Индивидуальное задание……………………………………………………..9

 

1 Общие сведения  об организации

 

 

Индивидуальный предприниматель  Грибков А.А. (Сервисный центр Ягуар) занимается диагностированием и ремонтом компьютерной и оргтехники. Данная организация занимает такую отраслевую нишу, как услуги. Кроме ремонта и диагностирования дает консультации и прочие связанные с этим видом работы услуги.

 

 

 

Рисунок 1 – Структура  управления организацией

 

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

Во время работы данное подразделение взаимодействует  с кассовым подразделением, подразделением приема техники на ремонт, и службой доставки.

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

 

2 Описание вычислительной техники

 

 

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

 

    Таблица1 – Характеристики компьютеров

Характеристика	Использование
Intel Pentium E5700/ 3.00 Ghz/ MSI G41M-P26 Socket775/ DDR3 2Gb	Кассовый отдел
Intel Pentium E5700/ 3.00 Ghz/ MSI G41M-P26 Socket775/ DDR3 2Gb	Доступ к сети интернет
Intel Pentium E5700 3.00 Ghz/ Gigabyte GA-P41T-USB3L Socket775 Atx/ DDR3 4Gb/ 500Gb	Тестовый компьютер

 

 

Так же есть несколько МФУ. Один МФУ лазерный используется для  печати текстовых данных, таких как  талон на ремонт и другие документы. Второй струйный используется для печати фото или документов, в которых используются цветные элементы.

Компьютер, находящийся в кассовом отделе и компьютер, использующийся для доступа в интернет объединены в одноранговую сеть. Так же они подключены к роутеру, который выполняет функцию Wi-Fiточки.

 

3 Виды обеспечения  автоматизированных систем

 

 

На компьютерах сервисного центра установлены операционные системы семейства Windows.

Используются такие программы, как «DriverPackSolution», для быстрого поиска и установки драйверов для оборудования.

«ParagonPartitionManager 11» используетсядля создания резервных копий жестких дисков. Используются различные версии дисковых операционных систем для запуска компьютеров с неисправной ОС.

Для лечения компьютеров  от вирусов используется «dr.WebCureIt!». Основным антивирусом является «Антивирус Касперского». Установлен «Firewallplus».

Так же на компьютерах имеются  офисные пакеты программ такие, как  «MicrosoftOffice», «OpenOffice». Архиваторы «7zip», «WinRar».

Для печати фотографий используется программа «CorelDraw».

Для хранения информации об заказанных комплектующих используется программа «Бизнес Пак».

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

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

 

 

4 Индивидуальное  задание

 

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

Аппаратные требования минимальные. Дополнительного программного обеспечения не требуется.

Саму структуру работы программы можно представить  следующей схемой.

 

 

 

 

 

 

 

 

 

 

Рисунок 2 – Схема структуры  работы программы

 

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

 

Таблица 2 - First

Поле	Тип
1	2
Index	Счетчик
Date	Дата/время
1	2
Debit	Число
Credit	Число
Saldo	Число

 

Интерфейс программы представлен  на рисунке 3.

 

Рисунок 3 – интерфейс  программы

 

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

Рисунок 4 – Добавление записи

Кнопка и переключающиеся  кнопки используются для выбора типа вносимой информации. Основным полем  вывода информации является компонент DBGrid. Так же на форме расположено поле с общей информацией и кнопкой обновления этой информации. Третья кнопка служит для удаления записей из базы. Так же в программе используется меню, в котором можно выбрать отчеты или добавление записи «задним числом». Цвет выбран с учетом цветовой политики организации, это серый и синий.

Для добавления значений «задним  числом» используется одноименный  пункт меню.

 

Рисунок 5 – Добавление записи с выбором даты

 

Работа с данной формой не отличается от работы с главной  формой.

Для просмотра значений для  конкретного дня можно использовать пункт меню «Отчеты», пункт подменю  «По дате».

Рисунок 6 – Пункт меню «Отчеты»

 

Вид формы «Отчеты» показан  на рисунке 7.

Рисунок 7 – Отчет по дате

 

Код программы был оформлен по общепринятым правилам с отступами и комментариями.

Код модуля главной формы:

unit Unit1;

interface

uses

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

  Dialogs, ExtCtrls, DBCtrls, Grids, DBGrids, DB, ADODB, StdCtrls, XPMan,

  Menus;

type

  TForm1 = class(TForm)

    ADOConnection1: TADOConnection;

    DataSource1: TDataSource;

    ADOTable1: TADOTable;

    DBGrid1: TDBGrid;

    Button1: TButton;

    Button2: TButton;

    GroupBox1: TGroupBox;

    RadioButton1: TRadioButton;

    RadioButton2: TRadioButton;

    GroupBox2: TGroupBox;

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    Label5: TLabel;

    Label6: TLabel;

    Button3: TButton;

    MainMenu1: TMainMenu;

    N1: TMenuItem;

    N2: TMenuItem;

    N5: TMenuItem;

    N6: TMenuItem;

    N7: TMenuItem;

    XPManifest1: TXPManifest;

    N8: TMenuItem;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure N5Click(Sender: TObject);

procedure N8Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

  Form1: TForm1;

 

implementation

 

uses Unit3, unit5;

 

{$R *.dfm}

 

procedure TForm1.Button1Click(Sender: TObject);

begin

ADOTable1.Insert;  //Вводимвтаблицу

if RadioButton1.Checked= true then  //Есликнопкавключенато...

begin

ADOTable1.FieldByName('Debit').AsFloat:=StrToFloat(inputbox('Добавлениезаписи','Введитезначение','')); //вводимзначение

ADOTable1.FieldByName('Kredit').AsFloat:=0;

end;

if RadioButton2.Checked = true then

begin

ADOTable1.FieldByName('Kredit').AsFloat:=StrToFloat(inputbox('Добавлениезаписи','Введитезначение',''));

ADOTable1.FieldByName('Debit').AsFloat:=0;

end;

ADOTable1.FieldByName('Saldo').AsFloat:=AdoTable1.FieldbyName('Debit').AsFloat-AdoTable1.FieldbyName('Kredit').AsFloat;

ADOTable1.FieldByName('Date').AsDateTime:=StrToDateTime(FormatDateTime('dd.mm.yyyy',now()));  //добавляемдату

ADOTable1.Post;

 

end;

 

procedure TForm1.Button2Click(Sender: TObject);

begin

AdoTable1.Delete; //удаляемзначениетаблицы

end;

 

procedure TForm1.Button3Click(Sender: TObject);

var

sumD,sumK,sumS: Double;

begin

sumD:=0;

sumK:=0;       //обнулим  значения переменных

sumS:=0;

  AdoTable1.First;        //перейдем на первую запись  в таблице

while not AdoTable1.Eof do     //доконцазаписейтаблицы

begin

if ADoTable1.FieldByName('Date').AsDateTime=StrToDateTime(FormatDateTime('dd.mm.yyyy', now())) then

begin

sumD:=SumD + AdoTable1.FieldbyName('Debit').asFloat;

sumK:=sumK + ADOTable1.FieldbyName('Kredit').asFloat;   //считаемданныезасегодня

sumS:=SumS + AdoTable1.FieldbyName('Saldo').asFloat;

end;

      AdoTable1.Next; //к  следующей записи

end;

Label2.Caption:=FloatToStr(sumD);

Label4.Caption:=FloatToStr(sumK); //выводнаформу

Label6.Caption:=FloatToStr(SumS);

end;

 

procedure TForm1.N5Click(Sender: TObject);

begin

AddOldDate.Show;    //перейдем к форме с добавлением записи задним числом

end;

 

procedure TForm1.N8Click(Sender: TObject);

begin

  Form5.Show;  //перейдем  к форме с отчетом

end;

 

end.

Код модуля формы добавления значений задним числом:

unit Unit3;

 

interface

 

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,

  Buttons, ExtCtrls, Mask;

 

type

TAddOldDate = class(TForm)

OKBtn: TButton;

CancelBtn: TButton;

    Bevel1: TBevel;

    MaskEdit1: TMaskEdit;

    Label1: TLabel;

    RadioButton1: TRadioButton;

    RadioButton2: TRadioButton;

    Edit1: TEdit;

    Label2: TLabel;

    Label3: TLabel;

procedureCancelBtnClick(Sender: TObject);

procedureOKBtnClick(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

 

var

AddOldDate: TAddOldDate;

 

implementation

 

uses Unit1;

 

{$R *.dfm}

 

procedureTAddOldDate.CancelBtnClick(Sender: TObject);

begin

AddOldDate.Close; //закрытьформу

end;

 

procedureTAddOldDate.OKBtnClick(Sender: TObject);

begin

  Form1.AdoTable1.Insert;     //вводзначений

Form1.AdoTable1.FieldbyName('Date').asDateTime:=StrToDateTime(MaskEdit1.Text); //добавлениедаты

if RadioButton1.Checked then

Form1.ADOTable1.FieldByName('Debit').AsFloat:=strToFloat(Edit1.Text)

else

Form1.ADOTable1.FieldByName('Kredit').AsFloat:=strToFloat(Edit1.Text);   //добавлениезначений

 

Form1.ADOTable1.FieldByName('Saldo').AsFloat:=Form1.AdoTable1.FieldbyName('Debit').AsFloat-Form1.AdoTable1.FieldbyName('Kredit').AsFloat;

Form1.AdoTable1.Post;     //сохранить  изменения значений

end;

 

end.

Код модуля формы с отчетом: