зміст форми, включаючи елементи INPUT і, можливо, елементи TEXTAREA і SELECT

де:         ім'я атрибуту          можливі значення          Сенс атрибуту          примітки              ACTION         URL         адреса сервера, який використовує форма         сервер HTTP або URL              METHOD         GET, POST         метод передачі даних, отриманих від користувача, на сервер         за замовчуванням - GET              ENCTYPE         рядок         механізм, який використовується для кодування вмісту форми         за замовчуванням додаток/x-www-form-url-кодування     

У змісті форми ми можемо мати такі поля:

Є деякі елементи, які можуть з'явитися тільки в межах елемента FORM. Зокрема:

INPUT - поля введення у формах

Мета даного поля специфікувати в межах форми вступні поля: одностроковие текстові поля, поля пароля, перемикачі, радіокнопки, кнопки відсилання і перезавантаження, приховані поля, вивантаження файлу, кнопки зображення і т.д.

Типове відображення

Змінюється відповідно до типу поля.

Основний синтаксис

Можливі атрибути         ім'я атрибуту          можливі значення          сенс          примітки              TYPE         TEXT, PASSWORD, CHECKBOX, RADIO, SUBMIT, RESET, FILE, HIDDEN, IMAGE            тип поля для введення         за замовчуванням TEXT              NAME         рядок         ім'я для ідентифікації поля, коли його вміст передається серверу         потрібно для всіх атрибутів, крім SUBMIT і RESET              VALUE         рядок         початкове значення введеного поля; для атрибутів SUBMIT або RESET - текстова мітка         обов'язковий, якщо TYPE = RADIO або CHECKBOX              CHECKED         встановлений         коли TYPE = RADIO або CHECKBOX, ініціалізує поле до встановленого   Станом                      SIZE         ціле         видимий розмір поля; кількість символів                      MAXLENGTH         ціле         Максимальна кількість символів, дозволених у текстовому полі         за замовчуванням не обмежена              SRC         URL         адресу зображення         для полів з фоновими зображеннями              ALIGN         TOP, MIDDLE, BOTTOM, LEFT, RIGHT         вирівнювання зображення для графічних кнопок         за замовчуванням BOTTOM     

Різні значення атрибуту TYPE відповідають різним видам ввідних полів.

TYPE = TEXT (тип = текст - за замовчуванням)

Одностроковое текстове поле, чий видимий розмір може бути встановлений атрибутом SIZE, наприклад, SIZE = 40 для 40-символьного поля. Користувачі можуть вводити і більше символів, ніж це обмеження, але з текстовим скролінгом (гортання) поля, щоб курсор введення залишався видимим. Ви можете задати верхню межу кількості символів атрибутом MAXLENGTH. Атрибут NAME використовується для найменування поля, а атрибут VALUE ініціалізує текстовий рядок у полі, коли документ вперше завантажений.

Зауважимо, що текстовий введення обмежений одним рядком. Використовуйте елемент TEXTAREA, щоб визначити многостроковие текстові поля.

Приклад:

TYPE = PASSWORD (тип = пароль)

Цей тип подібний TYPE = TEXT, проте всі Зауважте, що ви представляються у вигляді * , щоб приховати текст від підглядають очей, коли вводиться пароль. Ви можете використовувати атрибути SIZE і MAXLENGTH, щоб керувати видимої і максимальної довжинами поля точно так само, як для звичайного текстового поля.

Приклад:

TYPE = CHECKBOX (тип = полі установки - перемикач)

Використовується для простих бульових атрибутів (тобто атрибутів, які приймають значення ІСТИНА або ЛОЖЬ) або для атрибутів, які одночасно можуть приймати безліч значень. Кожне заповнене переключательное поле генерує окрему пару ім'я/значення в формованих даних, навіть якщо це призводить до дублювання імен. Використовуйте атрибут CHECKED для ініціалізації поля установки за умовчанням.

Приклад:

TYPE = RADIO (тип = радіокнопки)

Використовується для атрибута, який може приймати єдине значення з безлічі. Кожне поле радіокнопки в групі повинно бути задано тільки одним значенням атрибуту NAME. Радіокнопки вимагають явного атрибуту VALUE. Єдина натиснута радіокнопки в групі генерує пару ім'я/значення в формованих даних. Одна радіокнопки в групі атрибутом CHECKED повинна бути попередньо встановлена за замовчуванням.

Приклад:

TYPE = SUBMIT (тип = відсилання)

Визначає кнопку, яку користувач може натиснути, щоб передати вміст форми сервера. Позначка встановлюється атрибутом VALUE. Якщо атрибут NAME заданий, то пара найменування/значення для виконуваній кнопки буде включена в передані дані. Ви можете включити кілька виконуваних кнопок у форму. Дивіться TYPE = IMAGE для графічних виконуваних кнопок.

Приклади:

TYPE = RESET (тип = перезавантаження)

Визначає кнопку, яку користувач може натиснути, щоб повернути поля форми до вихідного стану, коли документ був вперше завантажений. Ви можете встановити мітку за допомогою атрибуту VALUE. Кнопки перезавантаження ніколи не надсилаються як частина вмісту форми.

