Считывание даних із гостьовій книжки — у таблицу

РефератДопомога в написанніДізнатися вартістьмоєї роботи

Считывание даних із гостьовій книжки — у таблицу (реферат, курсова, диплом, контрольна)

Дата видачі завдання: 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 (з описом вмісту, тематической спрямованості) 2 стр.

______.

РАЗОМ 15−22 стр.

Завдання 2.

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

Ccылка — internet.

— Вихідні дані в файлі «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 (internet.

Цей набір процедур розроблений для зчитування даних із Гостьовій книжки, створеної додатку 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 з нашого процедурі означає, що буває після виконання циклу процедура завершує роботу. Кожна стандартна помилка має власний номер. При помилці - 214 721 887 об'єкт cmd1 називає новий вмонтований об'єкт ADO бази даних, і з допомогою оператора With пов’язують із поточним проектом, змінює деякі властивості цього об'єкта, виконує їх і поза оператором With слід функція відновлення Resume, т. е. запускається від початку Sub LookForNameStart. Якщо ж номер помилки інший, то вікні налагодження з’являється номер і опис цієї помилки і яскрава програма повертається до мітці MyExit. Функція CleanText прибирає спеціальні символи з допомогою функції Replace.

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

[pic].

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

Рис. 2.

[pic].

Рис. 3.

Guest Book.

Welcome to my first web page.

Top of Form.

Please enter your private information: |First Name |[pic] | |Last Name |[pic] | |Organization|[pic] | |Street |[pic] | |Address | | |Address |[pic] | |(cont.) | | |City |[pic] | |State/Provin|[pic] | |ce | | |Zip/Postal |[pic] | |Code | | |Country |[pic] | |Е-mail |[pic] |.

[pic] [pic].

Bottom of Form.

Author information goes here.

Revised:

Рис. 4.

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

[pic].

Рис. 5.

[pic].

Рис. 6.

[pic].

Рис. 7.

[pic].

Рис. 8.

[pic].

Рис. 9.

[pic].

Рис. 10.

[pic].

Рис. 11.

[pic] 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:

22 222 222 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, «.

Показати весь текст

Заповнити форму поточною роботою