End Sub

Private Sub Command7_Click()

Call WebBrowser1.Stop 'вікно перегляду зупиняє свою дію

End Sub

Private Sub Form_Load()

Call WebBrowser1.GoHome

End Sub

Private Sub Form_Resize()

' установки розташування txturl и webbrowser1

On Error Resume Next

WebBrowser1.Width = ScaleWidth

Webrowser1.Height = ScaleHeight - WebBrowser1.Top

txturl.Width = ScaleWidth - txturl.Left

End Sub

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)

' коли загрузка повная, відобразіть url в txturl

txturl.Text = URL

End Sub

Фото програми

База даних підприємства «Кобза»

Ця база даних моделює роботу підприємства «Кобза». У підприємстві «Кобза» є 25 комп'ютерів. Клієнт, після оплати, сідає за якою-небудь з комп'ютерів на певний час. Су-ществуєт декілька видів послуг для клієнта, що сідає за комп'ютер: Інтернет, Ігри або Робота в Microsoft Word.

Нижче приведена База даних, де всі ці відомості будуть зберігається.

Код | № ПК | ФИО клиента | Вид услуги | Оплата | Время

1 | 23 | Иванов Б.К. | Робота в Word | 5 | 10:00

2 | 12 | Аверченко Е.Ю. | Інтернет | 5 | 13:50

3 | 20 | Чикета Е.В. | Ігри | 6 | 12:59

4 | 7 | Семчук М.С. | Інтернет | 4 | 16:21

5 | 16 | Мельник Л.Ю. | Ігри | 6 | 17:09

6 | 20 | Ярич А.А. | Ігри | 6 | 18:00

7 | 4 | Табачук А.В. | Робота в Word | 5 | 18:00

Схема данних

Форма Бази Данних