Пример простейшей программы
Logo Host-telecom.com — профессиональный хостинг в Европе! Море(!) аналитической информации!
IT-консалтинг Software Engineering Программирование СУБД Безопасность Internet Сети Операционные системы Hardware
ATLEX Выделенные серверы: в Европе / в России.

Виртуальные серверы: в Европе / в России.

Партнерская программа

Ваш сайт в 8 раз быстрее конкурентов. Хостинг от $2.95

VPS: SSD, KVM, бесплатные бэкапы и администрирование

Все необходимое для вашего сайта и лучшая техподдержка 24/7

хостинг сайтов ГиперХост — хостинг сайтов который Вы искали.

Виртуальный хостинг, Аренда VPS серверов, рация доменных имен, SSL сертификаты

💰 Самые низкие цены на домены

🔒 Отличный хостинг на SSD c бесплатными SSL

💻 Огромнейший выбор dedicated выделенных серверов

Пример простейшей программы


database zawod

MAIN



  MENU "Главное меню"

    command key("w") "Ввод" "Ввод учетных данных"

      call wwod()

    command key("p") "Просмотр" "Просмотр таблицы kadry"

      call prosmotr()

    command "одиночный просмотр" "Поиск по табельному номеру"

      call odin_prosmotr()

    command "Kонец"

      clear screen

      exit program

  end menu



END MAIN



FUNCTION wwod()

  define c char(1) , zapisx record like kadry.*

    #           -DЭто объявление эквивалентно такому:-E

    # DEFINE zapisx RECORD

    #   nomerceh  INT,          # номер цеха

    #   tabnom    INT,          # табельный номер

    #   fio       CHAR(20),     # фамилия

    #   dolvn     CHAR(20),     # должность

    #   zarplata  MONEY(16,2),  # зарплата

    #   datarovd  DATE          # дата рождения

    # END RECORD



  OPEN WINDOW  wwod  AT 4,20 WITH FORM  "kadry"  attribute(border)

  MESSAGE "Введите учетные данные, и нажмите ESC" attribute (reverse)

  let c="Y"



    WHILE c NOT MATCHES "[nNНн]" or c is NULL   # В цикле

    INPUT by name zapisx.*              # -DВвести данные через экранную форму-E

    DISPLAY "Принято"    AT 1 , 1



    let   zapisx.tabnom=0

    INSERT INTO kadry values (zapisx.*) # -DВставить строку в таблицу kadry-E

    display   SQLCA.SQLERRD[2] to tabnom# -DКакой номер получил serial столбец ?-E

    prompt "Принято.  Вводить следующего (Да/Нет)?" for char c

    END WHILE



  CLOSE WINDOW WWOD                     # -DЛиквидируем окошко-E

END FUNCTION



FUNCTION prosmotr()

  define zapisx record like kadry.* , c char



  open window prosmotr  at 4,34 with form  "kadry" attribute(border)

  declare prosmotr cursor for select * from kadry order by nomerceh, tabnom

    FOREACH prosmotr INTO zapisx.*              # -DВ цикле для каждой строки-E

    DISPLAY BY NAME zapisx.*                    # -DВывели ее на экран-E

    prompt "Показывать следующего (Да/Нет)? " for char c

    IF c matches "[НнNn]" then exit foreach END IF # -DЕсли Нет то конец -E

    END foreach

  close window prosmotr         #       -DЛиквидируем окошко-E

END FUNCTION



FUNCTION odin_prosmotr()

  define zapisx record like kadry.* , nomer int



  open window odin_prosmotr  at 4,4 with form  "kadry" attribute(border)

    WHILE 1=1                                   # -DВ цикле-E

    prompt "Какой табельный номер показать: " attribute (reverse)

         for nomer  attribute (underline)

    IF nomer IS NULL THEN exit while END IF     # -DЕсли не ввел то конец-E



    SELECT * INTO zapisx.*

             FROM kadry WHERE nomer=tabnom      # -DЧитаем строчку-E

      if status = NOTFOUND then

        error "Нет таких" attribute (reverse)   # -DЕсли не нашлось то-E

        continue while                          #  -Dперейти на начало цикла-E

        end if



    DISPLAY BY NAME zapisx.*                    # -DВывести ее на экран-E

    END WHILE

  close window odin_prosmotr         #       -DЛиквидируем окошко-E

END FUNCTION

Назад || Оглавление || Вперед

Виртуальные VPS серверы в РФ и ЕС

Dedicated серверы в РФ и ЕС

По промокоду CITFORUM скидка 30% на заказ VPS\VDS

VDS хостинг Облачный сервер в Нидерландах и Украине

Аренда виртуального сервера от $7.91

Партнёрская программа
$20 за клиента

Wildcard сертификаты от $74,97 в год.

Дешевые ssl сертификаты для домена

Sectigo сертификаты от $7,67 в год.

хостинг Украина Виртуальный хостинг для сайта от $4,87

Регистрация домена от $2 в год

Партнерская программа – $20 за клиента

VPS с гибкой конфигурацией: за 1€

Мощные выделенные сервера: от 25€

Собственный Дата-Центр
Поддержка 24/7

Бесплатный конструктор сайтов и Landing Page

Хостинг с DDoS защитой от 2.5$ + Бесплатный SSL и Домен

SSD VPS в Нидерландах под различные задачи от 2.6$

Новости мира IT:

Архив новостей

Последние комментарии:

IT-консалтинг Software Engineering Программирование СУБД Безопасность Internet Сети Операционные системы Hardware

Информация для рекламодателей PR-акции, размещение рекламы — adv@citforum.ru,
тел. +7 495 7861149
Пресс-релизы — pr@citforum.ru
Обратная связь
Информация для авторов
Rambler's Top100 TopList liveinternet.ru: показано число просмотров за 24 часа, посетителей за 24 часа и за сегодня This Web server launched on February 24, 1997
Copyright © 1997-2000 CIT, © 2001-2019 CIT Forum
Внимание! Любой из материалов, опубликованных на этом сервере, не может быть воспроизведен в какой бы то ни было форме и какими бы то ни было средствами без письменного разрешения владельцев авторских прав. Подробнее...