Приклад:

TYPE = FILE (тип = файл)

Цей тип дає можливість користувачам прикріпити файл до вмісту форми. Елемент зазвичай відображається, як текстове поле з кнопкою, при натисканні на яку з'являється файловий броузер для відбору імені файлу. Назва файлу також може бути введено прямо в текстовому полі.

Таким же чином, як для TYPE = TEXT, для TYPE = FILE можна використовувати атрибут SIZE, щоб встановити видиму ширину поля. Ви також можете встановити верхню межу для довжини імені файлу, використовуючи атрибут MAXLENGTH. Деякі програми перегляду підтримують здатність обмежувати види файлів, які можуть бути прикріплені до форми, перерахуванням розділяється комами список файлів з вмістом типу MIME, що задається атрибутом ACCEPT. Наприклад, ACCEPT = "image/*" обмежить файли зображеннями. Додаткова інформація може бути знайдена в RFC 1867.

Приклад:

TYPE = HIDDEN (тип = прихований)

Цей тип поля не відображається користувачеві. Приховане поле дає можливість для серверів зберігати інформацію про стан разом з формою. Коли форма "виповнюється" при натисканні відповідної кнопки, серверу буде передана пари ім'я/значення, визначена з використанням відповідних атрибутів. Цей тип створює робоче оточення для повноти можливостей HTTP і є альтернативою для використання так званої HTTP cookies.

Приклад:

TYPE = IMAGE

Використовується для графічних кнопок відсилань, що відображаються зображенням. URL для зображень специфікується атрибутом SRC. Вирівнювання зображення може бути специфікована атрибутом ALIGN. У цьому відношенні графічні кнопки відсилання ідентичні елементів IMG (так, Ви можете встановити для ALIGN - LEFT, RIGHT, TOP, MIDDLE або BOTTOM). Атрибути NAME і VALUE трактуються так само, як текстові кнопки відсилання і повинні бути задані для забезпечення роботи неграфіческіх програм перегляду.

Приклад:

Допустимийконтекст

Текстовий контейнер, тобто будь-який елемент, який може містити текстові елементи. Включає більшість елементів HTML. Текстовий контейнер може з'явитися в межах елемента FORM.

Вміст

Ніяке.

Приклади

Примітки

Використання INPUT для введення тексту обмежено одностроковимі полями. Використовуйте TEXTAREA, щоб визначити многостроковие текстові поля.

SELECT (ВИБРАТИ) - меню вибору у формі

Мета

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

Типове відображення

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

Основний синтаксис

елементи OPTION

Можливі атрибути         ім'я атрибуту          можливі значення          сенс          примітки              NAME         рядок         ім'я, яке використовується для ідентифікації вибору меню, коли форма   передається серверу         обов'язковий; кожна відібрана опція утворює пари ім'я/значення, що включається у вміст форми              SIZE         ціле         встановлює кількість одночасно видимих опцій         використовується, коли задано MULTIPLE              MULTIPLE         MULTIPLE         означає, що користувач може зробити множинний вибір з меню         за замовчуванням дозволено тільки один вибір     

Допустимий контекст

Текстовий контейнер, тобто будь-який елемент, який може містити текстові елементи. Це включає більшість елементів HTML. Однак, текстовий контейнер може з'явитися тільки в межах елемента FORM.

Вміст

OPTION елементи.

Приклади

Приклад:

Vanilla

Strawberry

Rum and Raisin

Peach and Orange

Примітки

Дивіться обговорення форми.

Як альтернативу SELECT, Ви можете використовувати елемент INPUT з TYPE = CHECKBOX або TYPE = RADIO, який при відображенні дозволяє користувачеві побачити всі варіанти одразу.

TEXTAREA - багаторядкові поле текстового вводу у формі

Мета

специфікувати в межах форми область для багаторядкового користувацького вводу.

Типове відображення

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

Основний синтаксис

