Новые книги
Продажи невидимого. Продавать услуги легко, если знать как
Продавать услуги не сложнее, чем товары – нужно только знать как. В условиях жесткой конкурентной борьбы продавцу нужно постоянно осваивать новые методы работы. И чем необычнее они будут, тем больше прибыли принесут. В век серьезной конкуренции и корпоративных войн за клиентов книга Мурата Тургунова послужит пошаговым руководством к тому, чтобы не только не проиграть своим конкурентам, но и выйти из борьбы победителем, одновременно делая своих клиентов намного успешнее.

Эта книга, основанная на многолетнем личном опыте автора в продажах В2В и В2С, расскажет не только о специфике продажи сложных профессиональных услуг (финансовых, медицинских, транспортных и многих других). Она содержит минимум теории и максимум практических примеров, которые гарантированно помогут вам увеличить свои личные продажи.

Книга будет полезна менеджерам и руководителям отделов продаж, коммерческим директорам и всем, кто связан с продажами профессиональных услуг: консалтинговых, финансовых, аудиторских, юридических; образовательных, медицинских и в сфере недвижимости; IT, телекоммуникационных и информационных; туристических, охранных, клининговых и многих других.
Самоучитель работы на компьютере: быстро, легко, эффективно
Тот факт, что умение работать на компьютере сегодня необходимо всем и каждому, не вызывает сомнений даже у скептиков.

Книга, которую вы держите в руках, будет настоящим другом и помощником для тех, кто желает самостоятельно и в короткие сроки освоить премудрости работы на персональном компьютере. Написанная простым и понятным языком, она доступна и легка даже для новичков. Большое количество конкретных примеров и наглядных иллюстраций способствует быстрому и легкому усвоению предлагаемого материала.

Его последовательное изложение, а также подробное пошаговое описание ключевых операций и процедур превращают изучение данной книги в увлекательный процесс, результатом которого будет умение общаться на «ты» с любым современным компьютером.

Описание построено на примере системы Windows XP Professional.

Пример простейшей программы
Версия для печати

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

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

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