MS Visual Foxpro Club : Visual FoxPro 7.0, что мы знаем на сегодня

Можно ли из отчёта, полученного средствами создания отчёта в Visual FoxPro получить "полнофункциональный текстовый документ" (шрифты, и т.д.)?
Ответ: Напрямую нет. Средствами отчёта можно получить только чисто текстовый документ (опция ANSI в команде REPORT). Если Вам необходимо получить "полнофункциональный документ" какого-либо продукта, например Word, Вам следует использовать OLE-механизм именно этого продукта для оформления своих результатов из Visual FoxPro. К списку вопросов.
Почему триггер выдаёт ошибку?
Ответ: Потому что на момент выполнения триггера данные, не удовлетворяют его требованиям. Для того, чтобы понять что именно происходит, лучше всего проследить соответствующий участок кода в отладчике. Без анализа конкретной ситуации можно предположить, что буферизация записей изменяемой таблица не соответствует логике внесения изменений, прописанных в коде. Например, Вы вставляете новую запись в таблицу, без использования свойств default value для полей, только намериваясь внести соответствующие изменения, а триггер уже отработал. К списку вопросов.
Как следует устанавливать режим буфферизации для источников данных формы?
Ответ: Лучший вариант: переустановить свойство Form.BufferMode окна в значение 2-Optimistic. В этом случае, если свойства Form.DataEnvironment.Cursor(i).BufferModeOverride у источников данных окна будут установлены в значение по умолчанию: 1-Use Form Setting (Default), то все отмеченные выше проблемы снимаются автоматически, впрочем Вы вольны устанавливать способ буферизации курсоров окна так, как найдёте нужным. К списку вопросов.
Почему могут возникнуть проблемы с удалением записей из таблицы, имеющей Primary Key?
Ответ: Данная проблема возникает потому, что не удаётся всегда уследить за корректной установкой системного режима Set Deleted в состояние On при использовании таблицы, а в состоянии Off конечно требования по уникальности значения Primary Key нарушаются. Чтобы устранить эту проблему следует индексам, соответствующим как Primary Key, так и Candidate назначить значение фильтра, содержащего выражение: Not Deleted(). Нужно иметь ввиду, что при этом не будет выполняться Rashmore оптимизация, поэтому сказанное выше приемлемо, если нет проблем производительности. В противном случае Вам следует подумать над возможностью снова использовать прежде помеченные к удалению записи (см. RECALL Command)К списку вопросов.
Почему exe-модуль созданный в Visual FoxPro "не работает" при попытке запустить его на машине, где не установлена полная версия Visual FoxPro, а только RunTime-овская часть его?
Ответ: Я больше чем уверен, что этот же модуль не будет работать и там, где установлена полная версия, если запустить его не из-под оболочки Visual FoxPro. Попробуйте, и если это действительно так, то причина проста. В этом модуле следует организовать бесконечный цикл для обработки событий, происходящих в нём, и прерываемый по команде завершения работы модуля. Делается это командами Read Events и Clear Events соответственно. К списку вопросов.
Я экспериментально установил, какой набор файлов следует поместить в каталог вместе с exe-модулем, созданным в Visual FoxPro, чтобы он корректно работал на клиенте без установки RunTime-овской части Visual FoxPro. Правильно ли я сделал, не будет ли у меня проблем в будущем?
Ответ: Думаю, что у Вас будут проблемы, когда Вы понесёте ещё один, созданный Вами модуль тому же клиенту, а возможно и новую версию прежнего модуля, которая, к примеру, начнёт использовать ODBC-драйвер Visual FoxPro. Поэтому, лучший вариант переноса, - создание дискрибутива, используя Wizard Setup самого Visual FoxPro. Правда иногда он работает с ошибкой, которая заключается в том, что в информационных файлах дискрибутива регистрируются файлы, которые на самом деле не копируются на дискрибутивные диски. Для устранения этой проблемы следует вручную отредактировать эти файлы, приведя их в соответствие с тем, что на самом деле находится на дискрибутивных дисках. К списку вопросов.
Почему при активизации окна выдаётся ошибка об отсутствии открытой таблицы?
Ответ: Ну, видимо по тому, что кто-то уже успел её закрыть, если она вообще открывалась. Работа с полями данных из курсоров, “присоединённых” к оконным объектам, требует держать открытыми все используемые в окне курсоры. Это не вызывает трудностей с одним активным окном (используя Form.DataEnvironment.AutoOpen Tables = .T. (Default), и наоборот Form.DataEnvironment.AutoClose Tables = .F. ), но может привести к проблемам при одновременной работе с несколькими окнами, если в них имеются, например противоречивые установки Set Relation to … В таких случаях лучше всего использовать свойство Form.DataSession, установленное в значение 2-Private Data Session (в этом случае можно себе позволить и Form.DataEnvironment.AutoClose Tables = .T.). Здесь нужно предупредить, что в каждой из сессий данных, Вам следует побеспокоиться о наборе установок Set …, сразу после открытия сессии. К списку вопросов.
Почему создаваемые в Visual FoxPro таблицы не имеют кодовой страницы 1251?
Ответ: Это странно, если у Вас установлена руссифицированная версия Windows. Но в любом случае, нужно добиться того, чтобы значение, получаемое от функции Cpcurrent() было 1251. Если это на Вашей машине, достаточно выбрать пункт Tools/Options… и изменив режим Collate sequence в значение Russian на закладке Data, выполнить Set As Default. Далее, неплохо было бы пройтись по созданным Вами проектам и в каждом из них, открыв диалог Project Info…, на закладке Files выполнить пункт Update Native Code Page для отображения кодовых страниц файлов, включенных в проект. Программа Cpzero поможет Вам изменить кодовые страницы любых файлов со структурой DBF. Наконец, на клиентских машинах, использующих выполнимые файлы, следует попытаться обеспечить установку кодовой страницы путём добавления параметра: CODE PAGE=1251 в файлы Config.fpw в текущих каталогах этих исполняемых фалов. К списку вопросов.
Почему во время работы в форме операция добавления выполняется успешно, а по выходу из формы все изменения теряются. В чём проблема?
Ответ: Анализ неработающего варианта показал, что проблема была в “неосторожном” использовании функции TABLEUPDATE() при буферизованном источнике данных. Следует всегда анализировать возвращаемое значение этой функции, и если оно будет иметь значение .F. необходимо дополнительно использовать функцию AERROR() для уточнения причин отказа системы в сохранении данных (Visual FoxPro 5.0 имеет пример класса DataChecker в Vfp\Samples\Classes\Samples.vcx демонстрирующий корректные способы сохранения данных. Более простой способ сохранения данных Вы можете увидеть в Tasmanian Traders Sample: метод tsBaseForm.Save() в библиотеке классов Vfp\Samples\Tastrade\Libs\Tsbase.vcx). В данном конкретном случае отвергал сохранение триггер добавления данных соответствующей таблицы. К списку вопросов.
С чего начать и как практически использовать объектный подход при программировании в Microsoft Visual FoxPro, после того как Мы определились со структурой прикладных данных?
Ответ: Прежде всего, на мой взгляд, следует упомянуть следующие моменты относительно данных:
Необходимо пройтись по всем таблицам и для каждого из полей придать значение заголовку поля (Caption) и дать определение поля (Field comment) на закладке Fields, если Вы этого ещё не сделали. При этом следует также указать русские названия таблиц (псевдонимы таблиц) (Name) и дать определения таблицам (Table comment) на закладке Table. Следует отметить, что хоть версия Visual FoxPro 5.0 и позволяет вводить многословные псевдонимы таблиц, лучше все же иметь однословные псевдонимы, полученные соединением слов посредством символа ‘_’. Относительно названий полей, следует сказать, что хоть для таблиц, помещённых в базу данных Visual FoxPro и имеется ограничение в 128 символов, рано или поздно может возникнуть необходимость переноса данных на SQL Server, где, конечно же, имеются свои ограничения (например, для MS SQL Server 6.5 длина поля 30 символов, к тому же имена полей, конечно же используются при программировании на сервере [Transact-SQL], где первый символ ‘@‘ обозначает рабочую локальную переменную, уменьшая тем самым фактическую длину поля до 29 символов), более того, название индекса в Visual FoxPro 5.0 составляет всего 10 символов, остальные будут отброшены, если вы создадите индекс, базируясь на поле.
Далее проследите, пожалуйста, за тем, чтобы для всех primary keys были определены функции, возвращающие новые значения ключей (default value), это же самое следует проделать и для всех значений ключей foreign keys в каждой из таблиц. Код соответствующих функций должен быть помещён в базу данных в виде сохранённых процедур. Поверьте, что это не проблема конечного приложения, пытаться корректно генерировать новые значения ключей, это непременно должно быть свойством данных, а не конечного клиента. Пример простой сохранённой процедуры, позволяющей получать новые значения ключей для таблиц, Вы можете найти в Vfp\Samples\Tastrade\Data\Testdata.dbc - FUNCTION NewID(). Относительно значений для foreign keys, думаю, что можно придерживаться следующего правила: в любой таблице, являющейся источником данных для других таблиц, первая запись, с начальным значением ключа primary key, - является значением по умолчанию для всех других таблиц, т.е. именно это значение следует определить в качестве свойства default value для всех полей foreign keys.
Пройдите ещё раз по всем полям ваших таблиц и посмотрите критически: нельзя ли на этапе ввода, используя маску поля (Input mask) отсечь чисто формальные ошибки ввода; определите также формат отображения данных (Format); а если есть необходимость, создайте функции контроля данных уровня поля (Rule) и определите текст сообщения (Message), выдаваемого при нарушении этих правил на закладке Fields. Если имеется необходимость проверки условия между значениями разных полей одной записи таблицы, то непременно следует воспользоваться функцией контроля данных уровня таблицы (Rule) и определите текст сообщения (Message), выдаваемого при нарушении этого правила на закладке Table.
Наконец, зайдите в среду редактирования базы данных (Modify database ... exclusive) и, вызвав диалог контроля целостности данных (Database/Edit Referential Integrity…), установите необходимые опции контроля (Restrict | Cascade | Ignore) на события изменений данных (Update, Delete, Insert) между всеми связанными парами таблиц. Если нужные Вам пары таблиц не появились в диалоге контроля целостности данных, то зайдите в редактирование соответствующих таблиц и установите им primary key, после чего определите межтабличные связи, т.е. foreign key. Здесь уместно ещё раз повторить, что, используя функцию TABLEUPDATE() при буферизованном источнике данных, следует всегда анализировать возвращаемое значение этой функции, и если оно будет иметь значение .F. необходимо дополнительно использовать функцию AERROR() для уточнения причин отказа системы в сохранении данных и известить об этом пользователя, посредством выдачи соответствующего предупреждения.
Далее, для создания собственно приложения на начальном этапе Вы можете воспользоваться, по крайней мере, двумя заготовками: классом cApplication, создаваемым Application Wizard (Tools \Wizards\All…) или классом tastrade в примере Tasmanian Traders Sample (Vfp\Samples \Tastrade\Libs\ Main.vcx), унаследованном от Application в Vfp\Samples\Tastrade\Libs\Tsgen.vcx. В первом случае Вам, скорее всего, потребуется, наследуясь от cApplication, создать собственный класс приложения, добавляя в него нужную функциональности из классов tastrade и Application, например поддержку Toolbar. Конечно же, Вы можете написать всё с нуля самостоятельно, однако, скорее всего при этом Вы обнаружите, что пишете то, что уже написано в вышеупомянутых классах.
Наконец, для обеспечения “стандартной функциональности” работы с формой, лучший вариант заключается в использовании класса tsBaseForm и наследованного от него tsMaintForm из Vfp\Samples\Tastrade\Libs\Tsbase.vcx. Если Вам принципиально не нравится, как работают формы в примере Tasmanian Traders Sample, то, конечно же, Вы можете не придерживаться моих советов и писать всё с нуля самостоятельно. Однако поверьте мне, что Вам придётся написать те же самые методы, и очень сомневаюсь, что они будут существенно отличаться по содержанию, когда Вы заставите их работать. Конечно же, указанные выше классы обладают лишь минимально необходимой функциональностью, и Вам потребуется их развивать и совершенствовать по мере необходимости. Если же Вы не планируете использовать объектно-ориентированный стиль программирования и клиент-серверную технологию для работы с данными, то видимо, Вам серьёзно нужно подумать об использовании какого-нибудь другого средства программирования баз данных для написания клиентских приложений. К списку вопросов.
Как вернуть числовое кодовое значение из ComboBox с двумя полями (символьное название, числовой код) для записи его в числовое поле таблицы, т.е. когда данные таблицы для ComboBox являются подчинёнными некоторой родительской таблицы по числовому кодовому полю?
Ответ: Для версии Visual FoxPro 3.0 исчерпывающий ответ зарегистрированные пользователи могут найти в Internet по адресу: http://premium.microsoft.com/msdn/library/ (анг.) в разделе Preodicals/FoxTalks/Volume 8 1996 : (http://www.pinpub.com/foxtalk/) статья Use a Combo Box to Select Foreign Keys (для краткости детали я здесь не обсуждаю). В версии Visual FoxPro 5.0a достаточно у ComboBox установить свойство BoundTo в значение: .T., отличное от .F. (default), конечно же определив свойства: BoundColumn, ControlSource, RowSource и RowSourceType соответствующим образом. К списку вопросов.
Как в экземпляре класса tsBaseForm из Vfp\Samples\Tastrade\Libs\Tsbase.vcx предотвратить использование Toolbar, поскольку в данном конкретном случае формы у меня нет необходимость в функциях навигации между записями?
Ответ: Достаточно изменить значение свойства cToolbar этого класса с названия класса tsToolbar (действующего по умолчанию) на пустую строку. Если при этом у Вас всё же остаётся необходимость в использовании других, отличных от навигационных методов, как-то: AddNew, Save, Restore и т.д., то Вам потребуется альтернативные способы вызова этих методов, например, посредством добавления в форму командных кнопок. Далее, в целом ряде методов, например AddNew, имеется безусловное использование свойства Enabled кнопки cmdNew, поэтому следует обеспечить условное обращения к этому свойству: IF TYPE(‘oApp’) = ‘O’ AND !EMPTY(ThisForm.cToolbal), произведя соответствующую корректировку во всех аналогичных случаях в методах данного класса. К списку вопросов.
Я создал двухтабличный Local view с использованием ключевого слова Join из построителя View, а он не работает так, как я ожидал. В чём дело?
Ответ: Microsoft Visual FoxPro 5.0a имеет проблему при создании Local view, содержащих ключевое слово Join: в список таблиц, следующих сразу за ключевым словом FROM, помещается полный список таблиц, участвующих в запросе, тогда как при наличии Join, требуется исключить из него те таблицы, которые используются непосредственно в Join. Далее, если в Join вовлечено более двух таблиц, то условия "соединения" записей, т.е. параметры ON, должны следовать сразу за соответствующими Join, в то время как построитель LocalView создаёт группу параметров ON в конце списка параметров Join. Мной написана утилита ModeView.exe, которая поможет Вам произвести соответствующую корректировку Local view базы данных, правда ею придётся пользоваться после любых изменений с сохранением ваших Local view, содержащих Join непосредственно перед их использованием в приложении [Получить копию ModeView.exe]. К списку вопросов.
Каким образом я могу отображать подчинённое множество записей в Grid для некоторой записи в родительской таблице, если источником данных для Grid является View?
Ответ: Принципиально имеется две возможности сделать это: использовать параметрический запрос в качестве источника данных к Grid или установить для него соответствующее свойство Filter. Каждый из этих случаев может существенно отличаться объёмом пересылаемой информации между сервером данных и клиентом, нужно также отметить, что в первом случае Вам потребуется явное применение функции REQUERY() для источника данных Grid после перемещения указателя текущей записи в родительской таблице, чтобы повторно выполнить запрос данных согласно изменившемся условиям. К списку вопросов.
Как быстро осуществлять доступ к элементам управления в форме в режиме редактирования для настройки их свойств, если форма содержит PageFrame? Не удаётся с помощью мыши переключить закладки окна и/или выбрать какой-либо элемент.
Ответ: Для выбора какого-либо элемента, содержащегося в контейнерном классе достаточно на нём нажать правую клавишу мыши и в раскрывшемся меню выбрать пункт Edit, после чего Вам становятся доступными для редактирования объекты верхнего уровня этого класса, и т.д. К списку вопросов.
Как добавить CheckBox и ComboBox в качестве отображаемых элементов столбцов в Grid?
Ответ: Прежде всего, следует отметить, что для CheckBox тип данных соответствующего ему поля источника данных должен быть логическим, в то время как использование ComboBox подразумевает, что Вы определите для него свойства: RowSource, RowSourceType, Style (данные, отображаемые в ComboBox или подчинённый источник данных) и ControlSource, BoundColumn, BoundTo (возвращаемое значение, т.е. редактируемое поле таблицы-источника данных Grid, для которого ComboBox собственно и отображает подчинённое значение).
Для добавления CheckBox проще всего использовать Builder для Grid (вызов по правой кнопке мыши Builder…), где на закладке Layout следует переустановить значение Control type в CheckBox для соответствующего столбца Grid. Проследите, чтобы перед вызовом Builder используемые таблицы были предварительно открыты, поскольку он может анализировать содержание только открытых таблиц, предоставляя Вам информацию для настройки.
Элементы CheckBox или ComboBox можно добавить и во время редактирования Grid. Для этого выберите Ваш столбец в качестве активного (Columni в окне Properties) и перетащите нужный Вам элемент (CheckBox или ComboBox) из Forms Controls Toolbar в первую строку Grid. Если теперь Вы раскроете ComboBox объектов в окне Properties, то увидите, что выбранный Вами элемент добавлен в качестве элемента столбца (сразу после Text1), хотя и не является пока активным. Наконец, чтобы активизировать добавленный Вами элемент переустановите свойство CurrentControl для столбца Columni на нужный Вам элемент. К списку вопросов.

