Использование FoxBase+ и Clipper в локальной сети

1987 год, говорите... )))))

2.1. Сетевые команды

           SET EXCLUSIVE ON|OFF
                  Устанавливает режим открытия по умолчанию для файлов
                  данных и индексных файлов: ON - монопольный, OFF -
                  разделяемый.
     

      UNLOCK [ALL]

                  Снимает блокировку файла или записи в текущей рабочей
                  области,

               
                  если указано ALL - то во всех областях.
         

 USE [<имя файла>] [INDEX <список индексных файлов>]
           [EXCLUSIVE] [ALIAS <имя псевдонима>]

                  Открывает базу данных и связанные с ней индексные
                  файлы: в режиме установленном по умолчанию, если
                  указано EXCLUSIVE - то в монопольном режиме.
           SET PRINTER TO <назначение>
                  Определяет вывод на сетевой принтер.

Таблица 1. Причины возвращения функцией NETERR значения
           "истина".
           -----------------------------------------------------------
           Команда              Причина невыполнения
           -----------------------------------------------------------
           USE                  USE ... EXCLUSIVE другим процессом
           USE EXCLUSIVE        USE или USE  EXCLUSIVE другим процессом
           APPEND BLANK         FLOCK() другим процессом или попытка
                                выполнить две команды APPEND BLANK
                                одновременно.

           Примечание. В Foxbase+ нет функции NETERR(). Вместо нее
           используйте команду ON ERROR для назначения процедуры
           обработки ошибок, код которых дает функция ERROR(). Коды
           ошибок, связанных с работой в сети, приведены в руководстве
           по Foxbase+.

           3. Программирование для локальной сети

               При разработке  сетевых  приложений  необходимо  понимать
          следующие моменты:
                  - когда требуется блокирование записи или файла;
                  - как открывать файлы в режиме разделения;
                  - как блокировать запись или файл;
                  - что делать после неудачных попыток бокирования;
                  - как влияет сетевая среда на файлы и команды.

               Примечание.
               Если ваша программа не требует доступа к  базе  данных  в
          режиме разделения, а компьютер включен в  локальную  сеть,  то
          информация, представленная ниже, вам не потребуется.
          Foxbase+ и  Clipper  по  умолчанию  предполагают однопользова-
          тельский  (монопольный)  режим  доступа  к  базе  данных  (SET
          EXCLUSIVE ON), при котором блокирование вообще не требуется.

           3.1. Когда требуется блокирование записи или файла

               Сначала вы должны определить, исходя из  требований пост-
          авленного задания, какие файлы нужно  будет  использовать сов-
          местно несколькими  пользователями.  Как  правило,  это  общие
          справочники.
               Затем определите те задачи и период времени,  когда будет
          необходимо иметь монопольный доступ к таким файлам.
               Как правило, это операции реорганизации базы данных в мо-
          менты времени, связанные с  технологическим  процессом. Напри-
          мер, конец рабочего дня, отчетного месяца, квартала, года. При
          монопольном открытии файла он не доступен другим пользователям
          ни для чтения ни для записи, поэтому нужно осторожно использо-
          вать этот режим.
               И, наконец, определите те задачи, которые  требуют внесе-
          ния изменений в некоторые записи файла или требуют,  чтобы ка-
          кие-то записи в данный момент не изменялись  другими пользова-
          телями, например,при суммировании итога.
               В этот момент времени для обеспечения  целостности данных
          необходимо запре*тить другим пользователям изменение  каких бы
          то ни было полей этой записи или файла. Для этого и служит ме-
          ханизм блокирования записи либо всего файла,  поддерживаемый в
          Foxbase+ и Clipper. Заблокированная запись или  файл  доступны
          другим пользователям для чтения, но не доступны для записи.

