![]() |
|
сделать стартовой | добавить в избранное |
![]() |
Компьютеры, Программирование
Программное обеспечение
HTML и базы данных |
0)',); ry Resul := Resul GroupLis Producer(GroupQuery,Ki d); if Gr10 he Resul := Resul Forma (' хЁэєЄ№ё ъ юуыртыхэш¦', ); excep o E:EDBE gi eError do begi Resul := Resul ' °шсър BDE' ''; for i:=0 o E.ErrorCou -1 do Resul := Resul E.Errors.Message ''; e d; e d; e d; Resul := Resul '¦юшёъ' Commo E d; e d; // QueryAc io - Ge Group тvтюф ЄрсышЎv яю Єют.уЁєяях hreadvar OperKi d : I eger; procedure WebModule1.WebModule1Ge GroupAc io (Se der: Objec ; Reques : WebReques ; Respo se: WebRespo se; var Ha dled: Boolea ); var g 1,g 2 : I eger; OrderCol : H ML ableColum ; begi wi h Reques .QueryFields do begi g 1 := I dexOf ame('Ki d'); if (g 10) he OperKi d := S r oI Def(Values,0); if g 1>=0 he Dele e(g 1); g 1 := S r oI Def(Values,0); e d; //wi h if g 1=0 he Respo se.Co e := Commo Look Crea eGroupLis (g 1,g 2,OperKi d) else if g 2=0 he Respo se.Co e := Commo Look Crea eGroupLis (g 1,g 2,OperKi d) else begi //defi e group ame wi h GroupQuery do begi SQL. ex := 'SELEC FROM Groups WHERE (Mai Group=:g 1) a d (SubGroup=:g 2)'; Params.AsI eger := g 2; Ope ; wi h S oreQ P do begi Header.Clear; Header.Add(Commo Look); if OperKi d>0 he begi OrderCol := H ML ableColum .Crea e(S oreQ P.Colum s); OrderCol. i le.Cap io := '¦рърч'; e d else OrderCol := il; case OperKi d of 1: Header.Add(''); 2: Header.Add(''); e d;//case Header.Add('¦рЄхуюЁш: ' FieldBy ame('Group ame').AsS ri g ''); Close; // Foo er.Clear; if OperKi d=1 he Foo er.Add(' Ёюъ юяырЄv'); if OperKi d>0 he begi Foo er.Add('' ''); e d; Foo er.Add(Forma (' хЁэєЄ№ё ъ юуыртыхэш¦', )); e d;//wi h s oreq p e d;//wi h groupquery Respo se.Co e := S oreQ P.Co e ; if Assig ed(OrderCol) he OrderCol.Free; e d; //ge era i g able e d; procedure WebModule1.S oreQ PForma Cell(Se der: Objec ; CellRow, CellColum : I eger; var BgColor: H MLBgColor; var Alig : H MLAlig ; var VAlig : H MLVAlig ; var Cus omA rs, CellDa a: S ri g); var s: s ri g; begi if (CellRow0) he if (CellRow mod 2=0) he BgColor:='silver' else BgColor:='Gray'; if (OperKi d>0) a d (CellColum =0) a d (CellRow>0) he begi CellDa a := '' CellDa a; e d; if (OperKi d>0) a d (CellColum =S oreQ P.Colum s.Cou -1) a d (CellRow>0) he begi CellDa a := '¦рърчрЄ№'; s := ''; e d; e d; procedure WebModule1.S oreQ PGe ableCap io (Se der: Objec ; var Cap io : S ri g; var Alig me : H MLCap io Alig me ); begi Cap io :='=рщфхэю чряшёхщ: ' I oS r(S oreQ P.Query.RecordCou ); e d; procedure WebModule1.WebModule1Valida eAc io (Se der: Objec ; Reques : WebReques ; Respo se: WebRespo se; var Ha dled: Boolea ); begi wi h Valida eQuery do begi Params.AsS ri g := Reques .QueryFields.Values.AsS ri g := Reques .QueryFields.Values; ry Ope ; if RecordCou >0 he begi UserS a us := FieldBy ame('UserCa egory').AsI eger; Respo se.Co e := Commo Look ' v єёях°эю чрЁхушёЄЁшЁютрэv'; if UserS a us>0 he Respo se.C
o e := Respo se.Co e ' vсхЁшЄх ЄютрЁэє¦ уЁєяяє ш ттхфшЄх чрърч' Crea eGroupLis (0,0,1) else begi Respo se.Co e := Respo se.Co e ' ърўхёЄтх рфьшэшёЄЁрЄюЁр' ' ЄЁрэшЎр рфьшэшёЄЁрЄюЁр'; e d; e d else Respo se.Co e := Commo Look ' р°ш фрээvх юЄёєЄёЄтє¦Є т срчх. сЁрЄшЄхё№ ъ эрь яю рфЁхёє xxx@yyy.zzz'; fi ally Close; e d; e d; e d; procedure WebModule1.WebModule1Accep OrderAc io (Se der: Objec ; Reques : WebReques ; Respo se: WebRespo se; var Ha dled: Boolea ); begi Respo se.Co e := Commo Look sOrderAccep ed Commo E d; // -ры№°х тёЄрт№Єх ётющ ъюф фы тъы¦ўхэш чрърчр т срчє e d; procedure WebModule1.WebModule1SearchAc io (Se der: Objec ; Reques : WebReques ; Respo se: WebRespo se; var Ha dled: Boolea ); var s: s ri g; begi s:= Reques .QueryFields.Values; GroupQuery.SQL. ex := 'SELEC FROM Groups WHERE Group ame LIKE "%' s '%"'; Respo se.Co e := Commo Look '¦хчєы№ЄрЄv яюшёър ' s ':' GroupLis Producer(GroupQuery,0) Commo E d; e d; procedure WebModule1.WebModule1AddMSgAc io (Se der: Objec ; Reques : WebReques ; Respo se: WebRespo se; var Ha dled: Boolea ); var MCookies : S ri gLis ;i: i eger; begi Respo se.Co e := Commo Look; wi h AddMsgQuery do ry Params; Params.AsDa e ime:=Reques .Da e; Params; Prepare; ExecSQL; MCookies := S ri gLis .Crea e; MCookies.Add('User=' Reques .Pa h ra sla ed); MCookies.Add(' es =' Reques .Remo eHos ); MCookies.Add(' ime=' Reques .UserAge ); Respo se.Se CookieField(MCookies, '', Reques .Pa hI fo , Da e 1, False); MCookies.Free; Respo se.Co e := Respo se.Co e ' р°х ёююс•хэшх яЁшэЄю' Commo E d; excep o E:EDBE gi eError do begi Respo se.Co e := Respo se.Co e ' °шсър BDE' ''; for i:=0 o E.ErrorCou -1 do Respo se.Co e := Respo se.Co e E.Errors.Message ''; Respo se.Co e := Respo se.Co e Commo E d; e d; e d; e d; e d. Библиографический список. 1. Компьютер Пресс 2 1997г. 2. П. Дарахвелидзе, Е. Марков «Программирование в Delphi 4» 3. Компьютер Пресс 4 1997г. 4. Компьютер Пресс 5 1998г. 5. Compu er Week Москва 4(210) 1999г. 6. Compu er Week Москва 17(223) 1996г. 7. Compu er Week Москва 18(224) 1998г. 8. Компьютерра 15(142) 1996.
Лучше, чтобы все было сразу, в одном флаконе. И, в-третьих, SeaMonkey понравится тем, для кого важнейший критерий - стабильность в работе не в ущерб инновационным решениям. - Официальная страница проекта: www.mozilla.org/projects/seamonkey - Форум поддержки на русском языке: forum.mozilla.ru. Русская версия SeaMonkey 1.0a для Windows и Linux находится по адресу ftp.mozilla.ru/seamonkey/1.0a (обе версии имеют размер 11,5 Мбайт). ТЕХНОЛОГИИ: Что такое Веб 2.0? Данные - это следующий Intel Inside Все современные интернет-приложения завязаны на базы данных: поисковик от Google, каталог (и поисковик) от Yahoo!, склад товаров на Amazon, картотека товаров и продавцов на eBay, карты MapQuest, каталоги Napster… Хэл Вэриан в прошлом году даже сказал, что «SQL - это новый HTML». Компаниям эпохи Веба 2.0 важно уметь работать с БД. Так важно, что порой мы называем новые приложения не software, а infoware. Все это подводит нас к главному вопросу: кто владеет данными? Очевидно - и тому есть множество примеров, - что в эпоху Интернета тот, кто владеет БД, владеет и рынком, а значит, получает львиную долю прибыли
1. Просопографические базы данных России на примере баз данных Comandarm и Duma1
4. Форматы баз данных в автоматизированных библиографических системах
5. Различные классы баз данных по предметным областям использования
9. Современные системы управления базами данных
10. Создание и описание базы данных "СТУДЕНТЫ" (Отчет по курсу "Базы данных")
11. Разработка базы данных "Кадры"
12. Лекции по теории проектирования баз данных (БД)
14. Система управления базами данных ACCESS
15. База данных - Бактериологическая испытательная лаборатория Боханского района
16. Создание базы данных "Библиотека"
19. Системы принятия решений, оптимизация в Excel и базы данных Access
21. База данных периодического издания
25. Организация удаленного доступа к распределенным базам данных
26. Опыт использования ADO для доступа к базам данных форматов MS Access, xBase и Paradox
27. Ответы на теоретические вопросы по предмету База данных
28. Инфологическая модель баз данных "Сущность-связь"
29. Пример проектирования базы данных "Библиотека"
30. Основы использования WWW - технологий для доступа к существующим базам данных
31. Основы работы с базами данных Delphi
32. Параллельные машины баз данных
33. Инфологическое моделирование базы данных
35. Web-серверы, базы данных в Интернет, Поиск информации в Интернет, Основные системы и средства
36. База данных для информационной системы - Таксопарк
37. Защита баз данных. Access 2000
41. Проектирование баз и хранилищ данных
44. Создание баз данных в Microsoft Access
45. Создание и ведение баз данных
46. Упражнения по базам данных MS ACCESS (методичка)
48. Некоторые аспекты обеспечения эффективности работы системы управления базами данных
49. Манифест систем объектно-ориентированных баз данных
51. Менеджер подключений к базам данных
52. Информационно-справочная система, обеспечивающая работу с базой данных Bit
53. Реляционные Базы Данных. SQL - стандартный язык реляционных баз данных
57. Разработка базы данных «Магазин бытовой техники “Электрон” средствами СУБД MS Access»
58. Використання баз даних та інформаційно-пошукових систем для раціонального ведення діловодства
59. Правовая охрана программ для ЭВМ и баз данных
60. Автоматизация базы данных для ООО "ОриенБанк"
61. База даних "Теорія та практика прикладного програмування"
62. База даних лікарських препаратів
63. База даних по приватним підприємствам регіону
64. База даних студії веб-дизайну
65. База данный "Хозяйственный учет футбольного клуба"
66. База данных "Автоматизация учета больных в студенческой больнице"
68. База данных "Международные переговоры"
73. База данных аттестационных ведомостей
75. База данных для ремонта автомобилей
76. База данных компьютерного магазина
77. База данных компьютерной фирмы
78. База данных по учёту видеокассет
79. База данных приёмной комиссии
81. Бази даних в Excel, Access з викликами на VBA
82. Базы данных
83. Базы данных
84. Базы данных и информационные технологии
85. Базы данных и управление ими
89. Инфологическая модель базы данных дистанционного образования
90. Инфологическое моделирование базы данных "Абитуриент"
91. Информационные технологии создания и обработки баз данных с помощью MS Access XP
92. Історія розвитку баз даних
93. ЛИСП-реализация основных операций над базами данных
94. Методология проектирования баз данных
95. Настольные системы управления базами данных