46632 (Автоматизация работы предприятия ООО "Стимул-Брест"), страница 3

Далее приведены основные модули программы с описанием. Модуль – Assistant_module. Public Sub MyAssistant() – инициализация функции MyAssistant. Dim MA As Assistant – объявление переменной MA

Set MA = Assistant – задание переменной MA свойств объекта Assistant

MA.FileName = "\Program files\Microsoft Office\Office\ clippit.acs" – инициализация файла внешнего вида помощника

MA.Visible = True – вывод помощника на экран дисплея

MA.MoveWhenInTheWay = True – задание помощнику свойства MoveWhenInTheWay (т. е. Помощник сдвигается в сторону так чтобы не мешать пользователю вводить или просматривать текст)

MA.Animation = msoAnimationSearching – помощнику передаётся свойство анимации-поиска. Dim MB As Balloon – объявление переменной MB. Set MB = MA.NewBalloon – переменная МВ инициализируется как NewBallon (). With MB – объявление цикла With

Heading = "Помощник по курсовому проекту ''ООО "СТИМУЛ-БРЕСТ'''

Text = "Значения кнопок в меню:"

Labels(1).Text = "Сведения о фирме."

Labels(2).Text = "Продукция."

Labels(3).Text = "Информация о проекте."

Labels(4).Text = "Попрощаться с помощником."

BalloonType = msoBalloonTypeButtons

Mode = msoModeModeless

End With

MB.Show

End Sub

С полным кодом VBA можно ознакомиться в Приложении Б.

3.3 Функциональное тестирование

При запуске нашего приложения экран будет выглядеть так, как показано на "рисунке 3" Приложения А. Появившаяся главная кнопочная форма снабжена пользовательским меню. Посредством этого меню пользователь может произвести следующие действия: запустить подчинённые формы, такие как "Заказы по клиентам", "Просмотр других сведений", "Просмотр отчетов"; просмотреть, распечатать различные итоговые отчёты; узнать об условиях заказа, доставки, оплаты; просмотреть информацию о продукции; получить помощь по пользованию базой данных и некоторые сведения о разработчике то бишь, обо мне; отправить почту на мой электронный ящик; выйти из приложения. Рассмотрим все возможности подробнее:

1. Кнопка "Заказы по клиентам". При нажатии этой кнопки происходит запуск соответствующей формы, изображённой на "рисунке 4" Приложения А. С помощью этой формы можно узнать данные по заказчику (ФИО, адрес, телефон, название организации). Тут пользователь может выбрать определённого клиента из списка и просмотреть данные о нём или непосредственно о его заказе. Имеется так же возможность узнать дополнительные данные о выбранном клиенте. Это можно осуществить при помощи кнопки "Заказы…", "Платежи…". Пример можно посмотреть на "рисунке 5" Приложения А.

2. Кнопка "Продукция". При нажатии этой кнопки происходит запуск соответствующей формы, изображённой на "рисунке 6" Приложения А. С помощью этой формы можно узнать, всю информацию по каждому производимому товару, его особые характеристики. Например, скорость отдельных прицепных машин и модели тракторов, с которыми они применяются.

3. Кнопка "Просмотр отчетов". При нажатии этой кнопки происходит запуск формы, в которой отображены некоторые отчеты: отчет по просмотру клиентов, их заказы, неоплаченные счета, количество и типы заказанных товаров, общая сумма по каждому типу.

4. Кнопка "Выход". Позволяет закрыть главную форму и выйти из приложения Microsoft Access. Эта функция написана при помощи стандартных функций Visual Basic for Application.

5. Меню "Помощь". С помощью данного выпадающего меню можно вызвать справку ("рисунок 2"). Справка была написана при помощи языка HTML. В ней подробно описана сама база и способ работы с ней. В справке очень удобно расположены ссылки на страницы в которых представлены основные формы база данных.

6. Меню "Отчёты". С помощью данного выпадающего меню можно просмотреть отчёты по неоплаченным счетам, в которых отображаются все данные о долгах покупателей; по клиентам, где указанны номера счетов, количество и тип заказанной продукции, общая сумма оплаты; по продукции, здесь непосредственно отображается общее количество и тип заказанной на предприятии продукции всеми клиентами. Перед тем, как просмотреть определенный отчет пользователю предлагается ввести начальную дату заказа и конечную дата оплаты за приобретенную продукцию.

7. Меню "Формы". С помощью данного выпадающего меню можно узнать открыть некоторые наиболее важные формы: "Заказы по клиентам", где указаны все необходимые данные требующиеся фирме для доставки товара и для предоставления счета заказчику; "Сотрудники", здесь перечислены все сотрудники, занимающиеся поиском клиентов и составлением контрактов, их рабочий и домашний телефоны, должность; "Продукция", в этой форме можно найти любую интересующую продукцию предприятия, подробную информацию о каждой из них.

4. Применение

4.1 Назначение

Это приложение может применяться для просмотра данных по производимой предприятием ООО "Стимул-Брест" продукции. К примеру, этой программой могут пользоваться агенты по продаже для составления контрактов, клиенты для просмотра продукции, а также для добавления информации о новых сотрудниках и продукции или внесении каких-либо корректировок, например для изменения в место жительства какого-либо сотрудника, его телефон или для внесения дополнительных корректировок в модификацию определенной марки сельскохозяйственной машины которые применяются в садах нашей республики.

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

4.2 Среда функционирования

Для оптимальной работы с приложением нет необходимости в больших финансовых затратах на приобретение мощного компьютерного и периферийного оборудования. Ниже приведены минимальные требования к компьютерному и периферийному оборудованию:

• от Intel Pentium – 60 МГц и выше;

• RAM – 16 Мб;

• HDD – 190 Мб;

• VIDEO – 1 Мb;

• Принтер

• Windows9x

• Access - 2000

Заключение

Цель этого приложения создать эффективную информационную базу данных для организации просмотра сведений о предприятии по производству сельскохозяйственных машин предприятия ООО "Стимул-Брест".

В этом отчёте было описано приложение "Автоматизация работы предприятия ООО ‘Стимул-Брест", которое было написано с помощью среды разработки баз данных MS Access 2000 и макроязыка программирования VBA. Это приложение, возможно, в дальнейшем найдёт своё место в компьютерах данной фирмы, так как этот программный продукт достаточно прост в обращении и не доставит проблем даже не очень опытному пользователю.

Литература

1. Харитонова И.А., Михеева В.Д. Microsoft Access 2000.-С-Пб.:БХВ – Санкт-Петербург, 2000.-1088 с.

2. Багласова Т.Г. Системное и прикладное программное обеспечение. Лабораторный практикум.– Мн,:МГВРК, 1999

3. Гурская И.Ф. Оформление текстовой документации.– Мн.:МГВРК, 1997

4. Нортон П. Разработка приложений в Access 97.-С-Пб.:BHV, 1998

5. Новалис С. Руководство по макроязыку и VBA. - 1998

6. Браун С. Visual Basic 6.0: учебный курс.-С-Пб.:ЗАО "Издательство "Питер", 1999.-576 с.

Приложение А

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

Рис.2 Сообщение об ошибке

Рис.3 Помощник

Рис.4 Главная кнопочная форма

Рис.5 Заказы по клиентам

Рис.6 Форма по продукции

Приложение Б

Private Sub Form_Open(Cancel As Integer)

' Minimize the database window and initialize the form.

Dim dbs As Database

Dim rst As Recordset

On Error GoTo Form_Open_Err

' Minimize the database window.

DoCmd.SelectObject acForm, "Switchboard", True

DoCmd.Minimize

' Make sure we have company information

DoCmd.Hourglass False

Set dbs = CurrentDb()

Set rst = dbs.OpenRecordset("Сведения об организации")

If rst.RecordCount = 0 Then

rst.AddNew

rst![Адрес] = Null

rst.Update

MsgBox "Перед использованием приложения необходимо ввести название, адрес и дополнительные сведения об организации."

DoCmd.OpenForm "Сведения об организации", , , , , acDialog

End If

rst.Close

dbs.Close

' Move to the switchboard page that is marked as the default.

Me.Filter = "[ItemNumber] = 0 AND [Argument] = 'Default' "

Me.FilterOn = True

Form_Open_Err:

MsgBox Err.Description

Resume Form_Open_Exit

End Sub

Private Sub Form_Current()

' Update the caption and fill in the list of options.

Me.Caption = Nz(Me![ItemText], "")

FillOptions

End Sub

Private Sub FillOptions()

' Fill in the options for this switchboard page.

' The number of buttons on the form.

Const conNumButtons = 8

Dim con As Object

Dim rs As Object

Dim stSql As String

Dim intOption As Integer

' Set the focus to the first button on the form,

' and then hide all of the buttons on the form

' but the first. You can't hide the field with the focus.

Me![Option1].SetFocus

For intOption = 2 To conNumButtons

Me("Option" & intOption).Visible = False

Me("OptionLabel" & intOption).Visible = False

Next intOption

' Open the table of Switchboard Items, and find

' the first item for this Switchboard Page.

Set con = Application.CurrentProject.Connection

stSql = "SELECT * FROM [Switchboard Items]"

stSql = stSql & " WHERE [ItemNumber] > 0 AND [SwitchboardID]=" & Me![SwitchboardID]

stSql = stSql & " ORDER BY [ItemNumber];"

Set rs = CreateObject("ADODB.Recordset")

rs.Open stSql, con, 1 ' 1 = adOpenKeyset

' If there are no options for this Switchboard Page,

' display a message. Otherwise, fill the page with the items.

If (rs.EOF) Then

Me![OptionLabel1].Caption = "There are no items for this switchboard page"

Else

While (Not (rs.EOF))

Me("Option" & rs![ItemNumber]).Visible = True

Me("OptionLabel" & rs![ItemNumber]).Visible = True

Me("OptionLabel" & rs![ItemNumber]).Caption = rs![ItemText]

rs.MoveNext

Wend

End If

' Close the recordset and the database.

rs.Close

Set rs = Nothing

Set con = Nothing

End Sub

Private Function HandleButtonClick(intBtn As Integer)

' This function is called when a button is clicked.

' intBtn indicates which button was clicked.

' Constants for the commands that can be executed.

Const conCmdGotoSwitchboard = 1

Const conCmdOpenFormAdd = 2

Const conCmdOpenFormBrowse = 3

Const conCmdOpenReport = 4

Const conCmdCustomizeSwitchboard = 5