Теперь  таблицы нужно заполнить конкретными записями. Но если мы хотим, чтобы в дальнейшем записи таблиц БД автоматически упорядочивались по заданному полю, необходимо создать, так называемый, индекс таблицы. Для этого с помощью панели Add Index, ввести в поле окна Name имя поля, которое хотим сделать индексным, щелкнуть по нему, чтобы включить его в список Indexed Filds. 
 

    3.1. Заполнение созданных  таблиц БД исходными  данными. 

    После запуска системы Visual Basic 6.0 следует выполнить  действия:

1. Войти в среду проектирования стандартным способом, выбрав пиктограмму Standart EXE.
2. На раскрывшейся Главной панели системы Visual Basic 6.0 в Главном меню выбрать опцию Модули (Добавления) - Add-Ins, а в ней команду Visual Data Manager– раскроется панель VisData (рис. 3.3).
3. Выполнить последовательность команд:

 

File – Open Data Base – Microsoft Access 

               Совокупностью команд мы открываем уже созданную Базу данных.

         4.  Открыть базу данных клавишей  Открыть, предварительно выделив мышкой, имя                                    

              Proekt – раскроется панель  VisData (рис.3.14) со структурой нашей базы данных,

               включающей таблицы SM и UCH. 

      3.13 Окно Open Microsoft Access      DataBase – окно Открытия Базы данных 
 
 

 

    3.14. Панель VisData с окном  DataBase, содержащем структуру Базы данных Proekt с таблицами IZD и  MT 
 

    Щелчком правой кнопкой мыши по таблице  SM или UCH раскрыть Контектсное меню выбора опций Модификаций структур таблиц базы Данных, являющееся узловым (начальным) инструментом разработки баз данных.

    Выбрав опцию Open, раскроем окно Модификаций таблиц базы данных (рис.3.15) Окно Модификаций таблиц базы данных является Исходным инструментом выбора видов работ (видов модификаций) с таблицами баз данных и содержит набор 8-и опций(рис.3.16) 

      3.15.Окно Модификаций таблиц базы данных 
 
 

      3.16. Линейка опций окна Модификаций таблиц базы данных 
 
 
 
 

      3.17. Окно модификаций таблиц базы данных после выбора Опций Add (добавления), способное обеспечивать ввод записей 

    Данные  отображаются в табличном формате, удобном для ввода новых Записей и редактирования текущей и ранее введенных записей (линейка опций окна Модификаций таблиц базы данных содержит опцию редактирования Edit – рис.3.15)

    Начинаем  процесс заполнения указанных полей  конкретными значениями первой записи. По окончании заполнения всех полей первой записи щелкнуть на кнопке Update (Обновить) –в результате набранная запись будет физически записана в файл создаваемой базы данных, в таблицу SM и восстановится окно модификаций. Щелкнув на кнопке Add, восстановим окно модификаций в виде рис.3.17. Начинаем заполнять указанные поля значениями следующей записи.

    Для перехода к новой записи – щелчок левой клавишей по кнопке Add. Для перехода к следующему полю – нажать клавишу Enter. Нажатие кнопки Close после ввода последней записи завершает ввод записей в таблицу создаваемой Базы данных. 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

 

 Алгоритм чтения таблицы SM

   

Алгоритм  чтения таблицы UCH

   
 
 

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

 

    Меню – один из способов диалога пользователя с информационной системой. Меню представляет собой список Пунктов, из которого следует выбрать необходимый.

    Использование большого количества командных кнопок связано с неудобствами.Возникает  неясность в последовательности их активизации. Разумная альтернатива –создание собственного меню проекта. В системе проектирования VB 6.0  создание Меню осуществляется с помощью Редактора меню Menu Editor. Окно редактора открывается на активной форме тремя способами:

• Главное Меню – Инструменты  - Редактор меню (меню Editor);
• Нажатием на линейке инструментов Главной панели системы VB 6.0  кнопки ;
• Нажатием клавиш CTRL+E

 

    Обычно  меню состоит из нескольких уровней.Верхний  – это строка меню, которую называют Головным меню. Каждый пункт Головного меню может включать подменю из одного или нескольких пунктов. Каждый следующий пункт, в свою очередь, может включать свое подменю и т.д. 

