Методические указания по выполнению практических работ по дисциплине "Основы проектирования баз данных"

ФЕДЕРАЛЬНОЕ  АГЕНТСТВО  ПО ОБРАЗОВАНИЮ ФЕДЕРАЛЬНО Е  ГОСУДАРСТВЕННОЕ  ОБРАЗОВАТЕЛ ЬНОЕ  УЧРЕЖДЕНИЕ СРЕДНЕГО  ПРОФЕССИОНАЛЬНОГО  ОБРАЗОВАНИЯ «РЯЗАНСКИЙ  ГОСУДАРСТВЕННЫЙ  ТЕХНОЛОГИЧЕСКИЙ  КОЛЛЕДЖ » Цикловая методическая комиссия информационных технологий А.А. Стеняева Базы данных Методические указания  по выполнению практических заданий  по специальности 230103 Автоматизированные системы обработки информации и управления Рязань 2009 2 3 I   ТЕОРЕТИЧЕСКАЯ ЧАСТЬ  1 ПОНЯТИЕ КОМАНДНОГО ФАЙЛА. СОЗДАНИЕ И КОМПИЛЯЦИЯ ПРОГРАММ 1.1 Создание командных файлов Командные   файлы   представляют   собой   исходные   тексты программ   и   имеют   тип  .prg.   Они   создаются   с   помощью встроенного редактора Visual FoxPro, вызываемого командой MODIFY COMMAND <имя файла > По   команде  MODIFY  COMMAND  без   указания   имени   по умолчанию   создается  prg­файл  без   имени.   Присвоить   имя следует   при   первом   сохранении   текста   программы.   Для редактирования ранее созданной программы используют команду MODIFY COMMAND <имя> Программы   Visual   FoxPro   представляют   собой   текстовые файлы,   содержащие   последовательности   команд.   Создать программу в Visual FoxPro можно следующим образом: В меню File выбрать New. В диалоговом окне New выбрать Program. Выбрать New File. 1. 2. 3. Visual FoxPro откроет новое окно Program1. Теперь можно набирать   программу   в   этом   окне.   Для   сохранения   программы выбрать Save As (Сохранить как), указать путь и имя программы. 1.2 Способы запуска программы на выполнение Способы запуска программы:  1. нажать кнопку Run на стандартной панели инструментов; 2. В меню выбрать Programm  DO  указать имя программы  DO; 3. Нажать кнопку Run в диспетчере проектов; 4. Ввести в окне Command следующей команды: do program <имя_программы>. Созданная   программа   выполняется   в   режиме интерпретации. При обнаружении ошибки выполнение прерывается и комментируется сообщением. 4 1.3 Правила составления программ 1. Каждая   строка   должна   содержать   одну   команду, кроме особых случаев (циклы, конструкции). 2. Если команда слишком длинная, ее можно перенести на другую строку, используя знак переноса; 3. Для   ориентирования   текста   программ   необходимы комментарии.   Если   комментария   является   отдельной строкой, то он должен начинаться со знака * . Если комментарий   находится   на   той   же   строке,   где   и команда, в этом случае он начинается со знака && . 4. Одним   из   показателей   того,   что   программа   хорошо документирована,   является   наличие   в   ней комментариев с информацией об имени программы, ее содержании   и   назначении,   дате   последнего обновления текста, ФИО программиста. Все остальные комментарии разбросаны по всему тексту программы. Желательно   пояснять   назначение   команд   и используемых переменных. 5. Для очистки экрана необходимо использовать команду CLEAR. 6. В начале программы необходимо: а) установить германский формат даты – SET DATE GERMAN; б) назначить рабочий каталог – SET DEFAULT TO D:\BANK\GR…; в) отключить вывод сообщений на экран – SET TALK OFF; г) установить блокировку возможности выхода из программы по нажатии клавиши ESC – SET ESCAPE OFF; 7. В конце программы необходимо: а) отключить вывод сообщений на экран – SET TALK ON; б)   снять   блокировку   возможности   выхода   из программы по нажатии клавиши ESC – SET ESCAPE ON; 5 II   ПРАКТИЧЕСКАЯ ЧАСТЬ СОЗДАНИЕ БАЗЫ ДАННЫХ ДЛЯ ВЫПОЛНЕНИЯ ЗАДАНИЙ 1. Запустить Visual FoxPro 9.0. 2. В   командной   строке   назначить   рабочий   каталог (D:\BANK\GR_номер группы и  подгруппы). 3. Установите германский формат даты (SET DATE GERMAN). 4. Запретите вывод сообщений на экран (SET CENTURY ON). 5. Отключить   флаг   вывода   результата   выполнения   команд   (SET TALK OFF). 6. Снять блокировку возможности выхода из программы по нажатии клавиши ESC (SET ESCAPE ON). 7. Создать проект с именем Proba.pjx. 8. В   появившемся   окне  Project  Manager  (Менеджер   проектов) перейти на вкладку Data (Данные), выбрать опцию Databases (База данных) и нажать на командную кнопку New (Новый). 9. Выбрать New Database (Новая база данных) и сохранить базу данных в своей рабочей папке с именем Baza_proba. dbc. 10. Выбрать в диспетчере проекта на вкладке  Data  (Данные) элемент   списка  Tables  (Таблицы)     и   нажать   на   командную кнопку New (Новый). 11. 12. Выбрать New (Новый), нажать New Table (Новая таблица). В   диалоговом   окне  Create  (Сохранить)   указать   путь   к своей   рабочей   папке   и   сохранить   таблицу   с   именем Worke.dbf. 13. В   окне   дизайнера   таблиц  Table  Designer  на   вкладке Fields  (Поля)   указать   название   поля   (Name),   его   тип (Type), размер (Width), как показано на рис. 1. 6 Рисунок 1 – Окно дизайнера таблиц Table Designer * Комментарий: tab – tабельный номер; fio – ФИО; pol – пол; data – дата рождения; lang – знание иностранного языка; stag – стаж работы; deti – наличие детей; srzar – средняя заработная плата; comp – владение компьютером. 14. Нажать   на   кнопку  ОК,   тем   самым   сохранив   структуру таблицы. 15. Выделить   таблицу  Worke.dbf.,   нажать   на   кнопку  Browse (Просмотр) в диспетчере проекта. 16. Добавить   записи   в   таблицу,   используя   команду  Append New  Record    (Добавить   новую   запись)   пункта   меню  Table (Таблица). 17. Заполнить таблицу информацией, как показано на рис. 2. 7 Рисунок 2 – Содержимое таблицы Worke.dbf. 18. Выбрать в диспетчере проекта на вкладке элемент списка Code (Код) и нажать на командную кнопку New (Новый). 19. Выбрать   команду  Save  As  (Сохранить   как)   пункта   меню File  (Файл) и сохранить программу с именем  pr_1  в своем рабочем каталоге. 20. В окне ввода написать программный код. 8 При выполнении данного задания необходимо:        изучить программный код каждого задания; вспомнить теоретический материал, необходимы для написания данного листинга программы; создать   командный   файл,   сохранив   его   в   своем рабочем   каталоге   с   именем  pr_номер   задания (например, pr_1.prg, pr_2.prg и т.д.); откомпилировать командный файл; запустить программу на выполнение; просмотреть результат выполнения; результат   выполнения   задания   показать преподавателю. ЗАДАНИЕ  № 1 *   Вывести поля  TAB, FIO, DATA, OBR первых *   трех записей в БД  для работников, проработавших *   не менее 10 лет. set talk on set date german set century on clear use worke locate for STAG>=10.00 disp TAB, FIO, DATA, STAG, OBR Continue disp TAB, FIO, DATA, STAG, OBR Continue disp TAB, FIO, DATA, STAG, OBR close all Результат выполнения: 9 ЗАДАНИЕ  № 2 *   Вывести поля  TAB, FIO, DATA, OBR первой *   записи в БД  для работника, проработавшего *   не менее 10 лет. set talk on set date german set century on use worke locate for STAG>=10.00 disp TAB, FIO, DATA, STAG, OBR close all Результат выполнения: ЗАДАНИЕ  № 3 *   Найти и вывести на экран количество работников, *   средняя зарплата которых не менее 10 000 тыс. set talk off set date german set century on clear use worke  locate for SRZAR >= 10000.00       s=0  do while !EOF()       s=s+1       disp TAB, FIO, DATA, OBR, SRZAR       continue 10 enddo      ? 'Количество сотрудников с зарплатой >= 10000 =', s close all 11 Результат выполнения: ЗАДАНИЕ  № 4 *   Найти и вывести на экран количество работников, *   родившихся позднее 1980 г. set talk off set date german set century on clear use worke    s=0    locate for YEAR(DATA) > 1980 do while !EOF()       s=s+1       disp TAB, FIO, DATA, OBR, SRZAR       continue enddo      ? 'Родившиеся  после 1980 года=', s close all Результат выполнения: 12 ЗАДАНИЕ  № 5 *   Найти и вывести на экран количество работников *   (женщин), имеющих высшее образование. set talk on set date german set century on clear use worke    s=0    locate for OBR=.T. and POL='жен' do while !EOF()       s=s+1       disp TAB, FIO, DATA, OBR, SRZAR     continue enddo      ? 'Количество женщин с образованием =', s close all Результат выполнения: ЗАДАНИЕ  № 6 *   Найти и вывести на экран количество работников *   (женщин), владеющих навыками работы на ПК. set talk off set date german 13 set century on clear use worke    s=0    locate for COMP = .T..and.POL = 'жен' do while !EOF()           s=s+1       disp TAB, FIO, DATA, OBR, SRZAR      continue enddo      ? 'Количество женщин с навыками работы на ПК=', s close all Результат выполнения: ЗАДАНИЕ  № 7 *   Найти и вывести на экран среднюю зарплату для *   работников (женщин), имеющих 3 и более детей. set talk off set date german set century on clear use worke    SRZAR=0.00    summ=0.00    n=0    locate for DETI>=3.and.POL='жен'    do while !EOF()       summ=summ+SRZAR       n=n+1       disp TAB, FIO, DATA, DETI, SRZAR     continue 14 enddo     do case      case n>0      summ=summ/n     ? 'Средняя зарплата женщин с 3 и более детьми', summ     case n=0     ? 'Женщин с 3 и более детей нет'     endcase            close all Результат выполнения: ЗАДАНИЕ  № 8 *    Найти и вывести на экран среднюю зарплату по фирме. set talk off set date german set century on clear use worke    summ=0.00    n=0    do while !EOF()       summ=summ+SRZAR       n=n+1    skip    enddo      summ=summ/n       @ 15,15 say 'Средняя зарплата=' +STR(summ,8.2) *      ? 'Средняя зарплата =', summ close all Результат выполнения: 15 ЗАДАНИЕ  № 9 *    Вывести в BROWSE­окне список работников со стажем 10 лет. *    Предусмотреть вывод названия таблицы и заголовков *    полей по­русски. set talk off set date german set century on clear use worke Browse for STAG >= 10; Title ' Список сотрудников' ; Fields   TAB  :H='Табельный номер' ,;          FIO  :H='Фамилия, Имя, Отчество  ' ,;          POL  :H=' Пол ',;          DATA :H='Дата рождения' ,;          OBR  :H='Образование',;          LANG :H='Ин. яз.',;          STAG :H='Стаж работы',;          DETI :H='Наличие детей',;          SRZAR :H='Ср. зарплата',;          COMP  :H='Владение компьютером' close all Результат выполнения: ЗАДАНИЕ  № 10 *    Найти и вывести на экран средний стаж работников фирмы 16 set talk off set date german set century on clear use worke    summ=0    n=0  do while !EOF()       summ=summ+STAG       n=n+1       disp TAB, FIO, DATA, DETI, STAG  skip  enddo       summ=summ/n      ? 'Средний стаж = ', summ close all Результат выполнения: ЗАДАНИЕ  № 11 17 * Упорядочить записи в БД в порядке возрастания А ­ Я * (сортировка по ФИО от А до Я) set talk on set date german set century on clear use worke index on FIO to IFIO.IDX list TAB, FIO, DATA close all 18 Результат выполнения: ЗАДАНИЕ  № 12 *    Найти и вывести на экран содержимое полей *    FIO, DATA, SRZAR, COMP записи для самого *    молодого работника фирмы (1 способ). set talk off set date german set century on clear use worke CALCULATE MAX(DATA) to mld    locate for mld=DATA    Do while !eof()          DISP TAB, FIO, DATA, SRZAR, COMP    continue    enddo  close all Результат выполнения: ЗАДАНИЕ  № 13 *    Найти и вывести на экран содержимое полей *    FIO, DATA, SRZAR, COMP записи для самого *    молодого работника фирмы (2 способ). 19 set talk on set date german set century on clear use worke index on DATA to IDATA.IDX list TAB, FIO, DATA go bottom disp TAB, FIO, DATA close all Результат выполнения: ЗАДАНИЕ  № 14 *    Найти и вывести на экран содержимое полей *    FIO, DATA, SRZAR, COMP записей для 3­x самых *    молодых работников фирмы. set talk on set date german set century on clear use worke calculate CNT() to n index on DATA to IDATA.IDX    list TAB, FIO, DATA 20 for i=1 to 3 go top skip n­i disp TAB,FIO,DATA endfor close all Результат выполнения: ЗАДАНИЕ  № 15 *   Вывести в BROWSE­окне список работников с высшим *   образованием. Предусмотреть вывод названия таблиц *   и заголовков полей по­русски. set talk off set date german set century on clear use worke Browse for OBR =.T.; Title ' Список сотрудников' ; 21 Fields   TAB  :H='Табельный номер' ,;          FIO  :H='Фамилия, Имя, Отчество  ' ,;          POL  :H=' Пол ',;          DATA :H='Дата рождения' ,;          OBR  :H='Образование',;          LANG :H='Ин. яз.',;          STAG :H='Стаж работы',;          DETI :H='Наличие детей',;          SRZAR :H='Ср. зарплата',;          COMP  :H='Владение компьютером'          close all Результат выполнения: ЗАДАНИЕ  № 16 *   Написать фрагмент программы, реализующей обработку *   меню, которое содержит следующие пункты: *       ввод новой записи в БД; *       просмотр  БД; *       удаление записи из БД; *       вывод на экран clear use worke define popup TABEL from 5,45 shadow define bar 1 of TABEL prompt '\<ввод записи' key CTRL+N,'^N' define bar 2 of TABEL prompt '\<просмотр' define bar 3 of TABEL prompt '\<удаление' key CTRL+T,'^T' define bar 4 of TABEL prompt 'очистка БД';          message 'Будьте осторожны' COLOR , w+/r,,,w+*/r 22 define bar 5 of TABEL prompt '\­' define bar 6 of TABEL prompt 'ВЫХОД' on selection popup TABEL do PTABEL;          with popup(), prompt(), bar() activate popup TABEL procedure PTABEL parameter MPOPUP, MPROMPT, MBAR ? MPOPUP, MPROMPT, MBAR if bar()=2 locate do while !eof() disp TAB, FIO, DATA continue loop enddo endif if bar()=6    deactivate popup endif return    Fields  TAB  :H='Табельный номер' ,;          FIO  :H='Фамилия, Имя, Отчество' ,;          POL  :H='Пол ',;          DATA :H='Дата рождения',;          OBR  :H='Образование',;          LANG :H='Ин. языки',;          STAG :H='Стаж работы',;          DETI :H='Наличие детей',;          SRZAR :H='Средняя зарплата',;          COMP  :H='Знание компьютера' Результат выполнения: 23 ЗАДАНИЕ  № 17 *   Найти и удалить (логически) из БД *   все записи, содержащие в поле ДАТА РОЖДЕНИЯ *   ссылку  на 1966 год. set talk off set date german set century on clear use worke locate for year(data)=1966 do while !eof()    disp TAB, FIO, DATA, COMP    delete    continue enddo      * pack    list TAB, FIO, DATA, COMP close all Результат выполнения: 24 ЗАДАНИЕ  № 18 *   Вывести в BROWSE­окне список работников, *   владеющими навыками работы на ПК. *   Предусмотреть вывод названия таблицы и заголовков *   полей по­русски, поле FIO ­ 15 символов. 25 set talk off set date german set century on clear use worke Browse for COMP=.T.; Title ' Список сотрудников' ; Fields   TAB  :H='Табельный номер' ,;          FIO  :H='Фамилия, Имя, Отчество  ' ,;          POL  :H=' Пол ',;          DATA :H='Дата рождения' ,;          OBR  :H='Образование',;          LANG :H='Ин. яз.',;          STAG :H='Стаж работы',;          DETI :H='Наличие детей',;          SRZAR :H='Ср. зарплата',;          COMP  :H='Владение компьютером' close all Результат выполнения: ЗАДАНИЕ  № 19 *    Определить, какой процент работников не владеет *    иностранными языками.  set talk off set date german set century on clear use worke CALCULATE CNT() to n    nn=0 26 locate for LANG<=1    do while !EOF()       nn=nn+1       disp  FIO, LANG, SRZAR    continue    loop    enddo         pr=(nn/n)*100      ? 'Число сотрудников не владеющих ин. языками', nn      ? 'Процент сотрудников не владеющих иностранными  языками=', pr close all Результат выполнения: ЗАДАНИЕ  № 20 *    Определить, какой процент работников владеет *    навыками работы на ПК.  set talk off set date german set century on clear use worke CALCULATE CNT() to n 27 nn=0    scan for COMP=.T.       nn=nn+1       disp TAB, FIO, DATA, STAG, COMP, SRZAR    endscan      pr=nn*100/n      List TAB, FIO, DATA, STAG, COMP, SRZAR      ? ' Кол­во сотрудников владеющих компьютером=', nn      ? 'Процент сотрудников владеющих компьютером=', pr close all Результат выполнения: ЗАДАНИЕ  № 21 *  Определить каков процент работников (женщин) *  достиг пенсионного возраста set talk off set date german clear use worke    n=0    nn=0    locate for POL='жен' 28 n=n+1    do while !EOF()       if (YEAR(DATE())­YEAR(DATA)) >=55       nn=nn+1       disp TAB, FIO, DATA, STAG, SRZAR       endif      continue     enddo     do case        case n>0        nn=nn*100/n       ? 'Процент женщин достигших пенсионного возраста=', nn       case n=0       ? 'Женщин среди сотрудников нет'     endcase  close all Результат выполнения: ЗАДАНИЕ  № 22 *   Определить, каков процент работников получает *   в месяц более 8000. set talk off set date german set century on clear use worke CALCULATE CNT() to n    nn=0     locate for SRZAR > 8000     do while !EOF()       nn=nn+1       disp TAB, FIO, DATA, STAG, SRZAR 29 continue     enddo       nn=nn*100/n      ? 'Процент сотрудников получающих > 8000 =', nn close all Результат выполнения: ЗАДАНИЕ  № 23 *   Определить какой процент сотрудников имеют детей. set talk off set date german set century on clear use worke CALCULATE CNT() to n    nn=0    locate for DETI > 0    do while !EOF()         nn=nn+1       disp TAB, FIO, DATA, DETI, SRZAR    continue    enddo      nn=nn*100/n 30 ? 'Процент сотрудников имеющих детей=', nn close all 31 Результат выполнения: ЗАДАНИЕ  № 24 * Найти максимальное значение из двух величин.  CLEAR INPUT  “ Введите  X”  TO  X INPUT  “ Введите  Y”  TO  Y IF  X > Y       max = X ELSE      max = Y ENDIF ?  “ Максимальное значение равно: ”, max WAIT  Результат выполнения: 32 ЗАДАНИЕ  № 25 *   Найти значение функции Y. Обеспечить форматный ввод      *   переменной X и форматный вывод значения функции  Y, *    * используя оператор ветвления CASE.  Функция  имеет вид:   y       2 x  15 x 12 2 2   ,5 x 2 , x SIN ,)12( если если x 0 если  0  x x  5  5 CLEAR INPUT  “Введите   X”  TO  X DO  CASE                CASE  X <  0                       Y = ­2*X^2 +5*X           CASE  X>=0  AND X < 5                       Y = 15 – 2*X^2                CASE  X>=5                        Y = ABS(12*X – SIN(12)) ENDCASE     ?  "Y  = "  ,Y CLOSE ALL     Результат выполнения:             33 ВАРИАНТЫ ЗАДАНИЯ № 25 Функция имеет вид:  y         y  y                y        2  x 2  25 x  3 ,1 x  x 2 x ,3 x 2 , 2 ,  x  5 x 2 x 3 2 ,2 x 2  2 x ,  ,8 2 x 2  , 2 4 x  25  5 x  x  ,5 x 2 ,8 x ,1 4 x , 2 если если если если x x 3 x  12  5  x  7 5 если если если если  x 12  x 22  34 x  x 72 56 если если если если  2 x  2 x  3 x  8 x 7 2 3 x 15 x 2 5 x     , x 2 , x ,11 12 x 2 , если если если если  2 x  x 2  3 x 5 34  x 8  y  y  y                      2  ,11 x x  2 35 , x  12 ,8 x  3 2 x x 2 если если если если  2 x  x 2  3 x  x 85 50 , 2  ,11 x 4 x  2 ,85 x ,5 2 x x  2 x 4 x  , 2  2 x  55 x  2 2 x  2 x ,3 x 2 , ,8 2 x , если если если если  2 x  x 2  6 x  26 x 25 если если если если  20 x  25 x  30 x  78 x 50 35  y        2  ,5 x 12 x  2 , 5 x 11  ,15 16 x  x x 2 25 2 если если если если  20 x  x 5  x 3  x 7 5 , III   СПРАВОЧНЫЙ МАТЕРИАЛ  3.1 Функции СУБД 3.1.1 Арифметические функции Функция ABS(<вырN>) Описание абсолютное значение числа  <вырN> BETWEEN(<выр>,<выр1 >,<выр2>) истинно (.Т.), если <выр1>   <выр>    <выр2>, иначе ложно (.F.)  (для чисел,   строк,  дат) округление числа <вырN>с  избытком целая часть числа <вырN> INТ(<вырN>) МАХ(<выр>,<выр1>[,<выр2>...]) максимальное значение из  CEILING(<вырN>) MIN<выр>,<выр1>[,<выр2>...])  минимальное значение из  списка аргументов (числа,  строки, даты) MOD(<вырN1 >,<вырN2>) ROUND(<вырN1 >,<вырN2>) SIGN(<вырN>) списка     аргументов целочисленный остаток от  деления <вырN1 > на <вырN2> округление числа <вырN1> до   <вырN2> знаков после запятой знак числа <вырN> 3.1.2  Функции преобразования 36 Функция Описание АSС (<вырC>) CHR (<вырN>) STR (<выpN>,[<длинa>, [<дec.знaки>]]) VAL (<вырС>) выдает ASCII код первого  символа преобразует число в символ в  соответствии с кодом преобразует число <вырN> в  строку длиной <длина> с  указанным числом <дес.знаки> преобразует символьную запись числа в число 37 3.1.3 Функции обработки мемо­полей Функция ATLINE(<вырc>,<мемо поле>) ATCLINE (<вырC>,<мемо поле>) Описание первое вхождение строки  <вырC>  в <мемо поле> то же без различения строчных и прописных букв RATLINE(<вырC>,< мемо поле >) последнее вхождение строки  MLINE(<мемо поле >,<вырN>) MEMLINES(<мемо поле>) <вырС>  в <мемо поле> возвращает строку <вырN> из   <мемо поля> число строк в мемо поле 3.1.4 Функции работы с датами Функция Описание СТОD(<вырC>) DATE( ) DAY(<вырD>) DMY(<вырD>) DOW (<вырD>) DTOC (<вырD>) GOMONTH(<вырD>,<вырN>) MONTH(<вырD>) YEAR(<вырD>) преобразование даты из строки символов в формат даты системная дата число из даты представление даты в виде ДД  МЕСЯЦ ГГ  (или ГГГТ) номер дня недели преобразование выражения типа даты в строку символов возвращает дату, которая  отстоит от <вырD> на  ±<вырN> месяцев числовое значение номера  месяца по  дате числовое значение года по  дате 3.1.5 Функции позиционирования Функция Описание COL ( ) ROW ( ) РСОL ( ) PROW ( ) номер текущей колонки экрана  или окна номер текущей строки экрана  или окна номер текущей колонки на  принтере номер текущего столбца на  38 принтер 39 3.1.6 Функции проверки файлов и дисков Функция ВОF([<область>]) ЕОF[(<область>]) DBF([<область>]) DELETED([<область>]) FIELD(<вырN>[,<область>]) FOUND([<область>]) FCOUNT([<область>]) LUPDATE([<область>]) ORDER([<область>]) RECNO([<область>]) RECCOUNT([<область>]) RECSIZE([<область>]) HEADER([<область>) SЕЕK(<выр>[,<область>]) ТYРЕ(<вырС>) Описание достижение начала файла  (результат .Т. или .F.) достижение конца файла  (результат .Т. или .F.) выдает полное имя файла БД в  текущей области наличие пометки записи к  удалению (результат .Т.  или  .F.) выдает имя поля по его номеру  в активной БД успешное завершение поиска  (результат  .Т. или .F.) число полей в открытом файле БД дата последнего изменения БД имя главного индексного файла номер текущей записи  активного файла БД общее количество записей размер записи в байтах размер заголовка БД в байтах поиск записи с <выр> в  индексном файле выдает букву имени типа 3.1.7 Тригонометрические функции Тригонометрические функции  Visual  FoxPro, как правило, имеют   только   один   параметр   (аргумент).   К   таким   функциям относятся: Функция SIN() АSIN(<аргумент>) ACOS(<аргумент>) ТАN(<аргумент>) АТАN(<аргумент>) PI () DTOR (<аргумент>) Описание синус косинус арксинус арккосинус тангенс арктангенс возвращает значение числа Пи конвертирует градусы в  40 радианы. <Аргумент> указывается в градусах 3.1.8 Функции округления и взятия по модулю  В   Visual   FoxPro   9   присутствуют   следующие   функции округления и взятия по модулю: Функция ABS (<аргумент>) CEILING (<аргумент>) FLOOR (<аргумент>) INТ(<аргумент>) ROUND (<аргумент>,  <количество_знаков>) Описание абсолютное значение числа  (ABS(–10.7) = 1 0 . 7 ) ближайшее целое число,  большее, чем аргумент, если  он дробный (CEILING(10.7) =  11) ближайшее целое число,  меньшее, чем аргумент, если  он дробный (FLOOR(10.7) =10) целая часть аргумента  (INT(10.7) =10) округляет аргумент до  указанного количества знаков  после запятой (ROUND(75.235,  2) = 75.24). Допускается  отрицательное значение  количества знаков. Это  приводит к округлению до  десятков, сотен и так далее  (ROUND (75.235, –1) = 80). 3.1.9  Функция   вычисления   экспоненты  –   ЕХР (<аргумент>). 3.1.10 Функции вычисления логарифмов Функция LOG (<аргумент>) Описание натуральный логарифм (по  41 LOG10 (<аргумент>) основанию е) десятичный логарифм 42 3.1.11 Строковые функции Функция <вырС1>$<вырС2> AT /  ATC(<вырC1>,<вырC2>[,<вырN>) RАТ(<вырС1>,<вырС2>[,<вырN>) LEN(<вырC>) LIKE(<вырC 1 >,<вырС2>) OCCURS(<вырC1>,<вырС2>) LEFT(<вырC,<вырN>) RIGHT(<выpC,<выpN>) SUBSTR(<вырС>,<нач.поз.>, [<число символов>]) LTRIM(<вырC>)  TRIM (<вырC>) ALLTRIM(<вырC>) REPLICATE(<выpC>,<выpN>) SPACE(<вырN>) Описание вхождение <вырС1> в <вырС2>   (результат .Т. или .F.) поиск слева направо в строке  <вырС2>  позиции       вхождения подстроки <вырС1>,  начиная с   <вырN> позиции  строки <вырС2> то же справа налево длина строки <вырС> вхождение <вырС1> в <вырС2>  (результат .Т. или .F.) с  использованием символов маски * и ? число вхождений  <вырС1>в<вырС2> вырезка слева из строки  <вырC> символов  в колич.  <вырN> то же справа вырезка из строки <вырС1>  подстроки символов от  <нач.поз.>  в количестве  <число     символов> удаление начальных пробелов удаление завершающих пробелов удаление начальных и  завершающих  пробелов повтор <вырN> раз строки  <вырC> формирование строки пробелов  длины <вырN> 43 3.2      SET   ­команды Эти   команды   служат   дня   задания   флажков   состояний, параметров   среды   и   т.п.,   которые   обычно   задаются   в   начале текста   программы   и   в   случае   необходимости   переопределяются или   отменяются.   В   среде  Visual  FoxPro   имеется   свыше   100 таких команд. Приведем некоторые из них. За дополнительными разъяснениями можно обратиться к HELP. Функция SET ALTERNATE ON/OFF SET BELL ON/OFF SET BLINK ON/OFF SET SENTURY ON/OFF SET CLOCK ON/OFF SET COLOR TO SET COLOR OF SCHEME SET CURRENCY TO SET DATE TO... SET DECIMALS TO… SET DEFAULT TO... SET DELETED ON/OFF SET ECHO ON/OFF SET ESCAPE ON/OFF SET FILTER TO… SET FUNCTION...TO... SET HELP ON/OFF SET INDEX TO… SET KEY TO SET MESSAGE TO… SET ORDER TO... SET PATH TO… SET PRINTER ON... SET PROCEDURE TO...  SET RELATION TO SET RELATION OFF SET SKIP TO… Описание установить флаг вывода данных с экрана в файл установить флаг звукового сигнала установить флаг мигания символов установить флаг отображения столетия в  датах установить флаг вывода времени задать цвета меню и окон пользователя задать цвета схемы задать денежный знак определить формат даты установить число цифр в дробной части числа задать диск и каталог по умолчанию установить флаг доступа к записям с  пометкой удаления установить флаг активизации окна отладки установить флаг прерывания по клавише ESC задать фильтр доступа к записям связать команду с функциональной  клавишей установить режим доступа к помощи открыть индекс задать предельное значение ключевого   индекса задать местоположение сообщений задать основной индекс задать список каталогов для поиска  файлов установить флаг вывода на принтер открыть заданный процедурный файл установить связь 1:1 с другой БД разорвать связь с другой БД установить связь 1:N с другой БД 44 SET SPACE ON/OFF SET TALK ON/OFF установить флаг вставки пробелов установить флаг вывода результатов  выполнения команд ДЛЯ ЗАМЕТОК 45 ДЛЯ ЗАМЕТОК 46 ДЛЯ ЗАМЕТОК 47