Эта база данных предназначена для работы в наши дни, а также и для работы в будущем (с учётом того, что база будет обновляться по мере надобности). При внесении несущественных изменений этим приложением могут пользоваться и другие предприятия, подобные предприятию ООО "Стимул-Брест". С помощью этого приложения можно легко и быстро узнать всю необходимую информацию о самой фирме, ее истории, условиях доставки производимой продукции и об условиях оплаты, о сотрудниках и о составленных ими контрактами.
4.2 Среда функционирования
Для оптимальной работы с приложением нет необходимости в больших финансовых затратах на приобретение мощного компьютерного и периферийного оборудования. Ниже приведены минимальные требования к компьютерному и периферийному оборудованию:
от Intel Pentium - 60 МГц и выше;
RAM - 16 Мб;
HDD - 190 Мб;
VIDEO - 1 Мb;
Принтер
Windows9x
Access - 2000
Заключение
Цель этого приложения создать эффективную информационную базу данных для организации просмотра сведений о предприятии по производству сельскохозяйственных машин предприятия ООО "Стимул-Брест".
В этом отчёте было описано приложение "Автоматизация работы предприятия ООО `Стимул-Брест", которое было написано с помощью среды разработки баз данных MS Access 2000 и макроязыка программирования VBA. Это приложение, возможно, в дальнейшем найдёт своё место в компьютерах данной фирмы, так как этот программный продукт достаточно прост в обращении и не доставит проблем даже не очень опытному пользователю.
Литература
Харитонова И.А., Михеева В.Д. Microsoft Access 2000.-С-Пб.:БХВ - Санкт-Петербург, 2000.-1088 с.
Багласова Т.Г. Системное и прикладное программное обеспечение. Лабораторный практикум.- Мн,:МГВРК, 1999
Гурская И.Ф. Оформление текстовой документации.- Мн.:МГВРК, 1997
Нортон П. Разработка приложений в Access 97.-С-Пб.:BHV, 1998
Новалис С. Руководство по макроязыку и VBA. - 1998
Браун С. 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
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
' Close the recordset and the database.
rs.Close
Set rs = Nothing
Set con = Nothing
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
On Error GoTo HandleButtonClick_Err
' Find the item in the Switchboard Items table
' that corresponds to the button that was clicked.
stSql = "SELECT * FROM [Switchboard Items] "
stSql = stSql & "WHERE [SwitchboardID]=" & Me![SwitchboardID] & " AND [ItemNumber]=" & intBtn
' If no item matches, report the error and exit the function.
MsgBox "There was an error reading the Switchboard Items table."
Exit Function
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.
' 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
HandleButtonClick_Exit:
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
MsgBox "There was an error executing the command.", vbCritical
Resume HandleButtonClick_Exit
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
If X = 2 Then
mes = MsgBox("Таблица отображает информацию о продукции, которую производит данная фирма.", vbInformation)
If X = 3 Then
mes = MsgBox("Курсовой проект по теме'' Автоматизация работы предприятия ООО 'СТИМУЛ-БРЕСТ'. '' разработан студентом IV курса группы 8381 Бояревичем И.Н. ", vbOKOnly)
If X = 4 Then
mes = MsgBox("Bye-bye!!!")
Private Sub справка_Click()
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"
Set cbSotrOtchet = cbEditB.Controls.Add(Type:=msoControlButton)
With cbSotrOtchet
Caption = "Неоплаченные счета"
OnAction = "Неоплаченные_счета"
Set cbPostOtchet = cbEditB.Controls.Add(Type:=msoControlButton)
With cbPostOtchet
Caption = "Продажи по клиентам"
OnAction = "По_клиентам"
Set cbTovarOtchet = cbEditB.Controls.Add(Type:=msoControlButton)
With cbTovarOtchet
Caption = "Продажи по товарам"
OnAction = "По_товарам"
Set cbPost = cbViewB.Controls.Add(Type:=msoControlButton)
With cbPost
Caption = "Продукция"
OnAction = "товары"
Set cbPostй = cbViewB.Controls.Add(Type:=msoControlButton)
With cbPostй
Caption = "Сотрудники"
OnAction = "Сотрудники"
Set cbPostц = cbViewB.Controls.Add(Type:=msoControlButton)
With cbPostц
Caption = "Заказы_по_клиентам"
OnAction = "Заказы_по_клиентам"
' 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"
Страницы: 1, 2, 3, 4
