Автоматизация работы предприятия ООО "Стимул-Брест"
Курсовой проект - Компьютеры, программирование
Другие курсовые по предмету Компьютеры, программирование
ewBalloon = 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