Отчет по практике в МО «Воткиснкий Район»

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Введение

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

Данный отчет подготовлен на основе прохождения практики в отделе автоматизированного управления и информационных ресурсов Администрации муниципального образования «Воткинский район» Удмуртской республики. Расположенный по адресу: Удмуртская Республика, г. Воткинск, ул. Красноармейская, дом 43а. Контакты: Факс: 8 (34145) 5–18–25, E-mail: votkinsk@udmnet.ru

 

 

 

 

 

 

 

 

Цели и задачи

Руководителем производственной практики Андреем Анатольевичем, была поставлена задача:  Разработать базу данных со встроенным модулем автоматизированной обработки замены расходных материалов и инвентаризации оборудования. Было принято решение разрабатывать базу данных в среде Microsoft Access.

 

 

 

 

 

 

 

 

 

 

 

 

Словесное описание предметной области

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

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Схема данных

На рисунке 1 представлена Схема данных

Рисунок 1.Схема данных

 

 

 

 

 

 

Приложение для работы баз данных

Структура приложения

Новый Компьютер(1)

Новый Картридж(2)

Новый Монитор(3)

Поиск картриджей(4)

Поиск Компьютера(5)

Пустые принтеры(6)

Приход картриджей(7)

Списание Техники(8)

Все Операции с картриджами(9)

На Заправку(10)

 

 

Главная форма

 

 

На рисунке 3 представлена форма Новый Компьютер

 

Рисунок 3. Новый компьютер

 

На рисунке 4 представлена форма Новый Компьютер в режиме конструктор

 

Рисунок 4. Новый компьютер в режиме конструктор

 

На рисунке 5 представлена форма Новый Картридж

 

Рисунок 5. Новый картридж

 

На рисунке 5 представлена форма Новый Картридж в режиме конструктор

 

 

Рисунок 5. Новый картридж в режиме конструктор

 

 

 

 

 

 

 

 

 

 

 

 

На рисунке 6 представлена форма Новый Монитор

 

 

Рисунок 6. Новый монитор

 

На рисунке 7 представлена форма Новый Монитор в режиме конструктор

 

 

Рисунок 7. Новый монитор в режиме конструктор

 

 

 

 

 

 

 

 

 

 

 

На рисунке 8 представлена форма Поиск Картриджей

 

 

Рисунок 8. Поиск Картриджей

 

На рисунке 9 представлена форма Поиск Картриджей в режиме конструктор

 

 

Рисунок 9. Поиск Картриджей в режиме конструктор

На рисунке 10 представлена форма Списание Техники

 

 

Рисунок 10. Списание техники

 

На рисунке 11 представлена форма Списание Техники в режиме конструктор

 

Рисунок 11. Списание техники в режиме конструктор

Запросы SQL

Запрос 1 на выборку заправленных картриджей

 

SELECT tbl_картридж.id_картриджа, tbl_картридж.Название_картриджа, tbl_картридж.Состояние

FROM tbl_картридж

WHERE (((tbl_картридж.Название_картриджа)=[Формы]![frm_основа]![new3] Or (tbl_картридж.Название_картриджа)=[Формы]![frm_основа]![new2] Or (tbl_картридж.Название_картриджа)=[Формы]![frm_основа]![new1]) AND ((tbl_картридж.Состояние) Like "заправлен"));

 

Запрос 2 на поиск принтеров, и стоящих в них картриджей, по кабинету

 

SELECT tbl_Принтер.Номер_кабинета, tbl_Принтер.Название_Принтера, tbl_картридж.Название_картриджа, tbl_картридж.Состояние

FROM tbl_Принтер INNER JOIN (tbl_картридж INNER JOIN tbl_принтер_картридж ON tbl_картридж.id_картриджа = tbl_принтер_картридж.id_картриджа) ON tbl_Принтер.Инвент_Номер_Принтера = tbl_принтер_картридж.Инвент_номер_принтера

WHERE (((tbl_Принтер.Номер_кабинета)=[Введите  номер кабинета]) AND ((tbl_картридж.Состояние) Like "установлен"));

 

Запрос 3 на добавление новой  таблицы со статистикой 

 

INSERT INTO tbl_заправка ( Название_картриджа,  Состояние, дата )

SELECT tbl_картридж.Название_картриджа, tbl_картридж.Состояние, tbl_картридж.дата

FROM tbl_картридж

