Добавление, изменение и удаление файлов проекта VFP
|
« Назад Выполняется либо интерактивно, либо программно. Файл добавляется методом Add коллекции Files объекта Project. При добавлении файла одновременно создается объект File, добавляемый в коллекцию Files. Также при добавлении файла происходит событие QueryAddFile (непосредственно перед добавлением файла). Файл не будет добавлен, если обработчик события QueryAddFile содержит команду NODEFAULT. Файл открывается для изменения методом Modify и удаляется методом Remove объекта File коллекции Files. Пример (заимствован с некоторыми изменениями из справки VFP). && Подготовительные операции && local lcCode && Заносим в переменную lcCode код программы, && который затем будет сохранен в файле d:\AddSample.prg' text to lcCode noshow clear public loForm && Завершаем обработку событий при выходе из приложения on shutdown clear events loForm = CreateObject('Test1') loForm.Show(0) read events && Начинаем обработку событий && Освобождаем установку команды после выполнения CLEAR EVENTS on shutdown && define class Test1 as Form Top = 0 Left = 0 Width = 320 Height = 90 Caption = 'Пример для методов Add и Build' && Показываем форму в виде самостоятельного окна ShowWindow = 2 && Добавляем кнопку add object cmdClose as CommandButton with ; Caption = '\<Закрыть', Top = 50, Left = 120, Height = 24, Width = 80 && Добавляем надпись add object lblTitle as Label with ; Top = 20, Left = 70, AutoSize = .T., ; Caption = 'Этот пример выполнен программно' && && Обработчики событий формы и ее кнопки && procedure Init && Выполняется при открытии формы ThisForm.AutoCenter = .T. endProc && && Последнее событие, выполняемое перед освобождением формы procedure Unload clear events ndProc && procedure cmdClose.Click ThisForm.Release && или: QUIT endProc endDefine endText && Конец подготовительных операций && && Записываем в файл d:\AddSample.prg' && код хранимой в переменной lcCode программы Strtofile(lcCode, 'd:\AddSample.prg') && && Отказываемся от вывода предупреждений set safety off && Создаем проект, не отображая диспетчер проектов create project 'd:\AddSample' noshow nowait save local loPJX loPJX = _VFP.ActiveProject with loPJX && Добавляем в проект файл и устанавливаем главную программу && Помним, что Add – это метод коллекции Files .Files.Add('d:\AddSample.prg') .SetMain('AddSample.prg') && Создаем исполняемый EXE-файл .Build('d:\AddSample.exe', 3, .T., .T., .F.) && Закрываем проект .Close endWith && && Запускаем созданный EXE-файл; результат приведен на рис. 9.7 run /n d:\AddSample.exe Рис. 9.7. Выполняется файл d:\AddSample.exe |
