Практична завдання № 8. “Інформація про працівників.
Завдання А:
Створити базу даних про працівників по таблиці 1.
Заповнити базу даних (стрічок записів має бути 6-ть).
Вставити фотографії студентів (при відсутності намалювати нескладний дружній шарж для 6-и студентів)
Таблиця 1
№п/п |
Назва поля |
Тип поля |
Формат поля |
|
|
№ п/п |
Лічильник |
|
|
|
Ідентифікаційний код |
Числовий |
Розмір поля 9 |
|
|
Прізвище |
Текстовий |
Розмір поля 25 |
|
|
Ім’я |
Текстовий |
Розмір поля 25 |
|
|
По батькові |
Текстовий |
Розмір поля 25 |
|
|
Спеціальність |
Текстовий |
Розмір поля 25 |
|
|
Паспорт № |
Числовий |
Ціле число |
|
|
Серія |
Текстовий |
Розмір поля 2 |
|
|
Група |
Фіксований набір |
У переліку 5-ть 6-ть фіксованих навчальних груп поліграфічного технікуму |
|
|
Ким виданий |
Текстовий |
Розмір поля 100 |
|
|
Дата народження |
Дата/час |
Короткий формат дати |
|
|
Фотографія |
OLE |
Фотографії або малюнки Paint |
Завдання Б:
Створити форму для заповнення бази даних.
Створити клавіші пошуку інформації під програмою Visual Access.
Створити клавіші переміщення по формі (на початок, назад, вперед, на останній запис).
Завдання В:
Створити звіт у майстрові звітів.
Відкоректувати поля звіту і виправити всі записи у звіті на українську мову.
Практична завдання № 18. Visual Basic і бд Access.
Завдання: Створити програму «Паспортні дані».
Створити базу даних по таблиці 1.
Заповнити базу даних (стрічок записів має бути 6-ть).
Таблиця 1
№п/п |
Назва поля |
Тип поля |
Формат поля |
|
|
№ п/п |
Лічильник |
|
|
|
Прізвище |
Текстовий |
Розмір поля 50 |
|
|
Серія паспорта |
Числовий |
Ціле число |
|
|
№ паспорта |
Числовий |
|
Створити форму для заповнення бази даних під програмою Visual Basic використовуючи контроли ado або dao.
Створити звіт у Visual Basic використовуючи контрол Active Report. Практична завдання № 9. Visual Basic. "Блокнот".
ЗАВДАННЯ: Створити программу під Visual Basic «Блокнот».
Код програми:
Private Sub Command1_Click() 'Добавляє з TextBox у ListBox List1.AddItem Text1 List2.AddItem Text2 Text1 = "": Text2 = "" End Sub
Private Sub Command2_Click() ' Видаляє з ListBox List1.RemoveItem (List1.ListIndex) List2.RemoveItem (List2.ListIndex) End Sub
Sub Form_Load() 'Читає з форми Dim S$, ab ab = App.Path + "\base\ab.dll" Open ab For Input As #1 Do Until EOF(1) Line Input #1, S List1.AddItem S Loop Close #1
Dim D$, tel tel = App.Path + "\base\tel.dll" Open tel For Input As #1 Do Until EOF(1) Line Input #1, D List2.AddItem D Loop Close #2 Close End Sub
|
Private Sub Form_Unload(Cancel As Integer) 'Запис даних Dim S$, I&, ab ab = App.Path + "\base\ab.dll" Open ab For Output As #1 For I = 0 To List1.ListCount - 1 List1.ListIndex = I S = List1.Text Print #1, S Next Close #1
Dim Q$, W&, tel tel = App.Path + "\base\tel.dll" Open tel For Output As #2 For W = 0 To List2.ListCount - 1 List2.ListIndex = W Q = List2.Text Print #2, Q Next Close #2 End Sub
Private Sub list1_click() 'Синхронізація List2 із List1 For x = 0 To 100 If List1.ListIndex = x Then List2.ListIndex = x End If Next x End Sub
Private Sub List2_Click() 'Синхронізація List1 із List2 For x = 0 To 100 If List2.ListIndex = x Then List1.ListIndex = x End If Next x End Sub
|