WHERE (((tbl_картридж.id_картриджа)=[Forms]![Form1]![Поле0]));

 

Запрос 4 на обновление записи не заправлен, на заправлен с проставлением  даты заправки

UPDATE tbl_картридж SET tbl_картридж.Состояние  = "заправлен", tbl_картридж.дата = Date()

WHERE (((tbl_картридж.id_картриджа)=[Forms]![Form1]![Поле0]));

 

Запрос 5 на добавление новой таблицы  со статистикой

SELECT [Копия tbl_картридж].Название_картриджа, [Копия tbl_картридж].принтеры INTO tbl_11

FROM [Копия tbl_картридж]

WHERE ((([Копия tbl_картридж].принтеры)=[Формы]![frm_основа]![Название_Принтера]));

Отчеты

Отчет 1. По всем операциям  с картриджами 

Отчет 2. Картриджи, которые пришли с заправки

Программный код

Private Sub Кнопка5_Click()

DoCmd.Close acForm, "Form1", acSaveYes

End Sub

Private Sub Поле0_AfterUpdate()

DoCmd.SetWarnings False

   DoCmd.OpenQuery "qry_izmen"

   DoCmd.OpenQuery "qry_izmen1"

DoCmd.SetWarnings True

Form.Refresh

End Sub

End Sub

Private Sub Form_Open(Cancel As Integer)

[Номер_кабинета].Visible = False

number = [Номер_кабинета]

End Sub

Private Sub Кнопка27_Click()

DoCmd.Close acForm, "frm_кабинет", acSaveYes

End Sub

Private Sub Кнопка32_Click()

On Error GoTo Err_Кнопка32_Click

    DoCmd.GoToRecord , , acNext

Exit_Кнопка32_Click:

    Exit Sub

Err_Кнопка32_Click:

    MsgBox Err.Description

    Resume Exit_Кнопка32_Click

End Sub

Private Sub Кнопка33_Click()

On Error GoTo Err_Кнопка33_Click

    DoCmd.GoToRecord , , acPrevious

Exit_Кнопка33_Click:

    Exit Sub

Err_Кнопка33_Click:

    MsgBox Err.Description

    Resume Exit_Кнопка33_Click

End Sub

Private Sub Form_Load()

If IsNull([Название_картриджа] And [Состояние]) = True Then

 Кнопка19.Enabled = False

End If

End Sub

Private Sub Кнопка19_Click()

Dim sa As String

Dim data As Database 'База данных

Dim rs As DAO.Recordset

Set data = CurrentDb 'Переменная представляет текущую БД

Set rs = CurrentDb.OpenRecordset("tbl_картридж", dbOpenTable)

rs.movelast

[id_картриджа] = rs(0) + 1

Form.Refresh

DoCmd.GoToRecord , , acNext

End Sub

Private Sub Кнопка20_Click()

DoCmd.Close acForm, "frm_картридж", acSaveNo

End Sub

Private Sub Название_картриджа_AfterUpdate()

If IsNull([Состояние]) = False Then

    Кнопка19.Enabled = True

    End If

End Sub

Private Sub Состояние_AfterUpdate()

If IsNull([Название_картриджа]) = False Then

    Кнопка19.Enabled = True

    End If

End Sub

Option Compare Database

Private Sub cmd_backMon_Click()

DoCmd.Close acForm, "frm_Монитор", acSaveNo

End Sub

Private Sub Поле13_AfterUpdate()

DoCmd.SetWarnings False

   DoCmd.OpenQuery "qry_привязка"

DoCmd.SetWarnings True

End Sub

Private Sub С_Click()

[Поле13] = ""

Form.Refresh

DoCmd.GoToRecord , , acNext

End Sub

Private Sub Form_Load()

Dim data As Database 'База данных

Dim rs As DAO.Recordset

DoCmd.SetWarnings False

   DoCmd.OpenQuery "qry_11"

DoCmd.SetWarnings True

Set data = CurrentDb 'Переменная  представляет текущую БД

Set rs = CurrentDb.OpenRecordset("tbl_11", dbOpenTable)

rs.MoveFirst

i = 0

  Do While Not rs.EOF

  If rs(0) <> "" Then

   i = i + 1

   rs.MoveNext

   Else

   Exit Do

   End If

Loop

  

rs.MoveFirst

   [new1] = rs(0)

rs.MoveNext

   [new2] = rs(0)

rs.MoveNext

If i > 2 Then

[new3] = rs(0)