Каким образом следует производить некоторые вычисления для сохранения результатов из формы?
Ответ: Идеальным, но, к сожалению, не всегда возможным является триггеры соответствующих источников данных, так в триггере update для некоторой таблицы попытка внести изменения в эту же таблицу завершается ошибкой. Ошибку здесь также вызывает попытка перемещения указателя активной записи, что исключает возможность сканирования таблицы с целью выполнения некоторых вычислений. Таким образом, если результаты вычислений требуется произвести и сохранить в поля этой же, т.е. изменяемой записи, или для вычислений Вам требуется сканирование изменяемой таблицы, то скорее всего Вам необходимо будет изменить метод Save формы, т.е. сразу перед TABLEUPDATE() сделать вызов дополнительного метода, например PrepSave, который и выполнит необходимые вычисления и изменения перед сохранением записи. Нужно сказать, что процедуру, выполняющую вычисления и производящую эти изменения в таблице следует оформить в виде сохранённой процедуры, вызываемой из формы.
Следует также отметить, что дополнительные трудности у Вас возникнут при использовании редактируемого объекта Grid, поскольку он самостоятельно производит сохранение изменений из буфера своего источника при переходе с записи на запись. В последнем случае Вам потребуется переопределить Valid-функцию объекта, отображающего данные в столбце (Column), из которой и осуществить вызов метода Save формы. И все же лучший вариант заключается в таком проектировании структуры таблиц, чтобы все необходимые изменения могли быть выполнены в соответствующих триггерах, например, выделив вычисляемые поля в отдельную таблицу и связав ее соответствующим образом с исходной. К списку вопросов.
Почему во время интерпретации меню у меня возникает синтаксическая ошибка, хотя в тексте программы никакой ошибки нет?
Ответ: Если верхняя линейка меню, содержит пункты, в которых переопределены клавиши быстрого вызова (ALT+…) на русские буквы, то во время интерпретации такого меню возникает синтаксическая ошибка. Можно предложить следующие способы устранения:
Изменить, если возможно, содержание пунктов так, чтобы переопределямые клавиши быстрого вызова совпали с первыми буками самих пунктов, при этом не следует использовать символы выделения \< .
Переопределить функцию обработки ошибок, игнорируя данную ошибку (в setup меню переустановит функцию обработки ошибок с сохранением прежней функции, в cleanup восстановить прежнюю). В этом случае, при попытке воспользоваться клавишами быстрого вызова не происходит активизация пункта, в то время как система выдаёт звуковой сигнал. К списку вопросов.
Имеется ли простая возможность изменить месторасположение базы данных у FoxPro приложения?
Ответ: Если речь идёт об объектах Cursors, помещаемых в DataEnvironment отчётов и форм, то значение свойства Database у них в режиме выполнения доступно как "только для чтения". Поэтому Вам не удастся на этапе выполнения изменять его динамически. Однако Вы можете:
При новом месторасположении базы данных, в то время как её прежнее месторасположение уже недоступно, в среде редактирования последовательно открыть все формы и отчёты и на вопрос о невозможности открыть базу данных указать её новое месторасположение. Внесённые изменения следует, конечно, сохранить при выходе из диалога редактирования формы/отчёта.
Если предложенный вариант Вам кажется утомительным, Вы можете произвести соответствующие изменения, открыв файлы *.scx и *.frx "вручную". (См. для *.scx поля: Class и Properties, а для *.frx поля: Name и Expr. Вам необходимо отредактировать свойство Database у объекта Cursor).
Наконец последний вариант можно выполнить программно. Для этой цели мной написана утилита ChangeDb.exe. [Получить копию ChangeDb.exe]
Нужно отметить, что в Visual FoxPro версии 6.0 такого вопроса нет, поскольку здесь указанное выше свойство Database в режиме выполнения доступно как на чтение, так и на запись. К списку вопросов.
Я хотел бы по щелчку мыши на заголовке столбца Grid переустанавливать активный индекс у источника. Переустанавливать индекс получается, но я при этом теряю текущую запись. Как я должнен сделать, чтобы запись после переустановки индекса оставалась прежней?
Ответ: В VFP6.0 магическое действие в Grid.Header.Click() следующее:
```
LOCAL lnRecNo

lnRecNo = IIF(!EOF(), RECNO(), -1)

ThisForm.DataEnvironment.cursor1.Order = "Column_Order"

WITH This.Parent.Parent

   .ActivateCell(1, .ActiveColumn)

   IF lnRecNo > 0

      GO (lnRecNo)

   ELSE

      GO TOP

   ENDIF

   .Refresh()

ENDWITH
```

Ответы на вопросы