Зчитування даних з гостьової книги в таблицю

Дата видачі завдання: 10.04.00
Дата здачі готового завдання 5.06.00
В результаті виконання завдання по курсовій роботі представляється дискета,містить розроблену програму (функції, процедури), набори вихіднихданих, необхідні для перевірки роботи, а також завершення, якийповинен містити:

1. Титульний аркуш 1 стор
2. Завдання (цей лист) 1 стор
3. Теоретичне введення (загальні питання, пов'язані з Вашій роботі) 3-4 стор
4. Опис розробленої програми області застосування, методи використання 1-2 стор
5. Система позначень, опис змінних, аргументів функцій і процедур та ін 1-2 стор
6. Екранні копії етапів розробки з роз'ясненнями кожного зображення.

Опис робіт з налагодження програми 2-3 стор
7. Копії діалогів, підсумкові результати 2-3 стор
8. Текст програми (програм) у вигляді текстового файлу, опис їх підключення до системи VBA, MS Office або VB6 2-4 стор
9. Висновок і бібліографія, посилання

Internet (c описом вмісту, тема-тичної спрямованості) 2 стор

______

РАЗОМ 15-22 стор

Завдання 2

Тема: «Набір процедур VBA - Зчитування даних з гостьової книги frontpage
2000 в таблицю access 2000.

Ccылка - http://www.ProgrammingMSAccess.COM/

- Вихідні дані у файлі «Date2.doc» в каталозі «Соммоn» мережі

«Univers-Moldova».

- переклад на російську мову технічний опис процедур.

- Ввести і налагодити код функцій і процедур, що використовуються в прикладі.

- Створити необхідні процедури та файли даних (якщо це необхідно) для перевірки працездатності розробленої програми.

Теоретичне введення

Секрет, як стати професійним розробником програм на Visual
Basic, полягає в тому, щоб писати програми, що вимагають від нас застосуваннянайрізноманітніших можливостей Visual Basic. Серед них: досконалезнання і здатність на практиці застосовувати стандартні засоби керуванняпанеллю інструментів і компоненти ActiveX; уміння правильно встановлювати іманіпулювати властивостями, функціями й подіями об'єкта; здатністьписати ясний і чіткий програмний код з можливістю повторноговикористання деяких сегментів програми надалі; вміння створюватинаочний і ефективний інтерфейс користувача.

Для роботи над цією курсової мені треба було вивчити додаток
FrontPage, а також вивчити деякі можливості Visual Basic в додатку
Access.

Microsoft FrontPage 2000 включає всі необхідні засоби для ефективноїрозробки та експлуатації веб-сайтів. Користувачі можуть легко створюватиякісно оформлені веб-сторінки, вибираючи найбільш зручний спосіброзробки. FrontPage 2000 дозволяє надавати закінчений іпрофесійний вигляд веб-сторінок, імпортувати і редагувати код HTMLбудь-яким з існуючих способів і застосовувати новітні веб-технології. Здопомогою FrontPage 2000 можна легко виконувати оновлення веб-сторінок, атакож користуватися гнучкими засобами для керування вузлами Інтернету таінтрамережі. FrontPage 2000 дозволяє створювати і підтримувати вузли, стежитиза їх роботою та проводити періодичні оновлення. Робочі групи ікоманди фахівців можуть використовувати веб-сайти для спільної роботи, акомпанії - здійснювати розгортання та адміністрування FrontPage 2000 вмасштабах підприємства. FrontPage 2000 допомагає заощадити часкористувачам пакету Microsoft Office. Цей продукт працює за принципомдодатків Microsoft Office, що спрощують його освоєння.

Моя задача полягала в тому, щоб в програмі FrontPage створити гостьовукнигу. Потім у програмі Access створити однотаблічную базу даних і вмодулі Visual Basic набрати і налагодити код програм, які б зчитувавдані з гостьової книги в базу даних.

Для того щоб набрати і налагодити програму необхідно ознайомитися зелементами, що складають основу програмування на Visual Basic, тобто зкомандами, операторами, функціями та ключовими словами.

Оператори та функції

Оператор Sub оголошує ім'я, параметри і тіло процедури.
Оператор End Sub закінчує процедуру.
Оператор Dim оголошує змінні і виділяє пам'ять під них.
Оператор Set пов'язує посилання на об'єкт зі змінною або властивістю.
Цикл Do Until ... Loop повторює блок команд, поки умова не стане вірним.
Цикл If ... Then ... Else виконує команду (інструкцію) або блок команд вЗалежно від значення виразу.
Оператор On ... GoTo передає на одну з декількох певних рядків, вЗалежно від значення виразу.
Функція InStr повертає позицію перший знайденої підстроювання в рядку.
Функція Ucase повертає рядок, була перетворена у верхній регістр.
Оператор Mid заміщає певну кількість символів у рядку на символиз іншого рядка.
Функція Mid повертає певну кількість символів з певноюпозиції рядка.
Функція Lcase повертає рядок в нижньому регістрі.
Функція Left повертає певну кількість символів з початку рядка.
Оператор With виконує послідовність команд для конкретного об'єктаабо змінної спеціалізованого типу.
Функція Resume продовжує виконання програми після завершення процедуриобробника помилок.
Оператор Print записує відформатовані дані в файл.
Оператор Function оголошує ім'я, аргументів та код підпрограми,що повертає значення (функції).

Змінні

Отже, мінлива являє собою тимчасове сховище для даних в нашійпрограмі. Хто вчився інформатики в школі, напевно, пам'ятає, що
"перемінні - це такі скриньки в яких міститься інформація ...". Утексті програми ми можемо використовувати скільки завгодно змінних. Особливакористь від них - це те, що ми присвоюємо за потрібне даними короткий і легкозапам'ятовується ідентифікатор. Ярлик, так би мовити. Якщо ми призначимозмінної UserName значення "Іванов Петро Іванович", то надалівикористовувати вісім символів легше, ніж вісімнадцять! Змінні можутьмістити практично будь-яку інформацію.
Щоб грамотно використовувати змінну, потрібно її спочатку оголосити,зарезервувати під неї пам'ять. Для цього використовуються такі ключовіслова: Dim, Private, Public, Static, Global.
Змінні можна оголошувати на рівні модуля і на рівні процедури. Підрівнем модуля мається на увазі частина форми General і стандартний модуль, апід рівнем мається на увазі процедури Sub, Function і т.д.
Пояснення використання Static. Описує змінні тільки на рівніпроцедури. Змінна, описана на рівні процедури, "живе" тільки вмежах цієї процедури протягом роботи програми.
Пояснення використання Dim. Описує змінні як на рівні модуля такі на рівні процедури. Змінна, описана на рівні процедури, живетільки в межах цієї процедури і припиняє роботу після закінченняпроцедури. Її ми частіше за все і застосовуємо як лічильник, тому що він і потрібен то намвсе в даній процедурі. Змінна, описана на рівні модуля, доступнадля всіх процедур даного модуля. Тобто якщо нам потрібна змінна, якубачать всі функції та процедури, тo її треба оголосити зі словом Dim на рівнімодуля.
Пояснення використання Public. Описує змінні на рівні модуля.
Таким чином мінлива стає глобальною, але на рівні форми і доступнавсім іншим модулям
Звичайно, при переході в іншу форму мінлива буде порожній, невідомоюдля другої форми! Щоб уникнути цього потрібно оголосити змінну встандартному модулі зі словом Public або Global. Тоді мінлива будедоступна і відома кожної формі.
Пояснення використання Private. Описує змінні як на рівні модулятак і на рівні процедури. Змінна, описана на рівні процедури, живетільки в межах цієї процедури. Змінна, описана на рівні модуля,доступна лише модуля, в якому вона оголошена.
Оголошення всіх змінних вважається доброю звичкою. На допомогу забудькуватимі незабивчівим є інструкція Option Explicit. Поміщати цю інструкціюпотрібно на рівні модуля і потім вона перевіряє кожну змінну оголошена чивона чи ні? Якщо ні - вискакує помилка. Розмір відводиться пам'яті підзмінну залежить від виду цієї змінної. Основні види зміннихвказані в Таблиці 1.

Опис розробленої програми, області застосування, методи використання.

Набір процедур, включених у цю курсову, був спеціально створений длясайту THE TECH REPUBLIC (www.techrepublic.com).

Цей набір процедур розроблений для зчитування даних з Гостьової книги,створеної в додатку FrontPage, в однотаблічную базу даних, створену вдодатку Access.

При роботі з Пансіон книгою дуже зручно використовувати цей набірпроцедур.

Зараз дуже широко використовується Інтернет. Існує величезнакількість сайтів, на яких дуже часто можна зустріти сторінку з
Пансіон книгою. Там можна не тільки просто зареєструватися, заповнившинеобхідні форми, але і залишити свій коментарі з того чи іншогопитання, підписатися на всілякі електронні журнали і газети і багатоінше.

Розглянутий набір процедур працює з простою Пансіон книгою.
Побачити цю сторінку і зареєструватися ви можете за адресою-http:// univers/college/students/emel/main.htm

Ця Гостьова книга була створена в програмі FrontPage. Це - новедодаток розширеного пакету Microsoft Office2000. Зараз у цьомудодатку створювати веб-сайти стало ще простіше. Програми пакета Office
2000 і FrontPage 2000 використовують загальні панелі інструментів, теми, меню, атакож деякі інструментальні засоби, такі як фонова перевіркаорфографії і "Формат за зразком" (Format Painter). FrontPage 2000 такожспрощує використання форм і баз даних на веб-вузлах.

FrontPage 2000 забезпечує розробників веб-сайтів простими й потужнимиінструментальними засобами. FrontPage не змінює імпортований код
HTML і дає користувачам можливість самостійно налаштовувати йогоформатування. Працюючи в режимі редагування HTML, користувачі можутьприскорити процес створення сторінок, використовуючи кнопки і елементи меню.

FrontPage 2000 полегшує спільну роботу. Користувачі додатків пакета
Microsoft Office можуть зберігати документи безпосередньо на веб-сайтах,створених за допомогою FrontPage, а система резервування документів і звітиза проектом допомагають здійснювати спільну роботу над веб-сторінками.

FrontPage 2000 простий в обслуговуванні та експлуатації. У ньому використовується таж програма установки, що і в додатках Microsoft Office. Ця програмадозволяє проводити встановлення на вимогу, запускати програми зсервера і відновлювати програмне забезпечення.

Гостьові книги використовуються в різноманітних цілях, на приклад для отриманнястатистичних даних або для створення бази даних користувачів цьогосайту. Для створення такої бази даних і був створений даний набір процедур,який зчитує дані Гостьової книги, збережені в локальному файлі, ізаписує їх у базу даних.
Надалі, використовуючи цей набір процедур, можна буде постійнооновлювати дані в цій базі даних.

Використовуючи надалі можливості бази даних програми Access, можнастворювати різні запити та звіти, на приклад звіт про кількістькористувачів сайту за певний місяць, звіт по регіонах про місцепроживання користувачів сайту і т.д.

Система позначень, опис змінних, аргументів функцій і процедур і т.д.

Для VBA існують угоди про найменування Реддік (RVBA), якінадають вказівки з присвоєння імен об'єктів в мові Microsoft Visual
Basic for Applications (VBA). Наявність угод необхідно для будь-якогопрограмного проекту. При використанні угод ім'я об'єкта несе в собіінформацію про його призначення. Пропоновані угоди стандартизуютьпозначення в сфері програмування.
Мова VBA розроблений для взаємодії з базовим додатком, наприклад з
MS Access, Visual Basic, MS Excel, MS Project. Угоди RVBA застосовуються довсім розробкам на мові VBA, незалежно від базового програми.
Угоди RVBA засновані на Угорській нотації. Мета цієї нотації --лаконічне та ефективне представлення інформації про об'єкт у його імені.

Єдиною обов'язковою частиною імені об'єкта є ознака --короткий набір символів, звичайно мнемонічний, який вказує типоб'єкта. Ознака повинен складатися з рядкових букв і зазвичай вибирається зстандартного списку ознак, зазначеного в Таблиці 2

таблиця2 Ознаки для змінних VBA

| Ознака | Типи об'єкта |
| Byt | Byte |
| F | Boolean |
| Int | Integer |
| Sng | Single |
| Dbl | Double |
| Cur | Currency |
| Dtm | Date |
| Obj | Object |
| Str | String |
| Stf | String (фіксованої довжини) |
| Var | Variant |
| Lng | Long |

У цьому наборі процедур використовується Угорська нотація. Всі змінні іоб'єкти мають у своєму імені ознака, яка відповідає типу цихзмінних і об'єктів.

Набір розглянутих процедур складається з двох частин: процедури
LookForNameStart та процедури ProcessContact. Перед написанням кодупроцедур, оператор Dim оголошує змінні txtobj1 як об'єкт, що маєдоступ до файлової системи комп'ютера (Scripting) і зчитує текст файлупотоком (FileStream); strTemp як строкову змінну та rst1 яквбудований об'єкт (Recordset) ADO бази даних (див. Ріс7) і виділяє під цізмінні частину пам'яті. Оголошення змінних до написання самого кодупроцедур необхідно для того, щоб ці змінні були доступні більш ніжоднією процедурою.
Оператор Sub оголошує тіло і ім'я процедури LookForNameStart.
Оператор Dim резервує частину пам'яті під змінну fs, яка будемати доступ до системного файлу.
Оператор Set пов'язує посилання на новий об'єкт, що має доступ до системногофайлу зі змінною fs. Також цей оператор пов'язує посилання на новийоб'єкт fs, в якому відкривається файл Myformrstl.htm (См.Ріс.12) для читання
(За допомогою оператора Open) з диска F: на локальному комп'ютері зоб'ектомt xtobj1. Він також пов'язує rst1 з новим вбудованим об'єктом ADOбази даних. Потім в об'єкті rst1 відкривається таблиця "tblContacts" впоточному проекті CurrentProject.Connection.
Цикл Do Until ... Loop виконується до тих пір, поки не буде знайдена рядок,яка знаходиться прямо перед рядком "X_FirstName". Для цього використовуєтьсяще один цикл If ... Then ... Else ... End If, який перевіряє чи єчитається рядок txtobj1.ReadLine файлу Myformrstl.htm рядком "
X_FirstName ". Це здійснюється за допомогою функції InStr, якаповертає позицію шуканої рядка "X_FirstName". І якщо вона єтакої, то виконується друга процедура ProcessContact нашого проекту,якщо ж ні - то триває цикл Do ... Loop.
Для очищення ресурсів використовується метод Close для об'єктів txtobj1і rst1 іоператор Set, який посилається на порожні об'єкти txtobj1 і rst1.
Для заповнення таблиці "tblContacts" в базі даних була створена процедура
ProcessContact.
Оператор On ... GoTo у разі помилки змушує перестрибувати програму нарядок MyErrorTrap.
Оператор Dim оголошує змінні strFname, strLname, strCName, strSt1,strSt2, strCity, strRegion, strPostalCode, strCountry, strEmailAddr якрядкові змінні; intFirst і intLen як числові змінні і cmd1 яквбудований об'єкт ADO бази банних.
За допомогою циклу If ... Then ... Else ... End If у цій процедурі перевіряютьсярядки з введеними даними з Гостьової книги, які збережені у файлі
Myformrstl.htm. Цикл If ... Then ... Else ... End If за допомогою функції InStrперевіряє наявність у рядку спеціального знака "" і якщо його немає, топрісваевает змінної intFirst номер позиції символу + 1, з якого будепроводитиметься запис. Потім змінної intLen прісваевается значення довжинизапису, тобто скільки символів буде записано - 1. Змінним strFName іstrLName присвоюються значення за допомогою функцій Ucase, Lcase і Midсимволу з великої літери під номером, який визначено змінної intFirstрядка strTemp і символів, з номерами, наступними за intFirst з тієї жрядки, довжиною intLen - 1. Якщо умова не виконується то рядок залишаєтьсяпорожній.
За таким же принципом змінним strCName, strSt1 і strSt2 присвоюютьсязначення, але при цьому замість функцій Ucase, Lcase ісползуется функція
CleanText, яка створена в цьому пpоекте. Вона прибирає всі зайві символиз рядка.
У присвоєння змінним strCity, strRegion, strPostalCode, strCountry,strEmailAddr використовуються практично ті ж способи, але замість циклу If
... Then ... Else ... End If застосовується спрощений цикл, що записується водин рядок If ... Then. І він довіряв лише наявність спецсимволів в черговийрядку, і якщо вони ести то Ці змінні залишаються пустимі.Также тутвикористовується тільки функція Mid і функції Left для strRegion, якаповертає певну кількість символів з початку рядка.
Метод SkipLine об'єкта txtobj1 пропускає рядок.
Для налагодження програми використовується об'єкт Debug з властивістю Print.
Результати роботи процедур з'являються у вікні налагодження.
Далі все лічені дані будуть пооследовательно вписана в таблицюtblContacts нашої бази даних.
Процедура перевіряє порожні чи ні змінні strFName, strLName іstrEmailAddr якщо ні, то вона використовує оператор With для об'єкта rst1 длязаповнення полів таблиці, перевіряючи наявність запису в кожній строковийзмінної нашої процедури.
Мітка MyExit в нашій процедурі означає, що після виконання циклупроцедура закінчує роботу.
Кожна стандартна помилка має свій номер. При помилку - 214721887 об'єктcmd1 посилається на новий вбудований об'єкт ADO бази даних і за допомогоюоператора With зв'язується з поточним проектом, змінює деякі властивостіцього об'єкта, виконує їх і за оператором With слід функціявідновлення Resume, тобто запускається з самого початку Sub
LookForNameStart. Якщо ж номер помилки іншого, то в вікні налагодженняз'являється номер та опис цієї помилки і програма повертається до мітки
MyExit.
Функція CleanText прибирає спеціальні символи за допомогою функції Replace.

Екранні копії етапів розробки з роз'ясненнями кожного зображення.
Для виконання цього проекту необхідно було встановити додаток
MSFrontPage, який знаходиться в пакеті MSOffice2000. Його установчийпакет знаходиться на комп'ютері User7 нашої локальної мережі. При запускузнайдіть програму ми вибираємо "add or remove Features" (див. Рис.1)

Рис.1
Потім ми вибрали FrontPage в списку і дали команду навстановлення. (См.Ріс.2 і Рис.3)
За допомогою FrontPage Wizard я створив Гостьової книги (см.Ріс.4), якупотім встановили на сервер нашої локальної мережі. Отримавши файл з даними,отриманими через цю Гостьову книгу, я приступив до виконання другої частинипроекту: створення однотаблічной бази даних і написання коду процедур.
Частиною будь-якого проекту VBA є набір посилань на бібліотеку типів всіхкомпонентів IDE, які застосовуються в даному проекті. Прості проектимістять невелику кількість посилань, які застосовуються VBA, інтерфейсомавтоматизації і базовим додатком. Посиланнями можна керувати інтерактивнопосредствам діалогового вікна Посилання (См.Ріс.5) або програмним шляхом,посредствам Rferences класу VBProject.

Рис.2

Рис.3

Guest Book

Welcome to my first web page

Top of Form

Bottom of Form

Author information goes here.

Revised:

Рис.4

Потім я створив однотаблічную базу даних і підключив кілька бібліотек,необхідних для роботи проекту. (Див. Рис.5 і Рис.6)
Наступний етап розробки - написання коду (См.Ріс.7) Потім налагодженняпроцедур.
Так як у творців цього набору процедур, мабуть, була трохиінша Гостьова книга, то мені довелося внести деякі зміни в кодпроцедур: поміняти адресу файлу, з якого зчитуються дані, змінити ім'яперші рядки цього файлу і скасувати кілька команд - "пропуститирядок "(Див. Рис.7 - 11).
Як показано на малюнку 8 програма не працювала, тому що не знаходивнеобхідний файл. При цьому з'являється діалогове вікно з зазначенням номерапомилки і її описом (См.Ріс.9)

Рис.5

Рис.6 < p>

Рис.7

Рис.8

Рис.9

Рис.10

Рис.11

X_FirstName:

Sasha
X_LastName:

Sergheev
X_Organization:

College
X_WorkAddress:

A Russso 1
X_Address2:

A Russo 1
X_City:

Chishinev
X_State:

Moldova
X_ZipCode:

22222222
X_Country:

Moldova
X_Email: [email protected]

Рис.12

Тексти програм у вигляді текстового файлу і опис їх підключення до системи
MSOffice

'Оголосіть змінні глобально, так щоб вони були доступні більше ніжоднієї 'процедурою;
'Txtobj1 та об'єкти fs вимагають посилання на бібліотеку Microsoft Scripting
RunTime

Dim txtobj1 As Scripting.TextStream

Dim strTemp As String

Dim rst1 As ADODB.Recordset
Sub LookForNameStart ()

Dim fs As Scripting.FileSystemObject

'Формуйте посилання до системи файлу, і використовуйте це, щоб "відкрититекстовий 'об'єкт, заснований
'На локальному файлі, що містить регістр Гостьової книги

Set fs = New Scripting.FileSystemObject

Set txtobj1 = fs.OpenTextFile ( "F: formrslt.htm", ForReading)

'Відкрийте recordset на tblContacts таблиці

Set rst1 = New ADODB.Recordset

rst1.Open "tblContacts", CurrentProject.Connection, adOpenKeyset, _adLockOptimistic

'Пройти цикл через текстовий об'єкт для знаходження лінії якраз' перед
'FirstName полем

Do Until txtobj1.AtEndOfStream

strTemp = txtobj1.ReadLine

If InStr (1, strTemp, "X_FirstName") 0 Then

ProcessContact

End If

Loop

'Очистити ресурси

rst1.Close

Set rst1 = Nothing

txtobj1.Close

Set txtobj1 = Nothing

Set fs = Nothing

End Sub

Sub ProcessContact ()

On Error GoTo MyErrorTrap

Dim strFname As String

Dim strLname As String

Dim strCname As String

Dim strSt1 As String

Dim strSt2 As String

Dim strCity As String

Dim strRegion As String

Dim strPostalCode As String

Dim strCountry As String

Dim strEmailAddr As String

Dim intFirst As Integer

Dim intLen As Integer

Dim cmd1 As ADODB.Command

'Витягти First Name в потрібному регістрі

strTemp = txtobj1.ReadLine

If InStr (1, strTemp, "") = 0 Then

intFirst = InStr ( 1, strTemp, ">") + 1

intLen = InStr (InStr (1, strTemp, ">"), strTemp, "") + 1

intLen = InStr ( InStr (1, strTemp, ">"), strTemp, "") + 1

intLen = InStr (InStr (1, strTemp, ">"), strTemp, "") + 1

intLen = InStr (InStr (1, strTemp , ">"), strTemp, "") + 1

intLen = InStr (InStr (1, strTemp, ">"), strTemp, "") + 1

intLen = InStr (InStr (1, strTemp, ">"), strTemp, "