Кулинарная книга

MainMenu

Назначение

Для добавления в приложение меню используется специальный компонент MainMenu. MainMenu является визуальным компонентом. В него входят такие подкомпоненты как MenuItem. Его используют с такой же целью, что и элемент управления Button. Иначе говоря, MenuItem и есть элемент управления Button.

События

      Главным событием для MenuItem, как и для Button является Click, которое описывалось выше.

Свойства

      Главным свойством является Modifiers, значение которого “равно” Friend. Оно заданно по умолчанию. Также незаменимое свойство Text, которое позволяет присваивать каждому MenuItem свое имя.

SaveFileDialog

Назначение

      Предназначен  для сохранения данного файла. Базовым  классом SaveFileDialog является класс FileDialog.

События

      Этот  компонент вызывает окно сохранения файла, где указывается путь для  его сохранения.

Свойства

      Главным свойством Modifiers, значение которого “равно” Friend. Свойство Filter компонента SaveFileDialog позволяет определить, файлы какого типа (имеющие какое расширение) будут отображаться в окне сохранения файлов.

      Свойство  Title позволяет установить заголовок окна сохранения файла.

OpenFileDialog

Назначение

      Предназначен  для открытия данного файла. Базовым  классом OpenFileDialog является класс FileDialog.

События

      Этот  компонент вызывает окно открытия файла, где выбирается файл для дальнейшего  использования.

Свойства

      Главным свойством Modifiers, значение которого “равно” Friend. Свойство Filter компонента OpenFileDialog позволяет определить, файлы какого типа (имеющие какое расширение) будут отображаться в окне открытия файлов.

      Свойство  Title позволяет установить заголовок окна открытия файла.

Элемент данных

Назначение

     Многие  программисты предпочитают хранить  данные в таблицах Microsoft Access или в  других базах данных, поскольку Visual Basic позволяет относительно легко  работать с ними.

События

     При нажатие на кнопки элемента данных мы перемещаемся по базе данных.

Свойства

      Свойство ADO указывает тип базы данных.  Свойство RecordSet показывает, откуда берутся данные - из таблицы, динамического набора или снимка. Свойство DataSource определяет таблицу в базе данных. 
 
 
 
 
 
 
 
 
 
 
 
 
 

      Практическая  часть 

      Блок-схема  элементов программы: 

        
 
 
 
 
 
 
 
 

      

      Рис.1. Форма входа в Книгу 

      

      Рис.2. Форма выбора рецепта 
 
 

      

      Рис.3. Добавление рецепта 
 

Описание  программы:

      Данная  программа состоит из четырех  форм и диалогового окна. Первая форма (Рис.1) предназначена для входа в Книгу, с помощью второй формы (Рис.2) можно просмотреть рецепты, записанные в базе, а возможности третьей формы (Рис.3)  – добавить свой рецепт в базу.

      Вывод данных из базы производится в поля формы (например, в форме 2) и ввод данных через поля (форма 3).

        Каждый рецепт содержит в себе 6 пунктов:

      - категория рецепта

      - название блюда

      - состав

      - описание приготовления

      - время приготовления

      - картинка

      Благодаря моей программе можно всегда порадовать гостей и домашних вкусной пищей и быстро записать понравившийся рецепт. 
 

      Заключение 

     Все цели моей курсовой работы были достигнуты, а именно:

     - создана программа, помогающая  хозяйкам в поиске нужного  кулинарного рецепта;

     - изучен язык программирования Microsoft Visual Basic.Net, основные элементы  управления, их свойства и события.

     Мое приложение пригодится любому человеку, которому приятно готовить. В дальнейшем данную программу можно усовершенствовать  путём добавления новых объектов и различной информации по кулинарии.

 

Код приложения 

Форма 1. 

Public Class Form1

    Inherits System.Windows.Forms.Form 

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        End

    End Sub 

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim formMain As New Form2()

        Me.Hide()

        formMain.Show()

    End Sub

End Class 

Форма 2. 

Public Class Form2

    Inherits System.Windows.Forms.Form

    'Объявляем новый экземпляр объекта Connection

    Public MyADOConnect As New ADODB.Connection()

    Public MyDataSet As New ADODB.Recordset()

    Public DataRecept As New ADODB.Recordset() 

    Private Sub Form2_closing(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Closed

        End

    End Sub 

    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        MyADOConnect.Open("Provider= Microsoft.Jet.OLEDB.4.0;Data Source=кулинария.mdb")

        DataRecept.Open("Рецепты", MyADOConnect, ADODB.CursorTypeEnum.adOpenDynamic, ADODB.LockTypeEnum.adLockOptimistic) 

        MyDataSet.Open("Категории", MyADOConnect, ADODB.CursorTypeEnum.adOpenDynamic, ADODB.LockTypeEnum.adLockOptimistic)

       

        MyDataSet.MoveFirst()

        While MyDataSet.EOF = False

            Dim cat As String

            cat = MyDataSet.Fields("Название").Value()

            Combo_cat.Items.Add(cat)

            MyDataSet.MoveNext()

        End While

        MyDataSet.Close() 

    End Sub 

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        Dim formRecept As New Form3()

        formRecept.Show()

    End Sub 

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Dim formMain As New Form1()

        Me.Hide()

        formMain.Show()

    End Sub