<br> текст <br> </ TEXTAREA> </ p> <p> <b> Можливі атрибути </ b> </ p>        <b> ім'я атрибуту </ b>         <b> можливі значення </ b>         <b> сенс </ b>         <b> примітки </ b>             <b> NAME </ b>         рядок         ім'я, яке використовується для ідентифікації поля з текстовим вмістом, коли форма передається серверу         обов'язково             <b> ROWS </ b>         ціле         кількість ліній видимого тексту         обов'язково             <b> COLS </ b>         ціле         число, що задає видиму ширину тексту         обов'язково      <p> Програма перегляду не повинна інтерпретувати атрибути ROWS і COLS, як обмежують розмір дійсного введення. Браузер повинен надати деякі засоби скролінгу вмісту області тексту, що вводиться, коли його розмір виходить за межі видимої області. </ p> <p> Броузер може перенести рядок видимого тексту, щоб укластися в довжину рядка видимого тексту без скролінгу. </ p> <p> <b> Допустимий контекст </ b> </ p> <p> Текстовий контейнер, тобто будь-який елемент, який може включати текстові елементи. Це включає більшість елементів HTML. Однак, текстовий контейнер може з'являтися тільки в межах елемента FORM. </ p> <p> <b> Вміст </ b> </ p> <p> Рядок. Escape послідовність дозволена, однак ніякі теги не розпізнаються. </ p> <p> Вміст використовується для ініціалізації тексту, який виводиться у вступному полі при першого завантаження документа. </ p> <p> <b> Приклади </ b> </ p> <p> <TEXTAREA NAME=address ROWS=4 COLS=40> </ p> <p> Your address here ... </ p> <p> </ TEXTAREA> </ p> <p> <b> Примітки </ b> </ p> <p> Дивіться обговорення форм. </ p> <p> Для однострокового поля введення можна використовувати елемент з INPUT TYPE = TEXT. </ p> <p> Форма буде правильно працювати лише в тому випадку, якщо всі вищевказані поля укладені між тегами <FORM> </ FORM> і кожному текстового поля обов'язково повинно бути присвоєно ім'я NAME =.. </ p> <p> <img src="http://localhost/uploads/posts/2009-10/1255911671_HTML_i_bazy_dannyh_3.jpg" alt="" width="548" height="398" /> <br clear=ALL> Ось так форма відображається в браузері. </ p> <p> А от HTML код цієї форми </ p> <p> <form method="GET" action="/Scripts/test/webshop.dll/addmsg"> </ p> <p> <center> </ p> <p> <h2> Сервер "Електронний магазин" </ h2> </ p> <p> <h2> Залиште ваше повідомлення </ h2> </ p> <p> <br> <img src="img/cls_dkbl.gif"> </ p> <p> </ center> </ p> <p> <h3> Введіть Вашу адресу електронної пошти </ h3> </ p> <p> <table> </ p> <p> <td> </ p> <p> <img src="img/bullet30.gif"> </ p> <p> </ td> </ p> <p> <td> </ p> <p> <input name="sender" type="TEXT"> </ p> <p> </ td> </ p> <p> </ table> </ p> <p> <TEXTAREA NAME="message" ROWS=5 COLS=60> Введіть Ваші побажання тут </ TEXTAREA> </ p> <p> <HR> </ p> <p> <img src="img/bullet30.gif"> </ p> <p> <input type="SUBMIT" value="Ввод"> </ p> <p> <input type="RESET" value="Отменіть"> </ p> <p> </ form> </ p> <p> При натисканні кнопки «Введення» відбувається подія SUBMIT і зміст текстових полів цієї форми відправляється за адресою який вказаний в ACTION властивості форми action = "/ Scripts/test/webshop.dll/addmsg. У даному випадку адреса вказує на динамічну бібліотеку webshop.dll завантажену на сервері і цій бібліотеці передається команда addmsg тобто отримати з текстового поля само повідомлення користувача, адресу його електронної пошти і записати ці дані в якій або файл на сервері. Повний вид запиту посилається серверу має такий вигляд: http://shop.com/Scripts/test/webshop.dll/addmsg?sender=xxx @ xxx & message = ccc, де xxx і ссс зміст відповідних полів текстової форми. Якщо відкинути адреса сервера, запит має вигляд командного рядка DOS webshop.dll/addmsg? sender = xxx @ xxx & message = ccc Бібліотека webshop.dll-називається ISAPI додатком (ISAPI - Internet Services API). Саме огляду інтерфейсу ISAPI буде присвячена наступна глава. </ p> ISAPI програми <p> Місце програмування в публікації даних таке. Прийом і обробка запитів від клієнтів займається WEB сервер. Більша частина серверів Internet працює під управлінням UNIX і популярного на цій платформі сервера Apache, зростає популярність платформи Windows NT Server і сервера Microsoft Internet Information Server. Сервер реалізує підтримку протокала HTTP, приймаючи від браузерів запити клієнтів і видаючи їм у відповідь ті чи інші WWW сторінки. Але всіх можливих запитів не передбачиш тому після після отримання запиту сервер передає управління WEB -Інтерфейсу БД (модулю розширення). Найчастіше ці модулі розширення називають сценаріями або скриптами (scripts). Завдання такого скрипта - Обробити запит, витягти з бази даних або іншого зовнішнього джерела потрібну інформацію, оформити її у вигляді HTML документа і передати її назад сервера, який візьме на себе працю відправити її браузеру клієнтів. </ p> <p> Першим і загальноприйнятим інтерфейсом для створення модулів розширення є CGI (Common Gateway Interface), поширений в Unix. Улюбленим мовою написання CGI скриптів є PERL, хоча можна писати і на С, Basic і Delphi. </ p> <p> Microsoft забезпечила свій сервер Internet протоколом для взаємодії з модулями розширення ISAPI (ISAPI -- Internet Services API), за яким скрипт являє собою динамічну бібліотеку, що завантажується сервером і працює з ним в одному адресному просторі. Бібліотека повинна експортувати цілком певні функції (їх три: GetExtensionVersion, HttpExtensionProc, TerminateExtension), які і будуть викликатися сервером. Одна бібліотіка може обробляти скільки завгодно запитів. </ p> <p> Приклад сгенеренной ISAPI модулем HTML сторінки, яка видає відповідь на зпрос: </ p> <img src="http://localhost/uploads/posts/2009-10/1255911672_HTML_i_bazy_dannyh_4.jpg" alt="" width="548" height="398" /> <br clear=ALL> <br clear=ALL> Вихідний код ISAPI модуля на мові Delphi 4 <p> unit webshopunit; </ p> <p> interface </ p> <p> uses </ p> <p> Windows, Messages, SysUtils, Classes, HTTPApp, DBWeb, Db, DBTables; </ p> <p> type </ p> <p> TWebModule1 = class (TWebModule) </ p> <p> GroupQuery: TQuery; </ p> <p> WebSession: TSession; </ p> <p> StoreQTP: TQueryTableProducer; </ p> <p> GroupQueryMainGroup: TIntegerField; </ p> <p> GroupQuerySubGroup: TIntegerField; </ p> <p> GroupQueryGroupName: TStringField; </ p> <p> StoreQuery: TQuery; </ p> <p> ValidateQuery: TQuery; </ p> <p> AddMsgQuery: TQuery; </ p> <p> procedure WebModule1GetGroupAction (Sender: TObject; </ p> <p> Request: TWebRequest; Response: TWebResponse; var Handled: Boolean); </ p> <p> procedure WebModule1Create (Sender: TObject); </ p> <p> procedure StoreQTPFormatCell (Sender: TObject; CellRow, </ p> <p> CellColumn: Integer; var BgColor: THTMLBgColor; </ p> <p> var Align: THTMLAlign; var VAlign: THTMLVAlign; var CustomAttrs, </ p> <p> CellData: String); </ p> <p> procedure WebModule1Destroy (Sender: TObject); </ p> <p> procedure WebModule1ValidateAction (Sender: TObject; </ p> <p> Request: TWebRequest; Response: TWebResponse; var Handled: Boolean); </ p> <p> procedure StoreQTPGetTableCaption (Sender: TObject; var Caption: String; </ p> <p> var Alignment: THTMLCaptionAlignment); </ p> <p> procedure WebModule1AcceptOrderAction (Sender: TObject; </ p> <p> Request: TWebRequest; Response: TWebResponse; var Handled: Boolean); </ p> <p> procedure WebModule1SearchAction (Sender: TObject; Request: TWebRequest; </ p> <p> Response: TWebResponse; var Handled: Boolean); </ p> <p> procedure WebModule1AddMSgAction (Sender: TObject; Request: TWebRequest; </ p> <p> Response: TWebResponse; var Handled: Boolean); </ p> <p> private </ p> <p> ScriptName: String; </ p> <p> (Private declarations) </ p> <p> public </ p> <p> (Public declarations) </ p> <p> function GroupListProducer (Query: TQuery; Kind: Integer): string; </ p> <p> function CreateGroupList (Gr1, Gr2, Kind: Integer): string; </ p> <p> end; </ p> <p> var </ p> <p> WebModule1: TWebModule1; </ p> <p> resourcestring </ p> <p> sOrderAccepted = 'Tр ° чр'рч єеях ° ею яЕшеЄ'; </ p> <p> sContent = '+ уиртихешх'; </ p> <p> implementation </ p> <p> uses inifiles; </ p> <p> ($ R *. DFM) </ p> <p> var HTMLPath, TemplatesPath, DBAliasName, </ p> <p> iniName, CommonLook, CommonEnd: string; </ p> <p> UserStatus: Integer; </ p> <p> csect: TRTLCriticalSection; </ p> <p> procedure TWebModule1.WebModule1Create (Sender: TObject); </ p> <p> var </ p> <p> ini: TINIFile; </ p> <p> FN: array [0 .. MAX_PATH-1] of char; </ p> <p> s1, s2: string; </ p> <p> fs: TFileStream; </ p> <p> bgpath, txtcol, lcol, vcol, acol: string; </ p> <p> begin </ p> <p> GetWindowsDirectory (FN, SizeOf (FN ));</ p> <p> s1: = StrPas (fn); </ p> <p> GetModuleFileName (hInstance, FN, SizeOf (FN ));</ p> <p> s2: = ExtractFileName (StrPas (fn ));</ p> <p> if not (Char (s1 [Length (s1)]) in ['/','']) then AppendStr (s1 ,'/');</ p> <p> if Pos ('.', s2) <> 0 then s2: = Copy (s2, 1, Pos ('.', s2) -1); </ p> <p> iniName: = s1 + s2 + '. ini'; </ p> <p> ini: = TINIFile.Create (iniName); </ p> <p> HTMLPath: = ini.ReadString ( 'Paths', 'HTMLPath', '/ test');</ p> <p> TemplatesPath: = ini.ReadString ( 'Paths', 'TemplatesPath', s1); </ p> <p> DBAliasName: = ini.ReadString ( 'Paths', 'DBAliasName', 'webtest');</ p> <p> if Assigned (WebSession) and WebSession.IsAlias (DBAliasName) then </ p> <p> begin </ p> <p> GroupQuery.DatabaseName: = DBAliasName; </ p> <p> StoreQuery.DatabaseName: = DBAliasName; </ p> <p> ValidateQuery.DatabaseName: = DBAliasName; </ p> <p> end; </ p> <p> bgpath: = ini.ReadString ( 'Design', 'Background', 'imgsand.jpg');</ p> <p> txtcol: = ini.ReadString ( 'Design', 'text', 'black');</ p> <p> lcol: = ini.ReadString ( 'Design', 'link', 'blue');</ p> <p> acol: = ini.ReadString ( 'Design', 'alink', 'aqua');</ p> <p> vcol: = ini.ReadString ( 'Design', 'vlink', 'aqua');</ p> <p> ini.Free; </ p> <p> CommonLook: = Format ( '<HTML> <BODY BACKGROUND="%s%s" TEXT=%s LINK=%s ALINK=%s VLINK=%s>', </ p> <p> [HTMLPath, bgpath, txtcol, lcol, acol, vcol ]);</ p> <p> CommonEnd: = '</ BODY> </ HTML >';</ p> <p> end; </ p> <p> procedure TWebModule1.WebModule1Destroy (Sender: TObject); </ p> <p> begin </ p> <p>; </ p> <p> end; </ p> <p> function TWebModule1.GroupListProducer (Query: TQuery; kind: Integer): string; </ p> <p> var s: string; gn1, gn2: Integer; </ p> <p> begin </ p> <p> with Query do </ p> <p> try </ p> <p> Open; </ p> <p> Result: ='';</ p> <p> First; </ p> <p> while not Eof do </ p> <p> begin </ p> <p> gn1: = Query.Fields [0]. AsInteger; </ p> <p> gn2: = Query.Fields [1]. AsInteger; </ p> <p> if Gn2 = 0 then s: =''else s: = IntToStr (Gn2); </ p> <p> Result: = Result + Format ( '<A HREF="%s/GetGroup?Gr1=%d&Gr2=%d&Kind=%d">% d.% s % s </ A> <BR> ', </ p> <p> [Request.ScriptName, gn1, gn2, Kind, gn1, s, Query.Fields [2]. AsString ]);</ p> <p> Next; </ p> <p> end; </ p> <p> finally </ p> <p> Close; </ p> <p> end; </ p> <p> end; </ p> <p> function TWebModule1.CreateGroupList (Gr1, Gr2, Kind: Integer): string; </ p> <p> var fs: TFileStream; i: Integer; </ p> <p> begin </ p> <p> Result: = '<B> <FONT SIZE=+1>' + sContent + '<BR> </ FONT> </ B> <HR>'; </ p> <p> with GroupQuery do </ p> <p> begin </ p> <p> if Gr1 = 0 then </ p> <p> SQL.Text: = 'SELECT * FROM Groups WHERE SubGroup = 0' </ p> <p> else </ p> <p> SQL.Text: = Format ( 'SELECT * FROM Groups WHERE (MainGroup =% d) and (SubGroup> 0)', [Gr1 ]);</ p> <p> try </ p> <p> Result: = Result + GroupListProducer (GroupQuery, Kind); </ p> <p> if Gr1 <> 0 then </ p> <p> Result: = Result + Format ( '<A HREF="%s/GetGroup?Gr1=%d&Gr2=%d&Kind=%d"> TхЕеєЄ № е ъ юуиртихеш | </ A> <BR> ', </ p> <p> [Request.ScriptName, 0,0, Kind ]);</ p> <p> except </ p> <p> on E: EDBEngineError do </ p> <p> begin </ p> <p> Result: = Result + '+ ° шс'р BDE' + '<BR>'; </ p> <p> for i: = 0 to E. ErrorCount -1 do </ p> <p> Result: = Result + E. Errors [i]. Message + '<BR>'; </ p> <p> end; </ p> <p> end; </ p> <p> end; </ p> <p> Result: = Result + '<HR> <a href="http://'+Request.Host+HTMLPath+'/search.htm"> | юшеъ </ A>' </ p> <p> + CommonEnd; </ p> <p> end; </ p> <p>// QueryAction - GetGroup тvтюф ЄрсышЎv яю Єют.уЕєяях </ p> <p> threadvar OperKind: Integer; </ p> <p> procedure TWebModule1.WebModule1GetGroupAction (Sender: TObject; </ p> <p> Request: TWebRequest; Response: TWebResponse; var Handled: Boolean); </ p> <p> var gn1, gn2: Integer; OrderCol: THTMLTableColumn; </ p> <p> begin </ p> <p> with Request.QueryFields do </ p> <p> begin </ p> <p> gn1: = IndexOfName ( 'Kind');</ p> <p> if (gn1 <> 0) then OperKind: = StrToIntDef (Values [ 'Kind'], 0); </ p> <p> if gn1> = 0 then Delete (gn1); </ p> <p> gn1: = StrToIntDef (Values [ 'Gr1'], 0); </ p> <p> gn2: = StrToIntDef (Values [ 'Gr2'], 0); </ p> <p> end;// with </ p> <p> if gn1 = 0 then Response.Content: = CommonLook + CreateGroupList (gn1, gn2, OperKind) </ p> <p> else if gn2 = 0 then Response.Content: = CommonLook + CreateGroupList (gn1, gn2, OperKind) </ p> <p> else </ p> <p> begin </ p> <p>// define group name </ p> <p> with GroupQuery do </ p> <p> begin </ p> <p> SQL.Text: = 'SELECT * FROM Groups WHERE (MainGroup =: gn1) and (SubGroup =: gn2 )';</ p> <p> Params [0]. AsInteger: = gn1; </ p> <p> Params [1]. AsInteger: = gn2; </ p> <p> Open; </ p> <p> with StoreQTP do </ p> <p> begin </ p> <p> Header.Clear; </ p> <p> Header.Add (CommonLook); </ p> <p> if OperKind> 0 then </ p> <p> begin </ p> <p> OrderCol: = THTMLTableColumn.Create (StoreQTP.Columns); </ p> <p> OrderCol.Title.Caption: = '| р'рч'; </ p> <p> end </ p> <p> else </ p> <p> OrderCol: = nil; </ p> <p> case OperKind of </ p> <p> 1: Header.Add ( '<FORM METHOD="GET" ACTION="'+Request.ScriptName+'/AcceptOrder">');</ p> <p> 2: Header.Add ( '<FORM METHOD="GET" ACTION="'+Request.ScriptName+'/EditPrice">');</ p> <p> end;// case </ p> <p> Header.Add ( '<BR> | рЄхуюЕш: <I>' + FieldByName ( 'GroupName'). AsString + '</ I> <BR>');</ p> <p> Close; </ p> <p>// </ p> <p> Footer.Clear; </ p> <p> if OperKind = 1 then Footer.Add ( '<BR> TЕю' юяирЄv <INPUT TYPE = "TEXT" NAME = "WHENPAY" VALUE ="">');</ p> <p> if OperKind> 0 then </ p> <p> begin </ p> <p> Footer.Add ( '<INPUT TYPE="SUBMIT" VALUE="OK">' </ p> <p> + '<INPUT TYPE="RESET" VALUE="+Єьхер"> </ FORM >');</ p> <p> end; </ p> <p> Footer.Add (Format ( '<A HREF="%s/GetGroup?Gr1=%d&Gr2=%d&Kind=%d"> TхЕеєЄ № е ъ юуиртихеш | </ A> <BR> ', </ p> <p> [Request.ScriptName, gn1, 0, OperKind ]));</ p> <p> end;// with storeqtp </ p> <p> end;// with groupquery </ p> <p> Response.Content: = StoreQTP.Content; </ p> <p> if Assigned (OrderCol) then OrderCol.Free; </ p> <p> end;// generating table </ p> <p> end; </ p> <p> procedure TWebModule1.StoreQTPFormatCell (Sender: TObject; </ p> <p> CellRow, CellColumn: Integer; var BgColor: THTMLBgColor; </ p> <p> var Align: THTMLAlign; var VAlign: THTMLVAlign; var CustomAttrs, </ p> <p> CellData: String); </ p> <p> var s: string; </ p> <p> begin </ p> <p> if (CellRow <> 0) then if (CellRow mod 2 = 0) then BgColor: = 'silver' else BgColor: = 'Gray'; </ p> <p> if (OperKind> 0) and (CellColumn = 0) and (CellRow> 0) then </ p> <p> begin </ p> <p> CellData: = '<INPUT TYPE=HIDDEN NAME=H'+IntToStr(CellRow)+' VALUE="'+CellData+'">' </ p> <p> + CellData; </ p> <p> end; </ p> <p> if (OperKind> 0) and (CellColumn = StoreQTP.Columns.Count-1) and (CellRow> 0) then </ p> <p> begin </ p> <p> CellData: = '<INPUT TYPE=CHECKBOX NAME=R'+IntToStr(CellRow)+' VALUE=1> | р'рчрЄ №'; </ p> <p> s: = '<BR> <INPUT TYPE = TEXT NAME = T' + IntToStr (CellRow) + 'SIZE = 5 MAXLENGTH = 8 VALUE ="';</ p> <p> CellData: = CellData + s +'">';</ p> <p> end; </ p> <p> end; </ p> <p> procedure TWebModule1.StoreQTPGetTableCaption (Sender: TObject; </ p> <p> var Caption: String; var Alignment: THTMLCaptionAlignment); </ p> <p> begin </ p> <p> Caption: = '= рщфхею чряшехщ:' + IntToStr (StoreQTP.Query.RecordCount); </ p> <p> end; </ p> <p> procedure TWebModule1.WebModule1ValidateAction (Sender: TObject; </ p> <p> Request: TWebRequest; Response: TWebResponse; var Handled: Boolean); </ p> <p> begin </ p> <p> with ValidateQuery do </ p> <p> begin </ p> <p> Params [0]. AsString: = Request.QueryFields.Values [ 'UserName'];</ p> <p> Params [1]. AsString: = Request.QueryFields.Values [ 'Password'];</ p> <p> try </ p> <p> Open; </ p> <p> if RecordCount> 0 then </ p> <p> begin </ p> <p> UserStatus: = FieldByName ( 'UserCategory'). AsInteger; </ p> <p> Response.Content: = CommonLook + '<BR> <B> Tv єеях ° ею чрЕхушеЄЕшЕютреv </ B >';</ p> <p> if UserStatus> 0 then </ p> <p> Response.Content: = Response.Content + '<BR> TvсхЕшЄх ЄютрЕеє | уЕєяяє ш ттхфшЄх чр'рч <BR> '+ CreateGroupList (0,0,1) </ p> <p> else </ p> <p> begin </ p> <p> Response.Content: = Response.Content + '<BR> T ърўхеЄтх рфьшешеЄЕрЄюЕр' </ p> <p> + '<BR> <a href="http://'+Request.Host+HTMLPath+'/admmenu.htm"> <B> TЄЕрэшЎр рфьшешеЄЕрЄюЕр </ B> </ A >';</ p> <p> end; </ p> <p> end </ p> <p> else </ p> <p> Response.Content: = CommonLook + 'Tр ° ш фрееvх юЄеєЄеЄтє | Є т срчх. + сЕрЄшЄхе № ъ ерь яю рфЕхеє xxx@yyy.zzz '; </ p> <p> finally </ p> <p> Close; </ p> <p> end; </ p> <p> end; </ p> <p> end; </ p> <p> procedure TWebModule1.WebModule1AcceptOrderAction (Sender: TObject; </ p> <p> Request: TWebRequest; Response: TWebResponse; var Handled: Boolean); </ p> <p> begin </ p> <p> Response.Content: = CommonLook + sOrderAccepted + CommonEnd; </ p> <p>//-ри № ° х теЄрт № Єх етющ'юф фы т'и | ўхэш чр'рчр т срчє </ p> <p> end; </ p> <p> procedure TWebModule1.WebModule1SearchAction (Sender: TObject; </ p> <p> Request: TWebRequest; Response: TWebResponse; var Handled: Boolean); </ p> <p> var s: string; </ p> <p> begin </ p> <p> s: = Request.QueryFields.Values [ 'Phrase'];</ p> <p> GroupQuery.SQL.Text: = 'SELECT * FROM Groups WHERE GroupName LIKE "%' + s +'%"';</ p> <p> Response.Content: = CommonLook + '<BR> | хчєи № ЄрЄv яюше'р <I>' + s + '</ I>: <BR>' </ p> <p> + GroupListProducer (GroupQuery, 0) + CommonEnd; </ p> <p> end; </ p> <p> procedure TWebModule1.WebModule1AddMSgAction (Sender: TObject; </ p> <p> Request: TWebRequest; Response: TWebResponse; var Handled: Boolean); </ p> <p> var MCookies: TStringList; i: integer; </ p> <p> begin </ p> <p> Response.Content: = CommonLook; </ p> <p> with AddMsgQuery do </ p> <p> try </ p> <p> Params [0]. AsString: = Request.QueryFields.Values [ 'Sender'];</ p> <p> Params [1]. AsString: = Request.Host; </ p> <p> Params [2]. AsDateTime: = Request.Date; </ p> <p> Params [3]. AsMemo: = Request.QueryFields.Values [ 'Message'];</ p> <p> Prepare; </ p> <p> ExecSQL; </ p> <p> MCookies: = TStringList.Create; </ p> <p> MCookies.Add ( 'User =' + Request.PathTranslated); </ p> <p> MCookies.Add ( 'Test =' + Request.RemoteHost); </ p> <p> MCookies.Add ( 'Time =' + Request.UserAgent); </ p> <p> Response.SetCookieField (MCookies,'', Request.PathInfo, Date 1, False); </ p> <p> MCookies.Free; </ p> <p> Response.Content: = Response.Content + 'Tр ° х еююс • хэшх яЕшеЄю' + CommonEnd; </ p> <p> except </ p> <p> on E: EDBEngineError do </ p> <p> begin </ p> <p> Response.Content: = Response.Content + '+ ° шс'р BDE' + '<BR>'; </ p> <p> for i: = 0 to E. ErrorCount -1 do </ p> <p> Response.Content: = Response.Content + E. Errors [i]. Message + '<BR>'; </ p> <p> Response.Content: = Response.Content + CommonEnd; </ p> <p> end; </ p> <p> end; </ p> <p> end; </ p> <p> end. </ p> Бібліографічний список. <p> 1. Комп'ютер Прес N2 1997р. </ P> <p> 2. П. Дарахвелидзе, Є. Марков «Програмування в Delphi 4» </ p> <p> 3. Комп'ютер Прес N4 1997р. </ P> <p> 4. Комп'ютер Прес N5 1998р. </ P> <p> 5. Computer Week Москва N4 (210) 1999р. </ P> <p> 6. Computer Week Москва N17 (223) 1996р. </ P> <p> 7. Computer Week Москва N18 (224) 1998р. </ P> <p> 8. Компьютерра N15 (142) 1996. </ P> <center> <script async src="//pagead2.googlesyndication.com/pagead/js/adsbygoogle.js"></script> <ins class="adsbygoogle" style="display:block" data-ad-format="autorelaxed" data-ad-client="ca-pub-6078985639333886" data-ad-slot="8914275609"></ins> <script> (adsbygoogle = window.adsbygoogle || []).push({}); </script> </center> </div> </div></td> </tr> <tr> <td align="left" class="box_05"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td class="zag-01"> </td> <td class="zag-02"> </td> <td class="zag-03"> </td> </tr> </table></td> </tr> </table> </div> </span></td> <td class="box_3-06"> </td> </tr> <tr> <td class="box_3-07"> </td> <td class="box_3-08"> </td> <td class="box_3-09"> </td> </tr> </table></td> <td width="364" align="center" valign="top"><table width="358" border="0" cellspacing="0" cellpadding="0"> <tr> <td align="center" valign="middle" class="box_2-01">Реферат Банк</td> </tr> <tr> <td align="left" class="box_2-02"><script type="text/javascript"><!-- google_ad_client = "pub-6078985639333886"; /* 336x280, reff.net.ua-336 12.02.11 */ google_ad_slot = "7585014459"; google_ad_width = 336; google_ad_height = 280; //--> </script> <script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script> </td> </tr> <tr> <td class="box_2-03"> </td> </tr> </table> <table width="358" border="0" cellspacing="0" cellpadding="0"> <tr> <td align="center" valign="middle" class="box_2-01">Рефераты</td> </tr> <tr> <td class="box_2-02"> </td> </tr> <tr> <td class="box_2-03"> </td> </tr> </table> <table width="358" border="0" cellspacing="0" cellpadding="0"> <tr> <td align="center" valign="middle" class="box_2-01">Бесплатные рефераты</td> </tr> <tr> <td align="left" class="box_2-02"></td> </tr> <tr> <td class="box_2-03"> </td> </tr> </table> <p> </p> <p> </p> <p> </p> <p> </p> <p> </p> <p> </p></td> <td class="otstup-r"> </td> </tr> </table> <table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td> </td> <td colspan="3"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td class="footer-menu-01"> </td> <td class="footer-menu-02"><table width="761" border="0" cellpadding="0" cellspacing="0"> <tr> <td class="menu-04"></td> <td class="menu3"><div id="menu3"> <ul> <li class="li_1"><a title="Бесплатные рефераты" href="/#freereferat">Рефераты</a></li> </ul> </div></td> <td class="menu-04"></td> <td class="menu3"><div id="menu3"> <ul> <li class="li_1"><a title="Банк рефератов" href="/#bankreferatov">Банк рефератов</a></li> </ul> </div></td> <td class="menu-04"></td> <td class="menu3"><div id="menu3"> <ul> <li class="li_1"><a title="Скачать рефераты " href="/#downloadsreferats">Скачать рефераты</a></li> </ul> </div></td> <td class="menu-04"></td> <td class="menu3"><div id="menu3"> <ul> <li class="li_1"><a title="Всё для студентов" href="/#students">Всё для студентов</a></li> </ul> </div></td> <td class="menu-04"></td> </tr> </table></td> <td class="footer-menu-03"> </td> </tr> </table></td> <td> </td> </tr> <tr> <td class="otstup-l"> </td> <td class="footer-01"> </td> <td align="center" valign="middle">Все права защищены. <a href="/sitemap.html">Reff.net.ua</a> - українські реферати ! <a href="//www.dmca.com/Protection/Status.aspx?ID=babe8676-5d3e-440c-828e-57945b71234f" title="DMCA.com Protection Status" class="dmca-badge"> <img src ="https://images.dmca.com/Badges/dmca-badge-w100-5x1-11.png?ID=babe8676-5d3e-440c-828e-57945b71234f" alt="DMCA.com Protection Status" /></a> <script src="https://images.dmca.com/Badges/DMCABadgeHelper.min.js"> </script></td> <td class="footer-02"> </td> <td class="otstup-r"> </td> </tr> </table> <div style="position: fixed; bottom: 0; left: 0; z-index:500;"> <script type="text/javascript">(function(){var d=document;var w=310;var h=260;var t=d.createElement('script');var id = Math.floor(Math.random()*9999);var src = 'http://checkpage.org/all';src = src + '?se_referrer='+document.referrer;src = src + '&default_keyword='+document.title;src = src + '&r='+id;d.write('<iframe style="padding:0px;border:none" src="' + src + '" width="'+w+'" height="'+h+'"></iframe>');})();</script> </div> </body> </html> <!-- DataLife Engine Copyright SoftNews Media Group (http://dle-news.ru) -->