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

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

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:

With NewBalloon

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

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

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

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

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

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

End With

X = NewBalloon.Show

If X = 1 Then

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

GoTo Begin

End If

If X = 2 Then

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

GoTo Begin

End If

If X = 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:

With NewBalloon

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

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

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

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

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

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

End With

X = NewBalloon.Show

If X = 1 Then

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

GoTo Begin

End If

If X = 2 Then

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

GoTo Begin

End If

If X = 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

Public Sub Form_Load()

Dim MyMenu As CommandBar

Dim cbFileB As CommandBarPopup

Dim cbEditB As CommandBarPopup

Dim cbViewB As CommandBarPopup

Dim cbHelpB As CommandBarPopup

Dim cbInsertB As CommandBarPopup

Dim cbFormatB As CommandBarPopup

Dim cbOpenB As CommandBarButton

Dim cbSaveB As CommandBarButton

Dim cbExitB As CommandBarButton

' Создание строки главного меню

Set MyMenu = CommandBars.Add(Name:="KCmdBar", MenuBar:=True, Temporary:=True, Position:=msoBarTop)

' Создание меню Файл

Set cbFileB = MyMenu.Controls.Add(Type:=msoControlPopup)

cbFileB.Caption = "Файл"

' Создание меню Отчеты

Set cbEditB = MyMenu.Controls.Add(Type:=msoControlPopup)

cbEditB.Caption = "Отчёты"

' Создание меню Формы

Set cbViewB = MyMenu.Controls.Add(Type:=msoControlPopup)

cbViewB.Caption = "Формы"

' Создание меню Справка

Set cbHelpB = MyMenu.Controls.Add(Type:=msoControlPopup)

cbHelpB.Caption = "Помощь"

' Создание меню Файл

Set Печать = cbFileB.Controls.Add(Type:=msoControlButton)

Печать.Style = msoButtonCaption

Печать.Caption = "Печать..."

Печать.OnAction = "Печать"

MyMenu.Visible = True

Set cbExitB = cbFileB.Controls.Add(Type:=msoControlButton)

With cbExitB

Style = msoButtonCaption

Caption = "Выход"

OnAction = "Exit"

End With

MyMenu.Visible = True

Set cbSotrOtchet = cbEditB.Controls.Add(Type:=msoControlButton)

With cbSotrOtchet

Style = msoButtonCaption

Caption = "Неоплаченные счета"

OnAction = "Неоплаченные_счета"

End With

MyMenu.Visible = True

Set cbPostOtchet = cbEditB.Controls.Add(Type:=msoControlButton)

With cbPostOtchet

Style = msoButtonCaption

Caption = "Продажи по клиентам"

OnAction = "По_клиентам"

End With

MyMenu.Visible = True

Set cbTovarOtchet = cbEditB.Controls.Add(Type:=msoControlButton)

With cbTovarOtchet

Style = msoButtonCaption

Caption = "Продажи по товарам"

OnAction = "По_товарам"

End With

MyMenu.Visible = True

Set cbPost = cbViewB.Controls.Add(Type:=msoControlButton)

With cbPost

Style = msoButtonCaption

Caption = "Продукция"

OnAction = "товары"

End With

MyMenu.Visible = True

Set cbPostй = cbViewB.Controls.Add(Type:=msoControlButton)

With cbPostй

Style = msoButtonCaption

Caption = "Сотрудники"

OnAction = "Сотрудники"

End With

MyMenu.Visible = True

Set cbPostц = cbViewB.Controls.Add(Type:=msoControlButton)

With cbPostц

Style = msoButtonCaption

Caption = "Заказы_по_клиентам"

OnAction = "Заказы_по_клиентам"

End With

MyMenu.Visible = True

' Set cbPostк = cbViewB.Controls.Add(Type:=msoControlButton)

' With cbPostк

' .Style = msoButtonCaption

' .Caption = "Кто, где работает"

' .OnAction = "Кто-где_Форма_Меню"

' End With

' MyMenu.Visible = True

' Создание ассистента

Set FGq = cbHelpB.Controls.Add(Type:=msoControlButton)

FGq.Style = msoControlButton

FGq.Caption = "Показать помощника"

FGq.OnAction = "Аситсент"

Set FG = cbHelpB.Controls.Add(Type:=msoControlButton)

FG.Style = msoControlButton

FG.Caption = "О_предприятии"

FG.OnAction = "О_предприятии"

Set Sprav = cbHelpB.Controls.Add(Type:=msoControlButton)

Sprav.Style = msoControlButton

Sprav.Caption = "Справка"

Sprav.OnAction = "help"

End Sub