Система управления базами данных Visual FoxPro5.0 - от начальных навыков к профессиональной работе. Крушель Е.Г - 22 стр.

                                          68

   C=Character       N=Numeric
   F=Float           D=Date
   M=Memo
   Field_len - в это поле в качестве записей будут скопированы значения ширины полей
   файла прототипа;
   Field_dec - в это поле в качестве записей будут скопированы числа знаков после
   десятичной точки в числовых полях прототипа.

   После копирования можно откорректировать записи уже известными Вам средствами
   и завершить работу командой создания файла с использованием информации из
   унифицированного файла:
       CREATE<имя файла без расширения> FROM < имя унифицированного файла>
Всегда уничтожайте унифицированный файл после выполнения команды CREATE FROM
командой ERASE < имя файла с расширением>. Уничтожаемый файл должен быть
предварительно закрыт (CLOSE или USE без указания имени, USE <имя другого файла>).

   Постарайтесь самостоятельно составить программу, выполняющую следующие
   функции:
   открыть файл students.dbf в рабочей области, принятой по умолчанию;
   создать унифицированный файл с именем stud_tmp.dbf;
   удалить в этом файле записи, относящиеся к полям прототипа Балл_сес03 и
   Балл_сес04;
   создать файл stud_ivt.dbf по информации из унифицированного файла;
   уничтожить унифицированный файл stud_tmp.dbf.
При затруднениях в составлении используйте текст программы copystru.prg [3](см. ниже).


*Программное создание файлов “по образцу структуры” в Visual FoxPro 5.0____________
Если строка команды слишком длинная, то ее можно разбить на части знаком ";" (точка с
запятой).
Программа copystru.prg
CLOSE ALL           && закрываются все файлы, которые были до этого открыты.
USE students        && файл students.dbf открывается в рабочей области А;
BROWSE              && просматривается файл students.dbf. Для продолжения Esc.
y1= FIELD(7)               &&переменным памяти y1 и y2 присваиваются значения=
y2= FIELD(8)               && именам полей 7 и 8
*Старайтесь всегда делать такое присвоение:
*Вы избежите ошибки неточного ввода имен полей;
*Программу будет легче перестроить для работы с другими файлами базы данных.______
COPY TO stud_tmp STRUCTURE EXTENDED
                    &&создается унифицированный файл
USE stud_tmp        &&этот файл открывается в рабочей области А
BROWSE              && просматривается файл stud_tmp
DELETE FOR field_name= y1.OR.field_name= y2
                    &&удаление “лишних” записей (т.е. ненужных для &&нового файла
                    полей)
BROWSE              && просмотр унифицированного файла с двумя записями,
                    &&помеченными, как удаленные.
PACK                &&физическое удаление записей, помеченных как удаленные
CREATE stud_ivt FROM stud_tmp
                    &&воссоздание структуры по информации из stud_tmp.dbf
USE stud_ivt        && открывается новый файл stud_ivt.dbf с созданной структурой в
                    &&рабочей области А;