Меню  данного курсового проекта можно  представить в следующем виде: 
 

     Открываем окно редактора на  Form1(рис.6.1).  Form1 используется как основная.В окне Редактора (рис. 6.1) и осуществим конструирование Пользовательского меню.

    После вызова редактора требуется заполнить  его необходимыми данными. Сначала  в окно Нзвание вводится имя пункта меню, под которым оно будет выводится в строке меню на форме. Для  быстрого открытия меню в поле Заголовок необходимо указать т.н. горячую клавишу. Это делается записью амперсанда (&) перед соответствующей буквой. 

  .Окно Редактора  Меню

    Затем нажимаемся TAB и вводится в окно Имя уникальное имя пункта Меню в прогамме. Оно должно состоять из следующих частей:

• Префикса mnu, указывающего, что имя относится к меню;
• Собственного имени.

 

    Кроме свойств Заголовок, Имя элементы меню имеют еще три свойства, могущие  принимать значение True/False:

    Отмечено (Checked) –позволяет отметить выбранный элемент символом  .

    Включено (Enabled) – позволяет включить или выключить команды меню во время выполнения программы символом .

    Видимо (Visible) –позволяет отобразить или скрыть отдельные элементы меню (вместо блокировки) символом . 

    Элементы  конструирования структуры Меню позволяют:

    - устанавливать уровни Меню стрелками:

      смещает элемент на уровень  ниже,

      смещает элемент на уровень выше,

      перемещают элементы в списке элементов одного уровня; 

        - перемещать укзатель с следующему  Меню («Дальше» (Next), добавлять пункт  Меню («Вставить» (Insert), удалять пункт  Меню («Удалить» (Delete)).  

 Созданное  Меню в Окне  Редактора 

    По  завершении создания меню нажать OK и  созданное Меню появится на форме Form1 –отображается верхний Уровень Меню – Головное Меню (рис. 6.3). Меню активное. Для раскрытия любого пункта меню достаточно мышкой щелкнуть на выбранном пункте. 

      
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

Решение

Меню

   

Private Sub mnuD_Click()

    Form1.Hide

    Form7.Show

End Sub 

Private Sub mnuEnd_Click()

    End

End Sub 

Private Sub mnuS1_Click()

    Form1.Hide

    Form4.Show

End Sub 

Private Sub mnuS2_Click()

    Form1.Hide

    Form5.Show

End Sub 

Private Sub mnuS3_Click()

    Form1.Hide

    Form6.Show

End Sub 

Private Sub mnutSM_Click()

    Form1.Hide

    Form2.Show

End Sub 

Private Sub mnutUCH_Click()

    Form1.Hide

    Form3.Show

 End Sub

Вид формы с таблицей UCH

   
 
 

Свойства  элемента Data1: 

Caption=Таблица UCH

Name= Data1

Connect=Access

DataBaseName=A:\Kurs\ family.mdb

RecordSource=UCH       ‘источник данных

RecordType=0              ‘тип источника данных (таблиц БД)

Свойства  связанных элементов: 

Text1(0)

      DataField       =   "Физ развитие"

      DataSource      =   "Data1"

      Height          =   405

      Index           =   4

      Left            =   7320

      TabIndex        =   4

      Top             =   240

      Width           =   1215

Text1(1)

      DataField       =   "Ср оценка"

      DataSource      =   "Data1"

      Height          =   405

      Index           =   3

      Left            =   6120

      TabIndex        =   3

      Top             =   240

      Width           =   1215

Text1(2)

      DataField       =   "Класс"

      DataSource      =   "Data1"

      Height          =   405

      Index           =   2

      Left            =   4920

      TabIndex        =   2

      Top             =   240

      Width           =   1215

Text1(3)

      DataField       =   "Пол"

      DataSource      =   "Data1"

      Height          =   405

      Index           =   1

      Left            =   3720

      TabIndex        =   1

      Top             =   240

      Width           =   1215

Text1(4)

      DataField       =   "Фамилия"

      DataSource      =   "Data1"

      Height          =   405

      Index           =   0

      Left            =   2520

      TabIndex        =   0

      Top             =   240

      Width           =   1215 
 
 
 
 

Private Sub Command1_Click()

    Dim i As Integer, j As Integer, s As Single, k As Integer

    k = data1.Recordset.RecordCount

    ReDim Preserve p(1 To k, 1 To 5)

    flp.Rows = k + 1: flp.Cols = 6

    flp.Row = 0

    data1.Recordset.MoveFirst

    For i = 1 To k

        For j = 1 To 5

            If j = 1 And i <= 5 Then flp.TextMatrix(0, i) = data1.Recordset.Fields(i - 1).name

            p(i, j) = Text1(j - 1)

            flp.TextMatrix(i, j) = Text1(j - 1)

        Next j

        data1.Recordset.MoveNext

    Next i

End Sub 

Private Sub Command4_Click()