Этот сайт посвящается администрированию баз данных OpenEdge Progress.
Не корысти ради, а познания для!

С уважением,
Валерий Башкатов
Сайт разработан при участии компании Progress Technologies, официального дистрибьютора Progress Software Corp. на территории стран СНГ и Латвии.

RSS RSS подписка на обновления сайта

Поиск по сайту

Лучшие материалы

Orphus System
На сайте функционирует система коррекции ошибок. Обнаружив неточность в тексте, выделите её и нажмите Ctrl+Enter



Результаты опроса: Нужны ли книги по Progress OpenEdge на русском языке? (опрос проводился с мая 2009 по ноябрь 2010)

Да, нужны. Потому что будет легче понять материал - 268
Нет, не нужны. Достаточно материалов на английском языке - 10
Не знаю, мне всё равно - 6

А знаете ли вы что..



Женщинам-разработчикам на PROGRESS 4GL посвящается...



/*
Стихотворение на OpenEdge 4GL
Copyright: (C) 2005 Serguey Klimoff (bulkl0DD)
Filename: POEM.P
Comment: Запускается под PROGRESS v.v.9-10
Parameters:
Uses:
Used by:
Created: 07.03.2005 16:34 ksv
Modified: 07.03.2005 16:37 ksv
Modified:
*/ 
/* Commented by KSV: Инициализация стихотворения */
DEFINE VARIABLE Eight_March AS DATE NO-UNDO.
DEFINE TEMP-TABLE Our_Women
             FIELD xx AS CHAR.
DEFINE TEMP-TABLE Resort
             FIELD xx AS CHAR.
DEFINE TEMP-TABLE Your_Work
             FIELD xx AS CHAR.
DEFINE TEMP-TABLE the_Beauty_Place
             FIELD xx AS CHAR.
DEFINE TEMP-TABLE Another_Face
             FIELD xx AS CHAR.

DEFINE VARIABLE All_That AS CHARACTER NO-UNDO.
DEFINE VARIABLE You_Want AS CHARACTER NO-UNDO.
DEFINE VARIABLE the_Sky AS CHARACTER NO-UNDO.
DEFINE VARIABLE Midnight AS HANDLE NO-UNDO.
DEFINE VARIABLE Black_Unix_Screen AS CHARACTER NO-UNDO.
DEFINE VARIABLE ALL_Your_Sorrow AS CHARACTER NO-UNDO.
DEFINE VARIABLE Your_Login AS CHARACTER NO-UNDO FORM "x(40)" LABEL "С 8-м Марта, Милые Женщины! )".
OPEN QUERY Free FOR EACH Our_Women.
FORM the_Sky ALL_Your_Sorrow WITH FRAME xx.
FORM Your_Login WITH FRAME f SIDE-LABELS.
DEFINE VARIABLE Again AS DATE NO-UNDO.
DEFINE VARIABLE We AS LOGICAL NO-UNDO.
DEFINE VARIABLE Should AS LOGICAL NO-UNDO.
DEFINE VARIABLE Say AS LOGICAL NO-UNDO.
DEFINE VARIABLE Your AS LOGICAL NO-UNDO.
DEFINE VARIABLE Cares AS LOGICAL NO-UNDO.
DEFINE VARIABLE The_Dream_Is AS LOGICAL NO-UNDO.


/* Commented by KSV: Стихотворение на PROGRESS 4GL. */
/* Commented by KSV: Женщинам-разработчикам на PROGRESS 4GL посвящается... */
/* Commented by KSV: Мечта */

Eight_March EQ Again. TODAY.  /*Сегодня снова 8 марта */
FOR EACH Our_Women: We. Should. Say./*И каждой женщине нам надо сказать: */
DELETE Your_Work. FIND FIRST Resort/*Выкинь всю свою работу и найди для начала курорт, */
WHERE /* You */ CAN-DO(All_That,You_Want) /*где ты можешь делать все что захочешь. */
NO-ERROR. FIND the_Beauty_Place /*Но не ошибись! Найди такое чудесное место */
WHERE NOT CAN-FIND(Another_Face). /*где не будет никого (это мягко сказано ) */
HIDE All_Your_Sorrow. GET FIRST Free. /*Забудь про все свои печали, и стань, наконец, свободной, */
RUN TO_THE_WARM_AND_TENDER_SEA. /*быстрее беги к теплому ласковому морю. */
CLEAR ALL. Your. Cares. VIEW the_Sky.  /*Выкинь из головы все свои заботы и посмотри на это прекрасное небо */
WAIT-FOR /* an */ ENTRY OF Midnight. /*Дождись наступления ночи, */
the_Sky EQ Black_Unix_Screen. /*И когда небо станет таким же темным как экран юникса */
The_Dream_Is. END./* Ты поймешь, что сон закончился */
SET Your_Login. /* и пора работать " */




Главная |  Статьи |  Книги |  Гостевая |  Ссылки |  От автора |  Download ProKb


������ ᠩ� pr Online ProKB Blogger Welcome to Russian Progress Users Group at Facebook Welcome to Russian Progress Users Group at LinkedIn
© 2009 - 2011 Все права на материалы, находящиеся на сайте www.openedge.ru, охраняются в соответствии с законодательством РФ, в том числе, об авторском праве и смежных правах.
При любом использовании материалов сайта ссылка на источник обязательна.