Автоматизация работы предприятия ООО "Стимул-Брест" (стр. 4 из 5)

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

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

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

4.1 Назначение

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

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

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

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

· от IntelPentium – 60 МГц и выше;

· RAM – 16 Мб;

· HDD – 190 Мб;

· VIDEO – 1 Мb;

· Принтер

· Windows9x

· Access - 2000

Заключение

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

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

Литература

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

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

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

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

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

6. Браун С. VisualBasic 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()

Setrst = 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

Const conCmdExitApplication = 6

Const conCmdRunMacro = 7

Const conCmdRunCode = 8

Const conCmdOpenPage = 9

' An error that is special cased.

Const conErrDoCmdCancelled = 2501

Dim con As Object

Dim rs As Object

Dim stSql As String

On Error GoTo HandleButtonClick_Err

' Find the item in the Switchboard Items table

' that corresponds to the button that was clicked.

Set con = Application.CurrentProject.Connection

Set rs = CreateObject("ADODB.Recordset")

stSql = "SELECT * FROM [Switchboard Items] "

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

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

' If no item matches, report the error and exit the function.

If (rs.EOF) Then

MsgBox "There was an error reading the Switchboard Items table."

rs.Close

Set rs = Nothing

Set con = Nothing

Exit Function

End If

Select Case rs![Command]

' Go to another switchboard.

Case conCmdGotoSwitchboard

Me.Filter = "[ItemNumber] = 0 AND [SwitchboardID]=" & rs![Argument]

' Open a form in Add mode.

Case conCmdOpenFormAdd

DoCmd.OpenForm rs![Argument], , , , acAdd

' Open a form.

Case conCmdOpenFormBrowse

DoCmd.OpenForm rs![Argument]

' Open a report.

Case conCmdOpenReport

DoCmd.OpenReport rs![Argument], acPreview

' Customize the Switchboard.

Case conCmdCustomizeSwitchboard

' Handle the case where the Switchboard Manager

' is not installed (e.g. Minimal Install).

On Error Resume Next

Application.Run "ACWZMAIN.sbm_Entry"

If (Err <> 0) Then MsgBox "Command not available."

On Error GoTo 0

' Update the form.

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

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

FillOptions

' Exit the application.

Case conCmdExitApplication

CloseCurrentDatabase

' Run a macro.

Case conCmdRunMacro

DoCmd.RunMacro rs![Argument]

' Run code.

Case conCmdRunCode

Application.Run rs![Argument]

' Open a Data Access Page

Case conCmdOpenPage

DoCmd.OpenDataAccessPage rs![Argument]

' Any other command is unrecognized.

Case Else

MsgBox "Unknown option."

End Select

' Close the recordset and the database.

rs.Close

HandleButtonClick_Exit:

On Error Resume Next

Set rs = Nothing

Set con = Nothing

Exit Function

HandleButtonClick_Err:

' If the action was cancelled by the user for

' some reason, don't display an error message.

' Instead, resume on the next line.

If (Err = conErrDoCmdCancelled) Then

Resume Next

Else

MsgBox "There was an error executing the command.", vbCritical

Resume HandleButtonClick_Exit

End If

End Function

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

Dim Begin As Label

Dim X As Integer

Dim mes As Integer

Dim MyAssistant As Assistant

Dim NewBalloon As Balloon

Set MyAssistant = Assistant

Set NewBalloon = MyAssistant.NewBalloon

MyAssistant.FileName = "clippit.act"

MyAssistant.Animation = msoAnimationGreeting

Begin:

WithNewBalloon

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

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

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

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

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

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

End With

X = NewBalloon.Show

IfX = 1 Then

mes = MsgBox("Предприятие ООО 'СТИМУЛ-БРЕСТ' производит С/Х машины. Предприятие находится по адресу: 224022, г.Брест, Красный двор", vbInformation)

GoTo Begin

End If

IfX = 2 Then

mes = MsgBox("Таблица отображает информацию о продукции, которую производит данная фирма.", vbInformation)

GoTo Begin

End If

IfX = 3 Then

mes = MsgBox("Курсовой проект по теме'' Автоматизация работы предприятия ООО 'СТИМУЛ-БРЕСТ'. '' разработан студентом IV курса группы 8381 Бояревичем И.Н. ", vbOKOnly)

GoTo Begin

End If

If X = 4 Then

mes = MsgBox("Bye-bye!!!")

GoTo Begin

End If

End Sub

Private Sub справка_Click()

Dim Begin As Label

Dim X As Integer

Dim mes As Integer

Dim MyAssistant As Assistant

Dim NewBalloon As Balloon

Set MyAssistant = Assistant

Set NewBalloon = MyAssistant.NewBalloon

MyAssistant.FileName = "clippit.act"

MyAssistant.Animation = msoAnimationGreeting

Begin:

WithNewBalloon

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

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

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

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