Следующий пример иллюстрирует эти правила.
           SET EXCLUSIVE OFF  && Последующее применение USE - в режиме
                              &&  разделения
           USE File
           IF NETERR()        && NETERR возвращает .T. при неудачной
                              && попытке открытия файла командой USE
           ? 'Файл не доступен в режиме разделения '+;
             'Программа закончила работу '
             QUIT
           ENDIF
           SET INDEX TO ...
               Обратите внимание на то, что файл может быть не доступен,
          так как другой пользователь мог открыть его в  монопольном ре-
          жиме.
               Всегда открывайте индексный файл отдельно  от  файла дан-
          ныхкомандой SET INDEX. Неудачная попытка открытия файла данных
          не прерывает выполнение программы. Неудачная  попытка открытия
          индексного файла в одной команде USE <файл>  INDEX  <индексный
          файл> - прерывает программу.

Примечание 1.
               Попытка блокирования снимает любую существующую блокиров-
          ку до начала своего выполнения. Таким образом любая неудачная
          попытка блокирования или успешное выполнение функции  RLOCK на
          другой незаблокированной записи снимает предыдущую блокировку.

               Примечание 2. В любой момент времени  может  быть  только
          одна блокировка (файла или записи) в  каждой  рабочей  области
          для файла, открытого в режиме разделения.

           3.4. Что делать после неудачных попыток блокирования

               После неудачной попытки блокирования существуют следующие
          возможные действия:
                  - сделать еще одну попытку;
                  - повторять попытки фиксированное время;
                  - повторять попытки до прерывания пользователем
                    (например, клавишей Esc);
                  - повторять попытки до достижения блокирования.
               Видимо, действия "сделать еще одну попытку" недостаточно,
          а действие "повторять до достижения  блокирования" неприемлемо
          из-за неопределенности момента его завершения.  В  большинстве
          практических случаев оба этих действия не подходят. Для прида-
          ния  гибкости  и  практичности  программному  продукту   нужно
          компромиссное решение. Имеется несколько альтернатив для усло-
          вий завершения попыток блокирования: установить предел по вре-
          мени, дать возможность пользователю прервать  попытки блокиро-
          вания или использовать комбинации этих двух вариантов.
               Адаптированные по вышеприведенным рекомендациям процедуры
          открытия и попыток блокирования не  изменяют  выполнения прог-
          раммы , но увеличивают активность программы при  неудачной по-
          пытке блокирования.В этом - существенное различие  между сете-
          вой и несетевой пользовательской программой.
               После неудачной попытки блокирования, как  правило, нужно
          сделать следующее:
               - сообщить пользователю о неудачной попытке блокирования;
               - обработать эту ситуацию.
               Можно выдать сообщение на экран и сделать временную паузу
          (например, две секунды) для  того,  чтобы  пользователь  успел
          прочитать сообщение. Другой вариант -  сделать  неограниченную
          по времени паузу (например, с помощью вызова функции INKEY(0))
          для того, чтобы пользователь прочитав сообщение мог продолжить
          выполнение программы после нажатия любой клавиши.

