Самостоятельно
В Access создайте эти две таблицы, заполните их данными, свяжите по полю CategoryID. (Ключевые поля не создавайте)
Поместите на форму элементы Data и DBGrid.
Data привяжите к базе данных и к одной (без разницы какой – они все равно связаны между собой) из таблиц.
DBGrid привяжите к элементу Data.
Напишите код для вывода результата соединения этих 2 таблиц (третью таблицу)
Код (сначала попробовать самостоятельно)
Private Sub Form_Load()
Dim db As Database
Dim recTovar As Recordset
Dim strSQL As String
Set db = OpenDatabase("c:\Мои документы\Товары2.mdb")
strSQL = "SELECT Categories.[CategoryName], " & _
"Products.[ProductName] " & _
"FROM Categories " & _
"INNER JOIN Products ON " & _
"Products.[CategoryID] = Categories.[CategoryID]"
Set recTovar = db.OpenRecordset(strSQL)
Set Data1.Recordset = recTovar
End Sub
Практическая работа
Создать приложение, заносящее в базу данных «Test» данные тестирования. Данный пример демонстрирует возможность редактирования отдельных ячеек базы данных. Таблица БД называется «Результаты». Поля таблицы (текстовые): «Тестируемый», «ОтветНаВопрос1», «ОтветНаВопрос2», «ОтветНаВопрос3».
Форма:
Код:
Dim dbTest As Database
Dim rsStudent As Recordset
Private Sub Form_Load()
Set dbTest = OpenDatabase("c:\Мои документы\Test.mdb")
Set rsStudent = dbTest.OpenRecordset("Результаты", dbOpenDynaset)
End Sub
Private Sub AddTesting_Click()
With rsStudent
.AddNew
!Фамилия = Text1.Text
.Update
.MoveLast
End With
End Sub
Private Sub Yes_Click()
Answer ("ДА")
End Sub
Private Sub No_Click()
Answer ("НЕТ")
End Sub
Private Sub NotKnow_Click()
Answer ("НЕ ЗНАЮ")
End Sub
Public Sub Answer(otvet)
rsStudent.Edit
If Option1.Value Then rsStudent!ОтветНаВопрос1 = otvet
If Option2.Value Then rsStudent!ОтветНаВопрос2 = otvet
If Option3.Value Then rsStudent!ОтветНаВопрос3 = otvet
rsStudent.Update
End Sub
Самостоятельно:
Написать приложение, делающее то же самое, но вопросы выбирающее из текстового файла.
Создание отчетов с помощью crystal reports
Конечной целью многих приложении является получение твердых копий документов, в том или ином виде отображающих данные. Это могут быть таблицы, формы данных, рабочие или стандартные документы — счета-фактуры, ведомости, инвентарные листы и т. д. Получать такие документы позволяют специальные программы — генераторы отчетов. В том или ином виде функции генератора отчетов реализованы во всех инструментальных средствах, предназначенных для работы с данными. Имеется такой инструмент и в Visual Basic.
В комплекте с Visual Basic 5.0 поставляется процессор отчетов Crystal Reports 4.6 разработки Seagate Software.
Crystal Reports для Visual Basic — полнофункциональная среда, позволяющая создавать отчеты многих стилей и любой сложности из данных локальных файлов .mdb и сетевых баз данных SQL/ODBC, с широкими возможностями форматирования представляемой информации — как вручную, так и программным способом в коде Visual Basic.
Создаем простой отчет:
Откройте свой проект «Склад»
В первую форму добавьте кнопку «ОТЧЕТЫ»
В конечном виде форма выглядит так:
Добавьте еще одну форму (пятую) в проект и заполните ее:
Под кнопку «ОТЧЕТЫ» поместите код: Form5.Show
Теперь, прежде чем распечатать отчеты, их нужно предварительно создать.