Лабораторная работа №2
USE "C:\Documents and Settings\Admin\Рабочий стол\Учеба контр лабы\foxpro\student.dbf"
BROWSE
MODIFY STRUCTURE
BROWSE
SET HEADING OFF
SET MEMOWIDTH TO 20
CLEAR
DISPLAY biografiya
DISPLAY all off biografiya
BROWSE FIELDS fam: R
BROWSE FIELDS fam FOR kom
BROWSE FIELDS num_zachet: V=(num_zachet>=10).AND. (num_zachet<=500): e="Уточните номер"
REPLACE biografiya WITH "dopisanie" ADDITIVE FOR gruppa="4ас-1"
CLEAR
DISPLAY all off biografiya
BROWSE
REPLACE num_zachet WITH 205 FOR fam="Долов"
DELETE FOR kom
BROWSE FOR NOT DELETED()
BROWSE
SET DELETED ON
BROWSE
RECALL ALL
BROWSE
DELETE
PACK
BROWSE
SET FILTER TO kom
BROWSE
SET FILTER TO "С" $ fam
BROWSE
SET FILTER TO
BROWSE
LOCATE FOR gruppa="4ас-1"
DO WHILE FOUND()
? RECNO(), fam
CONTINUE
ENDDO
USE "C:\Documents and Settings\Admin\Рабочий стол\Учеба контр лабы\foxpro\examen.dbf"
BROWSE
LOCATE FOR ((predmet="Математика")and(ball=5))or((predmet="ОС и среды")and(ball=5))
DO WHILE FOUND()
? RECNO(), num_zachet
CONTINUE
ENDDO
USE "C:\Documents and Settings\Admin\Рабочий стол\Учеба контр лабы\foxpro\student.dbf"
BROWSE
INDEX ON gruppa TO idgr
INDEX ON num_zachet TO idnum ADDITIVE
CLOSE ALL
USE student INDEX IDGR.IDX IN 1 NOUPDATE
BROWSE
USE student INDEX IDnum.IDX IN 2 AGAIN NOUPDATE
SELECT 2
BROWSE
Уважаемый посетитель!
Чтобы распечатать файл, скачайте его (в формате Word).
Ссылка на скачивание - внизу страницы.