p align="left">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. Это приложение, возможно, в дальнейшем найдёт своё место в компьютерах данной фирмы, так как этот программный продукт достаточно прост в обращении и не доставит проблем даже не очень опытному пользователю. Литература Харитонова И.А., Михеева В.Д. 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 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
Страницы: 1, 2, 3
|