End If

rs.Close

End Sub

 

Private Sub Кнопка26_Click()

[Состояние] = "установлен"

id = fKart()

Set MyDb = CurrentDb 'Переменная  представляет текущую БД

Set rs = CurrentDb.OpenRecordset("tbl_картридж", dbOpenTable)

    rs.MoveFirst

      Do While Not rs.EOF

    rs.Edit

    If rs(0) = id Then

        SQL = "insert into tbl_учет (Номер_кабинета, Название_принтера, состояние, название_картриджа) select  fNomer(),fPrint(),fSost(), '" & rs(1) & "' "

        CurrentDb.Execute SQL

        Exit Do

     Else

     rs.MoveNext

    End If

    Loop

rs.Close

End Sub

Private Sub newMon_Click()

DoCmd.OpenForm "frm_Монитор"

End Sub

Private Sub Кнопка11_Click()

DoCmd.OpenForm "frm_ПоискКомпьютера"

End Sub

Private Sub Кнопка16_Click()

DoCmd.OpenForm "frm_Списывание_Техники"

End Sub

Private Sub Кнопка17_Click()

DoCmd.OpenForm "frm_Пустой_Принтер"

End Sub

Private Sub Кнопка2_Click()

DoCmd.OpenForm "tbl_Компьютер"

End Sub

Private Sub Кнопка3_Click()

On Error GoTo Err_Кнопка3_Click

   DoCmd.OpenForm "frm_кабинет"

  Exit_Кнопка3_Click:

    Exit Sub

Err_Кнопка3_Click:

    MsgBox Err.Description

    Resume Exit_Кнопка3_Click

End Sub

Private Sub Кнопка5_Click()

DoCmd.OpenForm "Form1", acNormal

End Sub

Private Sub Кнопка18_Click()

On Error GoTo Err_Кнопка18_Click

    Dim stDocName As String

    Dim stLinkCriteria As String

    stDocName = "Form1"

    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Кнопка18_Click:

    Exit Sub

Err_Кнопка18_Click:

    MsgBox Err.Description

    Resume Exit_Кнопка18_Click

  End Sub

Private Sub Кнопка6_Click()

DoCmd.OpenForm "frm_картридж"

End Sub

Private Sub Кнопка7_Click()

DoCmd.OpenReport "Операции с принтерами", acViewReport

End Sub

Private Sub Кнопка8_Click()

On Error GoTo Err_Кнопка8_Click

    DoCmd.OpenReport "ОтчетПоКабинетам", acViewReport

Exit_Кнопка8_Click:

    Exit Sub

Err_Кнопка8_Click:

    MsgBox Err.Description

    Resume Exit_Кнопка8_Click

End Sub

Private Sub Кнопка9_Click()

DoCmd.OpenReport "заправка", acViewReport

End Sub

Private Sub cmd_backKomp_Click()

DoCmd.Close acForm, "tbl_Компьютер", acSaveNo

End Sub

Private Sub Кнопка66_Click()

On Error GoTo Err_Кнопка66_Click

    DoCmd.GoToRecord , , acNext

Exit_Кнопка66_Click:

    Exit Sub

Err_Кнопка66_Click:

    MsgBox Err.Description

    Resume Exit_Кнопка66_Click

End Sub

Private Sub Кнопка68_Click()

Dim sa As String

sa = [название_ПО]

SQL = "insert into tbl_ПО (Название_ПО) select  '" & sa & "' "

        CurrentDb.Execute SQL

Form.Refresh

End Sub

Private Sub Кнопка69_Click()

Dim sa As String

sa = [Название_ОС]

SQL = "insert into tbl_ОС(Название_ОС) select  '" & sa & "' "

        CurrentDb.Execute SQL

Form.Refresh

End Sub

 

 

 

 

 

 

 

 

 

 

 

  Заключение

 

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

• Новый Компьютер
• Новый Картридж
• Новый Монитор
• Поиск картриджей
• Поиск Компьютера
• Пустые принтеры
• Приход картриджей
• Списание Техники
• Все Операции с картриджами
• На Заправку

Это приложение создано  для автоматизации ведения учета  по операциям над  картриджами, а  так же просмотра  и ведения  учета всего компьютерного оборудования МО «Воткинский район».

 

 

 

 

 

 

 

 

 

 

Список используемых источников

1. Методическое издание «Основные события MS Access»
2. Интернет поисковики «Google», «Yandex»