3.5. Влияние сетевой среды на файлы

               Работа c файлами в сетевой среде (команда  SET  EXCLUSIVE
          OFF) осуществляется совершенно по другому по сравнению с одно-
          пользовательским (или монопольным) режимом. Базы данных и свя-
          занные с ними файлы открываются в режиме разделения  или моно-
          польном  в  зависимости  от  текущего  статуса   команды   SET
          EXCLUSIVE и/или в зависимости от того,  открываются  ли  файлы
          при помощи команды USE или USE ... EXCLUSIVE.
               Если была выполнена команда SET EXCLUSIVE ON, база данных
          и связанные с ней файлы открываются командой USE в монопольном
          (не разделяемом) режиме. Если выполнена команда  SET EXCLUSIVE
          OFF и затем вы открываете файл командой USE,  то  базы  данных
          открываются в режиме разделения.
               Если выполнена команда  SET  EXCLUSIVE  OFF  и  затем  вы
          открываете файл командой  USE  ...  EXCLUSIVE,  то  этот  файл
          открывается в монопольном (не разделяемом) режиме.

           Примечание.
               Блокирование файла или  записи  необходимо  только  когда
          файл открыт в режиме разделения.
               
               
             Некоторые команды Foxbase+ и Clipper дополнительно откры-
          вают файлы данных (и/или связанные .dbt и индексные файлы) от-
          личные от текущего открытого файла. По  завершении  выполнения
          команды такие файлы закрываются.
               Следующая таблица показывает как будут открываться файлы,
          отличные от текущего открытого, при выполнении таких команд.
               
               
           Таблица 2. Как открываются дополнительные файлы при
                      выполнении  некоторых команд
           ------------------------------------------------------------
           Команды, читающие из <файла>    Команды, пишущие в <файл>
           и открывающие его в режиме      и открывающие его в
           разделения                      монопольном режиме
           -----------------------------------------------------------
           APPEND FROM <имя файла>        COPY STRUCTURE TO <имя файла>
           CREATE ... FROM <имя файла>    COPY TO <имя файла>
           LABEL FORM <имя файла>         CREATE <имя файла>
           REPORT FORM <имя файла>        INDEX ON ... TO <имя файла>
           RESTORE FROM <имя файла>       JOIN ... TO <имя файла>
           TYPE <имя файла>               SAVE TO <имя файла>
           UPDATE ... FROM <имя файла>    SET ALTERNATE TO <имя файла>
                                          SORT ... TO <имя файла>
                                          TOTAL ... TO <имя файла>
           -----------------------------------------------------------
               Файл, открытый в режиме разделения,  как  показано  выше,
          открывается  с  использованием  атрибута  DOS  "только-чтение"
          (read-only).

               Команда SET INDEX TO откроет индексный файл в режиме раз-
          деления или монопольном, в  зависимости  от  текущего  статуса
          открытия соответствующей базы данных.
               Некоторые из этих команд работают с двумя файлами, причем
          часто к одному обращаются по его имени, как приведено в табли-
          це 2, а другой - текущий. Режим открытия текущей  базы  данных
          предопределен и зависит от ранее описанных команд.

3.7. Программа Locks.prg

               Программа Locks.prg, имеющаяся  на  дистрибутивном  диске
          Clipper'а, содержит пользовательские функции для сети. Необхо-
          димо использовать функции ADD_REC, FIL_LOCK, NET_USE, REC_LOCK
          вместо команды APPEND BLANK, функции FLOCK,  команды  USE  ...
          EXCLUSIVE и  функции  RLOCK  соответственно.  Каждая  из  этих
          функций пытается блокировать запись или файл в течение опреде-
          ленного промежутка времени, так что машинное время использует-
          ся оптимально. Для того, чтобы использовать эти функции, необ-
          ходимо включить в свою программу  команду  "SET  PROCEDURE  TO
          Locks". В программе Locks.prg предполагается,  что установлено
          SET EXCLUSIVE OFF. Текст программы приведен ниже.
               Примечание. Вы можете использовать эти функции как пример
          и на их основе разработать свои, более  подходящие  для  вашей
          задачи.

           3.7.1. Функция NET_USE

               Эта функция пытается открыть файл  в  монопольном  режиме
          или врежиме разделения и возвращает логическое значение "исти-
          на" или "ложь" (.T. или .F.).
                Функция NET_USE использует три параметра:
           текстовая переменная  - имя базы данных, которую нужно
                                   открыть;
           логическая переменная - режим открытия (монопольный
                                   /разделяемый);
           числовая переменная   - количество секунд ожидания (0 -
                                   ждать до конца).
               Если функция NET_USE отработала успешно, то  после  этого
          можно открывать индексные файлы (команда SET INDEX).
           IF NET_USE("Accounts",.T.,5)
              SET INDEX TO Name
           ELSE
           ? " Файл Accounts не доступен"
           ENDIF

           FUNCTION NET_USE
           PARAMETERS file, ex_use, wait
           PRIVATE forever
           forever = (wait = 0)
           DO WHILE (forever .OR. wait > 0)
              IF ex_use               && Монопольный режим
                 USE &file EXCLUSIVE
              ELSE                    && Режим разделения
                 USE &file
              ENDIF
              IF .NOT. NETERR()       && Успешное открытие файла
                 RETURN (.T.)
              ENDIF
              INKEY(1)                && Ждать 1 секунду
              wait = wait - 1
           ENDDO
           RETURN (.F.)               && Файл не открыт
           * Конец NET_USE