Thor – расширение возможностей IDE Fox

Thor – это инструмент для управления дополнительными инструментами в IDE Fox, управления меню и назначениями горячих клавиш для инструментов IDE Fox.

Скачать программу Thor можно здесь:
https://github.com/VFPX/Thor

Скачать дополнительные инструменты для Thor можно здесь:
https://github.com/VFPX/ThorRepository

Автор публикации

не в сети 3 недели

Михаил Леменёв

Комментарии: 0Публикации: 9Регистрация: 02-10-2022

(далее…)

Библиотека программ VFP2C32

VFP2C32 (аббревиатура от "VFP to C 32 bit") — это мост между Visual Foxpro и языком программирования C.
Кроме того, он содержит оболочки вокруг многих функций Windows API.
С помощью этой библиотеки вы можете создавать любые типы данных C — структуры, объединения, массивы — из VFP.
Создание классов-оболочек для типов структур или объединений C объясняется в теме VFP2C32Front.
Оболочки Windows API позволяют использовать широкий спектр встроенных в Windows функций.

Обзор функций по категориям.

• Функции, работающие с собственными массивами VFP.
• Функции для преобразования курсоров и массивов VFP в массивы в стиле C и наоборот.
• Эмуляция функции обратного вызова C и асинхронные события.
• Функции манипулирования памятью для эмуляции структур C.
• Функции, связанные с COM/OLE.
• Некоторые общие диалоги.
• Различные функции преобразования.
• Функции, предоставляющие информацию о часовых поясах, преобразуют значения даты и времени в распространенные типы C и обратно.
• Извлекайте информацию или манипулируйте файлами и каталогами.
• Общие библиотечные функции.
• Расширенные функции низкоуровневой обработки файлов.
• Распределение памяти.
• Различные полезные функции.
• Все, что передается по сети.
• Расширенные функции ODBC.
• Предоставляет информацию о принтерах.
• Предоставляет информацию о процессах, запущенных в системе.
• Управление подключениями RAS (удалённого доступа).
• API для управления реестром.
• Извлечение информации о ресурсах в модулях (dll и исполняемых файлах).
• Получение информации и управление службами Windows.
• Обертки вокруг нескольких функций оболочки Windows.
• Получение информации о системе.
• Получение информации о томах.
• Получение информации об окнах.

Скачать исходные тексты и примеры можно здесь: https://github.com/ChristianEhlscheid/vfp2c32

Автор публикации

не в сети 3 недели

Михаил Леменёв

Комментарии: 0Публикации: 9Регистрация: 02-10-2022

(далее…)

Получение и обновление данных с помощью CursorAdapters

Дуг Хенниг

Новый базовый класс CursorAdapter, добавленный в VFP 8, обеспечивает простой в использовании и согласованный интерфейс для данных. В статье этого месяца показано, как использовать CursorAdapter для доступа к локальным и удаленным данным через ODBC, ADO и XML, а также обсуждаются конкретные требования и «подводные камни» для каждого из них.

Как я уже говорил в статье «Адаптируйте свои курсоры к CursorAdapters»,  одной из самых важных и интересных новых возможностей VFP 8 является новый базовый класс CursorAdapter. В прошлом месяце мы рассмотрели свойства, события и методы CursorAdapter и обсудили его преимущества по сравнению с использованием удаленных представлений, сквозной передачи SQL (SPT), ADO и XML.

Прежде чем вы начнете использовать CursorAdapter, вы должны знать об особых требованиях класса, когда вы используете его для доступа к собственным данным или удаленным данным через ODBC, ADO и XML. В статье этого месяца приводятся подробные сведения о каждом типе источника данных.

Использование собственных данных

Хотя ясно, что CursorAdapter предназначен для стандартизации и упрощения доступа к данным, не относящимся к VFP, вы можете использовать его вместо Cursor, установив для свойства DataSourceType значение «Native». Зачем тебе это? В основном, как взгляд в будущее, когда ваше приложение может быть увеличено; просто изменив DataSourceType на один из других вариантов (и, вероятно, изменив несколько других свойств, таких как настройка информации о соединении), вы можете легко переключиться на другое ядро базы данных, такое как SQL Server.

Когда для DataSourceType установлено значение «Native», VFP игнорирует свойство DataSource. SelectCmd должен быть оператором SQL SELECT, а не командой или выражением USE, поэтому это означает, что вы всегда работаете с эквивалентом локального представления, а не непосредственно с таблицей. Вы несете ответственность за то, чтобы VFP мог найти любые таблицы, на которые ссылается оператор SELECT, поэтому, если таблицы не находятся в текущем каталоге, вам нужно либо указать путь, либо открыть базу данных, к которой принадлежат таблицы. Как обычно, если вы хотите, чтобы курсор был обновляемым, обязательно установите свойства обновления (KeyFieldList, Tables, UpdatableFieldList и UpdateNameList).
В следующем примере (NativeExample.prg, включенном в загрузку для подписчиков в этом месяце) создается обновляемый курсор из таблицы Customer в образце базы данных TestData VFP:

  local loCursor as CursorAdapter, ;  
  	laErrors[1]  
  open database (_samples + 'data\testdata')  
  loCursor = createobject('CursorAdapter')  
  with loCursor  
  	.Alias = 'customercursor'  
  	.DataSourceType = 'Native'  
  	.SelectCmd = ;  
  		"select CUST_ID, COMPANY, CONTACT from CUSTOMER " + ;  
  		"where COUNTRY = 'Brazil'"  
  	.KeyFieldList = 'CUST_ID'  
  	.Tables = 'CUSTOMER'  
  	.UpdatableFieldList = 'CUST_ID, COMPANY, CONTACT'  
  	.UpdateNameList = 'CUST_ID CUSTOMER.CUST_ID, ' + ;  
  		'COMPANY CUSTOMER.COMPANY, CONTACT CUSTOMER.CONTACT'  
  	if .CursorFill()  
  		browse  
  		tableupdate(1)  
  	else  
  		aerror(laErrors)  
  		messagebox(laErrors[2])  
  	endif .CursorFill()  
  endwith  
  close databases all  

Использование ODBC

ODBC на самом деле является самой простой из четырех настроек DataSourceType. Вы устанавливаете DataSource в открытый дескриптор соединения ODBC, устанавливаете обычные свойства и вызываете CursorFill для извлечения данных. Если вы заполните KeyFieldList, Tables, UpdatableFieldList и UpdateNameList, VFP автоматически сгенерирует соответствующие операторы UPDATE, INSERT и DELETE для обновления серверной части с учетом любых изменений. Если вместо этого вы хотите использовать хранимую процедуру, установите свойства *Cmd, *CmdDataSource и *CmdDataSourceType соответствующим образом (замените «*» на «Delete», «Insert» и «Update»).

Вот пример, взятый из ODBCExample.prg, который вызывает хранимую процедуру CustOrderHist в базе данных Northwind, поставляемой с SQL Server, для получения общего количества проданных единиц продукта для конкретного клиента:

  local lcConnString, ;  
  	loCursor as CursorAdapter, ;  
  	laErrors[1]  
  lcConnString = 'driver=SQL Server;server=(local); ' + ;  
  	'database=Northwind;uid=sa;pwd=;trusted_connection=no'  
 * измените пароль на соответствующее значение для вашей базы данных  
  loCursor = createobject('CursorAdapter')  
  with loCursor  
  	.Alias = 'CustomerHistory'  
  	.DataSourceType = 'ODBC'  
  	.DataSource = sqlstringconnect(lcConnString)  
  	.SelectCmd = "exec CustOrderHist 'ALFKI'"  
  	if .CursorFill()  
  		browse  
  	else  
  		aerror(laErrors)  
  		messagebox(laErrors[2])  
  	endif .CursorFill()  
  endwith  

Использование ADO

Использование ADO в качестве механизма доступа к данным с CursorAdapter имеет несколько больше проблем, чем использование ODBC:

• DataSource должен быть установлен в ADO RecordSet, в котором свойство ActiveConnection установлено на открытый объект ADO Connection.
• Если вы хотите использовать параметризованный запрос (что, скорее всего, является обычным случаем, а не получением всех записей), вы должны передать объект ADO Command, свойство ActiveConnection которого установлено на открытый объект ADO Connection в качестве четвертого параметра CursorFill. VFP позаботится о заполнении коллекции Parameters объекта Command (он анализирует SelectCmd, чтобы найти параметры) для вас, но, конечно, переменные, содержащие значения параметров, должны быть в области видимости.
• Использовать один CursorAdapter с ADO в DataEnvironment очень просто: вы можете установить для UseDEDataSource значение .T., при желании установите свойства DataSource и DataSourceType для DataEnvironment, как если бы вы использовали CursorAdapter. Однако это не работает, если в DataEnvironment имеется более одного CursorAdapter. Причина в том, что набор записей ADO, на который ссылается DataEnvironment.DataSource, может содержать только данные одного CursorAdapter; когда вы вызываете CursorFill для второго CursorAdapter, вы получаете ошибку «RecordSet уже открыт». Таким образом, если в вашем DataEnvironment имеется более одного CursorAdapter, вы должны установить для UseDEDataSource значение .F и самостоятельно управлять свойствами DataSource и DataSourceType каждого CursorAdapter (или, возможно, использовать подкласс DataEnvironment, который управляет этим за вас).

В приведенном ниже примере кода, взятом из ADOExample.prg, показано, как получить данные с помощью параметризованного запроса с помощью объекта ADO Command. В этом примере также показано использование новых структурированных функций обработки ошибок в VFP 8; вызов метода ADO Connection Open заключен в оператор TRY ... CATCH ... ENDTRY для перехвата ошибки COM, которую метод выдаст в случае сбоя.

  local loConn as ADODB.Connection, ;  
  	loCommand as ADODB.Command, ;  
  	loException as Exception, ;  
  	loCursor as CursorAdapter, ;  
  	lcCountry, ;  
  	laErrors[1]  
  loConn = createobject('ADODB.Connection')  
  with loConn  
  	.ConnectionString = ;  
  		'provider=SQLOLEDB.1;data source=(local);' + ;  
  		'initial catalog=Northwind;uid=sa;pwd=;' + ;  
  		'trusted_connection=no'  
 	* изменить пароль на соответствующее значение для вашей базы данных  
  	try  
  		.Open()  
  	catch to loException  
  		messagebox(loException.Message)  
  		cancel  
  	endtry  
  endwith  
  loCommand = createobject('ADODB.Command')  
  loCursor = createobject('CursorAdapter')  
  with loCursor  
  	.Alias = 'Customers'  
  	.DataSourceType = 'ADO'  
  	.DataSource = createobject('ADODB.RecordSet')  
  	.SelectCmd = ;  
  		'select * from customers where country=?lcCountry'  
  	lcCountry = 'Brazil'  
  	.DataSource.ActiveConnection = loConn  
  	loCommand.ActiveConnection = loConn  
  	if .CursorFill(.F., .F., 0, loCommand)  
  		browse  
  	else  
  		aerror(laErrors)  
  		messagebox(laErrors[2])  
  	endif .CursorFill(.F., .F., 0, loCommand)  
  endwith  
    

Использование XML

Использование XML с CursorAdapters требует некоторых дополнительных вещей. Вот проблемы:

• Свойство DataSource игнорируется.
• Свойство CursorSchema должно быть заполнено, даже если вы передаете .F. в качестве первого параметра метода CursorFill, иначе вы получите сообщение об ошибке.
• Для свойства SelectCmd должно быть задано выражение, такое как определяемая пользователем функция (UDF) или имя метода объекта, которое возвращает XML для курсора.
• Изменения, внесенные в курсор, преобразуются в DiffGram, который представляет собой XML, содержащий значения до и после измененных полей и записей, и помещаются в свойство DiffGram, когда требуется обновление.
• Чтобы записать изменения обратно в источник данных, для параметра UpdateCmdDataSourceType должно быть установлено значение «XML», а для параметра UpdateCmd должно быть задано выражение (опять же, вероятно, UDF или метод объекта), которое обрабатывает обновление. Вы, вероятно, захотите передать «This.DiffGram» в UDF, чтобы он мог отправить изменения в источник данных.

Источник XML для курсора может поступать из разных мест. Например, вы можете вызвать UDF, который преобразует курсор VFP в XML с помощью CURSORTOXML() и возвращает результаты:

use CUSTOMERS
cursortoxml('customers', 'lcXML', 1, 8, 0, '1')
return lcXML

Пользовательская функция может вызывать веб-службу, которая возвращает набор результатов в виде XML. Вот пример, который IntelliSense сгенерировал для меня из веб-службы, которую я создал и зарегистрировал в своей собственной системе (детали не важны, это просто пример веб-службы).

    
  loWS = newobject('Wsclient', ;  
  	home() + 'ffc\_webservices.vcx')  
  loWS.cWSName = 'dataserver web service'  
  loWS = loWS.SetupClient('http://localhost/' + ;  
  	'SQDataServer/dataserver.WSDL', 'dataserver', ;  
  	'dataserverSoapPort')  
  lcXML = loWS.GetCustomers()  
  return lcXML  
    

Он может использовать SQLXML 3.0 для выполнения запроса SQL Server 2000, хранящегося в файле шаблона на веб-сервере (для получения дополнительной информации о SQLXML перейдите на http://msdn.microsoft.com и выполните поиск SQLXML). В следующем коде объект MSXML2.XMLHTTP используется для получения всех записей из таблицы клиентов Northwind через HTTP; это будет объяснено более подробно позже.

    
  local loXML as MSXML2.XMLHTTP  
  loXML = createobject('MSXML2.XMLHTTP')  
  loXML.open('POST', 'http://localhost/northwind/ ' + ;  
        'template/getallcustomers.xml, .F.)'  
  loXML.setRequestHeader('Content-type', 'text/xml')  
  loXML.send()  
  return loXML.responseText  
    

Обработка обновлений более сложная. Источник данных должен либо быть способен принимать и использовать DiffGram (как в случае с SQL Server 2000), либо вам придется самостоятельно выяснять изменения и выполнять ряд операторов SQL (UPDATE, INSERT и DELETE), чтобы выполнить обновления.

Вот пример (XMLExample.prg), в котором CursorAdapter используется с источником данных XML. Обратите внимание, что и SelectCmd, и UpdateCmd вызывают пользовательские функции. В случае SelectCmd извлекаемый идентификатор клиента передается пользовательской функции GetNWCustomers, которую мы рассмотрим чуть позже. Для UpdateCmd VFP передал свойство DiffGram в SendNWXML, которое мы также рассмотрим позже.

  local loCustomers as CursorAdapter, ;  
  	laErrors[1]  
  loCustomers = createobject('CursorAdapter')  
  with loCustomers  
  	.Alias = 'Customers'  
  	.CursorSchema = ;  
  		'CUSTOMERID C(5), COMPANYNAME C(40), ' + ;  
  		'CONTACTNAME C(30), CONTACTTITLE C(30), ' + ;  
  		'ADDRESS C(60), CITY C(15), REGION C(15), ' + ;  
  		'POSTALCODE C(10), COUNTRY C(15), ' + ;  
  		'PHONE C(24), FAX C(24)'  
  	.DataSourceType = 'XML'  
  	.KeyFieldList = 'CUSTOMERID'  
  	.SelectCmd = 'GetNWCustomers([ALFKI])'  
  	.Tables = 'CUSTOMERS'  
  	.UpdatableFieldList = ;  
  		'CUSTOMERID, COMPANYNAME, CONTACTNAME, ' + ;  
  		'CONTACTTITLE, ADDRESS, CITY, REGION, ' + ;  
  		'POSTALCODE, COUNTRY, PHONE, FAX'  
  	.UpdateCmdDataSourceType = 'XML'  
  	.UpdateCmd = 'SendNWXML(This.DiffGram)'  
  	.UpdateNameList = ;  
  		'CUSTOMERID CUSTOMERS.CUSTOMERID, ' + ;  
  		'COMPANYNAME CUSTOMERS.COMPANYNAME, ' + ;  
  		'CONTACTNAME CUSTOMERS.CONTACTNAME, ' + ;  
  		'CONTACTTITLE CUSTOMERS.CONTACTTITLE, ' + ;  
  		'ADDRESS CUSTOMERS.ADDRESS, ' + ;  
  		'CITY CUSTOMERS.CITY, ' + ;  
  		'REGION CUSTOMERS.REGION, ' + ;  
  		'POSTALCODE CUSTOMERS.POSTALCODE, ' + ;  
  		'COUNTRY CUSTOMERS.COUNTRY, ' + ;  
  		'PHONE CUSTOMERS.PHONE, ' + ;  
  		'FAX CUSTOMERS.FAX'  
  	if .CursorFill(.T.)  
  		browse  
  	else  
  		aerror(laErrors)  
  		messagebox(laErrors[2])  
  	endif .CursorFill(.T.)  
  endwith  
    

Вот код для GetNWCustomers. Он использует объект MSXML2.XMLHTTP для доступа к XML-шаблону SQL Server 2000 с именем CustomersByID.xml на веб-сервере и возвращает результаты. Идентификатор клиента, который необходимо получить, передается в качестве параметра этому коду.

  lparameters tcCustID  
  local loXML as MSXML2.XMLHTTP  
  loXML = createobject('MSXML2.XMLHTTP')  
  loXML.open('POST', 'http://localhost/northwind/' + ;  
  	'template/customersbyid.xml?customerid=' + tcCustID, ;  
  	.F.)  
  loXML.setRequestHeader('Content-type', 'text/xml')  
  loXML.send()  
  return loXML.responseText  

Обработка обновлений более сложная. Источник данных должен либо быть способен принимать и использовать DiffGram (как в случае с SQL Server 2000), либо вам придется самостоятельно выяснять изменения и выполнять ряд операторов SQL (UPDATE, INSERT и DELETE), чтобы выполнить обновления.

Вот пример (XMLExample.prg), в котором CursorAdapter используется с источником данных XML. Обратите внимание, что и SelectCmd, и UpdateCmd вызывают пользовательские функции. В случае SelectCmd извлекаемый идентификатор клиента передается пользовательской функции GetNWCustomers, которую мы рассмотрим чуть позже. Для UpdateCmd VFP передал свойство DiffGram в SendNWXML, которое мы также рассмотрим позже.

local loCustomers as CursorAdapter, ;
	laErrors[1]
loCustomers = createobject('CursorAdapter')
with loCustomers
	.Alias = 'Customers'
	.CursorSchema = ;
		'CUSTOMERID C(5), COMPANYNAME C(40), ' + ;
		'CONTACTNAME C(30), CONTACTTITLE C(30), ' + ;
		'ADDRESS C(60), CITY C(15), REGION C(15), ' + ;
		'POSTALCODE C(10), COUNTRY C(15), ' + ;
		'PHONE C(24), FAX C(24)'
	.DataSourceType = 'XML'
	.KeyFieldList = 'CUSTOMERID'
	.SelectCmd = 'GetNWCustomers([ALFKI])'
	.Tables = 'CUSTOMERS'
	.UpdatableFieldList = ;
		'CUSTOMERID, COMPANYNAME, CONTACTNAME, ' + ;
		'CONTACTTITLE, ADDRESS, CITY, REGION, ' + ;
		'POSTALCODE, COUNTRY, PHONE, FAX'
	.UpdateCmdDataSourceType = 'XML'
	.UpdateCmd = 'SendNWXML(This.DiffGram)'
	.UpdateNameList = ;
		'CUSTOMERID CUSTOMERS.CUSTOMERID, ' + ;
		'COMPANYNAME CUSTOMERS.COMPANYNAME, ' + ;
		'CONTACTNAME CUSTOMERS.CONTACTNAME, ' + ;
		'CONTACTTITLE CUSTOMERS.CONTACTTITLE, ' + ;
		'ADDRESS CUSTOMERS.ADDRESS, ' + ;
		'CITY CUSTOMERS.CITY, ' + ;
		'REGION CUSTOMERS.REGION, ' + ;
		'POSTALCODE CUSTOMERS.POSTALCODE, ' + ;
		'COUNTRY CUSTOMERS.COUNTRY, ' + ;
		'PHONE CUSTOMERS.PHONE, ' + ;
		'FAX CUSTOMERS.FAX'
	if .CursorFill(.T.)
		browse
	else
		aerror(laErrors)
		messagebox(laErrors[2])
	endif .CursorFill(.T.)
endwith

Вот код для GetNWCustomers. Он использует объект MSXML2.XMLHTTP для доступа к XML-шаблону SQL Server 2000 с именем CustomersByID.xml на веб-сервере и возвращает результаты. Идентификатор клиента, который необходимо получить, передается в качестве параметра этому коду.

lparameters tcCustID
local loXML as MSXML2.XMLHTTP
loXML = createobject('MSXML2.XMLHTTP')
loXML.open('POST', 'http://localhost/northwind/' + ;
	'template/customersbyid.xml?customerid=' + tcCustID, ;
	.F.)
loXML.setRequestHeader('Content-type', 'text/xml')
loXML.send()
return loXML.responseText

Шаблон XML, на который ссылается этот код, CustomersByID.XML, выглядит следующим образом:

<root xmlns:sql="urn:schemas-microsoft-com:xml-sql">
	<sql:header>
		<sql:param name="customerid">
		</sql:param>
	</sql:header>
	<sql:query client-side-xml="0">
		SELECT *
		FROM Customers
		WHERE CustomerID = @customerid
		FOR XML AUTO
	</sql:query>
</root>

Поместите этот файл в виртуальный каталог базы данных Northwind (см. врезку «Настройка SQL Server 2000 XML Access» для получения подробной информации о настройке IIS для работы с SQL Server, а также конкретных сведений, необходимых для этой статьи).

SendNWXML похож на GetNWCustomers, за исключением того, что он ожидает передачи DiffGram, загружает DiffGram в объект MSXML2.DOMDocument и передает этот объект веб-серверу, который, в свою очередь, передает его через SQLXML в SQL Server 2000 для обработки.

lparameters tcDiffGram
local loDOM as MSXML2.DOMDocument, ;
	loXML as MSXML2.XMLHTTP
loDOM = createobject('MSXML2.DOMDocument')
loDOM.async = .F.
loDOM.loadXML(tcDiffGram)
loXML = createobject('MSXML2.XMLHTTP')
loXML.open('POST', 'http://localhost/northwind/', .F.)
loXML.setRequestHeader('Content-type', 'text/xml')
loXML.send(loDOM)

Чтобы увидеть, как это работает, запустите XMLExample.prg. Вы должны увидеть одну запись (клиент ALFKI) в окне просмотра. Измените значение в каком-либо поле, затем закройте окно и снова запустите PRG. Вы должны увидеть, что ваше изменение было записано в бэкэнд.

Резюме

Хотя базовый класс CursorAdapter обеспечивает согласованный интерфейс для удаленных данных независимо от того, используете ли вы ODBC, ADO или XML, существуют некоторые различия в настройке CursorAdapter в зависимости от выбранного механизма доступа к данным. Эти различия обусловлены требованиями самих механизмов доступа к данным.

В следующем месяце мы завершим изучение CursorAdapter, создав несколько повторно используемых классов данных и обсудив, как использовать CursorAdapter в отчетах.

Дуг Хенниг является партнером Stonefield Systems Group Inc. Он является автором отмеченных наградами инструментов Stonefield Database Toolkit (SDT) и Stonefield Query, соавтором книг «Что нового в Visual FoxPro 7.0» и «Руководства хакера по Visual FoxPro». 7.0», как от Hentzenwerke Publishing, так и от автора «Словаря данных Visual FoxPro» в серии Pros Talk Visual FoxPro от Pinnacle Publishing. Он был техническим редактором «Руководства хакера по Visual FoxPro 6.0» и «Основы» издательства Hentzenwerke Publishing. Дуг выступал на каждой конференции разработчиков Microsoft FoxPro (DevCon) с 1997 года, а также на пользовательских группах и конференциях разработчиков по всей Северной Америке. Он является Microsoft Most Valuable Professional (MVP) и Certified Professional (MCP). Интернет: www.stonefield.com и www.stonefieldquery.com Электронная почта: dhennig@stonefield.com

Настройка XML-доступа к SQL Server 2000

Чтобы получить доступ к SQL Server 2000 с помощью URL-адреса в браузере или другом HTTP-клиенте, вам нужно сделать несколько вещей. Во-первых, вам необходимо загрузить и установить SQLXML 3.0 с веб-сайта MSDN (http://msdn.microsoft.com; выполните поиск «SQLXML», а затем выберите ссылку для загрузки).

Далее вам нужно настроить виртуальный каталог IIS. Для этого выберите ярлык «Настроить поддержку IIS» в папке SQLXML 3.0 в разделе «Пуск», «Программы» на панели задач Windows. Разверните узел своего сервера, выберите веб-узел для работы, затем щелкните правой кнопкой мыши и выберите «Создать», «Виртуальный каталог». На вкладке Общие в появившемся диалоговом окне введите имя виртуального каталога и его физический путь. В этой статье используйте «Борей» в качестве имени виртуального каталога и «NorthwindTemplates» в качестве физического каталога. С помощью проводника Windows создайте физический каталог где-нибудь в вашей системе и создайте в нем подкаталог под названием «Шаблон» (мы будем использовать этот подкаталог чуть позже). Скопируйте два файла шаблонов GetAllCustomers.xml и CustomersByID.xml, включенные в загрузку для подписчиков в этом месяце, в подкаталог Template.

На вкладке «Безопасность» введите соответствующую информацию для доступа к SQL Server, например имя пользователя и пароль или конкретный механизм проверки подлинности, который вы хотите использовать. На вкладке Источник данных выберите SQL Server и, при желании, базу данных для использования. В качестве примера для этой статьи выберите базу данных Northwind. На вкладке «Настройки» выберите нужные параметры, но как минимум включите «Разрешить запросы шаблонов» и «Разрешить POST».

На вкладке «Виртуальные имена» выберите «шаблон» в поле со списком «Тип» и введите виртуальное имя (в этой статье используйте «шаблон») и физический путь (который должен быть подкаталогом виртуального каталога; в этой статье используйте «Шаблон ») для использования в шаблонах. Нажмите «ОК».

Чтобы убедиться, что все настроено правильно, мы получим доступ к SQL Server, используя файл шаблона GetAllCustomers.xml, который вы скопировали в подкаталог Template. Он имеет следующее содержание:

<root xmlns:sql="urn:schemas-microsoft-com:xml-sql">
	<sql:query client-side-xml="0">
		SELECT *
		FROM Customers
		FOR XML AUTO
	</sql:query>
</root>

Чтобы проверить это, откройте браузер и введите следующий URL-адрес: http://localhost/northwind/template/getallcustomers.xml. Вы должны увидеть содержимое таблицы клиентов Northwind в виде XML в своем браузере. Вот первая часть того, что вы должны увидеть:

<root xmlns:sql="urn:schemas-microsoft-com:xml-sql">
<Customers CustomerID="ALFKI" CompanyName="Alfreds 
Futterkiste" ContactName="Maria Anders"
ContactTitle="Sales Representative"
Address="Obere Str. 57" City="Berlin" PostalCode="12209"
Country="Germany" Phone="030-0074321"
Fax="999-999-9999" />

Теперь вы готовы запустить примеры SQLXML из этой статьи.

Автор публикации

не в сети 3 недели

Михаил Леменёв

Комментарии: 0Публикации: 9Регистрация: 02-10-2022

(далее…)

Новая функция FoxyDialog() заменяет функции MESSAGEBOX() и INPUTBOX()

Новая функция FoxyDialog() заменяет функции MESSAGEBOX() и INPUTBOX().

Её возможности:

- разрешено до 6 кнопок
- можно использовать значки Windows по умолчанию, хранящиеся в "Imageres.dll" и в "Shell32.dll", используемые Windows везде, а также любые файлы ICO или bitmap
- более широкое диалоговое окно, которое растягивается, чтобы вместить весь ваш текст
- можно красить сообщение в разные цввета
- помимо WindowTitle и Contents, у вас есть параметр Main Instruction
- введено свойство timeout
- позволяет использовать Unicode для некоторых интересных символов и многоязычных сообщений
- значки в кнопках, использующие некоторые стандартные изображения Windows
- новые типы входных данных, такие как тексты, числа, даты, дата и время, диапазоны дат

Автор публикации

не в сети 3 недели

Михаил Леменёв

Комментарии: 0Публикации: 9Регистрация: 02-10-2022

(далее…)

Что нового в Девятке: последние хиты Visual FoxPro. Тамар Э. Гранор, Даг Хенниг, Рик Шуммер, Тони Фелтман, Джим Слейтер 2005 г.(перевод Михаил Леменёв 2024 г.)

Содержание

Глава 1. Улучшения Диспетчера проектов
Глава 2. Управление окном свойств
Глава 3. Написание кода
Глава 4. Лучшие инструменты
Глава 5. Улучшения в системе отчетов
Глава 6. Расширение системы отчетов во время разработки
Глава 7. Расширение системы отчетов во время выполнения
Глава 8. Изменения SQL
Глава 9. Новые типы данных и индексов
Глава 10. Управление XML
Глава 11. Работа с удаленными данными
Глава 12. Другие изменения данных
Глава 13. Формы и элементы управления
Глава 14. Улучшения языка
Глава 15. Настройка и развертывание

Автор публикации

не в сети 3 недели

Михаил Леменёв

Комментарии: 0Публикации: 9Регистрация: 02-10-2022

(далее…)

Автоматизация Microsoft Office с Visual FoxPro (Тамар Э. Гранор и Делла Мартин) 2000 г

Оглавление
      Введение
Глава 1. Знакомство с Автоматизацией
  1.1 Если все, что у вас есть, — это молоток, значит, все становится гвоздем?
  1.2 Краткая история Автоматизации
  1.3 OLE, ActiveX, COM или что?
  1.4 Использование Автоматизации на практике.
  1.5 Куда идти дальше?
Глава 2. Офисные серверы
  2.1 Изучение серверов Office
      Прочтите подробное руководство (RTFM)
      Пусть сервер напишет код
      Рассмотрим обозреватель объектов
      По вашей команде
      Интернет-ресурсы и печатные ресурсы
  2.2 Собираем коллекцию
      Изменение коллекции
  2.3 Самоссылающиеся объектные модели
  2.4 Двигаемся дальше
Глава 3. Visual FoxPro как клиент Автоматизации
  3.1 Управление серверами
      Отображение серверов Office
      Мы уже на месте?
  3.2 Работа с серверами
      SET OLEOBJECT
      Используйте WITH … ENDWITH
      Используйте переменные для ссылок на объекты
      Цикл с FOR EACH
  3.3 Отладка
      Работа в командном окне
      Коллекции и объекты
      Это работает, но это не так
      Проблемы с параметрами
      Бесполезные сообщения об ошибках
      Используйте базу знаний
      Поспрашивать
  3.4 Время для кода
Глава 4. Основы Word
  4.1 Объектная модель Word
  4.2 Переходим к Word
  4.3 Управляющие документы
  4.4 Доступ к частям документа
      Манипулирование текстом
      Перемещение в диапазоне или выделенном фрагменте
      Закладки
  4.5 Форматирование
      Настройка страниц
      Настройка шрифтов
      Форматирование абзацев
      Работа со стилями
      Границы и штриховка
      Верхние и нижние колонтитулы
      Нумерация страниц
      Организация текста со списками
  4.6 Вывод данных
      Печать
      Предварительный просмотр печати
  4.7 Собираем все вместе
Глава 5. Промежуточный Word
  5.1 Шаблоны документов
      Что входит в шаблон?
      Поиск шаблонов
      Использование шаблонов
      Создание шаблонов
      Использование шаблонов в работе
  5.2 Таблицы
      Нестандартные таблицы
  5.3 Создание документов с несколькими колонками
  5.4 Сноски и концевые сноски
  5.5 Добавление графики в документы
      Два лица графики
  5.6 Работа с существующими документами.
      Поиск и замена
      Изучение структуры документа
      Обход документа с коллекциями
  5.7 Автоматизация макросов
  5.8 Собираем все вместе
Глава 6. Продвинутый Word
  6.1 Организация документа с помощью стилей
      Работа со структурой
      Создание оглавления
  6.2 Создание указателей
      Решение о том, что индексировать
      Маркировка элементов для индекса
      Генерация индекса
      Форматирование индексов
  6.3 Объединение документов с данными
      Структура слияния почты Word
      Замена данных с помощью функции «Найти и заменить»
      Отступите на 10 ярдов и нанесите удар.
  6.4 Собираем все вместе
Глава 7. Основы Excel
  7.1 Объектная модель
  7.2 Дежавю
  7.3 Получение информации о приложении
  7.4 Управление рабочими книгами и рабочими листами
      Открытие новой книги
      Открытие существующей книги
      Сохранение книги
      Работа с рабочими листами
      Строки, столбцы, ячейки и диапазоны
  7.5 Обработка значений и формул
      Добавление, копирование и перемещение данных (включая формулы)
      Наполни ее
  7.6 Форматирование
      Ширина и выравнивание столбцов
      Шрифты
      Форматирование значений
      Границы
      Затенение
      Стили
  7.7 Вывод данных
      Настройка страницы
      Предварительный просмотр печати
      Печать
      Сохранение данных в разных форматах
  7.8 Собираем все вместе
Глава 8. Расширенные функции Excel
  8.1 Сводные таблицы
      Данные сводной таблицы
      Создание сводной таблицы.
  8.2 Анализ «что если» с использованием таблиц данных
  8.3 Поиск цели
  8.4 Защита
      Защита клетки
      Защита листа
      Защита книги
  8.5 Шаблоны
      Что входит в шаблон?
      Поиск шаблонов
      Использование шаблонов
      Создание шаблонов
  8.6 Автоматизация макросов
  8.7 Добавление фигур
  8.8 Добавление изображений
  8.9 Собираем все вместе
Глава 9. Графический механизм Excel
  9.1 Объектная модель
      Это диаграмма или лист?
  9.2 Настройка данных
      Имена диапазонов — ваши друзья
  9.3 Создание диаграммы
      Свойство ActiveChart
      Выходим к мастеру
  9.4 Анатомия диаграммы
  9.5 Форматирование компонентов
  9.6 Объект Chart
      Типы диаграмм
      Свойства объекта Chart доступные только для трехмерных диаграмм
      Область диаграммы
      Объект Border
      Объект Interior
      Объект Font
      Объект PlotArea
      Ряд данных
      Объект легенды
      Оси координат
      Заголовки
  9.7 Собираем все вместе
Глава 10. Основы PowerPoint
  10.1 Объектная модель PowerPoint
  10.3 Как разобраться с приложением
  10.4 Управление презентациями и слайдами
      Представление: объект Presentation
      Открытие существующей презентации
      Добавление слайдов
      Сохранение презентации
      Закрытие презентации
      Закрытие объекта приложения
      Сделать так, чтобы это выглядело хорошо для пользователей
  10.5 Работа с содержимым слайдов.
      Использование макетов слайдов
      Добавление и форматирование текста
  10.6 Делаем это презентабельно
      Запуск режима слайд-шоу
      Печать
  10.7 Собираем все вместе
Глава 11. Расширенные функции PowerPoint
  11.1 Достижение согласованности с мастер-слайдами
      Фон
      Стандартизация внешнего вида текста
      Стандартизация цветов с помощью ColorSchemes
      Подробнее о формах SlideMaster
  11.2 Необычные функции
      Анимации
      Переходы
      Выполнение действий
  11.3 Мультимедиа.
      Отключение звука
      Движение
  11.4 Добавление примечаний
  11.5 Собираем все вместе
Глава 12. Автоматизация Outlook
  12.1 Объектная модель Outlook
  12.2 Знакомство с Outlook
  12.3 Доступ к содержимому Outlook
  12.4 Отправка электронной почты.
      Получатели и контакты
      Прикрепление файлов
  12.5 Управление папкой Contacts.
  12.6 Добавление встреч и задач
  12.7 Собираем все вместе
Глава 13. Межофисная связь
  13.1 Взаимодействие между приложениями Office
      Копирование и вставка между приложениями
      PasteSpecial
      Использование AddOLEObject
  13.2 Информирование о мероприятиях с помощью VFPCOM
      Получение VFPCOM.DLL
      Использование VFPCOM.DLL
  13.3 Последнее слово
Глава 14. Обработка ошибок Автоматизации
  14.1 Ошибки, связанные с Автоматизацией
  14.2 Война 1426-1429
      Тонкие различия
      Некоторые интересные наблюдения за ошибками
  14.3 Стратегии обработки ошибок
      ON ERROR и метод Error
      Предотвращение ошибок
  14.4 Подведем итоги
Глава 15. Подведение итогов работы с серверами
  15.1 Зачем обертывать серверы?
  15.2 Структурирование классов-оболочек
  15.3 Фундаментальные операции
      Разговор с пользователем
      Создание экземпляра сервера
      Закрытие сервера
      Открытие документа
      Сохранение документа
      Другие основные операции
  15.4 Создание подклассов
      Закрытие серверов
      Открытие документа, часть 2
      Закрытие документа
      Создание новых документов
      Проверка сервера
      Проверка открытых документов
      Отслеживание активного документа
      Отображение сервера
  15.5 Использование основных операций
  15.6 Добавление операций, специфичных для сервера
      Обёртка Word - от таблицы к таблице
      Обёртка Excel - от таблицы к графику
      Обёртка PowerPoint - стандартизация текста
  15.7 Подводя итоги
      Приложение A. Интернет-сообщества пользователей
      A1. Ресурсы FoxPro
      A2. Ресурсы Office
      A3. Онлайн-этикет
      Приложение B. Значения ChartWizard

Автор публикации

не в сети 3 недели

Михаил Леменёв

Комментарии: 0Публикации: 9Регистрация: 02-10-2022

(далее…)

Класс – секундомер

Класс "секундомер", способный отслеживать промежутки времени и выводить их на экран.

Автор публикации

не в сети 3 недели

Михаил Леменёв

Комментарии: 0Публикации: 9Регистрация: 02-10-2022

(далее…)

XLSX Workbook Class

Автор публикации

не в сети 21 год

ssa

Комментарии: 0Публикации: 1Регистрация: 23-03-2005

(далее…)

OLE Automation

файл справки на русском языке описывает свойства и методы объектов Windows Script Host, а также некоторых других объектов OLE Automation, доступных в административных скриптах Windows и приложениях, способных выступить в роли OLE-клиента. Кроме объектов Windows Script Host, в частности, описана работа с регулярными выражениями в VBScript, включая подробное описание метасимволов, а также свойства и методы объектов "Shell.Application" и "Scripting.Dictionary". Многочисленные примеры приведены на языке VBScript. Также прилагается справка по встроенным константам и функциям языка VBScript. В файле справки имеется хорошо структурированное оглавление и полнотекстовый поиск.

Автор публикации

не в сети 2 месяца

Joys

Комментарии: 2Публикации: 177Регистрация: 25-06-2000

(далее…)

Полный набор файлов для работы Foxpro 2.6 под dos

Автор публикации

не в сети 2 месяца

Joys

Комментарии: 2Публикации: 177Регистрация: 25-06-2000

(далее…)

VFP 7 Runtime Files VFP 8 Runtime Files VFP 9 Runtime Files

Автор публикации

не в сети 6 месяцев

admin

Комментарии: 1Публикации: 123Регистрация: 10-12-2000

(далее…)

Адаптируйте свои курсоры к CursorAdapters

Дуг Хенниг

Класс CursorAdapter — одна из самых важных новых функций в VFP 8, поскольку он обеспечивает простой в использовании и согласованный интерфейс для удаленных данных. В статье этого месяца Дуг исследует CursorAdapters и то, как они работают. В следующем месяце мы рассмотрим некоторые дополнительные способы их использования.

Вот пример (CursorAdapterExample.prg, включенный в загружаемые материалы для подписчиков этого месяца), который извлекает определенные поля для бразильских клиентов из таблицы Customers в базе данных Northwind, поставляемой с SQL Server. Курсор можно обновлять, поэтому, если вы внесете изменения в курсор, закроете его, а затем снова запустите программу, вы увидите, что ваши изменения были сохранены в бэкэнде.

  
  
  
local lcConnString, ;  
         loCursor as CursorAdapter, ;  
         laErrors[1]  
  lcConnString = 'driver=SQL Server;server=(local);' + ;  
         'database=Northwind;uid=sa;pwd=;trusted_connection=no'  
 * change password to appropriate value for your database  
  loCursor = createobject('CursorAdapter')  
  with loCursor  
         .Alias = 'Customers'  
         .DataSourceType = 'ODBC'  
         .DataSource = sqlstringconnect(lcConnString)  
         .SelectCmd = "select CUSTOMERID, " + ;  
               "COMPANYNAME, CONTACTNAME from CUSTOMERS " + ;  
               "where COUNTRY = 'Brazil'"  
         .KeyFieldList = 'CUSTOMERID'  
         .Tables = 'CUSTOMERS'  
         .UpdatableFieldList = 'CUSTOMERID, COMPANYNAME, ' + ;  
               'CONTACTNAME'  
         .UpdateNameList = ;  
               'CUSTOMERID CUSTOMERS.CUSTOMERID, ' + ;  
               'COMPANYNAME CUSTOMERS.COMPANYNAME, ' + ;  
               'CONTACTNAME CUSTOMERS.CONTACTNAME'  
         if .CursorFill()  
               browse  
         else  
               aerror(laErrors)  
               messagebox(laErrors[2])  
         endif .CursorFill()  
  endwith
  
  
  

Для поддержки нового класса CursorAdapter в классы DataEnvironment и Form и их конструкторы внесено несколько изменений.

Во-первых, как я упоминал ранее, класс DataEnvironment теперь имеет свойства DataSource и DataSourceType. Он не использует эти свойства сам по себе, но они используются любым членом CursorAdapter, для которого UseDEDataSource установлено в .T. Во-вторых, теперь вы можете визуально создавать подклассы DataEnvironment с помощью конструктора классов (ух ты!).

Что касается форм, теперь вы можете указать подкласс DataEnvironment для использования, установив новые свойства DEClass и DEClassLibrary. Если вы сделаете это, все, что вы сделали с существующей средой DataEnvironment (курсоры, код и т. д.), будет потеряно, но, по крайней мере, вас сначала предупредят. Интересная новая функция форм, которая в чем-то связана, — это свойство BindControls; установив это на .F. в окне свойств означает, что VFP не будет пытаться привязать данные к элементам управления во время инициализации, только если вы установите для BindControls значение .T. Для чего это нужно? Ну, сколько раз вы проклинали, что параметры передаются в Init, который срабатывает после того, как все элементы управления были инициализированы и привязаны к своим источникам управления? Что делать, если вы хотите передать параметр в форму, которая сообщает ей, какую таблицу открывать, или другие вещи, влияющие на ControlSource? Это новое свойство делает эту проблему проще простого.

Преимущества

Есть много веских причин использовать CursorAdapters вместо удаленных представлений, SPT, ADO или XML.

• Каждый механизм имеет свой интерфейс. С удаленными представлениями вы открываете их с помощью команды USE. В SPT вы используете SQLCONNECT() и SQLEXEC() для создания курсора. С помощью ADO вы создаете объекты ADO Connection и RecordSet (и, возможно, объект Command, в зависимости от того, как вы извлекаете данные) и вызываете их методы Open. При использовании XML вы сначала откуда-то получаете строку XML (например, из компонента COM в многоуровневом приложении или из SQL Server через SQLXML), а затем используете XMLTOCURSOR() для преобразования ее в курсор VFP. Запись обновлений на серверную часть также отличается для каждого механизма. Таким образом, при переходе от одного механизма к другому у вас появляются новые методы для изучения, плюс вам, возможно, придется переписать большую часть существующего кода.

CursorAdapter’ы имеют согласованный интерфейс независимо от того, какой механизм вы используете для извлечения данных. Вы устанавливаете различные свойства объекта и вызываете метод CursorFill для извлечения данных, работаете с курсором, как с любым другим курсором VFP, а затем вызываете TABLEUPDATE() (или позволяете VFP обрабатывать его автоматически), чтобы записать изменения обратно.

• В среде разработки часто требуется открыть курсор из командного окна, чтобы просмотреть его содержимое. Это легко для удаленных представлений (просто USE представление), но гораздо больше работы для SPT, ADO и XML.

В зависимости от того, как он настроен (например, если он полностью автономен), открытие курсора из подкласса CursorAdapter может быть почти таким же простым, как открытие удаленного представления: вы просто создаете экземпляр подкласса и вызываете метод CursorFill. Вы даже можете вызвать это из Init, чтобы сделать это одноэтапной операцией.

• Увеличение существующего приложения может быть относительно простым с удаленными представлениями: вы заменяете существующие объекты Cursor, которые указывают на локальные таблицы или представления в DataEnvironment, на те, которые вместо этого ссылаются на удаленные представления. При использовании SPT, ADO и XML вам придется полностью переоснастить свои схемы доступа к данным.

Увеличить размер существующего приложения для использования CursorAdapters так же просто, как и с удаленными представлениями; вместо этого вы просто заменяете объекты Cursor объектами CursorAdapter.

• С удаленными представлениями легко работать в дизайнерах форм и отчетов. Вы можете добавить его в DataEnvironment, а затем воспользоваться преимуществами визуальной поддержки, предоставляемой DataEnvironment: перетаскиванием полей для автоматического создания элементов управления, простой привязкой элемента управления к полю путем выбора его из поля со списком в окне свойств и т.д. SPT, ADO и XML не имеют такой визуальной поддержки.

CursorAdapters имеют ту же поддержку в DataEnvironment, что и удаленные представления.

• Удаленные представления легко создавать с помощью дизайнера представлений. Хотя в прошлом у него были серьезные ограничения, особенно при работе с представлениями, объединяющими более двух таблиц, VFP 8 устраняет большинство этих проблем и добавляет гораздо больше возможностей, таких как двустороннее редактирование: вы можете изменить код в окне SQL и увидеть эти изменения, отраженные в визуальной части дизайнера представлений. С SPT, ADO и XML это требует больше работы, так как вам нужно кодировать все: создание и закрытие соединения, выполнение операторов SQL SELECT и так далее.

VFP 8 включает в себя CursorAdapter Builder, который быстро устанавливает свойства, необходимые для извлечения и обновления данных. Он даже включает построитель SelectCmd, который, хотя и не так нагляден, как View Designer, позволяет вам выбирать, какие поля следует извлекать из удаленных таблиц, используя элемент управления «перемещение». ^•

• Базу данных бэкэнда легко обновлять с помощью изменений, сделанных в удаленных представлениях и наборах записей ADO. Предполагая, что свойства представления настроены правильно, вы просто вызываете TABLEUPDATE(). В случае ADO вы вызываете RecordSet.Update() или UpdateBatch(). С SPT и XML у вас есть куча ручной работы, чтобы передать обновления обратно.

Как мы видели ранее, выполнение обновлений с помощью CursorAdapter может быть таким же простым, как установка нескольких свойств, чтобы VFP выполнял всю работу, или вы можете иметь большую гибкость, указав, как обрабатываются удаления, вставки и обновления.

• Поскольку результирующий набор, созданный удаленными представлениями и SPT, представляет собой курсоры VFP, их можно использовать где угодно в VFP: в GRID, отчете, обработке в цикле SCAN и т. д. ADO и XML, с другой стороны, должны быть преобразованы в курсоры, прежде чем их можно будет использовать таким образом, что усложняет и увеличивает время обработки вашего приложения.

Результирующий набор CursorAdapter представляет собой курсор VFP, поэтому он имеет те же преимущества, что и удаленные представления и SPT. Более того, вы получаете курсор VFP, даже если источником данных являются ADO и XML, потому что CursorAdapter автоматически позаботится о преобразовании в курсор и из него.

• Поскольку оператор SQL SELECT удаленного представления определен заранее, вы не можете изменить его на лету. Хотя это нормально для обычной формы ввода данных, это может быть проблемой для запросов и отчетов. Возможно, вам придется создать несколько представлений из одного и того же набора данных, каждое из которых отличается выбранными полями, структурой предложения WHERE и т. д. Это не проблема с SPT, ADO или XML.

CursorAdapters не страдают от этой проблемы: вы можете легко изменить свойство SelectCmd, чтобы изменить, какие данные извлекаются и как.

• Вы не можете вызвать хранимую процедуру из удаленного представления, поэтому удаленному представлению необходим прямой доступ к базовым таблицам. Это может быть проблема с администраторами базы данных вашего приложения; некоторые администраторы баз данных считают, что доступ к данным должен осуществляться только через хранимые процедуры из соображений безопасности и по другим причинам. Кроме того, поскольку они предварительно скомпилированы на сервере, хранимые процедуры часто выполняются значительно быстрее, чем операторы SQL SELECT. С помощью SPT, ADO и XML вы можете при необходимости вызывать хранимые процедуры.

CursorAdapters также может использовать хранимые процедуры, просто установив SelectCmd по мере необходимости.

• Удаленные представления живут в контейнере базы данных, так что это еще один набор файлов, которые вам нужно поддерживать и устанавливать в системе клиента. Кроме того, когда вы открываете представление, VFP пытается заблокировать записи представления в DBC, даже если это ненадолго. Это может вызвать конкуренцию в загруженных приложениях, когда несколько пользователей могут одновременно пытаться открыть форму. Несмотря на то, что существуют обходные пути (копирование DBC на локальную рабочую станцию и использование ее, или, в VFP 7 и более поздних версиях, использование SET REPROCESS SYSTEM для увеличения времени ожидания блокировки), это то, что вам нужно запланировать. Еще одна проблема: если вы используете представление SELECT * для извлечения всех полей из определенной таблицы, а структура этой таблицы на сервере изменяется, представление недействительно и должно быть создано заново. Поскольку они не имеют ничего общего с DBC, ни одна из них не является проблемой для SPT, ADO и XML.

Поскольку они не живут в DBC, CursorAdapters также не имеют этих проблем.

• Поскольку они работают только с ODBC, удаленные представления и SPT застряли в модели прямого подключения данных «клиент-сервер». ADO и XML — предпочтительные механизмы для передачи данных между уровнями в многоуровневом приложении.

Поскольку CursorAdapters может создавать курсоры VFP из ADO или XML, они идеально подходят для использования на уровне пользовательского интерфейса многоуровневого приложения.

Резюме

Я думаю, что CursorAdapter — одно из самых больших и захватывающих улучшений в VFP 8, потому что он обеспечивает согласованный и простой в использовании интерфейс для удаленных данных, а также, как мы увидим в следующих статьях, он позволяет нам создавать повторно используемые классы данных.  В следующем месяце мы рассмотрим особенности доступа к исходным или удаленным данным с помощью ODBC, ADO и XML. В следующем месяце мы рассмотрим создание повторно используемых классов данных и обсудим, как использовать CursorAdapters в отчетах.

Дуг Хенниг является партнером Stonefield Systems Group Inc. Он является автором отмеченных наградами инструментов Stonefield Database Toolkit (SDT) и Stonefield Query, соавтором книг «Что нового в Visual FoxPro 7.0» и «Руководства хакера по Visual FoxPro». 7.0», как от Hentzenwerke Publishing, так и от автора «Словаря данных Visual FoxPro» в серии Pros Talk Visual FoxPro от Pinnacle Publishing. Он был техническим редактором «Руководства хакера по Visual FoxPro 6.0» и «Основы» издательства Hentzenwerke Publishing. Дуг выступал на каждой конференции разработчиков Microsoft FoxPro (DevCon) с 1997 года, а также на пользовательских группах и конференциях разработчиков по всей Северной Америке. Он является Microsoft Most Valuable Professional (MVP) и Certified Professional (MCP). Интернет: www.stonefield.com и www.stonefieldquery.com Электронная почта: dhennig@stonefield.com

(Автор перевода Михаил Леменев)

Автор публикации

не в сети 3 недели

Михаил Леменёв

Комментарии: 0Публикации: 9Регистрация: 02-10-2022

(далее…)

Новые функции панели задач Windows

Новые функции панели задач Windows 7 и более поздних версий. Использование индикаторов выполнения на панели задач, наложенных значков, пользовательских эскизов и изображений для предварительного просмотра в реальном времени, панелей инструментов на панели задач и списков переходов в ваших приложениях. Много примеров применения здесь: https://github.com/VFPX/Win7TLib
Стив Элленофф

Автор публикации

не в сети 3 недели

Михаил Леменёв

Комментарии: 0Публикации: 9Регистрация: 02-10-2022

(далее…)

Гурвиц Г.А. Разработка реального приложения с использованием Visual FoxPro 9

Хабаровск: ДВГУПС, 2007. - 198 с. - ISBN 5-262-00297-8

На примере сравнительно небольшой, но реальной базы данных «Real Estate» показан процесс создания профессионального Visual FoxPro-приложения. По количеству авторских находок это приложение значительно превосходит знаменитую, но довольно старую «Tastrade», уступая ей по числу используемых таблиц, форм, отчетов и т.д., почему-то потерявшую интерфейсную оболочку в версии 7 и, похоже - навсегда.
Книги других авторов тоже претендуют на то, что в них приведены настоящие примеры. Но в этой Вы найдете полное руководство разработчика от постановки задачи до создания файла-справки к приложению. Некоторые тексты подробно не поясняются, приходится внимательно смотреть на комментарии в коде, благо их предостаточно.
Главный акцент сделан на поэтапное – шаг за шагом – освоение нового, встречающегося на пути конкретной реальной разработки, и ни одного, даже самого маленького, шага в сторону. Книга написана как учебное пособие к выполнению курсового проекта, содержит большое количество вариантов заданий на проектирование и предназначена для студентов и преподавателей высших учебных заведений.
Немногие разработчики рискнут сегодня начать свою программистскую карьеру с Visual FoxPro. Похоже, что слухи о его кончине, как о средстве разработки современных серьезных приложений, не сильно преувеличены. Sedna (очередная версия Visual FoxPro), по мнению большинства неFox-разработчиков, – это событие «Destroy» в, увы не бесконечной, хотя и очень длинной череде событий из жизни этого замечательного продукта.
Но не все так печально! В университетских курсах по управлению данными мы, несомненно, будем видеть ЕГО еще долгие годы. Действительно, сейчас невозможно найти систему, которая сможет составить конкуренцию Visual FoxPro на ниве управления данными с его отточенной и многогранной навигацией по записям, рядом с которой блекнут DAO, ADO и ADO.NET. Ведь не исчез же старый добрый Paskal из университетских дисциплин по основам программирования?

Автор публикации

не в сети 6 месяцев

admin

Комментарии: 1Публикации: 123Регистрация: 10-12-2000

(далее…)

Поиск файла с Unicode-символами

В привиденном ниже примере файл находиться в 4х из шести методов. Т.е. ADIR() и sys(2000) по короткому пути и FSO.FileExists() как по короткому так и по полному. Если COMPROP() убрать, то только по короткому

CLEAR all     
  show_dir(GETDIR())      
  RETURN    
            
  FUNCTION show_dir(cFolder)      
  	oFSO=CreateObject("Scripting.FileSystemObject")      
  	loDir=oFSO.GetFolder(cFolder)      
  	COMPROP(oFSO, "UTF8", 1)  
        
    	FOR EACH loFolder IN loDir.SubFolders       
     	LOCAL ARRAY aFile[1,5]  
  		FOR EACH oFile IN loDir.Files          
  			COMPROP(oFile, "UTF8", 1)  
  			? "---------------------------------"  
  			?(oFile.Path) + CHR(9);  
  				+ iif(File(oFile.Path),"-НАЙДЕН!", "-не найден...")       
  			?(oFile.ShortPath) + CHR(9);  
  				+ iif(!EMPTY(SYS(2000,oFile.ShortPath)),"-НАЙДЕН!", "-не найден...")  
  			?(oFile.ShortPath) + CHR(9);  
  				+ iif(adir(aFile,oFile.ShortPath, "SH")>0,"-НАЙДЕН!", "-не найден...")      
  			?(oFile.Path) + CHR(9);  
  				+ iif(adir(aFile,oFile.Path, "SH")>0,"-НАЙДЕН!", "-не найден...")       
  			?(oFile.ShortPath) + CHR(9);  
  				+ iif(oFSO.FileExists(oFile.ShortPath),"-НАЙДЕН!", "-не найден...")      
  			?(oFile.Path) + CHR(9);  
  				+ iif(oFSO.FileExists(oFile.Path),"-НАЙДЕН!", "-не найден...")       
  		ENDFOR      
  	ENDFOR    
  RETURN

Автор публикации

не в сети 19 лет

technik

Комментарии: 0Публикации: 1Регистрация: 15-11-2006

(далее…)

Магазин “Бытовая химия”, демонстрационная программа и проект

Макет БД закупок и продаж магазина "Бытовая химия".

Сделан как курсовая работа по теме "Разработка системы автоматизации для малого коммерческого предприятия".

Обеспечивает, согласно заданию:
- многопользовательская БД (БД должна содержать >10 таблиц)
- разделение доступа по пользователям
- наличие запросов к БД (SELECT, UPDATE...)
- наличие "диаграмм" и отчетов, отображающих результаты запросов
- наличие триггеров в таблицах БД
- привести примеры кода программы

Выполнена под VFP9sp2, и вряд-ли будет правильно работать под меньшими версиями.
Требует наличия MS-Office на выполняемой машине (используется Excel для изображения "диаграмм")
Программа не использует Active-X обьекты, и подобные, поэтому инсталляции на машине не требует
Требуется только наличие установленных RunTime библиотек VFP9sp2, или эти библиотеки можно положить рядом с запускаемым файлом BC.exe
При запросе логина/пароля - выбрать логин "Админов А.А.", пароль - пустой.

Содержимое проекта.
Проект сделан не с "нуля", а на основе моего типового проекта, поэтому содержит классы и подпрограммы, не используемые в данном проекте,
хотя они достаточно универсальны... Неуниверсальные детали из библиотек в проекте, вроде, убрал...
Файлы из этого "типового" проекта помечены (в Description) как "Библиотека" или "Типовой модуль".
(В проекте Вместе с файлами .BMP - изображения на кнопках, прицепились также какие-то файлы .MSK, не знаю откуда они появились в моем VFP9sp2, на соседней машине, с таким же VFP, таких файлов нет..., и убрать их из проекта - не получилось...)

Для обеспечения многопользовательности применена форма из визарда построителя форм VFP9 (класс-форма "FormWizStd" сделана на основе этой формы визарда). Многопользование обеспечивают методы визарда в кнопках, которые, оказываются по разному работают (и довольно нетривиально), в зависимости от наличия/отсутствия DataEnvironment (DE) при форме, вида буферизации таблиц в DE, обеспечивают транзакции... Сама форма работы с записью таблицы - содержит DE, курсор-адаптеры в нем, вид буферизации в курсорах специально не устанавливал. В общем, все многопользование БД свалено на коды визарда.

Разделение пользователей по уровню доступа сделано запросом имени/пароля пользователя при входе в программу (см. таблицу Сотрудники).

Для визуального выбора строки из таблицы-справочника применен ComboBox-класс ("ComboBoxAll"), который умеет изображать массивы, алиасы, функции от них, упроядочивать записи, фильтровать/запрещать записи... Удобно с ним получилось...

Если возникнет желание использовать части этого проекта - то можно, без вопросов.

Автор публикации

не в сети 18 лет

of63

Комментарии: 0Публикации: 1Регистрация: 13-02-2008

(далее…)

Руссификация меню Visual FoxPro 9.0 SP2

Автор публикации

не в сети 6 месяцев

admin

Комментарии: 1Публикации: 123Регистрация: 10-12-2000

(далее…)

Установка кодовой страницы для баз, экранов

Автор публикации

не в сети 2 месяца

Joys

Комментарии: 2Публикации: 177Регистрация: 25-06-2000

(далее…)

константы от Excel и Word

Автор публикации

не в сети 6 месяцев

admin

Комментарии: 1Публикации: 123Регистрация: 10-12-2000

(далее…)

Панель задач справа

 PUBLIC oPanel  
  oPanel=CREATEOBJECT("form1")  
  oPanel.Show(0)  
    
  DEFINE CLASS form1 AS form  
    
    
  	Top = 0  
  	Left = 0  
  	Height = 638  
  	Width = 200  
  	DoCreate = .T.  
  	Caption = "Form1"  
  	TitleBar = 0  
  	AlwaysOnTop = .T.  
  	Name = "form1"  
    
  	ADD OBJECT check1 AS checkbox WITH 	Top = 12, Left = 9, Height = 36, Width = 180, Alignment = 0, Caption = "Свернуть", Style = 1, TabIndex = 1, BackColor = RGB(255,200,200), Name = "Check1"  
  	ADD OBJECT timer2 AS timer WITH Top = 48, Left = 72, Height = 23, Width = 23, Interval = 1000,	Name = "Timer2"   
  	ADD OBJECT command1 AS commandbutton WITH Top = 72, Left = 12, Height = 72, Width = 172,   Caption = "Открыть форму", Name = "Command1"  
  	ADD OBJECT command2 AS commandbutton WITH Top = 408, Left = 12, Height = 36, Width = 168, Caption = "Выход", TabStop = .F., Name = "Command2"  
    
  	PROCEDURE do_panel_taimer  
  		LPARAMETERS lcType_Panel,oCheck_Panel  
 		*+--------------------------------------------------+  
 		*|	Обоаботчик событий для панельного таймера		|  
 		*|	lcType_Panel - тип панели R или L				|  
 		*|	oCheck_Panel - ссылка на флаг Check в панели	|  
 		*+--------------------------------------------------+  
    
  		LOCAL lnStep_Panel,lnStep_Max  
  		lnStep_Panel=1	&&Отступ для зоны реагирования  
  		lnStep_Max=5	&&Кол-во циклов ожиадания, до того как развернуть панель  
    
  		IF BETWEEN(MCOL(_screen.Name),lnStep_Panel,WCOLS(_screen.Name)-lnStep_Panel)  
    
 			*+----------------------------------+  
 			*|	Если мышка летает внутри окна	|  
 			*+----------------------------------+  
 			*_screen.Caption= STR(MCOL(_screen.Name),7,3)+" из "+STR(WCOLS(_screen.Name),7,3)  
  			This.AddProperty("Wait_Panel",0)	&&Сбросим счетчи ожиадания   
    
  		ELSE  
 			*+---------------------------------+  
 			*|	Счетчик	присутствия на границе |  
 			*+---------------------------------+	   
  			IF TYPE("This.Wait_Panel")#"N"  
  				This.AddProperty("Wait_Panel",0)  
  			ENDIF  
  			This.Wait_Panel=This.Wait_Panel+1  
    
  			&&Если долго ждал  
  			IF THIS.Wait_Panel>lnStep_Max THEN  
    
 				*+----------------------------------------------+  
 				*| Если мышка приблизилась к левому краю		|   
 				*| правая панель спрятана - то ее развернуть	|  
 				*+----------------------------------------------+  
  				IF lcType_Panel="L" AND MCOL(_screen.Name)<=lnStep_Panel  
  					MESSAGEBOX("Окно слево")  
  				ENDIF  
    
    
 				*+----------------------------------------------+  
 				*|	Если мышка зашкалила за правый край, 		|  
 				*| левая панель спрятана - то ее развернуть		|  
 				*+----------------------------------------------+  
  				IF lcType_Panel="R" AND MCOL(_screen.Name)>=WCOLS(_screen.Name)-lnStep_Panel AND !EMPTY(oCheck_Panel.Value)  
  					oCheck_Panel.Value=0  
  					oCheck_Panel.InteractiveChange()  
  				ENDIF  
    
    
  			ENDIF  
    
  		ENDIF  
    
  		_screen.Caption=STR(THIS.Wait_Panel)   
  	ENDPROC  
    
    
  	PROCEDURE do_panel_move  
  		LPARAMETERS lcType_Panel,oCheck_Panel,oTimer_Panel,oThisform  
 		*+--------------------------------------------------+  
 		*|	Обоаботчик событий для панельного таймера		|  
 		*|	lcType_Panel - тип панели R или L				|  
 		*|	oCheck_Panel - ссылка на флаг Check в панели	|  
 		*+--------------------------------------------------+  
    
  		LOCAL lnStep_Panel,lnStep_Max  
  		lnStep_Panel=INT(oThisform.Width/5)	&&Отступ для зоны реагирования  
    
    
  		DO CASE  
  		CASE lcType_Panel="R" AND !EMPTY(oCheck_Panel.Value)  
 			*+--------------------------+  
 			*|	Спрятать правую панель	|  
 			*+--------------------------+  
  			Value_Min=_screen.Width-Thisform.Width  
  			Value_Max=_screen.Width+lnStep_Panel  
  			FOR Value_Now=Value_Min TO Value_Max STEP lnStep_Panel  
  				oThisform.Move(Value_Now)  
  				INKEY(0.1)  
  			ENDFOR  
  			oTimer_Panel.Interval=100    
    
    
  		CASE lcType_Panel="R" AND EMPTY(oCheck_Panel.Value)  
 			*+--------------------------+  
 			*|	Показать правую панель	|  
 			*+--------------------------+  
  			Value_Min=_screen.Width+lnStep_Panel  
  			Value_Max=_screen.Width-Thisform.Width-lnStep_Panel  
  			FOR Value_Now=Value_Min TO Value_Max STEP -lnStep_Panel  
    
  				IF Value_Now<_screen.Width-oThisform.Width  
  				   Value_Now=_screen.Width-oThisform.Width  
  				ENDIF  
    
  				oThisform.Move(Value_Now)  
  				INKEY(0.1)  
    
  				IF Value_Now=_screen.Width-oThisform.Width  
  					EXIT  
  				ENDIF  
    
  			ENDFOR  
  			oTimer_Panel.Interval=0    
    
    
  		CASE lcType_Panel="L" AND !EMPTY(oCheck_Panel.Value)  
 			*+--------------------------+  
 			*|	Спрятать левую панель	|  
 			*+--------------------------+  
    
    
  		CASE lcType_Panel="L" AND EMPTY(oCheck_Panel.Value)  
 			*+--------------------------+  
 			*|	Показать левую панель	|  
 			*+--------------------------+  
    
    
  		ENDCASE  
  	ENDPROC  
    
    
    
  	PROCEDURE check1.Init  
  		Thisform.Top=0  
  		Thisform.Left=_screen.Width-Thisform.Width  
  		Thisform.Height=_screen.Height  
  	ENDPROC  

Автор публикации

не в сети 20 лет

shumik73

Комментарии: 0Публикации: 1Регистрация: 10-05-2006

(далее…)

Книга “150 вопросов по Visual FoxPro 9”

Книга предназначена для тех, кто любит задавать вопросы и получать ответы. То, что вопросы обязательно возникнут, или уже возникли, сомневаться не приходится – знаю по своему опыту. И вот для того, чтобы сохранить Ваше время, потраченное на мучительные поиски того или иного решения, я её и написал. При создании я исходил как из своих личных наработок, так и пользовался материалами, опубликованными в Интернет. В Интернет можно найти ответ на все случаи жизни, но я сделал попытку как-то систематизировать наиболее часто возникающие у пользователей проблемы и соответственно, попытаться дать способы их решения. Ну что, готовы? Тогда вперед!

Дмитрий Шапорев

Автор публикации

не в сети 13 лет

Dmitry Shaporev

Комментарии: 0Публикации: 1Регистрация: 16-05-2013

(далее…)

Русский Help для Microsoft Visual FoxPro v9.0

Год выпуска: 2008
Разработчик: Перевод выполнен силами FoxClub
Адрес официального сайта: http://www.foxclub.ru
Описание: Русский файл справки для Microsoft Visual FoxPro 9.0 SP1. Перевод выполнен силами энтузиастов с согласия компании Microsoft. Руководитель проекта Юрий Шутенко
Дополнительно: Онлайн версия справки.

Автор публикации

не в сети 6 месяцев

admin

Комментарии: 1Публикации: 123Регистрация: 10-12-2000

(далее…)

Visual FoxPro 9.0: Наиболее полное руководство в подлиннике. Клепинин В.Б., Агафонова Т.П. (+CD)

Visual FoxPro ― это мощное средство для создания настольных и распределённых приложений, работающих с базами данных. Его основные достоинства ― удобный интерфейс разработчика, простота базового языка, мощный диалект SQL для эффективной работы с локальными и удалёнными данными, поддержка технологии COM и возможностей, предоставляемых Windows API.
Вы можете создавать на Visual FoxPro приложения, не только ни в чём не уступающие приложениям, созданным с помощью Visual Basic или Delphi, но и превосходящие их по удобству и скорости работы с данными.

Трудно написать книгу о программировании, которая была бы понятна начинающим и интересна профессионалам. Поэтому вы найдете здесь достаточно разноплановый материал.

Первая часть книги, написанная Татьяной Агафоновой (кроме одиннадцатой главы), содержит базовое описание Visual FoxPro. В ней рассматриваются основы языка, особенности среды разработки, поддержка баз данных и вопросы, связанные с разработкой интерфейса пользователя. Материал первой части рассчитан в основном на тех, кто делает первые шаги в изучении Visual FoxPro. В то же время, некоторые разделы будут интересны и более подготовленным программистам.

Вторая часть, написанная Вячеславом Клепининым, адресована тем, кому уже стало тесно в рамках базовых возможностях Visual FoxPro. В ней вы познакомитесь с основами технологии COM, научитесь формировать отчеты в Microsoft Excel и Microsoft Word. Большое внимание уделено применению в ваших приложениях функций Windows API для поддержки графики и мультимедиа.

В третьей части рассматриваются вопросы создания справочной системы и распространения приложений. Эти сведения, безусловно, будут полезны всем разработчикам программного обеспечения на Visual FoxPro. Все главы этой части, кроме главы 27, написаны Татьяной Агафоновой.

КЛЕПИНИН ВЯЧЕСЛАВ БОРИСОВИЧ Специалист с более чем 25-летним стажем по разработке и внедрению программных продуктов. Программированием на Visual FoxPro увлёкся в 1997 году и с тех пор является его стойким поклонником.

АГАФОНОВА ТАТЬЯНА ПЕТРОВНА Профессиональный программист. Занимается программированием на FoxPro (Visual FoxPro) более пятнадцати лет.

Авторы (активно практикующие программисты) заранее приносят свои извинения за допущенные неточности, опечатки и методические погрешности, которые вы, возможно, обнаружите в этой книге. Мы готовы выслушать все ваши замечания и пожелания.

Авторы так же выражают огромную признательность и благодарность нашим общепризнанным гуру и завсегдатаям foxclub.ru за активное участие в обсуждении материалов и доброжелательную критику.

Часть 1. Базовое программирование в Visual FoxPro

Глава 1. Введение в Visual FoxPro

Элементы языка     Команды Литералы и константы Переменные и массивы Процедуры и функции Математические, числовые, статистические и битовые функции Символьные функции Выражения и операторы Управляющие конструкции Таблицы, курсоры и базы данных Типы табличных данных Ключевые поля и индексация таблиц Индексация по сложным выражениям и использование хранимых процедур Отношения (связи) между таблицами Целостность данных при модификации связанных таблиц Триггеры и хранимые процедуры Классы и объекты Объектно-ориентированное программирование Типы объектов Свойства объектов События и методы Введение в классы Visual FoxPro Базовые классы Характеристики ООП Инкапсуляция Наследование и подклассы Полиморфизм Стандартные диалоги Visual FoxPro

Глава 2. Интерактивная среда разработки приложений (IDE)

Главное окно Visual FoxPro Главное окно и его заголовок Главное меню Панель инструментов Standard Окна Command, Properties и Document View Менеджер проекта Мастера, конструкторы и построители Мастера: назначение и области применения Конструкторы как основной инструмент разработчика Построители IntelliSense Manager Применение IntelliSense Manager Настройка параметров Task Pane Toolbox Debugger Вкладка Debug Настройка среды Настройка среды разработки Настройка среды выполнения. Файл Config.fpw Использование справочной документации

Глава 3. Проектирование приложений

Менеджер проекта и определение структуры приложения Вкладка Projects — проекты Компоненты приложения (типы файлов), их размещение Узлы Менеджера проектов Узел Data Узел Documents Узел Class Libraries Узел Code Создание компонентов проекта в Менеджере проектов Главный (стартовый) файл приложения Главная процедура приложения и процедурные файлы Ресурсы Узел Other Исполняемые файлы Создание простого исполняемого модуля

Глава 4. Формы

Форма как основной компонент приложения Модальные и немодальные формы. Форма верхнего уровня Модальность Типы интерфейса. SDI или MDI? Диалоги Свойства, события и методы экранных форм Создание экранной формы. Конструктор форм Панели инструментов Конструктора форм Панель инструментов Form Designer Панель инструментов Form Controls Панель инструментов Layout Пункты меню Form и Format Размещение на форме элементов управления Использование окна свойств для работы с элементами управления Добавление в форму пользовательских свойств и методов Добавление и редактирование методов Сохранение формы Управление формами

Глава 5. Элементы управления

Порядок размещения элементов управления на форме Создание элементов управления с помощью Form Controls Toolbar Создание элементов управления через библиотеки классов Создание элементов управления через DataEnvironment Венгерская нотация Список элементов управления CheckBox (Флажок) ComboBox (Комбинированный список) Command Button (Кнопка) Command Group (Группа кнопок) Container (Контейнер) Control Custom EditBox (Редактируемое поле) Grid HyperLink (Ссылка) Image (Графический объект) Label (Этикетка) Line (Линия) List Box (Список) OLEBound Control OLE Control Option Group (Группа переключателей) PageFrame (Набор страниц) Shape (Контур) Spinner (Счетчик) TextBox (Текстовое поле) Timer (Таймер) Toolbar

Глава 6. Проектирование баз данных

Свободные таблицы Контейнер базы данных Кодовые страницы Нормализация данных Отношение "один-к-одному" Отношение "один-ко-многим" Отношение "много-к-одному" Отношение "много-ко-многим" Ключевое поле Проектирование нормализованных баз данных Первая нормальная форма Вторая нормальная форма Третья нормальная форма Создание и модификация свободных таблиц Создание таблиц с помощью Конструктора таблиц Индексация Регулярные и уникальные индексы Индексация по сложным выражениям и использование хранимых процедур Поиск в индексированной таблице Выбор активного индекса в процессе выполнения Отношения (связи) между таблицами Создание таблицы программным способом Создание и модификация баз данных Создание базы данных с помощью конструктора Диаграмма отношений между таблицами Определение свойств полей Определение свойств таблицы Триггеры Хранимые процедуры Дополнительные возможности контроля данных и их целостности Курсоры Локальные и удаленные представления (назначение)

Глава 7. Работа с данными

Управление данными Открытие баз данных и таблиц Навигационные команды Добавление данных в поля типа Blob, Memo и General Фильтры Реляционные команды Использование транзакций События базы данных Локальное представление данных Создание представления (View) с помощью конструктора представлений Что такое Rushmore?

Глава 8. Работа с удалёнными данными

Введение в технологию "клиент-сервер" Установка соединения с удаленными данными Установка источника данных ODBC Именованное соединение Удаленные представления (Remote Views) Сквозной запрос (SQL pass-through) MS SQL Server Способы соединения с сервером Использование команд T-SQL Краткий справочник по Transact-SQL Организация взаимодействия с удаленным источником данных Вызов хранимых процедур ActiveX Data Objects (ADO) Применение CursorAdapter Работа с полем, имеющим свойство IDENTITY Особенности работы с полями типа Blob Поддержка XML Парсеры (Анализаторы)

Глава 9. Отображение табличных данных на форме

DataEnvironment (Среда данных) Конструктор Data Environment Свойства, события и методы объекта DataEnvironment Сессии данных Табличное представление данных     Grid (Сетка) Объектная модель Grid Визуальные эффекты Grid OLE-объекты в таблицах Отображение данных в Grid Навигация данных

Глава 10. Использование внешних компонентов

Общие сведения об ActiveX управляющих элементах Описание и настройка отдельных компонентов ActiveX Календарь TreeView Управляющий элемент ActiveX Bound Control

Глава 11. Создание пользовательских классов

Конструктор классов Классы и библиотеки классов Создание классов в Конструкторе классов Обозреватель классов Программное создание классов Определение класса Класс Custom Управление временем жизни объектов Класс Collection Создание Свойства Методы Применение Класс Empty Функции для работы с классами и объектами Функции ADDPROPERTY() и REMOVEPROPERTY() Функция ACLASS() Функция AMEMBERS() Функция GETPEM() Функция PEMSTATUS()

Глава 12. Создание меню

Создание меню в Конструкторе меню Меню, заменяющее главное окно Visual FoxPro Меню формы верхнего уровня Раскрывающееся (контекстное) меню Команды создания меню Меню в SDI- и MDI-формах Вызов меню Вызов из меню методов формы Свойства меню Восстановление главного меню Visual FoxPro

Глава 13. Отчёты

Введение в систему отчетов Непосредственный вывод на принтер Стандартный отчет (Quick Report) Мастер отчетов Конструктор отчетов Среда окружения отчета Панель инструментов Конструктора отчетов Выполнение надписей в отчете Размещение табличных полей в отчете Группировка данных отчета Переменные в отчете Разметка страницы OLE-объекты в отчете Просмотр и печать отчета Многоколоночный отчет Создание этикеток Особенности многополосных отчетов Управление отчетами — объект ReportListener Свойства, методы и события объекта ReportListener

Глава 14. Обработка ошибок

Синтаксические ошибки Ошибки в логике программы Ошибки времени выполнения (Run-Time Error) Инструменты для определения ошибок Обработка ошибочных ситуаций Стандартный обработчик ошибок Команда ON ERROR Конструкция TRY... CATCH... FINALLY Coverage Profile

Часть 2. Расширенное программирование в Visual FoxPro

Глава 15. Операции с файлами

Импорт данных Диалог Import Мастер импорта данных Команда Import From Команда Append From Экспорт данных Диалоговое окно Export Команда Export To Команда Copy To Копирование и удаление файлов Использование функции ALINES() Низкоуровневый доступ к файлам Открытие и закрытие файлов Работа с файлами последовательного доступа Работа с двоичными файлами Обработка ошибок Изменение размера файла Проверка наличия файла и даты изменения Структура таблиц формата DBF Заголовок таблицы Блоки записей таблицы Изменение кодовой страницы Редактор файлов HexEdit Специальные таблицы Visual FoxPro

Глава 16. Технология COM

Введение в технологию COM Процессы и потоки Идентификаторы Информация о COM-объектах в реестре Windows Интерфейсы Раннее и позднее связывание в COM Среда Visual FoxPro и поддержка COM Программное создание COM-сервера Информация о классе в Object Browser Тестирование COM-сервера vfpserver Особенности объявления COM-класса в Visual FoxPro Выбор базового класса для создания COM-класса Работа с массивами Обработка ошибок Региональные настройки Создание COM-класса в Конструкторе классов Тестирование: клиент на Visual FoxPro Тестирование: клиент — Microsoft Excel Окончательная доработка приложения VfpTextEdit Сокрытие "лишних" методов и свойств Распределенные приложения Распределенные COM (DCOM) Приложения COM+ Регистрация COM-серверов

Глава 17. Автоматизация MS Office

Введение в Microsoft Office Объекты Использование раннего связывания Объекты-коллекции Макросы Определение значений констант Константы Microsoft Office Автоматизация Microsoft Excel Объектная модель Microsoft Excel Оформление отчетов Формирование отчетов Уменьшение времени формирования отчета Печать Уничтожение объекта Microsoft Excel Автоматизация Microsoft Word Объектная модель Microsoft Word

Глава 18. Компоненты ActiveX

Общие сведения об использовании компонентов Выбор и размещение компонента на форме Лицензирование Интерактивная установка свойств компонента Компонент ProgressBar Компонент Slider Компонент RichText Свойства Свойства типа SelXXX Методы Контекстное меню RichText Работа с буфером обмена Форматирование RTF-документа Компонент Web Browser Метод Navigate2 Окно справки, использующее Web Browser Интерактивные отчеты в Web Browser Другие методы компонента Web Browser Функция SYS(2333)

Глава 19. Windows API

Введение в Windows API Объявление функций Windows API в Visual FoxPro Базовые типы данных в С++ Типы данных Windows Указатели Структуры Прототипы функций MSDN как источник информации о прототипах функций Формирование структур в Visual FoxPro Передача массивов в функцию Windows API Форматы символьных данных ANSI и Unicode Многократное объявление функций Windows API Удаление зарегистрированных функций Распределение памяти для структур с указателями Распределение памяти Windows Распределение памяти внутри процесса Работа с указателями в Visual FoxPro Освобождение распределенной памяти Применение функций Windows API

Глава 20. Работа с Реестром Windows

Структура реестра Использование функций Windows API Открытие ключа реестра Чтение значений ключа Закрытие ключа и сохранение реестра Пример чтения информации из реестра Создание ключа Запись и удаление значений ключа Другие API-функции для работы с реестром Windows Использование Windows Scripting Host Создание разделов и запись значений ключей реестра Чтение информации из реестра Удаление информации из реестра Изменение значения ключа Дополнительные возможности объекта WshShell Запуск приложения Имитация нажатия клавиш клавиатуры Просмотр значений переменных окружения Windows

Глава 21. Применение GDI+

Введение в GDIPlus Векторная и растровая графика Форматы графических файлов Инициализация и завершение GDIPlus Объектная модель GDIPlus Поддержка формата Unicode Обработка ошибок Класс VFPGdiplus Загрузка, сохранение и удаление изображений Загрузка изображения из файла. Сохранение изображения в файле Загрузка изображения из поля таблицы или переменной Сохранение изображения в переменной (в поле таблицы) Использование буфера обмена Windows Информация об изображении Определение размеров растра Определение разрешения растра Определение графического формата изображения Операции над изображениями Поворот и отражение изображения Отсекание прямоугольного фрагмента изображения Создание растра Форматы пикселов Объект Graphics, связанный с растром Изменение размеров изображения Обзор функций для копирования изображений

Глава 22. Рисование в GDI+

Цвета, единицы измерения и координаты Концепция цвета и прозрачности. Метод ARGB Использование различных единиц измерения Система координат Инструментарий Перья Кисти Графические примитивы Антиалиасинг Прямые и ломаные линии Сплайны Прямоугольники Многоугольники Окружности и эллипсы Сектора и дуги Рисование текстовых строк Объекты FontFamily и Font Управление качеством отображения символов Определение длины текстовой строки Форматирование текста Рисование изображений

Глава 23. Графический вывод в GDI+

Печать на принтере Создание графического контекста принтера Создание связанного с принтером объекта Graphics Определение размера листа принтера Документ принтера Класс для печати на принтере Рисование в окне формы Определение "правильного" HWnd Перехват оконных сообщений Создание связанного с окном объекта Graphics Форма для рисования Класс для рисования в окне формы Динамическое отображение диаграмм Применение GDIPlus в отчетах События, методы и свойства объекта ReportListener Создание отчета Процедура запуска отчета Координатные преобразования Манипуляции с цветом Объект ImageAttributes Пример корректировки цветовой гаммы изображения Еще несколько функций GDIPlus... Перо, рисующее кистью Изменение вида начала или конца линии Изменение и установка цвета пикселов Обзор классов Класс GdipImages Класс GdipPrinter Класс GdipWindow

Глава 24. Мультимедиа

Запись и воспроизведение WAV-файлов Запись звукового файла Воспроизведение звукового файла Воспроизведение стандартных звуков Windows Интерфейс управления мультимедиа (MCI) Команды MCI Особенности вывода видео на форме Класс для управления MCI Проигрыватель звуковых файлов Проигрыватель видеофайлов Microsoft Agent Объектная модель Microsoft Agent Коллекция персонажей Characters Объект Character (персонаж) Управление анимацией. Объект Request Управление воспроизведением речи Объект Balloon Объект AudioOutput ActiveX-компонент Microsoft Agent Использование Ассистентов Microsoft Office 2003 Обработка ошибок Microsoft Agent

Часть 3. Распространение приложений

Глава 25. Описание демо-проекта (делопроизводство)

Постановка задачи Определение языка программирования, создание структур для хранения данных Определение состава проекта Разработка главного модуля приложения Разработка меню Разработка форм Файл помощи

Глава 26. Разработка справочной документации

Строка состояния Справка в формате "What's This?" ("Что это?") Диалоговые окна Описание работы с HTML Help Workshop Создание тем справочной системы Содержание Предметный указатель Определение ссылок на фрагменты справки в свойствах HelpID объектов Определение псевдонимов тем Определение параметров проекта справочной системы Компиляция и тестирование справочной системы Команды Visual FoxPro для управления справочной системой Формирование файла проекта справочной системы

Глава 27. Распространение приложений

Введение в InstallShield Express Установка InstallShield Express Запуск InstallShield Express Создание дистрибутива приложения Общие установки Спецификация данных приложения Вставка пункта в меню Пуск и иконки приложения Определения набора диалогов Мастера установки Определение требований к среде выполнения Сборка дистрибутива Редактирование дистрибутива приложения

Глава 28. Полезные советы

1. Как изменить кодовую страницу таблицы? 2. Как прочитать список файлов, расположенных в одном каталоге? 3. Вы хотите закрыть свой проект от взлома, хотя бы от не очень компетентных людей 4. Вы хотите ввести пароль и зашифровать его 5. Вы хотите, чтобы Ваше приложение запускалось только один раз на каждом компьютере 6. Как вычислить определенные даты 7. Как сделать всплывающую подсказку. 8. Как работать с INI-файлами? 9. Как сделать ссылку? 10. Как <прикрепить> созданную вами иконку к проекту? 11. Как организовать ProgressBar? ("градусник","термометр") 12. Обновление версий 13. Преобразовать "Сидоров Василий Иванович" в "Сидоров" "Василий" "Иванович" 14. Анимированная иконка 15. Как создать задание на SQL-Server? 16. Как запустить архиватор arj из VFP, чтобы он при запуске не мелькал на экране? 17. Как определить серийный номер жесткого диска? 18. Отображение текста на форме в виде бегущей строки 19. Создание каталога для отчетов и создание ссылки на него на рабочем столе пользователя 20. Определение информации о дисках компьютера 21. Создание <на лету> группы кнопок или переключателей (из таблицы) 22. При нажатии клавиши Enter первая колонка Grid скрывается за границу Grid 23. Контекстный поиск в Grid 24. Информирование пользователя о выполнении какого-либо процесса 25. Как вернуть название месяца по его номеру 26. Как выгрузить неактивную программу у пользователей 27. Как разместить на форме часы 28. Как заставить цифровую клавиатуру отображать точку при любой раскладке (Ru/En) 29. Как заменить сообщение "Invalid Date" при вводе некорректной даты 30. Как получить программный код создания структуры базы данных 31. Как перенести данные из текстового файла в таблицу 32. Получение данных об установленных программных продуктах 33. Из какой папки запущена программа (EXE-файл) 34. VFP + Internet Explorer 35. Связь VFP и Lotus Notes

Приложения

1. Установка и настройка Visual FoxPro 2. Перечень команд типа SET 3. Справочник по встроенным функциям Visual FoxPro 4. Свойства и методы объектов Visual FoxPro 5. Содержание компакт-диска

Автор публикации

не в сети 2 месяца

Joys

Комментарии: 2Публикации: 177Регистрация: 25-06-2000

(далее…)

ZIP-архиватор на основе Zlib

*== Тестовый пример производит архивирование каталога %WinDir%system32 в файл C:TestZip.zip  
 *  
 * Пути можете подправить по собственному усмотрению.  
 * Библиотека в приложении  
    
  oTest = CREATEOBJECT("clsTest")  
  oTest.SHOW(1)  
    
    
 *===== Тестовый класс =====:  
  DEFINE CLASS clsTest AS FORM  
  CAPTION = "Тест архивирования"  
    
  ADD OBJECT btnOk AS CommandButton WITH ;  
  LEFT = 10, ;  
  TOP = 10, ;  
  WIDTH = 50, ;  
  HEIGHT = 25, ;  
  CAPTION = "Start"  
    
    
 *===== Тестовое архивирование =====:  
  PROC btnOk.CLICK  
  LOCAL lcWinDir  
    
  lcWinDir = ADDBS(GETENV("windir")) + "System32"  
  IF !PEMSTATUS(THISFORM, "test", 5)  
  THISFORM.AddObject("test", "clsZip", 5, THISFORM.HEIGHT-25, THISFORM.WIDTH-10, 20)  
  ENDIF  
  THISFORM.test.Zip(lcWinDir + "*.*", "C:TestZip", "r")  
  ENDPROC && btnOk.CLICK  
    
  ENDDEFINE && clsTest  
    
    
 **************************************************************  
 * СОЗДАНИЕ ZIP-АРХИВА  
 *  
 * (c) Copyright 2004 by Dmitry Aglyamov  
 *  
 * РЕСУРСЫ:  
 * Библиотека ZLib.dll  
 * MS ProgressBar  
 *  
 * ИСПОЛЬЗОВАНИЕ:  
 * 1. Создаем в форме контрол на основе класса clsZip  
 * 2. Вызываем метод Zip(tcSourceFiles, tcZipFile, tcOptions)  
 * При архивировании каталога обязательно указывать шаблон  
 * архивируемых файлов, как при вызове ADIR()  
 *  
 **************************************************************  
  DEFINE CLASS clsZip AS Control  
  SPECIALEFFECT = 0  
  BORDERWIDTH = 0  
    
  ADD OBJECT oleProcess AS OleControl WITH ;  
  OLECLASS = 'MSComctlLib.ProgCtrl.2'  
    
    
 *===== Инициализация =====:  
  PROC INIT (tnLt, tnTp, tnWt, tnHt)  
  THIS.LEFT = tnLt  
  THIS.TOP = tnTp  
  THIS.WIDTH = tnWt  
  THIS.HEIGHT = tnHt  
  THIS.oleProcess.SCROLLING = 1  
  THIS.VISIBLE = .T.  
  ENDPROC && INIT  
    
    
 *===== СОЗДАНИЕ ZIP-АРХИВА ===== :  
  PROC Zip (tcFiles, tcZip, tcStat)  
 * tcFiles - Путь архивируемого каталога / файла  
 * tcZip - Файл ZIP-архива  
 * tcStat - r включать подкаталоги  
    
  LOCAL lHndlZip, ;  
  lcAtr,lcPathSave  
    
  tcStat = IIF(VARTYPE(tcStat) = "C", tcStat, "")  
  tcFiles = ALLTRIM(tcFiles)  
  lcAtr = "ASHR" + IIF("r" $ tcStat, "D", "")  
  tcZip = ALLTRIM(tcZip)  
  IF UPPER(RIGHT(tcZip, 4)) # ".ZIP"  
  tcZip = tcZip + ".ZIP"  
  ENDIF  
  THIS.oleProcess.VALUE = 0  
    
 *=== Чтобы не писать полные пути в архиве переходим в нужный каталог :  
  lcPathSave = SYS(5)+SYS(2003)  
  IF OCCURS("", tcFiles) > 1  
  SET DEFAULT TO LEFT(tcFiles, RAT("", tcFiles))  
  tcFiles = LEFT(tcFiles, AT("", tcFiles)-1) + "*.*"  
  ENDIF  
    
 *=== Определяем размер архивируемых файлов (для скроллера) :  
  THIS.oleProcess.MAX = THIS.GetSizeDir(tcFiles, lcAtr)  
    
 *=== Инициализация библиотеки Zip-архиватора :  
  DECLARE INTEGER zipOpen IN ZLib STRING cPath, INTEGER cMode  
  DECLARE INTEGER zipOpenNewFileInZip IN ZLib ;  
  INTEGER IdFile, STRING NameFile, STRING InfoFile, STRING ExtLocal, ;  
  INTEGER SizeExtLocal, STRING ExtGlobal, INTEGER SizeExtGlobal, ;  
  STRING Comment, INTEGER Method, INTEGER Level  
  DECLARE INTEGER zipWriteInFileInZip IN ZLib INTEGER IdFile, STRING @Buf, LONG LenBuf  
  DECLARE INTEGER zipCloseFileInZip IN ZLib INTEGER IdFile  
  DECLARE INTEGER zipClose IN ZLib INTEGER IdFile, STRING Comment  
    
  lHndlZip = ZipOpen(tcZip, 0)  
  THIS.pZipFiles(lHndlZip, tcFiles, lcAtr)  
  ZipClose(lHndlZip, "")  
  THIS.oleProcess.VALUE = 0  
    
  CLEAR DLLS zipOpen, zipOpenNewFileInZip, zipWriteInFileInZip, zipCloseFileInZip, zipClose  
  SET DEFAULT TO (lcPathSave)  
  ENDPROC && Zip  
    
    
 *===== Архивация файлов каталога =====:  
  PROC pZipFiles (tHndlZip, tcFiles, tcAtr)  
 * tHndlZip - Хендл Zip-файла  
 * tcFiles - Полный путь каталога с шаблоном выбираемых файлов  
 * tcAtr - Атрибуты выбираемых файлов  
    
  LOCAL laFiles[1,1], ;  
  lHndlFile,i, ;  
  lcZipFileInfo,lcPath,lcBuff  
    
  lnAllFiles = ADIR(laFiles, tcFiles, tcAtr, 1)  
  FOR i=1 TO lnAllFiles  
  IF INLIST(laFiles[i, 1], ".", "..")  
  LOOP  
  ENDIF  
  lcPath = IIF("" $ tcFiles, LEFT(tcFiles, RAT("", tcFiles)), "")  
  lcZipFileInfo = THIS.fGetZipFileInfo(DTOC(laFiles[i, 3]),laFiles[i, 4],laFiles[i, 5])  
  ZipOpenNewFileInZip(tHndlZip, CPCONVERT(1251, 866, lcPath+laFiles[i, 1]), ;  
  @lcZipFileInfo, 0, 0, 0, 0, "", 8,-1)  
  lHndlFile = FOPEN(lcPath + laFiles[i, 1])  
  DO WHILE !FEOF(lHndlFile)  
  lcBuff = FREAD(lHndlFile, 65536)  
  ZipWriteInFileInZip(tHndlZip, @lcBuff, LEN(lcBuff))  
  THIS.oleProcess.VALUE = THIS.oleProcess.VALUE + LEN(lcBuff)  
  ENDDO  
  FCLOSE(lHndlFile)  
  ZipCloseFileInZip(tHndlZip)  
    
  IF CHRSAW() AND INKEY() = 27  
  RETURN .F.  
  ENDIF  
  IF "D" $ laFiles[i, 5] AND "D" $ tcAtr  
  IF !THIS.pZipFiles(tHndlZip, lcPath + laFiles[i, 1] + "*.*", tcAtr)  
  RETURN .F.  
  ENDIF  
  ENDIF  
  ENDFOR  
  ENDPROC && pZipFiles  
    
    
 *===== Формирование структуры информации файла, записываемого в Zip-архив =====:  
  PROC fGetZipFileInfo (tcDate, tcTime, tcAttrib)  
 * tcDate - дата создания файла  
 * tcTime - время создания файла  
 * tcAttrib - атрибут файла  
    
 * typedef struct  
 * {  
 * tm_zip tmz_date; /* date in understandable format */  
 * uLong dosDate; /* if dos_date == 0, tmu_date is used */  
 * uLong internal_fa; /* internal file attributes 2 bytes */  
 * uLong external_fa; /* external file attributes 4 bytes */  
 * } zip_fileinfo;  
    
 * typedef struct tm_zip_s  
 * {  
 * uInt tm_sec; /* seconds after the minute - [0,59] */  
 * uInt tm_min; /* minutes after the hour - [0,59] */  
 * uInt tm_hour; /* hours since midnight - [0,23] */  
 * uInt tm_mday; /* day of the month - [1,31] */  
 * uInt tm_mon; /* months since January - [0,11] */  
 * uInt tm_year; /* years - [1980..2044] */  
 * } tm_zip  
    
  LOCAL lnAttrib,i, ;  
  lcZipFileInfo  
    
  lcZipFileInfo = ""  
  FOR i=3 TO 1 STEP -1  
  lcZipFileInfo = lcZipFileInfo + ;  
  THIS.DigitAsString(VAL(STREXTRACT(":"+tcTime+":", ":", ":", i)))  
  ENDFOR  
  FOR i=1 TO 3  
  lcZipFileInfo = lcZipFileInfo + ;  
  THIS.DigitAsString(VAL(STREXTRACT("/"+tcDate+"/", "/", "/", i)) - ;  
  IIF(i = 2, 1, 0))  
  ENDFOR  
  lcZipFileInfo = lcZipFileInfo + THIS.DigitAsString(0)  
  lcZipFileInfo = lcZipFileInfo + THIS.DigitAsString(0)  
  lnAttrib = 0  
  FOR i=1 TO 6  
  IF SUBSTR("RHSVDA", i, 1) $ UPPER(tcAttrib)  
  lnAttrib = BITSET(lnAttrib, i-1)  
  ENDIF  
  ENDFOR  
  lcZipFileInfo = lcZipFileInfo + THIS.DigitAsString(lnAttrib)  
  RETURN lcZipFileInfo  
  ENDPROC && fGetZipFileInfo  
    
    
 *===== ОПРЕДЕЛЕНИЕ РАЗМЕРА КАТАЛОГА (в байтах) =====:  
  PROC GetSizeDir (tcFiles, tcAtr)  
 * tcFiles - Полный путь каталога с шаблоном выбираемых файлов  
 * tcAtr - Атрибуты выбираемых файлов  
    
  LOCAL laFiles[1,1], ;  
  lnAllBytes,i, ;  
  lcPath  
    
  lnAllBytes = 0  
  FOR i=1 TO ADIR(laFiles, tcFiles, tcAtr, 1)  
  IF INLIST(laFiles[i, 1], ".", "..")  
  LOOP  
  ENDIF  
  IF "D" $ laFiles[i, 5] AND "D" $ tcAtr  
  lcPath = IIF("" $ tcFiles, LEFT(tcFiles, RAT("", tcFiles)), "")  
  lnAllBytes = lnAllBytes + THIS.GetSizeDir(lcPath + laFiles[i, 1] + "*.*", tcAtr)  
  ELSE  
  lnAllBytes = lnAllBytes + laFiles[i, 2]  
  ENDIF  
  ENDFOR  
  RETURN lnAllBytes  
  ENDPROC && GetSizeDir  
    
    
 *===== Возвращает число в виде строки чисел типа DWORD =====:  
  PROC DigitAsString (tnInteger)  
  RETURN CHR(BITAND(tnInteger, 255)) + CHR(BITAND(BITRSHIFT(tnInteger, 8), 255)) + ;  
  CHR(BITAND(BITRSHIFT(tnInteger, 16), 255)) + CHR(BITAND(BITRSHIFT(tnInteger, 24), 255))  
  ENDPROC && DigitAsString  
    
    
 *===== Ширина контрола =====:  
  PROC WIDTH_ASSIGN (tnVal)  
  STORE tnVal TO THIS.WIDTH, THIS.oleProcess.WIDTH  
  ENDPROC && WIDTH_ASSIGN  
    
    
 *===== Высота контрола =====:  
  PROC HEIGHT_ASSIGN (tnVal)  
  STORE tnVal TO THIS.HEIGHT, THIS.oleProcess.HEIGHT  
  ENDPROC && HEIGHT_ASSIGN  
  ENDDEFINE && clsZip

Автор публикации

не в сети 6 месяцев

admin

Комментарии: 1Публикации: 123Регистрация: 10-12-2000

(далее…)

Вывод данных GENERAL поля обратно в WORD

*************************************************  
 * Вывод результатов Дженерал поля в ВОРД - ResultToWord *  
 *************************************************  
  FUNCTION ResultToWord  
    
  cFileFolder = "c:"  
    
  close all  
    
 * CopyGen Demo routine - you can modify this to suit your needs  
 *======================  
    
 ********** Required code before CopyGen is called ********  
  SET LIBRARY TO &Main_pathfoxtools.fll ADDITIVE &&  
 * &&  
  DIMENSION FnNum[7] &&  
  FnNum = -1 &&  
 **********************************************************  
    
    
  PrevSec = SECONDS()  
  use &Main_path_tmp.DBF in 45 shared alias temporary &&c:_tmp.dbf in 0 shared  
  SELECT temporary  
  goto top  
  cNameOfStudent = ALLTRIM(temporary.person)  
    
  sum temporary.bal TO nAllBalls  
    
  SELECT temporary  
  goto 2  
    
    
  scan all  
    
 * QUEST = General field name  
    
  RetVal = CopyGen(DBF("temporary"), recno(), "Quest", "c:"+ALLTRIM(STR(RECNO())) ) && do not use targetfile extension  
    
 *****************************************  
 * формирование ВОРД-документов  
 * если в General поле стоит картинка - то попросту будет создан bmp, gif, jpeg файд  
 *****************************************  
    
  DO CASE  
  CASE RetVal = 0  
 * WAIT WINDOW "File extracted successfully! ("+STR(SECONDS()-PrevSec)+" seconds)";  
 * + CHR(13) + "Press any key to continue......"  
  CASE RetVal = -1  
  WAIT WINDOW "CopyGen demo works only with 1986 dbf file size!" + CHR(13) + "Press any key to continue......"  
  CASE RetVal = -2  
  WAIT WINDOW "File access error - not found or in exclusive use!" + CHR(13) + "Press any key to continue......"  
  CASE RetVal = -3  
  WAIT WINDOW "Incorrect filetype - not FPW/memo or VFP/memo!" + CHR(13) + "Press any key to continue......"  
  CASE RetVal = -4  
  WAIT WINDOW "Specified field not found in DBF file!"  
  CASE RetVal = -5  
  WAIT WINDOW "Specified field is not a general field!"  
  CASE RetVal = -6  
 * WAIT WINDOW "No valid .BMP or .DOC file found inside general field!"  
  ENDCASE  
    
  endscan  
    
 *************************  
 * создаем массив с созданными  
 * выще ВОРД-документами  
 *************************  
    
  n = adir(afiles, cFileFolder + "*.doc")  
    
  oWord = createobject("Word.application")  
  y = oWord.documents.ADD  
    
 **************  
  oRange = oWord.ActiveDocument.Range()  
    
  oword.Selection.Font.Size=12  
  oword.Selection.Font.bold=.t.  
  oword.Selection.ParagraphFormat.Alignment=1  
  oword.Selection.insertafter("Р Е З У Л Ь Т А Т И " + CHR(13) + CHR(13))  
    
  oword.Selection.insertafter(cNameOfStudent + CHR(13))  
    
  oword.Selection.insertafter("ДАТА : " + DTOC(DATE()) + " РОКУ, ЧАС: " + ;  
  TIME() + CHR(13))  
    
  oword.Selection.insertafter(CHR(13))  
    
  oword.Selection.InsertAfter('ЗАГАЛЬНА КIЛЬКIСТЬ : ' + str(nAllBalls))  
    
  END=oword.activedocument.Bookmarks("ENDOFDOC").select  
  oword.Selection.ParagraphFormat.Alignment=0  
    
  With oRange  
  .moveend(6)  
  .collapse(0)  
  .insertafter(chr(13)+chr(13))  
  .collapse(0)  
  EndWith  
    
 ********************  
    
  oword.Selection.Font.Size=11  
  oword.Selection.Font.bold=.t.  
    
  oTable = oWord.ActiveDocument.Tables.Add(oRange,1,4)  
    
  WITH oTable  
    
 * First, put all borders  
  .Borders.InsideLineStyle = .t.  
  .Borders.OutsideLineStyle = .t.  
    
    
 * Put heading text in and set alignment  
    
  .Cell[1,1].Range.ParagraphFormat.Alignment = 1 && wdAlignParagraphCenter  
  .Cell[1,2].Range.ParagraphFormat.Alignment = 1 && wdAlignParagraphCenter  
  .Cell[1,3].Range.ParagraphFormat.Alignment = 1 && wdAlignParagraphCenter  
  .Cell[1,4].Range.ParagraphFormat.Alignment = 1 && wdAlignParagraphCenter  
    
  .cell[1,1].Range.InsertAfter('№')  
  .cell[1,1].Width = 30  
  .cell[1,2].Range.InsertAfter('Содержимое ВОРД файла')  
  .cell[1,2].Width = 320  
  .cell[1,3].Range.InsertAfter('Цифровое поле')  
  .cell[1,3].Width = 80  
  .cell[1,4].Range.InsertAfter('Еще одно цифровое поле')  
  .cell[1,4].Width = 40  
  ENDWITH  
 *oWord.visible = .t.  
    
  SELECT temporary  
  goto 2 &&top  
    
  nRowNum = 1  
    
  for i = 1 to n  
    
    
  z = oWord.documents.Open(cFileFolder + aFiles[i,1])  
  z.range.copyAsPicture  
  z.close  
  IF y.paragraphs.Count > 1  
  y.paragraphs.Add  
  ENDIF  
    
  oTable.Rows.Add()  
  oTable.Cell(nRowNum + 1,1).Range.InsertAfter(STR(nRowNum))  
  oTable.Cell(nRowNum + 1,2).Select  
    
 * вставка содержимого файла в один  
  oWord.Selection.paragraphs.Last.Range.Paste  
    
  SELECT temporary  
  goto i + 1  
    
  oTable.Cell(nRowNum + 1,3).Range.InsertAfter(STR(temporary.Answer,8,2))  
  oTable.Cell(nRowNum + 1,4).Range.InsertAfter(STR(temporary.bal))  
    
  nRowNum = nRowNum + 1  
    
  endfor  
  _cliptext = ""  
    
    
  oWord.visible = .t.  
 *wait window "wait..."  
 *oWord.quit  
    
    
  ERASE cFileFolder + "*.doc" && erase doc files  
  SELECT temporary  
  use in temporary  
    
 ********************************************************  
 * END of Вывод результатов теста в ВОРД - ResultToWord *  
 ********************************************************  
    
    
 **************************************************************  
 ********* ****************  
 ********* C O P Y C O N T E N T O F ****************  
 ********* G E N E R A L F I E L D ****************  
 ********* ****************  
 **************************************************************  
  procedure copygen  
  PARAMETER DBFFILE, RECNUM, FIELDNAME, OUTFILE  
  FIELDNAME = ALLTRIM(UPPER(FIELDNAME))  
  PRIVATE DBFHANDLE, MEMOHANDLE, OUTFHANDLE, MBLOCKSIZE, MEMOLEN  
  PRIVATE FIRSTRECPOS, RECORDLEN, MBLOCKSIZE, BLOCKPOS, DBFLEFT  
  PRIVATE FILETYPE, VFP_MEMO, GENFIELD  
  PRIVATE II, IICOUNT, IIREM, TEMPNO, FIELDFOUND  
  DBFHANDLE = LFOPEN(DBFFILE,64)  
  IF DBFHANDLE<0  
  RETURN -2  
  ENDIF  
  FILETYPE = GETVALUE(DBFHANDLE,0,1,1)  
  VFP_MEMO = FILETYPE=48 .AND. BIT(1,GETVALUE(DBFHANDLE,28,1,1))  
  IF FILETYPE<>245 .AND. .NOT. VFP_MEMO  
  = LFCLOSE(DBFHANDLE)  
  RETURN -3  
  ENDIF  
  PRIVATE DBFLEN  
  DBFLEN = LFSEEK(DBFHANDLE,0,2)  
  IF DBFLEN<>1986  
 * = LFCLOSE(DBFHANDLE)  
 * RETURN -1  
  ENDIF  
  FIRSTRECPOS = GETVALUE(DBFHANDLE,8,2,1)  
  RECORDLEN = GETVALUE(DBFHANDLE,10,2,1)  
  FIELDFOUND = .F.  
  GENFIELD = .F.  
  TEMPNO = 32  
  DO WHILE .NOT. FIELDFOUND .AND. TEMPNO TEMPS = GETSTRING(DBFHANDLE,TEMPNO,LEN(FIELDNAME))  
  IF UPPER(FIELDNAME)=GETSTRING(DBFHANDLE,TEMPNO,LEN(FIELDNAME))  
  FIELDFOUND = .T.  
  POSINREC = GETVALUE(DBFHANDLE,TEMPNO+12,4,1)  
  GENFIELD = 'G'=GETSTRING(DBFHANDLE,TEMPNO+11,1)  
  ELSE  
  TEMPNO = TEMPNO+32  
  ENDIF  
  ENDDO  
  IF .NOT. FIELDFOUND  
  = LFCLOSE(DBFHANDLE)  
  RETURN -4  
  ENDIF  
  IF .NOT. GENFIELD  
  = LFCLOSE(DBFHANDLE)  
  RETURN -5  
  ENDIF  
  IF VFP_MEMO  
  BLOCKPOS = GETVALUE(DBFHANDLE,FIRSTRECPOS+(RECNUM-1)*RECORDLEN+POSINREC,4,1)  
  ELSE  
  BLOCKPOS = VAL(GETSTRING(DBFHANDLE,FIRSTRECPOS+(RECNUM-1)*RECORDLEN+POSINREC,10))  
  ENDIF  
  = LFCLOSE(DBFHANDLE)  
  DBFLEFT = UPPER(IIF(RAT('.', DBFFILE)>0, LEFT(DBFFILE, RAT('.', DBFFILE)-1), DBFFILE))  
  MEMOHANDLE = LFOPEN(DBFLEFT+'.FPT',64)  
  MBLOCKSIZE = GETVALUE(MEMOHANDLE,6,2,-1)  
  MEMOLEN = GETVALUE(MEMOHANDLE,MBLOCKSIZE*BLOCKPOS+4,4,-1)  
  TEMPS = GETSTRING(MEMOHANDLE,MBLOCKSIZE*BLOCKPOS,128)  
  PRIVATE SIGNATURE, FILEEXT  
  DO CASE  
  CASE CHR(208)+CHR(207)+CHR(17)+CHR(224)$TEMPS  
  SIGNATURE = CHR(208)+CHR(207)+CHR(17)+CHR(224)  
  FILEEXT = '.DOC'  
  CASE 'BM'$TEMPS  
  SIGNATURE = 'BM'  
  FILEEXT = '.BMP'  
  OTHERWISE  
  = LFCLOSE(MEMOHANDLE)  
  RETURN -6  
  ENDCASE  
  = LFSEEK(MEMOHANDLE,MBLOCKSIZE*BLOCKPOS-1+AT(SIGNATURE, TEMPS),0)  
  IICOUNT = INT(MEMOLEN/512)  
  IIREM = MOD(MEMOLEN, 512)  
  IF '.'$OUTFILE  
  OUTFILE = UPPER(IIF(RAT('.', OUTFILE)>0, LEFT(OUTFILE, RAT('.', OUTFILE)-1), OUTFILE))  
  ENDIF  
  OUTFHANDLE = LFCREATE(OUTFILE+FILEEXT)  
  FOR II = 1 TO IICOUNT  
  TEMPS = LFREAD(MEMOHANDLE,512)  
  = LFWRITE(OUTFHANDLE,TEMPS)  
  ENDFOR  
  IF IIREM>0  
  = LFWRITE(OUTFHANDLE,LFREAD(MEMOHANDLE,IIREM))  
  ENDIF  
  = LFCLOSE(MEMOHANDLE)  
  = LFCLOSE(OUTFHANDLE)  
  RETURN 0  
  ENDFUNC  
 *  
  FUNCTION GetValue  
  PARAMETER FILEHANDLE, FILELOC, NBYTES, DIRN  
  = LFSEEK(FILEHANDLE,FILELOC,0)  
  RETURN BYTE2INT(LFREAD(FILEHANDLE,NBYTES),DIRN)  
  ENDFUNC  
 *  
  FUNCTION byte2int  
  PARAMETER STRING, DIRN  
  PRIVATE STRLEN, A, B, RETVAL, I, J  
  RETVAL = 0  
  J = 0  
  A = IIF(DIRN>0, 0, LEN(STRING)-1)  
  B = IIF(DIRN>0, LEN(STRING)-1, 0)  
  FOR I = A TO B STEP DIRN  
  J = J+1  
  RETVAL = ASC(SUBSTR(STRING, J, 1))*256**I+RETVAL  
  ENDFOR  
  RETURN RETVAL  
  ENDFUNC  
 *  
  FUNCTION GetString  
  PARAMETER FILEHANDLE, FILELOC, NBYTES  
  = LFSEEK(FILEHANDLE,FILELOC,0)  
  RETURN LFREAD(FILEHANDLE,NBYTES)  
  ENDFUNC  
 *  
  FUNCTION Bit  
  PARAMETER BITNO, A  
  RETURN INT(MOD(A/2**BITNO, 2))=1  
  ENDFUNC  
 *  
  FUNCTION LFCREATE  
  PARAMETER FNAME, FATTRIB  
  PRIVATE FILEHANDLE  
  PRIVATE PARMS  
  PARMS = PARAMETERS()  
  = REGFUNCTS(1)  
  FILEHANDLE = CALLFN(FNNUM(1),FNAME,IIF(PARMS>2, FATTRIB, 0))  
  IF FILEHANDLE>-1  
  FNNUM[7] = LFSEEK(FILEHANDLE,0,2)  
  = LFSEEK(FILEHANDLE,0,0)  
  ENDIF  
  RETURN FILEHANDLE  
  ENDFUNC  
 *  
  FUNCTION LFOPEN  
  PARAMETER FNAME, FATTRIB  
  PRIVATE FILEHANDLE  
  FILEHANDLE = -1  
  PRIVATE PARMS  
  PARMS = PARAMETERS()  
  = REGFUNCTS(2)  
  FILEHANDLE = CALLFN(FNNUM(2),FNAME,IIF(PARMS=1, 0, FATTRIB))  
  IF FILEHANDLE>-1  
  FNNUM[7] = LFSEEK(FILEHANDLE,0,2)  
  = LFSEEK(FILEHANDLE,0,0)  
  ENDIF  
  RETURN FILEHANDLE  
  ENDFUNC  
 *  
  FUNCTION LFCLOSE  
  PARAMETER FILEHANDLE  
  = REGFUNCTS(3)  
  RETURN CALLFN(FNNUM(3),FILEHANDLE)  
  ENDFUNC  
 *  
  FUNCTION LFREAD  
  PARAMETER FILEHANDLE, BYTESTOREAD  
  PRIVATE READBUF, BYTESREAD  
  BYTESTOREAD = INT(BYTESTOREAD)  
  READBUF = REPLICATE(CHR(0), BYTESTOREAD)  
  = REGFUNCTS(4)  
  BYTESREAD = CALLFN(FNNUM(4),FILEHANDLE,@READBUF,BYTESTOREAD)  
  RETURN READBUF  
  ENDFUNC  
 *  
  FUNCTION LFWRITE  
  PARAMETER FILEHANDLE, WSTRING, BYTESTOWRITE  
  PRIVATE PARMS  
  PARMS = PARAMETERS()  
  = REGFUNCTS(5)  
  RETURN CALLFN(FNNUM(5),FILEHANDLE,WSTRING,IIF(PARMS<3, LEN(WSTRING), BYTESTOWRITE))  
  ENDFUNC  
 *  
  FUNCTION LFSEEK  
  PARAMETER FILEHANDLE, FOFFSET, RELTO  
  PRIVATE PARMS  
  PARMS = PARAMETERS()  
  = REGFUNCTS(6)  
  RETURN CALLFN(FNNUM(6),FILEHANDLE,INT(FOFFSET),IIF(PARMS=3, RELTO, 0))  
  ENDFUNC  
 *  
  FUNCTION LFEOF  
  PARAMETER FILEHANDLE  
  = REGFUNCTS(6) && = REGFUNTCS(6)  
  RETURN CALLFN(FNNUM(6),FILEHANDLE,0,1)>=FNNUM(7)  
  ENDFUNC  
 *  
  PROCEDURE RegFuncts  
  PARAMETER FNID  
  IF FNNUM(FNID)>-1  
  RETURN  
  ENDIF  
  DO CASE  
  CASE FNID=1  
  FNNUM[1] = REGFN("_lcreat","CI","I")  
  CASE FNID=2  
  FNNUM[2] = REGFN("_lopen","CI","I")  
  CASE FNID=3  
  FNNUM[3] = REGFN("_lclose","I","I")  
  CASE FNID=4  
  FNNUM[4] = REGFN("_lread","I@CI","I")  
  CASE FNID=5  
  FNNUM[5] = REGFN("_lwrite","ICI","I")  
  CASE FNID=6  
  FNNUM[6] = REGFN("_llseek","ILI","L")  
  ENDCASE  
  ENDPROC  
 *  
 ***********************

Автор публикации

не в сети 23 года

KID

Комментарии: 0Публикации: 1Регистрация: 07-02-2003

(далее…)

Fixreccount. Утилита для проверки и фиксации счетчика записей в заголовке dbf таблицы

***************************************************************
* fixreccount.prg
*
* Title:
*     Check and fix header record counter of a table
*
* Author(s): 
*     Shirokov A.V.
*
* Syntax:
*     do fixreccount [with tcTableName[, tlNeedInfo = .f.]]
*
* Parameters:
*     tcTableName - a table name
*     tlNeedInfo - flag "need debug info". Default .f.
*
* Example:
*     set printer to log.txt
*     set printer on
*     do fixreccount with "test.dbf", .t.
*     set printer off
*     set printer to
*
***************************************************************
* FOPEN's constants
*
*     0     (Default) Read Only     Buffered
#define FA_READONLY 0
*     1     Write-Only     Buffered
#define FA_WRITEONLY 1
*     2     Read and Write     Buffered
#define FA_READWRITE 2
*     10     Read-Only     Unbuffered
#define FA_READONLY_DIRECT 10
*     11     Write-Only     Unbuffered
#define FA_WRITEONLY_DIRECT 11
*     12     Read and Write     Unbuffered
#define FA_READWRITE_DIRECT 12
* FSEEK's constants
*
*     0     (Default) The beginning of the file.
#define FS_BEGIN 0
*     1     The current file pointer position
#define FS_CURRENT 1
*     2     The end of the file
#define FS_END 2
lparam tcFile, tlNeedInfo
private all
if type('m.tcFile') != 'C'
     tcFile = getfile("DBF", "Browse table")
     if empty(m.tcFile)
          return
     endif
endif
lnFile = fopen(m.tcFile, FA_READWRITE)
if m.lnFile = -1
     =MessageBox("Could not open "+m.tcFile, 16, "Error")
     return
endif
lnByte = asc(fread(m.lnFile, 1))
if not inlist(m.lnByte, ;
     0*16+2,      ; &&     FoxBASE
     0*16+3,      ; &&     FoxBASE+/dBASE III PLUS, no memo
     3*16+0,      ; &&     Visual FoxPro
     4*16+3,          ; &&     dBASE IV SQL table files, no memo
     6*16+3,      ; &&     dBASE IV SQL system files, no memo
     8*16+3,          ; &&     FoxBASE+/dBASE III PLUS, with memo
     8*16+11,      ; &&     dBASE IV with memo
     12*16+11,     ; &&     dBASE IV SQL table files, with memo
     15*16+5,      ; &&     FoxPro 2.x (or earlier) with memo
     15*16+11     ; &&     FoxBASE
     )

     =MessageBox("The file '" + m.tcFile + "' is not DBF", 16, "Error")
     fclose(m.lnFile)
     return
endif
=fseek(m.lnFile, 0, FS_BEGIN)
lnSize = fseek(m.lnFile, 0, FS_END)
lnRecCount = 0
fseek(m.lnFile, 4, FS_BEGIN) 
for lnIndex = 1 to 4
   lnByte = asc(fread(m.lnFile, 1))
   lnRecCount = bitor(m.lnRecCount, bitlshift(m.lnByte, 8*(m.lnIndex-1)))
endfor   
lnDataStart = 0
for lnIndex = 1 to 2
   lnByte = asc(fread(m.lnFile, 1))
   lnDataStart = bitor(m.lnDataStart, bitlshift(m.lnByte, 8*(m.lnIndex-1)))
endfor   
lnRecLength = 0
for lnIndex = 1 to 2
   lnByte = asc(fread(m.lnFile, 1))
   lnRecLength = bitor(m.lnRecLength, bitlshift(m.lnByte, 8*(m.lnIndex-1)))
endfor   
lnDataSize = m.lnSize - m.lnDataStart
lnFactRecCount = int(m.lnDataSize/m.lnRecLength)
lnAnswer = 0
if m.lnFactRecCount != m.lnRecCount
     lnAnswer = MessageBox(m.tcFile + chr(13) + "Do fix record counter?", 3+32, "Question")
     if m.lnAnswer == 6
          fseek(m.lnFile, 4, FS_BEGIN)      
          for lnIndex=1 to 4
               lnByte = bitand(bitrshift(m.lnFactRecCount, 8*(m.lnIndex-1)), 255)
               fwrite(m.lnFile, chr(m.lnByte), 1)
          endfor          
     endif
endif
fclose(m.lnFile)
if m.tlNeedInfo
     ? "FIXRECCOUNT FOR "+alltrim(m.tcFile) 
     ? replicate("=", 80)
     ? "Size", m.lnSize 
     ? "Data Start", m.lnDataStart
     ? "Data Size = Size - Data Start = ", m.lnSize, "-", m.lnDataStart, " = ", m.lnDataSize 
     ? "Record Length", m.lnRecLength
     ? "Header Record Count", m.lnRecCount
     ? "Fact Record Count = Data Size / Record Length = ", m.lnDataSize, "/", m.lnRecLength,
"=",m.lnFactRecCount
     if m.lnFactRecCount = m.lnRecCount
          ? "NO NEED FIX"
     else
          ? iif(m.lnAnswer == 6, "FIXED", "FIX IS SKIPED")
     endif
endif
return m.lnAnswer == 6

Автор публикации

не в сети 24 года

AnatolyS

Комментарии: 0Публикации: 1Регистрация: 21-01-2002

(далее…)

COMBigRepD 1.01 – замена штатному генератору отчетов

   o =CREATEOBJECT("COMBigRepD.BigReport") && Создаем указатель и загружаем сервер
  
  o.ReportFileName = "c:\combigrepdtest1.frf" && Полное имя отчета
  
  o.DesignExist() && Редактирования отчета указанного в o.ReportFileName
  
  o.Report(.F.,1) && Печать указанного в o.ReportFileName отчета без привью, 1 экз.
  
  o.Report(.T.,1) && Печать указанного в o.ReportFileName отчета с привью, 1 экз.
  
  o.DesignNew() && Создание нового отчета
  
  RELEASE o && Выгрузка и удаление сервера  

Автор публикации

не в сети 26 лет

YuriWhite

Комментарии: 0Публикации: 3Регистрация: 02-09-2000

(далее…)

Автонастройка папок при запуске проектов.

Автор публикации

не в сети 24 года

RusMikle

Комментарии: 0Публикации: 5Регистрация: 10-04-2002

(далее…)

Удаление дубликатов файлов (старая программа 2008г.)

Автор публикации

не в сети 2 дня

my

Комментарии: 1Публикации: 1Регистрация: 09-06-2006

(далее…)

Advanced RTF Report

Автор публикации

не в сети 3 года

TAS

Комментарии: 0Публикации: 7Регистрация: 28-09-2000

(далее…)

VFP редактор PRG

Автор публикации

не в сети 18 лет

Taran

Комментарии: 0Публикации: 1Регистрация: 16-01-2008

(далее…)

Mikrotik RouterOS API VFP 9.0 SP2

Автор публикации

не в сети 19 лет

Bobr

Комментарии: 0Публикации: 2Регистрация: 21-11-2006

(далее…)

Генератор паролей

Автор публикации

не в сети 23 года

awake

Комментарии: 0Публикации: 1Регистрация: 14-02-2003

(далее…)

Mikrotik RouterOS API VFP 9.0 SP2

Автор публикации

не в сети 19 лет

Bobr

Комментарии: 0Публикации: 2Регистрация: 21-11-2006

(далее…)

Удаленное администрирование ПО средствами WMI

Автор публикации

не в сети 5 месяцев

Яковлев Игорь

Комментарии: 0Публикации: 1Регистрация: 20-10-2017

(далее…)

Treeview+Listview+Unicode

Автор публикации

не в сети 4 года

dimuhametov

Комментарии: 0Публикации: 3Регистрация: 01-11-2008

(далее…)

Модуль абстрактного учётно-аналитического приложения (PROTOTYP)

Автор публикации

не в сети 15 лет

INFO2MAX

Комментарии: 0Публикации: 1Регистрация: 23-02-2011

(далее…)

Проверка статуса контрагента (версия 2), проверяем ИНН/КПП на дату

* ==============================================================================================================================  
 * Автор:            vic119, Alex Roublev (доработка), Igor Korolyov (верификация, доработка), SSA (верификация, доработка)  
 * Дата:             10.12.2014, 27.04.2017  
 * Описание:         статус ИНН/КПП на дату  
 *                   проверка контрагента через SOAP-интерфейс на сайте Федеральной налоговой службы https://npchk.nalog.ru/  
 * Документация:     https://npchk.nalog.ru/ws2.doc  
 *  
 * Примечание:       на 27.04.2017 на сайте ФНС сервис работает в тестовом режиме  
 *  
 * Доп. информация:  Использование WEB сервиса для проверки ИНН/КПП контрагента: http://infostart.ru/public/439808/  
 *                   Обсуждение на форуме Foxclub: http://forum.foxclub.ru/read.php?29,645686  
 *  
 * Библиотека:       используется библиотека Microsoft XML Core Service версия 6 SP3 (msxml6.dll)  
 *                   альтернатива - MSXML версия 4 SP2 (msxml4.dll) с вызовом объекта класса Msxml2.XMLHTTP.4.0  
 *                   описание версий https://support.microsoft.com/ru-ru/help/269238/list-of-microsoft-xml-parser-msxml-versions  
 *  
 * Параметры:  
 *                   tcInn  - ИНН контрагента  
 *                   tcKpp  - КПП контрагента  
 *                   tcDate - дата, на которую проверяем в строковом формате 'дд.мм.гггг'  
 *  
 * Возврат:          строка с описанием статуса проверки  
 * =============================================================================================================================  
  #DEFINE TIME_LIMIT    30 && лимит времени при обращении к сайту ФНС (для выхода из цикла)  
    
  CLEAR  
    
  LOCAL lcInn AS STRING, lcKpp AS STRING, ldDate AS DATE  
    
  lcInn = '6441012385'  
  lcKpp = '583601001'  
  ldDate = {^2014.12.08}  
    
  LOCAL ARRAY vaState(1,2)  
    
  vaState(1,1) = '-1'  
  vaState(1,2) = ''  
    
  Check_INN_KPP(m.lcInn, m.lcKpp, m.ldDate, @vaState)  
    
  ?Check_Status_INN_KPP(@vaState)  
    
  FUNCTION Check_INN_KPP()  
    
      LPARAMETERS tcInn AS STRING, tcKpp AS STRING, tdDate AS DATE, vaState  
    
      LOCAL ;  
          loHttp AS 'Msxml2.XMLHTTP.6.0', ; && класс объекта для работы с SOAP-интерфейсом на сайте ФНС  
          loError AS OBJECT, ; && объект для записи сообщения об ошибке  
          lcRequest AS STRING, ; && xml-данные для запроса статуса контрагента  
          ltTimeout AS DATETIME && время перед началом выполнения опроса сайта в цикле  
    
     ****************************************  
     * проверка корректности ввода параметров  
    
      DO CASE  
          CASE PCOUNT() < 3  
              tdDate = DATE()  
          CASE PCOUNT() < 2  
              tcKpp = ''  
          CASE PCOUNT() < 1  
              tcInn = ''  
      ENDCASE  
    
      DO CASE  
          CASE EMPTY(tcInn)  
              vaState(1,2) = 'не заполнен номер ИНН.'  
              RETURN  
          CASE TYPE('tcInn') <> 'C' OR LEN(CHRTRAN(tcInn, "0123456789", "")) > 0  
              vaState(1,2) = 'некорректно заполнен номер ИНН.'  
              RETURN  
      ENDCASE  
    
      DO CASE  
          CASE LEN(tcInn) = 10 && юр. лицо  
              DO CASE  
                  CASE EMPTY(tcKpp)  
                      vaState(1,2) = 'не заполнен обязательный для юр. лица номер КПП.'  
                      RETURN  
                  CASE TYPE('tcKpp') <> 'C' OR LEN(tcKpp) <> 9 OR LEN(CHRTRAN(tcKpp, "0123456789", "")) > 0  
                      vaState(1,2) = 'некорректно заполнен обязательный для юр. лица номер КПП.'  
                      RETURN  
              ENDCASE  
          CASE LEN(tcInn) = 12 && индивид. предприниматель  
              IF !EMPTY(tcKpp)  
                  vaState(1,2) = 'номер КПП не указывается для ИП.'  
                  RETURN  
              ENDIF  
      ENDCASE  
    
      DO CASE  
          CASE EMPTY(tdDate)  
              vaState(1,2) = 'не заполнена дата.'  
              RETURN  
          CASE TYPE('tdDate') <> 'D'  
              vaState(1,2) = 'некорректно заполнена дата.'  
              RETURN  
      ENDCASE  
    
     ****************************************  
    
      TEXT TO lcRequest TEXTMERGE PRETEXT 1 + 2 NOSHOW  
      <?xml version="1.0" encoding="UTF-8"?>  
      <soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/" xmlns:req="http://ws.unisoft/FNSNDSCAWS2/Request">  
          <soapenv:Header/>  
              <soapenv:Body>  
                  <req:NdsRequest2>  
                      <req:NP INN="<<tcInn>>" KPP="<<tcKpp>>" DT="<<Transform(Day(tdDate), '@L 99')>>.<<Transform(Month(tdDate), '@L 99')>>.<<Transform(Year(tdDate), '9999')>>"/>  
                  </req:NdsRequest2>  
              </soapenv:Body>  
      </soapenv:Envelope>  
      ENDTEXT  
    
      TRY  
    
          loHttp = CREATEOBJECT('Msxml2.XMLHTTP.6.0')  
    
          WITH m.loHttp  
              .OPEN('POST', 'http://npchk.nalog.ru/FNSNDSCAWS_2?wsdl', .F.)  
              .setRequestHeader('Content-Type', 'text/xml; charset=utf-8')  
              .setRequestHeader('Content-length', TRANSFORM(LEN(lcRequest)))  
              .Send(m.lcRequest)  
    
              ltTimeout = DATETIME() + TIME_LIMIT  
    
             * опрашиваем данные до тех пор, пока не будет получен ответ или не исчерпается лимит времени  
              DO WHILE .ReadyState <> 4  
                  DOEVENTS FORCE  
                  IF DATETIME() > m.ltTimeout  
                      EXIT  
                  ENDIF  
                  INKEY(0.5)  
              ENDDO  
    
              IF .STATUS = 200 && ответ был получен  
                  WITH .responseXML  
                      .setProperty('SelectionNamespaces', 'xmlns:rsp="http://ws.unisoft/FNSNDSCAWS2/Response"')  
                      vaState(1,1) = .selectSingleNode("//rsp:NdsResponse2/rsp:NP/@State").nodeValue && статус контрагента  
                  ENDWITH  
              ELSE  
                  vaState(1,2) = 'ответ не получен, код ' + TRANSFORM(.STATUS) + ', ' + .StatusText + '.'  
              ENDIF  
          ENDWITH  
    
      CATCH TO loError  
          vaState(1,2) = 'Cтрока ' + TRANSFORM(loError.LINENO) + ', ' + loError.MESSAGE  
      ENDTRY  
    
  ENDFUNC  
    
  FUNCTION Check_Status_INN_KPP()  
    
      LPARAMETERS vaState  
    
      LOCAL lnState AS INTEGER, lcError AS STRING  
    
      lnState = CAST(vaState(1, 1) AS I)  
      lcError = vaState(1, 2)  
    
      RETURN ICASE ;  
          (;  
              m.lnState = -1, 'Данные контрагента не обработаны' + IIF(!EMPTY(lcError), ': ' + lcError, ''), ;  
              m.lnState =  0, 'Налогоплательщик зарегистрирован в ЕГРН и имел статус действующего в указанную дату', ;  
              m.lnState =  1, 'Налогоплательщик зарегистрирован в ЕГРН, но не имел статус действующего в указанную дату', ;  
              m.lnState =  2, 'Налогоплательщик зарегистрирован в ЕГРН', ;  
              m.lnState =  3, 'Налогоплательщик с указанным ИНН зарегистрирован в ЕГРН, КПП не соответствует ИНН или не указан', ;  
              m.lnState =  4, 'Налогоплательщик с указанным ИНН не зарегистрирован в ЕГРН', ;  
              m.lnState =  5, 'Некорректный ИНН', ;  
              m.lnState =  6, 'Недопустимое количество символов ИНН', ;  
              m.lnState =  7, 'Недопустимое количество символов КПП', ;  
              m.lnState =  8, 'Недопустимые символы в ИНН', ;  
              m.lnState =  9, 'Недопустимые символы в КПП', ;  
              m.lnState = 10, 'КПП не должен использоваться при проверке ИП', ;  
              m.lnState = 11, 'Некорректный формат даты', ;  
              m.lnState = 12, 'Некорректная дата (ранее 01.01.1991 или позднее текущей даты)', ;  
              'Сатус контрагента не определен (' + TRANSFORM(m.lnState) + ')' ;  
          )  
  ENDFUNC

Автор публикации

не в сети 24 года

Alex Roublev

Комментарии: 0Публикации: 3Регистрация: 28-09-2002

(далее…)

Процедура для преобразования строки формата URL в ASCII, либо обратно.

Автор публикации

не в сети 21 год

Crispy

Комментарии: 0Публикации: 7Регистрация: 16-05-2005

(далее…)

Просмотр в офф-лайне нашего форума forum.foxclub.ru

Автор публикации

не в сети 3 года

Foxtrot

Комментарии: 0Публикации: 6Регистрация: 25-04-2003

(далее…)

Дерево в колонке грида

Автор публикации

не в сети 22 года

Андрей Тарасов

Комментарии: 0Публикации: 2Регистрация: 05-02-2004

(далее…)

Набор классов HTTP, winsock, POP3, SMTP

Автор публикации

не в сети 21 год

Влад Колосов

Комментарии: 0Публикации: 11Регистрация: 05-05-2005

(далее…)

Русификация календаря OnyToo, доработка его datepicker

Автор публикации

не в сети 2 месяца

krin

Комментарии: 0Публикации: 2Регистрация: 08-02-2005

(далее…)

Класс для автоинкрементного поиска в гриде

Автор публикации

не в сети 21 год

Crispy

Комментарии: 0Публикации: 7Регистрация: 16-05-2005

(далее…)

Генератор отчетов X-Report

Автор публикации

не в сети 24 года

bell

Комментарии: 0Публикации: 1Регистрация: 04-04-2002

(далее…)

Пример настраиваемой подсистемы персонифицированного учета.

Автор публикации

не в сети 6 месяцев

admin

Комментарии: 1Публикации: 123Регистрация: 10-12-2000

(далее…)

Табличный контрол (Grid) для замены стандартного табличного контрола (Grid). (сортировка, фильтрация, печать, поиск, експорт в Excell, OpenOffice и т.д.)

  thisform.addproperty('grid1')  
  thisform.grid1 = thisform.targrid1.dataGrid  
  thisform.grid1.RecordSource =''  
 *targrid1 - это контейнер  
 * дальше нужно работать с thisform.grid1 - это стандартный контролл фокспро.  
    
  USE tovar.dbf  
  select tovar  
  THISFORM.grid1.RecordSource = 'tovar'  
  THISFORM.grid1.column1.ControlSource = 'tovar.nametv'  
  THISFORM.grid1.column2.ControlSource = 'tovar.ov'  
  THISFORM.grid1.column3.ControlSource = 'tovar.zal'  
  THISFORM.grid1.column4.ControlSource = 'tovar.cena_r'  
  THISFORM.grid1.column5.ControlSource = 'tovar.sumall'  
  THISFORM.grid1.column6.ControlSource = 'tovar.codetvun'  
  THISFORM.grid1.column7.ControlSource = 'tovar.namegr2'  

Автор публикации

не в сети 20 лет

alextretij

Комментарии: 0Публикации: 1Регистрация: 03-01-2006

(далее…)

Самая короткая :) функция суммы прописью, позволяет выводить до 10^36, параметр – число или строка.

Автор публикации

не в сети 21 год

Crispy

Комментарии: 0Публикации: 7Регистрация: 16-05-2005

(далее…)

Красивый CheckBox

Автор публикации

не в сети 6 лет

Chemberzhy

Комментарии: 0Публикации: 6Регистрация: 28-04-2009

(далее…)

Вертикальный текст в заголовке таблицы.

Автор публикации

не в сети 4 года

dimuhametov

Комментарии: 0Публикации: 3Регистрация: 01-11-2008

(далее…)

Вывод TreeView на печать (GDI,GDI+)

Автор публикации

не в сети 23 года

Александр Жевелев

Комментарии: 0Публикации: 2Регистрация: 09-10-2003

(далее…)

Мини MP3- проигрыватель, как отдельный класс

Автор публикации

не в сети 6 лет

Chemberzhy

Комментарии: 0Публикации: 6Регистрация: 28-04-2009

(далее…)

FastReport for FoxPro (FrFox)

Автор публикации

не в сети 16 лет

SergeySpirin

Комментарии: 0Публикации: 1Регистрация: 20-07-2010

(далее…)

Класс для автопоиска и выбора месячных архивов по вложенному пути и маске.

Автор публикации

не в сети 21 год

Crispy

Комментарии: 0Публикации: 7Регистрация: 16-05-2005

(далее…)

Программа тестирования 1 вопрос 4 ответа

Автор публикации

не в сети 20 лет

guna

Комментарии: 0Публикации: 1Регистрация: 22-07-2006

(далее…)

Visual FoxPro 9. Изменения в диалекте SQL

Содержание
Изменения в диалекте SQL
Почти неограниченное количество параметров в IN
Вложенные подзапросы
Дополнительная гибкость подзапросов
Вычисляемые поля с подзапросом
Вычисленние значения замены в UPDATE
Соотнесенные подзапросы и группировка
Использование предложения TOP N в подзапросах
Соотнесенные модификации
Соотнесённое удаление
Дальнейшее усовершенствование UNION
Использование имён в UNION
Вставка данных из объединённых запросов
Использование круглых скобки в UNION теперь не разрешается
Комбинирование DISTINCT и ORDER BY
Изменения в оптимизации
Полностью оптимизирован оператор LIKE с “%”
Улучшение быстродействия для TOP N
Улучшение эффективности с OR
Фильтрация и временные индексы
Ускорение соотнесений (корелляции)
Регистрация результатов оптимизации
Выборка из буферизированных таблиц
Отключение нового поведения
Новые возможности команд SQL
Новые возможности
Расширенные подзапросы
Составные подзапросы
GROUP BY в соотнесенном подзапросе
Предложение TOP N в не-соотнесенном подзапросе
Подзапросы в cписке полей команды SELECT
Агрегатные функции в списке полей SELECT подзапроса
Соотнесенные подзапросы позволяют сложным выражениям быть сравненимыми с соотнесенным полем
Изменения для выражений по сравнению с подзапросами.
Подзапросы в команде UPDATE...SQL
Подзапросы в предложении FROM
GROUP BY с именами полей в предложении UNION..
Эффективное выполнение TOP N
Улучшенная оптимизация для множественной таблицы с условием OR
Поддержка для локальных буферизированных данных.
Расширения других SQL команд
Предложение UNION в команде INSERT...SQL
Соотнесенная команда UPDATE...SQL
Соотнесенная команда DELETE...SQL
Обновляемые поля в команде UPDATE...SQL
SET ENGINEBEHAVIOR
Преобразование типов данных
Особенности использования команды SELECT… SQL
Определяемые пользователем функции в командах SELECT...SQL
Агрегатные функции
Правила присваивания имён столбцам
Операция объединения (UNION)
Команда SELECT...SQL c предложением WITH
Команда SET SQLBUFFERING

 

Изменения в диалекте SQL

Диалект SQL в VFP фактически не менялся в течение длительного времени. Начиная с восьмой версии, Microsoft начала включать в диалект дополнительные возможности, тем самым увеличивая соответствие его стандарту ANSI SQL-92. В VFP 9 существенно расширен диалект SQL для команд SELECT, INSERT, UPDATE и DELETE, а также добавлен ряд других усовершенствований.
Многие из ограничений, касающиеся запросов,  были отменены, было значительно расширено использование подзапросов, а в командах UPDATE и DELETE стало возможным использование условия объединения записей. В VFP 9 также предложены некоторые усовершенствования, повышающие эффективность, более простые способы проверки эффективности, и способность выполнять запросы для буферизированных таблиц.
Наиболее значимое изменение в системе запросов VFP 9 — это отмена ряда ограничений. В более ранних версиях, например, общее число объединений и подзапросов в одиночном запросе было ограничено девятью; в VFP 9 не имеется никаких ограничений. В таблице 1 показаны ограничения, связанные с запросами, отменённые или  расширенные в VFP 9.
Таблица 1. Сравнение ограничений SQL в разных версиях VFP

В повседневности разработчики, формирующие SQL запросы, обычно не сталкиваются с этими ограничениями; но любой из них может оказаться в ситуации, когда подобная проблема возникнет.
Если данные в базе данных хорошо нормализованы, то существовавшие ранее ограничения как на количество объединений, так и на количество используемых таблиц (псевдонимов), могли приводить к значительным трудностям при выборке данных. Например, рассмотрим базу данных Northwind, которая поставляется с восьмой и девятой версиями VFP. В выборке всех данных, касающихся заказов, включая информацию о заказчиках, информацию о грузоотправителях, информацию о поставщиках и т.д, используется 11 таблиц. В листинге 1 показан такой запрос.

SELECT ProductName, CategoryName, OrderDate, Customers.CompanyName AS CustomerName, ;
         OrderDetails.Quantity, OrderDetails.UnitPrice, ;
         Suppliers.CompanyName AS SupplierName, Employees.LastName, Employees.FirstName, ;
         Territories.TerritoryDescription, Region.RegionDescription, ;
         Shippers.CompanyName AS ShipperName;
    FROM Orders ;
      LEFT JOIN Customers ON Orders.CustomerID = Customers.CustomerID ;
      LEFT JOIN OrderDetails ON Orders.OrderID = OrderDetails.OrderID ;
      LEFT JOIN Products ON OrderDetails.ProductID = Products.ProductID ;
      LEFT JOIN Categories ON Products.CategoryID = Categories.CategoryID ;
      LEFT JOIN Suppliers ON Products.SupplierID = Suppliers.SupplierID ;
      LEFT JOIN Shippers ON Orders.ShipVia = Shippers.ShipperID ;
      LEFT JOIN Employees ON Orders.EmployeeID = Employees.EmployeeID ;
      LEFT JOIN EmployeeTerritories ;
           ON Employees.EmployeeID = EmployeeTerritories.EmployeeID ;
      LEFT JOIN Territories ON EmployeeTerritories.TerritoryID = Territories.TerritoryID ;
      LEFT JOIN Region ON Territories.RegionID = Region.RegionID ;
    ORDER BY Products.ProductID, Orders.OrderDate ;
    INTO CURSOR Unfolded

В этом запросе перечислены 11 различных псевдонимов и выполняется 10 объединений; VFP 8 и более ранние версии не могли выполнять такой запрос (генерировалась ошибка 1805, «SQL — Слишком много подзапросов»). VFP 9 без проблем выполняет его. (В то время как этот пример был придуман, выборка из нормализованной базы данных может включать множество источников и объединений).

Почти неограниченное количество параметров в IN

В более ранних версиях VFP количество перечисляемых в предложении IN параметров было ограничено 24. VFP 9 не отменяет это ограничение, но предоставляет вам контроль над ним при помощи функции SYS(3055). Даже без использования этой функции существующее ограничение значительно выше, чем в более ранних версиях языка (154 параметра).
Предложение IN может использоваться как фильтр, основанный на списке параметров, так и как фильтр, основанный на результате подзапроса. Внесённое изменение относится только к использованию IN со списком параметров.
Когда вы самостоятельно управляете запросом, ограничение, налагаемое предложением IN, вообще не является проблемой. Как правило, вы находите другое решение, позволяющее избежать большого количества параметров в предложении IN. Одно из решений состоит в том, чтобы сохранить список значений в курсор и выполнить объединение с этим курсором. Например, этот запрос:

SELECT cFirst, cLast FROM Person ;
     WHERE UPPER(cLast) IN ("BLACK", "BROWN", "GREEN", "SILVER", "WHITE")
  мог бы быть заменен на:
  CREATE CURSOR Names (cName C(25))
  INSERT INTO Names VALUES ("BLACK")
  INSERT INTO Names VALUES ("BROWN")
  INSERT INTO Names VALUES ("GREEN")
  INSERT INTO Names VALUES ("SILVER")
  INSERT INTO Names VALUES ("WHITE")
  SELECT cFirst, cLast FROM Names JOIN Person ON UPPER(cLast) = RTRIM(cName)

Вложенные подзапросы

Возможность использовать подзапросы (запрос внутри запроса) позволяет получить результат, используя одиночный запрос; иначе потребовалось бы множество запросов. Возможно, наиболее часто используется запрос, включающий подзапрос, для выборки всех записей из одной таблицы, которых нет в другой. Например, следующий запрос (используется  база данных TasTrade, поставляемая с VFP) получает список компаний из таблицы Customer, которые не разместили никаких заказов:

SELECT Company_Name FROM Customer ;
     WHERE Customer_ID NOT IN (SELECT Customer_ID FROM Orders) ;
     INTO CURSOR NoSales

SELECT CustLast.Customer_ID, Product_ID FROM Order_Line_Items OLILast ;
       JOIN Orders OrdLast ON OLILast.Order_ID = OrdLast.Order_ID ;
       JOIN Customer CustLast ON OrdLast.Customer_ID = CustLast.Customer_ID ;
     WHERE OrdLast.Order_Date = (SELECT MAX(Order_Date) FROM Orders Ord ;
          WHERE OrdLast.Customer_ID = Ord.Customer_ID ) ;
     INTO CURSOR CustProducts

В VFP 8 и более ранних версиях вложенные подзапросы не поддерживались. То есть в предложении WHERE подзапроса нельзя было использовать другой подзапрос. VFP 9 позволяет использовать вложенные подзапросы, увеличивая число вопросов, на которые вы можете ответить, одиночным запросом.
Предположим, что вы хотите выяснять то, какие продукты компания включила в первый,  но не самый последний, заказ. В то время как вы могли бы использовать курсор, созданный в листинге 2 в другом запросе, в VFP 9 вы можете выполнить всю работу целиком в одиночном запросе, показанном в листинге 3.

SELECT Customer.Company_Name, Product_ID FROM Order_Line_Items ;
    JOIN Orders ON Order_Line_Items.Order_ID = Orders.Order_ID ;
    JOIN Customer ON Orders.Customer_ID = Customer.Customer_ID ;
    WHERE Orders.Order_Date = ;
     (SELECT MIN(Order_Date) FROM Orders Ord ;
        WHERE Orders.Customer_ID=Ord.Customer_ID );
          AND Product_ID NOT IN ;
          (SELECT Product_ID FROM Order_Line_Items OLILast;
             JOIN Orders OrdLast ON OLILast.Order_ID = OrdLast.Order_ID ;
             JOIN Customer CustLast ;
                ON OrdLast.Customer_ID = CustLast.Customer_ID ;
             WHERE OrdLast.Order_Date = ;
               (SELECT MAX(Order_Date) FROM Orders Ord ;
                  WHERE OrdLast.Customer_ID = Ord.Customer_ID ) );
    INTO CURSOR FirstNotLast

Дополнительная гибкость подзапросов

Выше рассмотрен один способ улучшенного использования подзапросов в VFP 9. Фактически, группа VFP проделала большую работу над поддержкой подзапросов в этой версии. В VFP 8 и более ранних версиях, подзапросы могли использоваться только в предложении WHERE команды SQL, то есть только в фильтрации данных. В дополнение к отмене ограничения вложенности, VFP 9 позволяет вам использовать подзапросы в списке полей и предложении FROM запроса и в предложении SET команды SQL UPDATE. VFP 9 также позволяет использовать предложение GROUP BY в соотнесенных подзапросах (подзапросы, которые обращаются к одному или большему количеству полей из таблиц в основном запросе, подобно подзапросу в листинге 2). И, наконец, VFP 9 позволяет вам использовать в подзапросах предложение TOP в  не соотнесеных подзапросах.
Результат подзапроса в предложении FROM называется производной таблицей. Одно из использований производной таблицы — извлечение дополнительных данных, если вы применяете агрегатные функции.
Продолжим использовать базу данных TasTrade, которая поставляется с VFP, для рассмотрения проблемы обнаружения последнего заказа для каждого заказчика. Если все, что вы хотите получить - это ID заказчика и дата заказа, то это проще простого:
SELECT Customer_ID, MAX(Order_Date) FROM Orders GROUP BY 1 INTO CURSOR MostRecentOrder

Этот запрос прост и работает в каждой версии VFP. Тем не менее, предположите, что вы хотите получить не только ID заказчика, но и  дополнительную информацию о заказе, типа названия компании, контактное лицо компании и названия грузоотправителя. До VFP 9 вы должны были использовать соотнесенный подзапрос, два запроса в последовательности, или очень безобразный подзапрос. В листинге 4 показано  решение, использующее соотнесенный подзапрос, в листинге 5 показано использование методики двух последовательных запросов, и, наконец, в листинге 6 показан безобразный подзапрос. То, что делает подзапрос в листинге 6, не что иное, как безобразие - т.е. необходимость объединить ID заказчика и самую последнюю дату заказа в одно поле для сравнения.

SELECT Orders.Order_ID, Customer.Company_Name as Cust_Name, ;
         Shippers.Company_Name AS Ship_Name, Orders.Order_Date ;
    FROM Orders ;
      JOIN Customer ON Orders.Customer_ID = Customer.Customer_ID ;
      JOIN Shippers ON Orders.Shipper_ID = shippers.Shipper_ID ;
    WHERE Orders.Order_Date = ;
      (SELECT MAX(Order_Date) ;
            FROM Orders Ord WHERE Orders.Customer_ID=Ord.Customer_ID );
       ORDER BY Cust_Name ;
    INTO CURSOR MostRecentOrders

SELECT Orders.Order_ID, Customer.Company_Name as Cust_Name, ;
         Shippers.Company_Name AS Ship_Name, Orders.Order_Date ;
    FROM Orders ;
      JOIN Customer ON Orders.Customer_ID = Customer.Customer_ID ;
      JOIN Shippers ON Orders.Shipper_ID = shippers.Shipper_ID ;
    WHERE Orders.Order_Date = ;
      (SELECT MAX(Order_Date) ;
            FROM Orders Ord WHERE Orders.Customer_ID=Ord.Customer_ID );
       ORDER BY Cust_Name ;
    INTO CURSOR MostRecentOrders

SELECT Orders.Order_ID, Customer.Company_Name as Cust_Name, ;
         Shippers.Company_Name AS Ship_Name, Orders.Order_Date FROM Orders ;
      JOIN Customer ON Orders.Customer_ID = Customer.Customer_ID ;
      JOIN Shippers ON Orders.Shipper_ID = shippers.Shipper_ID ;
    WHERE Orders.Customer_ID + DTOS(Orders.Order_Date) IN ;
      (SELECT Customer_ID + DTOS(MAX(Order_Date)) FROM Orders GROUP BY Customer_ID );
    ORDER BY Cust_Name ;
    INTO CURSOR MostRecentOrders

SELECT Orders.Order_ID, Customer.Company_Name as Cust_Name, ;
         Shippers.Company_Name AS Ship_Name, Orders.Order_Date ;
    FROM Orders ;
      JOIN (SELECT Customer_ID, MAX(Order_Date) as Order_Date ;
          FROM Orders CheckOrderDate GROUP BY 1) RecentOrder ;
        ON Orders.Customer_ID = RecentOrder.Customer_ID ;
        AND Orders.Order_Date = RecentOrder.Order_Date ;
      JOIN Customer ON Orders.Customer_ID = Customer.Customer_ID ;
      JOIN Shippers ON Orders.Shipper_ID = shippers.Shipper_ID ;
    ORDER BY Cust_Name ;
    INTO CURSOR MostRecentOrders

Вычисляемые поля с подзапросом

В дополнение к поддержке производных таблиц, VFP 9 позволяет вам помещать подзапросы в список полей запроса. То есть вы можете использовать подзапрос, чтобы вычислить поле, которое должно появиться в результате. Подзапрос, использующий этот способ, должен возвратить одиночное поле и не больше, чем одиночная запись. Если не имеется никаких записей в результирующем наборе для специфической записи, то значение поля устанавливается равным NULL.
Для чего это нужно? Почему бы не включить выражение в основной запрос и добавить любые необходимые таблицы? Как и с производными таблицами, этот подход удобен, когда используется группировка. Допустим, что вы хотите найти общее количество заказов, размещённых каждым заказчиком в конкретном году. Вместе с этим вы хотите иметь больше информации о заказчике, которая включала бы его адрес, номер телефона и факса.
Несомненно, для того, чтобы вычислить общее количество заказов для каждого заказчика, вы должны группировать данные из Order_Line_Items по заказчикам. Вы можете извлекать множественные поля из таблицы Customer обычным способом, указывая их в предложении GROUP BY. (До VFP 8, вы могли указывать в запросе дополнительные поля, даже не перечисляя их в предложении GROUP BY. В VFP 8, Вы можете сделать то же самое,  выдав команду SET ENGINEBEHAVIOR 70) В листинге 8 показан запрос, который отыскивает id заказчика, название компании, адрес, телефон и факс наряду с общим значением количества заказов каждого заказчика.

SELECT Customer.Customer_ID, Customer.Company_Name, ;
         Customer.Address, Customer.City, Customer.Region, ;
         Customer.Postal_Code, Customer.Phone, Customer.Fax, ;
         SUM(quantity*unit_price) AS yTotal ;
  FROM Customer ;
    LEFT JOIN Orders ;
      JOIN Order_Line_Items;
        ON Orders.Order_ID = Order_Line_Items.Order_ID ;
      ON Customer.Customer_ID = Orders.Customer_ID ;
      AND BETWEEN(Order_Date,DATE(m.nYear,1,1),DATE(m.nYear,12,31)) ;
    GROUP BY 1, 2, 3, 4, 5, 6, 7, 8;
  INTO CURSOR CustomerTotal

SELECT Customer.Customer_ID, MAX(Customer.Company_Name), ;
         MAX(Customer.Address), MAX(Customer.City), MAX(Customer.Region), ;
         MAX(Customer.Postal_Code), MAX(Customer.Phone), MAX(Customer.Fax), ;
         SUM(quantity*unit_price) AS yTotal ;
  FROM Customer ;
    LEFT JOIN Orders JOIN Order_Line_Items ON Orders.Order_ID = Order_Line_Items.Order_ID ;
      ON Customer.Customer_ID = Orders.Customer_ID ;
      AND BETWEEN(Order_Date,DATE(m.nYear,1,1),DATE(m.nYear,12,31)) ;
    GROUP BY 1;
    INTO CURSOR CustomerTotal

SELECT Customer.Customer_ID, Customer.Company_Name, ;
         Customer.Address, Customer.City, Customer.Region, ;
         Customer.Postal_Code, Customer.Phone, Customer.Fax, ;
         (SELECT SUM(quantity * unit_price) ;
            FROM Orders ;
              JOIN Order_Line_Items;
                ON Orders.Order_ID = Order_Line_Items.Order_ID ;
            WHERE BETWEEN(Order_Date,DATE(m.nYear,1,1),DATE(m.nYear,12,31)) ;
              AND Customer.Customer_ID=Orders.Customer_ID ) as yTotal ;
    FROM Customer ;
    INTO CURSOR CustomerTotal

Вычисленние значения замены в UPDATE

Третье новое место, где вы можете использовать подзапросы — это предложение SET команды UPDATE. То есть вы можете использовать подзапрос, чтобы вычислить значение, в которое должно быть установлено поле. Однако, когда Вы используете такой подход, команда UPDATE не может включать подзапрос в предложение WHERE. Кроме того, вы ограничены одиночным подзапросом в предложении SET, так что вы не можете использовать этот подход, чтобы вычислить значения множественных полей.
Для примера предположите, что вы имеете данные по складу (SalesByProduct) для базы данных TasTrade, которые сообщают вам, сколько и какие продукты были проданы и количество этого сбыта в  долларах. Это разработано, чтобы хранить данные в течение одиночного месяца, и Вы хотите изменить их в конце месяца.
Чтобы модифицировать данные, используйте следующие команды UPDATE. Установите nMonth и nYear к значениям месяца и года для данных, которые вы собрали перед выполнением кода из листинга 11. (“Соотнесенные изменения”, рассматривающиеся позже в этой главе, обеспечивают лучшее решение для этой проблемы).

UPDATE SalesByProduct SET TotalSales = ;
      (SELECT NVL(SUM(quantity * unit_price), $0) ;
        FROM Order_Line_Items ;
          JOIN Orders ON Order_Line_Items.Order_ID = Orders.Order_ID ;
        WHERE MONTH(Order_Date) = nMonth AND YEAR(Order_Date) = nYear ;
          AND Order_Line_Items.Product_ID = SalesByProduct.Product_ID)

  UPDATE SalesByProduct SET UnitsSold = ;
      (SELECT CAST(NVL(SUM(quantity),0) AS N(12)) ;
        FROM Order_Line_Items ;
          JOIN Orders ON Order_Line_Items.Order_ID = Orders.Order_ID ;
        WHERE MONTH(Order_Date) = nMonth AND YEAR(Order_Date) = nYear ;
          AND Order_Line_Items.Product_ID = SalesByProduct.Product_ID)

Соотнесенные подзапросы и группировка

Соотнесенный подзапрос - это запрос, который обращается к одному или большему количеству полей основного запроса, обычно в предложении WHERE подзапроса. VFP 8 запрещает использование предложения GROUP BY в соотнесенных подзапросах. Поскольку корреляция во многих случаях может давать тот же самый эффект, как группировка (см. например листинг 4), вы, возможно, столкнулись с этим ограничением.
Но имеется ряд ситуаций, где способность использовать GROUP BY в соотнесенном подзапросе позволяет гораздо проще получить желательные результаты. К счастью, VFP 9 разрешает группировки в соотнесенном подзапросе.
Например, рассмотрим случай, когда вы хотите получить список заказчиков, которые разместили в итоге по крайней мере один на один заказ больше, чем указанное значение, и имелись такие заказы, отправленные не в их адрес. (Вы могли бы проверять здесь подозрительные транзакции.) В VFP 8 и более ранних версиях для извлечения этой информации потребовалось бы выполнить два запроса: первый собирал бы информацию относительно заказов с определенной суммой, в то время как второй сравнивал бы адреса отправки с адресами заказчиков и извлекал информацию о заказчиках. Листинг 12 показывает один из способов сделать это, с пороговым набором значений суммы от $4000.

SELECT Orders.Customer_ID, Orders.Ship_to_Address, Orders.Order_ID, Orders.Order_Date ;
    FROM Orders JOIN Order_line_items ON Orders.Order_ID=Order_Line_Items.Order_ID ;
    GROUP BY 1, 2, 3, 4 HAVING SUM(Quantity * Unit_Price)> 4000 ;
    INTO CURSOR BigOrders

  SELECT Company_Name, Order_ID, Order_Date FROM Customer ;
      JOIN BigOrders ON Customer.Customer_ID = BigOrders.Customer_ID ;
    WHERE BigOrders.Ship_to_Address <> Customer.Address INTO CURSOR Suspicions

SELECT Company_Name, Ord.Order_ID, Ord.Order_Date FROM Customer ;
     JOIN Orders Ord ON Customer.Customer_ID = Ord.Customer_ID ;
    WHERE Ord.Order_ID in ;
      (SELECT Orders.Order_ID FROM Orders ;
        JOIN Order_Line_Items ON Orders.Order_ID=Order_Line_Items.Order_ID ;
          AND Orders.Customer_ID=Customer.Customer_ID ;
          AND Orders.Ship_to_Address <> Customer.Address ;
      GROUP BY Orders.Order_ID ;
      HAVING SUM(Quantity * Unit_Price)> 4000) ;
    INTO CURSOR Suspicions

Использование предложения TOP N в подзапросах

Предложение TOP N в SELECT возвращает в результирующем наборе только первые N записей (или первые N% записей). В то время как функции MIN() и MAX() позволяют вам выбирать одно самое маленькое или самое большое значение в данном поле, TOP N позволяет вам выбирать множественные значения. Вы можете использовать его, чтобы видеть вещи подобно 10 самым последним заказам или 30 наиболее дорогим изделиям. Например, следующий запрос возвратит в результате 10% изделий с наименьшей общей стоимостью.

SELECT TOP 10 PERCENT Product_ID, SUM(Quantity) AS nSales FROM Order_Line_Items ;
   GROUP BY Product_ID ORDER BY nSales INTO CURSOR LowSales

SELECT DISTINCT Company_Name, English_Name FROM Customer ;
     JOIN Orders ON Customer.Customer_ID = Orders.Customer_ID ;
     JOIN Order_Line_Items ON Orders.Order_ID = Order_Line_Items.Order_ID ;
     JOIN (SELECT TOP 10 PERCENT Product_ID, SUM(Quantity) AS nSales FROM Order_Line_Items ;
              GROUP BY Product_ID ORDER BY nSales ) AS LowSales ;
        ON Order_Line_Items.Product_ID = LowSales.Product_ID ;
     JOIN Products ON LowSales.Product_ID = Products.Product_ID ;
     ORDER BY English_Name, Company_Name INTO CURSOR BoughtLowSellers

Соотнесенные модификации

В дополнение к поддержке подзапросов в предложении SET, команда UPDATE SQL в VFP 9 имеет новое предложение FROM, которое позволяет Вам получать данные модификации из другой таблицы. Это позволяет вам использовать соотнесенные модификации.
Пример в листинге 11 имеет один серьезный недостаток. Вы должны использовать отдельную команду UPDATE для каждого поля, которое вы хотите изменить. При использовании предложения FROM вы можете получить тот же самый результат с запросом, сопровождаемым командой UPDATE. Код в листинге 15 вычисляет новые значения, сохраняет их в курсоре, и затем ссылается на этот курсор в команде UPDATE.

SELECT Order_Line_Items.Product_ID, ;
         SUM(Quantity*Order_Line_Items.Unit_Price) as TotalSales, ;
         SUM(Quantity) AS UnitsSold ;
    FROM Order_Line_Items ;
      JOIN Orders ON Order_Line_Items.Order_ID = Orders.Order_ID ;
        AND MONTH(Order_Date) = nMonth AND YEAR(Order_Date) = nYear ;
    GROUP BY 1 ;
    INTO CURSOR MonthlySales

  UPDATE SalesByProduct ;
    SET SalesByProduct.TotalSales = NVL(MonthlySales.TotalSales, $0), ;
        SalesByProduct.UnitsSold = NVL(MonthlySales.UnitsSold, 0) ;
    FROM SalesByProduct ;
      LEFT JOIN MonthlySales ;
        ON SalesByProduct.Product_ID = MonthlySales.Product_ID

UPDATE SalesByProduct ;
    SET SalesByProduct.TotalSales = NVL(MonthlySales.TotalSales, $0), ;
        SalesByProduct.UnitsSold = NVL(MonthlySales.UnitsSold, 0) ;
    FROM SalesByProduct ;
      LEFT JOIN (;
        SELECT Order_Line_Items.Product_ID, ;
               SUM(Quantity*Order_Line_Items.Unit_Price) as TotalSales, ;
               SUM(Quantity) AS UnitsSold ;
          FROM Order_Line_Items ;
            JOIN Orders ;
              ON Order_Line_Items.Order_ID = Orders.Order_ID ;
              AND (MONTH(Order_Date) = nMonth AND YEAR(Order_Date) = nYear) ;
          GROUP BY 1) AS MonthlySales ;
        ON SalesByProduct.Product_ID = MonthlySales.Product_ID

Соотнесённое удаление

В VFP 8 и в более раних версиях, команда DELETE SQL позволяла вам указывать только одну таблицу. В то время как вы могли использовать подзапросы в предложении WHERE, удаление записей, основанных на информации из других таблиц, было сложным. VFP 9 позволяет Вам перечислять множественные таблицы в предложении DELETE's FROM, соединяя их согласно обычным правилам. Это обеспечивает намного более качественный способ выполнить соотнесенное удаление, удаляя строки из одной таблицы, основанной на данных из одной или большего количества других таблиц.
В синтаксисе для соотнесенного DELETE существует небольшая путаница. Если предложение FROM в DELETE содержит больше чем одну таблицу, вы должны определить целевую таблицу для удаления записей между DELETE и FROM:

DELETE [Адресат] FROM Table1 [JOIN Table2 …]

Используйте локальный псевдоним целевой таблицы между DELETE и FROM. Это может быть имя таблицы, но если вы назначаете локальный псевдоним к таблице в предложении FROM, используйте его вместо имени. (Обратите внимание, что те же самые правила относятся к UPDATE, когда модифицируемая таблица также включена в предложение FROM, как в листинге 16.)
База данныхTasTrade не содержит в себе примеров удаления такого типа; она разработана с учётом того, что записи отмечены неактивными скорее чем удаленными. Тем не менее, предположите, что вы имеете таблицы Products (Продукты) и Suppliers (Поставщики), подобные таким же таблицам в TasTrade, с первичным ключом Supplier, используемым как внешний ключ в Products. Предположите, что имеется проблема при получении изделий из Австралии, и вы решаете убрать из вашего списка изделий все изделия, которые приходят от поставщиков из Австралии. Чтобы выполнять такое удаление в VFP 8, вы используете подзапрос, подобный показанному в листинге 17. В VFP 9 вы можете вместо этого использовать условие JOIN. листинге 18 показана команда DELETE, удаляющая эти изделия из таблицы Products.

DELETE FROM Products ;
            WHERE Supplier_ID IN ( ;
                    SELECT Supplier_ID ;
                    FROM Supplier ;
                          WHERE UPPER(Supplier.Country) = "AUSTRALIA" )

DELETE Products FROM Products ;
       JOIN Supplier ON Products.Supplier_ID = Supplier.Supplier_ID ;
       WHERE UPPER(Supplier.Country) = "AUSTRALIA"

Дальнейшее усовершенствование UNION

Предложение UNION в SELECT позволяет Вам объединять результаты нескольких запросов в одиночный набор результатов. В VFP 8, правила для UNION были ослаблены, делая более легким использование этого предложения. VFP 9 предлагает еще два усовершенствования в UNION и одно ограничение.

Использование имён в UNION

В более ранних версиях VFP, когда Вы использовали  предложение UNION для объединения множества запросов в одиночный результат, предложение ORDER BY могло перечислять только позиции полей из списка полей. Вы не могли обратиться к полям по их именам, даже если поле имело одно и то же имя в каждом запросе в UNION. Это делало такие запросы трудно читаемыми и трудно поддерживаемыми, потому список в ORDER BY должен быть откорректирован, если появлялись изменения в порядке указания полей.
В VFP 9 вы можете использовать имена полей в предложении ORDER BY объединяющего запроса. Имена поля, которые вы используете - те же, что и в результирующем наборе. Нужно иметь ввиду, что, когда имена соответствующих полей в UNION различны, в результирующем наборе будет использоваться имя поля из последнего запроса в UNION. Лучшим подходом, чем зависимость от порядка запросов, было бы использование предложения AS, чтобы гарантировать, что соответствующие поля имеют то же самое имя в каждом запросе в UNION.
В листинге 19 показан простой пример, реализующий эту возможность. Даже в этом простом запросе использование имён полей значительно увеличивает читабельность.

SELECT Company_Name, Address, City, Region, Postal_Code, Country FROM Customer ;
UNION ;
SELECT Company_Name, Address, City, Region, Postal_Code, Country FROM Supplier ;
ORDER BY Country, City ;
INTO CURSOR AllCompanies

Вставка данных из объединённых запросов

VFP 8 представил возможность заполнять таблицу или курсор непосредственно из результата запроса, используя синтаксис INSERT INTO … SELECT. Это сделало возможным получать результаты и добавлять их за один шаг.
VFP 9 добавляет дополнительную возможность в этот синтаксис: используемый запрос может включать предложение UNION. Это означает, что Вы можете консолидировать данные и добавлять их в таблицу или курсор за один шаг.
Например, предположите, что вы имеете данные по складу для TasTrade, содержащие ежегодную продажу каждым служащим товаров, а так же годовой итог по каждому служащему. (Обратите внимание, что это - другие данные со склада, чем те, которые описаны в разделе "Вычисленние значения замены в UPDATE" ранее в этой главе.)
Вы можете вычислять продажи каждого товара каждым служащим за указанный год в одном запросе; точно так же вы можете вычислять в одном запросе общие количества продаж для каждого служащего в течение года. Однако, сбор специфических и общих данных для товара требует использования или двух запросов или запроса, включающего UNION. Если Вы хотите добавлять годовое состояние данных по складу, вы можете делать это в INSERT, как показано в листинге 20.

INSERT INTO Warehouse ;
  SELECT CrossProd.Product_ID, ;
         CrossProd.Employee_ID, ;
         m.nYear as nYear, ;
         NVL(nUnitsSold, 0), ;
         NVL(nTotalSales, $0);
     FROM (SELECT Employee.Employee_ID, Products.Product_ID ;
        FROM Employee, Products) AS CrossProd ;
       LEFT JOIN ( ;
        SELECT Product_ID, Employee_ID, ;
               SUM(Quantity) AS nUnitsSold, ;
               SUM(Quantity * Unit_Price) AS nTotalSales ;
           FROM Orders ;
             JOIN Order_Line_Items ON Orders.Order_ID = ;
               Order_Line_Items.Order_ID ;
           WHERE YEAR(Order_Date) = m.nYear ;
           GROUP BY Product_ID, Employee_ID ) ;
           AS AnnualSales ;
        ON CrossProd.Employee_ID = AnnualSales.Employee_ID ;
        AND CrossProd.Product_ID = AnnualSales.Product_ID ;
  UNION ;
  SELECT "Total" AS Product_ID, Employee.Employee_ID, ;
         m.nYear AS nYear, ;
         CAST(NVL(SUM(Quantity),0) as N(12)) ;
           AS nUnitsSold, ;
         NVL(SUM(Quantity * Unit_Price), $0) ;
           AS nTotalSales ;
     FROM Orders ;
      JOIN Order_Line_Items ;
         ON Orders.Order_ID = Order_Line_Items.Order_ID ;
        AND YEAR(Order_Date) = m.nYear ;
       RIGHT JOIN Employee ;
         ON Orders.Employee_ID = Employee.Employee_ID ;
     GROUP BY Employee.Employee_ID ;
  ORDER BY 2, 1

Использование круглых скобки в UNION теперь не разрешается

Хотя это действительно не было синтаксически правильно, более ранние версии VFP не создавали объект, если запросы в UNION были включены в круглые скобки. В VFP 9 одиночный запрос в UNION может быть окружен круглыми скобками, но круглые скобки, помещённые вокруг множественных запросов в UNION, генерируют новую ошибку с номером 2196.
Листинг 21 демонстрирует запрос, который работает в VFP 8, но терпит неудачу в VFP 9 из-за этого нового правила.

SELECT Company_Name, Address, City, Region, Postal_Code, Country FROM Customer ;
UNION ;
(SELECT Company_Name, Address, City, Region, Postal_Code, Country FROM Supplier ;
 UNION ;
 SELECT Company_Name, "", "", "", "", "" FROM Shippers)

Согласно рекомендации группы Fox team, использование круглых скобок для выделения множественных объединений может привести к неправильным результатам.

Комбинирование DISTINCT и ORDER BY

VFP позволяет Вам упорядочивать результаты запроса по любому полю из исходных таблиц; поля, указанные в списке ORDER BY, могут отсутствовать в списке полей запроса. В VFP 9 это больше не работает для запросов, которые используют SELECT DISTINCT. Например, следующий запрос выполняется в VFP 8, но приводит к ошибке 1808 (“SQL: предложение ORDER BY недопустимо”) в VFP 9:
SELECT Distinct Customer_ID    FROM Orders ORDER BY Order_Date

На это поведение воздействует установка SET ENGINEBEHAVIOR. (См. “Отключение нового поведения” позже в этой главе).

Изменения в оптимизации

VFP 9 содержит несколько изменений, улучшающих эффективность ваших запросов, а также новую функцию, которая делает  тестирование оптимизации проще.

Полностью оптимизирован оператор LIKE с “%”

Оператор LIKE позволяет вам сравнивать строки. Если условие в команде SQL включает cField LIKE cString, указанное поле сравнивается с указанной символьной строкой на базе символ - символ. В отличие от оператора "=", если cString короче, чем cField, то они не соответствуют условию, если не используется группирующий символ. Оператор LIKE поддерживает два группирующих символа: “_”, чтобы представить одиночный неизвестный символ, и “%”, чтобы представить 0 или большее количество неизвестных символов. Например, вы можете найти всех заказчиков в TasTrade, чьи имена начинаются с символа “P”, используя следующий запрос:
SELECT Customer_ID, Company_Name FROM Customer ;
  WHERE UPPER(Company_Name) LIKE "P%" ;
  INTO CURSOR PCompanies

Более ранние версии VFP не могли полностью оптимизировать этот запрос. Выражение LIKE “string%” могло быть только частично оптимизировано. VFP 9 полностью оптимизирует такие выражения. (Полная оптимизация применяется только, когда групповой символ % расположен в конце символьной строки.)
Наши тесты показали смешанные результаты относительно эффекта этой оптимизации. Для многих запросов, версии с использованием LIKE и "=" выполнялись одинаково быстро и в VFP 8, и в VFP 9. Однако в ситуации, возникающей, когда VFP берет сокращение и просто фильтрует первоначальную таблицу, оптимизация LIKE сделанного над значительным различием. VFP берет это сокращение с любым запросом, который включает одиночную таблицу, не имеет никаких расчетных полей и - полностью оптимизирует. Фильтрация исходной таблицы прежде чем создание фактического файла на диске экономит значительное время. Оптимизация LIKE означает, что движок  VFP может принимать этот подход с некоторыми дополнительными запросами. (Вы можете выключить это сокращение включением предложения NOFILTER в запросе.)

Улучшение быстродействия для TOP N

Когда вы используете предложение TOP N или TOP N PERCENT, чтобы возвратить только подмножество записей, которые так или иначе соответствуют условиям запроса, VFP должен выяснить, какие записи имеются наверху списка. Когда вы определяете TOP N для большого набора, тот процесс может потребовать значительного времи. VFP 9 улучшает эффективность в этой ситуации.
В наших тестах мы не замечали различий, пока мы работали с не очень большой таблицей. При выборе TOP 20 из таблицы c почти 75,000 записей различия практически отсутствовали. Но когда мы сделали TOP 20 для таблицы, содержащей более чем миллион записей, то VFP 9 закончил выборку приблизительно в три раза быстрее, чем VFP 8.
Помимо уменьшения времени выборки с TOP N, немного изменилось и поведение запросов с TOP N. В более ранних версиях VFP запрос с предложением TOP N мог возвращать больше чем N записей из-за связей в данных. VFP 9 никогда не возвращает больше, чем точное число записей, определенных в предложении TOP N. (См. “Отключение нового поведения” позже в этой главе для обзора исключений из этого правила.) Когда имеются связи, оказывается, что VFP выбирает записи в физическом порядке из группы с тем же самым значением.
Эти изменения относятся к тем, на которые воздействует новая установка SET ENGINEBEHAVIOR TO 90.  Для подробной информации см. “Отключение нового поведения” позже в этой главе.

Улучшение эффективности с OR

В более ранних версиях, когда запрос использовал оператор OR для объединения условий, включающих различные таблицы, результат не мог быть всегда оптимизирован. Изменения в движке SQL для VFP 9 позволяют оптимизировать такие условия, если индивидуальные условия - оптимизируемы.
В нашем тестировании не каждый запрос, использующий OR с условиями, основанными на различных таблицах, показал улучшенное быстродействие, но в некоторых случаях мы смогли заметить различие. Например, следующий запрос (используется база данных Northwind) в VFP 9 выполнился почти четыре раза быстрее:
SELECT Orders.OrderId, ProductId FROM Orders ;
     JOIN OrderDetails ON Orders.OrderId=OrderDetails.OrderId  ;
 WHERE ;
   (Orders.OrderDate=DATE(1997,9,1) AND OrderDetails.Quantity>2);
    OR ;
   (Orders.OrderDate=DATE(1997,9,2) AND OrderDetails.Quantity>3);
 INTO CURSOR Result

Вы можете также заметить некоторые усовершенствования в использовании OR в подзапросах.

Фильтрация и временные индексы

Когда вы объединяете в запросе две таблицы, VFP выбирает индексный тэг, подходящий для соответствующей записи. Если рассматриваемые поля не индексированы, или существующий тэг не способен сильно помочь (например, когда обьединение включает маленькую таблицу и намного большую таблицу, и имеется только тэг для меньшей таблицы), VFP создает индекс на лету. При вызове функции SYS(3054) это обьединение показывается как “использующее временный индекс” (“using temp index”).
VFP 9 ускоряет выполнение запросов, которые формируют временный индекс и имеют не оптимизируемый фильтр для этой  таблицы (той, для которой индекс сформирован). Эффект проявляется наиболее сильно для больших таблиц и в случаях, где не оптимизированный фильтр маскирует много записей. Мы предполагаем, что двигатель делает фильтрацию перед формированием временного индекса, что ускоряет и формирование временного индекса и использование существующего.
В наших тестах ни одна из типовых таблиц, которые приходят с VFP, не была достаточно большой, чтобы наблюдать этот эффект. Мы смогли продемонстрировать это усовершенствование, используя таблицу с приблизительно 75,000 записей. Наш тестовый запрос соединил таблицу саму с собой на неиндексированном поле, используя условие фильтра, которое выбрало только приблизительно 250 записей. В VFP 9 запрос потребовал две секунды. В VFP 8 тот же самый запрос выполнялся почти 50 секунд.

Ускорение соотнесений (корелляции)

Вы можете никогда не столкнуться с другой областью, где эффективность была так улучшена. Если вы имеете запрос с соотнесенным подзапросом, и запрос также включает фильтр в таблице от основного запроса, которая используется в подзапросе, VFP 9 выполняет измерения лучше, чем VFP 8.
Мы создали следующий запрос, используя данные из TasTrade, и обнаружили, что VFP 9 отработал приблизительно в четыре раза быстрее:
SELECT Orders.Order_ID, Customer.Company_Name as Cust_Name, ;
       Shippers.Company_Name AS Ship_Name, Orders.Order_Date ;
  FROM Orders ;
    JOIN Customer ;
      ON Orders.Customer_ID = Customer.Customer_ID ;
    JOIN Shippers ;
      ON Orders.Shipper_ID = shippers.Shipper_ID ;
  WHERE Orders.Discount>0 AND ;
    Orders.Order_Date = (SELECT MAX(Order_Date) ;
       FROM Orders Ord ;
       WHERE Orders.Customer_ID=Ord.Customer_ID );
  ORDER BY Cust_Name ;
  INTO CURSOR MostRecentOrders

Регистрация результатов оптимизации

Функция SYS(3054) появилась в VFP 5. Она предоставляла вам информацию относительно того, как FoxPro оптимизирует запрос. Она несколько раз улучшалась и теперь предоставляет множество данных относительно процесса оптимизации. Однако, нужно все еще интенсивно использовать SYS(3054), чтобы собрать информацию относительно эффективности запроса для всей программы или приложения.
Вызовите SYS(3092). Эта новая функция позволяет вам направлять вывод от функции SYS(3054) в регистрационный файл. Само собой, функция SYS(3054) может посылать вывод только активному окну или переменной. С SYS(3092) вы можете собирать данные относительно целого ряда запросов и исследовать их в свободное время.
Синтаксис:
CLogFile = SYS(3092 [, cFileName [, lAdditive]])

Параметр cFileName определяет имя (включая путь) регистрационного файла. Используйте lAdditive, чтобы определить, нужно ли записывать информацию поверх существующей. Значение по умолчанию перезавписывает существующий файл.
Выключить регистрацию и сделать файл регистрации доступный для чтения можно, передав пустую строку в качестве параметра cFileName.
Функция возвращает имя активного регистрационного файла. Обратите внимание, что новый регистрационный файл создаётся прежде, чем какое-либо значение возвращено, поэтому для сохранения старого регистрационного файла перед его изменением вы должны вызвать функцию один раз без параметров, и затем вызывите её снова.
Когда Вы включаете регистрацию функцией SYS(3092), вывод из SYS(3054) все еще отображается на экране, в активном окне или сохраняется в указанной переменной.
Как только вы указываете регистрационный файл в SYS(3092), используйте SYS(3054) по мере того, как вы хотите, и выполните запросы, которые вы хотите проверить. Когда проверки выполнены, сбросьте SYS(3054), и затем выдайте SYS(3092, " ") чтобы прекратить регистрацию. Вы можете затем исследовать регистрационный файл, чтобы просмотреть ваши результаты оптимизации.
Информация в регистрационном файле наиболее полезна, если вы передаете значение 2 или 12 как второй параметр для SYS(3054). Добавленная в VFP 7, эта установка включают запрос непосредственно в вывод перед сообщением относительно оптимизации.

Выборка из буферизированных таблиц

Ещё со времён VFP 3 разработчики FoxPro были расстроены поведением SELECT по отношению к буферизированным курсорам. Когда в запросе  используется буферизированная таблица, VFP фактическую использует таблицу на диске, а не открытую буферизированную версию. Это означает, что результаты запроса не отражают несохранённые изменения данных.
Это поведение естественным образом следует из нормального поведения запросов. Независимо от того, открыта таблица или нет, когда она указана в предложении FROM запроса, VFP открывает её заново в новой рабочей области. В некоторых случаях было бы действительно удобно иметь возможность переместить данные из буферизированной таблицы в запрос. В VFP 8 и более ранних версиях вместо этого вы должны были обращаться к командам Xbase (типа  CALCULATE).
VFP 9 предоставляет вам опцию просмотра буферизированных данных. Добавьте новое предложение WITH (Buffering=.T.) к запросу, и он использует доступный буфер вместо таблицы, сохранённой на диске. В листинге 22 показан запрос, который подсчитывает количество заказчиков в каждой стране, используя буферизированные данные.

SELECT Country, CNT(*) FROM Customer WITH (Buffering = .T.) ;
   GROUP BY Country INTO CURSOR BufferedCount

Предложение WITH применяется к одиночной таблице. Если запрос перечисляет множественные таблицы, для которых вы хотите использовать буферизированные данные, включите утверждение WITH для каждой таблицы.
Одно большое предупреждение. Если вы используете буферизацию строки, запрос выполняет изменения для текущей строки. Это фактически имеет смысл, поскольку запрос перемещает указатель записи в буферизированной таблице. В более ранних версиях, где запросы запрашивали данные с диска, указатель записи в буфере не двигался, но когда вы делаете запрос  непосредственно к буферу, указатель записи перемещается.
Вы можете также управлять поведением запросов с буферизированными таблицами глобально. Новая команда SET SQLBUFFERING позволяет вам определять, получают ли запросы данные по умолчанию с диска или из буферов. Предложение WITH (Buffering = lExpr) отменяет текущую установку для специфицированной таблицы и запроса. SET SQLBUFFERING действует в текущем сеансе данных. Используйте SET(“SQLBUFFERING”), чтобы узнать текущую установку.

Отключение нового поведения

Значительные изменения для двигателя SQL в VFP, появившиеся в VFP 8, вызвали ряд проблем для некоторых существующих приложений. Для того, чтобы не заставлять силой разработчиков изменять рабочий код в VFP 7 более ранних версиях, группа Fox team добавила команду SET ENGINEBEHAVIOR, которая позволяет вам отключать эти изменений в VFP 8. В то же время это не лучшее решение - использовать эту отмену постоянно, тем не менее команда обеспечила гибкое решение для уже существующих приложений.
Большинство изменений, появившихся в движке SQL в VFP 9, вряд ли вызовут проблемы совместимости. Однако, имеются несколько моментов, которые могут быть вызвать такие проблема в некоторых приложений, так что группа Fox team добавила новую установку для SET ENGINEBEHAVIOR.
Как отмечено в “Улучшении быстродействия для TOP N” ранее в этой главе, в VFP 9 запрос с TOP N теперь возвращает точно N записей; в случае связей между таблицами, это может привести к потере некоторых из связанных результатов.
Когда запрос включает одну из агрегатных функций (CNT(), SUM(), AVG(), MIN() or MAX())), но не содержит предложения GROUP BY, VFP 9 всегда возвращает одину запись. Если никакие записи не соответствуют условиям объединения и фильтрации, то результирующая запись содержит значение NULL для всех полей. В более ранних версиях такой запрос возвратил бы пустой результат (_TALLY = 0). 
И, наконец, все поля, перечисленные в предложении ORDER BY запроса, использующего SELECT DISTINCT, должны быть включены в список полей запроса.
Чтобы отключить такое поведение, установите ENGINEBEHAVIOR в 80 или 70. По умолчанию значение ENGINEBEHAVIOR установлено в  90, что делает возможным новое поведение.
Заключение
Многие изменения в диалекте SQL для VFP 9 увеличивают его совместимость со стандартом SQL-92. Они также обеспечивают большее количество необходимых инструментальных средств для управления вашими данными. В то время как одни из изменений, вероятно,  не будут сильно воздействать на вашу ежедневную работу, вы, вероятно найдете, что другие удобны и могут многократно использоваться. Способность извлекать некоторые данные в одиночном запросе там, где ранее были необходимы два запроса, не только имеет тенденцию к уменьшению времени на выполнение, но также делает код запроса проще.

Новые возможности команд SQL

Команда SELECT...SQL и другие команды SQL в девятой версии Visual FoxPro были значительно расширены. В этой главе рассматриваются расширения существующих команд и новые команды, повышающие эффективность применения SQL.

Новые возможности

В Visual FoxPro 9.0 некоторые ограничения команды SELECT...SQL были отменены или дополнены. Эти изменения показаны в следующей таблице.

Расширенные подзапросы

В Visual FoxPro 9.0 обеспечивает значительно более гибкие подзапросы. Например, теперь поддерживаются множественные подзапросы. Ниже рассматриваются расширения подзапросов в Visual FoxPro 9.0.

Составные подзапросы

Visual FoxPro 9.0 поддерживает множественное вложение подзапросов, с корреляцией, допускаемой непосредственным родителем. Ограничения по глубине вложения отсутствуют. В Visual FoxPro 8.0 исключение 1842 (SQL: превышен уровень вложенности подзапросов) генерировалось, когда имелось более одного уровня вложенности подзапроса.
Ниже показан общий синтаксис для множественных подзапросов:
SELECT … WHERE … (SELECT … WHERE … (SELECT …) …) …
Следующие запросы, выполнение которых приводило к возникновению исключения в Visual FoxPro 8.0, теперь выполняются правильно:
CREATE CURSOR MyCursor (field1 I)
INSERT INTO MyCursor VALUES (0)
CREATE CURSOR MyCursor1 (field1 I)
INSERT INTO MyCursor1 VALUES (1)
CREATE CURSOR MyCursor2 (field1 I)
INSERT INTO MyCursor2 VALUES (2)
SELECT * FROM MyCursor T1 WHERE EXISTS ;
   (SELECT * from MyCursor1 T2 WHERE NOT EXISTS ;
   (SELECT * FROM MyCursor2 T3))
*** Второй множественный подзапрос, вложенный в пример ***
SELECT * FROM table1 WHERE table1.iid IN ;
   (SELECT table2.itable1id FROM table2 WHERE table2.iid IN ;
   (SELECT table3.itable2id FROM table3 WHERE table3.cValue = "value"))

GROUP BY в соотнесенном подзапросе

Многие запросы могут быть оценены,  выполняя подзапрос один раз и заменяя возникающим в результате значением или значениями в предложение WHERE внешнего запроса. В запросах, которые включают,  соотнесенный подзапрос (также известный как повторяющийся подзапрос), подзапрос зависит от внешнего запроса для значений. Это означает, что подзапрос выполнен неоднократно, один раз для каждой строки, которая могла бы быть выбрана внешним запросом.
Visual FoxPro 8.0 не позволял использовать GROUP BY в соотнесенном подзапросе (генерировалось исключение 1828 (SQL: Использование GROUP BY в подзапросе запрещено). В Visual FoxPro 9.0 это ограничение отменего; теперь GROUP BY поддерживается для соотнесенных подзапросов, возвращающих больше чем одну запись.
Ниже показан общий синтаксис для предложения GROUP BY в соотнесенном подзапросе.
SELECT … WHERE … (SELECT … WHERE … GROUP BY …) …
Следующий пример генерировал исключение в Visual FoxPro 8.0; теперь,  в Visual FoxPro 9.0, он выполняется правильно.
CLOSE DATABASES ALL
CREATE CURSOR MyCursor1 (field1 I, field2 I, field3 I)
INSERT INTO MyCursor1 VALUES(1,2,3)
CREATE CURSOR MyCursor2 (field1 I, field2 I, field3 I)
INSERT INTO MyCursor2 VALUES(1,2,3)
SELECT * from MyCursor1 T1 WHERE field1;
   IN (SELECT MAX(field1) FROM MyCursor2 T2 ;
   WHERE T2.field2=T1.FIELD2 GROUP BY field3)

Предложение TOP N в не-соотнесенном подзапросе

Visual FoxPro 9.0 поддерживает предложениеTOP N в не-соотнесенном подзапросе. Предложение ORDER BY должно присутствовать, если предложение TOP N используется, и это — единственный случай, допустимый в подзапросе.
Ниже показан общий синтаксис для предложения TOP N в не-соотнесенном подзапросе.
SELECT … WHERE … (SELECT TOP nExpr [PERCENT] … FROM … ORDER BY …) …
Следующий пример генерировал исключение в Visual FoxPro 8.0; теперь,  в Visual FoxPro 9.0, он выполняется правильно.
CLOSE DATABASES ALL
CREATE CURSOR MyCursor1 (field1 I, field2 I, field3 I)
INSERT INTO MyCursor1 VALUES(1,2,3)
CREATE CURSOR MyCursor2 (field1 I, field2 I, field3 I)
INSERT INTO MyCursor2 VALUES(1,2,3)
SELECT * FROM MyCursor1 WHERE field1 ;
   IN (SELECT TOP 5 field2 FROM MyCursor2 order by field2)

Подзапросы в cписке полей команды SELECT

Visual FoxPro 9.0 позволяет указывать подзапрос как результирующее поле или часть выражения в проекции. Подзапрос в проекции должен удовлетворять тем же самым требованиям, как и подзапрос, используемый в операции сравнения. Если подзапрос не возвращает никакие записи, то возвращается значение NULL.
В Visual FoxPro 8.0, попытка использовать такую конструкцию вызывала исключение 1810 (SQL: Недопустимое использование подзапроса).
Ниже показан общий синтаксис для подзапроса в списке полей команды SELECT
SELECT … (SELECT …) … FROM …
Следующий пример генерировал исключение в Visual FoxPro 8.0; теперь,  в Visual FoxPro 9.0, он выполняется правильно.
SELECT T1.field1, (SELECT field2 FROM MyCursor2 T2;
   WHERE T2.field1=T1.field1) FROM MyCursor1 T1

Агрегатные функции в списке полей SELECT подзапроса

В Visual FoxPro 9.0 агрегатные функции теперь поддерживаются в списке SELECT сравниваемого подзапроса, используя операторы сравнения <, <=, >, >=, сопровождаемые  ALL, ANY, или SOME. См. «Cоображения о команде SQL SELECT» для получения подробной информации об агрегатных функциях.

Следующий пример показывает использование агрегатной функции COUNT в списке SELECT подзапроса.
CLOSE DATABASES ALL
CREATE CURSOR MyCursor (FIELD1 i)
INSERT INTO MyCursor VALUES (6)
INSERT INTO MyCursor VALUES (0)
INSERT INTO MyCursor VALUES (1)
INSERT INTO MyCursor VALUES (2)
INSERT INTO MyCursor VALUES (3)
INSERT INTO MyCursor VALUES (4)
INSERT INTO MyCursor VALUES (5)
INSERT INTO MyCursor VALUES (-1)
CREATE CURSOR MyCursor2 (FIELD2 i)
INSERT INTO MyCursor2  VALUES (1)
INSERT INTO MyCursor2  VALUES (2)
INSERT INTO MyCursor2  VALUES (2)
INSERT INTO MyCursor2  VALUES (3)
INSERT INTO MyCursor2  VALUES (3)
INSERT INTO MyCursor2  VALUES (3)
INSERT INTO MyCursor2  VALUES (4)
INSERT INTO MyCursor2  VALUES (4)
INSERT INTO MyCursor2  VALUES (4)
INSERT INTO MyCursor2  VALUES (4)
SELECT * FROM MYCURSOR WHERE field1 ;
   < ALL (SELECT count(*) FROM MyCursor2 GROUP BY field2) ;
   INTO CURSOR MyCursor3
BROWSE

Соотнесенные подзапросы позволяют сложным выражениям быть сравненимыми с соотнесенным полем

В Visual FoxPro 8.0, соотнесённые поля могли быть вызваны только в следующих форматах:
Соотнесённое поле <сравнение> локальное поле
-или-
Локальное поле <сравнение> соотнесённое поле
В Visual FoxPro 9.0 соотнесенные поля поддерживают сравнение с локальными выражениями (как показано в следующих форматах):
Соотнесенное поле <сравнение> локальное выражение
-или-
Локальное выражение <сравнение> соотнесённое поле
Локальное выражение должно использовать по крайней мере одно локальное поле и не может ссылаться на любое внешнее (соотнесенное) поле.
В следующем примере локальное выражение (Mycursor2. field2 / 2) сравнивается с соотнесённым полем (Mycursor. field1).
SELECT * FROM MyCursor ;
   WHERE EXISTS(SELECT * FROM MyCursor2  ;
   WHERE MyCursor2.field2 / 2 > MyCursor.field1)

Изменения для выражений по сравнению с подзапросами.

В Visual FoxPro 8.0 левая часть выражения, использующего операторы сравнения [NOT] IN <, <=, =, ==, < >, !=, >, =>, ALL, ANY или SOME с подзапросом, должны были ссылаться на одну и только одну таблицу из предложения FROM. В случае сравнения с соотнесенным подзапросом, таблица должна также быть соотнесённой таблицей.
В Visual FoxPro 9.0, сравнения обрабатываются следующими способами:

• Выражение слева от IN должно сравниваться со ссылкой по крайней мере на одну таблицу из предложения FROM.
• Левая часть для условий =, ==, <>, !=, сопровождаемая предложениями ALL, SOME, или ANY, должна ссылаться по крайней мере на одну таблицу из предложения FROM.
• Левая часть для условия >, >=, <, <=, сопровождаемая предложениями ALL, SOME, или ANY (SELECT TOP…), должна ссыслаться по крайней мере на одну таблицу из предложения FROM.
• Левая часть для условия >, >=, <, <=, сопровождаемая предложениями ALL, SOME, или ANY (SELECT <агрегатная функция>…), должна ссыслаться по крайней мере на одну таблицу из предложения FROM.
• Левая часть для условия >, >=, <, <=, сопровождаемая предложениями ALL, SOME, or ANY (подзапрос с GROUP BY и/или HAVING), должна ссылаться по крайней мере на одну таблицу из предложения FROM.

В Visual FoxPro 9.0 левая часть выражения сравнения, которое не начинается со списка (например, предложения ALL, SOME, or ANY не указано), не должна ссылаться на какую-любую таблицу из предложения FROM.
Во всех случаях, в левой части выражения сравнения допускается ссылаться на более чем одну таблица из предложения FROM. Для соотнесенного подзапроса, левая часть выражения сравнения не должна сослаться на соотнесённую таблицу.

Подзапросы в команде UPDATE...SQL

В Visual FoxPro 9.0 команда UPDATE...SQL теперь поддерживает подзапрос в предложении SET.
К подзапросу в предложении SET предъявляются те же требования, как и к подзапросу, используемому в операции сравнения. Если подзапрос не возвращает никакие записи, то возвращается значение NULL.
В предложении SET допускается использовать только один подзапрос. Если имеется подзапрос в предложении SET, то использовать подзапросы в предложении WHERE не разрешается.
Ниже показан общий синтаксис для подзапроса в предложении SET.
UPDATE … SET … (SELECT …) …
В следующем примере показано использование подзапроса в предложении SET.
CLOSE DATA
CREATE CURSOR MyCursor1 (field1 I, field2 I NULL)
INSERT INTO MyCursor1 VALUES (1,1)
INSERT INTO MyCursor1 VALUES (2,2)
INSERT INTO MyCursor1 VALUES (5,5)
INSERT INTO MyCursor1 VALUES (6,6)
INSERT INTO MyCursor1 VALUES (7,7)
INSERT INTO MyCursor1 VALUES (8,8)
INSERT INTO MyCursor1 VALUES (9,9)
CREATE CURSOR MyCursor2 (field1 I, field2 I)
INSERT INTO MyCursor2 VALUES (1,10)
INSERT INTO MyCursor2 VALUES (2,20)
INSERT INTO MyCursor2 VALUES (3,30)
INSERT INTO MyCursor2 VALUES (4,40)
INSERT INTO MyCursor2 VALUES (5,50)
INSERT INTO MyCursor2 VALUES (6,60)
INSERT INTO MyCursor2 VALUES (7,70)
INSERT INTO MyCursor2 VALUES (8,80)
UPDATE MyCursor1 SET field2 = 100 + (SELECT field2 FROM MyCursor2 ;
  WHERE MyCursor2.field1 = MyCursor1.field1) WHERE field1 > 5
SELECT MyCursor1
LIST

Подзапросы в предложении FROM

Подзапрос в предложении FROM обычно обозначается как полученная таблица. Полученная таблица - это команда SELECT в предложении FROM, упоминаемая под псевдонимом или определенным пользователем именем. Набор результатов SELECT в предложении FROM создает таблицу, используемую внешней командой SELECT. Visual FoxPro 9.0 разрешает использование подзапроса в предложении FROM.
Подзапрос должен быть заключен в круглые скобки, и обязательно связан с псевдонимом. Корреляция не обеспечивается. К подзапросу применяются те же ограничения синтаксиса, как и для обычной команды SELECT, не ограниченые синтаксисом ранее рассмотренных подзапросов. Все такие подзапросы выполненяются до выполнения самого верхнего SELECT.
Ниже показан общий синтаксис подзапроса в предложении FROM.
SELECT … FROM (SELECT …) [AS] Alias…
В следующем примере демонстрируется использование подзапроса в предложении FROM.
SELECT * FROM (SELECT * FROM MyCursor T1;
   WHERE field1 = (SELECT T2.field2 FROM MyCursor1 T2;
   WHERE T2.field1=T1.field2);
   UNION SELECT * FROM MyCursor2;
   ORDER BY 2 desc) AS subquery

*** Следующий код генерирует ошибку ***
SELECT * FROM (SELECT TOP 5 field1 FROM MyCursor) ORDER BY field1

GROUP BY с именами полей в предложении UNION

При использовании предложения UNION в Visual FoxPro 8.0 вы должны были использовать числовые ссылки в предложении ORDER BY. В Visual FoxPro 9.0, это ограничение было отменено, и теперь допускается использовать имена полей.
Ссылочные поля должны присутствовать в списке SELECT (проекция) для последнего SELECT в UNION; эта проекция используется для операции ORDER BY.
Следующий пример показывает использование имен полей в предложении ORDER BY.
CLOSE DATABASES all
CREATE CURSOR MyCursor(field1 I, field2 I)
INSERT INTO MyCursor values(1,6)
INSERT INTO MyCursor values(2,5)
INSERT INTO MyCursor values(3,4)
SELECT field1, field2, .T. AS FLAG, 1 FROM MyCursor;
   WHERE field1 = 1;
   UNION ;
   SELECT field1, field2, .T. AS FLAG, 1 FROM MyCursor;
   WHERE field1 = 3;
   ORDER BY field2 ;
   INTO CURSOR TEMP READWRITE
BROWSE NOWAIT

Эффективное выполнение TOP N

В Visual FoxPro 8.0 и более ранних версиях при использовании в TOP N предложения [PERCENT] все записи сортируются и затем TOP N записей извлекается. В Visual FoxPro 9.0 эффективность выполнения была улучшена за счёт удаления записей, которые не удовлетворяют требованиям TOP N из процесса сортировки как можно раньше.
Оптимизация TOP N выполняется только тогда, когда если SET ENGINEBEHAVIOR установлена в 90.
Оптимизация требует, чтобы TOP N возвратила не больше, чем N записей (это не так для Visual FoxPro 8.0 и более ранних версий).
TOP N PERCENT не может быть оптимизирована, если весь результирующий набор записей не может быть считан в память сразу.

Улучшенная оптимизация для множественной таблицы с условием OR

Visual FoxPro 9.0 применяет улучшенную Rushmore оптимизацию при выборке из связанных по условию OR таблиц. Visual FoxPro оптимизирует условия фильтра для таблицы, пока обе стороны условия могут быть оптимизированы. Следующий пример показывает это:
CLEAR
CREATE CURSOR Test1 (f1 I)
FOR i=1 TO 20
  INSERT INTO Test1 VALUES (I)
NEXT
INDEX ON f1 TAG f1
CREATE CURSOR Test2 (f2 I)
FOR i=1 TO 20
  INSERT INTO Test2 VALUES (I)
NEXT
INDEX ON f2 TAG f2
SYS(3054,12)
SELECT * from Test1, Test2 WHERE (f1 IN (1,2,3) AND f2 IN (17,18,19)) OR ;
  (f2 IN (1,2,3) AND f1 IN (17,18,19)) INTO CURSOR Result
SYS(3054,0)
В этом сценарии, таблица Test1 может быть оптимизирована Rushmore, используя следующее условие:

( F1 В (1,2,3) ИЛИ f1 В (17,18,19)) и таблица Test2 со следующими условиями:
( F2 В (17,18,19) ИЛИ f2 В (1,2,3))

Поддержка для локальных буферизированных данных

Время от времени может быть полезно использовать SELECT...SQL, чтобы выбрать записи из локального буферизированного курсора, в котором таблица не модифицировалась. Много раз при создании средств управления подобно сеткам, окнам списка, и комбинированным спискам необходимо рассмотреть недавно добавленные записи, которые еще не были сохранены на диске. В настоящее время команды SQL основаны на содержании, которое уже сохранено на диске.
Visual FoxPro 9.0 обеспечивает расширения языка, которые позволяют вам определять, основаны ли данные, возвращенные командой SELECT...SQL на буферизированных данных или данных, сохранённых на диске.
Команда SELECT...SQL теперь поддерживает предложение WITH...BUFFERING, которое позволяет вам определять, основаны ли извлекаемые данные на буферизированных данных или данных, уже сохранённых на диске. Для подробной информации, см. «Команда SELECT...SQL c предложением WITH».
Если Вы не включаете предложение BUFFERING, характер извлекаемых данных определяется установкой команды SET SQLBUFFERING. Для подробной информации, см. «Команда SET SQLBUFFERING».

Расширения других SQL команд

Следующие разделы описывают расширения, сделанные в командах  INSERT...SQL, UPDATE...SQL и DELETE...SQL Visual FoxPro 9.0.

Предложение UNION в команде INSERT...SQL

В Visual FoxPro 9.0 предложение UNION теперь поддерживается в команде INSERT...SQL
Ниже показан общий синтаксис для предложения UNION.
INSERT INTO … SELECT … FROM … [UNION SELECT … [UNION …]]
Следующий пример показывает использование предложения UNION в INSERT...SQL.
CLOSE DATABASES ALL
CREATE CURSOR MyCursor (field1 I,field2 I)
CREATE CURSOR MyCursor1 (field1 I,field2 I)
CREATE CURSOR MyCursor2 (field1 I,field2 I)
INSERT INTO MyCursor1 VALUES (1,1)
INSERT INTO MyCursor2 VALUES (2,2)
INSERT INTO MyCursor SELECT * FROM MyCursor1 UNION SELECT * FROM MyCursor2
SELECT MyCursor
LIST

Соотнесенная команда UPDATE...SQL

Visual FoxPro 9.0 теперь поддерживает соотнесенные модификации в команде UPDATE...SQL.
Если в команду UPDATE...SQL включено предложение FROM, то имя после ключевого слова UPDATE определяет адресата для операции модификации. Это может быть имя таблицы, псевдоним или имя файла. Для того, чтобы выбрать выходную таблицу,  используется следующая логика:

• Если имя в предложении FROM соответствует неявному или явному псевдониму для таблицы, то таблица используется как адресат для операции модификации.
• Если имя соответствует псевдониму курсора в текущем сеансе данных, то курсор используется как адресат.
• Таблица или файл с тем же самым именем используется как адресат.

Команда UPDATE...SQL в предложении FROM имеет тот же самый синтаксис, как предложение FROM в команде SELECT...SQL со следующими ограничениями:

• Выходная таблица или курсор не может быть включено во внешнем объединении (OUTER JOIN) как вторичная таблица.
• Выходной курсор не может быть результом подзапроса.
• Все другие объединения могут быть оценены перед соединением выходной таблицы.

Ниже показан общий синтаксис для соотнесенной команды UPDATE.
UPDATE … SET … FROM … WHERE …
Следующий пример показывает соотнесенную модификацию, используя команду UPDATE...SQL.
CLOSE DATABASES ALL
CREATE CURSOR MyCursor1 (field1 I , field2 I NULL,field3 I NULL)
INSERT INTO MyCursor1 VALUES (1,1,0)
INSERT INTO MyCursor1 VALUES (2,2,0)
INSERT INTO MyCursor1 VALUES (5,5,0)
INSERT INTO MyCursor1 VALUES (6,6,0)
INSERT INTO MyCursor1 VALUES (7,7,0)
INSERT INTO MyCursor1 VALUES (8,8,0)
INSERT INTO MyCursor1 VALUES (9,9,0)
CREATE CURSOR MyCursor2 (field1 I , field2 I)
INSERT INTO MyCursor2 VALUES (1,10)
INSERT INTO MyCursor2 VALUES (2,20)
INSERT INTO MyCursor2 VALUES (3,30)
INSERT INTO MyCursor2 VALUES (4,40)
INSERT INTO MyCursor2 VALUES (5,50)
INSERT INTO MyCursor2 VALUES (6,60)
INSERT INTO MyCursor2 VALUES (7,70)
INSERT INTO MyCursor2 VALUES (8,80)
CREATE CURSOR MyCursor3 (field1 I , field2 I)
INSERT INTO MyCursor3 VALUES (6,600)
INSERT INTO MyCursor3 VALUES (7,700)
UPDATE MyCursor1 SET MyCursor1.field2=MyCursor2.field2, field3=MyCursor2.field2*10 ;
FROM MyCursor2 ;
  WHERE MyCursor1.field1>5 AND MyCursor2.field1=MyCursor1.field1
SELECT MyCursor1
LIST
UPDATE MyCursor1 SET MyCursor1.field2=MyCursor3.field2 FROM MyCursor2, MyCursor3  ;
  WHERE MyCursor1.field1>5 AND MyCursor2.field1=MyCursor1.field1 AND
  myCursor2.field1=MyCursor3.field1
SELECT MyCursor1
LIST

Соотнесенная команда DELETE...SQL

Visual FoxPro 9.0 теперь поддерживает соотнесенное удаление в команде DELETE...SQL.
Если в предложении FROM указана больше чем одна таблица, требуется имя после ключевого слова DELETE; это имя определяет адресата для операции удаления . Это имя может быть имя таблицы, псевдоним или имя файла. Для выбора целевой таблицы используется следующая логика:

• Если имя соответствует неявному или явному псевдониму таблицы в предложении FROM, то таблица используется как адресат для операции модификации.
• Если имя соответствует псевдониму для курсора в текущем сеансе данных, то курсор используется как адресат.
• Таблица или файл с тем же самым именем используется как адресат.

Команда DELETE...SQL в предложении FROM имеет тот же самый синтаксис, как предложение FROM в команде SELECT...SQL со следующими ограничениями:

• Выходная таблица или курсор не может быть включена во внешнее объединение как вторичная таблица.
• Выходной курсор не может быть результат подзапроса.
• Должна быть возможность оценить все другие объединения перед соединением выходной таблицы.

Ниже показан общий синтаксис для соотнесенной команды DELETE.
DELETE [alias] FROM alias1 [, alias2 … ] … WHERE …
Следующий пример показывает соотнесенное удаление с использованием команды DELETE...SQL.
CLOSE DATABASES ALL
CREATE CURSOR MyCursor1 (field1 I , field2 I NULL,field3 I NULL)
INSERT INTO MyCursor1 VALUES (1,1,0)
INSERT INTO MyCursor1 VALUES (2,2,0)
INSERT INTO MyCursor1 VALUES (5,5,0)
INSERT INTO MyCursor1 VALUES (6,6,0)
INSERT INTO MyCursor1 VALUES (7,7,0)
INSERT INTO MyCursor1 VALUES (8,8,0)
INSERT INTO MyCursor1 VALUES (9,9,0)
CREATE CURSOR MyCursor2 (field1 I , field2 I)
INSERT INTO MyCursor2 VALUES (1,10)
INSERT INTO MyCursor2 VALUES (2,20)
INSERT INTO MyCursor2 VALUES (3,30)
INSERT INTO MyCursor2 VALUES (4,40)
INSERT INTO MyCursor2 VALUES (5,50)
INSERT INTO MyCursor2 VALUES (6,60)
INSERT INTO MyCursor2 VALUES (7,70)
INSERT INTO MyCursor2 VALUES (8,80)
CREATE CURSOR MyCursor3 (field1 I , field2 I)
INSERT INTO MyCursor3 VALUES (6,600)
INSERT INTO MyCursor3 VALUES (7,700)
DELETE MyCursor1 FROM MyCursor2  ;
  WHERE MyCursor1.field1>5 AND MyCursor2.field1=MyCursor1.field1
SELECT MyCursor1
LIST
RECALL ALL
DELETE MyCursor1 FROM MyCursor2, MyCursor3  ;
  WHERE MyCursor1.field1>5 AND MyCursor2.field1=MyCursor1.field1 AND
  myCursor2.field1=MyCursor3.field1
SELECT MyCursor1
LIST
RECALL ALL
DELETE FROM MyCursor1 WHERE MyCursor1.field1 > 5
SELECT MyCursor1
list
RECALL ALL
DELETE MyCursor1 from MyCursor1 WHERE MyCursor1.field1 > 5
RECALL ALL IN MyCursor1
DELETE T1 ;
  FROM MyCursor1 T1 JOIN MyCursor2 ON T1.field1>5 AND MyCursor2.field1=T1.field1,
  myCursor3  ;
  WHERE MyCursor2.field1=MyCursor3.field1
RECALL ALL IN MyCursor1

Обновляемые поля в команде UPDATE...SQL

Число полей, которые могут модифицироваться командой UPDATE...SQL,  больше не ограничивается 128, как в предыдущих версиях Visual FoxPro. Новое ограничение — 255 полей, т.е. равно числу полей, доступных в таблице.

SET ENGINEBEHAVIOR

Команда SET ENGINEBEHAVIOR имеет в Visual FoxPro 9.0 новую опцию, 90, которая воздействует поведение команды SELECT...SQL для предложения TOP N и агрегатных функций. Для дополнительной информации см. «Команда SET ENGINEBEHAVIOR».

Преобразование типов данных

Преобразование между типами данных (например, преобразование между полями memo и character) в Visual FoxPro 9.0 было улучшено. Это усовершенствованное преобразование применяется в команде ALTER TABLE...SQL с опцией COLUMN также, как и структурные изменения, сделанные в Конструкторе Таблиц.

Особенности использования команды SELECT… SQL

При создании запросов и просмотров командами SQL SELECT вы должны учитывать следующие утверждения, соглашения, и ограничения.

• Определяемые пользователем функции в командах SELECT...SQL
• Агрегатные Функции
• Правила по именованию столбцов
• Операции объединения (UNION)

Определяемые пользователем функции в командах SELECT...SQL

Вы можете определять выражения, содержащие определяемые пользователем функции для Select_Item в утверждениях SQL SELECT. Однако обратите внимание на следующие рекомендации и ограничения при использовании определяемых пользователем функций в утверждениях SQL SELECT:

• Используйте API и определяемые пользователем функции, написанные на C или ассемблере вместо того, чтобы выполнять манипулирование с большими вычислительными объемами в определяемых пользователем функциях Visual FoxPro. Быстродействие, с которым выполняются определяемые пользователем функции, может ограничивать быстродействие операций, выполняемых с SQL SELECT.
• Не предпринимайте ничего относительно ввода-вывода Visual FoxPro или среды таблицы при использовании определяемых пользователем функций в SQL SELECT. Вообще, в этом случае вы, скорее всего, не знаете, какая рабочая область выбрана, какое имя у текущей таблицы, какие имена имеют обрабатываемые полея. Значение этих переменных зависит от точного расположения в процессе оптимизации, в котором вызывается определяемая пользователем функция.
• Не изменяйте Visual FoxPro ввод-вывод или среду таблицы в определяемых пользователем функциях, вызваемых в SQL SELECT. Результаты могут быть непредсказуемы.
• Используйте список параметров, передаваемых функции, только когда она вызывается как единственый надежный способ передать значения к определяемым пользователем функциям в SQL SELECT.
• Вы должны понимать, что "запрещенные" манипуляции могут обеспечивать правильные результаты для одной из версий Visual FoxPro, но не cмогли бы работать в более поздних версиях.

Вне этих ограничений, определяемые пользователем функции приемлемы в командах SQL SELECT. Однако помните, что их использование в SQL SELECT способно резко уменьшить эффективность выполнения запроса.

Агрегатные функции

Вы можете использовать агрегатные функции с Select_Item, которые является полем или выражением, включающим поле, или внутри условия фильтра в предложении HAVING. Однако, Вы не можете вкладывать агрегатные функции одна в другую.
В следующай таблице перечислены агрегатные функции, которые вы можете использовать в команде SELECT...SQL.

Следующий пример создает запрос, который назначает имена столбцам в результирующей выборке в соответствии с описанием:
CLEAR ALL
CLOSE DATABASES
OPEN DATABASE (HOME(2) + 'Data\TestData')
SELECT AVG(TAlias1.order_amt), MIN(TAlias1.order_amt) FROM Orders AS TAlias1

Правила присваивания имён столбцам

Следующие правила применяются, когда вы определяете столбец с предложением AS, чтобы отобразить результаты в отдельном столбце:

• Если Select_Item - поле с уникальным именем, имя выводимого столбца совпадает с именем поля.
• Если больше чем один Select_Item имеют одинаковые имена, то к концу имени выводимого столбца добавляется символ подчеркивания (_) и номер (символ).

Например, если команда SELECT SQL определяет, что должны быть отображены поля Cust_ID для двух таблиц, Customer и Orders, в выборке эти столбцы будут иметь имена Cust_ID_a и Cust_Id_b. Следующий пример создает запрос, который отображает имена столбцов как описано:
CLEAR ALL
CLOSE DATABASES
OPEN DATABASE (HOME(2) + 'Data\TestData')
SELECT TAlias1.cust_id, TAlias2.cust_id ;
   FROM Customer AS TAlias1, Orders AS TAlias2 ;
   WHERE TAlias1.cust_id = TAlias2.cust_id
При выборке из свободных таблиц, имеющих одинаковые имена полей длиной 10 символов (максимальная длина имени поля для свободных таблиц), в результирующей выборке второе и все последующие имена усекаются и добавляется числовой идентификатор. Например, имя столбца Department появилось бы как Department и Departmen2.

• Если Select_Item - выражение, и предложение AS не используется, то имя столбца вывода формируется как Exp_1. Имена дополнительных столбцов, определяемых выражениями), формируются как Exp_2, Exp_3, и так далее. Следующий пример создает запрос, который отображает имена столбцов как описано:

CLEAR ALL
CLOSE DATABASES
OPEN DATABASE (HOME(2) + 'Data\TestData')
SELECT TAlias1.postalcode+"-1234", TAlias2.postalcode+"-5678" ;
   FROM Customer AS TAlias1, Orders AS TAlias2 ;
   WHERE TAlias1.cust_id = TAlias2.cust_id

• Если с Select_Item используется агрегатная функция, типа COUNT(),  выводимый столбец именован как Cnt_FieldName. Если больше чем один Select_Item используются с составными функциями, столбцы вывода именуются в соответствии со следующим соглашением: ИмяАгрегатнойФункции_ИмяПоля; при необходимости имена сокращаются. Следующий пример создает запрос, который отображает имена выводимых столбцов в соответсвии с выше сказанным:

CLEAR ALL
CLOSE DATABASES
OPEN DATABASE (HOME(2) + 'Data\TestData')
SELECT COUNT(order_id), SUM(order_net)FROM Orders

Операция объединения (UNION)

При выполнении операций объединения между командами SELECT...SQL, использующими предложение UNION, необходимо знать и учитывать следующие соображения и ограничения:

• Вы не можете использовать UNION для объединения подзапросов.
• Объединяемые команды SELECT должны иметь то же самое количество столбцов, как в результирующем наборе.
• Только конечная (заключительная) команда SELECT может иметь предложение ORDER BY, которое должно обращаться к выводимым столбцам по их номерам. Если предложение ORDER BY включено, то оно воздействует на весь результирующий набор.
• Когда два столбца различных типов данных включаются в операции UNION, тип данных с более низким старшинством преобразуется в тип данных с более высоким старшинством.

Преобразование типов данных и старшинство в операциях UNION

До Visual FoxPro 8.0 вам нужно было выполнять явное преобразование типов данных при выполнении операций UNION в командах  SELECT...SQL над двумя объединяемыми полями различных типов. Теперь Visual FoxPro поддерживает неявное преобразование типа данных для типов данных, которые поддерживают такое преобразование.
Явное преобразование типа данных требует, чтобы вы использовали функции преобразования Visual FoxPro, типа CTOD(), в то время как неявные преобразования не требуют, чтобы Вы использовали такие функции преобразования.
Когда Visual FoxPro объединяет в операции UNION два столбца с различными типами данных, тип данных с более низким старшинством преобразован в тип данных с более высоким старшинством. Для реквизитов поля, NULL имеет более высокое старшинство над NOT NULL.
Следующая таблица показывает все явные и неявные преобразования типа данных, разрешенные для типов данных таблиц Visual FoxPro.

Команда SELECT...SQL c предложением WITH

Предложение WITH позволяет Вам применять одиночную команду к существующим утверждениям SELECT без необходимости изменять эти утверждения.
[WITH (BUFFERING = lExpr) ]
Параметры
lExpr
Логический тип данных. В следующей таблице перечислены значения для lExpr.

Если вы устанавливаете BUFFERING в истину (.T.), то можете сделать запрос данных из локального буферизированного курсора, который может включать записи, которые модифицировались, но не сохранены на диске. Иначе, результат выборки будет  включать только те записи, которые сохранены на диске.
Если курсор использует буферизацию строки, то текущая запись сохраняется до того, как команда выполнена.
Если курсор использует буферизацию таблицы, то изменяемая текущая запись сохранена в буфере.
Предложение WITH, устанавливающее BUFFERING, поддерживается только на локальных данных Visual FoxPro, и не поддерживается на данных из баз данных внешних компонентов (например, на SQL Server).
Если вы устанавливаете BUFFERING в Ложь (.F.), то команда SELECT выбирает данные из курсора на диске (который может быть отличен от того, который находится в буфере). Если Вы не включаете утверждение BUFFERING, то ваши результаты основаны на установке для команды SET SQLBUFFERING. По умолчанию, ваши запросы выполняют выборку данных с диска. Команда SELECT с WITH BUFFERING, установленным в Истину (.T.), отменяет установку SET SQLBUFFERING.
Опция WITH BUFFERING эффективна в следующих случаях:

• Рабочая область не имеет псевдонима, определенного, чтобы поддерживать курсор, на который ссылается команда SELECT.
• Курсор не буферизирован.
• Курсор действует к как адресат для операций модификации или удаления.

Следующий пример демонстрирует простую команду SELECT, ссылающуюся на одиночную таблицу. Чтобы использование предложения WITH было эффективным, должна существовать рабочая область с псевдоним Customers.
SELECT * FROM customers WITH (BUFFERING=.T.)
Следующий пример показывает, что каждая таблица, указанная в предложении FROM, нуждается в предложении WITH BUFFERING.
SET MULTILOCKS ON
CREATE TABLE Table1 (Field1 N(10), Field2 N(10))
CREATE TABLE Table2 (Field3 N(10), Field4 N(10))
CURSORSETPROP("Buffering", 5, "Table1")
CURSORSETPROP("Buffering", 5, "Table2")
INSERT INTO Table1 VALUES (1, 1)
INSERT INTO Table2 VALUES (0, 100)
SELECT Table1.*, Table2.* FROM FORCE Table1 ;
      JOIN Table2 ON Field1 >= Field3 AND Field2 > 0 AND Field4 < 100
REPLACE Field4 WITH 99 IN Table2
SELECT Table1.*, Table2.* FROM FORCE Table1 ;
      JOIN Table2 ON Field1 >= Field3 AND Field2 > 0 AND Field4 < 100
SELECT Table1.*, Table2.* FROM FORCE Table1 WITH (BUFFERING=.T.) ;
      JOIN Table2 WITH (BUFFERING=.T.) ;
      ON Field1 >= Field3 AND Field2 > 0 AND Field4 < 100

Команда SET SQLBUFFERING

Определяет, основаны ли данные в SQL - команде SELECT на буферизированных данных или данных, записанных в диск.
SET SQLBUFFERING ON | OFF

Параметры
ON
Определяет, что команда SELECT...SQL использует локальные буферизированные данные, если они доступны. Если данные не буферизированы, то выбираются данные с диска.
OFF
(Значение по умолчанию) Определяет, что команда SELECT...SQL использует данные, сохранённые на диске.

(Перевод Вячеслав Клепинин)

Автор публикации

не в сети 6 месяцев

admin

Комментарии: 1Публикации: 123Регистрация: 10-12-2000

(далее…)

Правильная сортировка казахского алфавита

  SELECT test.fio,SYS(15,kz1251,IIF(ISNULL(test.fio),'',test.fio)) AS 'sort_kz' FROM test ORDER BY sort_kz INTO CURSOR test  

Автор публикации

не в сети 4 года

dimuhametov

Комментарии: 0Публикации: 3Регистрация: 01-11-2008

(далее…)

Адаптер генератора отчетов Fast Report 2.47 для Visual FoxPro

Автор публикации

не в сети 22 года

Евгений Банщиков

Комментарии: 0Публикации: 5Регистрация: 09-04-2004

(далее…)

Генератор отчетов в Exel (v 1.2)

Автор публикации

не в сети 22 года

Евгений Банщиков

Комментарии: 0Публикации: 5Регистрация: 09-04-2004

(далее…)

Альтернативный редактор меню

Автор публикации

не в сети 22 года

Евгений Банщиков

Комментарии: 0Публикации: 5Регистрация: 09-04-2004

(далее…)

Грид а ля Excel (аналог Ctrl+Z, метки ячеек, объединение ячеек)

Автор публикации

не в сети 20 лет

Ydin

Комментарии: 0Публикации: 3Регистрация: 16-12-2005

(далее…)

Класс на основе TreeView с поддержкой нескольких таблиц

Автор публикации

не в сети 15 лет

Black_Cat

Комментарии: 0Публикации: 1Регистрация: 02-12-2010

(далее…)

Генератор отчетов MS WORD

Автор публикации

не в сети 10 месяцев

AlexK

Комментарии: 0Публикации: 9Регистрация: 11-12-2000

(далее…)

Генератор отчетов GenRep

Автор публикации

не в сети 10 месяцев

AlexK

Комментарии: 0Публикации: 9Регистрация: 11-12-2000

(далее…)

Генератор отчетов GenRep

Автор публикации

не в сети 10 месяцев

AlexK

Комментарии: 0Публикации: 9Регистрация: 11-12-2000

(далее…)

Генератор отчетов в Excel (v 2.7)

Автор публикации

не в сети 22 года

Евгений Банщиков

Комментарии: 0Публикации: 5Регистрация: 09-04-2004

(далее…)

Корректно растягивающийся грид при ресайзе формы

Автор публикации

не в сети 16 лет

V-kont

Комментарии: 0Публикации: 1Регистрация: 02-09-2010

(далее…)

Получение времени выполнения процедуры/запроса и т.д.

Автор публикации

не в сети 6 лет

Chemberzhy

Комментарии: 0Публикации: 6Регистрация: 28-04-2009

(далее…)

WordBatchEdit

Автор публикации

не в сети 19 лет

ry

Комментарии: 0Публикации: 1Регистрация: 24-09-2007

(далее…)

SquidMonitor

Автор публикации

не в сети 22 года

Vladimir_Knyr

Комментарии: 0Публикации: 11Регистрация: 15-12-2003

(далее…)

Простейший пример работы с FTP-сервером

Автор публикации

не в сети 6 лет

Chemberzhy

Комментарии: 0Публикации: 6Регистрация: 28-04-2009

(далее…)

Инсталлятор RunTime библиотек VFP9 SP2 RUS

Автор публикации

не в сети 6 лет

Chemberzhy

Комментарии: 0Публикации: 6Регистрация: 28-04-2009

(далее…)

Класс для изменения ширины колонок многоколоночного ListBox-а в процессе выполнения

Автор публикации

не в сети 20 лет

lesalesa

Комментарии: 0Публикации: 3Регистрация: 12-10-2006

(далее…)

Генератор отчетов Genrep (Excel, html)

  Genrep mini 2.0

Новые шаблоны:
.sbx - Вывод в Excel файл
.txh - Вывод в html файл

Старые шаблоны:
.sab - шаблон для Word
.txs - Вывод в текстовый файл

В архиве:
reg_file - зарегистрировать расширения файлов шаблонов
test - шаблоны создаваемые генераторм
work - примеры работающих html, txt, word, Excel шаблонов
sql - примеры работы с источниками ADODB
sсripts- примеры работы Windows Script Host

Excel на основе xml
Нtml на основе тестового шаблона

Экраны здесь или http://genrep.ru

21.11.2009:
Добавлена работа с источником данных SQL ADODB ( http://genrep.net/adodb.html )
Добавлены примеры работы с генератором для vbs Windows Script Host
30.11.2009
Исправлена ошибка подключения ADODB
12.12.2009
Обновление описания

Автор публикации

не в сети 10 месяцев

AlexK

Комментарии: 0Публикации: 9Регистрация: 11-12-2000

(далее…)

Настраиваемый Grid.

Автор публикации

не в сети 20 лет

BSA

Комментарии: 0Публикации: 1Регистрация: 26-05-2006

(далее…)

Двухцветный объемный шрифт

Автор публикации

не в сети 6 лет

Chemberzhy

Комментарии: 0Публикации: 6Регистрация: 28-04-2009

(далее…)

Утилита для получения курсов валют с сайта www.cbr.ru

Автор публикации

не в сети 7 месяцев

urfin

Комментарии: 0Публикации: 2Регистрация: 17-08-2004

(далее…)

Генератор отчетов Genrep

Автор публикации

не в сети 10 месяцев

AlexK

Комментарии: 0Публикации: 9Регистрация: 11-12-2000

(далее…)

DBF -> Create Table string

Автор публикации

не в сети 19 лет

Lwa

Комментарии: 0Публикации: 1Регистрация: 04-03-2007

(далее…)

Класс для ввода и редактирования IP-адреса в переменной или таблице.

Автор публикации

не в сети 21 год

Crispy

Комментарии: 0Публикации: 7Регистрация: 16-05-2005

(далее…)

Отправка SMS сообщений из FOXа через сотовый телефон, подключенный к COM порту. Реинкарнация :-)2009

Автор публикации

не в сети 24 года

GEO

Комментарии: 0Публикации: 1Регистрация: 02-07-2002

(далее…)

Файл win32api_vfpconst.h содержащий объявления констант для использования в вызовах Win32Api функций.

Автор публикации

не в сети 20 лет

lesalesa

Комментарии: 0Публикации: 3Регистрация: 12-10-2006

(далее…)

Программа для документации таблиц в базе данных (каталоге).

Автор публикации

не в сети 20 лет

lesalesa

Комментарии: 0Публикации: 3Регистрация: 12-10-2006

(далее…)

Класс для связи с Интернет сервером (вызов PHP – скриптов) с помощью WinAPI Windows Socket 2

* Пример шаблона скрипта PHP см. в файле load.php в прикрепленном архиве

[code] cURL='http://www.subdomain.site.ru' && адрес субдомена, где лежат PHP - скрипты cLOAD='load.php' && Скрипт для выборки информации из базы данных cSAVE='save.php' && Скрипт для записи в базу данных cLogin='login' && Логин cPassword='pass' && Пароль nTemp=0 cData='' && Передаваемый кусок информации (файл например) O_WS=CREATEOBJECT("CWinSocket") * см. описание к методу Post как передавать в него параметры (ниже в классе в заголовке метода) ************************************************************************************************* * ЧТЕНИЕ ДАННЫХ С СЕРВЕРА ************************************************************************************************* if O_WS.Init()=.F. O_WS.Disconnect else O_WS.HostAssign(substr(cURL,8,len(cURL)-7)) if alltrim(O_WS.IP)0 lcStr=lcStr+"--"+lcB+crlf+'Content-Disposition: form-data; name="'+substr(cStr,1,lT1)+'"'+crlf+crlf lcStr=lcStr+alltrim(substr(cStr,lT1+2,len(cStr)-lT1+1))+crlf+'--'+lcB+'--'+crlf else lcStr=lcStr+"--"+lcB+crlf+'Content-Disposition: form-data; name="'+cStr+'"'+crlf+crlf lcStr=lcStr+pcData+crlf+'--'+lcB+'--'+crlf endif THIS.snd('Content-Length: '+alltrim(str(len(lcStr)))+crlf) THIS.snd(crlf) && End of headers THIS.snd(lcStr,.t.) && get a response, too. else if !empty(pcData) THIS.snd(crlf) && End of headers THIS.snd(pcData,.t.) && get a response, too. else THIS.snd(crlf,.t.) && get a response, too. endif endif lResult = .T. ELSE lResult = .F. ENDIF THIS.Disconnect() This.cString=lcStr ENDFUNC FUNCTION snd(cData, lResponse) LOCAL cBuffer, nResult, cResponse cBuffer = cData && + CrLf nResult = send(THIS.hSocket, @cBuffer, Len(cBuffer), 0) IF nResult = SOCKET_ERROR RETURN .F. ENDIF IF Not lResponse RETURN .T. ENDIF LOCAL hEventRead, nWait, cRead DO WHILE .T. * creating event, linking it to the socket and wait hEventRead = WSACreateEvent() = WSAEventSelect(THIS.hSocket, hEventRead, FD_READ) * 1000 milliseconds can be not enough THIS.WaitForRead = WSAWaitForMultipleEvents(1, @hEventRead, 0, THIS.Time_out, 0) = WSACloseEvent(hEventRead) IF THIS.WaitForRead 0 && error or timeout EXIT ENDIF * reading data from connected socket THIS.cIn = THIS.cIn+THIS.Rd() ENDDO RETURN .T. ENDFUNC PROTECTED FUNCTION Rd #DEFINE READ_SIZE 65536 && 16384 LOCAL cRecv, nRecv, nFlags cRecv = Repli(Chr(0), READ_SIZE) nFlags = 0 nRecv = recv(THIS.hSocket, @cRecv, READ_SIZE, nFlags) RETURN Iif(nRecv ]]> https://foxclub.ru/knowledgebase/klass-hranilishhe-ikonok-i-lyuboj-drugoj-dvoichnoj-informaczii/ Fri, 28 Aug 2020 11:32:36 +0000

Класс-хранилище иконок и любой другой двоичной информации.

Демонстрационный пример, показывающий вариант сохранения двоичных данных в свойствах класса, например, сохранение иконок в виду свойств.

После нескольких попыток сохранить двоичные данные в свойстве класса оказалось, что данные сохранядтся лишь до первого двоичного нуля. Видимо, это свзяано с интерпретацией нуля как конца строки, а все свойства в фоксе объявлены как строки на языке С. Потом пришла идея воспользоваться возможностью текстового представления двоичных данных (после работы над почтовой программой). Эта возможность как раз появилась в 9-й версии VFP в виде добавления новых параметров функции STRCONV(). Таким образом, фокс может сохранять данные в base64 кодировке в свойствах и проеобразовывать их обратно в двоичный вид!

Автор: Влад Колосов

Автор публикации

не в сети 21 год

Влад Колосов

Комментарии: 0Публикации: 11Регистрация: 05-05-2005

(далее…)

]]> https://foxclub.ru/knowledgebase/otchet-v-excel-2/ Fri, 28 Aug 2020 11:32:36 +0000

Отчет в Excel

Отчет в Excel

Автор: AlexW

Автор публикации

не в сети 6 месяцев

admin

Комментарии: 1Публикации: 123Регистрация: 10-12-2000

(далее…)

]]> https://foxclub.ru/knowledgebase/nabor-utilit-preobrazovaniya-dannyh-i-vyvoda-na-pechat/ Fri, 28 Aug 2020 11:32:36 +0000

Набор утилит преобразования данных и вывода на печать

Печать dos документов на принтерах не поддерживающих dos печать. Печать любого dos файла *.rep, брошенного в каталог программы. Печать платежных поручений, перед печатью их можно дорабатывать. Печать объявлений о сдачи выручки. Раздел Б по российскому и импортному товару. Преобразование dbf файлов в формат Excel. Конвертации любых dos документов в формат MS Word. Обработка печати картинок системы электронной сертификации. Печать торговых, финансовых и некоторых отчетных документов в графическом формате.

Здесь приведен исходный код готового решения (сборка VFP от 5.0), которое мной используется с dos информационной систеиой. На программу есть инструкция пользователя и программиста. Может быть кому-то это будет полезно!

Автор: Андрей

Автор публикации

не в сети 18 лет

zhsoft

Комментарии: 0Публикации: 1Регистрация: 21-07-2008

(далее…)

]]> https://foxclub.ru/knowledgebase/msgbox-s-vydeleniem-podstrok-czvetom-shriftom/ Fri, 28 Aug 2020 11:32:36 +0000

Msgbox с выделением подстрок цветом/шрифтом

Замена стандартной функции messagebox() Отличия: - собственные наборы кнопок (помимо стандартных); - собственные картинки (помимо стандартных); - выделение любых частей сообщения цветом и/или шрифтом; - выравнивание текста влево, по центру, вправо; - возможность реализации многоязычного интерфейса; - возможность приведения внешнего msgbox() к единому стилю приложения.

Описание см. в файлах msgbox.prg, msgbox.h
Запускать файл examples.prg

Автор: А.Тарасов

Автор публикации

не в сети 22 года

Андрей Тарасов

Комментарии: 0Публикации: 2Регистрация: 05-02-2004

(далее…)

]]> https://foxclub.ru/knowledgebase/browse-i-grid-s-nazvaniyami-polej-na-naczionalnom-alfavite-kak-hranit-atributy-kolonok-v-tablicze-i-zadejstvovat-ih/ Fri, 28 Aug 2020 11:32:36 +0000

BROWSE и GRID с названиями полей на национальном алфавите. Как хранить атрибуты колонок в таблице и задействовать их.

Полям таблицы можно присваивать пока либо русские, либо внглийские имена. А что делать азербайджанцам, грузинам, армянам. Windows'а на этих языках пока нет. Вот и выкручиваемся...

Автор: mayil

Автор публикации

не в сети 20 лет

mayil

Комментарии: 0Публикации: 6Регистрация: 20-06-2006

(далее…)

]]> https://foxclub.ru/knowledgebase/preobrazovanie-form-otchetov-menyu-v-1251/ Fri, 28 Aug 2020 11:32:35 +0000

Преобразование форм, отчетов, меню в 1251

При перекомпиляции на Windows из 2.6 не преобразует автоматом кодовую страницу. Данная прога преобразует кодовую страницу, после чего импортируйте в VFP

fullconv.prg - заполнить пути к каталогам и запустить
проверить все ли ОК
и запустить copyback.prg (также пути нужны 🙂
также функция перевода кодовой страницы.

Автор: Black Cat

Автор публикации

не в сети 6 месяцев

admin

Комментарии: 1Публикации: 123Регистрация: 10-12-2000

(далее…)

]]> https://foxclub.ru/knowledgebase/preobrazovanie-sistem-schisleniya/ Fri, 28 Aug 2020 11:32:35 +0000

Преобразование систем счисления

Преобразование систем счисления.

1) Преобразование целого десятичного числа в ЛЮБУЮ комбинационную систему счисления. Функция - fConvD().

2) Преобразование целого числа ЛЮБОЙ комбинационной системы счисления в десятичное. Функция - fConvK().

Программа теста. Описание функций смотрите в PRG.

Автор: INB

Автор публикации

не в сети 20 лет

INB

Комментарии: 0Публикации: 3Регистрация: 27-08-2006

(далее…)

]]> https://foxclub.ru/knowledgebase/kalendar-na-baze-kontejnera/ Fri, 28 Aug 2020 11:32:35 +0000

Календарь на базе контейнера

Очередная замена родному календарю ActiveX.

Как и многие другие попытался заменить ActiveX-ный календарик. У каждого свои причины делать подобное.
Это не полноценное решение, а скорее рассуждение на тему.
Карендарь создан на базе Container

Своиства:
dData - собственно задаваемая дата
nYear,nMonth - рассматриваемый период
cMonth - название рассматриваемого месяца
События:
DoIT() - некий аналог VALID() других слассов,
отрабатывает при DoubleClick() на выбраной дате

Собственно дизаин в данном примере не самоцель, скорее демонстрация функционального скелета.
Заранее извеняюсь, что дни недели и название месяцев по-латышски. Привычка, однако. Но читабельно.
Для выбора года использовал ComboBox источник которого ( aYear[50] ) генерится
исходя из текущего значения nYear (nYear-40...nYear-40+50) ( вот так вот оригинально 🙂 ).
Посетила мысль, что будущее дальше 10 лет нам пока мало интересно, а прошлое позднее
40 используется для дат рождения и его можно достичь двумя шагами.
Сетка дат не фиксирована и генерится динамически, что позаоляет программно "игратся" с размером
календаря и упрощает вписывание его в форму.

Автор: Vedmak

Автор публикации

не в сети 22 года

Vedmak

Комментарии: 0Публикации: 1Регистрация: 30-10-2003

(далее…)

]]> https://foxclub.ru/knowledgebase/otchet-v-excel/ Fri, 28 Aug 2020 11:32:35 +0000

Отчет в Excel

Простой вывод отчета в Excel. В качестве шаблона - таблица Excel, сохраненная в формате XML. Не использует объектов, работает даже под MS/DOS.

Автор: igorvs

Автор публикации

не в сети 6 месяцев

admin

Комментарии: 1Публикации: 123Регистрация: 10-12-2000

(далее…)

]]> https://foxclub.ru/knowledgebase/maple4-report-builder-sozdanie-otchetov-v-html/ Fri, 28 Aug 2020 11:32:35 +0000

Maple4 Report Builder – создание отчетов в HTML

Создание репорта, генерация страниц HTML и вывод на экран (печать на принтер). Кроме основного назначения есть не менее значительные неосновные: Обработка реакции на клик Применение app-приложения для генерации страниц или текста для последующей вставки в Вашу формируемую страницу (т.е. в нужном месте app-приложение вернет необходимый код для отображения отчета) Создание приложений "типа под Web" (запуск приложений, форм с последующим обновлением страницы), когда в качестве основного окна программы (или других окон) выступает не форма Visual FoxPro, а HTML-страница. Создание редактируемых зон в отчетах , т.н. редактируемых примечаний.

Назначение программы:
Создание репорта, генерация страниц HTML и вывод на экран (печать на принтер).

Кроме основного назначения есть не менее значительные неосновные:
Обработка реакции на клик
Применение app-приложения для генерации страниц или текста для последующей вставки в Вашу формируемую страницу (т.е. в нужном месте app-приложение вернет необходимый код для отображения отчета)
Создание приложений "типа под Web" (запуск приложений, форм с последующим обновлением страницы), когда в качестве основного окна программы (или других окон) выступает не форма Visual FoxPro, а HTML-страница.
Создание редактируемых зон в отчетах , т.н. редактируемых примечаний.

• Создание и редактирование отчетов и сценариев (как из exe- так и из app-приложения).

• Редактирования каждого из отчетов и сценариев в отдельных окнах.

• Создание и открытие репортов и сценариев непосредственно из окон редактирования репорта и сценария (не требуется запуск еще одного app-приложения или выбор в меню exe-приложения).

• Запуск сценария из коммандной строки (или Вашего приложения) или из exe-модуля (в том числе по заранее подготовленному ярлыку).

• Генерация связанных отчетов (один в другом) или нескольких отдельных отчетов в одном.

• Генерация HTML-страниц или кода отчета без отображения (для последующей вставки).

• Предпросмотр готовой страницы (то, что Вы видите на экране и то, что будет напечатано - иногда может отличаться друг от друга, для исправления этого нужно соответсвующим образом настроить IE).

• Печать HTML-страницы без предпросмотра (и вывода на экран).

• Сохранение готовой страницы HTML (в том числе в виде mht, т.е. в виде архива и с включенными файлами графики).

• Выполнение открытого скрипта из окна редактирования.

• Возможность выполнения кода перед генерацией HTML и после генерации (со вставкой текстов или других отчетов до и после основного).

• Возможность выполнения кода перед просмотром отчета HTML (при Return .f. отчет не показывается, удобно использовать для ограничения доступа), после просмотра и задание кода обновления отчета (данная возможность необходима при создании псевдоредактируемых отчетов - т.е. таких, где данные редактируются в формах Visual FoxPro, а потом необходимо обновление страницы).

• Возможность задания нескольких хедеров одного типа (например, несколько хедеров Detail или Title).

• Генерация в HTML (в зависимости от условия) различных хедеров или всех (по умолчанию).

• Задание программы или функции обработки клика по значению в отчете.

• Выполнение при генерации внутренних функций RB, функций, программ, форм Вашего приложения или внешних форм и prg-файлов.

• Интеллектуальный анализатор файлов графики (сбор всех файлов в одном месте, т.е. где бы файл графики не находился, после генерации он будет размещен в подкаталоге reports_maple4_ru_rb текущего каталога, сравнение по размеру файла или по всему содержимому для сокращения повторяющихся файлов и конечного уменьшения файлов HTML с графикой)

• Редактор выбора, размещения, и изменения размеров файлов графики (без изменений, с жесткими размерами, с максимальным ограничением по высоте/ширине).

• Схожие принципы разработки отчетов со стандартным редактором.

• Создание редактируемых зон в отчете, редактируемых примечаний.

Страница загрузки программы (со всеми DLL, ~5 Mb)
http://www.maple4.ru/rb/m4rb_download.html

Автор: maple4

Автор публикации

не в сети 18 лет

maple4

Комментарии: 0Публикации: 1Регистрация: 26-10-2007

(далее…)

]]> https://foxclub.ru/knowledgebase/prosmotr-foto-i-tekstovyh-fajlov-bez-memo-polej/ Fri, 28 Aug 2020 11:32:35 +0000

Просмотр фото и текстовых файлов без мемо-полей

Просматривает фото и тексты, "прикрепленные" к записям таблицы, например, сотрудников. Фотографирует с вэб-камеры сотрудников и хранит фотки в папке PHOTO, а тексты в папке TEXT. Просто и легко!

Автор: mayil

Автор публикации

не в сети 20 лет

mayil

Комментарии: 0Публикации: 6Регистрация: 20-06-2006

(далее…)

]]> https://foxclub.ru/knowledgebase/grid-imeyushhij-sobytiya-dlya-headers/ Fri, 28 Aug 2020 11:32:35 +0000

Grid, имеющий события для Headers

Grid, имеющий события для Headers

1) Подключаем библиотеку к проекту
2) Используем класс GHGrid

Свойства класса:
GHGrid.CopyProperty = .F. / .T.
При .T. устанавливает свойства хидера определенные в Дизайнере иначе по умолчанию

Методы класса:
GHGrid.Header_......()
Называются соответственно событиям Хидера, в которых и описывается код события Хидера

Эти собития общие для всех Хидеров таблицы
добавлен первый параметр во все методы передается ссылка на объект (Header) - источник события

Кроме того данный грид умеет показывать/прятать вертикальный скроллбар,
взависимости от размера области отображения записей в гриде и их количества

Автор: Vladimir_Knyr

Автор публикации

не в сети 22 года

Vladimir_Knyr

Комментарии: 0Публикации: 11Регистрация: 15-12-2003

(далее…)

]]> https://foxclub.ru/knowledgebase/rabota-s-tekstovymi-fajlami/ Fri, 28 Aug 2020 11:32:35 +0000

Работа с текстовыми файлами

Использование Функций Fcreate(),Fopen(),Fgets(),Fputs(),Fclose(), ... на примере создания словаря Ожегова.

Автор: mayil

Автор публикации

не в сети 20 лет

mayil

Комментарии: 0Публикации: 6Регистрация: 20-06-2006

(далее…)

]]> https://foxclub.ru/knowledgebase/kalendar-versiya-4-pererabotka-s-moego-resheniya-2001-goda/ Fri, 28 Aug 2020 11:32:33 +0000

Календарь, версия 4 (переработка с моего решения 2001 года)

Маленький и симпатичный, состоит из поля ввода даты и формы календаря. Вызов календаря осуществляется нажатием пробела или двойным кликом по полю ввода. Основные параметры: вся навигация продублирована на клавиатуре; можно задавать ограничения на период; можно задавать ограничение по дню недели; имеется 14 встроенных цветовых схем, а также задавать свою цветовую схему. Внутри есть форма с примером и небольшая дока. Новое в версии 4: Добавлена работа с государственными праздниками.

Автор: TAS

Автор публикации

не в сети 3 года

TAS

Комментарии: 0Публикации: 7Регистрация: 28-09-2000

(далее…)

]]> https://foxclub.ru/knowledgebase/denezhnaya-summa-propisyu-dovolno-korotkij-variant/ Fri, 28 Aug 2020 17:12:58 +0000

Денежная сумма прописью. Довольно короткий вариант.

Сумма прописью. Придумал этот алгоритм после мучений с книжным примером.

[cce_visualfoxpro]

************************************************************************************************
* СУММА ПРОПИСЬЮ Visual FoxPro
*
* Принимает число от 0 до 999'999'999'999,99
* Возвращает текстовую строку с суммой в рублях
*
* Если число отрицательное, то берет модуль числа.
* По желании не сложно доработать, чтобы второй параметр указывал тип валюты,
* и вместо "рублей" и "копеек" подставлять соответствующие слова.
*
* Оптимизация по скорости для многократного вызова в цикле не проводилась.
************************************************************************************************

FUNCTION Sum_Str
PARAMETERS nSum
LOCAL cRet,AswCounter,AswS,Asw,Asw1

cRet=""
nSum=iif(empty(nSum),0,abs(nSum))

AswS=str(nSum,15,2)
FOR AswCounter=1 to 10 STEP 3
Asw=substr(AswS,AswCounter,3)
if Asw#space(3)
Asw1=""
do case
case substr(Asw,1,1)="1"
Asw1="сто "
case substr(Asw,1,1)="2"
Asw1="двести "
case substr(Asw,1,1)="3"
Asw1="триста "
case substr(Asw,1,1)="4"
Asw1="четыреста "
case substr(Asw,1,1)="5"
Asw1="пятьсот "
case substr(Asw,1,1)="6"
Asw1="шестьсот "
case substr(Asw,1,1)="7"
Asw1="семьсот "
case substr(Asw,1,1)="8"
Asw1="восемьсот "
case substr(Asw,1,1)="9"
Asw1="девятьсот "
endcase
cRet=cRet+Asw1
Asw1=""
if substr(Asw,2,1)="1"
do case
case substr(Asw,3,1)="0"
Asw1="десять "
case substr(Asw,3,1)="1"
Asw1="одиннадцать "
case substr(Asw,3,1)="2"
Asw1="двенадцать "
case substr(Asw,3,1)="3"
Asw1="тринадцать "
case substr(Asw,3,1)="4"
Asw1="четырнадцать "
case substr(Asw,3,1)="5"
Asw1="пятнадцать "
case substr(Asw,3,1)="6"
Asw1="шестнадцать "
case substr(Asw,3,1)="7"
Asw1="семнадцать "
case substr(Asw,3,1)="8"
Asw1="восемнадцать "
case substr(Asw,3,1)="9"
Asw1="девятнадцать "
endcase
cRet=cRet+Asw1
do case
case AswCounter=1
cRet=cRet+"миллиардов "
case AswCounter=4
cRet=cRet+"миллионов "
case AswCounter=7
cRet=cRet+"тысяч "
case AswCounter=10
cRet=cRet+"рублей "
endcase
else
do case
case substr(Asw,2,1)="2"
Asw1="двадцать "
case substr(Asw,2,1)="3"
Asw1="тридцать "
case substr(Asw,2,1)="4"
Asw1="сорок "
case substr(Asw,2,1)="5"
Asw1="пятьдесят "
case substr(Asw,2,1)="6"
Asw1="шестьдесят "
case substr(Asw,2,1)="7"
Asw1="семьдесят "
case substr(Asw,2,1)="8"
Asw1="восемьдесят "
case substr(Asw,2,1)="9"
Asw1="девяносто "
endcase
cRet=cRet+Asw1
Asw1=""
do case
case substr(Asw,1,3)="000"
Asw1=iif(AswCounter=10,"рублей ","")
case substr(Asw,3,1)="0" .and. substr(Asw,1,3)#"000"
Asw1=iif(AswCounter=7,"тысяч ", ;
iif(AswCounter=1,"миллиардов ",iif(AswCounter=4,"миллионов ","рублей ")))
case substr(Asw,3,1)="1"
Asw1=iif(AswCounter=7,"одна тысяча ", ;
"один "+iif(AswCounter=1,"миллиард ",iif(AswCounter=4,"миллион ","рубль ")))
case substr(Asw,3,1)="2"
Asw1=iif(AswCounter=7,"две тысячи ", ;
"два "+iif(AswCounter=1,"миллиарда ",iif(AswCounter=4,"миллиона ","рубля ")))
case substr(Asw,3,1)="3"
Asw1=iif(AswCounter=7,"три тысячи ", ;
"три "+iif(AswCounter=1,"миллиарда ",iif(AswCounter=4,"миллиона ","рубля ")))
case substr(Asw,3,1)="4"
Asw1=iif(AswCounter=7,"четыре тысячи ", ;
"четыре "+iif(AswCounter=1,"миллиарда ",iif(AswCounter=4,"миллиона ","рубля ")))
case substr(Asw,3,1)="5"
Asw1=iif(AswCounter=7,"пять тысяч ", ;
"пять "+iif(AswCounter=1,"миллиардов ",iif(AswCounter=4,"миллионов ","рублей ")))
case substr(Asw,3,1)="6"
Asw1=iif(AswCounter=7,"шесть тысяч ", ;
"шесть "+iif(AswCounter=1,"миллиардов ",iif(AswCounter=4,"миллионов ","рублей ")))
case substr(Asw,3,1)="7"
Asw1=iif(AswCounter=7,"семь тысяч ", ;
"семь "+iif(AswCounter=1,"миллиардов ",iif(AswCounter=4,"миллионов ","рублей ")))
case substr(Asw,3,1)="8"
Asw1=iif(AswCounter=7,"восемь тысяч ", ;
"восемь "+iif(AswCounter=1,"миллиардов ",iif(AswCounter=4,"миллионов ","рублей ")))
case substr(Asw,3,1)="9"
Asw1=iif(AswCounter=7,"девять тысяч ", ;
"девять "+iif(AswCounter=1,"миллиардов ",iif(AswCounter=4,"миллионов ","рублей ")))
endcase
cRet=cRet+Asw1
endif
endif
ENDFOR
AswS=substr(AswS,14,2)

if substr(AswS,1,1)="1" .or. substr(AswS,2,1)="0"
cRet=cRet+AswS+" копеек"
else
do case
case substr(AswS,2,1)>"4"
cRet=cRet+AswS+" копеек"
case substr(AswS,2,1)="1"
cRet=cRet+AswS+" копейка"
case substr(AswS,2,1)>"1" .and. substr(AswS,2,1) ]]> https://foxclub.ru/knowledgebase/textbox-listboxcombo-box-s-horoshim-mehanizmom-poiska-i-filtraczii-dannyh/ Fri, 28 Aug 2020 11:32:35 +0000

textbox+listbox=combo box с хорошим механизмом поиска и фильтрации данных

Элемент чем то похож на combo box(маленькая смесь Textbox и Listbox), но с хорошом механизмом поиска и фильтрациии.

Создал класс, который чем то напоминает combo box, о сделан из смеси Textbox и Listbox, только с более современными механизмами поиска, просьба не судить строго только учусь, а дать совет по его модификации и усовершенствованию. Он пока вроде меня во всем устраивает, вот только не могу решить одну проблему - так как класс это у меня контейнер, там есть два элемента Texbox и Listbox, которые находятся один под другим соответственно и их ширина равна ширине контейнера, но есть ситуации, когда нужно чтобы Listbox был шире, чем Textbox и при таких ситуациях приходится увеличивать сам контейнер, но получается не красиво - видно что это конейнер и Textbox короче, как добится его прозрачности????
В общем просьба ознакомится с элеметном быстрого поиска, который похож на combo box, но здесь есть красивый механизм отсортировки и фильтрации даных.
Можно вводить через пробел до 20-ти значений фильтрации и поиска, в данном примере поиск происходит по 3-м критериям одновременнно - номер карточки клиента, ФИО и процент скидки.
Например ввод в поле поиска "10 Андр ЕВИЧ" - осуществит нам поиск всех клиентов, у кого либо процент скидки 10, или в номере карточки встречается 10 и где есть комбинации символов "Андр ", и "ЕВИЧ".
Уважительная просьба к тем, у кого есть мысли по поводу облегчения кода или усовершенствованию элемента, а так же видимости всех элементов класса писать на johngorn@yandex.ru, либо стучаться в аську 178531536, ну и конечно же на www.sql.ru, либо сюда!!!
Далее будут приложены три снимка с той проблемой с которой я обратитлся и сам проект данного элемента.

Автор: johngorn

Автор публикации

не в сети 6 месяцев

admin

Комментарии: 1Публикации: 123Регистрация: 10-12-2000

(далее…)

]]> https://foxclub.ru/knowledgebase/pereimenovatel-klassov/ Fri, 28 Aug 2020 11:32:35 +0000

Переименователь классов

Инструмент для переименования классов и библиотек vcx

Инструмент для переименования классов и библиотек vcx.

Возможности:
— Переименование классов с исправлением ссылок в связанных классах во всех библиотеках в пределах выбранной папки;
— Переименование библиотек с аналогичным исправлением ссылок на их классы;
— Перенос классов из одной библиотеки в другую с коррекцией ссылок.

При переименовании классов в Class Browser, наблюдались случаи порчи больших библиотек. В инструменте есть функция, позволяющая исправить такие библиотеки.

Будьте осторожны. Делайте резервные копии перед использованием.

Автор: bishop

Автор публикации

не в сети 6 месяцев

admin

Комментарии: 1Публикации: 123Регистрация: 10-12-2000

(далее…)

]]> https://foxclub.ru/knowledgebase/klass-na-vfp-7-0-ispolzuyushhij-commandgroup-pageframe-i-grid/ Fri, 28 Aug 2020 11:32:35 +0000

Класс на VFP 7.0, использующий Commandgroup, PageFrame и Grid.

В mail.prg задаются в массивах: 1)иконки и подсказки на кнопках, 2)процедуры, соответствующих этим кнопкам 3) названия закладок и имена соответствующих им таблиц. В таблице SERVswitch.dbf задаются имена колонок таблиц, заголовков столбцов грида и т.д., подаваемых в грид. Все остальное выполняет класс LIZO

Автор: smi2008

Автор публикации

не в сети 18 лет

smi2008

Комментарии: 0Публикации: 1Регистрация: 24-01-2008

(далее…)

]]> https://foxclub.ru/knowledgebase/element-upravleniya-graficheskij-redaktor-vfp9-winapi/ Fri, 28 Aug 2020 11:32:35 +0000

Элемент управления – Графический редактор (VFP9+WinAPI)

Полноценный графический редактор на VFP9+WinAPI, сделанный в виде обычного элемента управления.

Графический редактор, оформленный как обычный элемент фокса. Написан на VFP9 + WinApi. Элемент воспроизводит почти все функции MS Paint (кроме практически не используемых функций ластика, распылителя и сдвига картинки). Элемент позволяет рисовать множество различных видов контуров. Элемент позволяет форматировать различные фрагменты вводимого текста различным образом благодаря использованию RichEdit класса. Наконец, элемент позволяет применять различные эффекты, связанные с изменением цветовой гаммы изображения. Дополнительно элемент может загружать картинки из переменных и сохранять их в переменные. Если же Вам подобный функционал покажется недостаточным, то, как говорится, Adobe Photoshop Вам в руки. 🙂 Хотя, отдельные вещи можно при желании и доработать напильником.

Автор: SoccerStudio

Автор публикации

не в сети 19 лет

SoccerStudio

Комментарии: 0Публикации: 4Регистрация: 28-11-2006

(далее…)

]]> https://foxclub.ru/knowledgebase/klass-dlya-raboty-s-rastrami-s-ispolzovaniem-gdiplus/ Fri, 28 Aug 2020 11:32:35 +0000

Класс для работы с растрами с использованием GdiPlus

Простой класс для работы с растрами с использованием GdiPlus. Позволяет создавать растры и производить манипуляции с ними без знаний внутренностей GdiPlus. Обновленная версия, добавлены новые методы, в частности, для изменения цветовой гаммы изображений.

Данный класс позволяет создавать и обрабатывать растры без знания Gdi+. В этой версии класса исправлены замеченные недочеты, а также добавлено значительное количество новых методов, в частности, достаточно много методов для изменения цветовой гаммы изображения. Некоторые из методов используют прямое обращение к памяти. С помощью VFP это вполне можно делать, однако этот процесс довольно медленный. Поэтому дополнительно я написал небольшую библиотеку на C, которая ускоряет этот процесс на порядки. Исходный код этой сишной библиотеки прилагаю. Когда и как нужно подключать библиотеку, видно из описаний и примеров к соответствующим методам. Впрочем, можно работать и без нее, если медленная скорость приемлема.

Автор: SoccerStudio

Автор публикации

не в сети 19 лет

SoccerStudio

Комментарии: 0Публикации: 4Регистрация: 28-11-2006

(далее…)

]]> https://foxclub.ru/knowledgebase/funkcziya-dlya-generaczii-bmp-fajla-s-fonovym-risunkom-zadavaemym-cherez-parametry/ Mon, 31 Aug 2020 19:45:22 +0000

Функция для генерации BMP файла с фоновым рисунком, задаваемым через параметры.

Рисует 6 типов фона: 1-горизонтальный градиент; 2-вертикальный градиент; 3-вертикальные линии; 4-горизонтальные линии; 5-шахматка; 6-сетка. (Выкладывалась ранее на форуме, решил и сюда добавить.)FUNCTION BUILDBMP(nWidth, nHeight, nVids, nParam1, nParam2, nParam3) && @ by TAS (tascold@mail.ru) - 2006 г.

 *--------------------------------------------------------------------------------------------        
  * возвращает BMP картинку    
  * nWidth	- Ширина    
  * nHeight	- Высота    
  * nVids		- 1-горизонтальный,2-вертикальный градиент; 3-вертикальные,4-горизонтальные линии; 5-шахматка; 6-сетка;    
  * nParam1	- Основной цвет    
  * nParam2	- для 1,2 - % разности цвета для построения градиента; для остальных - дополнительный цвет (не обязательный параметер).    
  * nParam3	- для 3,4,5,6 - размер ячейки (не обязательный параметер)    
  *--------------------------------------------------------------------------------------------        
  * =STRTOFILE(BuildBMP(100,20,2,RGB(160,0,160),50),'knback.bmp')    
  *--------------------------------------------------------------------------------------------        
  * Одно замечание - данная функция для формирования небольших файлов, не рекомендуется создавать     
  * градиент для фона экрана 800х600 пикселей (вы его конечно получите, но после ненужной паузы в     
  * пару - тройку секунд) - лучше сделать 1х600 и растянуть!    
  *--------------------------------------------------------------------------------------------        
    LOCAL i, j, cBMP, cColArray	    
      	IF m.nWidth*m.nHeight=m.nParam3/2,m.nParam1,m.nParam2),IIF(MOD(m.j,m.nParam3)>=m.nParam3/2,m.nParam2,m.nParam1)))    
    	   		ENDFOR    
    			cColArray = m.cColArray + REPLICATE(CHR(0),MOD(m.nWidth,4))	&& Width must be divisible by 4      
    		ENDFOR      
    	CASE INLIST(m.nVids,6)				&& Сетка    
    		IF TYPE("nParam2")#"N"    
    			nParam2=RGB(255,255,255)	&& по умолчанию второй цвет - белый    
    		ENDIF    
    		IF TYPE("nParam3")#"N"    
    			nParam3=4					&& по умолчанию размер ячейки    
    		ENDIF    
    		nParam3=IIF(BETWEEN(m.nParam3,2,1000),m.nParam3,5)	&& размер ячейки    
    		FOR j = m.nHeight-1 TO 0 STEP -1      
    			FOR i = 0 TO m.nWidth-1    
    				cColArray=m.cColArray+GetBinaryColor(IIF(MOD(m.i,m.nParam3)=0 OR MOD(m.j,m.nParam3)=0,m.nParam1,m.nParam2))    
    	   		ENDFOR    
    			cColArray = m.cColArray + REPLICATE(CHR(0),MOD(m.nWidth,4))	&& Width must be divisible by 4      
    		ENDFOR      
    	ENDCASE    
      	cBMP = m.cBMP + m.cColArray      
    RETURN m.cBMP	&& возвращается готовая BMP картинка    
  *--------------------------------------------------------------------------------------------        
    FUNCTION GetBMPInfoHeader(tnWidth, tnHeight)	&& вызывается из BuildBMP    
    LOCAL cHeader, cZero      
    	cZero = NumToDWord(0)      
    	cHeader = NumToDWord(40) + NumToDWord(m.tnWidth) + NumToDWord(m.tnHeight)      
    	cHeader = m.cHeader + NumToWord(1) + NumToWord(24) + m.cZero + m.cZero      
    	cHeader = m.cHeader + NumToDWord(3780) + NumToDWord(3780) + m.cZero + m.cZero      
    RETURN m.cHeader      
  *--------------------------------------------------------------------------------------------        
    FUNCTION GetBinaryColor(tnColor)	&& вызывается из BuildBMP    
    RETURN SUBSTR(BINTOC(MAX(m.tnColor,0) - 2147483648),2)      
  *--------------------------------------------------------------------------------------------        
    FUNCTION NumToDWord(tnVal)	&& вызывается из BuildBMP    
    LOCAL cBin    
      	cBin = BINTOC(m.tnVal - 2147483648)      
    RETURN SUBSTR(m.cBin,4,1) + SUBSTR(m.cBin,3,1) + SUBSTR(m.cBin,2,1) + SUBSTR(m.cBin,1,1)      
  *--------------------------------------------------------------------------------------------    
    FUNCTION NumToWord(tnVal)	&& вызывается из BuildBMP    
    LOCAL cBin    
      	cBin = BINTOC(m.tnVal - 32768, 2)      
    RETURN SUBSTR(m.cBin,2,1) + SUBSTR(m.cBin,1,1)  

Автор: TAS

Автор публикации

не в сети 3 года

TAS

Комментарии: 0Публикации: 7Регистрация: 28-09-2000

(далее…)

]]> https://foxclub.ru/knowledgebase/summa-propisyu-skloneniya-82-uh-valyut/ Wed, 23 Nov 2022 07:25:39 +0000

Сумма прописью + склонения 82-ух валют

Выдаёт не только сумму прописью, но и правильно просклонённое наименование валюты, одной из 82 набитых в прогу.

Добавить ещё валюту - не проблема. Единственно, в ней не моя часть где генерируется сумма прописью, правда, там изменения тоже есть мои. Каментов накидал тама где необходимо :).

  ************************************************************************************************************  
  FUNCTION SUM_WITH_CURRENCY_SPR  
  PARAMETERS SUMMA, CODE, LOWER, MODE  
 *Выдает сумму прописью в формате "сумма_прописью_целая_часть валюта дробная_часть/сумма_целая_часть"  
 *SUMMA - сумма числом (тип NUMERIC(15,2))  
 *CODE - код валюты (тип CHAR(3))  
 *LOWER - первая буква с маленькой буквы или нет (тип LOGICAL)  
 *MODE - режим (тип не задан) - резерв   
    
 ************************************************************************************************************   

Автор: bodrox

Автор публикации

не в сети 19 лет

bodrox

Комментарии: 0Публикации: 1Регистрация: 13-04-2007

(далее…)

]]> https://foxclub.ru/knowledgebase/piton-no-uzhe-na-fokse/ Fri, 28 Aug 2020 11:32:35 +0000

Питон, но уже на Фоксе!

Питон - он и есть питон!

Автор: mayil

Автор публикации

не в сети 20 лет

mayil

Комментарии: 0Публикации: 6Регистрация: 20-06-2006

(далее…)

]]> https://foxclub.ru/knowledgebase/denezhnaya-summa-propisyu/ Fri, 28 Aug 2020 11:32:35 +0000

Денежная сумма прописью

Выдает прописью сумму (руб/коп) до 999 999 999 999.99. Сразу оговорюсь, алгоритм не мой, но более короткого я не встречал. Авось кому пригодится.

[code] nSumm = 999999999999.99 *!* @ 1,1 get nSumm *!* READ CLEAR @ 2,1 say(Speeling(nSumm)) FUNCTION Speeling PARAMETER nSumma PRIVATE cSumma * k - копейки cSumma = TRANSFORM(M.nSumma,'9,9,,9,,,,,,9,9,,9,,,,,9,9,,9,,,,9,9,,9,,,.99')+'k' * t - тысячи; m - миллионы; M - миллиарды cSumma = STRTRAN(M.cSumma, ',,,,,,', 'eM') cSumma = STRTRAN(M.cSumma, ',,,,,', 'em') cSumma = STRTRAN(M.cSumma, ',,,,', 'et') * e - единицы; d - десятки; c - сотни cSumma = STRTRAN(M.cSumma, ',,,', 'e') cSumma = STRTRAN(M.cSumma, ',,', 'd') cSumma = STRTRAN(M.cSumma, ',', 'c') cSumma = STRTRAN(M.cSumma, '0c0d0et', '') cSumma = STRTRAN(M.cSumma, '0c0d0em', '') cSumma = STRTRAN(M.cSumma, '0c0d0eM', '') cSumma = STRTRAN(M.cSumma, '0c', '') cSumma = STRTRAN(M.cSumma, '1c', 'сто ') cSumma = STRTRAN(M.cSumma, '2c', 'двести ') cSumma = STRTRAN(M.cSumma, '3c', 'триста ') cSumma = STRTRAN(M.cSumma, '4c', 'четыреста ') cSumma = STRTRAN(M.cSumma, '5c', 'пятьсот ') cSumma = STRTRAN(M.cSumma, '6c', 'шестьсот ') cSumma = STRTRAN(M.cSumma, '7c', 'семьсот ') cSumma = STRTRAN(M.cSumma, '8c', 'восемьсот ') cSumma = STRTRAN(M.cSumma, '9c', 'девятьсот ') cSumma = STRTRAN(M.cSumma, '1d0e', 'десять ') cSumma = STRTRAN(M.cSumma, '1d1e', 'одиннадцать ') cSumma = STRTRAN(M.cSumma, '1d2e', 'двенадцать ') cSumma = STRTRAN(M.cSumma, '1d3e', 'тринадцать ') cSumma = STRTRAN(M.cSumma, '1d4e', 'четырнадцать ') cSumma = STRTRAN(M.cSumma, '1d5e', 'пятнадцать ') cSumma = STRTRAN(M.cSumma, '1d6e', 'шестнадцать ') cSumma = STRTRAN(M.cSumma, '1d7e', 'семьнадцать ') cSumma = STRTRAN(M.cSumma, '1d8e', 'восемнадцать ') cSumma = STRTRAN(M.cSumma, '1d9e', 'девятнадцать ') cSumma = STRTRAN(M.cSumma, '0d', '') cSumma = STRTRAN(M.cSumma, '2d', 'двадцать ') cSumma = STRTRAN(M.cSumma, '3d', 'тридцать ') cSumma = STRTRAN(M.cSumma, '4d', 'сорок ') cSumma = STRTRAN(M.cSumma, '5d', 'пятьдесят ') cSumma = STRTRAN(M.cSumma, '6d', 'шестьдесят ') cSumma = STRTRAN(M.cSumma, '7d', 'семьдесят ') cSumma = STRTRAN(M.cSumma, '8d', 'восемьдесят ') cSumma = STRTRAN(M.cSumma, '9d', 'девяносто ') cSumma = STRTRAN(M.cSumma, '0e', '') cSumma = STRTRAN(M.cSumma, '5e', 'пять ') cSumma = STRTRAN(M.cSumma, '6e', 'шесть ') cSumma = STRTRAN(M.cSumma, '7e', 'семь ') cSumma = STRTRAN(M.cSumma, '8e', 'восемь ') cSumma = STRTRAN(M.cSumma, '9e', 'девять ') cSumma = STRTRAN(M.cSumma, '1e.', 'один рубль ') cSumma = STRTRAN(M.cSumma, '2e.', 'два рубля ') cSumma = STRTRAN(M.cSumma, '3e.', 'три рубля ') cSumma = STRTRAN(M.cSumma, '4e.', 'четыре рубля ') cSumma = STRTRAN(M.cSumma, '1et', 'одна тысяча ') cSumma = STRTRAN(M.cSumma, '2et', 'две тысячи ') cSumma = STRTRAN(M.cSumma, '3et', 'три тысячи ') cSumma = STRTRAN(M.cSumma, '4et', 'четыре тысячи ') cSumma = STRTRAN(M.cSumma, '1em', 'один миллион ') cSumma = STRTRAN(M.cSumma, '2em', 'два миллиона ') cSumma = STRTRAN(M.cSumma, '3em', 'три миллиона ') cSumma = STRTRAN(M.cSumma, '4em', 'четыре миллиона ') cSumma = STRTRAN(M.cSumma, '1eM', 'один миллиард ') cSumma = STRTRAN(M.cSumma, '2eM', 'два миллиарда ') cSumma = STRTRAN(M.cSumma, '3eM', 'три миллиарда ') cSumma = STRTRAN(M.cSumma, '4eM', 'четыре миллиарда ') cSumma = STRTRAN(M.cSumma, '11k', '11 копеек') cSumma = STRTRAN(M.cSumma, '12k', '12 копеек') cSumma = STRTRAN(M.cSumma, '13k', '13 копеек') cSumma = STRTRAN(M.cSumma, '14k', '14 копеек') cSumma = STRTRAN(M.cSumma, '1k', '1 копейка') cSumma = STRTRAN(M.cSumma, '2k', '2 копейки') cSumma = STRTRAN(M.cSumma, '3k', '3 копейки') cSumma = STRTRAN(M.cSumma, '4k', '4 копейки') cSumma = STRTRAN(M.cSumma, '.', 'рублей ') cSumma = STRTRAN(M.cSumma, 't', 'тысяч ') cSumma = STRTRAN(M.cSumma, 'm', 'миллионов ') cSumma = STRTRAN(M.cSumma, 'M', 'миллиардов ') cSumma = STRTRAN(M.cSumma, 'k', ' копеек') m.cSumma=allt(IIF(M.nSumma < 10**12, M.cSumma, ALLTRIM(STR(M.nSumma,20,2)))) m.cSumma=upper(left(m.cSumma,1))+lower(substr(m.cSumma,2)) RETURN m.cSumma [/code]

Автор: alexd

Автор публикации

не в сети 19 лет

alexd

Комментарии: 0Публикации: 1Регистрация: 30-04-2007

(далее…)

]]> https://foxclub.ru/knowledgebase/denezhnaya-summa-propisyu-ukr/ Fri, 28 Aug 2020 11:32:35 +0000

Денежная сумма прописью (укр)

Тоже не претендуя на авторство, выкладываю украинский вариант:

[code] FUNCTION Speeling PARAMETER nSumma PRIVATE cSumma IF nSumma=0 RETURN 'нуль гривень 00 копійок' ENDIF * k - копейки cSumma = TRANSFORM(M.nSumma,'9,9,,9,,,,,,9,9,,9,,,,,9,9,,9,,,,9,9,,9,,,.99')+'k' * t - тысячи; m - милионы; M - миллиарды cSumma = STRTRAN(M.cSumma, ',,,,,,', 'eM') cSumma = STRTRAN(M.cSumma, ',,,,,', 'em') cSumma = STRTRAN(M.cSumma, ',,,,', 'et') * e - единицы; d - десятки; c - сотни cSumma = STRTRAN(M.cSumma, ',,,', 'e') cSumma = STRTRAN(M.cSumma, ',,', 'd') cSumma = STRTRAN(M.cSumma, ',', 'c') cSumma = STRTRAN(M.cSumma, '0c0d0et', '') cSumma = STRTRAN(M.cSumma, '0c0d0em', '') cSumma = STRTRAN(M.cSumma, '0c0d0eM', '') cSumma = STRTRAN(M.cSumma, '0c', '') cSumma = STRTRAN(M.cSumma, '1c', 'сто ') cSumma = STRTRAN(M.cSumma, '2c', 'двісті ') cSumma = STRTRAN(M.cSumma, '3c', 'триста ') cSumma = STRTRAN(M.cSumma, '4c', 'чотириста ') cSumma = STRTRAN(M.cSumma, '5c', "п'ятсот ") cSumma = STRTRAN(M.cSumma, '6c', 'шістсот ') cSumma = STRTRAN(M.cSumma, '7c', 'сімсот ') cSumma = STRTRAN(M.cSumma, '8c', 'вісімсот ') cSumma = STRTRAN(M.cSumma, '9c', "дев'ятьсот ") cSumma = STRTRAN(M.cSumma, '1d0e', 'десять ') cSumma = STRTRAN(M.cSumma, '1d1e', 'одинадцять ') cSumma = STRTRAN(M.cSumma, '1d2e', 'дванадцять ') cSumma = STRTRAN(M.cSumma, '1d3e', 'тринадцять ') cSumma = STRTRAN(M.cSumma, '1d4e', 'чотирнадцять ') cSumma = STRTRAN(M.cSumma, '1d5e', "п'ятнадцять ") cSumma = STRTRAN(M.cSumma, '1d6e', 'шістнадцять ') cSumma = STRTRAN(M.cSumma, '1d7e', 'сімнадцять ') cSumma = STRTRAN(M.cSumma, '1d8e', 'вісімнадцять ') cSumma = STRTRAN(M.cSumma, '1d9e', "дев'ятнадцять ") cSumma = STRTRAN(M.cSumma, '0d', '') cSumma = STRTRAN(M.cSumma, '2d', 'двадцять ') cSumma = STRTRAN(M.cSumma, '3d', 'тридцять ') cSumma = STRTRAN(M.cSumma, '4d', 'сорок ') cSumma = STRTRAN(M.cSumma, '5d', "п'ятдесят ") cSumma = STRTRAN(M.cSumma, '6d', 'шістдесят ') cSumma = STRTRAN(M.cSumma, '7d', 'сімдесят ') cSumma = STRTRAN(M.cSumma, '8d', 'вісімдесят ') cSumma = STRTRAN(M.cSumma, '9d', "дев'яносто ") cSumma = STRTRAN(M.cSumma, '0e', '') cSumma = STRTRAN(M.cSumma, '5e', "п'ять ") cSumma = STRTRAN(M.cSumma, '6e', 'шість ') cSumma = STRTRAN(M.cSumma, '7e', 'сім ') cSumma = STRTRAN(M.cSumma, '8e', 'вісім ') cSumma = STRTRAN(M.cSumma, '9e', "дев'ять ") cSumma = STRTRAN(M.cSumma, '1e.', 'одна гривня ') cSumma = STRTRAN(M.cSumma, '2e.', 'дві гривні ') cSumma = STRTRAN(M.cSumma, '3e.', 'три гривні ') cSumma = STRTRAN(M.cSumma, '4e.', 'чотири гривні ') cSumma = STRTRAN(M.cSumma, '1et', 'одна тисяча ') cSumma = STRTRAN(M.cSumma, '2et', 'дві тисячі ') cSumma = STRTRAN(M.cSumma, '3et', 'три тисячі ') cSumma = STRTRAN(M.cSumma, '4et', 'чотири тисячі ') cSumma = STRTRAN(M.cSumma, '1em', 'один мільйон ') cSumma = STRTRAN(M.cSumma, '2em', 'два мільйони ') cSumma = STRTRAN(M.cSumma, '3em', 'три мільйони ') cSumma = STRTRAN(M.cSumma, '4em', 'чотири мільйони ') cSumma = STRTRAN(M.cSumma, '1eM', 'один мільярд ') cSumma = STRTRAN(M.cSumma, '2eM', 'два мільярди ') cSumma = STRTRAN(M.cSumma, '3eM', 'три мільярди') cSumma = STRTRAN(M.cSumma, '4eM', 'чотири мільярди ') cSumma = STRTRAN(M.cSumma, '11k', '11 копійок') cSumma = STRTRAN(M.cSumma, '12k', '12 копійок') cSumma = STRTRAN(M.cSumma, '13k', '13 копійок') cSumma = STRTRAN(M.cSumma, '14k', '14 копійок') cSumma = STRTRAN(M.cSumma, '1k', '1 копійка') cSumma = STRTRAN(M.cSumma, '2k', '2 копійки') cSumma = STRTRAN(M.cSumma, '3k', '3 копійки') cSumma = STRTRAN(M.cSumma, '4k', '4 копійки') cSumma = STRTRAN(M.cSumma, '.', 'гривень ') cSumma = STRTRAN(M.cSumma, 't', 'тисяч ') cSumma = STRTRAN(M.cSumma, 'm', 'мільйонів ') cSumma = STRTRAN(M.cSumma, 'M', 'мільярдів ') cSumma = STRTRAN(M.cSumma, 'k', ' копійок') m.cSumma=allt(IIF(M.nSumma < 10**12, M.cSumma, ALLTRIM(STR(M.nSumma,20,2)))) m.cSumma=lower(left(m.cSumma,1))+lower(substr(m.cSumma,2)) RETURN m.cSumma [/code]

Автор: Sribna

Автор публикации

не в сети 21 год

Sribna

Комментарии: 0Публикации: 1Регистрация: 01-08-2005

(далее…)

]]> https://foxclub.ru/knowledgebase/orakul/ Fri, 28 Aug 2020 11:32:35 +0000

Оракул

Простейшая игра-забава.

Автор: mayil

Автор публикации

не в сети 20 лет

mayil

Комментарии: 0Публикации: 6Регистрация: 20-06-2006

(далее…)

]]> https://foxclub.ru/knowledgebase/polzovatelskie-funkczii-foxpro-napisannye-na-c-vmeste-ishodnym-kodom/ Fri, 28 Aug 2020 20:49:21 +0000

Пользовательские функции FoxPro, написанные на C, вместе исходным кодом.

В библиотеку входят функции общего назначения, функции для работы с массивами. В файл архива входят : 1) St_Denis.fll библиотека для VFP 8.0 и ниже 2) St_Denis.fll библиотека для VFP 9.0 3) St_Denis.plb библиотека для FoxPro 2.6 for DOS 4) St_Denis.c исходный текст библиотеки 5) St_Denis_Russian.chm подробное описание функций библиотеки, с примерами их использования, дополнительные материалы, среди которых пошаговое описание того, как компилировать библиотеку в Visual Studio .NET 2005 (2003). 6) St_Denis.prg реализация некоторых функций библиотеки на FoxPro. 7) test_perf.prg тесты, позволяющие наглядно получить преставление о быстродействии некоторых функций библиотеки, сравнение быстродействия функций библиотеки со встроенными функциями и командами FoxPro. 8) mkeywords.prg построение таблицы ключевых слов из memo поля.

Дамы и Господа,

Я хотел бы предложить вам следующие пользовательские функции FoxPro

Функции для работы со словами
GETALLWORDS() помещает в глобальный массив все слова из строки или memo поля, похожа на встроенную функцию ALINES()
WORDTRAN() возвращает строку символов, полученную из первой строки, в которой одно или несколько вхождений первого слова будут заменены вторым словом
GETNUMWORD() возвращает порядковый номер заданного слова в строке
GETOCCURSWORD() подсчитывает количество вхождений слова в строке
GETATWORD() выполняет поиск позиции, с которой n-е вхождение слова начинается в строке и возвращает номер позиции
GETRATWORD() выполняет поиск позиции, с которой n-е вхождение слова начинается в строке и возвращает номер позиции, но в отличии от GETATWORD() осуществляет поиск справа

Функции для работы с массивами
ARRAYSUM() возвращает сумму числовых элементов заданного столбца массива
ARRAYAVG() возвращает среднее значение числовых элементов заданного столбца массива
ARRAYMIN() возвращает минимальное значение элементов заданного столбца массива
ARRAYMAX() возвращает максимальное значение элементов заданного столбца массива
ARRAYCNT() возвращает количество числовых элементов заданного столбца массива
ASCANQUICK() аналогична встроенной функции ASCAN(), за исключением того, что осуществляет бинарный поиск по столбцу в заранее отсортированном массиве
VITESCAN() осуществляет бинарный поиск по столбцу в отсортированном массиве

Прочие функции
NPRECISION() возвращает количество знаков после десятичной точки в числовом выражении
FIELDNUM() возвращает порядковый номер поля в таблице по имени поля
DANSLISTE() определяет находится ли число в списке значений типа «1,5,13-18»
INCREMENT() увеличивает переменную на 1 и возвращает результат
STRFILTER() удаляет все символы из первой строки, за исключением символов, содержащихся во второй строке
REVERSE() возвращает строку в обратном порядке
VST_DENIS() версия библиотеки

IFOR() «непосредственный» FOR цикл
IWHILE() «непосредственный» WHILE цикл
ICASE() «непосредственный» CASE условный переход
IEXECCASE() «непосредственный» CASE условный переход, с выполнением одной или нескольких команд после условий
IEXECIF() «непосредственный» IF условный переход, с выполнением одной или нескольких команд после условий
EXECUTE() выполняет строку команд, разделенных символом “;”, подобно макроподстановке
Вышеприведенные функции можно реализовать с использованием встроенной функции EXECSCRIPT().

Функции конвертации арабских чисел в римские и наоборот
ARABTOROMAN() преобразует обычное число в римское число (от 1 до 3999)
ROMANTOARAB() преобразует римское число в обычное число (от I до MMMCMXCIX)

Более 25 000 человек во всем мире уже загрузили мои функции, надеюсь, что и данные функции будут полезными и для Вас.

Вышеупомянутые функции имеются для следующих версий FoxPro (VFP 9.0, 8.0, 7.0 и т.д., FoxPro 2.6 for DOS и Windows). Файл библиотеки с версией для Visual FoxPro имеет расширение имени файла fll, для FoxPro 2.6 for DOS расширение имени файла plb.
Поместите библиотеку в один из тех каталогов, в котором FoxPro осуществляет поиск файлов, либо в команде укажите полный путь к библиотеке.
Для использования данных функций выполните следующую команду :
set library to St_Denis additive
либо
set library to <путь к библиотеке>St_Denis additive
Для удаления данных функции из памяти выполните следующую команду :
release library St_Denis
либо
release library <путь к библиотеке>St_Denis

Библиотека St_Denis скомпилирована в Visual Studio 6.0 , поскольку у части пользователей, не имеющих на своих компьютерах .NET Framework, при загрузке библиотек, скомпилированных в Visual Studio .NET 2003 или в Visual Studio .NET 2005, появлялось сообщение об ошибке «Library file "name" is invalid».

С целью получения более полной информации относительно русской версии вышеописанных функций, пожалуйста,
зайдите на http://nikiforov.developpez.com/foxpro/russe/ ,
Вы можете загрузить русскую версию данной библиотеки по адресу
ftp://ftp-developpez.com/nikiforov/udfs/st_denis_russian.zip .

В файл архива входят :
1) St_Denis.fll библиотека для VFP 9.0
2) St_Denis.fll библиотека для VFP 8.0 и ниже
3) St_Denis.fll библиотека для FoxPro 2.6 for Windows
4) St_Denis.plb библиотека для FoxPro 2.6 for DOS
5) St_Denis.c исходный текст библиотеки
6) St_Denis_Russian.chm подробное описание функций библиотеки, с примерами их использования, дополнительные материалы, среди которых пошаговое описание того, как компилировать библиотеку в
Visual Studio .NET 2005 (2003).
7) St_Denis.prg реализация некоторых функций библиотеки на FoxPro.
8) test_perf.prg тесты, позволяющие наглядно получить преставление о быстродействии некоторых функций библиотеки, сравнение быстродействия функций библиотеки со встроенными функциями и командами FoxPro.
9) mkeywords.prg пример построения таблицы из ключевых слов, содержащихся в заданном memo поле заданной таблицы.

С наилучшими пожеланиями,
Игорь Никифоров

Автор: Igor2004

Автор публикации

не в сети 6 месяцев

admin

Комментарии: 1Публикации: 123Регистрация: 10-12-2000

(далее…)

]]> https://foxclub.ru/knowledgebase/proverka-kontrolnoj-czifry-nalogovyj-i-identifikaczionnye-kody-ukraina/ Fri, 28 Aug 2020 11:32:34 +0000

Проверка контрольной цифры-Налоговый и идентификационные коды Украина

Проверка контрольной цифры-Налоговый и идентификационные коды Украина

Автор: _=AlexiS=_

Автор публикации

не в сети 20 лет

_=AlexiS=_

Комментарии: 0Публикации: 2Регистрация: 25-07-2006

(далее…)

]]> https://foxclub.ru/knowledgebase/klass-vyvoda-otcheta-vfp-v-dokument-rtf/ Fri, 28 Aug 2020 11:32:34 +0000

Класс вывода отчета VFP в документ RTF.

Класс с примером и документацией, предназначен для вывода наиболее типичных отчетов в документ RTF. Сделан на базе ReportListener. Проверена совместимость документа RTF с OpenOffice и MS Office. Самодостаточный, т.е. не использует OLE автоматизацию. Версия фокса 9.0

В документацию не вошло, но хочу предупредить, что шрифт Courier New отображается шире в RTF по сравнению с фоксовыми отчетами. Некоторые меры по компенсации этого приняты, но длинные строки будут шире, чем ожидалось.
Версия 1.01: Добавлен признак ландшафтного поворота. Для полей учтена возможность наличия перевода строки в выводимых данных.

Автор: Влад Колосов

Автор публикации

не в сети 21 год

Влад Колосов

Комментарии: 0Публикации: 11Регистрация: 05-05-2005

(далее…)

]]> https://foxclub.ru/knowledgebase/scrollbars-na-api/ Fri, 28 Aug 2020 11:32:35 +0000

ScrollBars на API

Как-то до этого получалось обходиться без этого, а тут вдруг понадобилось. С удивлением обнаружил, что в решениях Клуба такая достаточно несложная вещь почему-то отсутствует. Пришлось быстренько изваять самому. Короче, обычная виндовая полоса прокрутки на API. Естественно, с поддержкой тем. В общем, ничего особенного.

Автор: SoccerStudio

Автор публикации

не в сети 19 лет

SoccerStudio

Комментарии: 0Публикации: 4Регистрация: 28-11-2006

(далее…)

]]> https://foxclub.ru/knowledgebase/pereklyuchatel-vkladok/ Fri, 28 Aug 2020 11:32:35 +0000

Переключатель вкладок

Переключатель вкладок на основе класса для работы с растрами с помощью GdiPlus.

Собственно, давно уже хотелось иметь что-то подобное без использования ActiveX-компонентов. Для подобных целей наш любимый Визуальный Лис предлагает только элементы PageFrame и OptionGroup, однако эти элементы имеют, на мой взгляд, весьма ограниченные возможности настройки их внешнего вида. Отсюда это решение.
Помимо непосредственного практического применения, данное решение может рассматриваться как пример самостоятельного создания собственных элементов на VFP с использованием GdiPlus.

Автор: SoccerStudio

Автор публикации

не в сети 19 лет

SoccerStudio

Комментарии: 0Публикации: 4Регистрация: 28-11-2006

(далее…)

]]> https://foxclub.ru/knowledgebase/petrovich-grid-aka-grid-ot-petrovich-dobavlena-forma-filtraczii-po-tablicze-shift-f7/ Fri, 28 Aug 2020 11:32:32 +0000

Petrovich Grid (AKA Grid от Petrovich). Добавлена форма фильтрации по таблице (Shift+F7)

Сортировка, поиск, фильтрация, множественный выбор и т.д. Добавлена форма фильтрации по таблице (Shift+F7). Добавлена возможность вставки CheckBox.

Грид - "положи на форму и работай".
Возможности:
1. Сортировать по колонке: F5 / Одинарный щелчок мышкой по заголовку
2. Фильтрация
Форма фильтра по колонке: F6
Быстрый фильтр по колонке: Shift + F6
Фильтр по таблице: Shift + F7
Отмена фильтра по колонке: Ctrl + F6 / Shift + Одинарный щелчок мышкой по заголовку / Щелчок правой кнопкой мышки по заголовку
Отмена всех фильтров: Shift + F10 / Двойной щелчок мышкой по пустой таблице
3. Поиск по колонке: F7 / Двойной щелчок мышкой по заголовку
4. Пометка записей в таблице
Пометить текущую запись: Ins / Shift + стрелка вверх(вниз)
Пометить все записи: F11
Снять пометку со всех записей: F12
4. Переместится на первую запись: Ctrl + Home
5. Переместится на последнюю запись: Ctrl + End
6. Изменить заголовок колонки: Ctrl + щелчок мышкой по заголовку
7. Изменить видимость колонок: Ctrl + F12
8. Изменить порядок колонок: Alt + щелчок мышкой по заголовку
9. Копировать данные в буфер обмена: Ctrl + F5
Grid является визуальным компонентом с переопределенными элементами Header и Column
Для автоматической расскраски грида необходимо установить свойство DefaultColoring в .T.
Для возможности множественного выбора необходимо установить свойство IsMultiselect в .T. Для вставки CheckBox в колонку используется процедура Grid.SetCheckBoxToColumn(oColumn)

Автор: petrovich

Автор публикации

не в сети 6 месяцев

admin

Комментарии: 1Публикации: 123Регистрация: 10-12-2000

(далее…)

]]> https://foxclub.ru/knowledgebase/proverka-kontrolnoj-czifry-nalogovyj-i-identifikaczionnye-kody-rossiya/ Fri, 28 Aug 2020 11:32:34 +0000

Проверка контрольной цифры – Налоговый и идентификационные коды Россия

Проверка контрольной цифры - Налоговый и идентификационные коды Россия

Автор: _=AlexiS=_

Автор публикации

не в сети 20 лет

_=AlexiS=_

Комментарии: 0Публикации: 2Регистрация: 25-07-2006

(далее…)

]]> https://foxclub.ru/knowledgebase/maple4-site-creator-sistema-upravleniya-kontentom/ Fri, 28 Aug 2020 11:32:34 +0000

Maple4 Site Creator – Система управления контентом

Создание, Ведение, Публикация сайта. Управление контетном сайта. Использование языка Visual FoxPro, редактируемый функциональный код. НЕ ТРЕБУЕТСЯ платный хостинг для публикации!

Автор: tpr

Автор публикации

не в сети 18 лет

tpr

Комментарии: 0Публикации: 1Регистрация: 25-10-2007

(далее…)

]]> https://foxclub.ru/knowledgebase/programma-postroitel-dereva-iz-menyu-proekta/ Fri, 28 Aug 2020 11:32:34 +0000

Программа-построитель дерева из меню проекта

Программа берет файл *.MPR меню проекта, и заносит его структуру в таблицу. Эта таблица пригодна для прорисовки дерева в treeview контроле, что идет с примерами. На этой основе у меня работают права доступа к пунктам меню программы, тоесть назначение прав из работающего приложения.

Автор: koskgb

Автор публикации

не в сети 6 месяцев

admin

Комментарии: 1Публикации: 123Регистрация: 10-12-2000

(далее…)

]]> https://foxclub.ru/knowledgebase/kvadratoboyazn/ Fri, 28 Aug 2020 11:32:34 +0000

Квадратобоязнь

Два игрока ставят на поля шахматной доски поочередно каждый фишки своего цвета. Проигрывает тот, у кого после очередного своего хода какие-либо четыре фишки образовали квадрат. Квадраты могут располагаться и "косо"- стороны не параллельны краям доски.

Автор: mayil

Автор публикации

не в сети 20 лет

mayil

Комментарии: 0Публикации: 6Регистрация: 20-06-2006

(далее…)

]]> https://foxclub.ru/knowledgebase/klass-pozvolyayushhij-vypolnyat-v-tekstovyh-fajlah-poisk-slov-slovosochetanij-s-razlichnymi-slovoformami/ Fri, 28 Aug 2020 11:32:34 +0000

Класс, позволяющий выполнять в текстовых файлах поиск слов (словосочетаний) с различными словоформами

Если Вы работаете с текстами, то этот класс может Вам пригодиться. Мне он понадобился для того, чтобы автоматически привязывать текстовые статьи к тематике (заданному списку тем).

Класс ConvertText:
- выполняет форматирование текста (удаляет или заменяет "нечитаемые" символы, склеивет переносы слов, удаляет пустые абзацы в тексте
- ищет в тексте слова (словосочетания) по заданным словоформам.
В прилагаемом ZIP-файле вы найдёте:
- класс ConvertText.prg
- подробное описание (в формате pdf)
- демонстрационный проект.

Автор: Вячеслав Клепинин

Автор публикации

не в сети 22 года

Вячеслав Клепинин

Комментарии: 0Публикации: 4Регистрация: 26-03-2004

(далее…)

]]> https://foxclub.ru/knowledgebase/scroll-bar/ Fri, 28 Aug 2020 11:32:34 +0000

SCROLL BAR

SCROLL BAR - он и в Африке SCROLL BAR. Из вкусностей - поддержка клавиатуры и дополнительная функциональность при разработке меню на его основе.

Автор: TAS

Автор публикации

не в сети 3 года

TAS

Комментарии: 0Публикации: 7Регистрация: 28-09-2000

(далее…)

]]> https://foxclub.ru/knowledgebase/menedzher-reshenij/ Fri, 28 Aug 2020 11:32:34 +0000

Менеджер решений

По просьбам трудящихся выкладываю свой менеждер решений, предназначен для облегчения жизни... Сохраняет процедуры и функции, часто используемые при создании программ, тестирует их код. Система поиска решений. Для примера оставил несколько решений из форума. Для VFP 9.

Автор: s66

Автор публикации

не в сети 19 лет

s66

Комментарии: 0Публикации: 4Регистрация: 09-02-2007

(далее…)

]]> https://foxclub.ru/knowledgebase/primer-sozdaniya-novogo-stilya-spiska-v-orenoffice-writer-dlya-formirovaniya-prikazov-so-slozhnoj-ierarhiej/ Fri, 28 Aug 2020 11:32:34 +0000

Пример создания нового стиля списка в OреnOffice Writer для формирования приказов со сложной иерархией

Пример создания собственного стиля списка в OреnOffice Writer для формирования приказов с иерархическими многоуровневыми списками со сложной нумерацией позиций приказа, например 1, 1.1, 1.1.1, 1.1.2 и т.д.

По многочисленным просьбам коллег по форуму я все-таки нашел в себе силы опубликовать и второй пример из серии
автоматизации OpenOffice.org из VFP. Он посвящен программе Writer. Напомню, что первый пример был посвящен Calc
и его можно загрузить отсюда:
"Пример автоматизации OpenOffice.org 2.2+ с программной записью и выполнением макроса на языке StarBasic"
[url]http://www.foxclub.ru/sol/index.php?act=view&id=590[/url]
Благодарю Всевышнего, что он дал мне силы это сделать.

Отмечу сразу, что в новом примере нет даже упоминаний о том как работать с таблицами Writer/Word, т.к. автор
убежден, что вместо того, чтобы работать с "кривыми" таблицами во Writer/Word, лучше это делать в специально
"заточенных" под работу с таблицами программах Calc/Excel. Поэтому всех любителей "кривых таблиц" отсылаю сразу
к замечательному бесплатному учебнику по программированию макросов OO со множеством работающих примеров:
[url]www.fameg.edu.br/documentos/apostilas_broffice/programando_broo.odt[/url]
Самую последнюю версию которого можно взять здесь: [url]http://br.geocities.com/noelsonalves/[/url]

Этот же пример демонстрирует общий подход, как можно преодолевать ЛЮБЫЕ ограничения VFP в вопросах автоматизации офисного пакета программ OpenOffice.org 2.2+ на примере создания и заполнения реального многоуровнего приказа в
программе Writer (бесплатный и совместимый с ним аналог MS Word).
В примере также показаны приемы по созданию собственного стиля СПИСКА на основе базового стиля документа и
его использование, а также показаны 2 различных способа вставки и внедрения графического объекта (изображения
герба для приказа) в документ Writer/MS Word, посредством возможностей, предоставляемых OpenOffice.org 2.2+.
Сохранение итогового документа (Order.doc) производится в примере для простоты в корень диска C: в формате
документа Microsoft Word, т.е. после создания и сохранения документ легко открывается последним!

Известно, что существуют определенного рода ряд проблем при автоматизации OO из VFP и некоторых других языков.
Прежде всего это несовместимость на уровне типов массивов: "массивы массивов" против многомерных массивов в VFP.
Идея, которую я хотел бы передать в этом решении заключается в том, что с этим можно бороться и весьма успешно,
даже разными способами! Основная игра в примере ведется на том, что код, который якобы не может работать из VFP,
но тем не менее отлично работает в родном макросе OO на StarBasic
(в примере это строка кода: oNumRules.replaceByIndex(lJ-1, oRule))
помещается в макрос, который создается программно с нуля, затем этот макрос сохраняется на диск вместе с
документом, после чего сразу же программно вызывается на исполнение, делая всю черную работу, с которой
в VFP потенциально могут возникнуть проблемы. Приведенный пример, впоследствии, был решен другим способом -
средствами чистого VFP, но сначала пришлось немного помучаться. Оказывается, чтобы OO лучше понимал типы
передаваемых от разных языков программирования данных - приходится прибегать к подаче дополнительных
инструкций для Automation Bridge ("мостика автоматизации") ОО с явным указанием или уточнением типов.
Для продвинутых экспериментаторов, замечу сразу, что в конструкции вида
[code]
oTarget.setDataArray( oTarget.getDataArray() )
[/code]
это не поможет. Это как раз тот случай, когда автоматизацию можно сделать ТОЛЬКО через макрос!
Сама по себе, отдельно взятая конструкция setDataArray() прекрасно работает из VFP, для чего требуется
только транспонирование массива, что, собственно, первым и показал Юдин Саша в форуме FoxClub.

Как говорила моя любимая школьная учительница физики - каждая задача имеет минимум 2 решения.
Поэтому, оказалось, что и здесь возможно другое решение на "чистом" VFP, например VFP9 SP1.
В итоге, для того, чтобы не связываться с созданием и исполнением макроса (но здесь интересна сама технология),
достаточно в примере включить закомментированный блок и всего лишь заменить указанную строку:
[code]
*-- При автоматизации OpenOffice следующий код работать не будет, поэтому используем его аналог:
*-- Перезапишем старое значение свойства:
* oNumRules.replaceByIndex(lJ-1, oRule)
[/code]
на следующую и все будет работать на чистом VFP:
[code]
*-- Перезапишем старое значение свойства:
*-- (с) rvc, 27.07.07 17:32
*-- Действуем согласно Developer's Guide,
*-- главы Professional Uno > Automation Bridge > Type Mappings > Mapping of a sequence
*-- Делаем UNO Wrapper по способу, описанному Bernard Marcelly, France Mon Jun 25, 2007 3:59 am:
*-- http://www.oooforum.org/forum/viewtopic.phtml?t=58792
*-- http://www.oooforum.org/forum/viewtopic.phtml?p=239563 "Problem with Numbering Paragraphs in Delphi"
ooServiceManager = OOoGetServiceManager()
unoWrap = ooServiceManager.Bridge_GetValueObject() && unoWrap = OOLoadProperties
unoWrap.set('[]com.sun.star.beans.PropertyValue', @oRule) && Здесь передавать по ссылке ОБЯЗАТЕЛЬНО!
oNumRules.replaceByIndex(lJ-1, unoWrap) && Здесь можно передавать по ссылке, а можно и нет!
[/code]
Также, во втором способе, необходимо удалить весь код, относящийся к созданию и запуску на выполнение макроса,
что упростит и уменьшит код. Но способ выбирайте сами - кому какой нравится. Работают с VFP оба!

В заключение, хочу отметить, что для нормальной работы примера вам необходимо:
1. Иметь библиотеку для работы VFP с OO libOOo.prg, которая неоднократно приводилась на форуме этого сайта.
Для ее загрузки (у кого нет) воспользуйтесь поиском по сайту.
2. Из прилагаемого примера извлечь изображение герба для приказа (файл Gerb.bmp) и разместить его в корне диска C:

Желаю успехов в освоении автоматизации OpenOffice.
Отдельная благодарность автора to Bernard Marcelly, который не раз помогал выкручиваться
из очень тяжелых, почти неразрешимых ситуаций, которых, как оказалось - не бывает!
--
С уважением,
Кольцов Роман Васильевич aka rvc

Автор: Роман Кольцов

Автор публикации

не в сети 20 лет

rvc44

Комментарии: 0Публикации: 7Регистрация: 06-12-2005

(далее…)

]]> https://foxclub.ru/knowledgebase/defoxiii-zashhita-ot-dekompilyaczii-i-sozdanie-prilozhenij-s-vozmozhnostyu-registraczii/ Fri, 28 Aug 2020 11:32:34 +0000

DeFoxIII – Защита от декомпиляции и создание приложений с возможностью регистрации

В архиве (~2 Mb) содержится полный набор файлов DeFoxIII: четыре рабочих файла для запуска с разными рантаймами 6 - 9, хелпы в формате Word на русском и английском языках, обфускатор (нужен рантайм от VFP6) и проект примера простого приложения, которое может работать как в демо-версии, так и регистрированной. Независимо от того, под каким рантаймом DeFoxIII запускается, он может обрабатывать ехе-файлы всех версий VFP6SP5 - VFP9SP1.

Автор: leonid

Автор публикации

не в сети 20 лет

leonid

Комментарии: 0Публикации: 1Регистрация: 03-02-2006

(далее…)

]]> https://foxclub.ru/knowledgebase/eksport-dbf-na-mssql/ Tue, 13 Dec 2022 04:38:13 +0000

Экспорт DBF на MSSQL

Предоставлена библиотека и пример её использования для быстрой загрузки таблицы на MSSQL сервер.
Описание в архиве. Можно использовать как в составе своего приложения, так и построить отдельное.
Версия фокса 9.0. Сами классы загрузки должны работать и под младшими версиями фокса.

11.08.2007 в классе up_xml использована временная процедура вместо постоянной, что устраняет потенциальную возможность оставления "мусора" после аварийного останова. Исправлены мелкие ошибки. 24.08.2007 исправлена ошибка из-за которой при использовании класса up_xml не выполнялся режим "дописать".

Автор: Влад Колосов

Автор публикации

не в сети 21 год

Влад Колосов

Комментарии: 0Публикации: 11Регистрация: 05-05-2005

(далее…)

]]> https://foxclub.ru/knowledgebase/tajmer-blokirovki-ili-prostoya-prilozheniya/ Fri, 28 Aug 2020 11:32:34 +0000

Таймер блокировки или простоя приложения.

Таймер блокировки или простоя приложения. Отслеживает простой VFP приложения, в течение указанного времени, и выполняет указанное действие. Таймер в приложении должен быть ОДИН, иначе они перекрывают друг друга и ON KEY LABEL MOUSE. Команда в ON KEY LABEL MOUSE продолжает выполняться, только в случае ОДНОГО таймера. Для окон, не принадлежащих приложению, простой (события мыши и клавиатуры, приводящие к сбросу) не отслеживается (ются).

Автор: INB

Автор публикации

не в сети 20 лет

INB

Комментарии: 0Публикации: 3Регистрация: 27-08-2006

(далее…)

]]> https://foxclub.ru/knowledgebase/resize-kolonok-grida-versiya-1-1/ Fri, 28 Aug 2020 11:32:33 +0000

Resize колонок Grid’a (версия 1.1)

Класс предназначен для автоматического изменения ширины колонок в Grid'e при его Resize.

Идея создания этого класса пришла из 1С, уж больно понравились тамошние таблички ;-).
Для приминения класса необходимо выполнить всего три пункта:
- добавить класс в свой проект;
- поместить его на форму;
- заполнить свойство c именем "grid".

Свойства класса:
- grid: ссылка на грид, тип символьный (пример: This.Parent.Grid1 или ='ThisForm.Grid2' или ThisForm.Grid3).
- enabled: активирует(.T.)/деактивирует(.F.) действие класса на Grid, тип логический.
- proporcional: .T.-ширина колонок изменяется пропорцинально их первоначальным размерам; .F.-ширина колонок изменяется равномерно.
- SaveUserConfig(добавлено в новой версии): .T.-сохранять размер колонок, настроеных пользователем; .F.-не сохранять.

При изменении размеров колонок учитываются значения их свойств Resizable и Visible, а также свойств самого Grid'a(ScrollBars, RecordMark, DeleteMark и т.д.).

В архив с классом вложена форма-пример.

Автор: kexby

Автор публикации

не в сети 20 лет

kexby

Комментарии: 0Публикации: 1Регистрация: 19-12-2005

(далее…)

]]> https://foxclub.ru/knowledgebase/funkczii-obhoda-dereva-papok/ Fri, 28 Aug 2020 11:32:33 +0000

Функции обхода дерева папок

Обход папок и подпапок в обычном и отсортированном порядке - по имени, размеру, дате(без времени). Включены функции для VFP 8.X и VFP 3.X (подойдет для FP 2.0).

Обновления: 18.04.2007; 19.04.2007; 05.08.2007.
Информацию об обновлениях смотрите ниже.

Простой пример использования:

cDir = "Ваша папка" && Сканируемая папка
cDirCur = fDirScan(cDir, cDir) && Подпапка в cDir (папка cDir не возвращается функцией обхода)

DO WHILE !EMPTY(cDirCur)

* ваша обработка подпапки...

* получение подпапки
cDirCur = fDirScan(cDirCur, cDir)
ENDDO

Сложный пример использования:

cDirStart = "Ваша папка" && Стартовая папка, должна располагатся "выше" (смотрите сортировка)
cDirEnd = "Ваша папка" && Конечная папка, должна располагатся "ниже" (папка cDirEnd c подпапками возвращается функцией обхода)
cDirCur = fDirScan(cDirStart, cDirEnd, "N") && Подпапка в cDirStart или след.папка после cDirStart, Сортировка по имени

DO WHILE !EMPTY(cDirCur)

* ваша обработка папки ...

* получение папки или подпапки
cDirCur = fDirScan(cDirCur, cDirEnd, "N")
ENDDO

Список подпапок - удаление папки

DIME adr[1], aff(1) && массив папок, файлы

* получение списка в массив
nDirs = fDirSL(@adr, "Папка")

* удаление c nDirs по 1 (иначе ошибки)
FOR nDir = nDirs TO 1 STEP -1
* удаление файлов
nFiles = ADIR(aff, adr(nDir) + "*.*", "HS")
FOR nFile = 1 TO nFiles
DELETE FILE (adr(nDir) + aff(nFile, 1))
ENDFOR
* удаление папки
RD (adr(nDir))
ENDFOR

Обновление: 18.04.2007.
1.Добавлен ReadMe.txt.
2.Исправлен z_DirTest.prg:
1) добавлены проверки и комментарии;
2) исключена ошибка в fDirSFP3();
3) протестировано в VFP и FP 2.0.

Обновление: 19.04.2007.
1.ReadMe.txt.
2.z_DirTest.prg:
1) исключена возможная ошибочная ситуация в fDirSFP3();
2) добавлена функция обхода только подпапок в указанной папке - fDirSub() для VFP 8.0, и fDirSubD() для VFP 3.0 и FoxPro 2.0;
3) протестировано в VFP и FP 2.0.

Обновление: 05.08.2007.
1.Обновлен ReadMe.txt.
2.Изменен z_DirTest.prg:
1) добавна функции fDirL(), fDirSL();
2) протестировано в VFP 8.X.
3.Добавлен z_DirTest3.prg:
1) добавна функции fDirL(), fDirSL();
2) протестировано в VFP 3.0 и FP 2.0.

Автор: INB

Автор публикации

не в сети 20 лет

INB

Комментарии: 0Публикации: 3Регистрация: 27-08-2006

(далее…)

]]> https://foxclub.ru/knowledgebase/scroller-1-2/ Fri, 28 Aug 2020 11:32:32 +0000

Scroller (1.2)

Класс для скроллинга контейнера на форме. Можно использовать в дизайнере. Поддерживает многослойность, скроллинг колесом мыши, автоскроллирование на активный элемент.

Scroller 1.2- класс для скроллинга контейнера на форме.

Можно использовать в дизайнере.
Поддерживает многослойность (несколько контейнеров для скроллинга), скроллинг колесом мыши, автоскроллирование на активный элемент.

Внимание!
Используется ActiveX: Microsoft Flat Scrollbar Control 6.0 (SP4)
Находится в файле mscomct2.ocx

Автор: Prototype

Автор публикации

не в сети 6 месяцев

admin

Комментарии: 1Публикации: 123Регистрация: 10-12-2000

(далее…)

]]> https://foxclub.ru/knowledgebase/primer-ispolzovaniya-formy-tipa-as-top-level-form/ Fri, 28 Aug 2020 11:32:34 +0000

Пример использования формы типа As Top-Level Form

Пример демонстрирует возможности использования Top-Level Form и работы с окнами In Top-Level Form. Для примера включен эффект открытия дочернего окна с лева на право.

Автор: s66

Автор публикации

не в сети 19 лет

s66

Комментарии: 0Публикации: 4Регистрация: 09-02-2007

(далее…)

]]> https://foxclub.ru/knowledgebase/rabota-s-crystal-reports-9/ Fri, 28 Aug 2020 11:32:34 +0000

Работа с Crystal Reports 9

Доработанное решение №508. Работать с классом по прежнему просто, но добавлены дополнительные методы + параметры вызова + исправлена неточность + возможность выбора принтера.

Проблемы старого класса:
1. Если использовать для работы с MS SQL - нет вопросов,
в самом отчете устанавливатся свойства подключения и все работает.
А вот если работать с локальными таблицами - вытаскивать данные в файлы fox2x,
то тут уж лучше указывать полные пути к этим самым таблицам. Поэтому в класс
добавлены методы установки путей к таблицам отчета oCR.addtable и путей к
таблицам подотчетов oCR.addsubtable.

2. Все начинается с создания объекта класса:
oCR=CREATEOBJECT('CrystalRuntime.Application'). Я долго не мог понять,
почему это при помощи этого класса именно отчеты для CR9 не хотят работать.
При этом отчеты для CR8.5 работают на ура. А все просто: если у вас на
машине стоит не одна версия CR, а несколько, то в реестре запись
'CrystalRuntime.Application' связывается с той версией CR, которая была
установлена раньше всех. Так у меня создавался класс CR8.5, который не
понимал отчетов, сделанных в CR9, о чем громко и кричал. Проблема решается
добавлением номера версии CR через точку:'CrystalRuntime.Application.9'.
При таком вызове мы гарантированно получим экземпляр CR9.

3. У меня всегда в начаде программы создается класс приложения. В этом классе
задается иконка приложения. И вот когда ты вызываешь на просмотр отчет -
у него в левом углу стандартная фоксовая иконка и надпись "Отчет".
Ну не очень как-то смотрится. Поэтому в класс добавлены необязательные параметры.
Первый задает текст в заголовке окна, второй - иконку.

4. Последние изменения: Очень меня смущала такая весчь в вьювере для CR9, как отсутсвие возможности выбора и настройки принтера. Сделать на форме отдельную кнопку для этого? Не проблема. Только проблема в том, что эта единственная кнопка для выбора принтера на форме смотрится как 5-е колесо у телеги. Поэтому сделал свою менюшку для управления просмотром. Те, для кого не критично отсутствие кнопки выбора принтера - могут пользоваться родными контролами. Для этого нужно как и раньше oCR=CREATEOBJECT('myCR9','Отчет №1','d:print.gif'). Те, кто хотят видеть кнопку - добавьте после файла с иконкой .t. (типа ShowControls) oCR=CREATEOBJECT('myCR9','Отчет №1','d:print.gif', .t.). Конкретно этот класс сделан на 9-ке. Но раньше он же использовался на 6-ке для работы с CR.
[code]
SET CLASSLIB TO crystalrep9 ADDITIVE
PUBLIC oCR

&& первый параметр - текст шапки окна просмотра, второй - файл иконки,
третий - показывать новые контролы или родные
oCR=CREATEOBJECT('myCR9','Отчет №1','d:print.gif',.t.)

&& теперь устанавливаем параметры отчета
&& в первом случае, если мы сами передаем параметр для самого CR
oCR.addparam('CompanyName','Иванов Лтд.')

&& второй случай - если передаем значение для процедуры MS SQL
oCR.addparam('@Number','33')

&& первый параметр - номер таблицы в отчете, второй - полное название файла
&& с данными с полным путем к нему
oCR.addtable(1,oApp.TempPath+'crrOrder1.dbf')

&& первый параметр - название подотчета, второй - номер таблицы в подотчете,
&& третий - полное название файла с данными с полным путем к нему
oCR.addsubtable('22',1,oApp.RepPath+'crrOrder2.dbf')

oCR.previewreport('d:repReport.rpt')
[/code]

Автор: lo-pata

Автор публикации

не в сети 21 год

lo-pata

Комментарии: 0Публикации: 1Регистрация: 08-02-2005

(далее…)

]]> https://foxclub.ru/knowledgebase/primer-avtomatizaczii-openoffice-org-2-2-s-programmnoj-zapisyu-i-vypolneniem-makrosa-na-yazyke-starbasic-ne-vba/ Fri, 28 Aug 2020 11:32:34 +0000

Пример автоматизации OpenOffice.org 2.2+ с программной записью и выполнением макроса на языке StarBasic (не VBA!)

Последнее время все больше и больше возрастает интерес к автоматизации OpenOffice.org Calc и Writer, а доступных русскоязычных источников по этой теме пока катострофически не хватает. Не хватает, к сожалению времени, чтобы расписать все подробно и по-русски, но очень надеюсь, что данный пример и его части пригодятся тем, кто решил заняться автоматизацией OpenOffice.org из VFP.

Данный пример включает в себя демонстрацию максимально большого количества из известных на данный момент
приемов для автоматизации OpenOffice.org Calc из VFP, накопленных из разнообразных источников в Internet и разработанных мною самостоятельно путем тяжелых проб и ошибок. Главный источник - англоязычная документация
по API OpenOffice.org. Так, что те кто еще не знает английский - вперед! Я учил в школе Deutsch...

Вы должны понимать, что при автоматизации можно обращаться к свойствам и методам создаваемых объектов, но
невозможно напрямую (без создания макросов на языке StarBasic) из VFP обращаться к функциям и командам языка
StarBasic. Например, в VFP вместо команды createUnoService("...") необходимо использовать
аналогичный ему вызов из библиотеки libOOo.prg, который называется OOoServiceManager_CreateInstance("..."),
если Вы планируете использовать данную библиотеку. К сожалению, эту библиотеку уже очень давно написал
Danny Brewer, и исправлять теперь названия в ней уже нет никакого смысла, т.к. исправив название этой функции
можно получить несовместимость с другими существующими примерами автоматизации OOo из VFP.
Лучше всего дополнять ее новыми функциями и публиковать свои дополнения.

Для демонстрации примера, подключите к проекту библиотеку libOOo.prg, содержащую ВСЕ необходимые функции
для работы ЭТОГО примера (если она отличается от имеющейся у Вас, то замените свою на прилагаемую здесь),
а также подключите и запускайте vfpcalcexample2.prg из прилагаемого архива.
Все комментарии внутри программы (см. исходный текст vfpcalcexample2.prg)

Автор: Кольцов Роман Васильевич

Автор публикации

не в сети 20 лет

rvc44

Комментарии: 0Публикации: 7Регистрация: 06-12-2005

(далее…)

]]> https://foxclub.ru/knowledgebase/smena-kodovoj-straniczy-fajlov-foxpro/ Fri, 28 Aug 2020 11:32:34 +0000

Смена кодовой страницы файлов foxpro

Еще одна утилитка для смены кодовой страницы у файлов foxpro Взята из журнала FoxTalk лет 10 назад и немножко мной поправлена

Смена кодовой страницы у файлов foxpro (dbf, scx, vcx, mnx, frx)
Я взял из CPZero и оставил только 3 CP: 866, 1251, 0.
Можно обработать как весь каталог так и отдельный файл
Нужно бы добавить еще обработку подкаталогов, пробуйте.

Автор: foxtalk + aga

Автор публикации

не в сети 23 года

aga

Комментарии: 0Публикации: 1Регистрация: 09-10-2003

(далее…)

]]> https://foxclub.ru/knowledgebase/glyadelka-mem-fajlov/ Fri, 28 Aug 2020 11:32:34 +0000

Гляделка Мем файлов

Не судите строго, но набосал утилитку за пару часов. Просто мне самому стало интересно сделать программку для просмотра и редактирования мем файлов. Специально использовал только базовые классы Фокса. Что получилось... оцените................ может кому и пригодится.....Для VFP 9! Если кому интересно, скину исходник для любой версии фокса ....

Автор: s66

Автор публикации

не в сети 19 лет

s66

Комментарии: 0Публикации: 4Регистрация: 09-02-2007

(далее…)

]]> https://foxclub.ru/knowledgebase/klass-upravleniya-miganiem-okna-programmy-knopki-v-paneli-zadach/ Fri, 28 Aug 2020 11:32:30 +0000

Класс управления миганием окна программы (кнопки в панели задач)

Хорошо иметь индикацию о завершении задания программой, находящейся в свернутом виде! Поместите объект FlashWind на форму и в нужный момент вызывайте метод Flash(1). Настройка режимов мигания и скорости.

13.06.2007 добавлена проверка на Top-Level Form, при отсутствии входного парамера принимается значение "включить".

Автор: Влад Колосов

Автор публикации

не в сети 21 год

Влад Колосов

Комментарии: 0Публикации: 11Регистрация: 05-05-2005

(далее…)

]]> https://foxclub.ru/knowledgebase/menyushka-na-trivyushke/ Fri, 28 Aug 2020 11:32:34 +0000

Менюшка на тривьюшке

Собственно без претензий на новаторство - делал для своего удобства, может кому сгодится. Идею запихнуть дерево в ДБФ увидел в книге Клепинина (еще раз низкий поклон ВСЕМ авторам!), а еще в FPD26 в своих задачах обновляемые меню хранил в DBF. Так получился "меню -конструктор ". Что это дает? Имея тиражируемый программный продукт,(в моем случае бухгалтерские приложе-ния), сталкиваюсь с необходимостью специфических частных доработок на разных предприятиях (а особенно по SQL-запросам). Теперь много чего можно лепить тут-же за столом заказчика. С примером не мудрил - просто взял живой, а иконки накидал "от потолка". Выслушаю любые пожелания, или подрисуйте что-нибудь сами.

Автор: Коляныч

Автор публикации

не в сети 20 лет

Коляныч

Комментарии: 0Публикации: 1Регистрация: 18-12-2005

(далее…)

]]> https://foxclub.ru/knowledgebase/alternativa-vypadayushhego-spiska-komboboksa/ Fri, 28 Aug 2020 11:32:34 +0000

Альтернатива выпадающего списка комбобокса

Выпадающий список комбобокса не всегда удовлетворяет пользователя. Форма поиска является альтернативой выпадающего списка. В моем решении я оставляю стандартную реакцию комбобокса по нажатию мышью в левой части. По нажатию на правой части (значек "вниз") вызывается форма поиска. Вызвать форму можно для массива, т.е. не обязательно из комбо.

Автор: Ydin

Автор публикации

не в сети 20 лет

Ydin

Комментарии: 0Публикации: 3Регистрация: 16-12-2005

(далее…)

]]> https://foxclub.ru/knowledgebase/proshhajte-glyuchnye-textboxy/ Mon, 21 Nov 2022 10:48:22 +0000

Прощайте, глючные Textboxы!

Поведение стандартного контрола Textbox при перемещении по нему влево-вправо, при удалении символов, при нажатии Home и End - может довести пользователя до белого каления (ИМХО). Предложенный код в методе KeyPress заставляет данный контрол работать правильнее.

    
  Lparameters nkeycode, nshiftaltctrl  
  Do Case  
    
  Case nkeycode=19 And nshiftaltctrl=0  
  	Nodefault  
  	If This.SelStart>0  
  		DoDefault(nkeycode, nshiftaltctrl)  
  	Else  
  		If This.SelLength>0  
  			This.SelLength=0  
  		Endif  
  	Endif  
    
  Case nkeycode=4 And nshiftaltctrl=0  
  	Nodefault  
  	If This.SelLength>0  
  		This.SelStart=This.SelStart+This.SelLength  
  	Else  
  		If This.SelStart=This.MaxLength-1  
  			This.SelStart=This.MaxLength  
  		Else  
  			If This.SelStart#This.MaxLength  
  				DoDefault(nkeycode, nshiftaltctrl)  
  			Endif  
  		Endif  
  	Endif  
    
  Case Inlist(nkeycode,1,6) And (nshiftaltctrl=0)  
 *** Эти команды кажутся бессмысленными, однако убирают глючное перескакивание курсора при нажатии клавиши {End} или {Home} ***  
  	Nodefault  
  	DoDefault(nkeycode, nshiftaltctrl)  
    
  Case nkeycode=127  
  	Nodefault  
  	If This.SelStart>0  
  		DoDefault(nkeycode, nshiftaltctrl)  
  	Else  
  		If This.SelLength>0  
  			This.SelText=''  
  		Endif  
  	Endif  
  Endcase  
    

Автор: Er0p

Автор публикации

не в сети 6 месяцев

admin

Комментарии: 1Публикации: 123Регистрация: 10-12-2000

(далее…)

]]> https://foxclub.ru/knowledgebase/sozdanie-stroki-vida-create-table-na-osnove-sushhestvuyushhej-tabliczy/ Fri, 28 Aug 2020 11:32:30 +0000

Создание строки вида CREATE TABLE … на основе существующей таблицы.

Программа помещает строку создания таблицы в буфер обмена, позволяет извлечь максимум выгоды из визуального проектирования таблиц. Часто бывает необходимо после разработки приложения и отладки вставить в свою программу коды создания таблиц. Например, в случае, когда приложение поставляется без готовых таблиц или таблицы утеряны, необходимо их создать заново. Дабы избежать утомительного ручного труда можно просто запустить эту программку.

Обновление - если у таблицы есть индекс .cdx, то формируется выражение создания таблицы со строками создания тэгов.

Автор: Владислав Колосов

Автор публикации

не в сети 21 год

Влад Колосов

Комментарии: 0Публикации: 11Регистрация: 05-05-2005

(далее…)

]]> https://foxclub.ru/knowledgebase/knopka-s-vypadayushhim-menyu/ Fri, 28 Aug 2020 11:32:33 +0000

Кнопка с “выпадающим” меню

Класс кнопки на базе кнопок... 🙂 Попытка реализации кнопки (наподобие эксплореровкой "назад") с "выпадающей" менюшкой.

Автор: Deil

Автор публикации

не в сети 21 год

Deil

Комментарии: 0Публикации: 1Регистрация: 16-05-2005

(далее…)

]]> https://foxclub.ru/knowledgebase/tajna-voprositelnogo-znaka/ Mon, 23 Feb 2026 18:45:35 +0000

Тайна вопросительного знака

Заранее прошу прощения у ассов клиент-сервер. Им совсем незачем читать эти заметки и ругать меня за изложение тривиальных вещей.
Безусловно этот материал для начинающих делать клиент-сервер. Ну не сразу же в конце концов человек становиться ассом.

Когда то нужно с чего то начинать.
Возможно я не совсем знаком с нашим уровнем знаний, но лично для меня тайна вопросительного знака стала своего рода откровением около двух с половиной лет назад. А когда я ее осознал, то стал ее применять и налево и направо и сэкономил кучу времени и кода.

Написание клиент -сервер из Фокса требует двух вещей - знание Фокса и знание сервера. Но наш Российский заказчик , впрочем как и зарубежный, бывает очень не стабилен. Вот говорит он тебе- я твердо решил взять сервером Интербейс. И если что имеешь против - гуляй дальше-программистов навалом.
Вот сидишь ты , сидишь, мучаешься с кодом, и наконец, некоторый успех. Вроде научился плавать и ждешь от босса или клиента хоть маленькой похвалы. ( на материальные вознаграждения только слабая надежда.) И тут это гражданин(ка) или контора вдруг и говорит , мы решили -Оракл. ( а ты их сам умолял и просил до этого про это) И все -код-коту под хвост. Только ты освоился с Оракл, а они как капризная девица говорят- мы твердо решили -MS SQL.
Ну вот, посколько у нас в стране любой даже самый захудалый заказчик или клиент очень редок, ты на все соглашаешья и молча учишь все это подряд. В такой ситуевине нужно все, что только можно сделать менее зависимым от сервера ( хотя реальной инвариатности кода все равно нет) и все , что только можно засунуть в классы библиотек, работающих с серверами. Тогда любой выворот уже и не страшен.
Так вот огромную роль в этой самой инвариантности кода играет вопросительный знак. Кое что про него найдете в ссылках :
http://support.microsoft.com/subbort/kb/articles/q156/6/31.asp?LNG=ENG&AS=PER
http://support.microsoft.com/support/kb/articles/q157/5/25.asp?LNG=ENG&AS=PER

К большому сожалению во всех этих ссылках есть примеры с вопросительным знаком для команд сервера типа 

  SELECT * from mytable where mytable.pid=?m.pid.  

Однако простая проверка показывает, что вопросительный знак работает и в других командах. Будь моя воля, я как всякий ленивый программист поставил бы памятник тому разработчику, кто придумал и реализовал этот самый вопросительный знак.
Ну а теперь поближе к нашим баранам. Что это нам дает .
Как скажем послать на Оракл ( другие сервера или куда подальше ) обычную переменную с полем типа дата , на MS SQL переменную с парой двойных одинарных или обратных апострофов, вообще целый файл с текстом, в котором вообще не известно какие спец символы и кавычки есть в бинарное поле Оракл. Техника , которую обычно советуют-замена одних кавычек на другие , что ломает текст. Ну всем известно, что есть функция SQLEXEC с командой сервера, а команда -это текстовая строка. Ну думаем мы-сделаем эту строку на Фоксе и все дела .
Пусть мы имеем фоксовскую переменную vfpdateofbirth типа дата и хотим ее присвоить дню рождения работника на сервере Оракл . Напишем следующую переменную типа текст и пошлем ее на Оракл

  
  
  m.sql='insert into demo.employee (dateofbirth) values('+dtoc(vfpdateofbirth)+')'  &&- Переменная хоть куда - весь текст с чем надо. Посылаем на сервер
  
  =sqlexec(con,m.sql)
  
    

И:.
Оракл посылает нас к чертовой бабушке. Открываем справочник по Оракл и обнаруживаем, что данный сервер жутко чувствителен к формату Нужно еще знать Оракловскую функцию to_date и кучу ее правильных форматов,не всякий из которых годиться для Фокс переменной. То есть нужно написать что то вроде

  
  
  Cdt=dtoc(vfpdateofbirth)   

(to_date('"+cdt+"','DD.MM.YYYY'))". А то может быть и to_date('"+cdt+"',"DD.MM.YYYY HH24.MM.SS').
если фоксовская переменная типа дэйттайм.
Дальше-больше , для Интербейс нужно знать функцию преобразования типов cast , для MS SQL функцию convert. Так или иначе, все это все равно узнаешь, но ей богу это мнговато для такого старого маразматика , как я. Но вопросительный знак сам делает всю работу дез всяких таких функций. Перепишем нашу первую команду так

  
  
  m.sql='insert into demo.employee (dateofbirth) values (?dtoc(vfpdateofbirth)'
  
  =sqlexec(con,m.sql)  

Посылаем на любой сервер- и все хорошо.
Есть правда несколько несколько небольших тонкостей на разных серверах. Скажем если послать пустую дату на MS SQL SERVER , он вместо нее запишет дату начала века ( зависит от текущих серверных установок). Следует заменить ее на NULL
Проблема с апострофами для вопросительного знака не существует

  
  
  m.sql0='insert into table (fieldname) values ('m.sql2=")"
  
  m.sql=' "" '+" '' "+ . . . .! Сколько хочешь любых одиночных и парных апострофов
  
  m.sqlr=m.sql0+'?m.sql'+msql2
  
  sqlexec(con,.mqlr)  

Переменная m.sqlr может быть даже содержанием файла, в котором бох знает что лежит . Вот фрагмент одной моей программы , где Фоксовые переменные разного типа посылаются на разные типы полей в MS SQL server

  
  
  aa='insert into 'thisform.port('Karti')
  
  SELECT karti
  
  rc=recc()
  
  j=0
  
  GO top
  
  bb+aa+'documents(documentcodeid,controltime,dateofcreation,outgono,incomno,corrdate,soprovno,contents, execdate,documenttypeid,soprovnodate,folder,correspondent) values('DO while not eof('karti')
  
  j=j+1
  
  select karti
  
  kd=0
  
  IF seek(int(val(kodd)),'docc','numcode')
  
  kd=docc.documentcodeid
  
  ELSE
  
  kd=0
  
  ENDIF
  
  sod=sodd+''+sodd1+''+sodd2+''+sodd3
  
  dl+iif(isdigit(delo),delo,'00')
  
 *** Решение проблемы пустой даты, чтобы не было 01.01.1900 01.01.2000
  
  srokt=iif(empty(sroki),null,sroki)
  
  datpt+iif(empty(datp),null,datp)
  
  soprdatt+iif(empty(soprdat),null,soprdat)
  
  datot=iif(empty(dato),null,dato)
  
  dap1t=iif(empty(dap1),null,dap1)
  
  select karti
  
  cc=bb+"?kd,?srokt,?datpt,?isn,?vxn,?datot,?soprnom,?sod,?dap1t,1,?sorpdatt,?dl,?korr1)"
  
  IF sqlexec(con,cc)>0
  
  ELSE
  
  thisform.write_error("karti",line())
  
 *messagebox(str(recno(karti)))
  
  ENDIF  

Все переменные с вопросительным знаком -это переменные Фокса.

Владимир Журавлев

Автор публикации

не в сети 25 лет

Владимир Журавлев

Комментарии: 1Публикации: 2Регистрация: 26-03-2001

(далее…)

]]> https://foxclub.ru/knowledgebase/intellisense-v-prilozheniyah/ Fri, 28 Aug 2020 11:32:33 +0000

IntelliSense в приложениях

Вы сможете редактировать программы (PRG) в формах приложения, если воспользуетесь этим простым примером. Вся мощь IntelliSense будет в распоряжении пользователя - подсветка синтаксиса, автозавершение, подсказки. Более того, вы сможете написать свой словарь для любого языка программирования! Разрабатывалось в VFP 9.0

Автор: Влад Колосов

Автор публикации

не в сети 21 год

Влад Колосов

Комментарии: 0Публикации: 11Регистрация: 05-05-2005

(далее…)

]]> https://foxclub.ru/knowledgebase/rabota-s-fajlami-po-ftp/ Fri, 28 Aug 2020 11:32:33 +0000

Работа с файлами по FTP

Копирование, перемещение файлов с/на FTP сервер. Ведение логов, развитая система фильтров, например фильтр left(file_name,2)="i_" and (file_ext="html" or file_ext="htm") or full_file_name='index.zip' файлы начинаются с "i_" и расширение равно ("htm" или "html") ИЛИ ПОЛНОЕ ИМЯ ФАЙЛА="index.zip" применение функций FoxPro в фильтрах, ОПТИМИЗИРОВАННАЯ работа с FTP-серверами При помощи трех специальных флагов (flag1,flag2,flag3) можно дополнительно управлять фильтрами для работы с файлами. Пример left(file_name,2)="i_" and (file_ext="html" or file_ext="htm") or file_ext="xml" and flag1 Без установленного флага (flag1) - работа только с файлами, названия которых начинаются с "i_" и расширение равно ("htm" или "html") С флагом - дополнительно к предыдущим файлам будут отбираться файлы с расширением "xml" Исходники программы

Запускать необходимо форму a_wiz_ftp ! Краткая теория :
Есть несколько FTP Serverov, которые нужно работать с некоторой периодичностью.
Для работы с каждым сервером прописываются :

ftp server, например ftp.narod.ru
login
пароль

C этим сервером при помощи некоторых правил я могу работать, например, скопировать файлы с локального диска на сервер, переместить или скопировать файлы с сервера на локальный диск.
При помощи FC можно явно задать с какими файлами работать (например, скопировать index.html), или просто указать каталог отправки и передачи.
Мало того, при помощи фильтра я могу работать только с теми файлами, которые мне нужны, например,
фильтр left(file_name,2)="i_" отберет только файлы, названия которых (первые две позиции) начинаются с "i_"
фильтр left(file_name,2)="i_" and file_ext="html" сделает тоже самое, НО отберет только файлы с расширением "html"
фильтр left(file_name,2)="i_" and (file_ext="html" or file_ext="htm") or full_file_name='index.zip'
файлы начинаются с "i_" и расширение равно ("htm" или "html") ИЛИ ПОЛНОЕ ИМЯ ФАЙЛА="index.zip"
Можно работать (составлять фильтр) со следующими параметрами:
file_name - имя файла без расширения
full_file_name - полное имя файла (с точкой и расширением)
file_ext - расширение файла
file_size - размер файла в байтах
file_date - дата файла (вида ДД/ММ/ГГГГ), формат - DATE
file_date_time - дата_время файла (вида ДД/ММ/ГГГГ ЧЧ:ММ:СС), формат - DATETIME
file_size>50000 - выбор файлов, размер которых больше 50000 байт
file_date=date() - выбор файлов, дата которых совпадает с текущей датой
file_date_time>ctot('01/06/2006 12:45:59') - выбор файлов с датой больше 01/06/2006 и временем больше 12:45:59

left(file_name,3)="TAG" and file_ext="DBG" and file_datedate()
file_name="KCT"+alltr(str(year(date())))+iif(month(date()) ]]> https://foxclub.ru/knowledgebase/igrushka-dlya-obucheniya-chteniyu/ Tue, 01 Sep 2020 13:58:44 +0000

Игрушка для обучения чтению

Выражаю свою благодарность добрым людям Dmas и Hel!Riser, которые помогли мне своими советами на форуме Foxpro Club при написании этой программы. А также Владимиру Максимову и многим другим, чьи статьи и комментарии на форуме помогали усваивать FoxPro, что теперь дает возможность мне на старости лет зарабатывать на хлеб, иногда с маслом ;о) Эта игрушка сделана для моего внука в самом начале Третьего тысячелетия в качестве моей учебной задачи (я тогда начинал на VFP6), так что программа вполне эпохальна :о) Внук уже давно учится в школе, поэтому можно считать, что опытную эксплуатацию программа успешно прошла. А теперь растет внучка, и пришлось вспомнить об игрушке, а заодно выложить её на всеобщее обозрение.

Автор: gaff.ko

Автор публикации

не в сети 6 месяцев

admin

Комментарии: 1Публикации: 123Регистрация: 10-12-2000

(далее…)

]]> https://foxclub.ru/knowledgebase/derevo-po-slovaryu-svyazannogo-otnosheniem-samo-na-sebya/ Fri, 28 Aug 2020 11:32:16 +0000

Дерево по словарю, связанного отношением само-на-себя

Данный класс представляет данные в древовидной структуре (исп. TreeView) таблицу, со структурой связи сама-на-себя. В классе присутствует как компонент чистого отображения, так и поиск по дереву. ЗЫ добавлена поддержка ИД-полей с числовым типом и заточена работа от 6.0 до 9.0 версий Фокса ЗЫЫ багофикс найденный flaxby. Непрально показывалось число найденных узлов + кой ч:е найденое не показывалось при определенных условиях

Дерево по словарю, связанного отношением само-на-себя

В архиве содержится краткое описание класса, таблица и форма с примером пользования.

Автор: Hel!Riser

Автор публикации

не в сети 25 лет

Hel!Riser

Комментарии: 1Публикации: 5Регистрация: 11-03-2001

(далее…)

]]> https://foxclub.ru/knowledgebase/primer-odnoformennoj-programmy/ Fri, 28 Aug 2020 11:32:33 +0000

Пример одноформенной программы.

Некоторые программисты при создании простого приложения (одна-две формы) стараются подавить вывод главного окна VFP и подменяют его формой в режиме Top-Level. Тут же начинаются вопросы - как мне показать меню, как мне показать статус-строку, как избавиться от деактивирования, как создать панель инструментов. Все проблемы отпадают, если НЕ отказываться от главного окна _screen. Пример показывает, как можно получить одноформенный интерфейс со всеми преимуществами главного окна. Версия VFP 9.0

Исправлено - пересмотрен код с тем, чтобы программа более соответствовала принципам ООП.

Автор: Влад Колосов

Автор публикации

не в сети 21 год

Влад Колосов

Комментарии: 0Публикации: 11Регистрация: 05-05-2005

(далее…)

]]> https://foxclub.ru/knowledgebase/sklonenie-fio-v-datelnom-padezhe-dlya-doverennostej-pochtovyh-perevodov-i-prochee-versiya-2-1/ Fri, 28 Aug 2020 11:32:33 +0000

Склонение ФИО в дательном падеже (для доверенностей, почтовых переводов и прочее). Версия 2.1

Данная задача впервые возникла у меня еще 02.12.1998 при написании модуля на интерпретаторе, написанном на Clipper (лишенном конструкции CASE), для формирования доверенностей. Позже задача всплыла уже на VFP для формирования имени получателя в дательном падеже в бланке почтового перевода. Благодаря ценным замечаниям waw и жы-шы 28.02.2007 г. создана исправленная версия 2.1

Что нового в версии 2.1 от 28.02.2007 г.:
1. Добавлена обработка грузинских (на "ИА","ИЯ") и некоторых французских фамилий-исключений
2. Особо обрабатывается склонение женских грузинских фамилий типа "ОкуджаВА" (по окончанию не отличается от русской)
3. Переписана обработка фамилий на "ОК" и "ЕК"
4. Список последних букв, встречающихся в типичных мужских именах существенно расширен практически до всех согласных
5. Расширен список № 1 иностранных фамилий, оканчивающихся на согласный звук, дополняющихся буквой "У" у мужчин,
однако он пока еще не полный

Что нового в версии 2.0 от 26.02.2007 г.:
1. Добавлена обработка мужских имен на "ья" (Илья)
2. Добавлена обработка мужского имени "Лев"
3. Более тщательно переписана обработка фамилий, заканчивающихся на "ец". Рассмотрены разные случаи...
4. Более четко анализируются фамилии на "ий" (-ому, -ему) и "ая" (-ой, -ей)
5. Исправлено склонение фамилии на -ия у мужчин и запрещено у женщин
6. Фамилии на -уа больше не склоняются
7. Особо обрабатываются фамилии исключения типа Бокий (-ию)
8. Повторяющиеся коды обработки мужского и женского имен помечены в виде отдельных блоков-процедур

Предупреждаю сразу - я не лингвист и рядом даже не стоял. Тем не менее рецензия грамотного лингвиста, включающая все советы и замечания по данной процедуре, была бы здесь очень желательна и уместна. Поэтому, ввиду отсутствия рецензии лингвиста на данном этапе, прошу вас за найденные ошибки сильно меня не ругать и не пинать, но все ваши ценные замечания с благодарностью приму! Хочу отметить, что приведенная ниже моя разработка, не смотря на все ее очевидные недостатки и достоинства, тем не менее, с 1998 года успешно работает и по сей день. Если не затруднит, то помогите советом по ее улучшению и сообщениями о найденных багах!

Теперь о том, что в коде не хватает:
1. Грамотная обработка встречающихся в России, но не русских по происхождению имен с "ОГЛЫ", "АТА" и т.п.
2. Перечень разнообразных имен и фамилии, а также разных "исключений" из правил формировался в основном
на базе телефонного справочника г.Тамбова. А Тамбов город маленький (всего 300 тыс. жителей), поэтому
наверняка вы придумаете еще пару редких склоняемых фамилий, которые для задачи склонения просьба огласить
ниже в комментариях для народного обсуждения...
3. Можно и нужно переписать функцию с использованием конструкции DO CASE и избавиться от многочисленных "IF"

      
  * Процедура GetDativ склонения ФИО получателя в дательном падеже (кому?).    
  * Версия 2.1 исправленная. Обсуждение проекта также здесь: gramota.ru    
  * Приведенный код может содержать ошибки, но Вы можете свободно использовать его на свой страх и риск.    
  * Тестирование продолжается. Присылайте и пишите свои отзывы и замечания. Спасибо всем откликнувшимся!    
  * Полезные ссылки:    
  * Особенности склонения фамилий и личных имен spravka.gramota.ru Отсюда взяты правила!    
  * Склонение личных имен в русском языке www.nazovite.ru    
  * Cловари русского языка для скачивания dicts.alphanet.org.ua    
  * По последней ссылке можно скачать в т.ч. словарь фамилий familii.exe 2,160,669 байт (7 миллионов фамилий)    
  * Книга: "Склонение фамилий и личных имен в русском литературном языке."    
  * Автор: Калакуцкая Л.П., Издание: М. ; Наука 1984г, Страниц: 221    
  * Книга: "Современные русские фамилии."    
  * Автор: Суперанская А.В., Суслова А.В. Издание: М. ; Наука 1981г, Страниц: 176    
  * На с. 120-122 последнего издания приводятся русские фамилии на "ой", "ий", "ый", без показателя (суффикса) "ск", как в фамилии КрамСКой)    
        
    LPARAM lFIO    
    LOCAL Fam, Ima, Otc, ManLstLt, WmnLstLt, ManFamEnd, IiFamEnd, WmnFamEnd, ;    
    	  Jud1FamEnd, Jud2FamEnd, Jud3FamEnd, FranceFam, LstLtIma, LstTwoIma, ;    
    	  LstLtFam, LstTwoFam, LstTwoOtc, Processed, Sex, lDefisPos    
        
    Fam = SubStr(lFIO,1,At(" ",lFIO)-1) && Фамилия, Имя, Отчетво    
    Ima = AfterAtNum(" ",lFIO,1)        && потребуются для процедуры склонения    
    Ima = SubStr(Ima,1,At(" ",Ima)-1)   && их в дательном падеже (кому?)    
    Otc = AfterAtNum(" ",lFIO,2)    
        
  * Список всех гласных букв русского алфавита (требуются для проверки букв, стоящих перед окончаниями сложных фамилий)    
    Vowels    = 'АЕЁИОУЭЫЮЯ'    
  * Список шипящих букв, необходимых для правильного склонения фамилий, заканчивающихся на эта буква + "ИЙ" или "АЯ"    
    Hissing   = 'ЧШЩ'    
  * Список последних букв, встречающихся в типичных мужских именах    
  * ГлеБ,СлаВ,ОлеГ,ЭдуарД(АльфреД),ГилядЖ,ЧингиЗ,МарК,МихаиЛ,ВадиМ,ИваН,ЮсуП,ВиктоР,БориС(ФеликС),ФилареТ(МараТ),ИосиФ,АристарХ    
    ManLstLt  = 'БВГДЖЗКЛМНПРСТФХ'    
  * Список последних букв, встречающихся в типичных женских именах    
    WmnLstLt  = 'АЯЬ'  && МаринА, АнастасиЯ, ИЯ (исключение), ЛюбовЬ    
  * Список окончаний мужских славянских (русских) фамилий. На -ов фамилии отцовы, на -ин фамилии мамины.    
    ManFamEnd = 'ЕВ ЁВ ИН ОВ ЫН'    
  * Список окончаний мужских славянских (русских) фамилий, заканчивающихся на 'Й'    
  * Чисто русские фамилии без "-ск-": БлагОЙ,ТолстОЙ,БоровОЙ,БереговОЙ,ЛановОЙ,БроневОЙ,ДикИЙ,ГладкИЙ,ЛучшИЙ,ПоперечнЫЙ,...    
  * Существует ряд воспринимаемых неоднозначно фамилии ТопчИЙ, ПобожИЙ, БокИЙ, РудОЙ и т.п.,    
  * как имеющих окончания "-ий","-ой", и склоняющихся как прилагательные (ТопчИЙ->ТопчЕМУ /жен.ТопчЕЙ/)    
  * или как с нулевым окончанием и склонением по образцу существительных (ТопчИЙ->ТопчИЮ /жен.ТопчИЙ/)    
    IiFamEnd  = 'ИЙ ОЙ ЫЙ'  && ГорькИЙ (ЖириновскИЙ), ДонскОЙ (МеньшОЙ, РябОЙ), ПоперечнЫЙ (СытЫЙ)    
  * Список окончаний женских славянских фамилий    
    WmnFamEnd = 'АЯ ВА НА'  && ПодольскАЯ, РубиноВА, КлепиниНА    
  * СПИСОК N 1 ИНОСТРАННЫХ ФАМИЛИЙ, ОКАНЧИВАЮЩИХСЯ НА СОГЛАСНЫЙ ЗВУК, ДОПОЛНЯЮЩИХСЯ БУКВОЙ "У" У МУЖЧИН    
  * БессарАБ,КостопрАВ,КимчАГ,ТихолАЗ,СобчАК(КолчАК,ПастернАК),ХейердАЛ,КипермАН(НеждАН),НовАР,НикитАС,БАХ,КАЦ,    
  * ВагнЕР(ГомЕР),СервантЕС,АврЕХ,СаркИЗ,ТютюннИК(ТаможеннИК),КИМ,ЭдИП,СабонИС,СмИТ,ЛифшИЦ,МаслиевИЧ,ЭЙН,ВоЛК,МаксвеЛЛ,    
  * БраМС,ЛантиНГ,ГельфаНД,СаркисьяНЦ,МорОЗ,НиксОН(КлинтОН),РуссОС,кОХ,РезерфоРД,ОленбеРГ,НаймаРК,ЭйнгоРН,ПреСС,ЭрнСТ,МокрозУБ,    
  * ЦингаУЗ,ШевчУК,СтУЛ,ЦикУН,МацкявичУС,БУШ,ЛинколЬН,ТизенголЬТ,ПелЬШ,БаландЮК,КЮН,ТретьЯК,ШамоЯН,МотЯС (пока 54 штуки)    
    Jud1FamEnd = 'АБ АВ АГ АЗ АК АЛ АН АР АС АХ АЦ ЕР ЕС ЕХ ИЗ ИК ИМ ИП ИС ИТ ИЦ ИЧ ЙН ЛК ЛЛ МС НГ НД НЦ ' +;    
    			 'ОЗ ОН ОС ОХ РД РГ РК РН СС СТ УБ УЗ УК УЛ УН УС УШ ЬН ЬТ ЬШ ЮК ЮН ЯК ЯН ЯС'    
  * СПИСОК СКЛОНЯЕМЫХ НЕ РУССКИХ ФАМИЛИЙ N 2, заканчивающихся на гласные звуки А->Е и Я->Е, с предшествующей согласной    
  * за исключением указанных ниже несклоняемых фамилий французского происхождения. Например:    
  * ДзюБА,ГулыГА(МаГА,искл.ДеГА),НегоДА,ДюДЯ,ГамалЕЯ,ГлинКА(ДейнеКА,искл.ЛюКА),ИгЛА,,ЗозуЛЯ,КайМА(КарМА),КуралеНЯ,    
  * МазеПА(искл.ПетиПА),ГализдРА(искл.ГамарРА),ОпРЯ,ТупоТА,ВаренуХА,ЛисиЦА,ОлеША    
    Jud2FamEnd = 'БА ГА ДА ДЯ ЕЯ КА ЛА ЛЯ МА НЯ ПА РА РЯ ТА ХА ЦА ША'  && ... все на "А" и "Я" (здесь можно не пополнять)    
  * СПИСОК НЕ РУССКИХ ФАМИЛИЙ N 3 (фамилии, заканчивающиеся на "А[Й]"->"Ю", "[Ь]"->"Ю" и "У[Й]"->"Ю" у мужчин)      
  * МаклАЙ,ЛебеДЬ,ДруЗЬ,КоваЛЬ(ВрубеЛЬ,ГогоЛЬ,РозентаЛЬ,ЧерчилЛЬ),ОболоНЬ,ХемингуЭЙ,ХалУЙ    
    Jud3FamEnd = 'АЙ ДЬ ЕЙ ЗЬ ЛЬ НЬ ЭЙ УЙ'  && ...  ЕЙ (кроме ВоробЕЙ, СоловЕЙ), а на "Ь" - любые (здесь можно не пополнять)    
  * Несклоняемые фамилии французского происхождения: ДеГА, ЛюКА, ДюМА (ТоМА, ФерМА), ПетиПА и ГамарРА и др.     
    FranceFam = 'ДЕГА ЛЮКА ДЮМА ТОМА ФЕРМА ПЕТИПА ГАМАРРА ЗОЛЯ ТРУАЙА' + Space(1)    
        
  * Для проведения анализа при склонении нам потребуются:    
    LstLtIma  = Upper(Right(Ima,1))  && Последняя буква имени    
    LstTwoIma = Upper(Right(Ima,2))  && Последние две буквы имени    
    LstLtFam  = Upper(Right(Fam,1))  && Последняя буква фамилии    
    LstTwoFam = Upper(Right(Fam,2))  && Последние две буквы фамилии    
    LstTwoOtc = Upper(Right(Otc,2))  && Последние две буквы отчества    
    Processed = 0  && Признак того, что фамилия и имя еще не обработаны    
    Sex = "?"  && Пол: "М" - мужской, "Ж" - женский, "?" - не определен достоверно.    
        
  * Синтаксический разбор мужских и женских отчеств    
  * И одновременная попытка определения пола человека    
  * Также однозначно просклоняем отчество. Здесь нет трудностей.    
    If LstTwoOtc=="ИЧ" &&Если отчество заканчивается на буквы "ИЧ"    
    	Otc = Proper(Otc)+"у"  && Upper(Left(Otc,1))+Lower(SubStr(Otc,2,Len(Otc)-1))+"у" (даже Савельичу!)    
    	Sex = "М"    
    EndIf    
    If Upper(Right(Otc,1))=="А" && Если отчество заканчивается на букву "А"    
    	Otc = Upper(Left(Otc,1))+Lower(SubStr(Otc,2,Len(Otc)-2))+"е"    
    	Sex = "Ж"    
    EndIf    
    If Sex=="?"    
   	* "оглы" (для мужчин) и "кызы" (для женщин) не склоняются и могут писаться    
   	* как через черточку, так и отдельно от первой части отчества (однозначно определяют пол),    
   	* то есть ФИО может состоять из 4 слов.    
    	If At("ОГЛЫ", Upper(lFIO))    
    		Sex = "М"    
    	Else    
    		If At("КЫЗЫ", Upper(lFIO))    
    			Sex = "Ж"    
    		EndIf    
    	EndIf    
    EndIf    
  * Кто знает как правильно обрабатывать "ОГЛЫ", допишите свой код здесь ...    
        
  * Синтаксический разбор мужских фамилий и имен    
  * Если фамилия заканчивается на "ЕВ","ЁВ","ИН","ОВ","ЫН","ИЙ","ОЙ","ЫЙ"    
    If At(LstTwoFam, ManFamEnd)<>0 OR At(LstTwoFam, IiFamEnd)<>0    
    	If Sex=="М"  && Если обрабатывается мужчина    
    		Processed = 1 && Признак того, что фамилия и имя уже обработаны    
   		* Обработка мужской фамилии, заканчавающихся на "Й" весьма разнообразен и полон исключений    
   		* ПодольскИЙ, ВИЙ, ОкИЙ, БокИЙ, ЭдипИЙ, ЛенскИЙ, ВислоБокИЙ, СинеокИЙ, ГлубокИЙ, ТолстОЙ, СытЫЙ, ВиднЫЙ    
    		If At(LstTwoFam, IiFamEnd)<>0    
   			* Подобрано эмпирически, что фамилии на "ИЙ" длиной от 1 до 6, должны склоняться как исключение "БокИЙ"    
   			* Причем не помогает анализ предшествующей гласной. Так [БокИЙ] -> [БокИЮ], но [ВислоБокИЙ] -> [ВислоБокОМУ]    
   			* Предполагаем, что короткой фамилии ЭнскИЙ не существует, иначе она будет у нас склоняться неверно!    
        
   			* ПРАВИЛО РУССКОГО ЯЗЫКА: Фамилии с формальным показателем (суффиксом) -ск- (ДостоевСКий) склоняются    
   			* в мужском и женском роде и во множественном числе как прилагательные.    
    			If (LstTwoFam == "ИЙ") AND Len(Fam) < 6  && ВИЙ, ОкИЙ, БокИЙ  ([ИЙ]->[ИЮ])    
    				Fam = Upper(Left(Fam,1))+Lower(SubStr(Fam,2,Len(Fam)-2))+"ю"    
    			Else    
   				* Необходимо обработать также случай [ИЙ]->[ЕМУ], помимо наиболее распространенного [ИЙ]->[ОМУ].    
   				* Например [ПодьячИЙ]->[ПодьячЕМУ], [ЛучшИЙ]->[ЛучшЕМУ], [СмотрящИЙ]->[СмотрящЕМУ]    
    				If At(Upper(SubStr(Fam,Len(Fam)-2,1)), Hissing)<>0    
    					Fam = Upper(Left(Fam,1))+Lower(SubStr(Fam,2,Len(Fam)-3))+"ему"    
    				Else    
    					Fam = Upper(Left(Fam,1))+Lower(SubStr(Fam,2,Len(Fam)-3))+"ому"    
    				EndIf    
    			EndIf    
    		Else  && Все типично русские мужские фамилии склоняются по этой строке:    
    			Fam = Proper(Fam)+"у"    
    		EndIf    
   		************************************    
   		* Процедура обработки мужского имени    
    		If At(LstLtIma, ManLstLt)<>0    
    			DO Case    
    				Case Upper(Ima) == "ЛЕВ"   && Если Лев, то "ЕВ"->"ЬВУ"    
    					Ima = Upper(Left(Ima,1))+"ьву"    
    				Case LstTwoIma == "ЕЛ"     && Если ПавЕЛ, то убираем коренную гласную "Е" ("ЕЛ"->"ЛУ")    
    					Ima = Upper(Left(Ima,1))+Lower(SubStr(Ima,2,Len(Ima)-3))+"лу"    
    				Otherwise    
    					Ima = Proper(Ima)+"у"  && Upper(Left(Ima,1))+Lower(SubStr(Ima,2,Len(Ima)-1))+"у" && ИваН    
    			EndCase    
    		Else    
    			DO Case    
    				Case (LstLtIma=="А") OR (LstLtIma=="Я")  && НикитА, КузьмА, ЛукА, ФомА, СаввА, ИлиЯ, ИльЯ    
    					Ima = Upper(Left(Ima,1))+Lower(SubStr(Ima,2,Len(Ima)-2))+"е"    
   				* АлексеЙ,АнатолиЙ,АндреЙ,АркадиЙ,АрсениЙ,АртемиЙ,ВалериЙ,ВасилиЙ,ВиталиЙ,ГеннадиЙ,ГеоргиЙ,ГригориЙ,ДмитриЙ,    
   				* ЕвгениЙ,ЗиновиЙ,ИннокентиЙ,ЛаврентиЙ,МатвеЙ,МефодиЙ,МоисеЙ,НиколаЙ,СергеЙ,ТимофеЙ,ФеодосиЙ,ЮлиЙ,ЮриЙ    
   				* ГаделЬ,ГэмилЬ,ДжалилЬ,РафаэлЬ,ИгорЬ,КамилЬ,НаилЬ,ЛазарЬ,РавилЬ,РаилЬ,РасилЬ,ФаилЬ,ХалилЬ,ШамилЬ,ЭмилЬ,ЯлилЬ,ЯмилЬ    
    				Case (LstLtIma=="Й") OR (LstLtIma=="Ь")    
    					Ima = Upper(Left(Ima,1))+Lower(SubStr(Ima,2,Len(Ima)-2))+"ю"    
    			EndCase    
    		EndIf    
   		************************************    
    	EndIf  && Sex=="М"    
    EndIf    
        
  * Синтаксический разбор женских фамилий и имен    
    If At(LstTwoFam, WmnFamEnd)<>0  && Если фамил. зак-тся на "АЯ","ВА","НА",проверим посл.букву имени    
    	If Sex=="Ж"  && Если обрабатывается женщина    
    		Processed = 1  && Признак того, что фамилия и имя уже обработаны    
   		* Обработка женской фамилии    
    		If LstTwoFam=="АЯ"  && Касат[АЯ->ОЙ], Гурцк[АЯ->ОЙ] но Лучш[АЯ->ЕЙ] и Цхак[АЯ->АЯ]    
   			* Необходимо обработать также случай [АЯ]->[ЕЙ], помимо наиболее распространенного [АЯ]->[ОЙ].    
   			* Например [ПодьячАЯ]->[ПодьячЕЙ], [ЛучшАЯ]->[ЛучшЕЙ], [СмотрящАЯ]->[СмотрящЕЙ]    
    			If At(Upper(SubStr(Fam,Len(Fam)-2,1)), Hissing)<>0    
    				Fam = Upper(Left(Fam,1))+Lower(SubStr(Fam,2,Len(Fam)-3))+"ей"    
    			Else    
    				If NOT(Upper(Right(Fam,4))=="АКАЯ")  && Грузинская фамилия типа "Цхакая"    
    					Fam = Upper(Left(Fam,1))+Lower(SubStr(Fam,2,Len(Fam)-3))+"ой"    
    				EndIf    
    			EndIf    
    		Else  && Самый массовый случай русских женских фамилий, например, КольцоВ[А->ОЙ]    
   			* Но сюда могут "закрасться" грузинские женские фамилии, типа "Окуджава", проверим дополнительно!    
    			If Upper(Right(Fam,3))=="АВА"    
    				Fam = Upper(Left(Fam,1))+Lower(SubStr(Fam,2,Len(Fam)-2))+"е"    
    			Else    
    				Fam = Upper(Left(Fam,1))+Lower(SubStr(Fam,2,Len(Fam)-2))+"ой"    
    			EndIf    
    		EndI    
   		*************************************************************    
   		* Процедура обработки женского склоняемого имени,    
   		* т.е. не такого как несклоняемые имена: Жаклин, Каринэ, Нелли и т.п.    
    		If At(LstLtIma, WmnLstLt)<>0  && Если имя зак-тся на "А","Я" или "Ь"    
    			If Upper(Right(Ima,2))=="ИЯ"  && Имя оканчивается на -ия,    
    				If Upper(Ima)=="ИЯ"    
   					* Мою супругу зовут "Ия" (в переводе с греч."Фиалка"). Это "особый" случай!    
    					Ima = "Ие"    
    				Else    
   					* Если имя не Ия, то -ия заменяется на -ии, например, [ЛилИЯ]->[ЛилИИ]    
    					Ima = Upper(Left(Ima,1))+Lower(SubStr(Ima,2,Len(Ima)-3))+"ии"    
    				EndIf    
    			Else    
    				If LstLtIma<>"Ь"  && СветланА, ДарьЯ    
    					Ima = Upper(Left(Ima,1))+Lower(SubStr(Ima,2,Len(Ima)-2))+"е"    
    				Else  && ЛюбовЬ, НинелЬ    
    					Ima = Upper(Left(Ima,1))+Lower(SubStr(Ima,2,Len(Ima)-2))+"и"    
    				EndIf    
    			EndIf    
    		EndIf    
   		*************************************************************    
    	EndIf  && Sex=="Ж"    
    EndIf    
        
  * Синтаксический разбор украинских и некоторых других фамилий и имен на 3-ем проходе    
    If Processed==0  && Если фамилия и имя еще не обработаны    
   	* Вполне достоверно утверждение с сайта community.livejournal.com,    
   	* что женские фамилии, оканчивающиеся на согласный звук и мягкий знак не склоняются, а фамилии,    
   	* оканчивающиеся на гласный звук склоняются не зависимо от пола, с учетом следующих двух правил:    
        
   	* ПРАВИЛО 1: Все фамилии, пишущиеся с е, э, и, ы, у, ю на конце, могут быть только несклоняемыми.    
   	* Таковы фамилии: ДоДЕ, МавроДИ(КеннеДИ,ГанДИ), АмаДУ, ОрджоникидЗЕ, ШабрИЕ, МеЙЕ, НасоновсКИ,    
   	* ЧаушесКУ, НобиЛЕ(КараджаЛЕ,ТарЛЕ), ЛюлЛИ(ШелЛИ,РуставеЛИ), НеедЛЫ, КаМЮ, АртмаНЕ,     
   	* АхвледиаНИ(МодильяНИ,ЧабукиаНИ), ЛаНУ, КорНЮ, НавОИ, ШОУ, ЛансеРЕ, ХараРИ(ГретРИ), НеРУ,    
   	* МегРЭ, МюсСЕ, ДебюсСИ(ГолсуорСИ), ГёТЕ(ОрбакайТЕ), ДжусойТЫ, МанЦУ, ГрамШИ, БоссЮЭ, ФурЬЕ,...    
        
   	* ПРАВИЛО 2: Все фамилии, оканчивающиеся на а, которому предшествуют гласные звуки (чаще всего у или и), несклоняемы:    
   	* Галуа, Моруа, Делакруа, Моравиа, Эриа, Эредиа, Гулиа.    
        
   	* ПРАВИЛО 3: Несклоняемы фамилии французского происхождения с ударением на конце: ЗоЛЯ, ТруаЙА.     
   	* Все прочие фамилии на "-я" склоняемы; таковы ГоловНЯ, ЗозуЛЯ, СырокомЛЯ, ГамалЕЯ, ГоЙЯ, ШенгелАЯ,    
   	* ДанелИЯ, БерИЯ, БакерИЯ, ИверИЯ.     
   	* Грузинские фамилии оказываются склоняемыми или несклоняемыми в зависимости от того, в каком виде    
   	* конкретная фамилия заимствована русским языком: фамилии на -ия склоняемы (Данелия), на -иа - несклоняемы (Гулиа).    
        
   	* Нерусский список N2 (Jud2FamEnd) фамилий, заканчивающихся на гласные звуки "А", "Я" с предшествующей согласной,    
   	* кроме исключений, состоящих из фамилий французского происхождения (FranceFam), таких как ФерМА и т.п.    
        
    	If ((LstLtFam=="А" AND LstTwoFam<>"ИА" AND LstTwoFam<>"УА") OR LstLtFam=="Я") AND ;    
    		LstLtFam<>"Е" AND LstLtFam<>"Э" AND LstLtFam<>"И" AND LstLtFam<>"Ы" AND LstLtFam<>"У" AND LstLtFam<>"Ю" AND ;    
    		At(Upper(Fam)+Space(1), FranceFam)=0    
        
    		If LstTwoFam=="ИЯ"  && Склоняем грузинские фамилии на "ИЯ". Нам это разрешает делать правило!    
    			Fam = Upper(Left(Fam,1))+Lower(SubStr(Fam,2,Len(Fam)-2))+"и"    
    		Else  && Склоняем остальные склоняемые фамилии, заканчивающиеся на гласную из списка Jud2FamEnd    
    			Fam = Upper(Left(Fam,1))+Lower(SubStr(Fam,2,Len(Fam)-2))+"е"    
    		EndIf    
    	EndIf    
    	DO Case    
    		Case Sex=="М"  && Обрабатываем мужчину    
    			&& Нерусский список N1 (Jud1FamEnd)    
    			If At(LstTwoFam, Jud1FamEnd)<>0    
    				Fam = Proper(Fam)+"у"  && Upper(Left(Fam,1))+Lower(SubStr(Fam,2,Len(Fam)-1))+"у"    
    			EndIf    
    			&& Нерусский список N3 (Jud3FamEnd)    
    			If Upper(Fam)=="СОЛОВЕЙ" OR Upper(Fam)=="ВОРОБЕЙ"  && СОЛОВЕЙ, ВОРОБЕЙ (исключение)    
    				Fam = Upper(Left(Fam,1))+Lower(SubStr(Fam,2,Len(Fam)-3))+"ью"    
    			Else    
    				&& Список Jud3FamEnd ++    
    				If LstTwoFam=="АЙ" OR LstTwoFam=="ЕЙ" OR LstTwoFam=="УЙ" OR LstTwoFam=="ЭЙ" OR LstLtFam=="Ь"    
    					Fam = Upper(Left(Fam,1))+Lower(SubStr(Fam,2,Len(Fam)-2))+"ю"    
    				EndIf    
    			EndIf    
    			If LstTwoFam=="ЕЦ"    
   			    * Необходимо определять согласная или гласная буква находится перед "ЕЦ"    
   			    * МогилеВец, БоРец, КоБец (подвид 1 с предшествующим согласным звуком) [ЕЦ]->[ЦУ],    
   			    * БОец, КоломИец (подвид 2 с предшествующим гласным звуком /Vowels/)   [ЕЦ]->[ЙЦУ]    
    				If At(Upper(SubStr(Fam,Len(Fam)-2,1)), Vowels)=0    
    					Fam = Upper(Left(Fam,1))+Lower(SubStr(Fam,2,Len(Fam)-3))+"цу"    
    				Else    
    					Fam = Upper(Left(Fam,1))+Lower(SubStr(Fam,2,Len(Fam)-3))+"йцу"    
    				EndIf    
    			EndIf    
   			* КлюченОК,КовалЕнОК,МАзОК,МазурЕнОК,МазУрОК,МакарЕнОК,МакеЕнОК,МалашОнОК,МаскОлОК [ОК->КУ]    
   			* БаЙрОК[+У],БайЧтОК[+У],БлОК[+У],КоЛеОК[+У],КоЛтОК[+У],КосТлОК[+У],МаЛоОК[+У],ТененШтОК[+У],ТеСмОК[+У]    
   			* КоРшОК (МакАшОК, МалАшОК, ТерЕшОК, ТимОшОК) [ОК->КУ] (перед ОК стоит шипящая Ш)    
    			If LstTwoFam=="ОК"    
   				* "ОК" склоняем только у мужчин. Могут быть 2 случая:    
   				* 1 случай: КлюченОК [ОК->КУ]    
   				* 2 случай: БлОК [ОК->ОКУ]    
   				* Подмеченная закономерность (попробуйте опровергнуть - вряд ли удастся!):    
   				* Если 3-я с конца буква фамилии на "ОК" есть буква "Ш" или 4-я с конца буква гласная, то [ОК->КУ]    
    				If Len(Fam)>3 AND (Upper(SubStr(Fam,Len(Fam)-3,1))=="Ш" OR ;    
    								   At(Upper(SubStr(Fam,Len(Fam)-4,1)), Vowels)<>0)    
    					Fam = Upper(Left(Fam,1))+Lower(SubStr(Fam,2,Len(Fam)-3))+"ку"    
    				Else  && [ОК->ОКУ]    
    					Fam = Proper(Fam)+"у"    
    				EndIf    
    			EndIf    
   			* "ЕК" склоняем только у мужчин.    
   			* ЗДЕСЬ МЕНЯ ТЕРЗАЮТ СИЛЬНЫЕ СОМНЕНИЯ, НО ВЕСЬМА ПОХОЖЕ НА ТО, ЧТО ВЕЗДЕ ДЕЛАТЬ НУЖНО ИМЕННО ТАК:    
   			* КраснОщЕК[+У],КрЯчЕК[+У]. (?) ВанИчЕК[+У],ВасИлЕК[+У],КрЮчЕК[+У],МалЫшЕК[+У] (?)    
    			If LstTwoFam=="ЕК"    
    				Fam = Proper(Fam)+"у"    
    			EndIf    
   			************************************    
   			* Процедура обработки мужского имени    
    			If At(LstLtIma, ManLstLt)<>0    
    				DO Case    
    					Case Upper(Ima) == "ЛЕВ"   && Если Лев, то "ЕВ"->"ЬВУ"    
    						Ima = Upper(Left(Ima,1))+"ьву"    
    					Case LstTwoIma == "ЕЛ"     && Если ПавЕЛ, то убираем коренную гласную "Е" ("ЕЛ"->"ЛУ")    
    						Ima = Upper(Left(Ima,1))+Lower(SubStr(Ima,2,Len(Ima)-3))+"лу"    
    					Otherwise    
    						Ima = Proper(Ima)+"у"  && Upper(Left(Ima,1))+Lower(SubStr(Ima,2,Len(Ima)-1))+"у" && ИваН    
    				EndCase    
    			Else    
    				DO Case    
    					Case (LstLtIma=="А") OR (LstLtIma=="Я")  && НикитА, КузьмА, ЛукА, СаввА, ИлиЯ, ИльЯ    
    						Ima = Upper(Left(Ima,1))+Lower(SubStr(Ima,2,Len(Ima)-2))+"е"    
   					* АлексеЙ,АнатолиЙ,АндреЙ,АркадиЙ,АрсениЙ,АртемиЙ,ВалериЙ,ВасилиЙ,ВиталиЙ,ГеннадиЙ,ГеоргиЙ,ГригориЙ,ДмитриЙ,    
   					* ЕвгениЙ,ЗиновиЙ,ИннокентиЙ,ЛаврентиЙ,МатвеЙ,МефодиЙ,МоисеЙ,НиколаЙ,СергеЙ,ТимофеЙ,ФеодосиЙ,ЮлиЙ,ЮриЙ    
   					* ГаделЬ,ГэмилЬ,ДжалилЬ,РафаэлЬ,ИгорЬ,КамилЬ,НаилЬ,ЛазарЬ,РавилЬ,РаилЬ,РасилЬ,ФаилЬ,ХалилЬ,ШамилЬ,ЭмилЬ,ЯлилЬ,ЯмилЬ    
    					Case (LstLtIma=="Й") OR (LstLtIma=="Ь")    
    						Ima = Upper(Left(Ima,1))+Lower(SubStr(Ima,2,Len(Ima)-2))+"ю"    
    				EndCase    
    			EndIf    
   			************************************    
    		Case Sex=="Ж"  && Обрабатываем женщину    
   			* Не русскую женскую фамилию склонять не надо    
   			*************************************************************    
   			* Процедура обработки женского склоняемого имени,    
   			* т.е. не такого как несклоняемые имена: Жаклин, Каринэ, Нелли и т.п.    
    			If At(LstLtIma, WmnLstLt)<>0  && Если имя зак-тся на "А","Я" или "Ь"    
    				If Upper(Right(Ima,2))=="ИЯ"  && Имя оканчивается на -ия (ЛилИЯ),    
    					If Upper(Ima)=="ИЯ"    
   						* Мою супругу зовут "Ия" (в переводе с греч."Фиалка"). Это "особый" случай!    
    						Ima = "Ие"    
    					Else    
   						* Если имя не Ия, то -ия заменяется на -ии, например, [ЛилИЯ]->[ЛилИИ]    
    						Ima = Upper(Left(Ima,1))+Lower(SubStr(Ima,2,Len(Ima)-3))+"ии"    
    					EndIf    
    				Else    
    					If LstLtIma<>"Ь"  && СветланА, ДарьЯ    
    						Ima = Upper(Left(Ima,1))+Lower(SubStr(Ima,2,Len(Ima)-2))+"е"    
    					Else  && ЛюбовЬ, НинелЬ    
    						Ima = Upper(Left(Ima,1))+Lower(SubStr(Ima,2,Len(Ima)-2))+"и"    
    					EndIf    
    				EndIf    
    			EndIf    
   			*************************************************************    
    	EndCase    
    EndIf  && Если фамилия и имя еще не обработаны    
        
  * Обработка фамилий пишущихся через дефис (Миклухо-Маклай, Кох-Татаренко, ...)    
    lDefisPos = At("-", Fam)    
    If lDefisPos > 1    
    	Fam = Left(Fam, lDefisPos) + ;    
    		  Upper(SubStr(Fam, lDefisPos+1,1)) + ;    
    		  Right(Fam, Len(Fam)-lDefisPos-1)    
    EndIf    
        
  * Формируем фамилию, имя и отчество в дательном падеже    
    Return AllT(Fam + Space(1) + Ima + Space(1) + Otc)    
      
  Внутри используется вызов функции AfterAtNum, возвращающей остаток строки после искомого вхождения подстроки, которая была в Clipper, но отсутствует в VFP. Я переписал ее для VFP и привожу ниже. В принципе, по желанию, ее можно заменить замечательными VFP-функциями GetWordCount и GetWordNum  
      
   * AFTERATNUM(,,<[nCounter]>,<[nIgnore]> --> cAfterString      
   * Возвращает остаток строки после искомого вхождения подстроки.      
   * cSearchFor - символьный параметр , задающий искомую подстроку.      
   * cString    - символьный параметр , задающий обрабатываемую подстроку.      
   * nCounter   - числовой параметр , задающий номер искомого вхождения cSearchFor в cString.      
   * nCounter=0 - осуществляется поиск последнего вхождения.      
   * nIgnore    - числовой параметр , задающий количество символов с начала строки cString,      
   *              исключаемых из поиска.      
   * nIgnore=0 при отсутствии исключения символов из поиска.      
            
      LPARAM cSearchFor, cString, nCounter, nIgnore      
      LOCAL cAfterString, ch, cw      
            
      if empty(nCounter)      
        nCounter = 0          && поиск последнего вхождения      
      endif      
            
      if empty(nIgnore)      
        nIgnore = 0           && отсутствие исключения символов из поиска      
      endif      
            
      ch = 0      
      if nIgnore<>0           && если не игнорировать первые символы      
        ch = 1      
        str = right(cString,len(cString)-nIgnore)      
      endif      
      if nCounter<>0          && если искать вхождение номер nCounter      
        do while nCounter<>0      
          cw = at(cSearchFor,cString)      
          ch = cw      
          nCounter = nCounter-1      
          if nCounter>0      
            ch = cw      
            cString = right(cString,len(cString)-len(cSearchFor)-ch+1)      
          endif      
        enddo      
        if ch<>0      
          cString = right(cString,len(cString)-len(cSearchFor)-ch+1)      
          cAfterString = cString      
        else      
          cString = ''      
          cAfterString = cString      
        endif      
      else                    && nCounter==0 - поиск последнего вхождения      
        cw = at(cSearchFor,cString)      
        ch = cw      
        if ch = 0      
          cString = ''      
        endif      
        do while ch<>0      
          cString = right(cString,len(cString)-len(cSearchFor)-ch+1)      
          cw = at(cSearchFor,cString)      
          ch = cw      
        enddo      
        cAfterString = cString      
      endif      
            
      Return cAfterString

Автор: rvc44

Автор публикации

не в сети 20 лет

rvc44

Комментарии: 0Публикации: 7Регистрация: 06-12-2005

(далее…)

]]> https://foxclub.ru/knowledgebase/rusifikator-ide-visual-foxpro-9-0-sp2/ Fri, 28 Aug 2020 11:32:33 +0000

Русификатор IDE Visual Foxpro 9.0 SP2

Русский интерфейс меню разработчика SP2 VFP9.0 Для тех, кто скачал очередной релиз Senda Feb 2007

Ссылка на страницу в конференции http://forum.foxclub.ru/read.php?29,257423

Автор: oav

Автор публикации

не в сети 20 лет

oav

Комментарии: 0Публикации: 4Регистрация: 27-05-2006

(далее…)

]]> https://foxclub.ru/knowledgebase/programma-dlya-raboty-s-ms-agent/ Fri, 28 Aug 2020 11:32:33 +0000

Программа для работы с MS Agent

Демонстрационная версия программы для создания VFP, VBS, HTML скриптов с использованием технологии MS Agent. Программа демонстрирует возможности речевых движков Digalo Rus и TTS 3000. Содержит краткий справочник по MS Agent и много разного.... Для VFP 9!!!!

Автор: s66

Автор публикации

не в сети 19 лет

s66

Комментарии: 0Публикации: 4Регистрация: 09-02-2007

(далее…)

]]> https://foxclub.ru/knowledgebase/priem-peredacha-s-proverkoj-nalichiya-fajlov-po-ftp/ Fri, 28 Aug 2020 11:32:33 +0000

Прием/передача (с проверкой наличия) файлов по FTP.

По многочисленным просьбам выкладываю откорректированное решение, взятое с этого же форума. Позволяет проверять наличие файлов по маске в указанном каталоге на FTP, скачивать и закачивать файлы на FTP.

Автора, к сожалению, не помню, так что заранее прошу извинить.
Данное решение не зависит от set comp on/off.
Позволяет проверять наличие файлов по маске в указанном каталоге на FTP, скачивать и закачивать файлы на FTP.

Автор: Mouse_White

Автор публикации

не в сети 25 лет

Mouse_White

Комментарии: 0Публикации: 1Регистрация: 10-05-2001

(далее…)

]]> https://foxclub.ru/knowledgebase/toolbar-iz-kotoroj-proishodit-zapusk-programm_x000d_-winword-exe_x000d_-excel-exe_x000d_-calc-exe_x000d_-kalendar-ezhednevnik_x000d_/ Wed, 16 Sep 2020 16:15:38 +0000

ToolBar из которой происходит запуск программ: winword.exe, excel.exe, calc.exe, Календарь/Ежедневник

Запуск Word, Excel, Calc, Календарь/Ежедневник из панельки ToolBar

Автор: oav

Автор публикации

не в сети 20 лет

oav

Комментарии: 0Публикации: 4Регистрация: 27-05-2006

(далее…)

]]> https://foxclub.ru/knowledgebase/funkczii-dlya-proverki-ustanovleno-li-wordexcel-na-kompyutere-polzovatelya/ Fri, 28 Aug 2020 11:32:33 +0000

Функции для проверки установлено ли (word,excel, …) на компьютере пользователя

написаны для скрытия кнопок в тоолбаре при его инициализации если программа отсутствует

&& Функции для проверки - установлено ли (word,excel, ...) на компьютере пользователя
&& написано для скрытия кнопок в тоолбаре при его инициализации если программа отсутствует.
&& 16-01-2007 Автор: Омеличев А.В. написаны по материалам конференции www.foxclub.ru
&& если будут комментарии, то напишите свои отзывы

[code] SET TALK OFF CLEAR ? 'WordExists() = ' ?? WordExists() ? 'ExcelExists() = ' ?? ExcelExists() ? 'OfficeReg("Word") = ' ?? OfficeReg("Word") ? 'OfficeReg("EXCEL") = ' ?? OfficeReg("EXCEL") ? 'OfficeReg("aCCeSS") = ' ?? OfficeReg("aCCeSS") ? 'OfficeReg("publisher") = ' ?? OfficeReg("publisher") ? 'OfficeReg("poWerPOint") = ' ?? OfficeReg("poWerPOint") ? ? 'OfficeReg("MyProg") = ' ?? OfficeReg("MyProg") ?? ' - ошибка, заданый параметр lcOfficeType не входит в число искомых' ? ? 'OfficeReg(1234) = ' ?? OfficeReg(1234) ?? ' - ошибка, заданый параметр lcOfficeType не текст' ? ? 'Перечень ошибок возвращаемых функцией OfficeReg()' ? 'RETURN -1 - ошибка, заданый параметр lcOfficeType не текст' ? ? 'RETURN -2 - ошибка, заданый параметр lcOfficeType не входит в число искомых' ? ? 'RETURN -3 - ошибка OLE или в реестре нет ключа для заданного параметра' ? ' на компьютере пользователя данная программа не установлена' ? ? 'RETURN 0 - в реестре ключ найден, но используется программа не Microsoft Office' ? ? 'RETURN 1 - Ок. ключ реестре найден и используется программа Microsoft Office' FUNCTION WordExists PRIVATE poReg1, poReg2,poShell TRY poShell = CreateObject("WScript.Shell") poReg1 = poShell.RegRead("HKEY_CLASSES_ROOT.doc") poReg2 = poShell.RegRead("HKEY_CLASSES_ROOT.docContent Type") CATCH EXIT ENDTRY IF (VARTYPE(poReg1) = "C" .AND. !ISNULL(poReg1)) .AND.; (VARTYPE(poReg2) = "C" .AND. !ISNULL(poReg2)) RETURN IIF(("WORD" $ UPPER(poReg1)) .AND.; ("WORD" $ UPPER(poReg2)),.T.,.F.) ELSE RETURN .F. ENDIF ENDFUNC FUNCTION ExcelExists PRIVATE poReg1, poReg2, poShell TRY poShell = CreateObject("WScript.Shell") poReg1 = poShell.RegRead("HKEY_CLASSES_ROOT.xls") poReg2 = poShell.RegRead("HKEY_CLASSES_ROOT.xlsContent Type") CATCH EXIT ENDTRY IF (VARTYPE(poReg1) = "C" .AND. !ISNULL(poReg1)) .AND.; (VARTYPE(poReg2) = "C" .AND. !ISNULL(poReg2)) RETURN IIF(("EXCEL" $ UPPER(poReg1)) .AND.; ("EXCEL" $ UPPER(poReg2)),.T.,.F.) ELSE RETURN .F. ENDIF ENDFUNC FUNCTION OfficeReg PARAMETERS lcOfficeType PRIVATE poReg1, poReg2, poShell, pcExtension IF VARTYPE(lcOfficeType) = "C" .AND. !ISNULL(lcOfficeType) lcOfficeType = UPPER(ALLTRIM(lcOfficeType)) DO CASE CASE lcOfficeType == "WORD" pcExtension = "doc" CASE lcOfficeType == "EXCEL" pcExtension = "xls" CASE lcOfficeType == "ACCESS" pcExtension = "mdb" CASE lcOfficeType == "POWERPOINT" pcExtension = "ppt" CASE lcOfficeType == "PUBLISHER" pcExtension = "pub" OTHERWISE RETURN -2 && ошибка, заданый параметр lcOfficeType не входит в число искомых ENDCASE TRY poShell = CreateObject("WScript.Shell") poReg1 = poShell.RegRead("HKEY_CLASSES_ROOT.&pcExtension") poReg2 = poShell.RegRead("HKEY_CLASSES_ROOT.&pcExtensionContent Type") CATCH EXIT ENDTRY IF (VARTYPE(poReg1) = "C" .AND. !ISNULL(poReg1)) .AND.; (VARTYPE(poReg2) = "C" .AND. !ISNULL(poReg2)) RETURN IIF((lcOfficeType $ UPPER(poReg1)) .AND.; (lcOfficeType $ UPPER(poReg2)),1,0) ELSE RETURN -3 && ошибка OLE или в реестре нет ключа для заданного параметра && на компьютере пользователя данная программа не установлена' ENDIF ELSE RETURN -1 && ошибка, заданый параметр lcOfficeType не текст ENDIF ENDFUNC [/code]

Автор: oav

Автор публикации

не в сети 20 лет

oav

Комментарии: 0Публикации: 4Регистрация: 27-05-2006

(далее…)

]]> https://foxclub.ru/knowledgebase/kross-zapros-shahmatnyj-otchyot/ Fri, 28 Aug 2020 11:32:33 +0000

Кросс-запрос (“шахматный” отчёт)

"Потыркавшись" немного с кросс-запросами в foxpro, я не разобрался в них, и предпочёл написать свой алгоритм. В представленном примере из 2-х столбцов (Kol и MagZametka), а также трёх вариантов записей('Магазин Огонек', 'Магазин Белочка', 'Магазин Стрелочка') генерируются 2х3=6 столбцов. Удобно для экспорта в Excel, просмотра в Reportе, и т.п. В "девятке" работает, в "шестёрке" ругается на ascan, в других не проверял... Вполне возможно, я заново "изобретаю велосипед", но красивого решения не знаю...

DO exmaple_make_chesstable

procedure exmaple_make_chesstable

local crossfields_to_multiple,cross_count_to_multiple

CREATE CURSOR _Before(Tovar_id n(5), Tovar_n c(40), Marka c(10), Magaz c(20), kol n(8), MagZametka c(40))
INSERT INTO _before VALUES (1, 'Шоколад', 'горьк.', 'Магазин Огонек', 5, 'скоро испортится')
INSERT INTO _before VALUES (1, 'Шоколад', 'горьк.', 'Магазин Белочка', 10, 'только привезли')
INSERT INTO _before VALUES (1, 'Шоколад', 'горьк.', 'Магазин Стрелочка', 3, 'быстро кончается')
INSERT INTO _before VALUES (3, 'Поросенок', 'пряничн.', 'Магазин Огонек', 2, 'срок хранения 3 дня')
INSERT INTO _before VALUES (3, 'Поросенок', 'пряничн.', 'Магазин Стрелочка', 70, 'надо ещё подвезти "девочек"')
INSERT INTO _before VALUES (2, 'Шоколад', 'сладк.', 'Магазин Огонек', 15, 'отложили на Новый год')
INSERT INTO _before VALUES (2, 'Шоколад', 'сладк.', 'Магазин Белочка', 4, '—')
INSERT INTO _before VALUES (2, 'Шоколад', 'сладк.', 'Магазин Стрелочка', 3, 'не пользуется спросом')
INSERT INTO _before VALUES (4, 'Сливочные колбаски', '—', 'Магазин Белочка', 4, 'очень калорийны')
INSERT INTO _before VALUES (5, 'Желе', 'Plaza', 'Магазин Белочка', 20, '—')
INSERT INTO _before VALUES (5, 'Желе', 'Plaza', 'Магазин Стрелочка', 22, 'Для руководства, (с коноплей)')

browse last nowait

cross_count_to_multiple=2 && Количество полей которые исчезнут, но раздробятся на несколько
dimension crossfields_to_multiple[cross_count_to_multiple,3]
crossfields_to_multiple[1,1]='Kol'
crossfields_to_multiple[1,2]='_kol'
crossfields_to_multiple[1,3]='0'
crossfields_to_multiple[2,1]='MagZametka'
crossfields_to_multiple[2,2]='_zam'
crossfields_to_multiple[2,3]='" "'

DO make_chesstable_from_duplicate_records WITH crossfields_to_multiple,'_Before','Magaz','Mag_','Tovar_id','_After'
* Параметры: crossfields_to_multiple - массив с названиями полей, которые сами исчезнут,
* но раздробятся на поля вида: Prefix_1_FieldA, Prefix_1_FieldB, ..., Prefix_2_FieldA, Prefix_2_FieldB, ...,
* ...., Prefix_N_FieldA, Prefix_N_FieldB, ... ;
* 1-й столбец - имя поля, которое исчезнет, но раздробится на несколько,
* 2-й столбец - постфикс("напоминалка" - из каких полей создавались столбцы),
* 3-й столбец - пустые значения, если нет данных,
*
* далее (здесь через точку с запятой): Исходная таблица ;
* поле, определяющее N возможных вариантов - от его distinct значений зависит количество FieldA, FieldB, ... FieldZ ;
* префикс результирующего поля ("напоминалка" - из значений какого поля создавались столбцы) ;
* уникальный индекс записи результирующей таблицы, долен быть обязательно ;
* алиас результирующей таблицы

browse last nowait
endproc

procedure make_chesstable_from_duplicate_records

LPARAMETERS crossfields_to_multiple,cross_sourcetable,crosscolumns_field,cross_prefix, ;
cross_uniqueindex,cross_lastoutput_alias

local n,m,p,i,j,k,l, ;
cross_strucfields,cross_cur_fieldnames,crossfields_list,crossfields_list_enum, ;
cross_output_alias,cross_ordercondition,cross_unique_alias

cross_unique_alias=SYS(2015)

free_alias(cross_unique_alias)
select distinct &cross_sourcetable..&crosscolumns_field from &cross_sourcetable ;
into cursor &cross_unique_alias

if alen(crossfields_to_multiple,1)*reccount(cross_unique_alias)>240
messagebox('Превышен лимит столбцов',16,'')
else
SELECT(cross_unique_alias)
n=0
scan
n=n+1
cross_cur_aliasname=cross_unique_alias+'_'+alltrim(str(n))
free_alias(cross_cur_aliasname)

select * from &cross_sourcetable ;
where &cross_sourcetable..&crosscolumns_field=&cross_unique_alias..&crosscolumns_field ;
into cursor &cross_cur_aliasname
endscan

p=0
dimension cross_strucfields[1]
m=afields(cross_strucfields,(cross_sourcetable))
for i=1 to m
if (ascan(crossfields_to_multiple,cross_strucfields[i,1],1,alen(crossfields_to_multiple,1),1,7)=0) and ;
(upper(crosscolumns_field)#upper(cross_strucfields[i,1]))
p=p+1
dimension crossfields_list[p]
crossfields_list[p]=cross_strucfields[i,1]
endif
next

dimension cross_cur_fieldnames[ALEN(crossfields_to_multiple,1)]
for i=1 to ALEN(crossfields_to_multiple,1)
cross_cur_fieldnames[i]=crossfields_to_multiple[i,1]
next

cross_cur_aliasname1=cross_unique_alias+'_1'
for i=2 to n
cross_cur_aliasname2=cross_unique_alias+'_'+alltrim(str(i))
crossfields_list_enum=''
for j=1 to p
crossfields_list_enum=crossfields_list_enum+ ;
'IIf(ISNULL('+cross_cur_aliasname1+'.'+crossfields_list[j]+'),'+ ;
+cross_cur_aliasname2+'.'+crossfields_list[j]+','+ ;
cross_cur_aliasname1+'.'+crossfields_list[j]+') as '+ ;
crossfields_list[j]+','
next

for k=1 to ALEN(crossfields_to_multiple,1)

for l=1 to n
if l>i
crossfields_list_enum=crossfields_list_enum+ ;
crossfields_to_multiple[k,3]+' as '+cross_prefix+alltrim(str(l))+crossfields_to_multiple[k,2]+','
endif
if l ]]> https://foxclub.ru/knowledgebase/performancecounter-i-threadtime/ Fri, 28 Aug 2020 11:32:33 +0000

PerformanceCounter и ThreadTime

Имерение времени исполнения кода с высокой степенью точности измерени времени потока

Библиотека Timers содеожит два класса PerfomanceCounter и ThreadTime.

PerfomanceCounter для высокоточного измерения коротких по времени операций
или для замены функции seconds() на более точную, а
ThreadTime для измерения времени исполнения данного потока.

Автор: AlGU

Автор публикации

не в сети 20 лет

AlGU

Комментарии: 0Публикации: 1Регистрация: 10-01-2006

(далее…)

]]> https://foxclub.ru/knowledgebase/svorachivanie-okna-foxpro-v-trej/ Fri, 28 Aug 2020 11:32:33 +0000

Сворачивание окна FoxPro в Трэй

При нажатии на кнопку "Свернуть-Минимизировать", окно Фокспро исчезает, а в трэе появляется иконка. При клике на иконке в трэе окно востанавливается а иконка исчезает. Использует библиотечку systray.dll! Автор библиотеки Sidorov Leonid за что ему огромное спасибо!!!

[code] PUBLIC oHandler DECLARE INTEGER _turnwindow IN systray.DLL; INTEGER HWND, INTEGER mode, STRING apps, STRING ico _SCREEN.ADDPROPERTY('prev_wstate',_SCREEN.WINDOWSTATE) oHandler=NEWOBJECT("myhandler") BINDEVENT(_SCREEN,"Resize",oHandler,"myresize") DEFINE CLASS myhandler AS CUSTOM ********** PROCEDURE myRESIZE IF _SCREEN.WINDOWSTATE = 1 _SCREEN.WINDOWSTATE = _SCREEN.prev_wstate = _turnwindow(_VFP.HWND, 1, _SCREEN.CAPTION ,[]) = _turnwindow(_VFP.HWND, 0, _SCREEN.CAPTION,[face01.ico]) ELSE _SCREEN.prev_wstate = _SCREEN.WINDOWSTATE ENDIF ENDPROC ENDDEFINE [/code]

Автор: serpikva

Автор публикации

не в сети 20 лет

serpikva

Комментарии: 0Публикации: 1Регистрация: 09-07-2006

(далее…)

]]> https://foxclub.ru/knowledgebase/poluchenie-servisnyh-soobshhenij-ot-mssql-server-posredstvom-ado/ Fri, 28 Aug 2020 11:32:33 +0000

Получение сервисных сообщений от MSSQL Server посредством ADO

Пример иллюстрирует возможность получения сервисных сообщений от MSSQL Server.Для наглядности использования данной возможности рассмотрен процесс визуализации BACKUP происходящего на сервере с помощью класса прогрессбар

Пример иллюстрирует возможность получения сервисных сообщений от MSSQL Server.Для наглядности использования данной возможности рассмотрен процесс визуализации BACKUP происходящего на сервере с помощью класса прогрессбар(переработанного варианта из примеров прилагающихся к фоксу)из VFP
Для тестирования необходимо прописать свои параметры сервера в Sample.prg в частности строки:
_lcServer = "MYSERVERNAME" && имя сервера
_lcBase = "MYBASENAME" && имя БД на сервере
_lcUser = "USERNAME" && имя пользователя
_lcPass = "USERPASSWORD" && пароль доступа пользователя

_lcPathToFile = "D:MYBASENAME.bak" && имя архивной копии БД (вместо MYBASENAME -
&& имя БД)
Само собой разумеется,пользователь должен иметь соответствующие права на сервере
Авторы:Цингауз Алексей(MSFT)
Ганорский Дмитрий
Гринько Сергей
Тестировалась на VFP 9SP1;MSSQL Server 2005 Express;MSSQL Server 2000

Автор: Ganordi

Автор публикации

не в сети 21 год

Ganordi

Комментарии: 0Публикации: 1Регистрация: 01-01-2005

(далее…)

]]> https://foxclub.ru/knowledgebase/izmenenie-kodovoj-straniczy/ Sun, 30 Aug 2020 19:01:20 +0000

Изменение кодовой страницы

Несколько измененная версия утилиты cpzero.prg. Добавлен графический интерфейс с возможностью просмотра и изменения кодовой страницы файлов определенного типа в выбранном каталоге.

Изменение кодовой страницы

Форма была разработана, когда пришлось переконвертировать большое количество файлов из одной кодовой страницы в другую. Файлы были разных форматов и лежали в разных каталогах.
Вот и получилось, то что получилось

Автор: Yuri Abramenkov

Автор публикации

не в сети 2 месяца

Joys

Комментарии: 2Публикации: 177Регистрация: 25-06-2000

(далее…)

]]> https://foxclub.ru/knowledgebase/kopirovanie-svojstv-i-metodov-odnogo-obekta-na-drugoj/ Fri, 28 Aug 2020 11:32:32 +0000

Копирование свойств и методов одного объекта на другой

это типа Кисточки(копировать по образцу) в Екселе

Обновлено данное решение на сколько я меня хватило фантазии пр итестировании все работает краткое описание внутри архива

Автор: Vladimir_Knyr

Автор публикации

не в сети 22 года

Vladimir_Knyr

Комментарии: 0Публикации: 11Регистрация: 15-12-2003

(далее…)

]]> https://foxclub.ru/knowledgebase/zamena-standartnogo-browse-dlya-fox-for-dos/ Fri, 28 Aug 2020 11:32:32 +0000

Замена стандартного Browse для FOX for DOS

Функция для замены стандартной команды Browse для FOX v.2.0-2.6 В ней задаются реакции на кнопки ENTER, ESC, INS, DEL, F4, ALT+F4

Может кому и сгодится.
Функция для замены стандартной команды Browse для FOX v.2.0-2.6
Файлы для примера primer.prg и otp.dbf
Сама функция -menudbf.prg
В ней задаются реакции на кнопки ENTER, ESC, INS, DEL, F4, ALT+F4
Когдато была написана для программы зарплата.

Автор: Yura_kiev

Автор публикации

не в сети 21 год

Yura_kiev

Комментарии: 0Публикации: 1Регистрация: 09-02-2005

(далее…)

]]> https://foxclub.ru/knowledgebase/snova-toolbar-dlya-bystrogo-dostupa-k-oknam/ Fri, 28 Aug 2020 11:32:32 +0000

Снова toolbar для быстрого доступа к окнам.

Всплывающий, без постоянно тикающего таймера.

Автор: baser

Автор публикации

не в сети 20 лет

baser

Комментарии: 0Публикации: 1Регистрация: 07-10-2006

(далее…)

]]> https://foxclub.ru/knowledgebase/winbar/ Fri, 28 Aug 2020 11:32:32 +0000

Winbar

Еще один toolbar для быстрого доступа к окнам.

Запуск: do pathwinbar.prg

Автор: Canab

Автор публикации

не в сети 21 год

Canab

Комментарии: 0Публикации: 1Регистрация: 27-09-2005

(далее…)

]]> https://foxclub.ru/knowledgebase/otpravka-soobshhenij-cherez-smtp-server-kotoryj-trebuet-avtorizaczii-polzovatelya/ Fri, 28 Aug 2020 11:32:32 +0000

Отправка сообщений через SMTP сервер, который требует авторизации пользователя

Отправка сообщений через SMTP сервер, требующий авторизации пользователя на любое количество ящиков. Как то To:,Cc: и Bcc:. Поддерживается любое количество вложенных файлов (аттачей). В архиве лежит форма для вызова mailer.prg, который собственно и является классом для работы с SMTP. Пример использования можно посмотреть в форме и в классе. Спамеры, пример писался не для вас 🙂 Пока поддерживается только PLAIN, LOGIN и CRAM-MD5 авторизация. Может кто знает как корректно реализовать DIGEST-MD5 авторизацию? Помощь в этом приветствуется. При написании использовался VFP 9 с использованием специфики этой версии.

Автор: Константин Мельников

Автор публикации

не в сети 6 месяцев

admin

Комментарии: 1Публикации: 123Регистрация: 10-12-2000

(далее…)

]]> https://foxclub.ru/knowledgebase/udalennoe-vypolnenie-fox-skriptov-s-upravleniem-cherez-e-mail/ Fri, 28 Aug 2020 11:32:32 +0000

Удаленное выполнение Fox-скриптов с управлением через e-mail.

Программа "Remote Control by eMail" (дистанционное управление через электронную почту) предназначена для выполнения заранее сохраненных программ-скриптов. Запуск этих скриптов осуществляется путем отсылки письма определенного содержания на определенный адрес. Программа может выполнять любые скрипты, допустимые в языке Visual FoxPro. Область применения программы ограничивается только возможностью скриптов VFP. Например, ее можно использовать для компиляции и создания дистрибутивов для обновлений пользовательских версий с использованием системы Visual Source Safe, для чего изначально и предназначалась программа. Также поддерживается прием - отсылка файлов. Программа использует ActiveX mswinsock.ocx, почтовый клиент - встроенный. Более подробно в архиве. Обновление: Версия 1.0.1 Изменен метод base64enc с целью увеличения производительности. Исправлена ошибка из-за которой события журнала с кодом 0 за прошлые сутки не удалялись. Исправлен просмотр журнала - теперь отображаются включения-выключения. Добавлена индикация версии программы. Небольшие изменения алгоритма разбора писем. Версия 1.0.2 Исправлена ошибка в base64enc.

Автор: Влад Колосов

Автор публикации

не в сети 21 год

Влад Колосов

Комментарии: 0Публикации: 11Регистрация: 05-05-2005

(далее…)

]]> https://foxclub.ru/knowledgebase/nastoyashhij-tooltip-sozdavaemyj-pri-pomoshhi-winapi/ Fri, 28 Aug 2020 11:32:32 +0000

Настоящий tooltip, создаваемый при помощи winAPI.

Класс на базе таймера, создан на основе примера Вадима Пирожкова. Пример использования входит в архив. Позволяет настроить некоторые параметры - в виде баллона-прямоугольника, время показа, цвет фона-шрифта, закрываемость (при включенных темах), позиция отростка для баллона. Привязан к координатам объекта-контрола (Tool). Недостаток - не исчезает при перемещении объекта. Проверено на VFP 7.0 и выше.

Автор: Влад Колосов

Автор публикации

не в сети 21 год

Влад Колосов

Комментарии: 0Публикации: 11Регистрация: 05-05-2005

(далее…)

]]> https://foxclub.ru/knowledgebase/generacziya-prg-fajla-s-funkcziyami-i-proczedurami-proverki-bazy-dannyh-na-osnove-shablona-kontejnera-bazy/ Fri, 28 Aug 2020 11:32:32 +0000

Генерация PRG-файла с функциями и процедурами проверки базы данных на основе шаблона контейнера базы

Суть проги заключается в том, что на основании имеющегося шаблона контейнера базы данных она формирует PRG-файл, который преобразует все рабочие базы данных: 1. Добавляет/удаляет/модифицирует поля таблиц, входящих в рабочиие базы; 2. Восстанавливает индексы таблиц рабочих баз данных при некорректном выходе из приложения; 3. Добавляет новые (в соответствии с шаблоном) таблицы; 4. Добавляет/модифицирует представления и связи; 5. Модифицирует индексы и т.д.

Суть проги заключается в том, что на основании имеющегося шаблона контейнера базы данных она формирует PRG-файл, который преобразует все рабочие базы данных:
1. Добавляет/удаляет/модифицирует поля таблиц, входящих в рабочиие базы;
2. Восстанавливает индексы таблиц рабочих баз данных при некорректном выходе из приложения;
3. Добавляет новые (в соответствии с шаблоном) таблицы;
4. Добавляет/модифицирует представления и связи;
5. Модифицирует индексы
и т.д.

Я делаю следующим образом:
- создаю новую базу данных для любого своего приложения
- запускаю эту программу
- включаю полученный PRG-файл в проект
- включаю 3 файла контейнера базы данных в дистрибутив приложения
- у клиента создаются уже рабочие базы данных со всеми необходимыми таблицами, представлениями, индексными файлами.

В случае, если что-либо изменяется в программе, и это влечет за собой изменение структур таблиц, вношу изменения у себя в шаблонную базу данных и заново формирую этот PRG-файл. На машину клиента устанавливается обновление приложения. При первом запуске его рабочие базы данных клиента модифицируются автоматически.
Чтобы не таскать EXE-файл, я эту прогу включаю в APP-файл.

Необходимо:

1. В главном модуле приложения определить символьные переменные
cpCapMain (название приложения) и cVersion (версия);
2. В тексте проги найти следующий код
Add Object Image1 As Image With ;
Height = 126,;
Left = 22,;
Name = 'Image1',;
Picture = 'c:workallasp_bmpsoft.bmp',;
Top = 24,;
Width = 126
и переопределить картинку

Основной вызов - функция fOk_Pr_Base (). В сгенерированном PRG-файле в самом начале приводится описание возвращаемых ею значений

Автор: Абразовский Михаил

Автор публикации

не в сети 20 лет

ama68

Комментарии: 0Публикации: 1Регистрация: 27-04-2006

(далее…)

]]> https://foxclub.ru/knowledgebase/ustanovka-kodovoj-straniczy-dbf-fajlov/ Fri, 28 Aug 2020 11:32:32 +0000

Установка кодовой страницы DBF-файлов

Если требуется установить кодовую страницу у всех файлов в одной папке, то эта программа как раз для того и служит. А также может работать просто в режиме открытия файлов без переустановки кодовой страницы, данная фишка нужна в случае если мы имеем файл-сервер и не хотим чтобы каконить пользователь случайно не удалил какойнить файл, ну скажем из проводника Windows. Может принимать параметры с командной строки: codepage.exe c:папка_в_которой_хранятся_мои_таблицы 866 ЗЫ: VFP8SP1

Автор: Канат Джумадылов

Автор публикации

не в сети 3 года

Foxtrot

Комментарии: 0Публикации: 6Регистрация: 25-04-2003

(далее…)

]]> https://foxclub.ru/knowledgebase/alternativa-beautfy-app/ Fri, 28 Aug 2020 11:32:31 +0000

Альтернатива beautfy.app

Использует его движок и добавляет форматирование заголовков процедур и классов. Может вызываться по горячей клавише, вместо beautify.app и из командной строки. Для работы необходимы FDKEYWRD.DBF и FD3.FLL в папке WIZARDS фокса, если их нет - то теряется форматирование ка кэто делает beautify.app. Настройка свойствами класса - комментарии в нем

Сергей Сизов внес некоторые изменения касающиеся параметров методов, процедур и фукнций, а так же исправил код в более оптимальный 🙂 В архиве теперь лежать 2 файла Bear8.prg для версии VFP7,8 (на VFP6 не проверялся) Bear9.prg для версии VFP9

Автор: Пирожков Вадим

Автор публикации

не в сети 22 года

piva

Комментарии: 1Публикации: 11Регистрация: 24-03-2004

(далее…)

]]> https://foxclub.ru/knowledgebase/classasform/ Fri, 28 Aug 2020 11:32:32 +0000

ClassAsForm

утилита для записи класса на основе FORM из библиотеки VCX в форму - наследницу SCX

[code] * утилита для записи класса на основе FORM из библиотеки VCX в форму - наследницу SCX procedure ClassAsForm #define YES 6 #define MsgTitle 'Tool ClassAsForm' local old_safety , i , classcount m.old_safety = set('safety') && запрос на подтверждение set safety off && не нужен do while messagebox('Наследовать форму от класса ?',4+32+4096,MsgTitle) = YES if agetclass(AClasses) && Выбираем Класс FORM из библиотеки AClasses[1] - Библиотека ; AClasses[2] - Класс * получили массив инфо о классах библы aClass1[1] - ObjName ; aClass1[2] - BaseClass m.classcount = avcxclasses(aClass1,AClasses[1]) m.i = ascan(aClass1,AClasses[2],1,m.classcount,1,9) if m.i > 0 and upper(aClass1[m.i,2]) == 'FORM' && могем из класса сделать форму наследник ? create form (AClasses[2]) as (AClasses[2]) from (AClasses[1]) nowait save && открыли конструктор форм с нашим классом sys(1500,'_MFI_SAVAS','_MSM_FILE') && сохранили класс как форму release windows 'Form Designer - ' + AClasses[2] + '.scx' && и закрыли конструктор else messagebox('Базовый класс должен быть FORM.',48+4096,MsgTitle,3000) endif endif enddo set safety &old_safety && восстановили запрос на подтверждение, какой он был до нашего вмешательства return [/code]

Автор: Vladimir_Knyr

Автор публикации

не в сети 22 года

Vladimir_Knyr

Комментарии: 0Публикации: 11Регистрация: 15-12-2003

(далее…)

]]> https://foxclub.ru/knowledgebase/rusifikator-ide-visual-foxpro-9-0-sp1/ Fri, 04 Nov 2022 07:44:28 +0000

Руссификатор IDE Visual Foxpro 9.0 SP1

Русификатор IDE оболочки меню разработчика Visual Foxpro 9.0 SP1
Представляет собой DLL файл который копируется в каталог с программой. Описание вложено в архив.
Автор: oav

Автор публикации

не в сети 20 лет

oav

Комментарии: 0Публикации: 4Регистрация: 27-05-2006

(далее…)

]]> https://foxclub.ru/knowledgebase/kalendar-dlya-vfp9/ Fri, 28 Aug 2020 11:32:27 +0000

Календарь для VFP9

Решил потестировать в VFP 9 новые свойства, в том числе MousePointer Grid'а, и это вылилось в очередной "Календарь";)

Календарь для VFP9

Поместите строку типа set classlib to DatePicker [additive] в метод Load формы, на которую помещен класс DateBox_DP. Библиотека DatePicker содержит четыре класса, один из которых - DateBox_DP - помещается на рабочую форму, а остальные используются по мере необходимости. Для субклассирования колонок в модуле Class_Prg.prg определяется класс Column_2.

Дату можно ввести вручную, уменьшить и увеличить на одни сутки клавишами "минус" и "плюс" или колесом мышки, а можно нажать на кнопку "Календарь" и выбрать дату из одноименной формы.

Форма "Календарь" деактивирует вызывающую форму до тех пор, пока Вы не нажмете кнопки "Выбрать", "Отменить", "Закрыть", не выберите в ControlBox'е пункт меню "Закрыть", не сделаете двойной клик на любом числе календаря или не нажмете клавишу Esc.

Для деактивации/активации меню применяется глобальная переменная glModalModeMainMenu.

В форме "Календарь" для смены месяца и года можно использовать как кнопки ComboBox'а и Spinner'а, так и колесо мышки.

Автор: Sergey Konoplev

Автор публикации

не в сети 22 года

Sergey Konoplev

Комментарии: 0Публикации: 1Регистрация: 25-02-2004

(далее…)

]]> https://foxclub.ru/knowledgebase/ispolzovanie-struktur-v-funkcziyah-windows-api/ Fri, 28 Aug 2020 11:32:32 +0000

Использование структур в функциях Windows API

На примере работы с CheckBox'ами в элементе управления Windows TreeView продемонстрировано использование новых возможностей VFP 9 для работы со структурами Windows API практически любой сложности, используемыми для передачи и возврата параметров в/из Win API-функций.

Здесь приводится адаптированный и переведенный с Visual Basic на Visual FoxPro 9 код
из статьи Брэда Мартинеса (Brad Martinez) "SetWindowLong: Add TreeView
Check Boxes via API", опубликованной на сайте
http://vbnet.mvps.org/index.html?code/comctl/tvcheckbox.htm.
В примере показан способ работы со структурами Windows API любой сложности лишь средствами
встроенными в Visual FoxPro 9, без использования дополнительных классов и FLL.

Продемонстрировано использование новых возможностей VFP 9, описанных в главе 14
"Language Improvemens" на стр. 312 книги "What's New In Nine"
издательства Hentzenwerke, доступной на сайте Microsoft online,
а так же описанных в разделе "Формирование структур в Visual FoxPro"
статьи Вячеслава Клепинина "Введение в Windows API", размещенной на сайте:
http://www.codenet.ru/db/vfp/winapi/
(если данный сайт недоступен, то воспользовавшись поиском Google можно
получить ссылку на кэшированную сервисом Google копию данной страницы)

Для определения WinAPI структур в примере НЕ ИСПОЛЬЗУЕТСЯ подключаемый к
проекту Struct.vcx с сайта: http://kodu.neti.ee/~juri4/examples/struct.zip
(195,892 байта), т.к. класс struct требует Convert.FLL, а загромождать
проект дополнительными, да еще и чужими файлами FLL желание отсутствует!
К тому же библиотека Convert.FLL содержит только некоторые конверсионные
функции необходимые для преобразования числовых величин в бинарные строки,
как это требуется для функций API. А в версии VFP9, движок это прекрасно
выполняет сам (см. описание измененных функций CTOBIN и BINTOC)!

В примере так же НЕ ИСПОЛЬЗУЕТСЯ класс rAPIdStructure, описанный в статье
Emanuele Cerlini "A way to work with Visual FoxPro and API Structures",
являющийся адаптером для API-структур, со времен VFP7 и далее,
ознакомиться с которым можно по ссылке:
http://www.foxitaly.com/ecerlini/struttureapi_en.html

Перевод, адаптацию статьи под VFP и написание кода VFP9 выполнил:
Кольцов Роман Васильевич
mailto: Roman.Koltsov@gmail.com
tel: +7 4752 751645 (home)
fax: +7 4752 713406 (work)
ICQ: 44612299

Автор: Кольцов Роман Васильевич

Автор публикации

не в сети 20 лет

rvc44

Комментарии: 0Публикации: 7Регистрация: 06-12-2005

(далее…)

]]> https://foxclub.ru/knowledgebase/organizacziya-peretaskivaniya-v-cttree-ot-dbi-technologies-inc/ Wed, 03 Dec 2025 05:21:53 +0000

Организация перетаскивания в ctTree от DBI Technologies Inc.

Давно и успешно использую ctTree от DBI Technologies Inc. В настоящем решении реализовано перетаскивание мышкой узлов и веток в дереве. Решение не имеет привязки к базе данных, а лишь иллюстрирует способ. Решение не лишено недостатков, а посему убедительная посьба - рассматривать его только как возможный путь реализации метода Drag & Drop. Все свойства ctTree - по умолчанию, кроме трех картинок: PictureClose, PictureLeaf, PictureOpen, которые заданы через вкладку "Picture" свойств ctTree Control 6.0. Сама компонента ctTree лежит в папке DBI. Просто запустите форму на выполнение. Разумеется ctTree.ocx должен быть зарегистрирован. Visual FoxPro 9.0, на других не тестировал. Успехов.

Автор: Алексей Сасин

Автор публикации

не в сети 6 месяцев

admin

Комментарии: 1Публикации: 123Регистрация: 10-12-2000

(далее…)

]]> https://foxclub.ru/knowledgebase/kak-prochitat-znachenie-polya-so-svojstvom-identity/ Sat, 19 Nov 2022 17:54:56 +0000

Как прочитать значение поля со свойством IDENTITY

 

Что такое IDENTITY
Недостаток использования полей со свойством IDENTITY как первичного ключа
Как определить значение поля со свойством IDENTITY в новой записи
Как работать с полями со свойством IDENTITY в FoxPro
      Прямое использование Pass-Through технологии через функцию SQLEXEC()
      Использование Remote View
      Использование Cursor Adapter

Что такое IDENTITY

IDENTITY - это не тип данных. Это некоторое дополнительное свойство, ограничение, накладываемое на целочисленные типы данных в MS SQL сервере. Т.е. это свойство может быть применено к полям следующего типа: tinyint, smallint, int, bigint, decimal(p,0), или numeric(p,0)

Аналогом этого свойства в FoxPro является тип данных Integer-AutoIncrement. Только не надо считать, что Integer-AutoIncrement это и есть поле со свойством Identity. Вовсе нет. Это именно аналог. В основном они похожи, но имеют ряд отличий. В данной статье речь пойдет о свойстве IDENTITY в MS SQL сервере.

Поля со свойством IDENTITY обладают следующими особенностями:

• В одной таблице допустимо существование только одного поля со свойством IDENTITY
• Поле со свойством IDENTITY нельзя редактировать. Они имеет свойство "только для чтения".
• Значение полю со свойством IDENTITY присваивается автоматически в момент создания новой записи.

Есть еще некоторые особенности, но они уже являются следствием перечисленных особенностей

Новое значение - это последнее использованное значение плюс некоторая фиксированная величина. Обратите внимание, новое значение опирается не на максимальное значение в существующих записях, а на последнее использованное значение. Это значит, что записи с последним использованным значением физически может не существовать, тем не менее, это значение будет использовано.

Другими словами, в последовательности значений поля со свойством IDENTITY вполне допустимы "дыры". Список значение вовсе не непрерывный

Как правило, в качестве шага приращения указывают 1, но это может быть и любое целое число. В том числе и отрицательное.

В связи с такими особенностями полей со свойством IDENTITY такие поля часто используют в качестве первичных ключей. Другими словами, в качестве полей, по значению которых всегда можно однозначно идентифицировать запись таблицы.

Следует иметь в виду, что свойство IDENTITY никак не контролирует уникальность данных. Например, если изначально поле имело тип INTEGER, и в него были введены ряд значений. А затем была изменена структура таблицы, и на данное поле было наложено свойство IDENTITY, то новые записи вполне могут иметь те же данные, что уже были введены ранее в эту таблицу. Поэтому, если поле со свойством IDENTITY используется в качестве первичного ключа, то на это поле следует наложить дополнительное ограничение по уникальности.

 

Недостаток использования полей со свойством IDENTITY как первичного ключа

Однако, несмотря на явные достоинства использования полей со свойством IDENTITY в качестве первичного ключа, они имеют и серьезный недостаток.

---

Значение полей со свойством IDENTITY невозможно узнать до того, как запись будет физически создана.

---

Ну и что? Какие проблемы-то? Создадим запись и узнаем ее новое значение.

Проблема заключается в том, что для того, чтобы узнать значение поля какой-либо записи эту запись надо сначала найти. А поиск записи как раз и осуществляется по значению первичного ключа. Того самого, значение которого необходимо определить. Замкнутый круг: чтобы прочитать значение это значение надо знать!

Структура хранения данных в MS SQL сервере принципиально отличается от структуры хранения данных в DBF-файлах. В нем нет таких понятий как "физический номер записи", "следующая запись", "последняя запись" и т.п. Т.е. невозможно перейти к "последней записи" чтобы прочитать значение ее первичного ключа.

Более того, хотя новое значение поля со свойством IDENTITY всегда больше любого из существующих значений (если шаг приращения - положительное число), но определить это новое значение, просто вычислив максимальное из существующих значений, тоже нельзя. Нет, само максимальное значение, разумеется, будет получено. Просто нет никакой гарантии, что полученное значение - это значение именно той записи, которая и была создана.

Дело тут в том, что, как правило, MS SQL сервер используется в многопользовательских приложениях. Это значит, что сразу несколько пользователей, одновременно, могут создавать новые записи. Получается, что один пользователь создал новую запись, затем начал вычислять максимальное значение и в этот момент другой пользователь также создал новую запись. В результате, первый пользователь в качестве максимального значения получит значение записи созданной вторым пользователем.

Так что же, отказаться от использования полей со свойством IDENTITY в качестве первичного ключа? Вовсе нет. Все-таки существуют способы определения значения поля со свойством IDENTITY у новой записи.

 

Как определить значение поля со свойством IDENTITY в новой записи

Собственно, есть три принципиальные стратегии определения значения поля со свойством IDENTITY в новой, только что созданной, записи

• Значение, возвращаемое системной переменной @@IDENTITY
• Значение, возвращаемое функцией SCOPE_IDENTITY()
• Нахождение новой записи по значению других полей

Теперь рассмотрим более подробно достоинства и недостатки каждой стратегии

 

Значение, возвращаемое системной переменной @@IDENTITY

В MS SQL сервере есть ряд системных переменных, значение которых изменяется автоматически при наступлении определенных событий. В частности, значение системной переменной @@IDENTITY автоматически устанавливается равным значению поля со свойством IDENTITY последней созданной записи в текущем соединении. Т.е. создание новых записей в другом соединении (другим пользователем) никак не повлияет на ее значение в данном соединении.

Ну, так вот оно, решение. Просто после создания новой записи читаем значение системной переменной @@IDENTITY и имеем искомое значение.

В целом, верно. Проблема только в том, что системная переменная @@IDENTITY меняет свое значение при создании записи в любой таблице.

На практике, это означает, что если на таблицу установлен триггер на вставку, в теле которого дается команда INSERT на создание записи в другой таблице, которая, в свою очередь, также имеет поле со свойством IDENTITY, то системная переменная @@IDENTITY получит значение поля из этой второй таблицы.

Другими словами, опираться на значение системной переменной @@IDENTITY можно, но, помня о том, что эта переменная не привязана к значению поля одной таблицы.

 

Значение, возвращаемое функцией SCOPE_IDENTITY()

В версии MS SQL 2000 была введена системная функция SCOPE_IDENTITY(). Эта функция также возвращает значение поля со свойством IDENTITY последней созданной записи, но созданной в пределах текущего SCOPE.

Адекватно перевести термин SCOPE на русский язык достаточно сложно. Но, приблизительно, можно сказать так: SCOPE - это одна процедура или функция. Другими словами, SCOPE_IDENTITY() вернет значение поля со свойством IDENTITY последней записи созданной в пределах той процедуры, где эта функция была вызвана.

Триггер - это уже другой SCOPE (другая функция), поэтому он никак не повлияет на значение возвращаемое SCOPE_IDENTITY().

Даже если два пользователя одновременно вызвали одну и ту же процедуру, но каждый вызвал процедуру в своем SCOPE. Т.е. опять-таки нет конфликта.

К недостаткам этой функции относится то, что ее следует вызывать в пределах того SCOPE, где и была создана новая запись интересующей нас таблицы. А это не всегда возможно.

Другими словами, для корректного использования SCOPE_IDENTITY() необходимо всегда следить за областью действия SCOPE. Зачастую, создавая специальные процедуры.

 

Нахождение новой записи по значению других полей

Если помните, то основная проблема с определением значения поля со свойством IDENTITY заключается в том, что данное поле используется в качестве первичного ключа. Т.е. по его значению как раз и находят нужную запись.

Однако, зачастую, таблицы имеют поле или набор полей, по которым также можно однозначно определить запись. Например, если речь идет о справочнике, то, разумеется, справочник имеет поле "Название". Также очевидно, что это поле должно быть уникально в пределах справочника. Иначе просто теряется смысл использования самого справочника. Зачем вводить в справочник записи с одинаковым значением?

Почему же не использовать в качестве первичного ключа это самое "Название"? Зачем вообще нужно поле со свойством IDENTITY? Это тема отдельного разговора. Вкратце, "Название" - это для пользователя (внешние данные), а IDENTITY - это для обеспечения ссылочной целостности базы данных (внутренние данные).

Значение поля со свойством IDENTITY в новой записи не известно. Но значение поля "Название" в этой новой записи вполне известно. Пользователь сам же его и ввел! Значит, после создания новой записи можно найти эту новую запись по значению поля "Название" и прочитать значение поля со свойством IDENTITY.

Проблема только в том, что далеко не всегда существует такое поле или набор полей для однозначной идентификации записи. Это, кстати, одна из причин ввода, так называемых, суррогатных ключей. Тех самых полей со свойством IDENTITY.

Если, тем не менее, Вы решите использовать эту стратегию для поиска новой записи, то обязательно наложите на поле "Название" (или выбранный Вами набор полей) ограничение по уникальности. Т.е., чтобы случайно не оказалось двух записей с одинаковым значением в этом поле.

 

Как работать с полями со свойством IDENTITY в FoxPro

С теоретической частью закончили, теперь "попробуем со всем этим добром взлететь". Т.е. определимся, как же воспользоваться всеми этими знаниями в FoxPro. Еще раз уточним задачу, которую необходимо решить.

Добавляется запись в таблицу MS SQL сервера имеющую поле со свойством IDENTITY. Необходимо сразу после создания новой записи получить значение поля со свойством IDENTITY на стороне FoxPro.

У FoxPro есть три принципиальные возможности организации работы с MS SQL сервером

• Прямое использование Pass-Through технологии через функцию SQLEXEC()
• Использование Remote View
• Использование Cursor Adapter

Тут следует остановиться на том, какое именно событие собственно создает запись на MS SQL сервер. Ну, с Pass-Trough все ясно. Это собственно прямая команда серверу создать новую запись. А вот с Remote View и Cursor Adapter несколько иначе.

Результатом работы как Remote View, так и Cursor Adapter является курсор. Т.е. некая временная таблица, физически расположенная на машине клиента. По умолчанию, этот курсор автоматически открывается в режиме оптимистической буферизации строк (3) и может быть переключен только в режим оптимистической буферизации таблиц (5). Переключиться в режим пессимистической буферизации или отключить буферизацию совсем для этого курсора невозможно

Следовательно, новая запись сначала физически будет создана именно на клиентской машине в этом самом курсоре. Точнее, в буфере этого курсора. Физическое создание записи на MS SQL сервере произойдет только после сброса буфера.

Для строковой буферизации сброс буфера может произойти автоматически при выполнении одного из следующих действий:

• Переход (или попытка перехода) на другую запись
• Закрытие курсора
• Переключение в режим табличной буферизации
• По команде TableUpdate()

Для табличной буферизации сброс буфера может произойти только по команде TableUpdate() и никак иначе.

Никакие другие действия и операции ни с Remote View, ни с Cursor Adapter не приведут к созданию новой записи на MS SQL сервере. Если при выполнении какой-либо операции оказалось, что на MS SQL сервере создалась новая запись, это означает, что курсор находился в режиме строковой буферизации, и произошло одно из событий вызвавших автоматический сброс буфера.

Например, такое может произойти по команде Requery() для Remote View. Но это вовсе не означает, что команда Requery() сбрасывает буфер. Вовсе нет. Просто одним из условий выполнения команды Requery() является закрытие ранее существовавшего курсора. А вот это событие как раз и вызовет автоматический сброс буфера, если курсор находится в режиме строковой буферизации.

Чтобы избежать подобных недоразумений, переключайте курсор в режим табличной буферизации (5). В этом случае Вы всегда сможете контролировать процесс сброса буфера.

Однако следует понимать, что даже если Вы установите режим табличной буферизации, измените несколько записей в Remote View или Cursor Adapter, а потом дадите команду TableUpdate() все равно сброс буфера будет происходить по одной записи за раз. Т.е. на сервер будет послана не одна команда, например, на модификацию, а набор команд по модификации каждой записи в отдельности.

Применительно к операциям создания новой записи из этого следует вывод, что во всех событиях объекта Cursor Adapter всегда происходит вставка только одной записи за раз.

 

Прямое использование Pass-Through технологии через функцию SQLEXEC()

При таком способе работы программист как бы напрямую работает с MS SQL сервером. Сам формирует все команды, отсылаемые на сервер, получает результат, и сам же его обрабатывает. В этом случае не составляет никакого труда послать дополнительный запрос серверу на значение функции SCOPE_IDENTITY

---

   LOCAL lcNewValue, lnResut  
  lcNewValue = "Новое значение"  
  lnResut = SQLExec(m.lnConnectHandle,"INSERT INTO MyTab (Field1) VALUES (?m.lcNewValue)")  
  IF m.lnResut>0  
  	SQLExec(m.lnConnectHandle,"SELECT NewIdent=SCOPE_IDENTITY()","NewIdent")  
  	?NewIdent.NewIdent  
  ELSE  
  	LOCAL laError(1)  
  	=AERROR(laError)  
 	* Анализ массива laError для уточнения причины ошибки  
  ENDIF  
     

---

В данном примере m.lnConnectHandle - это число, номер соединения с MS SQL сервером, которое настраивается раньше. MyTab - это таблица, которая имеет поле со свойством IDENTITY.

После выполнения второго запроса в результирующем курсоре NewIdent в поле NewIdent первой записи и получим искомое значение. В данном синтаксисе и команда вставки и вызов функции SCOPE_IDENTITY() происходят в одном SCOPE. Поэтому, получаем нужное значение.

 

Использование Remote View

Remote View - это некая "надстройка" над технологией Pass-Through. По сути, при создании новой записи выполняется та же команда INSERT INTO. Однако проблема в том, что даже если прочитать номер соединения, в котором работает Remote View, а потом выполнить запрос для определения значения, возвращаемого SCOPE_IDENTITY(), то получим NULL, поскольку в этом случае команда вставки и SCOPE_IDENTITY() выполняются в разных SCOPE. Следовательно, остается только два способа определения значения поля со свойством IDENTITY.

---

  * Определение значения системной переменной @@IDENTITY  
  LOCAL lnConnectHandle  
  lnConnectHandle = CursorGetProp("ConnectHandle","MyRemoteView")  
  SQLExec(m.lnConnectHandle,"SELECT NewIdent=@@IDENTITY","NewIdent")  
  ?NewIdent.NewIdent  
    
 * Определение по значению другого поля  
  LOCAL lnConnectHandle, lcNickName  
  lnConnectHandle = CursorGetProp("ConnectHandle","MyRemoteView")  
  lcNickName = MyRemoteView.NickName  
  SQLExec(m.lnConnectHandle,"SELECT TabId FROM MyTab WHERE NickName=?lcNickName","NewIdent")  
  ?NewIdent.TabId  
    
 

---

В обоих примерах MyRemoteView - это имя Вашего Remote View. NickName - это имя поля в Remote View по значению которого выполняется поиск новой записи, а TabID - это то самое поле со свойством IDENTITY значение которого и надо определить

Предполагается, что создание новой записи уже произошло. Либо явно была дана команда TableUpdate(), либо Remote View находится в режиме строковой буферизации, и была попытка перехода на другую запись.

А почему во втором случае не было использовано, казалось бы, более очевидное решение поиска после Requery()? Что-то вроде

---

   =REQUERY("MyRemoteView")  
  SELECT MyRemoteView  
  LOCATE FOR NickName = "Новое значение"  
  ?MyRemoteView.TabID  
    
 

---

На это есть несколько причин.

Во-первых, Requery() предполагает выполнение запроса заново. Т.е. предполагается, что произошел сброс буфера всех записей Remote View. Но ведь это может быть не так. Например, сбрасывают буфер по одной записи за раз в цикле.

Во-вторых, обычно Remote View содержит в себе дополнительные условия отбора записей, и только что созданная запись может вообще не попасть в условия отбора. Т.е. после Requery() запись, хотя и будет физически создана на сервере, но в самом Remote View отображена не будет.

 

Использование Cursor Adapter

Объект Cursor Adapter был введен в FoxPro, начиная с версии Visual FoxPro 8. Он призван облегчить работу с удаленными данными при выполнении некоторых стандартных операций. В частности, операции создания новой записи. Через Cursor Adapter можно реализовать все три варианта получения значения поля со свойством IDENTITY в новой записи.

 

Значение, возвращаемое системной переменной @@IDENTITY

После того, как будет выполнен сброс буфера и произойдет физическая создание новой записи на MS SQL сервере, в объекте Cursor Adapter сработает событие AfterInsert. Вот в нем как раз и надо выполнить дополнительный запрос на сервер и прочитать значение системной переменной @@IDENTITY

---

   PROCEDURE AfterInsert  
  LPARAMETERS cFldState, lForce, cInsertCmd, lResult  
  IF lResult=.T. && вставка произошла успешно. Надо получить значение ID  
  	LOCAL currentArea  
  	currentArea=SELECT()  
    
  	TRY  
  		IF 1=SQLEXEC(this.DataSource,"SELECT NewIdent=@@IDENTITY","NewIdent")  
  			REPLACE TabId WITH NewIdent.NewIdent IN (This.Alias)  
  			USE IN IDRes  
  		ELSE  
  			LOCAL laError(1)  
  			=AERROR(laError)  
 			* Анализ массива laError для уточнения причины ошибки  
  		ENDIF  
  	FINALLY  
  		SELECT (currentArea)  
  	ENDTRY  
  ENDIF  
  ENDPROC  
    
    
 

---

Думаю, код достаточно понятный и не нуждается в пояснениях. После успешного создания новой записи на сервере при помощи SQLExec() для того же самого соединения определили значение @@IDENTITY и записали это значение в текущую запись курсора в ключевое поле.

В версии Visual FoxPro 9 в объект Cursor Adapter было добавлено свойство InsertCmdRefreshCmd. Это команда, которая посылается на сервер только после успешной вставки новой записи. Т.е. здесь нет необходимости убеждаться в самом факте создания новой записи.

В паре с другим новым свойством InsertCmdRefreshFieldList можно выполнить обновление, опираясь на значение системной переменной @@IDENTITY проще. Для этого всего лишь надо сделать следующие настройки объекта CursorAdapter

---

   CursorAdapter.InsertCmdRefreshCmd       = "SELECT @@IDENTITY"  
  CursorAdapter.InsertCmdRefreshFieldList = "TabId"  
    
 

---

Здесь TabId - это не имя поля со свойством IDENTITY в таблице собственно на MS SQL сервере, а имя поля курсора, полученного на стороне клиента в котором и отображается содержимое поля со свойством IDENTITY. Как правило, эти имена совпадают, но, в общем случае, могут и отличаться. Более подробно о свойстве InsertCmdRefreshFieldList читайте ниже. В разделе, посвященном нахождению новой записи по значению других полей.

 

Значение, возвращаемое функцией SCOPE_IDENTITY()

Здесь все несколько сложнее. Дело в том, что действовать, так же как и в случае определения системной переменной @@IDENTITY нельзя. SQLExec() и Cursor Adapter работают в разных SCOPE. Поэтому при подобном подходе SCOPE_IDENTITY() всегда будет возвращать NULL. Чтобы преодолеть это противоречие используют специальные процедуры.

Для начала, надо создать на самом MS SQL сервере вот такую хранимую процедуру

---

   CREATE PROCEDURE Get_ValueInt  
  		@ValueIn Int,  
  		@ValueOut Int OUTPUT  
  AS  
  SET NOCOUNT ON  
  SELECT @ValueOut=@ValueIn  
    
 

---

Как видите, цель данной процедуры просто присвоить значение входного параметра выходному параметру. Теперь можно использовать эту процедуру для определения значения SCOPE_IDENTITY() в Cursor Adapter. Для этого в событии BeforeInsert делается такая подмена

---

   PROCEDURE BeforeInsert  
  LPARAMETERS cFldState, lForce, cInsertCmd  
  cInsertCmd = cInsertCmd + ;  
  		"; DECLARE @id int" + ;  
  		"; SELECT @id=SCOPE_IDENTITY()" + ;  
  		"; EXEC Get_ValueInt @id, ?@MyTab.TabId"  
  ENDPROC  
    
 

---

Только следует иметь в виду, что в данной подмене MyTab - это уже не имя таблицы на MS SQL сервере, а имя курсора создаваемого у клиента. Точнее, то имя, которое записано в свойстве Alias собственно Cursor Adapter. Соответственно, "TabId" - это имя поля курсора, созданного у клиента и содержащего значение поля со свойством IDENTITY

В данном случае, по сути, формируется динамическая хранимая процедура. Т.е. не просто одна команда INSERT, а последовательность команд. Команды отделяются друг от друга символом точки с запятой, хотя это вовсе не обязательно. Достаточно отделять команды друг от друга простым пробелом.

 

Нахождение новой записи по значению других полей

Если у Вас Visual FoxPro 8, то Вам остается использовать метод аналогичный методу, примененному для поиска значения системной переменной @@IDENTITY. Т.е. в методе AfterInsert объекта Cursor Adapter выполнить дополнительный запрос через SQLExec()

Начиная с версии Visual FoxPro 9, в объекте Cursor Adapter появились дополнительные свойства, позволяющие автоматизировать эту процедуру без написания дополнительного кода

InsertCmdRefreshFieldList - список полей, значение которых будет обновлено после Insert
InsertCmdRefreshKeyFieldList - поле, или набор НЕ ключевых полей также однозначно идентифицирующих запись, по которым и будет осуществлен поиск новой записи

Следует отметить, что в этих свойствах указываются не имена полей таблицы собственно MS SQL сервера, а соответствующие им имена полей курсора, полученного на стороне клиента. Применительно к тому же примеру это будет примерно так:

---

   InsertCmdRefreshFieldList 	= "TabID"  
  InsertCmdRefreshKeyFieldList 	= "NickName"  
    
 

---

Другими словами, опираясь на значение поля NickName, будет найдена запись в таблице на MS SQL сервере и прочитано значение поля TabID, после чего это значение будет записано в новую запись на стороне клиента.

 

Более подробно как обсуждение данной темы, так и примеры использования Вы можете посмотреть здесь

CursorAdapter: Авто-рефреш полей во время TABLEUPDATE
Как автомат-ки получать автоинкриментное поле SQL сервера в КА
CursorAdapter, событие AfterInsert и поле сервера типа IDENTITY

Владимир Максимов
Последнее обновление: 01.05.06

Автор публикации

не в сети 26 лет

Владимир Максимов

Комментарии: 0Публикации: 65Регистрация: 02-09-2000

(далее…)

]]> https://foxclub.ru/knowledgebase/sqldataclasses-nabor-klassov-uproshhayushhih-rabotu-so-skvoznymi-zaprosami-pass-through-k-sql-subd/ Fri, 28 Aug 2020 11:32:32 +0000

SqlDataClasses – набор классов, упрощающих работу со сквозными запросами (pass-through) к SQL СУБД.

SqlDataClasses – набор классов, упрощающих работу со сквозными запросами (pass-through) к SQL СУБД. Представляют собой обертку для выполнения команд сквозных запросов, позволяющих сочетать их мощь c удобством работы, аналогичном работе с удаленными представлениями (Remote Views) с некоторыми дополнительными возможностями. В какой-то мере являются аналогом класса CursorAdapter, но в отличие от него, могут использоваться в версиях VFP ниже 8.0. Аналогично удаленным представлениям, на стороне клиента работа с данными сводится к операциям с локальным буферизированным курсором, полученным с SQL-сервера. Все изменения в курсоре могут автоматически или принудительно переданы на SQL-сервер с помощью модифицирующих SQL-выражений, записанных в специальных свойствах. Все выражения независимы друг от друга и могут содержать любые корректные для конкретного SQL-сервера команды (выборки, вызовы процедур и т.п.)

Библиотека содержит в себе следующие классы:
Sql_DataSource – основной класс, обертка над SQL pass-through. Получает данные в буферизированный курсор, оправляет изменения на SQL СУБД. Имеет набор свойств, методов и событий, связанных с выполнением этих задач;
Sql_Grid – класс Grid’а, упрощающий отображение данных пересоздаваемого курсора, созданного классом Sql_Data_Source (можно использовать любой другой при выполнении некоторых условий).
Может использоваться также как обычный GRID источников данных, требующих закрытия/открытия источника данных (в обычном GRID'е после переоткрытия данные будут не видны) - методы Save_DS (применяется перед закрытием) и Rest_DS (применяется после переоткрытия источника данных).
Также содержит возможность подсветки строки. Подсветка производится любым объектом, производным от базового класса Shape и расположенным в том же родительском контейнере, что и объект, производный от класса Sql_Grid. Для ссылка на такой объект используется свойство HltShape.;
Hlt_Shape – класс строки подсветки для Sql_Grid (может использоваться для версий ниже 8.0);
Hlt_Text – класс textbox’а для лучшего использования строки подсветки, производной от класса Hlt_Shape.

Кратко о возможностях:
Класс SqlDataSource имеет 5 свойств для автоматических операций с данными, содержащих SQL-выражения:
· SqlInitSelect - строка SQL-выражения для инициализации курсора,
· SqlSelect - строка SQL-выражения для получения/обновления данных в курсоре (это же выражение будет использовано для инициализации курсора, если свойство SqlInitSelect не заполнено),
· SqlInsert - строка SQL-выражения, передаваемого на сервер для новых строк из курсора,
· SqlUpdate - строка SQL-выражения, передаваемого на сервер для измененных строк в курсоре,
· SqlDelete - строка SQL-выражения, передаваемого на сервер для удаленных строк в курсоре
· SqlRefresh - строка SQL-выражения для обновления строки курсора данными с SQL-сервера после передачи обновлений на сервер,
· упрощенная запись параметров-полей курсора в SQL-выражениях;
· автоматическое открытие буферизированного курсора;
· автоматическое закрытие курсора при уничтожении объекта;
· автоматическое или принудительное обновление данных на сервере (будет исполнено для всех измененных, добавленных или удаленных строк);
· автоматическая посылка подтверждения (Commit) после посылки обновления данных;
· метод, исполняющие любые SQL-выражения - аналог SqlExec с выдачей ошибок;
· свойство-признак измененности данных в курсоре -SqlModified;
· предупреждение о наличии не сохраненных данных в курсоре при уничтожении объекта (проверку можно вызвать принудительно);
· и др.

Подробное описание в файле SqlDataClasses.RTF

Автор: Алексей Кирпичев

Автор публикации

не в сети 6 месяцев

admin

Комментарии: 1Публикации: 123Регистрация: 10-12-2000

(далее…)

]]> https://foxclub.ru/knowledgebase/dbf-fixer/ Fri, 28 Aug 2020 11:32:32 +0000

Dbf fixer

очередной исправитель структуры заголовка

соответственно библиотеки от 7 требуются
проверяет как отдельные файлы так и все файлы в каталоге

Автор: самсонон

Автор публикации

не в сети 6 месяцев

admin

Комментарии: 1Публикации: 123Регистрация: 10-12-2000

(далее…)

]]> https://foxclub.ru/knowledgebase/poisk-v-proekte/ Fri, 28 Aug 2020 11:32:32 +0000

Поиск в проекте

Поиск подстроки во всех файлах включенных в проект. В утилиту можно передавать имя файла проекта и искомую строрку, но можно этого и не делать, она все спросит сама. В утилите используется прямой вызов MS ListView так что если у вас нету лицензии, я не виноват. Вызов файла где найдена строка, двойной клик на строке. Попытался перевести ее на английский, но такой перевод ...

Автор: Пирожков Вадим

Автор публикации

не в сети 22 года

piva

Комментарии: 1Публикации: 11Регистрация: 24-03-2004

(далее…)

]]> https://foxclub.ru/knowledgebase/pechat-tekstovyh-fajlov-v-dos-kodirovke/ Fri, 28 Aug 2020 11:32:32 +0000

Печать текстовых файлов в DOS-кодировке

Еще один вариант. Над интерфейсом не мучался - сделал как в решении http://www.foxclub.ru/sol/index.php?act=view&id=187 Но меня этот вариант больше устраивает. EXE-файл сделан под VFP6SP5. Исходники работают и под VFP9SP1.

Автор: Николай

Автор публикации

не в сети 25 лет

Snick

Комментарии: 0Публикации: 1Регистрация: 21-05-2001

(далее…)

]]> https://foxclub.ru/knowledgebase/novyj-rabochij-primer-podderzhki-ierarhii-mshflexgrid-i-true-db-grid/ Fri, 28 Aug 2020 11:32:32 +0000

Новый рабочий пример поддержки иерархии MSHFlexGrid и True DB Grid

По просьбам коллег привожу рабочий пример и screenshot к программе, а не отдельный кусок кода. Создайте пустой проект, добавьте в него форму a_mshfg и запустите ее на выполнение. Внимательно см. все комментарии в методе Init формы, особенно в конце, а так же содержимое файла readme.txt и ссылку в нем (!)

Содержимое программы внутри вложенного файла.

Автор: Кольцов Роман Васильевич

Автор публикации

не в сети 20 лет

rvc44

Комментарии: 0Публикации: 7Регистрация: 06-12-2005

(далее…)

]]> https://foxclub.ru/knowledgebase/primer-ispolzovaniya-ierarhicheskih-vozmozhnostej-mshflexgrid-i-true-db-grid/ Fri, 28 Aug 2020 11:32:32 +0000

Пример использования иерархических возможностей MSHFlexGrid и True DB Grid

В приведенном примере продемонстрирована возможность использования в Microsoft Visual FoxPro иерархических возможностей ActiveX-контролов Microsoft Hierarchical FlexGrid и Component One True DB Grid

*** Пример использования в Microsoft Visual FoxPro иерархических возможностей
*** ActiveX Microsoft Hierarchical FlexGrid и Component One True DB Grid
*** (c) Кольцов Роман Васильевич aka rvc44, 2003
*** mailto: Roman.Koltsov gmail.com

*** В примере используется OLE-автоматизация Microsoft Access, поэтому
*** для успешной работы необходим не очеь старый Microsoft Access (лучше 2003)
*** Кто знает, как создать иерархический рекордсет без Access, велкам!

*** Перед использованием добавьте на вкладке User DNS в Пуск -> Настройка ->
*** ПанельУправления -> Администрирование -> Источники данных (ODBC)
*** новый источник данных с именем netar, драйвером Microsoft Access Driver (*.mdb)
*** и базой данных C:Tempnetar.mdb. Для настройки DNS можно создать и
*** сохранить пустой файл произвольного типа с именем "netar.mdb", т.к.
*** в дальнейшем программа его все равно удаляет и создает новый!
*** Кто знает, как настроить DNS программно, велкам!

*** Внимание! Важная особенность, описанная в одной из конференций.
*** Hierarchical FlexGrid как и TreeView работает с Twip'ами, поэтому
*** при расчете ширины ячеек нужно учитывать Twip'ы
*** и в качестве параметров для метода HitTest, при реализации
*** Drag&Drop нужно передавать координаты в Twip'ах.

#define cnLOG_PIXELS_X 88
#define cnLOG_PIXELS_Y 90
#define cnTWIPS_PER_INCH 1440
* 1440 твипов на дюйм
#define flexAlignLeftCenter 1
#define flexAlignCenterTop 3
#define flexAlignCenterCenter 4

*** Возможные значений параметра type в методе CreateField
#define dbBoolean 1 && Логический
#define dbByte 2 && Числовой (байт)
#define dbInteger 3 && Числовой (целое)
#define dbLong 4 && Числовой (длинное целое)
#define dbCurrency 5 && Денежный
#define dbSingle 6 && Числовой (одинароне с плавающей точкой)
#define dbDouble 7 && Числовой (двойное с плавающей точкой)
#define dbDate 8 && Дата/время
#define dbBinary 9
#define dbText 10 && Текстовый
#define dbLongBinary 11 && Поле объекта OLE
#define dbMemo 12 && Поле МЕМО
#define dbGUID 15 && Числовой (код репликации)
#define dbDecimal 20 && Числовое (действительное)

*** Возможные значений параметра в методе Quit
#define acQuitPrompt 0
#define acQuitSaveAll 1
#define acQuitSaveNone 2

*** Метод Init формы Visual FoxPro, на которой размещены ActiveX компоненты:
*** сверху True DB Grid и снизу MSHFlexGrid (для сравнения их возможностей)
LPARAM pUpForm * Вызывающая форма верхнего уровня
LOCAL sw As Long

This.UpForm=pUpForm

************* Создаем базу данных netar.mdb с двумя таблицами Goods и Categs ***********
* Непосредственно для создания таблиц используется метод CreateTableDef
* tabledef = database.CreateTableDef ([name], [attributes], [sourcetablename], [connect])
* Для создания полей таблицы используется объект Field и метод CreateField
* field = tabledef.CreateField ([name], [type], [size])
* После того, как таблица будет описана и в ней созданы необходимые поля,
* ее нужно будет добавить в базу данных. Для добавления таблицы в базу данных
* используется метод Append
* Для создания новой таблицы неоходимо определить новый объект TableDef
* (Table Definition - описание таблицы).
* Объект TableDef содержит всю необходимую информацию для определения таблицы БД.
*****************************************************************************************

oAcc=CREATEOBJECT("Access.Application")
WAIT WINDOW NOWAIT "Запуск Access..."
* Hide the instance of Microsoft Access.
* Microsoft Knowledge Base Article - 167659
sw = ShowWindow(oAcc.hWndAccessApp, 2)

* Созданим БД Access "Нетарифные меры регулирования ВЭД" для анализа ГТД
cMDB="C:tempnetar.mdb" && ThisForm.MDBFullPath
IF FILE("&cMDB.")
delete file &cMDB.
ENDIF
oAcc.Visible = .F.
oAcc.NewCurrentDatabase(cMDB)
oMDB=oAcc.CurrentDB

* Создадим таблицу Goods базы данных netar.mdb
oTbl=oMDB.CreateTableDef("Goods")
oTbl.Fields.Append(oTbl.CreateField("Direction", dbText, 5)) && .Append(oFld)
oTbl.Fields.Append(oTbl.CreateField("Sync", dbText, 30)) && Invisible
oTbl.Fields.Append(oTbl.CreateField("GTD", dbText, 23))
oTbl.Fields.Append(oTbl.CreateField("G022", dbText, 254))
oTbl.Fields.Append(oTbl.CreateField("G33", dbText, 10))
oTbl.Fields.Append(oTbl.CreateField("G31_1", dbText, 254))
oTbl.Fields.Append(oTbl.CreateField("G38", dbDouble))
oTbl.Fields.Append(oTbl.CreateField("G46", dbDouble))
oMDB.TableDefs.Append(oTbl)

* Создадим таблицу Categs базы данных netar.mdb
oTbl=oMDB.CreateTableDef("Categs")
oTbl.Fields.Append(oTbl.CreateField("G32", dbDouble))
oTbl.Fields.Append(oTbl.CreateField("G441", dbText, 4))
oTbl.Fields.Append(oTbl.CreateField("Sync", dbText, 30)) && Invisible
oTbl.Fields.Append(oTbl.CreateField("G442", dbText, 254))
oTbl.Fields.Append(oTbl.CreateField("G443", dbText, 254))
oMDB.TableDefs.Append(oTbl)

* Для "иерархии" имеем 2 курсора CurDclHead и CurDclCmpr.
* (их содержимое не привожу по соображениям госбезопасности 😉 )
* Перегоним их в 2 иерархических рекордсета
* Синхронизация между рекордсетами будет осуществляться по полю Sync
* Все поля в соответствующих курсорах и рекордсетах одноименные

* Конвертация "вручную" курсора1 в рекордсет1 с соответствующими полями
oRS=oMDB.OpenRecordSet("Goods")
SELECT CurDclCmpr && CurDclHead соответствующий курсор
SCAN
oRS.AddNew
FOR j = 0 TO oRS.Fields.Count-1
cFName=oRs.Fields(j).Name
vValue=EVALUATE(cFName)
oRs.Fields(j).Value=vValue
ENDFOR
oRS.Update
oRS.MoveFirst
ENDSCAN
oRS.Close

* Конвертация "вручную" курсора2 в рекордсет2 с соответствующими полями
oRS=oMDB.OpenRecordSet("Categs")
SELECT CurDclHead
SCAN
oRS.AddNew
FOR j = 0 TO oRS.Fields.Count-1
cFName=oRs.Fields(j).Name
vValue=EVALUATE(cFName)
oRs.Fields(j).Value=vValue
ENDFOR
oRS.Update
oRS.MoveFirst
ENDSCAN
oRS.Close
USE IN CurDclHead

oMDB.Close
oAcc.Quit(acQuitSaveAll)
RELEASE oAcc
WAIT CLEAR

* Демонстрация использования иерархических рекордсетов
* Используется MSDataShape провайдер для создания иерархического
* рекордсета из таблиц Goods и Categs базы данных C:tempnetar.mdb

oConnection = CREATEOBJECT("ADODB.Connection")
oRecordSet = CREATEOBJECT("ADODB.Recordset")

WITH oConnection
.Provider="MSDataShape"
.OPEN("DSN=NETAR") && NETAR настроена на C:tempnetar.mdb
ENDWITH

oRecordSet.ActiveConnection = oConnection
oRecordSet.OPEN ("SHAPE {SELECT * FROM Goods} AS Cmn2 " + ;
"APPEND ({SELECT * FROM Categs} AS Cmn2A RELATE " + ;
"Sync TO Sync) AS Cmn2A")

* Начиняем Component One True DB Grid:
With ThisForm.TDBGrid1
.DataSource = oRecordSet
.ExtendRightColumn = .T.
.ReBind
.Columns(0).Caption = "Тип ГТД"
.Columns(0).Width = 117 && 78
.Columns(1).Caption = "ГТД"
.Columns(1).Width = 215 && 143
.Columns(2).Visible = .F. && Номер товара
.Columns(3).Caption = "Код товара"
.Columns(3).Width = 100 && 68
.Columns(4).Caption = "Вес нетто"
.Columns(4).Width = 95 && 63
.Columns(5).Caption = "Статистич. стоимость"
.Columns(5).Width = 110 && 78
.Columns(6).Caption = "Наименование товара"
.Columns(7).Caption = "Отправитель / Получатель"
.Columns(8).Visible = .F. && ГТД
.Columns(9).Caption = "№ товара в ГТД"
.Columns(10).Caption = "Код документа"
.Columns(11).Caption = "№ документа"
.Columns(12).Caption = "Дата выдачи документа"
EndWith

With ThisForm
* Начиняем Microsoft Hierarchical FlexGrid (для сравнения!):
* Можно реализовать более красивую начинку по желанию (поэлементо)
.MSHFlexGrid.DataSource = oRecordSet

.Width = 553
.Resize()
.Visible=.t.
EndWith

* Отмеченные недостатки MSHFlexGrid, по сравнению с True DB Grid:
* - отсутствие поддержки работы с прокруткой колесиком мыши;
* - отсутствие встроенного механизма поддержки печати;
* - если не "замораживать" левый столбец, то вызов вручную методов Expand
* и Collapse (щелчки на "+" и "-" в строках грида) доступен только в
* первом столбце грида и, как следствие, недоступен при прокрутке вправо.
* - Символы "+" и "-" для разворачивания "иерархии" маленького размера
* В остальном эти два грида практически идентичны. Выбор за вами...

Автор: Кольцов Роман Васильевич

Автор публикации

не в сети 20 лет

rvc44

Комментарии: 0Публикации: 7Регистрация: 06-12-2005

(далее…)

]]> https://foxclub.ru/knowledgebase/nestandartnyj-progressbar/ Fri, 28 Aug 2020 11:32:25 +0000

Нестандартный прогрессбар

Этот активИкс нужен только для нестандартных подходов, я имею ввиду, когда в обычный прогресс бар нельзя загнать промежуточные данные, а пользователю надо показать что машина двигается.

Нестандартный прогрессбар

Однажды, мне надо было, в программе, написать довольно большую
выборку данных, порядка 6 селектов, идущих один за другим,
далее сканирование по нескольким таблицам и снова парочка селектов.
Это все дело затягивалось на минут эдак от 5-8. Возник вопрос,
как показать пользователю, что машина работает, а не висит.
Команды SET TALK ON и прочее не подходило, так как мне нужен был
общий прогресс бар, показывающий начало работы и конец,
а стандартный прогресс бар не подходил, так как я не мог вычислить
время начала и время конца операции. Да и вообще получить какие ни будь промежуточные данные.
Я попытался решить проблему разными путями, но дело в том,
что Фокс работает в одном потоке, и при выборке, индексации,
он просто забирает все на себя. При этом все остальные процессы замирают,
ждут, когда закончится основной процесс.
Что бы это обойти я создал новый проект. В котором создал класс формы,
в свойствах которого выставил OLE Public. Скомпилировал в EXE файл,
в DDL-ку нельзя иначе он будет работать в том же потоке что и основная программа,
а значит, просто умрет.

Теперь как это все работает
Перво-наперво надо зарегистрировать активИкс.
Для этого надо дать такую команду:
Progressbar.exe /regserver
И все!
Теперь как это дело запустить:
Допустим, есть форма в ней есть пропети oWin
THISFORM.oWin=CreateObject("MyProgres.oCat") &&В данном случае будет ходить кот (тоже прикольно)
*THISFORM.oWin=CreateObject("MyProgres.oPrg") &&в данном случае будет обычный прогресс бар
THISFORM.oWin.Start("Идет формирование...")
***
здесь могут идти ваши выборки, циклы итд
***
THISFORM.oWin.Stop("Формирование окончено!")

Этот активИкс нужен только для нестандартных подходов, я имею ввиду,
когда в обычный прогресс бар нельзя загнать промежуточные данные,
а пользователю надо показать что машина двигается.
В проекте есть форма Form1, запустите ее и нажмите кнопку операции,
увидите, как это все работает. Только не забудьте, все таки перво-наперво
зарегистрировать активИкс, как описано выше.

Замечу что этот прогресс бар нужен только для нестандартного
показателя выполнения, в остальных случаях рекомендуется
пользоваться стандартными способоми.

Это дело написано на 8 Фоксе. Работает на 6-ке и 8-ке.
(перекомпилировать под 8-ку не надо)

Автор: Aries

Автор публикации

не в сети 23 года

Aries

Комментарии: 0Публикации: 7Регистрация: 24-12-2002

(далее…)

]]> https://foxclub.ru/knowledgebase/sozdanie-arhiva-proekta/ Fri, 28 Aug 2020 11:32:32 +0000

Создание архива проекта

Резервное копирование никто не отменял, а по сему данное решение.

Программа принимает название файла Вашего проекта или придется выбрать|не выбрать ручками и согласно его списка формирует BAT-файл, после чего запускает. В данном примере используется архиватор RAR и путь к нему прописан в системе, хотя мона использовать любой другой и указать к нему конкретный путь.

Автор: Джумадылов Канат

Автор публикации

не в сети 3 года

Foxtrot

Комментарии: 0Публикации: 6Регистрация: 25-04-2003

(далее…)

]]> https://foxclub.ru/knowledgebase/resizer/ Fri, 28 Aug 2020 11:32:32 +0000

resizer

данный класс позволяет менять любые свойства (типа нумерик) объектов, лежащих на форме, при изменении размеров формы. для настройки используется специальная форма

данный класс позволяет менять любые свойства (типа нумерик) объектов, лежащих на форме, при изменении размеров формы. для настройки используется специальная форма
писалось на шестерке, но думаю быдет и в других версиях.
есть пример использования и описание работы в файле readme.txt ]]> https://foxclub.ru/knowledgebase/proczedura-proverki-nalichiya-include-fajla-u-scx-vcx-proekta/ Fri, 28 Aug 2020 11:32:31 +0000

Процедура проверки наличия include-файла у SCX/VCX проекта

Сканирует активный проект на предмет наличия у форм/классов *.h файла определений и выводит отчет.

Автор: H.I.A.

Автор публикации

не в сети 6 месяцев

admin

Комментарии: 1Публикации: 123Регистрация: 10-12-2000

(далее…)

]]> https://foxclub.ru/knowledgebase/vfp-i-lotus-notes/ Fri, 28 Aug 2020 11:32:31 +0000

VFP и Lotus Notes

Работа из VFP c Lotus Notes: чтение почтовых сообщений, извлечение вложений, удаление обработанных сообщений, отправка почтовых сообщений с вложениями.

Автор: Георгий

Автор публикации

не в сети 6 месяцев

admin

Комментарии: 1Публикации: 123Регистрация: 10-12-2000

(далее…)

]]> https://foxclub.ru/knowledgebase/klass-pozvolyaet-peretaskivat-myshkoj-lyubye-obekty/ Fri, 28 Aug 2020 11:32:31 +0000

класс позволяет перетаскивать мышкой любые объекты

данный класс позволяет перетаскивать мышкой любые объекты. есть примеры работы с классом.

также есть примеры по созданию классов scroll и splite баров с его использованием.
писался под vfp6.0 sp5, но при написании использовались только стандартные возможности, так что думаю будет работать и в других версиях vfp.

Автор: Виктор

Автор публикации

не в сети 6 месяцев

admin

Комментарии: 1Публикации: 123Регистрация: 10-12-2000

(далее…)

]]> https://foxclub.ru/knowledgebase/ispolzovanie-odbc-api/ Fri, 28 Aug 2020 11:32:31 +0000

Использование ODBC-API

Монитор - ODBC

Как это получилось...
Возникла проблема: автоматизировать описание DSN-источников данных,
для неплохо продвинутых пользователей (а такие появляютя все чаще и чаще)
...дальше...больше - попробовал сделать "а-ля" Monitor-ODBC

1) используются функции ODBC-API (odbc32.dll, dbccp32.dll)
2) все остальное...- как угодно для разработчика VFP
3) сделано под версией: VFP9.SP1
4) будут-ли вопросы...

*--------------------------------------------------------------
источник информации:
Microsoft Data Access SDK Version 2.8
http://www.microsoft.com/msdownload/platformsdk/setuplauncher.asp

*--------------------------------------------------------------
Best Regards, ShmSoft, 03.2006, shmsoft@mail.ru

Автор: Андрей Шморин

Автор публикации

не в сети 6 месяцев

admin

Комментарии: 1Публикации: 123Регистрация: 10-12-2000

(далее…)

]]> https://foxclub.ru/knowledgebase/prilipayushhee-okno/ Fri, 28 Aug 2020 11:32:31 +0000

“Прилипающее” окно

Следствие темы "Прилипающее" окно на форуме. Это больше пример чем решение.

При нажатии кнопки мыша - выичлсяется видимася часть рабочего стола с учетом размера и положения TaskBar потом при таскании окна оно "прилипает" к границам рабочего стола по типу WinAMP

Автор: Пирожков Вадим

Автор публикации

не в сети 22 года

piva

Комментарии: 1Публикации: 11Регистрация: 24-03-2004

(далее…)

]]> https://foxclub.ru/knowledgebase/prelbrazovanie-chisla-denezhnoj-summy-v-tekstovuyu-stroku/ Fri, 28 Aug 2020 11:32:31 +0000

Прелбразование числа денежной суммы в текстовую строку

Преобразует число , например 3207004.59 в текстовую строку вида "три миллиона двести семь тысяч четыре гри. 59 коп." ... На авторство не претендую, основу взял из книжки по ФОКСу и довёл до реально-работающей версии...

Автор: Евгений

Автор публикации

не в сети 6 месяцев

admin

Комментарии: 1Публикации: 123Регистрация: 10-12-2000

(далее…)

]]> https://foxclub.ru/knowledgebase/makropodstanovka/ Sat, 14 Jan 2023 18:13:38 +0000

Макроподстановка

Макроподстановка
Формирование параметра команды в случае, если синтаксис FoxPro не предполагает его наличия
Использование условных операторов
Ветвление кода
Выражение имени. Скобки
Формирование имени объекта
Функция GetPem()
Коллекции объектов
Метод SetAll()
Формирование значения или выражения для его вычисления
Формирование символьных строк
Сложение и вычитание символьных строк
Функция TextMerge()
Текстовые скобки Text…EndText
Функция Evaluate()
Формирование команды
Использование макроподстановки
Особенности использования макроподстановки
Восстановление исходных настроек среды
Настройка SET FILTER
Формирование команды Select-SQL
Другие команды и функции, связанные с макроподстановкой
Макроподстановка нескольких строк кода.
Функция ExecScript()
Методы системного объекта _VFP
Метод _VFP.Eval()
Метод _VFP.DoCmd()
Метод _VFP.SetVar()

Макроподстановка – это одна из тех вещей, которые достаточно просто понять на практике, но довольно сложно дать определение «словами».

Типичные примеры использования макроподстановки выглядят примерно так

  * Макроподстановка в SQL-запросах  
  Local lcFieldList, lcWhere  
  lcFieldList = 'Field1, Field2, Field3'  
  lcWhere = 'FieldId = 1'  
  select &lcFieldList from MyTab where &lcWhere  
    
 * Макроподстановка в выражениях  
  Local lcCommand  
  lcCommand = 'lnVar = 1+2'  
  &lcCommand  
  ?' lnVar = ', lnVar  

  
 * Макроподстановка в SQL-запросах  
  Local lcFieldList, lcWhere  
  lcFieldList = 'Field1, Field2, Field3'  
  lcWhere = 'FieldId = 1'  
  select &lcFieldList from MyTab where &lcWhere  
    
 * Макроподстановка в выражениях  
  Local lcCommand  
  lcCommand = 'lnVar = 1+2'  
  &lcCommand  
  ?' lnVar = ', lnVar

С точки зрения FoxPro в процессе выполнения данных примеров код примет вид

  
 * Макроподстановка в SQL-запросах  
  select Field1, Field2, Field3 from MyTab where FieldId = 1  
    
 * Макроподстановка в выражениях  
  lnVar = 1+2  
  ?' lnVar = ', lnVar

Т.е. в процессе выполнения произойдет замена ссылки (переменной) на собственно значение. Понятно, что значение переменной может формироваться динамически, в зависимости от ряда условий или диалога с пользователем. Причем формироваться не на этапе компиляции программы, а непосредственно в процессе исполнения. Тогда определение макроподстановки можно выразить примерно такими словами

Определение

Макроподстановка – это средство исполнения кода, окончательный синтаксис которого формируется в процессе его исполнения.

Другими словами, на этапе написания кода заранее неизвестно, какой именно код будет исполняться. Это уточняется в процессе исполнения. За это свойство макроподстановки его очень любят новички, поскольку они всегда склонны писать некие «универсальные» (на все случаи жизни) алгоритмы. Однако опытные программисты относятся к макроподстановкам более сдержано. Как правило, по следующему принципу

Применение

Если существует альтернатива использованию макроподстановки без серьезного ущерба коду (по скорости, «читабельности», объему и т.п.), то лучше использовать эту альтернативу. По возможности, макроподстановку лучше не использовать.

Почему, собственно? Пожалуй, здесь подойдет такая аналогия. Представьте себе, что Вы решили купить какую-нибудь «мелочевку», ну, там, салфетки или карандаш. В общем, то, что стоит «копейки». Будете ли Вы расплачиваться крупной купюрой в несколько тысяч? Ну, можно, конечно, только Вы рискуете получить на сдачу мешок железной мелочи, который еще непонятно куда девать. А если все-таки решите пересчитать всю эту мелочь, может оказаться, что Вас обсчитали. Не обязательно по злому умыслу, просто попробуйте точно пересчитать такую гору мелочи.

Т.е. макроподстановка, зачастую, это «слишком много». Инструмент, не адекватный поставленной задаче. Нет, она, конечно, задачу решает, но затрачивает на ее решение избыточное количество ресурсов, при этом повышая риск возникновения ошибки. Опытный программист, по возможности, старается платить за «покупку» ровно столько, сколько она стоит, чтобы не ждать сдачи и не заниматься ее пересчетом. Т.е. использовать инструмент, который специально создан для решения конкретной задачи.

Данная статья как раз и посвящена тому, какие есть альтернативы макроподстановке, а также что и в каких случаях лучше использовать.

Для новичков проблемой является тот факт, что макроподстановка – это универсальный инструмент, ну, как «газовый (разводной) ключ». А ее альтернативы – это довольно большой набор «комплекта ключей». Т.е. альтернативны макроподстановке – это узкоспециализированные инструменты, приспособленные для решения довольно ограниченного круга задач. Новичку проще таскать с собой (изучить) один инструмент, чем несколько.

Следует отдавать себе отчет в том, что хотя, как правило, при помощи макроподстановки делается вставка некоего фрагмента команды, но, с точки зрения FoxPro, формируется вся команда целиком. По вполне понятной причине. Заранее просто невозможно сказать, какие именно опции (части) формируемой команды включены в макроподстановку. С другой стороны, альтернативы макроподстановки как раз интерпретируются FoxPro именно как части команд. Некие «параметры».

Чтобы как-то структурировать все дальнейшие объяснения, стоит выделить наиболее типичные случаи использования макроподстановки

Как правило, макроподстановки используют в следующих случаях

1. Формирование параметра команды в случае, если синтаксис FoxPro не предполагает его наличия
2. Формирование имени объекта
3. Формирование значения или выражения для его вычисления
4. Формирование команды

Вот и посмотрим, какие есть альтернативы при решении данных задач

Формирование параметра команды в случае, если синтаксис FoxPro не предполагает его наличия

В синтаксисе FoxPro многие команды не предполагают наличие параметра, хотя это часто необходимо. Типичные случаи - это все команды SET, все команды работы с файлами (USE, MODIFY, COPY, APPEND и т.п.) и ряд других случаев. В зависимости от того, о какой команде и каком «параметре» идет речь, существуют различные альтернативы макроподстановке.

Использование условных операторов. Ветвление кода

Довольно часто в программном коде возникает необходимость установки или восстановления некоторых глобальных настроек в заранее заданное значение. Однако большинство команд настроек не предусматривают указания параметра. Там просто ставится конкретное значение. Например, ON или OFF. Как же поступить, если надо задать конкретное, заранее известное значение? Команды SET в подавляющем большинстве случаев имеют всего два возможных значения. Как правило, это значения ON или OFF. Поэтому вместо макроподстановки можно использовать оператор IF. Примерно так

  
  lcNeedValue = 'OFF'	&& Значение, которое должна иметь настройка  
 * Сравниваем текущее значение настройки с тем, которое необходимо  
  IF SET('DELETED') <> lcNeedValue  
  	SET DELETED OFF  
  ENDIF

Как видите, все просто. Если текущее значение настройки отлично от того, которое нужно, то просто делаете эту настройку без макроподстановки.

Выражение имени. Скобки

Во многих случаях требуется сформировать имя чего-либо в качестве «параметра», когда команда FoxPro не предусматривает наличия параметра. Типичные случаи подобных ситуаций – это команды USE, COPY TO, REPLACE. Для данных ситуаций существует, так называемое, «выражение имени». Это обычные круглые скобки. Их использование выглядит следующим образом

  
 * Имя файла  
  lcFileName = getFile()  
  USE (m.lcFileName) IN 0  
  lcFileSave = putFile()  
  COPY TO (m.lcFileSave)  
    
 * Имя поля  
  lcFieldName = 'MyField'  
  select MyTable  
  REPLACE (m.lcFieldName) WITH 2  
    
 * Имя переменной  
  lcVariableName = 'MyVariable'  
 * Команда не может начинаться с круглой скобки. Будет сообщение о синтаксической ошибке  
 * (m. lcVariableName) = 1  
 * Однако можно использовать команду STORE  
  STORE 1 TO (m. lcVariableName)

Выражение имени (круглые скобки) можно рассматривать как некий усеченный вариант макроподстановки, но такой, который в результате своей работы формирует имя чего-либо. Отсюда и название «выражение имени». Т.е. выражение, формирующее имя. Чем выражение имени лучше «обычной» макроподстановки? Основное преимущество – это более высокая определенность кода. Во-первых, очевидно, что за выражением имени «скрывается» одно значение. Один «параметр» команды. При использовании макроподстановки – это далеко не очевидно. Ведь макроподстановка может включать в себя еще набор каких-либо дополнительных опций команды. Для выражения имени это просто исключено. Во-вторых, очевидно, что за выражением имени «скрывается» именно имя чего-либо, а не какая-либо опция команды. Что, опять же, не очевидно для макроподстановки. Есть еще некоторые дополнительные преимущества использования выражения имени. Но это уже из разряда приятных дополнений.

1. Нечувствительность к пробелам в имени
2. Несколько более высокая скорость работы

Подробнее про пробелы в именах можно почитать здесь Как работать с путями доступа и именами файлов, содержащих пробелы Однако следует понимать, что выражение имени можно использовать только в том случае, если формируемый «параметр» состоит только и исключительно из имени. Например,

LOCATE FOR MyField = 1

Здесь «параметром» является выражение «MyField=1», но никак не имя. Поэтому использовать здесь выражение имени просто невозможно. У данной команды нет «параметра» «имя», а применить выражение имени, к части «параметра» (только для имени поля) – невозможно.

Формирование имени объекта

Зачастую, возникает необходимость сформировать имя объекта, но не для какой-либо команды, а для получения доступа к свойствам и методам нужного объекта. Другими словами, получить ссылку на объект, имя которого будет сформировано динамически. Как правило, речь идет о каких-либо объектах на форме. Например, об определенном столбце Grid или определенном объекте TextBox.

Функция GetPem()

Данная функция идеальный вариант замены макроподстановки в случае, если Вам надо получить ссылку на какой-либо конкретный (одиночный) объект по его имени.

  
 * Ссылка на объект TextBox лежащий на форме  
  lcObjectName = 'TextBox' + '1'  
  loObject = GetPem(ThisForm, m.lcObjectName)  
  ?loObject.ReadOnly  
    
 * Ссылка на объект Column, лежащий в Grid1  
  lcObjectName = 'Column' + '1'  
  loObject = GetPem(ThisForm.Grid1, m.lcObjectName)  
  ?loObject.ReadOnly

Однако в случае перебора многих объектов это не очень-то удобно. Но для этого случая есть другие варианты

Коллекции объектов

Дело в том, что каждый объект-контейнер FoxPro содержит в себе две специальные коллекции вложенных объектов. В обязательном порядке будет существовать коллекция с именем «Objects» и еще одна коллекция, имя которой будет зависеть от типа объекта-контейнера:

• Controls (Form, Control, Container, Page, Column)
• Columns (Grid)
• Pages (PageFrame),
• Buttons (CommandGroup или OptionGroup)Как следствие, можно организовать перебор объектов в коллекции. Либо просто по номерам, используя цикл FOR…ENDFOR, либо циклом FOR EACH. Например, перебрать все объекты Column в Grid можно следующими способами

    
   * Перебор по физическому номеру столбца в коллекции  
    FOR m.lnI = 1 TO ThisForm.Grid1.ColumnCount  
    	loColumn = ThisForm.Grid1.Columns[m.lnI]  
    	?m.lnI, ' Name= ', loColumn.Name  
    ENDFOR  
      
   * Перебор всех объектов определенного типа  
    FOR EACH loColumn IN ThisForm.Grid1.Columns  
    	?'Name= ', loColumn.Name  
    ENDFOR

  Замечание Следует иметь в виду, что порядковый номер столбца в коллекции столбцов Grid, в общем случае, не имеет никакого отношения к имени столбца. Т.е. тот факт, что по умолчанию столбец с номером 1 имеет имя 'Column1', вовсе не означает, что после определенных модификаций с Grid тот же самый столбец сохранит тот же самый порядковый номер. Аналогичное замечание относится и ко всем другим однотипным элементам специализированных контейнеров. Page в контейнере PageFrame или Buttons в CommandGroup.

  Метод SetAll()

  Довольно часто совсем не нужно знать конкретное имя объекта. Нужно просто установить значение определенного свойства для всех объектов нужного типа в объекте-контейнере. Ну, например, установить для всех объектов TextBox на форме значение ReadOnly=.F. можно следующим способом

  ThisForm.SetAll('ReadOnly', .F., 'TextBox')

  Установить для всех объектов Column в Grid свойство DynamicBackColor таким образом, чтобы цвет фона записей чередовался с белого на зеленый

  ThisForm.Grid1.SetAll("DynamicBackColor", "IIF(MOD(RECNO( ), 2)=0, RGB(255,255,255), RGB(0,255,0))", "Column")

  Метод SetAll позволяет просто отказаться от ручного перебора объектов и, как следствие, от необходимости указания имен конкретных объектов. Хотя, конечно, если надо установить значение свойства по принципу «все, кроме», то без перебора все-равно не обойтись. Впрочем, если эти самые «кроме» созданы на базе другого класса, то можно и без перебора. Но это уже детали реализации.

  Формирование значения или выражения для его вычисления

  Наиболее типичный пример данной задачи – это формирования символьной строки с неким сообщением. Как правило, текст этого сообщения формируется из фрагментов, которые могут находиться в разных полях и переменных. Впрочем, бывает необходимо формировать не только текстовые строки.

  Формирование символьных строк

  С этой задачей сталкивались практически все. Существует довольно большое количество вариантов ее решения. Строго говоря, как правило, никому в голову не приходит формировать текстовую строку через макроподстановку, просто потому, что есть очевидные и более простые способы. Однако макроподстановка просто невозможна без предварительного формирования символьной строки. Именно поэтому способам формирования символьных строк в данной статье посвящено относительно много места. Как некоему предварительному этапу макроподстановки или ее аналогов.

  Сложение и вычитание символьных строк

  Символьные строки в FoxPro можно складывать и вычитать.

  lcString = 'Начало строки ' + ' окончание строки'

  Результат этой операции будет простое «сложение» или конкатенация символьных строк. Т.е. к концу первой строки будет добавлена вторая строка «как есть». В результате получим

  lcString = 'Начало строки  окончание строки'

  Символьные строки можно еще и «вычитать»

  lcString = 'Начало строки ' - ' окончание строки'

  Результат этой операции будет «сложение» или конкатенация символьных строк, однако все концевые пробелы каждого «слагаемого» будут перенесены в конец итоговой строки. Т.е. в результате получим

  lcString = 'Начало строки окончание строки '

  Операцией вычитания редко пользуются, поскольку большинство складываемых строк обычно не имеют ведущих пробелов. Как следствие, при выполнении операции вычитания символьных строк начало второй части просто сольется с окончанием первой. Между ними не окажется пробела. Естественно, в качестве слагаемого можно использовать не только символьные константы, но и поля таблиц. Единственное ограничение заключается в том, что значение поля должно быть преобразовано в символьный тип данных. В большинстве случаев с этим с успехом справляется функция TransForm()

  lcString = 'Значение поля Field1 = ' + TransForm(MyTable.Field1)

  Однако есть много других функций для преобразования в символьный тип данных: STR(), DTOC(), TTOC(), CAST()

  Функция TextMerge()

  Явное преобразование содержимого поля в символьный тип данных, конечно, хорошо, но удобнее пользоваться для этой цели функцией TextMerge()

  lcString = TextMerge('Значение поля Field1 = <<MyTable.Field1>>')

  Т.е. здесь прямо внутри символьной строки в окружении специальных символов пишется имя поля и функция TextMegre() автоматически преобразовывает его содержимое в символьный тип данных, вставляя этот текст вместо имени поля

  Текстовые скобки Text…EndText

  В случае если необходимо написать большой текст, занимающий несколько строк, то удобнее пользоваться текстовыми скобками Text…EndText. Все, что находится внутри них, воспринимается как обычный текст, а не программный код

    
    TEXT TO lcText TEXTMERGE NOSHOW  
    Значение поля Field1 = <<MyTable.Field1>>  
    Значение поля Field2 = <<MyTable.Field2>>  
    Значение поля Field3 = <<MyTable.Field3>>  
    ENDTEXT  
      
   * Смотрим, что получилось  
    ?lcText

  Как видите, нет необходимости в дополнительных кавычках и как-либо формировать перенос строк. Вы пишите текст так, как будто вы его пишите в текстовом редакторе. Ну, а специальные «скобки» в сочетании с опцией TEXTMERGE позволяют вставлять в текст содержимое полей таблицы.

  Функция Evaluate()

  Иногда надо не просто сформировать текстовую строку, но вычислить некое значение любого типа. В этом случае лучше использовать функцию Evaluate()

    
    select MyTab  
    lcExpression = 'Field1+2'  
    ?Evaluate(m.lcExpression)  
    lcFieldName = 'Field1'  
    replace (lcFieldName) with Evaluate(m.lcExpression)

  Формирование команды

  В большинстве случаев, это как раз та ситуация, когда нет альтернативы использования макроподстановки. В простейшем случае, это выглядит так.

    
    lcComand = 'lnVar = 1 + 2'  
    &lcComand  
    ?'Значение переменной lnVar=', lnVar

  Однако в данном случае следует серьезно подумать о необходимости использования подобной макроподстановки. Слишком уж «не прозрачным» становится код. Совершенно не понятно, что скрывается за макроподстановкой. Может быть, имеет смысл разбить макроподстановку на две части?

    
    lcVarName = 'lnVar'  
    lcExpression = '1+2'  
    STORE Evaluate(lcExpression) TO (lcVarName)  
    ?'Значение переменной lnVar=', lnVar

  На практике, разумеется, в качестве команды выступают боле сложные команды. Обычно это команды Select-SQL. Но об этом чуть ниже.

  Использование макроподстановки

  Несмотря на все приведенные ранее примеры, тем не менее, есть ситуации, когда без макроподстановки просто не обойтись. Не то, чтобы это было в принципе невозможно, просто решение без макроподстановки будет более громоздким. Ниже приведены наиболее типичные случаи, когда макроподстановка оправдана. Разумеется, приведенными примерами далеко не исчерпывается список случаев ее использования. Просто все прочие варианты использования относительно редки.

  Особенности использования макроподстановки

  Прежде чем описывать случаи использования макроподстановки следует остановиться на некоторых особенностях самой команды макроподстановки. Основной особенностью использования макроподстановки является тот факт, что первая точка после символа макроподстановки интерпретируется не как разделитель объектов, а как символ «сложения» того текста, который стоит «внутри» макроподстановки и текста, следующего за символом точки.

    
    lcName = 'TextBox1'  
   * Следующая команда вызовет довольно странное сообщение об ошибке  
    ?ThisForm.&lcName.ReadOnly

  Текст ошибки будет звучать примерно так: Объекта «TextBox1ReadOnly» не существует. Как видите, символ первой точки просто «прибавил» к содержимому макроподстановки все то, что следовало за ним. Как же определяется окончание того фрагмента, который должен быть «прибавлен» к содержимому макроподстановки? «Сложение» будет идти до тех пор, пока не встретится еще один символ точки или любой другой символ, означающий окончание опции (фрагмента) команды (пробел, равенство, запятая и т.п.). Как следствие, если необходимо избежать подобного «сложения», то просто ставят две точки подряд

    
   * Следующая команда имеет 2 точки подряд после символа макроподстановки  
    ?ThisForm.&lcName..ReadOnly

  При таком синтаксисе, к содержимому макроподстановки «прибавляется» пустая строка, поскольку после первой точки и до второй – ничего нет. А вторая точка уже служит обычным разделителем имен объектов.

  Восстановление исходных настроек среды

  Правилом хорошего тона считается восстановление исходных настроек среды, после того, как с ней закончили работать. Разумеется, дело тут не просто в хороших манерах, а в том, чтобы вернувшись, например, в родительскую форму после работы в дочерней форме не получить ряд проблем из-за изменившихся в дочерней форме настроек среды окружения. Как уже было показано ранее, очень многие настройки среды могут принимать только одно из двух значений и их можно восстановить без макроподстановки простым ветвлением кода. Однако далеко не все. Например, настройку ON ERROR

    
    lcOldError = ON('Error')  
    ON ERROR DO MyProg   
   * Дальнейшая работа со средой  
   * Восстановление исходных настроек после завершения работы  
    ON ERROR &lcOldError

  Здесь просто нет вариантов, поскольку «параметром» для настройки ON ERROR выступает никак не «имя» и не «выражение». В данном случае «параметром» является команда. А для команды нет альтернативы. Аналогичное правило действует и в отношении любых других настроек, если «параметр» настройки нельзя свести к ограниченному набору значений, имени чего-либо или выражению. Нет, разумеется, и здесь есть варианты решения без макроподстановки, но довольно громоздкие. Например, как можно было бы решить вопрос с ON ERROR? Да очень просто. Сделать процедуру, которая бы по содержимому переменной lcOldError выполняла бы соответствующую настройку. Ну, примерно так

    
    DO CASE  
    CASE lcOldError = 'DO MyProg'  
    	ON ERROR DO MyProg  
    CASE lcOldError = …  
    ENDCASE

  Но, Вы представляете себе эту «простыню»? Т.е. сколько строк кода должно быть в подобной процедуре? Это не говоря о том, что процедура ON ERROR может быть контекстно-зависимой, т.е. привязанной к какому-либо объекту, ссылку на который тоже придется передавать в эту процедуру. В общем, мороки много, а толку мало. Макроподстановка в данном случае предпочтительнее во всех смыслах.

  Настройка SET FILTER

  Вообще-то, настройка SET FILTER не обладает достаточной гибкостью. Как следствие, годится только для довольно простых случаев фильтрации, когда надо «по-быстрому» решить очередную «хотелку» пользователя. Если данная задача впоследствии «обрастет» дополнительными требованиями, то, скорее всего от SET FILTER придется отказаться в пользу запросов. Просто SET FILTER не справится с возросшими требованиями. Тем не менее, в простых случаях SET FILTER может оказаться полезным. Как правило, фильтрация осуществляется на основании некоего значения, введенного в объект на форме. Поэтому условие фильтра обычно выглядит так

    
    Select MyTab  
    SET FILTER TO MyField = ThisForm.TextBox1.Value

  И это работает. Более того, при изменении значения TextBox1 даже не надо ничего делать, фильтр изменится автоматически. Однако, тем не менее, подобные конструкции лучше не использовать. В чем здесь подвох? Дело в том, что настройка SET FILTER привязана к рабочей области, а вовсе не к форме. Это значит, что если Вы перейдете в другую форму и обратитесь к той же самой рабочей области, то получите сообщение об ошибке вроде «Объект TextBox1 не существует». Действительно не существует. Ведь Вы же перешли в другую форму. В ту, где подобного объекта нет. Но фильтр-то об этом не знает. Он упорно пытается обратиться по тому «адресу», который ему и указали. Разумеется, это можно обойти, создав глобальную переменную со ссылкой на форму. Но это тот случай, когда лекарство хуже болезни. После этого придется предпринимать ряд усилий по контролю над этой переменной и ее своевременным уничтожением. Значительно проще проблема решается при использовании макроподстановки следующим образом

    
   * Если значение числового типа  
    lnValue = ThisForm.TextBox1.Value  
    SET FILTER TO MyField =&lnValue  
      
   * Если значение символьного типа  
    lcValue = ['] + ThisForm.TextBox1.Value + [']  
    SET FILTER TO MyField =&lcValue

  Другими словами, при помощи макроподстановки заменяем ссылку непосредственно значением, содержащимся в этой переменной. Как следствие, настройка SET FILTER оказывается не зависимой от контекста. Она больше не привязана к объектам формы. Правда, небольшим недостатком данной замены является необходимость повторного назначения фильтра при изменении значения в объекте на форме. Но это даже недостатком можно назвать условно. Смотря, с какой точки зрения на это смотреть.

  Формирование команды Select-SQL

  Это один из наиболее часто встречающихся случаев использования макроподстановки. Выглядит примерно так

    
    Local lcFieldList, lcWhere  
    lcFieldList = 'Field1, Field2, Field3'  
    lcWhere = 'FieldId = 1 and Field1 in (1,2,3)'  
    select &lcFieldList from MyTab where &lcWhere

  Здесь также, по сути, нет альтернативы использованию макроподстановки. Список полей, это, конечно же, список имен, однако выражение имени может быть использовано только для одного имени, а не для списка. Запрос, возвращающий одно поле – достаточно редко встречается. Да и при использовании выражения имени придется дополнительно указывать имя поля в результирующей выборке, иначе оно получит имя вроде «Expr_1», ведь было вычислено выражение. В условии отбора использовать Evaluate() тоже не получится. Почему? Ну, кратко это описать затруднительно. Тут несколько причин. В зависимости от того, какое именно выражение необходимо вычислить. Если Вы попытаетесь использовать Evaluate(), то, скорее всего, ошибки это не вызовет, но вот результат запроса окажется далек от ожидаемого. Если и совпадет, то разве что случайно. Здесь еще раз уместно упомянуть тот факт, что даже один символ макроподстановки с точки зрения FoxPro означает формирование команды целиком. Это значит, что будут задействованы все механизмы оптимизации SQL-запросов. Макроподстановка не отключает оптимизацию. Соответственно, можно формировать не части команды, а всю команду сразу

    
    Local lcSelectSQL  
    lcSelectSQL = 'select Field1, Field2, Field3 from MyTab where FieldId = 1 and Field1 in (1,2,3)'  
    &lcSelectSQL

  Подобный способ имеет как преимущества, так и недостатки. Преимуществом является тот факт, что в режиме отладки можно посмотреть на сформированную команду (содержимое символьной переменной lcSelectSQL) и понять в чем ошибка (если есть), просто запустив эту команду в командном окне. Недостатком же является отсутствие «наглядности». Совершенно непонятно, как именно сформирована строка макроподстановки. Из каких «слагаемых» она собрана.

  Другие команды и функции, связанные с макроподстановкой

  Кроме описанных ранее команд и функций следует упомянуть еще ряд команд и функций. Подробно их описывать нет смысла, поскольку документация по ним достаточно полная.

  Макроподстановка нескольких строк кода. Функция ExecScript()

  Одним из ограничений макроподстановки является тот факт, что при помощи нее можно выполнить только одну команду. Если Вам необходимо выполнить несколько команд, то Вы вынуждены будете последовательно выполнять по одной команде. Но как быть, например, с операторами цикла или условия? Ведь они состоят из двух команд? Ну, строго говоря, подобных макроподстановок лучше избегать. Это еще более сложная и не однозначная задача, чем «простая» макроподстановка. Тем не менее, в этих случаях поступают следующим образом. Формируется символьная строка, по сути, содержащая фрагмент файла PRG. Затем этот файл компилируется и выполняется. Сделать это можно буквально. Сохранив символьную строку как файл PRG при помощи функции StrToFile(), откомпилировав его командой Compile, и запустив на исполнение командой Do. После этого надо не забыть удалить временный файл с диска и выгрузить его из памяти. Однако то же самое можно проделать не явно, специальной функцией ExecScript(). Фактически, эта функция берет на себя работу этих трех команд. Формирует файл, компилирует его и выполняет. Также эта функция и убирает за собой. Поскольку, по сути, функция ExecScript() выполняет отдельную процедуру, то следует помнить об области видимости переменных, если Вы собираетесь использовать их внутри данной функции. Еще раз напомню, что для FoxPro данная функция еще более «тяжелая», чем обычная макроподстановка. Поэтому, если речь идет об одиночной команде, то, лучше все-таки использовать обычную макроподстановку.

  Методы системного объекта _VFP

  Существуют ситуации, когда необходимо выполнить макроподстановку, но не как команду, а как функцию. Наиболее часто в этом возникает необходимость внутри отчетов, где использование команд просто невозможно. Разумеется, это можно сделать, создав специальную функцию, в которую в виде параметра передавать строку. А внутри функции уже выполнить команду макроподстановки для данной строки. Но эту задачу можно решить при помощи специальных методов системного объекта _VFP

  Метод _VFP.Eval()

  Данный метод – это полный аналог функции Evaluate(). Т.е. результат их работы будет полностью идентичен.

    
    lcExpression = '1+2*3'  
    ?_VFP.Eval(m.lcExpression)  
      
   * Тот же самый результат даст следующая команда  
    ?Evaluate(m.lcExpression)

  Метод _VFP.DoCmd()

  Данный метод – это полный аналог макроподстановки для целой команды. Т.е. результат их работы будет полностью идентичен.

    
    lcCommand = 'Wait window [Подождите…] timeout 10'  
    _VFP.DoCmd(m.lcCommand)  
   * Тот же самый результат даст следующая команда  
    &lcCommand

  Метод _VFP.SetVar()

  Данный метод это аналог присвоения значения переменной через макроподстановку. Причем макроподстановка используется для имени переменной.

    
    lcVarName = 'lnMyVar'  
    _VFP.SetVar(m.lcVarName, 123)  
    ?lnMyVar  
      
   * Тот же самый результат даст следующая команда  
    Store 123 TO (m.lcVarName)  
    ?lnMyVar

Автор публикации

не в сети 26 лет

Владимир Максимов

Комментарии: 0Публикации: 65Регистрация: 02-09-2000

(далее…)

]]> https://foxclub.ru/knowledgebase/2-ndfl-2005/ Fri, 28 Aug 2020 11:32:31 +0000

2-НДФЛ 2005

Обработка выгрузки 2-НДФЛ 2005 и печать справок

Входные данные: Файл выгрузки со сведеними о доходах в формате, указанном в ПРИКАЗЕ ФНС РФ от 25.11.2005 N САЭ-3-04 616@ Об утверждении формы сведений о доходах физических лиц.
Выходные данные: Таблицы .dbf с данными о налогоплательщиках.
Для печати справок используется шаблон Excel 2NDFL2005.xlt с подключенным макросом ToOnePage()
Данные примера взяты из приказа ФНС С ИСПРАВЛЕНИЯМИ - в приказе есть нарушения тэговой структуры

Автор: Денис В. Косаревский

Автор публикации

не в сети 6 месяцев

admin

Комментарии: 1Публикации: 123Регистрация: 10-12-2000

(далее…)

]]> https://foxclub.ru/knowledgebase/registracziya-ocx-bez-ispolzovaniya-regsvr32/ Wed, 23 Nov 2022 06:57:42 +0000

Регистрация OCX, без использования regsvr32

Любой OCX/ActiveX control, или OLE сервер может быть зарегистрирован в системе за счет применения своих внутренних функций. Этот метод имеет ряд преимуществ: - Позволяет отслеживать результат регистрации класса в системе - Не требует никаких внешних программ Автора, к сожалению не помню, взято с Universal Thread

Note: Для корректного применения кода, вам необходимо в функциях перехватить error 1754 (Cannot find entry point "name" in the DLL.) Эта ошибка генерирутся в случае передачи в качестве параметра имени файла, не являющемся OCX/ActiveX control или OLE сервером.
Функция: RegisterControl

 

*-- Функция регистрации OCX/ActiveX контрола или OLE сервера  
    
  FUNCTION RegisterControl  
    
 *-- Параметр:  
 *      Имя файла, с указанием пути  
 *-- Функция возвращает:  
 *      Logical TRUE если регистрация прошла успешно,  в противном случае FALSE .  
 *      В случае отсутствия файла, функция вернет также FALSE .  
 *-- Пример вызова функции:  
 *      llRegistered = RegisterControl("c:\windows\systemcomctl32.ocx")  
    
  LPARAMETERS tcFileName  
  LOCAL llSuccess  
    
  IF FILE(tcFileName)  
    
     DECLARE INTEGER DllRegisterServer ;  
        IN (tcFileName) ;  
        AS __DllRegisterServer__  
    *-- This function returns 0 if successful  
     IF __DllRegisterServer__() = 0  
        llSuccess = .T.  
     ELSE  
        llSuccess = .F.  
     ENDIF  
  ELSE  
     llSuccess = .F.  
  ENDIF  
    
  RETURN llSuccess  
    
 **Обратная функция  
    
  FUNCTION UnregisterControl  
  LPARAMETERS tcFileName  
  LOCAL llSuccess  
    
  IF FILE(tcFileName)  
     DECLARE INTEGER DllUnregisterServer ;  
        IN (tcFileName) ;  
        AS __DllUnregisterServer__  
    *-- This function returns 0 if successful  
     IF __DllUnregisterServer__() = 0  
        llSuccess = .T.  
     ELSE  
        llSuccess = .F.  
     ENDIF  
  ELSE  
     llSuccess = .F.  
  ENDIF  
  RETURN llSuccess

взято с Universal Thread

Автор публикации

не в сети 2 месяца

Joys

Комментарии: 2Публикации: 177Регистрация: 25-06-2000

(далее…)

]]> https://foxclub.ru/knowledgebase/strokovye-funkczii-transact-sql-vfp/ Fri, 28 Aug 2020 11:32:30 +0000

Строковые функции Transact-SQL <-> VFP

Строковые функции Transact-SQL MS SQL Server, Sybase ASA, PL DB2, Oracle PL/SQL GETWORDCOUNT, GETWORDNUM, AT, RAT, CHRTRAN, STRTRAN, STRFILTER, OCCURS, PADL, PADR, PADC, PROPER, RCHARINDEX, ARABTOROMAN, ROMANTOARAB большинство из которых являются сходными по названию и функциональности с одноименными функциями FoxPro.

Дамы и Господа,

Я хотел бы вам предложить следующие строковые функции Transact-SQL
AT() Выполняет поиск позиции, с которой подстрока начинается в строке и возвращает номер позиции
RAT() Выполняет поиск позиции, с которой подстрока начинается в строке и возвращает номер позиции, но в отличии от AT() осуществляет поиск справа
OCCURS() Возвращает количество вхождений подстроки в строке (учитывает "перекрытия" подстрок)
OCCURS2() Возвращает количество вхождений подстроки в строке (не учитывает "перекрытия" подстрок)
PADL() Возвращает в виде символьной строки, заданную первым аргументом строку, дополненную третьим аргументом до длины, заданной вторым аргументом, причем вставляет символы-заполнители слева
PADR () Возвращает в виде символьной строки, заданную первым аргументом строку, дополненную третьим аргументом до длины, заданной вторым аргументом, причем вставляет символы-заполнители справа
PADC() Возвращает в виде символьной строки, заданную первым аргументом строку, дополненную третьим аргументом до длины, заданной вторым аргументом, причем вставляет символы-заполнители с обеих сторон
CHRTRAN() Выполняет перекодировку выражения, заданного в первой строке, используя вторую и третью строки в качестве таблицы перекодировки
STRTRAN() Возвращает строку символов, полученную из первой строки, в которой одно или несколько вхождений второй подстроки заменены третьей подстрокой(в отличии от встроенной функции replace, STRTRAN имеет три дополнительных параметра)
STRFILTER() Удаляет все символы из первой строки, за исключением символов, содержащихся во второй строке
GETWORDCOUNT() Возвращает количество слов в строке
GETWORDNUM() Возвращает заданное слово в строке
GETALLWORDS() Помещает в таблицу все слова из строки
PROPER() Возвращает строку, преобразуя в ней первую букву каждого слова в прописную, а остальные в строчные
RCHARINDEX () Подобна встроенной функции Transact-SQL charindex, но осуществляет поиск справа
ARABTOROMAN () Преобразует обычное число в римское число (от 1 до 3999)
ROMANTOARAB () Преобразует римское число в обычное число (от I до MMMCMXCIX)

Функции AT, PADL, PADR, CHRTRAN, PROPER аналогичны функциям Oracle PL/SQL INSTR, LPAD, RPAD, TRANSLATE, INITCAP

Более 8000 человек во всем мире уже загрузили данные функции, надеюсь, что они будут полезными и для Вас.

Есть версии для Sybase ASA, PL DB2, Oracle PL/SQL
С целью получения более полной информации относительно вышеописанных функций (на английском языке), пожалуйста, зайдите на
http://www.universalthread.com/wconnect/wc.dll?LevelExtreme~2,54,33,27115
Пожалуйста, загрузите файл
http://www.universalthread.com/wconnect/wc.dll?LevelExtreme~2,2,27115

Имеются версии для Sybase ASA и для DB2. Функции GETWORDCOUNT, GETWORDNUM, AT, RAT, OCCURS, CHRTRAN, STRTRAN, PADC, PADR, PADL, PROPER были и есть в VFP, функция STRFILTER есть в библиотеке Foxtools VFP.
Имена этих функций, вызов функций (за исключением того, что в Transact-SQL Вы не можете опускать параметры по умолчанию, нужно обязательно указывать ключевое слово default при вызове UDF), результаты работы - совпадают с одноименными функциями VFP.
Прилагаются тестовые программы для получения представления о скорости работы вышеупомянутых функций и сравнения их скорости работы со скоростью встроенных функций.

Имеются следующие особенности:
1) в VFP функция OCCURS подсчитывает количество вхождений подстрок в строку, не учитывая перекрытия (overlaps), то есть поиск n+1 подстроки в строке начинается
с элемента номер (начало n подстроки + длина подстроки).
Пример: в VFP OCCURS('ABCA', 'ABCABCABCA') -- display 2
-- 1 occurrence of substring 'ABCA .. BCABCA'
-- 2 occurrence of substring 'ABCABC ..ABCA'

Моя функция OCCURS подсчитывает количество вхождений подстрок в строку, учитывая перекрытия (overlaps), то есть
поиск n+1 подстроки в строке начинается
с элемента номер (начало n подстроки + 1).
Пример: select dbo.OCCURS('ABCA', 'ABCABCABCA') -- display 3
-- 1 occurrence of substring 'ABCA .. BCABCA'
-- 2 occurrence of substring 'ABC...ABCA...BCA'
-- 3 occurrence of substring 'ABCABC...ABCA'

То есть в VFP имеется некоторое противоречие -
At(cSearchExpression, cExpressionSearched, Occurs(cSearchExpression, cExpressionSearched) + 1) должно быть всегда равно нулю, но в VFP это не всегда так :
Выполните, пожалуйста, следующую программу, которая показывает противоречие в работе функций VFP At и Occurs
________________________________________________________________

cSearchExpression = 'ABCA'
cExpressionSearched = 'ABCABCABCA'

?' количество вхождений подстроки ' +cSearchExpression +' в строку '+cExpressionSearched+' , полученное с помощью функции Occurs'
lnIOccurs = Occurs(cSearchExpression , cExpressionSearched ) && display 2
? lnIOccurs
** первая подстрока
lnSrt = At(cSearchExpression, cExpressionSearched, 1)
lnI = 1
?' показывает все подстроки, полученные с помощью функции At'
Do While .Not.Empty(lnSrt)
?' подстрока номер ', lnI, ' начинающаяся с позиции номер ', lnSrt
?Substr( cExpressionSearched, lnSrt, Len(cSearchExpression))
?' оставшаяся строка '
?Space(lnSrt)+Substr( cExpressionSearched, lnSrt)
lnI = lnI + 1
lnSrt = At(cSearchExpression, cExpressionSearched, lnI )
Enddo
lnI = lnI - 1
?'количество подстрок, полученное с помощью функции At', lnI
?' количество подстрок найденных с помощью функции At больше '
?'чем количество подстрок полученных с помощью функции Occurs'
? lnI, Iif(lnI > lnIOccurs , ' > ', Iif(lnI < lnIOccurs, ' < ',' = ')) , lnIOccurs
?' следующее выражение '
?'At(cSearchExpression, cExpressionSearched, Occurs(cSearchExpression, cExpressionSearched) + 1)'
?'непустое - противоречие'
?' функция Occurs возвращает количество вхождение подстроки в строку'
?' функция At возвращает позицию, с которой начинается подстрока в строке, '
?'причем третий параметр это номер вхождения подстроки в строку'
?At(cSearchExpression, cExpressionSearched, Occurs(cSearchExpression, cExpressionSearched) + 1)
________________________________________________________________

Предположим, некто пишет цикл
For lnI = 1 to Occurs( Var1, Var2)
?at( Var1, Var2, lnI)
Endfor
Он уверен, что Occurs( Var1, Var2) всегда выдает результат, соотносящийся с результатами функции at,
на некоторых строках найти ошибку будет весьма трудно.
Сейчас вопрос касательно работы функции OCCURS задан VFP Team, но ответа пока нет.

Для подсчета количества вхождений подстрок в строку, не учитывая перекрытия (overlaps), Stephen Dobson (Toronto), предложил элегантный прием (с моими дополнениями), это выглядит так:

CREATE function OCCURS2 (@cSearchExpression nvarchar(4000), @cExpressionSearched nvarchar(4000))
returns smallint
as
begin
return
case
when datalength(@cSearchExpression) > 0
then ( datalength(@cExpressionSearched)
- datalength(replace(cast(@cExpressionSearched as nvarchar(4000)) COLLATE Latin1_General_BIN,
cast(@cSearchExpression as nvarchar(4000)) COLLATE Latin1_General_BIN, '')))
/ datalength(@cSearchExpression)
else 0
end
end

2) функции VFP GETWORDCOUNT, GETWORDNUM некорректно работают со строками, содержащими нулевой символ

3) особенность работы функции substring Transact-SQL.
если substr('tra-la-la', 0, 2) VFP возвращает пустую строку, то есть при втором аргументе меньше единицы всегда возвращается пустая строка, то
substring('tra-la-la', 0, 2) Transact-SQL возвращает 't' то есть при втором аргументе меньше единицы нужно смотреть на третий аргумент, и в зависимости от него будет получен результат, скажем,
substring('tra-la-la', -5, 8) Transact-SQL возвращает 'tr' .
Объяснение этому здесь http://support.microsoft.com/kb/q310421/

4) баг в Microsoft SQL Server 2000 - 8.00.2039 (Intel X86) SP4

declare @n nvarchar(4000)
set @n = replicate(N'z',3999)+N'ï'
select right(replace(@n, N'ï', N'B'),1) -- display ï but this is incorrect result, correct result is B

Каждыйв этом может убедиться

Теперь вопросы, скептические замечания и мои ответы на них:
»Transact-SQL тоже язык не бедный и к чему изобретать велосипед в каждом языке родное надежнее
Лично мне напоминает мне то время когда я не знал FoxPro и изобретал разные функции, не зная о существовании встроенных, а теперь я напрочь о своих разработках .
На мой взгляд, лучше просто изучить подробнее стандартные функции Transact-SQL, там должно быть всё, ну, или почти все»
» Лично я стараюсь не использовать пользовательские функции в MS SQL Server... В принципе, пока обходился стандартными... А там уже не за горами версия от 2005 года...»

В начальных версиях FoxPro, затем VFP, не было функций GETWORDCOUNT, GETWORDNUM они были в библиотеке Foxtools, без них можно было обойтись, используя стандартные. Не было, кстати, функции ICASE она появилась, начиная с 9 версии. Начиная с шестой версии, многие функции из библиотеки Foxtools стали частью языка.
Если бы существовала острая необходимость в написанных мною функциях Transact-SQL, их написал бы не я, а разработчики SQL Server.
Острой необходимости в них нет, каждый день происходит 40-50 закачек, хотя объявления представлены в разделах скриптов на достаточно популярных форумах, например на
http://www.sqlservercentral.com/scripts/contributions/1488.asp
http://www.databasejournal.com/scripts/article.php/3503581
http://www.sswug.org/scriptmgr/recentscripts.asp .
и так далее
В мире сотни тысячи пользователей SQL Server, закачали же мои функции за полтора месяца со всех источников, наверное, чуть более 2500.
Я встретил поначалу массу скептических отзывов со стороны многих MVP, встретил, правда и положительные отзывы со стороны тех же MVP, в общем, мнения разделились.
Ну а тот, кому надо, берет и использует, просто многие из тех, кому они действительно могут быть полезными, не знают и не подозревают об их существовании.
» Ну не верю я в то, что сервер беднее, чем FoxPro»
Это не вопрос веры, а всего лишь знания, функций
GETWORDCOUNT, GETWORDNUM, AT, RAT, CHRTRAN, STRFILTER, OCCURS, PADC, PADR, PADL, PROPER (схожих не по имени, а по функциональности) в Transact-SQL нет, насчет версии 2005 не знаю. Найти какие либо еще отсутствующие функции мне не удалось (если только не считать совсем узкоспециальное, типа JUSTNAME и т.д.).

“родное надежнее”
Смотрите выше «баг в Microsoft SQL Server 2000 - 8.00.2039 (Intel X86) SP4»
Именно по причине большого количества дешевых поделок, умные люди не используют «функции», «библиотеки» в большом количестве встречающиеся в Интернете. Начинаешь что-нибудь ставить,
а оно не устанавливается, как можно этому доверять. Как можно доверять серьезные приложения функциям написанным неизвестно кем? Поэтому со скептицизмом встречают и вышеприведенные функции, но они потихоньку находят своих пользователей, после публикации на серьезных форумах число скептиков уменьшается, по существу возразить никто не может.
Идея тестирования вышеприведенных функций очень проста - формируются случайные строки случайной длины, и затем сравниваются результаты работы встроенных функций VFP и UDF Transact-SQL. Я прогнал тесты несколько сотен тысяч раз, перед тем как попытался разместить их в разделе Downloads форума Universalthread.
Код открыт и всегда можно убедится в его корректности.
Так что все работает в соответствии со спецификацией VFP, за исключение того, что мои функции работают и со строками в UNICODE, то есть к примеру с символами китайского языка,
я размещал их и на китайском форуме SQL Server.
»Может пример приведете из своего опыта, когда что-то сделать невозможно при работе со строками»
Два примера, скорее обратных, показывающих, что со строками можно сделать все, используя встроенные функции, но не из моего опыта, поскольку, если задача встречается часто или может в будущем встретится часто, я предпочитаю писать процедуру или функцию.
Первый пример:
На microsoft.public.sqlserver.programming некто Dave 24 апреля 2005 года спрашивает
(ему видимо лень, было, обходится встроенными функциями или заходить на www.google.com набирать в строке поиска User-Defined string functions Transact-SQL)

How can I use the T-SQL string functions to find the _third_ occourance of a
character.
For example, I have an email field and it has data that looks like this:
http://www.sqlservercentral.com/scripts/contributions/1488.asp
I want to find the position of the third occurence of '/' so I can use its
position to extract just the main domain name, truncating all the trailing
garbage.
Does anyone have any ideas on how to do this?

Ему с готовностью помогают, демонстрируя возможность обойтись встроенными функциями (действительно, можно, нет никаких сомнений)
____________________________________________________________
Dave,
Here's an example that should help you out:
declare @t table (
s nvarchar(1000) )
insert into @t values (‘http://www.sqlservercentral.com/scripts/contributions/1488.asp')
insert into @t values
('http://www.sqlservercentral.com/scripts/contributions/1488.asp')
select
substring(s,a,charindex('/',s,a)-a) as theDomain
from (
select
s,
charindex('//',s) + 2 as a
from @t
)

Steve Kass
Drew University
____________________________________________________________
Далее Dave благодарит за ценный совет, но получает еще один
____________________________________________________________
This should extract the Domain Name...

Declare @V VarChar(89)
Set @V = 'http://www.sqlservercentral.com/scripts/contributions/1488.asp'

Select Substring(@V, CharIndex('//', @V) + 2, CharIndex('/',
Substring(@V, CharIndex('//', @V) + 2, Len(@V)))-1)
____________________________________________________________
Ну и, естественно, я вставил свои три копейки
select dbo.AT('/','http://www.sqlservercentral.com/scripts/contributions/1488.asp',3)

Видимо, на нашей планете, можно найти сотни тысяч подобных строк кода
в базах SQL Server , иначе бы мне не говорили спасибо на нескольких языках,
многие ведь нашли решение сами, не спрашивая на форумах.

Второй пример:
На http://www.sqlteam.com/forums/topic.asp?TOPIC_ID=49733
некто JAme задает вопрос
hi,
is there a similar function in SQL server to ORACLES RPAD ?

I need to display a field for a fixed width of 10.
if the field is not 60 then add blank spaces . .
eg:

[jamie ]
[sqlteam ]
and so on . .. .
thank you for any help/
JAme
*--------------------------------------------------------------
То есть интересуется - имеется ли нечто подобное функции RPAD PL/SQL.
Да, имеется функция PADR, если бы он поискал на форуме, то нашел бы, опубликовано несколькими днями ранее на том же форуме.

robvolk SQL Server MVP & SQLTeam MVY и прочая и прочая (всех титулов и званий достаточно много)
начинает давать дельные советы, что то про bcp и т.д. и т.п., разворачивается оживленная дискуссия
его благодарят и т.д. и т.п.
В общем, кому интересно, можете почитать.

»Ну а особенности с ними нужно дружить, а не воевать»
Их нужно сначала знать, для этого и существуют форумы, где обмениваются информацией,
Форумы ведь существуют не только для того чтобы отвечать на вопросы Dave ов. У меня ушло достаточно много времени на то чтобы разобраться, этого не знали даже (теперь знают от меня) гуру от VFP.

Ну и в заключение, привожу фрагмент письма, показывающий, то, что делает нашу работу приятной.
To Igor Nikiforov,

Thank you for sharing your code. I Googled 'SQL count occurrence of
character in a string' and bingo! Didn't have to write it and got so
much more.

Appreciate it.

Phil Youker
Programmer/Analyst
VCSSO/Information Technology Services

Благодарю Вас за то, что Вы потратили свое время, прочитав мою статью, надеюсь,
что данное чтение хоть немного будет полезным для Вас.
С наилучшими пожеланиями, Никифоров Игорь.

Автор: Никифоров Игорь

Автор публикации

не в сети 6 месяцев

admin

Комментарии: 1Публикации: 123Регистрация: 10-12-2000

(далее…)

]]> https://foxclub.ru/knowledgebase/trackbar-ispravlenyj/ Fri, 28 Aug 2020 11:32:30 +0000

TrackBar – Исправленый

Визуальное изменение значения при помощи ползунка

Обновил класс, подправил бегание ползунка,
добавил отрицательный диапазон значений,
подчистил, добавил словесные эквиваленты
и ControlSource.

Пример и текстовичек в архиве. PS подправил получение значения из RecordSource (на входе). Заменил присвоение эквивалентов: Вместо прямого присвоения значений текстовых эквивалентов на метод Set_Items(cList,sDelimiter)

Автор: Владимир Кныр

Автор публикации

не в сети 22 года

Vladimir_Knyr

Комментарии: 0Публикации: 11Регистрация: 15-12-2003

(далее…)

]]> https://foxclub.ru/knowledgebase/formirovanie-otchetov-na-letu-frxobj/ Fri, 28 Aug 2020 11:32:31 +0000

Формирование отчетов “на лету” (FrxObj)

Создана была когда мне было лень рисовать отчеты на каждый запрос - просто выгребает всю инфу из грида и формирует файл отчета "на лету" затем его уже выводит на печать.

Автор: Пирожков Вадим

Автор публикации

не в сети 22 года

piva

Комментарии: 1Публикации: 11Регистрация: 24-03-2004

(далее…)

]]> https://foxclub.ru/knowledgebase/proczedura-preobrazovaniya-stroki-simvolov-iz-1251-ili-866-kodovoj-straniczy-v-utf-8r/ Fri, 28 Aug 2020 11:32:31 +0000

Процедура преобразования строки символов из 1251 (или 866) кодовой страницы в UTF-8r.

Процедура преобразования строки символов из 1251 (или 866) кодовой страницы в UTF-8r - для использования при создании XML-файлов. Для FPD и тех версий VFP, где такая функция еще отсутствует.

Файл PRG - в архиве.
Процедура может использовать один или два параметра.
Первый параметр (обязательный) - преобразуемая строка.
Второй (любого типа, проше всего числовой) - нужен, только если преобразуются символы из 866 кодовой страницы.
Для 1251 кодовой страницы - он не нужен, т.е. - используется всего один параметр.
Возвращаемое значение - строка, преобразованная в UTF-кодировку.

Автор: Crispy

Автор публикации

не в сети 21 год

Crispy

Комментарии: 0Публикации: 7Регистрация: 16-05-2005

(далее…)

]]> https://foxclub.ru/knowledgebase/vyvod-propisyu-odnoveremenno-dnya-mesyacza-i-goda/ Fri, 28 Aug 2020 11:32:31 +0000

Вывод прописью одновеременно дня, месяца и года

Вывод прописью одновеременно дня, месяца и года даты, введенной как параметр в формате дата в диапазоне 01.01.0001 - 31.12.9999, т.е. ?datapropis(CTOD('15.12.2005')) даст строку: "пятнадцатого декабря две тысячи пятого года".

В архиве находится prg-файл.

Автор: Crispy

Автор публикации

не в сети 21 год

Crispy

Комментарии: 0Публикации: 7Регистрация: 16-05-2005

(далее…)

]]> https://foxclub.ru/knowledgebase/sozdanie-obektov-iz-txt-fajla/ Fri, 28 Aug 2020 11:32:31 +0000

Создание объектов из .txt файла

В процессе сопровождения часто меняющегося приложения удобно делать изменения в текстовом файле, при этом, не затрагивая исходный код приложения. Тест и данные.

[code] ACTIVATE SCREEN clea IF .t. text [/code]
Программа предназначена для создания объектов, содержащих предопределённые данные.
Причем, данные содержатся в текстовом файле, и в любой момент могут быть изменены.
Что удобно при сопровождении часто меняющегося приложения. Подготовьте config.txt
и тест готов к прогону.
Проверено на VFP 7.0

ОБЪЕКТ ВНАЧАЛЕ СОЗДАЕТСЯ, А ЗАТЕМ ИНИЦИАЛИЗИРУЕТСЯ
Ну не получилось это у меня, чтобы одним вызовом и объекты создать и
их проинициализироватью

See Also ОКАЗЫВАЕТСЯ. КЛАСС ВНАЧАЛЕ СОЗДАЕТСЯ, А ЗАТЕМ ИНИЦИАЛИЗИРУЕТСЯ
Содержимое файла 'c:mysamplothersconfig.txt' для теста:

#Телефон=581-21-85 - первая строка файла
#ВетВрач=Максименко М.А.
#E_mail=abel47@mail.ru
#Заставка=C:mySamplGRAPHICSсултан.JPG
#текст=Анализы
-----------------------------------------------------------------
Анализы:
_________________________________________________________________

Медицина:
_________________________________________________________________
... ...
#конец текста
#текст=Справка
С П Р А В К А

Дана _______________ Кличка ___________

Инструктор __________________________
... ... ...
#Конец текста
END - конец файла, последняя строка

endtext
endif

[code] PUBLIC My_test My_test = CREATEOBJECT('MyClass') && Построить объекты в памяти с именами из .txt файла My_test.put_val() && Присвоить значения со значениями из .txt файла WAIT WINDOW [ WAIT - для просмотра полученных значений в отладчике] RELEASE my_test DEFINE CLASS Variablic AS CUSTOM Name = "Создание_переменной" value = [Value_of_var] ENDDEFINE DEFINE CLASS MyClass AS Custom name=[NewClass] MyProperty = 'c:mysamplothersconfig.txt' iTable = 0 xx=[ ] namevalue=[] objname = [] PROCEDURE init LOCAL s,cn, objn, x, имя this.itablE=FOPEN(this.MyProperty) DO WHILE !FEOF(this.itablE) this.xx = FGETS(this.itablE) s = this.xx IF LEFT(this.xx,1) # [#] LOOP ENDIF if INLIST(s,'#конец','#Конец','#end','end','END') loop endif if INLIST(s,'#МЕМО=','#Текст=','#Текст =','#текст=','#текст =') objn = this.getvalue(s) this.AddObject ( (objn), "Variablic" ) loop endif objn = this.getobjname(s) this.AddObject ( (objn), "Variablic" ) ENDDO =FCLOSE(this.itablE) endproc PROCEDURE destroy endproc PROCEDURE put_val LOCAL s,cn, objn, x, имя this.itablE=FOPEN(this.MyProperty) && пусть: DO WHILE !FEOF(this.itablE) && #текст=ПОЛЕ21 this.xx = FGETS(this.itablE) && Значение строки 1 111111 111 11111111 s = this.xx && Значение строки 2 222222 2222 IF LEFT(this.xx,1) # [#] && ... LOOP && #конец текста ENDIF && if INLIST(s,'#МЕМО=','#Текст=','#Текст =','#текст=','#текст =') objn = this.getvalue(s) && определено NAME объекта : #текст=ПОЛЕ21 имя =[my_test.]+objn+[.value] && Заготовлена строка my_test.ПОЛЕ21.value &имя = [] && значение my_test.ПОЛЕ21.value ОЧИЩЕНО s=FGETS(this.itablE) && прочитана первая строка значения x = [] DO WHILE !FEOF(this.itablE) && цикл до конца значений строк поля NAME IF FEOF(this.itablE) && т.е. для поля с именем ПОЛЕ21 EXIT endif if INLIST(s,'#конец','#Конец','#end','end','END') EXIT endif && x = &имя && &имя = x + ALLTRIM(s)+ CHR(13) && значение объекта ПОЛЕ21 s=FGETS(this.itablE) && формируется построчно enddo loop ENDIF && Здесь приваюваются значения созданным переменным objn = this.getobjname(s) && ВетВрач.value = "Максименко М.А." имя =[my_test.]+objn+[.value] && E_mail.value = "abel47@mail.ru" STORE this.getvalue(s) TO &имя && ... ENDDO =FCLOSE(this.itablE) endproc PROCEDURE getvalue && #namexxx = VALUExxxxxx... LPARAMETERS s && ============ LOCAL l l=ALLTRIM(SUBSTR(s, AT([=],s)+1 )) retURN l endproc PROCEDURE getobjname && #NAMExxx... = VALUExxxxxx ... LPARAMETERS s && =========== LOCAL l l=ALLTRIM(SUBSTR(s,2, AT([=],s)-2 )) retURN l endproc ENDDEFINE[/code]

Автор: Старый

Автор публикации

не в сети 6 месяцев

admin

Комментарии: 1Публикации: 123Регистрация: 10-12-2000

(далее…)

]]> https://foxclub.ru/knowledgebase/igra-jeti/ Fri, 28 Aug 2020 11:32:16 +0000

Игра Йети

Примерный аналог LodeRunner-a

Автор: HellRiser

Автор публикации

не в сети 25 лет

Hel!Riser

Комментарии: 1Публикации: 5Регистрация: 11-03-2001

(далее…)

]]> https://foxclub.ru/knowledgebase/klass-dlya-formirovaniya-word-dokumentov/ Fri, 28 Aug 2020 11:32:31 +0000

класс для формирования Word-документов

Динамически создаётся prg для формирования Word-документа, исполняется, и по закрытии документа удаляется. Программист пишет только 2 метода - 1) создание таблицы и 2) заполнение шаблона из неё.

Автор: krin

Автор публикации

не в сети 2 месяца

krin

Комментарии: 0Публикации: 2Регистрация: 08-02-2005

(далее…)

]]> https://foxclub.ru/knowledgebase/instrumenty-razrabotchika-dlya-visual-foxpro-6-0-vypusk-3/ Fri, 04 Nov 2022 14:24:51 +0000

Инструменты разработчика для Visual FoxPro 6.0 Выпуск 3

Набор утилит, для облегчения труда разработчика приложений на Visual FoxPro:

• Все мои проекты… вер.2.2
• Поиск в проекте вер.3.5.
• Сравнение файлов вер.3.11
• Сравнение библиотек вер.2.8
• Редактор библиотек вер.1.4
• Сравнение проектов вер.1.0 (New!)
  Статус: FreeWare

Инструменты разработчика для Visual FoxPro 6.0

Настоящий профессионал начинается с инструмента (ИМХО!). Это касается всех видов деятельности - от столяра до зубного врача, и программисты здесь не исключение. Именно эта нехитрая мысль, а также долгие поиски нужного проекта в проводнике или всех мест, где я имел неосторожность использовать “эту дурацкую функцию, которая почему-то глючит в очередном сервис-паке”, подвигли меня на изготовление (сначала для себя) нескольких простеньких инструментов, в той или иной степени решающих все эти проблемы. За несколько лет они обросли мяском, приобрели более-менее приличный вид и, что самое главное, сэкономили мне массу времени и сил. Теперь я готов предложить некоторые из них на суд широкой фокс-общественности и пусть народ скажет свое слово.

В третий выпуск пакета, представляемый здесь, входит шесть фокс-приложений: “Все мои проекты…”, “Поиск в проекте”, “Сравнение файлов”, “Сравнение библиотек и форм”, “Редактор библиотек” и добавленая в третьем выпуске утилита “Сравнение проектов”.

Приложения представляют собой app-модули и вызваются прямо из командного окна. Обращение к инструментам описано в соотвествующих разделах файла tools.chm. Для большего удобства вызов приложений можно вставить в главное меню Foxpro с помощью простенькой процедуры, запускаемой из config.fpw

Автор: Олег Бляхеров

Автор публикации

не в сети 25 лет

Олег Бляхеров

Комментарии: 0Публикации: 8Регистрация: 23-04-2001

(далее…)

]]> https://foxclub.ru/knowledgebase/klass-foxpdftext-dlya-sozdaniya-pdf-fajla-s-otchetom-na-100-chistom-visual-foxpro/ Fri, 28 Aug 2020 11:32:31 +0000

Класс FoxPDFText для создания PDF файла с отчетом на 100% чистом Visual FoxPro.

Хотите научиться создавать файлы PDF с Вашими отчетами с нуля, не имея, при этом никаких продуктов ADOBE, ни дополнительных драйверов и другого ПО? Тогда эта статья для Вас! Дополнительную информацию см. во вложении. Идея и оригинальная разработка: Loic Carrere. Публикуется с разрешения автора. Объявляется конкурс по совершенствованию данного класса!

Автор: Кольцов Роман Васильевич

Автор публикации

не в сети 20 лет

rvc44

Комментарии: 0Публикации: 7Регистрация: 06-12-2005

(далее…)

]]> https://foxclub.ru/knowledgebase/grid/ Fri, 28 Aug 2020 11:32:30 +0000

Grid.

Для отображения текстовой информации. Поиск, фильтр по нескольким колонкам, выделение (пометка) записей.

Откройте таблицу, положите Grid на форму и запустите ее.

Автор: Petrovich

Автор публикации

не в сети 6 месяцев

admin

Комментарии: 1Публикации: 123Регистрация: 10-12-2000

(далее…)

]]> https://foxclub.ru/knowledgebase/sumcolumn/ Fri, 28 Aug 2020 11:32:31 +0000

SUMCOLUMN

Xotel razdelit opitom.

Автор: YD

Автор публикации

не в сети 6 месяцев

admin

Комментарии: 1Публикации: 123Регистрация: 10-12-2000

(далее…)

]]> https://foxclub.ru/knowledgebase/tulbar-dlya-bystroj-raboty-s-bolshim-kolichestvom-proektov/ Fri, 28 Aug 2020 11:32:31 +0000

Тулбар для быстрой работы с большим количеством проектов

Тулбар для быстрой работы с большим количеством проектов,

Идея класса возникла из необходимости работать с довольно большим количеством проектов. Класс представляет собой тулбар с несколькими стандартными и настраеваемыми кнопками и несколькими формами для настроек этих кнопок. Предполагается что каждому проекту сопоставляется кнопка на тулбаре при нажатию на которую открывается сам проект, устанавливается пути к нему, и при необходимости запускается программа начальных установок.

Автор: Захаров Слава

Автор публикации

не в сети 21 год

Zakharov_slava

Комментарии: 0Публикации: 1Регистрация: 14-10-2005

(далее…)

]]> https://foxclub.ru/knowledgebase/otpravka-pochty/ Fri, 28 Aug 2020 11:32:31 +0000

Отправка почты

Вариант программного SMTP клиента

Очередной вариант SMTP клиента, в тестовом проекте умышлено вынесена функция public WSAData WSAData = createobject('WSAData') ссмотреть процедуу main в тесте кроме того из-за скорости конвертироваемя приаттаченного(ных) файла(лов) в формат Base64 было принято решение оформить это дело в виде библиотеки DLL она имеется во вложении) Ессли же ее использовать не хочется, то по умолчанию свойство: use_lbase64_dll = .f. && т.е. не использовать данную DLL (Идея Готовского Дмитрия) режим авторизации SMTP пока не предусмотрен. Ведется лог в %Temp%My_SMTP.LOG. если такового нет, то лог пишется в c:TempMy_SMTP.LOG ========= Теперь еще и use_lbase64_dll - можно менять на лету(а не один раз, при создании класса) ========= 28.10.2005 Все что отладил на своих локальных серверах - все теперь работает добавлены три типа авторизации: LOGIN CRAM-MD5 POP перед SMTP Также добавлен прогресс отправки (его можно отключить в методе send_body() и прикрутить свой в методе dispatch_of_letter_assign() 08.11.2005 протестировано на серверах smtp.yandex.ru , smtp.rambler.ru , smtp.mail.ru все работает.

Автор: Владимир Кныр

Автор публикации

не в сети 22 года

Vladimir_Knyr

Комментарии: 0Публикации: 11Регистрация: 15-12-2003

(далее…)

]]> https://foxclub.ru/knowledgebase/klass-dlya-raboty-s-crystal-reorts-9/ Fri, 28 Aug 2020 11:32:31 +0000

Класс для работы с Crystal Reorts 9

Достаточно добавить параметры (как в основной отчет так и в подотчеты) и вызвать на предпросмотр.

Вот пример работы с классом.

[code] CLEAR ALL SET CLASSLIB TO my_crystallrep PUBLIC oCR m.oCR=CREATEOBJECT('My_Crystall') m.oCR.addparam('Subscriber','Subs_Test') m.oCR.addparam('Dogovor','Dog_Test') m.oCR.addparam('@Date_From',CTOT('01.10.05 0:0:0')) m.oCR.addparam('@Date_To',CTOT('31.10.05 23:59:59')) m.oCR.addparam('@Id_Subscriber',0) m.oCR.addparam('@Number','920101') m.oCR.addsubparam('Phones','@Date_From',CTOT('01.10.05 0:0:0')) m.oCR.addsubparam('Phones','@Date_To',CTOT('31.10.05 23:59:59')) m.oCR.addsubparam('Phones','@Id_Subscriber',0) m.oCR.addsubparam('Phones','@Number','920101') m.oCR.previewreport(SYS(5)+SYS(2003)+'Phone.rpt') READ EVENTS[/code]
Как видно достаточно простые операции. Параметры с @ это параметры хранимой процедуры MsSQL...
Синтаксис AddParam(Название параметра,Занчение)
Синтаксис AddSubParam(Название подотчета,Название параметра,Занчение)

Класс простейший и сильно упрощает жизнь. По крайней мере мне. Если не устраивает внешний вид отчета - смотрите процедуру previewreport.

Автор: Андрей

Автор публикации

не в сети 24 года

Петров Андрей

Комментарии: 0Публикации: 14Регистрация: 17-04-2002

(далее…)

]]> https://foxclub.ru/knowledgebase/predprosmotr-pechati/ Fri, 28 Aug 2020 11:32:24 +0000

Предпросмотр печати

Мне не понравился предпросмотр фокса поэтому, родилось вот это решение

Предпросмотр печати

Мне не понравился предпросмотр фокса поэтому, родилось вот это решение. Подчеркиваю это
предпросмотр, а не генератор отчетов. Признаюсь идея не моя, но все написано мною с нуля.

Запустите форму Form1 и нажмите "печать", это маленький примерчик как работает

Предпросмотр.
Кстати вы можете посмотреть сразу от 1 до 100 %) одновременно документов.
**************
В архиве есть две папки FOR6 и FOR8
Как видно из названий это соответственно версии для 6-го и 8-го фокса
********************************
Теперь принтер указывается тот который в системе по умолчанию, как и обещал, ну и тултипсы
поправил

********************************
Поправил надпись на тулбаре, и заменил всплывающюю подсказку, когда вместо запятых ставят
точки.
Теперь подсказки нет 🙂 это сделано по совету Владимира Максимова.

**********************************************
Изменил отображение страниц. Теперь покрасивше смотрится.
если у кого-то есть нестандартные страницы репорта,
то для того что бы красиво отображалась страница, надо добавить
в методе oGlRep.START надо добавить свои размеры страниц
К примеру:
DO CASE
CASE ALLTRIM(lcSize)=="A4V"
THIS.nHeight=1152
THIS.nWidth=770
CASE ALLTRIM(lcSize)=="A4G"
THIS.nHeight=770
THIS.nWidth=1152
CASE ALLTRIM(lcSize)=="A3V"
THIS.nHeight=1540
THIS.nWidth=1152
CASE ALLTRIM(lcSize)=="A3G"
THIS.nHeight=1152
THIS.nWidth=1540
CASE ALLTRIM(lcSize)=="A5V" &&новый размер
THIS.nHeight=321 && примерные числа определите сами нужные
THIS.nWidth=231
endCASE
*И незабудте передать свое новое обозначение размера в метод Start

16.12.2003г.
Немного поправил косметически.
К сожалению предпросмотр нельзя сделать, что бы он работал в фоксовом окне 🙁

26.12.2003г.
Исправлен баг при подсчете общего количества листов.
Теперь все работает правильно

22.07.2004г.
Добавлена возможность вывода отчета в текстовый файл.
04.08.2005г.
Убраг глюк при котором происходило сбивание настройки SET PATH.
24.10.2005г.
Добавил скролинг для колеса мышки.

Автор: Aries

Автор публикации

не в сети 23 года

Aries

Комментарии: 0Публикации: 7Регистрация: 24-12-2002

(далее…)

]]> https://foxclub.ru/knowledgebase/funkcziya-dlya-pravilnoj-sortirovki-chisel-v-tekstovyh-polyah/ Fri, 28 Aug 2020 11:32:28 +0000

Функция для правильной сортировки чисел в текстовых полях

При обычной сортировке название "Аптека N15" попадает между "Аптека N1" и "Аптека N2". Данная функция сортирует такие строки правильно.

Функция для правильной сортировки чисел в текстовых полях

Вам не приходилось сталкиваться с проблемой, когда при сортировке названий организаций, адресов, или наименований товаров строки располагаются не совсем так, как ожидает пользователь? Например:

Доска 100мм --> Доска 80мм
Аптека N1 --> Аптека N15 --> Аптека N2
ул.Центральная д.100 --> ул.Центральная д.15

Эта простая функция решает задачу.

Протестировано в VFP6-7-8.

В VFP5 данный код не работает из-за отличающегося поведения функции Subsr()

Загружена обновленная версия. В новой версии добавлены два необязательных параметра, облегчающих использование функции.

Автор: Игорь Ильин

Автор публикации

не в сети 23 года

karly™

Комментарии: 0Публикации: 4Регистрация: 27-09-2003

(далее…)

]]> https://foxclub.ru/knowledgebase/proverka-obnovleniya-html-stranichki-ili-fajla-na-http-servere/ Fri, 28 Aug 2020 11:32:31 +0000

Проверка обновления HTML-странички или файла на http-сервере

Позволяет проверить дату обновления странички или файла на http-сервере, а также ее размер и просто доступность. Используется MSINET.OCX (Microsoft Internet Transfer Control 6.0 (SP4)

Это решение навеяно вопросом, заданным на форуме Игорем Перминовым (http://forum.foxclub.ru/read.php?f=29&i=20261&t=20261&cp=-1) и следует рассматривать как один из вариантов решения проблемы.
Проверялось в Vfp6 и Vfp8.
Если будете использовать в своих программах - не забывайте включать в setup MSINET.OCX

Буду весьма признателен, если Вы сообщите о замеченных глюках

Автор: Сергей Денисенко

Автор публикации

не в сети 6 месяцев

admin

Комментарии: 1Публикации: 123Регистрация: 10-12-2000

(далее…)

]]> https://foxclub.ru/knowledgebase/pechat-tekstovyh-fajlov-na-lazernyh-printerah/ Fri, 28 Aug 2020 11:32:31 +0000

Печать текстовых файлов на лазерных принтерах.

Программа делает следующее. - Для текстов, не содержих Epson-овские Esc-последовательности и Hewlett-овские команды PCL. Если текст не помещается на странице при размере шрифта 6 при книжной ориентации, устанавливается альбомная ориентацию листа. Подбирается размер шрифта, чтобы текст поместился на лист: - Если файл содержит Epson-овские последовательности и кодировка 866, они заменяются Hewlett-овскими (PCL), насколько это возможно. - Если кодировка 1251, при печати конвертируется в 866. - Если файл содержит Hewlett-овские последовательности, он печатается как есть, без изменения.

Автор: Широкоступ Валерий

Автор публикации

не в сети 21 год

Timo

Комментарии: 0Публикации: 1Регистрация: 27-05-2005

(далее…)

]]> https://foxclub.ru/knowledgebase/rabota-s-ini-fajlami-cherez-vcx-bez-win-ini-i-reestra/ Fri, 28 Aug 2020 11:32:29 +0000

Работа с INI файлами через VCX. Без Win.Ini и реестра

Посчитал что лучше написать свое чем пользоваться примерами поставляемыми с VFP.

 Возможности:  1) Запись в INI строк. Задавая имя секции ключ и значение (WriteINIStr) 2) Запись в INI чисел. Задавая имя секции ключ и значение (WriteININum) 3) Чтение из INI строк. Задавая имя секции и ключ (ReadINIStr) 4) Чтение из INI чисел. Задавая имя секции и ключ (ReadININum) 5) Выборка всех секции файла во внешний массив (EnumSections) 6) Возможно задавать относительный путь к файлу 7) Удаление секции 8) Сохранение массива в одной из секций INI 9) Восстановление массива из INI   * 8,9 по аналогии с  Save all like ... to ...,  Rest from ... addi  Основана на вызове функций WinAPI из библиотеки Kernel32.  27.05.2005 Насчет формата массива в INI думаю сами разберетесь. Коротко. а) В параметрах передается название секции под массив а так же ключа для элементов массива. б) В значениях идет запись не только строк но и типов данных вида N 10. Число знаков в данном случае не определяется. в) Так же идет запись размерности массива.  03.10.05 Добавлена работа через объект на форме. Т.е. записьчтение идет через объект в котором есть свойства по названию совпадающие с полями в INI. ReadINIToCustom SaveINIToCustom 

Автор: Андрей

Автор публикации

не в сети 24 года

Петров Андрей

Комментарии: 0Публикации: 14Регистрация: 17-04-2002

(далее…)

]]> https://foxclub.ru/knowledgebase/interactivesearch/ Fri, 28 Aug 2020 11:32:31 +0000

InteractiveSearch

Интерактивный поиск в Grid-e

[code] SELECT customers IF THISFORM.optiongroup1.Value =1 L1 = UPPER(alltrim(thisform.text1.value)) LN1 = LEN(L1) L2 = UPPER(alltrim(thisform.text2.value)) LN2 = LEN(L2) IF !EMPTY(thisform.text1.value) AND !EMPTY(THISFORM.TEXT2.Value) SET FILTER TO UPPER(LEFT(customers.contactnam,LN1)) == L1 AND ; UPPER(LEFT(customers.companynam,LN2)) == L2 ELSE IF !EMPTY(thisform.text1.value) SET FILTER TO UPPER(LEFT(customers.contactnam,LN1)) == L1 ENDIF IF !EMPTY(THISFORM.TEXT2.Value) SET FILTER TO UPPER(LEFT(customers.companynam,LN2)) == L2 ENDIF ENDIF ELSE IF !EMPTY(thisform.text1.value) AND !EMPTY(THISFORM.TEXT2.Value) SET FILTER TO ATC(alltrim(thisform.text1.value),customers.contactnam) > 0 AND ; ATC(alltrim(thisform.text2.value),customers.companynam) > 0 ELSE IF !EMPTY(thisform.text1.value) SET FILTER TO ATC(alltrim(thisform.text1.value),customers.contactnam) > 0 ENDIF IF !EMPTY(thisform.text2.value) SET FILTER TO ATC(alltrim(thisform.text2.value),customers.companynam) > 0 ENDIF ENDIF GO TOP ENDIF THISFORM.GRID1.Refresh [/code]

Автор: EMustafaoglu

Автор публикации

не в сети 6 месяцев

admin

Комментарии: 1Публикации: 123Регистрация: 10-12-2000

(далее…)

]]> https://foxclub.ru/knowledgebase/klass-hidera-indeksirovanie-tabliczy/ Fri, 28 Aug 2020 11:32:24 +0000

Класс хидера + индексирование таблицы.

Кликаете на хидере и в таблице происходит сортировка по возрастанию/убыванию. Плюс появляется горячая картинка, указывающая возрастание/убывание.

Класс хидера + индексирование таблицы.

Чтобы добавить класс MyHeader нужно открыть Грид на редактирование. Выбрать Column1 в дизайнере
прописать свойство HeaderClassLibrary равным "prgMyHeader.prg". И все работает. И так
сделать во всех столбцах грида.
Кликаете на хидере и происходит сортировка по возрастанию/убыванию. При этом появляется на
индексированном столбце картинка. Довольно симпатично получилось, и универсально.
Правда класс невизуальный. Но зато работает.
******************************
Поигрался с индексами. Теперь если индекс открыт то с ним происходит работа.
******************************
Как и обещал, сделал версии для 6-ки и для 8-ки. К сожалению для 6-й версии нет красивых картинок
указывающих
сортировку. Поэтому я заменил на простые символы "".
В архиве две папки FOR6 and FOR8. Можна запустить примеры, чтобы посмотреть работу.
В ините формы, для 6-ки прописан код, как вставить хидер в грид.
ПЕсли у кого есть вопросы стучитесь в аську 143983622
Добавил процедуру Destroy для избавления от временных файлов-индексов, чтобы не засорять временные
каталоги.
Кстати за помощь спасибо Мичману %)
******************************
Поправлен глюк с кликом. Теперь если выкликаете на хидере, то фокус получает именно та колонка
в которой находится хидер.
16.12.2003г.
Так теперь фокус остается на той строке на которой бы до сортировке

25.12.2003г.
В папке PRG есть два файла MyHeader и MyHeaderView. MyHeader - применяется для таблиц и курсоров. Работает безотказно. MyHeaderView - применяется для вьюшек. К сожалению, я не могу проверить MyHeaderView полностью на работоспособность. Так как не использую вьюшки, и не знаю, как они работают. Поэтому, если возникнут ошибки, думаю, вы не будете ко мне слишком строги. И еще. Не забудьте сделать высоту заголовков грида равной 20 или более. Это для того чтобы нормально влазила картинка, показывающая возрастание/убывание.
16.16.2004
Новая версия. Я не помню какие изменения я внес в код но помню что что-то я изменял
29.07.2004
Сделал вот такую вещь:
Первый клик - сортировка по возростани.
Второй клик - по убыванию
Третий клик - убирается сортировка
Думаю так лучше будет. 02.08.2004
Вот решил добавить пару вещичек, а именно:
Добавил менюшку по правому клику, в ней сделано:
- Выбор сортировок
- фиксация столбцов
- Динамическое отображение столбцов, т.е пользователь может сам отображать/скрывать
нужные ему столбцы.
Кстати если кому не понравиться, то можно просто удалить процедуру RightClick
на работу самого MyHeader удаление не повлияет.
И еще это сделано только для 8-й версии!.
23.09.2005.
Исправлена ошибка при индексации, когда длина поля больше ста символов.
Теперь если длина символов 100 и более берется 99 симовлов.
это для типов данных Char

Автор: Aries

Автор публикации

не в сети 23 года

Aries

Комментарии: 0Публикации: 7Регистрация: 24-12-2002

(далее…)

]]> https://foxclub.ru/knowledgebase/ispolzovanie-komandy-cpuid-iz-vfp/ Fri, 28 Aug 2020 11:32:27 +0000

Использование команды CPUID из VFP

Билиотека для использования команды CPUID - т.е. получение информации о процессоре включая (CPUID 0..3, 8000 0000h для AMD) Результат - строка

Использование команды CPUID из VFP

Билиотека для использования команды CPUID - т.е. получение информации о процессоре включая (CPUID 0..3, 8000 0000h для AMD) Результат - строка в HEX виде. Кому надо - берите.
По подробнее:
CPUID (EAX = 0)
EAX - количество возможных вызовов CPUID
EBX, EDX, ECX - производитель процессора.
CPUID (EAX = 1...2)
почитайте описание сами... слишком долго писать...
CPUID (EAX = 3)
EBX, EDX - SN процессора (не помню точно какие регистры)
=================Расширения от AMD=======================
CPUID (EAX = 8000 0000h) Расширения от AMD
EAX - до какого значение можно получать данные - по аналогии с 0
...

Регистры хранятся в полученной строке попорядку EAX, EBX, ECX, EDX
соответственно каждый по 4 байта.

Автор: Петров Андрей

Автор публикации

не в сети 24 года

Петров Андрей

Комментарии: 0Публикации: 14Регистрация: 17-04-2002

(далее…)

]]> https://foxclub.ru/knowledgebase/biblioteka-dlya-vychisleniya-hash-summy-v-foxpro/ Fri, 28 Aug 2020 11:32:30 +0000

Библиотека для вычисления hash суммы в FoxPro.

Библиотека FLL предназначенная для получения hash суммы из файла или строки по алгоритмам MD5, SHA1, SHA256. Более подробно в Readme.txt из архива.

Автор: Alexander Kagarmanov

Автор публикации

не в сети 6 месяцев

admin

Комментарии: 1Публикации: 123Регистрация: 10-12-2000

(далее…)

]]> https://foxclub.ru/knowledgebase/easy-toolbar-2/ Fri, 28 Aug 2020 11:32:31 +0000

Easy ToolBar 2

Обновленное решение для легкой организации кнопок на тулбарах и их программирования

Разрабатывался на VFP9. Думаю, что будет работать и на 8-ке.

Кратко об использовании:

В головном файле - создать переменную и запихнуть туда ссылку на тулбар

Потом создавайте в своих библиотеках кнопки, наследники от класса btn_all, придавайте им нужный вид
и кидайте на свои формы.

В форме нужно будет подправить событие Activate для обновления тулбара. (см.пример)

(для кнопок можно указывать тоолтипы и хоткеи)

Автор: Александр Семеновский

Автор публикации

не в сети 24 года

SANSoft

Комментарии: 0Публикации: 3Регистрация: 17-09-2002

(далее…)

]]> https://foxclub.ru/knowledgebase/filefix/ Fri, 28 Aug 2020 11:32:30 +0000

FileFix

Утилита Леса Пинтера для ремонта DBF файлов, реализованная в среде VFP8.

Автор: Лес Пинтер

Автор публикации

не в сети 6 месяцев

admin

Комментарии: 1Публикации: 123Регистрация: 10-12-2000

(далее…)

]]> https://foxclub.ru/knowledgebase/ochet-na-osnove-shablona-formata-rtf/ Fri, 28 Aug 2020 11:32:30 +0000

Очет на основе шаблона формата RTF

Ввиду того, что некоторые предприятия отказываются от использования MS Office и переходят к различным вариантам бесплатного редактора и электронных таблиц, был разработан этот класс для использования RTF документов в качестве основы для отчетов. Подробности в архиве, проверено на 7.0 и 9.0

Автор: Владислав Колосов

Автор публикации

не в сети 21 год

Влад Колосов

Комментарии: 0Публикации: 11Регистрация: 05-05-2005

(далее…)

]]> https://foxclub.ru/knowledgebase/splitter-clas-dlya-vfp9/ Fri, 28 Aug 2020 11:32:30 +0000

Splitter clas для VFP9

на мой взгляд простой и удачный splitter для vfp9 основанный на якорях

на мой взгляд простой и удачный splitter для vfp9 основанный на якорях
решение не мое - поэтому только ссылка
http://www.sweetpotatosoftware.com/SPSBlog/CategoryView,category,Visual%20Foxpro.aspx
там же есть "календарь" и "progressbar"
вроде бы там все FREE

Автор: Виктор

Автор публикации

не в сети 25 лет

mvictor

Комментарии: 0Публикации: 1Регистрация: 04-10-2001

(далее…)

]]> https://foxclub.ru/knowledgebase/prostejshij-prosmotr-tekstovyh-fajlov/ Fri, 28 Aug 2020 11:32:30 +0000

Простейший просмотр текстовых файлов

Простейший просмотр текстовых файлов

------------------------------------ Прелюдия: *---------------- ...Что тут скажешь, вся Наша, (с Вами) работа сводиться к обслуживанию любимых юзеров... короче, решаем проблему: "дайте посмотреть и...(может быть) распечатать", я уточняю, "хор

Автор: shmsoft

Автор публикации

не в сети 20 лет

ShmSoft

Комментарии: 0Публикации: 5Регистрация: 24-11-2005

(далее…)

]]> https://foxclub.ru/knowledgebase/klass-dates-dlya-vyborov-razlichnyh-periodov-vremeni/ Fri, 28 Aug 2020 11:32:25 +0000

класс Dates для выборов различных периодов времени

Класс для выборов различных периодов допустим за первый квартал, за второе полугодие или декаду.

Вот возникла передо мной задача выбора периода в разных
приложениях. Допустим, выбрать данные за первый квартал,
за второе полугодие или декаду. Каждый раз писать одни и
теже процедурки определения дат периодов для разных
программ мне надоело. И вот родилось решение класс Dates.
Теперь как все это работает.
Помещаете контейнер oControl на форму и все радуйтесь жизни.
Т.е. получаете нужные вам даты.
В объекте oControl есть два основных свойства свойства, к примеру
THISFORM.oControl.ValueBeg - это начало периода (даты)
THISFORM.oControl.ValueEnd - это окончание периода (даты)
Формат этих двух свойств DateTime.

Третье свойство объекта oControl nValue.
Оно принимает значение от 1-7. Это означает:
1 - День
2 - Декада
3 - Месяц
4 - Квартал
5 - Полугодие
6 - Год
7 - Период
nValue нужно для того чтобы по умолчанию определять,
что вы хотите получить. К примеру вам надо что бы по
умолчанию ну становилось не День, а на месяц.
Для этого надо (в дизайнере НЕЛЬЗЯ присваивать новое значение)
допустим в Init формы прописать такую строчку
THISFORM.oControl.nValue=3 (можно от 1 до 7)
Получите месяц.

В проекте есть формочка Form1 запустите и увидите как это работает!!!
Удачи!
04.08.2005г.
Переделал немного внутреннюю работу.
Сделал событие Valid для контейнера. Это для
того, что бы срабатывало одно событие при выборе значение из любого
объекта.

Автор: aries

Автор публикации

не в сети 23 года

Aries

Комментарии: 0Публикации: 7Регистрация: 24-12-2002

(далее…)

]]> https://foxclub.ru/knowledgebase/iecombo/ Fri, 28 Aug 2020 11:32:27 +0000

IECombo

Вот пример комбобокса по аналогии с Internet Explorer

IECombo

Вот и я решил написать свой IECombo.
Хотя наверное надо было посмотреть решения с данного сайта.
Но раз написал так тому и быть. Довольно просто получилось.
Теперь как это все работает.
В папке PRG есть файл LibFormList.prg В нем описан класс
выпадающего листа.
В папке LIBS есть библиотека LibCombo в ней класс oComboBox
Ложите на форму и радуетесь работе.
В контейнере есть такие свойства:
Height_List - высота выпадающего листа.
RowSource - прописываете сюда название таблицы и поле.
Прим: RowSource="tMyTable.cMyPole"
RowSourceType - думаю с этим тоже все понятно
По умолчанию, если вы ничего не прописали в RowSourceType
принимается равным 2.
*********************************
Запустите форму Form1 и посмотрите как это все дело
работает.
Дополню что это дело работате в VFP8 в младших
версия не проверял.
В проекте есть еще библиотека LibsObjects это мои суперобъекты
для ресайзинга, на их основе написан и IECombo. Если кому-то не
по душе по суперобъекты, просто откройте библиотеку LibCombo как
таблицу и исправте ParentClass на базовые классы.
**********************
И еще выпадающий лист может менять свой размер.
**********************
Сделал выбор значения из листа по одному клику.
Сделал размеры листа статическими, так как при изменении
резмеров иногда вываливается критическая ошибка.
04.08.2005г.
Сделал полную аналогию со стандартным комбо.т.е поддержка Bound
Добавил событие Valid в контейнер.
К сожалению в грид так и не удалось встроить, но думаю это и не надо
Если вводить занчение и ничего не было найдено, то при потере фокуса объектом
поле закрасится в красный цвет, а если найдено и выбрано, то в синий.

Автор: Aries

Автор публикации

не в сети 23 года

Aries

Комментарии: 0Публикации: 7Регистрация: 24-12-2002

(далее…)

]]> https://foxclub.ru/knowledgebase/forma-dlya-vybora-neskolkih-fajlov/ Fri, 04 Nov 2022 14:27:34 +0000

Форма для выбора нескольких файлов.

Может использоваться в задачах, связанных с документооборотом или импортом файлов. Основные возможности: * Возможность задания неограниченного количества масок файлов; * Возможность ограничить общий размер выбранных файлов; * Позволить просматривать файлы в приложениях по умолчанию; * Возможность разрешить или запретить пользователю менять директорию.

Автор: Т. Аскольд

Автор публикации

не в сети 3 года

TAS

Комментарии: 0Публикации: 7Регистрация: 28-09-2000

(далее…)

]]> https://foxclub.ru/knowledgebase/korrektnyj-shortcut-kategorii-editsinhronizirovan-s-sistemnym-menyu-i-knopkami-paneli-instrumentov/ Fri, 28 Aug 2020 11:32:18 +0000

Корректный ShortCut категории Edit(синхронизирован с системным меню и кнопками панели инструментов)

Некоторое время назад в конференции состоялся короткий, но весьма эмоциональный обмен мнениями по поводу корректного отображения доступности позиций контекстного меню категории Edit(см. http://nsvisual.com/ph/read.php3?f=5&i=17763&t=17763). Предлагаемый пример демонстрирует один из возможных способов решения этой проблемы. Кроме этого, он наверное будет интересен и сторонникам русскоязычных эквивалентов стандартных ToolBar'ов. Замечание к обновленной версии решения. Метод синхронизации доступности позиций меню и соответствующих кнопок на панели инструментов с помощью таймера и функции SKPBAR() требует различной организации системного и контекстного меню. Обновленный пример проверен в версиях VFP-6/7/8/9. Однако следует сначала один раз перестроить проект с перекомпилированием всех файлов.

Автор: Ившев Дмитрий

Автор публикации

не в сети 8 месяцев

po2

Комментарии: 0Публикации: 6Регистрация: 22-12-2001

(далее…)

]]> https://foxclub.ru/knowledgebase/variacziya-na-temu-opendialog/ Fri, 28 Aug 2020 11:32:30 +0000

Вариация на тему OpenDialog

Возвращает массив - список имен файлов, для групповой операции

Позволяет сделать интерактивную выборку файлов,
для последующей обработки.

просто откройте тестовый проект и сделайте RUN
(возможно BUILD..., с параметрами Application & RunAfterBuild)

делалось на VFP8.
обновил. PS в коде кнопок THIS заменено на THISFORM

Автор: Владимир Кныр

Автор публикации

не в сети 22 года

Vladimir_Knyr

Комментарии: 0Публикации: 11Регистрация: 15-12-2003

(далее…)

]]> https://foxclub.ru/knowledgebase/poluchenie-kursov-valyut-ot-rbc-po-metodu-1s/ Fri, 28 Aug 2020 15:03:46 +0000

Получение Курсов валют от RBC по методу 1С

Получение Курсов валют от RBC по методу 1С

Встретил пример счел его уж слишком не надежным
написал prg по подобию получения 1С - это уже стабильно!!!
(чем разбирать html)
пример использования

  
  
 *************************************************************
  
  MESSAGEBOX(get_inet_kurs(1,1)) &&Курс USD на текущую дату
  
  MESSAGEBOX(get_inet_kurs(1,2,CTOD([05.06.2005]),CTOD([06.06.2005]),'tmp'))
  
  BROWSE LAST
  
  USE
  
    

Автор: Тимур

Автор публикации

не в сети 26 лет

Tim

Комментарии: 0Публикации: 1Регистрация: 19-09-2000

(далее…)

]]> https://foxclub.ru/knowledgebase/winapi-struktury-v-vfp/ Fri, 28 Aug 2020 11:32:30 +0000

WinAPI структуры в VFP

Перевод статьи Кристофа Ланге и Марка Вильдена и класс для использования структур в Visual FoxPro

Перевод статьи можно посмотреть по адресам http://www.hot.ee/jurisfox/vfpplus/using_winapi_structures_01_ru.htm,
http://kodu.neti.ee/~juri4/vfpplus/using_winapi_structures_01_ru.htm. Класс с оригиналом статьи приложен.

Автор: Юрий Шутенко

Автор публикации

не в сети 26 лет

JS

Комментарии: 0Публикации: 2Регистрация: 04-09-2000

(далее…)

]]> https://foxclub.ru/knowledgebase/proverka-registraczii-klassa-v-sisteme/ Fri, 02 Dec 2022 15:54:43 +0000

Проверка регистрации класса в системе…

Не знаю, сталкивался ли кто с такой ситуацией, когда необходимо в приложении определить зарегистрирован в системе тот или иной класс, ну, скажем "Wscrip.Shell" или "Word.Application.8"

В качестве параметра передается имя класса "Word.Application.8", а возвращается- путь к файлу или пусто.

LPARA cClassName
*!* Параметр название класса
cClID=fregget('',cClassName+'\CLSID',1)
cFilePath=fregget('','CLSID\'+ALLTRIM(cClID)+'\InProcServer32',1)
if EMPTY (cFilePath)
cFilePath=fregget('','CLSID\'+ALLTRIM(cClID)+'\LocalServer32',1)
ENDIF
*!* Если такой класс зарегистрирован- возвращается путь к файлу, иначе пустая строка.
RETURN ALLTRIM(cFilePath)

*!* Это общая функция чтения данных из реестра 
Function fregget
LPARAMETER name, key,div
*!*	 name имя параметра,значение которого надо получить
*!*	 key полное имя раздела реестра
*!*	 div базовый ключ реестра
*!*	div=1 	HKEY_CLASSES_ROOT           -2147483648  
*!*	div=2	HKEY_CURRENT_USER           -2147483647  
*!*	div=3	HKEY_LOCAL_MACHINE          -2147483646  
*!*	div=4	HKEY_USERS                  -2147483645  
 DECLARE INTEGER RegOpenKey IN Win32API INTEGER, STRING @, INTEGER @
 DECLARE INTEGER RegCloseKey IN Win32API INTEGER
 DECLARE INTEGER RegQueryValueEx IN Win32API INTEGER, STRING, INTEGER, INTEGER @, STRING @,INTEGER @
 PRIVATE keyhandle, data, datalen, path
       IF LEFT(M.key, 1)='\'
           M.path = SUBSTR(M.key, 2)
     ELSE
           M.path = M.key
      ENDIF
 IF PARA()=2
 M.div=-2147483646 
 ELSE
DO CASE
CASE div=1

M.div=-2147483648 
CASE div=2
M.div=-2147483647
CASE div=3
M.div=-2147483646
CASE div=4
M.div=-2147483645
OTHERWISE
M.div=-2147483646 
ENDCASE
 ENDIF
 keyhandle = 0
 data = SPACE(256)
 datalen = LEN(M.data)
 type = 0
 = regopenkey(M.div,M.path,@M.keyhandle)
 = regqueryvalueex(M.keyhandle,M.name,0,@M.type,@M.data,@M.datalen)
 = regclosekey(M.keyhandle)
 DO CASE
      CASE M.type=1

           IF M.datalen < AT(CHR(0), M.data)-1
                M.data = LEFT(M.data, M.datalen)
           ELSE
                M.data = LEFT(M.data, AT(CHR(0), M.data)-1)
           ENDIF
      CASE M.type=4
           nn = 0
           FOR n = M.datalen TO 1 STEP -1
                nn = nn+ASC(SUBSTR(M.data, n,1))*(256^(n-1))

           ENDFOR

           M.data = TRANSFORM(nn, "@0")
           M.data = SUBSTR(M.data, AT('x',M.data)+1)
 ENDCASE
 RETURN M.data

Автор публикации

не в сети 2 месяца

Joys

Комментарии: 2Публикации: 177Регистрация: 25-06-2000

(далее…)

]]> https://foxclub.ru/knowledgebase/pochta-otpravka-priem-v-komplekte-ocx/ Fri, 28 Aug 2020 11:32:30 +0000

Почта, отправка прием, в комплекте OCX

Класс для работы с почтой, очень даже неплохой

Автор: Дмитрий

Автор публикации

не в сети 21 год

dimon555

Комментарии: 0Публикации: 1Регистрация: 07-06-2005

(далее…)

]]> https://foxclub.ru/knowledgebase/orientirovanie-v-gridech-2/ Fri, 28 Aug 2020 11:32:30 +0000

Ориентирование в Grid’е(ч.2)

Рассмотрен случай взаимодействия функции ObjToClient() с группой свойств [Dynamic…], для получения значения неявного свойства Column.Left. Без претензий на законченное решение.

Современный вариант Grid’а(VFP-8/9) казалось бы, насыщен изысками интерфейса под завязку. Однако существуют приложения, в которых Fox’совский Grid заставляет программиста ломать голову над проблемой компактного размещения информации в клетках таблицы. Решение общеизвестно, пожертвовать числом строк в пользу большего числа элементов в каждой из них. Стандартный Container или Control позволяют легко расположить нужную коллекцию объектов в несколько этажей. Но заголовок Grid’а по-прежнему прост, а при включенных XP-схемах еще и весьма коварен. Текст и картинка, вот и все, что можно себе позволить. Естественно, что Fox-сообщество не сидело сложа руки и создавало заменители Header’а. Базовым классом для такого псевдо - заголовка чаще всего выбирался Container. Штатный Header с помощью свойства HeaderHeight низводился до нуля, и пока форма полностью вмещала Grid по ширине, а размеры и положение колонок оставались неизменными, все было Ok. Однако для повторения естественного взаимодействия связки «заголовок - колонка» приходилось писать не самый простой код, а иногда и приплясывать с бубном. Будь у колонки штатное свойство Left с возможностью назначения ему события Left_Assign, синхронизация любых объектов стала бы значительно более простым делом. Как вытянуть значение неявного свойства Column.Left знают практически все. Функция ObjToClient() честно сообщает, где начинается очередная секция. Теперь осталось найти диспетчера, который бы уведомлял о перерисовке Grid’а. Например, какое-либо из свойств группы [Dynamic…]. Пользовательская функция, использованная в качестве начинки любого из этих свойств, срабатывает даже при проносе стороннего окна над формой содержащей Grid.
Вот собственно и вся идея синхронизации. В качестве иллюстрации использования метода представлена форма, в которой для колонок Grid’а созданы заголовки на базе Container’а, имитирующие штатные. Подобным образом можно выводить любые объекты в нужных координатах в зависимости от состояния сетки.

Автор: Ившев Дмитрий

Автор публикации

не в сети 8 месяцев

po2

Комментарии: 0Публикации: 6Регистрация: 22-12-2001

(далее…)

]]> https://foxclub.ru/knowledgebase/perevod-makrosa-excel-v-sintaksis-foxpro/ Sat, 19 Nov 2022 18:18:28 +0000

Перевод макроса Excel в синтаксис FoxPro

Исходный макрос Excel
Открытие листа Excel в FoxPro
Подключение механизма IntelliSens в FoxPro
Метод Select
Указание диапазона ячеек для функции
Указание произвольного диапазона ячеек
Когда использовать "запятую", а когда "точку с запятой"
Указание формата ячеек
Константы Excel
Именованные параметры функций Excel
Рисование рамки вокруг всех данных
Перенос слов, выравнивание, ширина столбца и высота строки

Вы вероятно уже знаете, что для того, чтобы определить как именно (какой командой) в Excel можно сделать то или иное проще всего выполнить это действие прямо в Excel с одновременной записью Ваших действий.

Для этого выбирается пункт меню Excel с именем "Сервис" - "Макрос" - "Начать запись". В появившемся окне указываем имя макроса (по умолчанию "Макрос1") и нажимаем кнопку "Ok". В результате, поверх листа Excel появляется маленькое специфическое окошко - ToolBar - с именем "Остановить запись" и все Ваши действия будут автоматически записываться.

После того, как Вы выполните все необходимые действия, остановите запись макроса. Для этого просто нажмите иконку с черным квадратиком в этом ToolBar с именем "Остановить запись". Далее выберите пункт меню Excel с именем "Сервис" - "Макрос" - "Макросы". Выберите имя только что записанного макроса (по умолчанию "Макрос1") и нажмите кнопку "Изменить".

Откроется окно редактора Micosoft Visual Basic в котором будет отображен код Вашего макроса. Это все замечательно, но возникает вопрос: как перевести то, что здесь написано в синтаксис FoxPro? И как вообще использовать это в FoxPro? Вот ответам на эти вопросы и посвящена данная статья.

Сразу замечу, что почти без изменений все приведенные советы можно применить к Word. Для примера выбран Excel потому, что в нем проще адресация. Весь лист разбит на ячейки, к которым собственно и ссылаемся.

Исходный макрос Excel

Сначала собственно создадим макрос, переводом которого позже и займемся. Откройте Excel, создайте новый файл и запустите запись макроса через пункт меню "Сервис" - "Макрос" - "Начать запись". Имя макроса оставьте в значении по умолчанию "Макрос1" и нажмите кнопку "Ok".

Далее заполняем лист Excel таким содержимым

Название реквизита	Значение реквизита
Первый	1 234,56
Второй	9 876,54
ИТОГО	11 111,10

Здесь сделано следующее:

• Вся первая и последняя строка выделены жирным шрифтом
• Содержимое всех ячеек первой строки переносится по словам
• Для второго столбца установлен формат данных: числовой, два знака после запятой, пробел между тройками чисел
• Также для второго столбца, точнее, только для числовых ячеек, установлен условный формат: выделить фон ячейки красным, если его содержимое меньше 2000
• Последняя строка второго столбца содержит формулу суммирования содержимого всех строк таблицы по второму столбцу
• Все заполненные ячейки обрамлены сеткой

Останавливаю запись макроса и смотрю, что же у меня получилось. Пункт меню "Сервис" - "Макрос" - "Макросы". Выбираю имя только что записанного макроса "Макрос1" и нажимаю кнопку "Изменить".

---

 Sub Макрос1()
'
' Макрос1 Макрос
' Макрос записан 10.05.2005 (Максимов)
'

'
'   Ввод содержимого ячеек
    ActiveCell.FormulaR1C1 = "Название реквизита"
    Range("B1").Select
    ActiveCell.FormulaR1C1 = "Значение реквизита"
    Range("A2").Select
    ActiveCell.FormulaR1C1 = "Первый"
    Range("B2").Select
    ActiveCell.FormulaR1C1 = "1324.56"
    Range("A3").Select
    ActiveCell.FormulaR1C1 = "Второй"
    Range("B3").Select
    ActiveCell.FormulaR1C1 = "9876.54"
    Range("A4").Select
    ActiveCell.FormulaR1C1 = "ИТОГО"

'   Формула расчета итога
    Range("B4").Select
    ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"

'   Выделение первой и последней строк жирным шрифтом
    Range("1:1,4:4").Select
    Range("A4").Activate
    Selection.Font.Bold = True

'   Установка формата для второго столбца
    Columns("B:B").Select
    Selection.NumberFormat = "#,##0.00"

'   Установка условного формата для числовых данных второго столбца
    Range("B2:B4").Select
    Selection.FormatConditions.Delete
    Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlLess, _
        Formula1:="2000"
    Selection.FormatConditions(1).Interior.ColorIndex = 3

'   Рисование рамки вокруг всех данных
    Range("A1:B4").Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With

'   Установка формата данных для первой строки (перенос по словам и выравнивание)
    Rows("1:1").Select
    Selection.NumberFormat = "@"
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlTop
        .WrapText = True
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With

'   Уточнение ширины столбцов
    Columns("A:A").ColumnWidth = 11.57
    Columns("B:B").ColumnWidth = 10.14

'   Уточнение высоты первой строки
    Selection.RowHeight = 25.5

'   Переход на первую ячейку для сброса выделений
    Range("A1").Select
End Sub

---

Разумеется, внутри кода макроса нет никаких комментариев. Я их расставил сам, для облегчения восприятия. Все остальное взято из кода макроса без изменений. Теперь попробуем разобрать, что же такое здесь понаписано.

Открытие листа Excel в FoxPro

Прежде чем приступить к "разбору полетов" собственно макроса, небольшое отступление, для того, чтобы показать как собственно открыть Excel из FoxPro. Дело в том, что последующий код перевода макроса будет, так или иначе, ссылаться на открытый лист Excel.

Новый лист Excel открывается следующим образом

---

  * Создаем объект Excel  
  LOCAL loExcel  
  loExcel=CREATEOBJECT('Excel.Application')  
    
 * Создаем в нем новую рабочую книгу  
  LOCAL loBook  
  #DEFINE xlWBATWorksheet -4167  
  loBook = m.loExcel.workbooks.Add(xlWBATWorksheet)  
    
 * Создаем ссылку на новый лист в рабочей книге  
  LOCAL loSheet  
  loSheet = m.loBook.Sheets(1)  
    
 * Делаем Excel видимым  
 * Эту команду надо давать в самом конце формирования листа Excel  
 * здесь она приведена для наглядности  
  loExcel.Visible= .T.  
    
 

---

Здесь сразу нужны некоторые пояснения.

Иерархия главных объектов Excel достаточно проста:

Сам объект Excel (Excel.Application) 
	Коллекция рабочих книг (WorkBooks) 
		Коллекция листов (Sheets) 
			Набор ячеек (Range, Cells, Columns, Rows)

Сам объект Excel (Excel.Application) - это некая "оболочка", которая сама по себе особого интереса не представляет. Ну, примерно как собственно среда FoxPro не имеет особого смысла без каких-то пользовательских форм или меню. Это просто "среда", где и "живут" все прочие объекты Excel

Коллекция рабочих книг (WorkBooks) - одна рабочая книга - это один файл XLS. Как правило, в одном объекте Excel открывается только один файл XLS (рабочая книга). Но, в принципе, можно открыть и несколько файлов XLS в одном объекте Excel.

Коллекция листов (Sheets) - один лист - это одна "страница" файла XLS. Или одна "сетка". При использованном выше способе создания рабочей книги будет создана рабочая книга только с одним листом. Если же вообще не указывать никаких параметров в методе Add при создании новой рабочей книги, то количество листов будет определяться настройками Excel у клиента. Пункт меню Excel с именем "Сервис" - "Параметры" - Закладка "Общие" - реквизит "Листов в новой книге"

Набор ячеек (Range, Cells, Columns, Rows) - это уже собственно ячейки листа Excel. Возможны разные способы адресации к ячейкам:

• Range - произвольный набор ячеек, никак не связанных между собой. В частности, это может быть и одна ячейка, и строка, и столбец, и просто перечисление каких-либо ячеек
• Cells - одна ячейка выделенного диапазона
• Columns - один или несколько столбцов
• Rows - одна или несколько строк

Чтобы начать заполнять лист Excel надо предварительно обязательно открыть сам объект Excel и в нем создать (или открыть) рабочую книгу.

Объект Excel создается именно командой CreateObject(), а не предварительной попыткой использовать уже существующий объект Excel через команду GetObject() не для наглядности. Именно так и следует поступать! Дело в том, что при использовании команды GetObject() неизвестно, какой именно из существующих объектов Excel будет "захвачен". Такая неопределенность рано или поздно, но "выйдет боком". Поэтому лучше создать новый объект и быть уверенным, что при этом никак не испортишь ранее открытые объекты Excel.

В приведенном выше примере я в конце концов получил ссылку на нужный мне лист Excel. Далее я буду работать именно с этой ссылкой. Однако, в принципе, вместо полной иерархии "Объект Excel - Рабочая книга - Лист - ячейка" можно работать и напрямую "Объект Excel - ячейка". Т.е. "пропустив" всю "лишнюю" иерархию "Рабочая книга - Лист".

Только следует иметь в виду, что при такой адресации тем не менее "пропущенная" иерархия будет использована. Но использована неявно. По умолчанию. В этом случае предполагается, что идет ссылка на активную рабочую книгу и активный лист. Обратите внимание на слово "активный". Это вовсе не означает "первый". Это именно "активный". Но это может быть, например, десятый лист.

Подключение механизма IntelliSens в FoxPro

Начиная с версии Visual FoxPro 7 появился механизм IntelliSens. Если у Вас младшая версия FoxPro, то данный раздел Вы можете смело пропустить. Для собственно перевода кода макроса Excel в синтаксис FoxPro то, что написано в данном разделе принципиального значения не имеет. Это просто дополнительные удобства, связанные исключительно с механизмом IntelliSens

Итак, механизм IntelliSens в частности отображает список всех свойств, методов и событий объекта в выпадающем списке, который появляется автоматически как только Вы установите точку сразу за именем объекта. Однако чтобы этот механизм сработал в программе необходимо выполнить то, что в FoxPro называется "ранее связывание". Другими словами, необходимо как-то дать понять FoxPro еще на этапе написания программного кода какой именно объект "скрывается" за выбранным именем переменной. Для этого используется специальный синтаксис в определении области видимости объекта. В данном случае, примерно так:

LOCAL loExcel as Excel.Application
loExcel=CREATEOBJECT('Excel.Application')

Откуда FoxPro узнал о том, где взять список свойств, событий и методов объекта Excel.Application? А из системного реестра Windows. Точнее, конечно, в системном реестре храниться не сам список свойств, а ссылка на библиотеку, в которой эти свойства описаны. Просто в процессе установки собственно Excel в системном реестре Windows был сформирован некий идентификатор для объекта с названием Excel.Application. А уже по этому идентификатору можно определить массу информации связанную с этим объектом. В том числе и полный путь к файлу со списком свойств и методов данного объекта.

Все это, конечно, хорошо. Но ведь основная работа будет происходить не собственно с объектом Excel.Application, а с объектами, существующими внутри Excel.Application. Неужели, для того, чтобы работал механизм IntelliSens придется всегда писать полную иерархию объектов Excel начиная с самого верхнего уровня?

Нет. Не придется. Разработчики механизма IntelliSens предусмотрели возможность явного подключения списка свойств, методов и событий, как самого объекта, так и объектов, существующих внутри него.

В данном случае надо воспользоваться пунктом системного меню FoxPro с именем Tools - подпункт IntelliSens. В открывшемся окне перейдите на закладку Types и нажмите кнопку Type Libraries. Появится список тех объектов, которые зарегистрированы в системном реестре Windows. Вам следует найти в этом списке объект "Microsoft Excel 10.0 Obect Library". Или с большим номером. Библиотека с номером 5.0 нас не интересует, поскольку она не даст нужного результата.

Ставите птичку слева от имени "Microsoft Excel 10.0 Obect Library" и нажмите кнопку "Done". Это вовзвращает Вас в окно IntelliSens Meneger. Убедитесь, что в списке объектов в этом окне появилась только что выбраная Вами дополнительная библиотека, и нажмите кнопку "Ok"

Все. Теперь механизм IntelliSens будет работать не только для объекта, непосредственно зарегистрированного в системном реестре Windows, но и для "вложенных" в него объектов. Для этого, следует переписать приведенный выше код определения объектов следующим образом.

---

  * Создаем объект Excel  
  LOCAL loExcel as Excel.Application  
  loExcel=CREATEOBJECT('Excel.Application')  
    
 * Создаем в нем новую рабочую книгу  
  LOCAL loBook as Excel.Workbook  
  #DEFINE xlWBATWorksheet -4167  
  loBook = m.loExcel.workbooks.Add(xlWBATWorksheet)  
    
 * Создаем ссылку на новый лист в рабочей книге  
  LOCAL loSheet as Excel.Worksheet  
  loSheet = m.loBook.Sheets(1)  
    
 * Делаем Excel видимым  
 * Эту команду надо давать в самом конце формирования листа Excel  
 * здесь она приведена для наглядности  
  loExcel.Visible= .T.  
    
 

---

Метод Select

Первое, что бросается в глаза, при просмотре кода макроса Excel, это разбросанный по всему телу макроса метод Select. Что это такое? А это просто визуализация перехода или выделения нужной ячейки. Т.е. просто визуальное отображение того факта, что Вы встали, например, на ячейку "A1".

При написании кода в FoxPro нам это совсем не нужно. Ну, действительно, зачем нам показывать пользователю, что мы встали на ячейку "A1" и сейчас начнем в ней что-то менять?

Если сравнить с формами FoxPro, то метод Select в Excel аналогичен методу SetFocus() в FoxPro. А зачем нам переводить фокус, например, в TextBox, если я могу изменить его состояние и без этого? Достаточно просто получить ссылку на нужный объект. В данном случае на ячейку Excel.

Именно так и следует поступить. Тем более, что визуализация перехода на нужные ячейки занимает довольно значительное время. Тогда первая часть макроса - "заполнение ячеек" - в синтаксисе FoxPro с учетом предыдущего кода будет выглядеть так:

---

  * Ввод содержимого ячеек  
  m.loSheet.Cells(1,1).Value = "Название реквизита"  
  m.loSheet.Cells(1,2).Value = "Значение реквизита"  
  m.loSheet.Cells(2,1).Value = "Первый"  
  m.loSheet.Cells(2,2).Value = 1324.56  
  m.loSheet.Cells(3,1).Value = "Второй"  
  m.loSheet.Cells(3,2).Value = "9876.54"  
  m.loSheet.Cells(4,1).Value = "ИТОГО"  
    
 

---

В данном случае идет обращение к каждой отдельной ячейке. Поэтому для получения ссылки я использовал метод Cell(номер строки, номер столбца).

Откуда я взял синтаксис использования Cells()? Да из HELP самого Excel. Я просто в коде макроса выделил ключевое слово "Range" и нажал клавишу F1. Далее посмотрел пример его использования и увидел такой замечательный метод Cells() и пример его использования.

Обратите внимание, что я передал число в одном случае как число (ячейка с координатами "2,2"), а в другом - как символьную строку (ячейка с координатами "3,2"). Но в обоих случаях Excel воспринял полученное значение именно как число. Это уже связано с особенностью интерпретации символьных строк самим Excel. В общем случае неочевидно, во что будет конвертировано содержимое символьной строки. Поэтому, логично указывать числа именно как числа. Впрочем, для однозначной интерпретации данных лучше делать предварительное форматирование ячеек Excel. Но об этом ниже.

О ссылках на диапазон ячеек отличный от одной ячейки будет рассказано далее.

Указание диапазона ячеек для функции

По той же самой схеме, которая описана в предыдущем разделе, формулу для расчета итога можно записать так:

---

  * Формула расчета итога  
  m.loSheet.Cells(4,2).Value = "=SUM(R[-2]C:R[-1]C)"  
 * Или в более привычном виде  
  m.loSheet.Cells(4,2).Formula = "=SUM(B2:B3)"  
    
 

---

Однако оба этих способа имеют недостатки. Начну с конца, как более очевидного

Второй способ записи неудобен тем, что в общем случае достаточно трудно перевести номер столбца в соответствующую букву. Вы можете сказать, какая буква будет соответствовать, например, 53 столбцу?

Как легко понять, первый способ использует относительные ссылки. Относительно текущей ячейки. Т.е. адрес:

R[-2]C

Следует читать как: строка (Row) на 2 выше от текущей и тот же самый, текущий, столбец (Column)

Здесь проблема в том, что не всегда легко получить именно относительные значения. Особенно, если используемый диапазон ячеек не является "сплошным". Надо исключить ряд ячеек из расчета.

Немного покопавшись в HELP и поэкспериментировав, выяснилось, что можно писать не относительные ссылки, а абсолютные

---

  * Формула расчета итога  
  m.loSheet.Cells(4,2).Formula = "=SUM(R2C2:R3C2)"  
 * Или несколько более громоздко  
  m.loSheet.Cells(4,2).Formula = "=SUM("+m.loSheet.Cells(2,2).Address +":"+m.loSheet.Cells(3,2).Address +")"  
    
 

---

Здесь первый вариант - это указание абсолютных ссылок. Второй вариант - это тоже абсолютные ссылки, но полученные не путем "расчета", а просто считанные из реквизитов нужных ячеек. Какой вариант для Вас более предпочтительный - решайте сами.

Использовать ли свойство Value или Formula в данном случае все равно. Оба свойства дадут один и тот же результат.

Обратите внимание еще на одну "тонкость". В данном случае использовано английское ключевое слово "SUM", несмотря на то, что я создал исходный макрос в русифицированной версии Excel. Т.е. если посмотреть, что же написано в самом листе Excel, то там будет стоять русское "СУММ".

Указание произвольного диапазона ячеек

Далее в коде макроса стоит установка полужирного шрифта. Здесь сложность не в самой команде установки реквизита шрифта, а в указании диапазона ячеек, для которых надо что-то изменить. Кое-что уже было написано в предыдущем разделе посвященному указанию диапазона для формулы. Здесь опишу это подробнее.

Для указания произвольного диапазона ячеек используется метод Range(). В самом общем виде он имеет примерно такой синтаксис:

m.loSheet.Range("1:1;B:B;C2:D3")

В данном случае указан диапазон, в который входят: все ячейки первой строки, все ячейки столбца "B", все ячейки лежащие между ячейками "C2" и "D3". Т.е. символ двоеточия выступает как фраза "от ... до", а точка с запятой как фраза "... и ...".

Обратите внимание, что в коде макроса Excel вместо символа точки с запятой использован символ запятой. Это не опечатка. Это отличие синтаксиса внутри Excel и при работе с самим Excel как COM-компонентом. О том, когда надо использовать "точку с запятой", а когда просто "запятую" чуть ниже.

Внутри метода RANGE недопустимо использование абсолютных ссылок вида "R1C1", как это можно сделать внутри формул. Это вызовет ошибку. Следовательно, по сути, единственным способом указания произвольного диапазона остается считывание нужных адресов. Если взять приведенный выше пример, то получается так:

   m.loSheet.Range(m.loSheet.Rows(1).Address+";"+;  
  	m.loSheet.Columns(2).Address+";"+;  
  	m.loSheet.Cells(3,2).Address+":"+m.loSheet.Cells(4,3).Address)  
    
 

Ну, а фрагмент кода макроса переводится в синтаксис FoxPro следующим образом:

   m.loSheet.Range(m.loSheet.Rows(1).Address+";"+;  
  	m.loSheet.Columns(4).Address).Font.Bold = .T.  
    
 

Следует заметить, что писать в одном методе RANGE() слишком уж длинных строк диапазонов не надо. Дело в том, что у команд Excel, также как и у команд FoxPro, есть ограничение по длине. В данном случае - это вероятно 1024 символа на одну команду. Если Вы хотите одной командой изменить множество разрозненных ячеек, то следует их объединить при помощи метода Union. Примерно так:

   LOCAL loUnion  
  loUnion = m.loExcel.UNION(m.loSheet.Rows(1),m.loSheet.Rows(2))  
  loUnion = m.loExcel.UNION(m.loUnion,m.loSheet.Cells(3,2))  
  loUnion = m.loExcel.UNION(m.loUnion,m.loSheet.Cells(3,3))  
  loUnion = m.loExcel.UNION(m.loUnion,m.loSheet.Cells(4,2))  
  loUnion = m.loExcel.UNION(m.loUnion,m.loSheet.Cells(4,3))  
  m.loUnion.Font.Bold = .T.  
    
 

Обратите внимание, что метод UNION относиться к объекту "Excel.Application" (переменная m.loExcel). Это значит, что в нем можно объединять диапазоны не просто из разных листов, но и из разных книг.

Метод UNION не может иметь меньше двух параметров. Однако нельзя одной командой указать больше 30 параметров. Впрочем, как видно из примера, можно наращивать уже объединенные ячейки. Т.е. в качестве первого параметра указать ранее объединенный через UNION диапазон ячеек.

Использование метода UNION - это еще один способ указания произвольного диапазона

Когда использовать "запятую", а когда "точку с запятой

При переводе кода макроса Excel в синтаксис FoxPro иногда приходится заменять символ "запятой" на символ "точки с запятой" и наоборот. С чем это связано, и когда это необходимо делать?

Это связано с особенностью разделения параметров в синтаксисе Visual Basic и в синтаксисе FoxPro. Чтобы не залезать глубоко в "дебри" мудреных определений просто запомните общее правило:

Если необходимо отделить друг от друга элементы одного списка, то в синтаксисе FoxPro следует использовать символ "точки с запятой". А если друг от друга отделяются "параметры", то следует использовать символ "запятой".

Чтобы было понятно о чем речь, возьмем ранее рассмотренный пример выделения диапазона ячеек. В макросе Excel это записано так:

Range("1:1,4:4").Select

Здесь, по смыслу, внутри Range() просто перечислены элементы одного списка. Если "перевести" это на русский язык, то можно прочитать это так: выделить первую и четвертую строку

Поскольку речь идет именно о перечислении, а не о параметрах, то в синтаксисе FoxPro следует заменить символ "запятой" на символ "точки с запятой". Примерно так:

m.loSheet.Range("1:1;4:4").Select

К сожалению, в использованном в качестве примера коде макроса нет функций, которые бы использовали диапазоны как параметры. Поэтому приведу пример функции ЕСЛИ() никакого отношения к разбираемому коду макроса не имеющую.

.ActiveCell.FormulaR1C1 = '=IF(RC[-1]>0;RC[-1];"")'

В данном случае, эта формула "переводится" так. Если значение ячейки в текущей строке, но на столбец ранее больше нуля, то отобразить значений этой ячейки. В противном случае - ничего не отображать.

Как видите, в коде макроса использован символ "точки с запятой". Но в данном случае, разделенные величины выступают как параметры. Это явно не перечисление. Значит, в синтаксисе FoxPro следует вместо символа "точки с запятой" использовать символ "запятой".

m.loSheet.Cells(2,3).Value = '=IF(RC[-1]>0,RC[-1],"")'

Указание формата ячеек

Далее в коде макроса стоит указание формата для всего второго столбца. В переводе в синтаксис FoxPro это выглядит так:

m.loSheet.Columns(2).NumberFormat = "#,##0.00"

Обратите внимание, что хотя числовой формат был задан на весь второй столбец, но тем не менее содержимое заголовка столбца (первой строки) как было текстом, так текстом и осталось.

В данном случае символ запятой и точки - это не есть реальные символы-разделители. Их назначение аналогично назначению тех же символов при задании маски ввод "InputMask" в FoxPro.

По умолчанию, все ячейки листа Excel имеют формат "General". Это некий универсальный формат, который сам, автоматически, предпринимает попытку конвертировать полученные данные в тот формат, который он считает наиболее правильным. Это не всегда хорошо.

Например, если Вы выводите в Excel банковский расчетный счет (это 20 цифр), то Excel автоматически конвертирует полученное значение в число. Но, поскольку точность вычисления Excel до 15 значащих цифр, то произойдет округление и последующее изменение формата отображения уже не сможет исправить эту ошибку.

В подобных случаях надо до начала вывода в Excel установить формат ячеек - текстовый

m.loSheet.Columns(1).NumberFormat = "@"

Установка условного формата для числовых данных второго столбца

Далее по коду макроса идет установка условного формата. Но чтобы понять, что там написано, и как это перевести в FoxPro следует сделать ряд пояснений

Константы Excel

В теле макроса встречаются странные значения, которые начинаются с символов "xl". В данном случае - это xlCellValue и xlLess. Но и дальше по коду макроса встречаются аналогичные значения. Это именно значения, поскольку, судя по коду, они присваиваются неким параметрам. Что это такое?

Это константы. Т.е. это некоторые значения, которые были определены в момент открытия Excel. Их отличительным признаком как раз и является то, что они начинаются с символов "xl" и из кода макроса следует, что это некоторые ранее определенные значения.

Определить, чему же равны эти константы можно там же, в редакторе "Microsoft Visula Basic", где Вы и просматриваете код макроса Excel. Для этого надо открыть "Object Browser". Пункт меню "View" - подпункт "Object Browser". Далее в пустом окошке слева от кнопки с иконкой бинокля ввести имя искомой константы и нажать кнопку с иконкой бинокля (или клавишу Enter). В результате поиска в самом низу окна "Object Browser" будет отображено значение искомой константы.

В синтаксисе FoxPro константы записываются через директиву #DEFINE следующим образом:

   #DEFINE xlCellValue 1  
  #DEFINE xlLess 6  
    
 

Именованные параметры функций Excel

В коде макроса, для установки условного формата используется функция ADD с несколькими именованными параметрами. Как это перевести в синтаксис FoxPro, ведь в нем нет такого понятия как "именованный параметр"

Именованный параметр - это передача параметров в функцию не обязательно в порядке их определения, но при этом значению параметра предшествует его имя. В этом случае принимающая функция проанализирует имя параметра и поймет, к чему именно следует отнести полученное значение.

Повторю еще раз. Такого в FoxPro нет. Т.е. реализовать-то это не проблема. Просто этого нет "штатно". На уровне самой среды FoxPro.

А вот здесь как раз избыточность макроса Excel очень кстати. Дело в том, что в подобных случаях, макрорекодер Excel запишет вообще все параметры, какие есть у данной функции или метода и расположит их в том порядке, в котором они идут в самой функции.

В синтаксисе FoxPro параметры должны идти в том порядке, в котором они определены в функции и отделяться друг от друга запятыми. В макросе Excel они также будут идти в том порядке, в котором они определены в функции, но отделены друг от друга пробелом и каждому значению параметра предшествует его имя.

Тогда все очень просто. В FoxPro установка условного форматирования примет вид

---

   #DEFINE xlCellValue 1  
  #DEFINE xlLess 6  
  LOCAL loUnion, loFormatCondition  
  loUnion = m.loExcel.Union(m.loSheet.Cells(2,2),m.loSheet.Cells(3,2))  
  loUnion = m.loExcel.Union(m.loUnion,m.loSheet.Cells(4,2))  
  m.loUnion.FormatConditions.Delete  
  loFormatCondition = m.loUnion.FormatConditions.Add(xlCellValue,xlLess,2000)  
  m.loFormatCondition.Interior.ColorIndex = 3  
    
 

---

В данном случае, все параметры метода Add() обязательны. Т.е. нельзя не задать какой-либо из параметров. Однако во многих функциях часть параметров задавать не обязательно. Это означает либо что данный параметр остается неизменным, либо принимает некоторое значение по умолчанию. В этом случае в синтаксисе FoxPro можно просто ничего не указывать, но обязательно поставить запятую, чтобы нужный нам параметр оказался на соответствующем месте.

Рисование рамки вокруг всех данных

В переводе кода рисования рамки ничего нового нет. Разве что, здесь просто не нужно указывать ряд команд. Например, зачем указывать, что нет диагональных линий, если их и так нет? А в остальном все то же самое, что было описано ранее:

---

   #DEFINE xlThin 2  
  #DEFINE xlDiagonalDown 5  
  #DEFINE xlDiagonalUp 6  
  #DEFINE xlEdgeLeft 7  
  #DEFINE xlEdgeTop 8  
  #DEFINE xlEdgeBottom 9  
  #DEFINE xlEdgeRight 10  
  #DEFINE xlInsideVertical 11  
  #DEFINE xlInsideHorizontal 12  
    
  LOCAL loRange  
  loRange = m.loSheet.Range(m.loSheet.Cells(1,1).Address+":"+m.loSheet.Cells(4,2).Address)  
  loRange.Borders(xlEdgeLeft).Weight = xlThin  
  loRange.Borders(xlEdgeTop).Weight = xlThin  
  loRange.Borders(xlEdgeBottom).Weight = xlThin  
  loRange.Borders(xlEdgeRight).Weight = xlThin  
  loRange.Borders(xlInsideVertical).Weight = xlThin  
  loRange.Borders(xlInsideHorizontal).Weight = xlThin  
    
 

---

Как видите, большая часть кода просто не вошла в итоговый "перевод". В этом нет необходимости. В данном случае нас вполне устраивает стиль и цвет линий по умолчанию. Т.е. сплошная линия черного цвета. Нет смысла менять эти значения. Достаточно только указания толщины (веса) линии

Перенос слов, выравнивание, ширина столбца и высота строки

Собственно, оставшийся код Вы уже можете перевести самостоятельно. Поэтому я приведу его уже безо всяких пояснений

---

   #DEFINE xlCenter -4108  
  #DEFINE xlTop -4160  
    
  m.loSheet.Rows(1).NumberFormat = "@"  
  m.loSheet.Rows(1).HorizontalAlignment = xlCenter  
  m.loSheet.Rows(1).VerticalAlignment = xlTop  
  m.loSheet.Rows(1).WrapText = .T.  
  m.loSheet.Rows(1).RowHeight = 25.5  
    
  m.loSheet.Columns(1).ColumnWidth = 11.57  
  m.loSheet.Columns(2).ColumnWidth = 10.14  
 

Автор публикации

не в сети 26 лет

Владимир Максимов

Комментарии: 0Публикации: 65Регистрация: 02-09-2000

(далее…)

]]> https://foxclub.ru/knowledgebase/material-iz-ufy/ Fri, 28 Aug 2020 11:32:30 +0000

Материал из Уфы

Мой материал, который я представлял в Уфе

Если запускать через main.prg, то предварительно запустите autoexec.prg - там установятся необходимые пути для работы приложения

Автор: Пирожков Вадим

Автор публикации

не в сети 22 года

piva

Комментарии: 1Публикации: 11Регистрация: 24-03-2004

(далее…)

]]> https://foxclub.ru/knowledgebase/podvodnyj-kamen-s-unique-i-deleted/ Fri, 28 Aug 2020 11:32:30 +0000

Подводный камень с UNIQUE и DELETED()

при выставлении индекса пропали записи.

Не нашел такого в баззе по этому делюсь вдруг кто столкнется, есть база [работа,тип] пример: [ЧП Иванов],[Предприниматель]  [ООО Ферросплавы],[Предприятия]...  типы: Медики, Образование, Бюджет, МВД и т.д. индекс был сделан так: [code] index on [тип] tag tip1 uniq [/code] от пользователей поступила жалоба что из списка пропал тип [Предприятия],  смотрю базу все наместе, а в списке нет. Понять ни чего не могу индек же на то и уникальный чтобы всех записей было по одному. После долгих мук база была упакована, все заработало, но проблемато осталась, как  оказалось при индексации fox включает в уникальные и удаленные записи не зависимости от  [code]SET DELETE [ON/OFF] [/code]  Решение вообщем следующие:  [code] index on [тип] tag tip1 uniq FOR !dele()[/code] 

Автор: Даниил Александрович

Автор публикации

не в сети 6 месяцев

admin

Комментарии: 1Публикации: 123Регистрация: 10-12-2000

(далее…)

]]> https://foxclub.ru/knowledgebase/bystrodejstvie-programm-na-vfp/ Sat, 19 Nov 2022 18:09:36 +0000

Быстродействие программ на VFP

Важное замечание
Пользовательский интерфейс
Rushmore
Навигационный и реляционный подходы
Оптимизация запросов
Нормализация БД
Алгоритм
Массивы (Arrays)
Работа с таблицами
Скорость выполнения отдельных команд
Пример
Как успокоить пользователя
Тестирование
Благодарности

Здесь вы можете скачать тексты демонстрационных программ.

Важное замечание

Наши пользователи хотят, чтобы программы выполнялись максимально быстро. Но часто бывает, что быстродействие может быть достигнуто в ущерб другим требованиям, например универсальности, модифицируемости или надежности кода. Далеко не всегда стоит добиваться максимальной производительности. Бывает, что код настолько усложняется, что вы рискуете потерять контроль над своей "супер-быстрой" программой. Так же не стоит отказываться от проверок входящих параметров. Сэкономленные секунды могут обернуться долгими часами, потраченными на ликвидацию последствий незначительной ошибки.

Пользовательский интерфейс

Если пользователи жалуются на слишком медленную работу форм, вы можете предпринять следующие действия:

• Загружайте элементы интерфейса только тогда, когда в них появится необходимость. Это могут быть элементы на неактивных закладках PageFrame, скрытые узлы Treeview, или невидимые формы в FormSet. Практически любой набор объектов можно поместить в контейнер, сохранить его, как класс, а в нужный момент создать экземпляр этого класса.
• Можно поступить "с точностью до наоборот" - при загрузке программы создать самые тяжелые и часто используемые объекты, и сделать их невидимыми до определенного момента. Обращали внимание, как долго загружается программа 1С? Зато потом скорость работы вполне приемлемая. Это пример такого подхода.
• Если в большой таблице наложить фильтр, установить активный индекс, и отобразить результат через Browse или Grid, то переход между строками будет происходить очень медленно. Более подходящий источник для отфильтрованных и отсортированных данных - Local View.
• Если вам не нужны все возможности Grid-а, замените его на Listbox. Этот контрол намного легче и быстрее. Кроме того, в нем нет проблем с подсветкой строки, которые имели место до 8-й версии VFP.
• Установите последние обновления для сети и операционной системы. В моей практике было, когда для первоначального открытия десяти таблиц на сервере Novell требовалось полминуты. После установки на рабочих станциях патча для работы с Novell открытие таблиц стало происходить мгновенно.

Rushmore

Как использовать индексы для оптимизации Rushmore, описано в разделе HELP "Using Rushmore Query Optimization to Speed Data Access". В этой же статье вы найдете список команд, которые могут быть оптимизированы.

Оптимизация не будет работать, если:

• Не совпадает Set Collate (в индексах таблицы используется Russian, а системная установка - Machine)
• Индекс содержит условие FOR ... или ключевое слово UNIQUE
• Индексное выражение включает условие .NOT., например Index on .NOT. DELETED()
• Выражение для поиска не совпадает с индексным. Часто допускают такую ошибку. Предположим, у таблицы есть индекс по UPPER(cField1). Для поиска пустых полей используют условие EMPTY(cField1) = .T., что не совпадает с индексным выражением. Для того, чтобы поиск был оптимизированным, выражение должно выглядеть как UPPER(cField1) = SPACE(N), где N - длина поля cField1.

Навигационный и реляционный подходы

В FoxPro сосуществуют два подхода к обработке данных - навигационный и реляционный.Навигационные команды - это Locate, Seek, Set Relation, Set Order, GoTo. Основная реляционная команда - Select SQL. Скорость выполнения запросов SQL весьма высока, однако во многих случаях навигационный подход работает еще быстрее.

Пример поиска максимального значения поля различными способами:

 *** поиск с помощью Select SQL
Select MAX(Field1) as MaxField From Table1 Into Cursor _Temp
? _Temp.MaxField

*** а так выполнится значительно быстрее (необходимо наличие индекса по полю Field1)
Select Table1
Set Order To Field1
Go Bottom
? Field1

Оптимизация запросов

Запросы на FoxPro могут выполняться долго, если в них участвует больше трех-четырех таблиц. Речь идет именно о запросах к родным БД на dbf, а не о запросах, отправляемых на сервер. Как правило, увеличить скорость путем разбиения большого запроса на несколько последовательно выполняемых подзапросов не удается. Можно выйти из положения, исключая из запроса справочные таблицы (например, ФИО сотрудников), и привязывая их к результату через Set Relation, смешивая таким образом "реляционный" и "навигационный" подходы.

Использование Outer join снижает скорость выполнения запроса. Если нет прямой необходимости в этой опции, лучше переписать запрос без нее. Как вариант - если у вас есть строки, не имеющие соответствия в связанной таблице, и потому содержащие в поле для связи .NULL., добавьте в связанную таблицу строку с нулевым кодом, а в основной - замените пустые значения на этот нулевой код.

Подзапросы вида Where Field1 in (Select ... ) или Where Exists (Select ... ) могут замедлить скорость выполнения запроса (хотя это зависит от многих параметров). Если такой запрос выполняется слишком медленно - попробуйте переписать его с использованием простого объединения.

Для большего быстродействия располагайте первыми те условия, которые максимально сужают область дальнейшего поиска.

Для анализа оптимальности SQL-запроса воспользуйтесь функцией Sys(3054). Имейте в виду, что если у таблиц нет индексов по Deleted(), эта функция будет показывать частичную оптимизацию, даже если фактически они вносят отрицательный вклад в скорость выполнения запроса. Этот эффект подробно описан Владимиром Максимовым.

Нормализация БД

Принципы нормализации требуют, чтобы все повторяющиеся значения были вынесены в отдельные таблицы. Однако это может замедлить выполнение программы. В некоторых случаях нормализацией можно пренебречь.

Например, в справочнике клиентов есть поле "Город". Исходя из принципов нормализации, необходимо завести таблицу - справочник городов. Так как названия городов меняются нечасто, в таблице клиентов вместо кода города можно записывать его название. Это позволит уменьшить количество таблиц в запросах, но потребует аккуратности, если название города все-таки изменилось, или в нем была допущена ошибка.

Другой вариант - предварительные расчеты. Например, с помощью триггеров можно заранее пересчитывать суммарные данные о продажах за день в момент добавления или корректировки нового счета. К примеру, пусть счета хранятся в таблице Invoices, а данные о продажах за день - в таблице DailySales. Тогда в триггеры таблицы Invoices нужно добавить примерно такой код:

 *** для триггера Insert
Update DailySales Set TolalSum = TolalSum + Invoices.InvoiceSum Where DailySales.SalesDate = Invoices.InvoiceDate

*** для триггера Update
Update DailySales Set TolalSum = TolalSum + Invoices.InvoicesSum - OldVal(Invoices.InvoiceSum) Where DailySales.SalesDate = Invoices.InvoiceDate

*** для триггера Delete
Update DailySales Set TolalSum = TolalSum - Invoices.InvoiceSum Where DailySales.SalesDate = Invoices.InvoiceDate

Естественно, сам код триггеров будет намного сложнее. Кроме приведенных строк там необходимы проверки, обработка ошибок и т.д.

Если вы решите идти по такому пути, не забудьте написать процедуру синхронизации, если из-за сбоев предварительные расчеты станут отличаться от основных.

Алгоритм

Как правило, стройный и понятный алгоритм выполняется быстрее всего, хотя бывают исключения. С другой стороны, применяя "обходные маневры" вы можете потерять возможность исправить что либо в коде, когда условия изменятся.

Вот несколько общих советов:

• Вынесите за пределы циклов однократно выполняемые установки типа Set deleted, Set exact, и т.д.
• Поместите проверки в начало подпрограммы. Это позволит не выполнять лишние действия, если проверки окончатся неудачно.
• Освобождайте память от объектов и таблиц, которые вам больше не понадобятся.
• Если позволяют технические возможности, перенесите наиболее тяжелые расчеты на другой компьютер, воспользовавшись технологией DCOM.

Массивы (Arrays)

Иногда можно встретить утверждение, что использование массивов ускоряет работу, так как весь объем информации находится в оперативной памяти. Возможно, это верно для небольших массивов. Если же вам нужно обработать большой объем информации - поместите данные в таблицы. Для работы с ними VFP имеет широкий набор оптимизированных команд и функций, которых вы лишитесь, работая с массивами.

Во многих языках программирования принято обрабатывать данные, находящиеся именно в массивах. На одном из форумов я даже видел тесты, в которых сравнивалась скорость обработки больших массивов в FoxPro и в других языках. IMHO, это сравнение не совсем корректно. Нужно сравнивать обработку массивов в других языках, и обработку таблиц - в FoxPro.

Работа с таблицами

Как уже говорилось, основная задача VFP - работа с таблицами. Здесь перечислены приемы, которыми вы можете воспользоваться для ускорения обработки данных:

• Поиск записей с помощью команды Seek (или ее аналога функции SEEK( ) ) выполняется примерно в 5-10 раз быстрее, чем с помощью команды Locate.
• Команда Locate позволяет указывать несколько условий, например Locate for ClientID = X AND InvoiceDate = Y. Для максимально быстрого поиска по нескольким полям заведите сложный индекс, в данном случае - STR(ClientID, 10, 0) + DTOS(InvoiceDate), и осуществляйте поиск с помощью Seek STR(X, 10, 0) + DTOS(Y).
• "Быстрая" команда Seek может работать с любыми индексами, в том числе содержащими ключевое слово UNIQUE или условие FOR.... Однако имейте ввиду, что сложные индексы затрудняют читабельность и модификацию кода.
• Если нужно только проверить наличие строк, удовлетворяющих условию, по которому есть индекс, но нет необходимости перемещать указатель на эти строки, воспользуйтесь функцией IndexSeek() (она появилась в VFP начиная с 6-й версии).
• Команда Goto ... выполняется практически мгновенно. Если вам нужно вернуться к какой-либо записи в таблице - запомните текущее значение RECNO(). Возврат по номеру записи отработает быстрее, чем поиск по идентификатору с помощью Seek или Locate.
• Цикл Scan...EndScan оптимизирует перебор записей таблицы даже без индекса. Там где это возможно, используйте его вместо конструкции Do While not EOF() ... Skip ... EndDo.
• Выполнение команд Locate, Scan For.., Set Filter to.. замедлится, если у таблицы установлен активный индекс. Отключите индекс командой Set Order to без параметров, если порядок перебора строк неважен.
• Команда Set Filter to.. входит в число Rushmore-оптимизируемых команд, и в "лабораторных условиях" скорость ее работы вполне удовлетворительна. Тем не менее, эта команда очень чувствительна к "внешним факторам", например, к установке активного индекса. Поэтому в большинстве случаев использование фильтров негативно сказывается на быстродействии.
• Если вам необходимо просканировать некоторый диапазон значений в таблице, и по этим значениям есть индекс, вы можете воспользоваться приемом, известным как "Set Order + Seek + Scan while".

   Set Order to Field1
  Seek StartValue && устанавливаем указатель на начало диапазона
  Scan While Field1 =< EndValue && перебираем строки до конца диапазона
  ...
  EndScan

  Этот код работает быстрее, чем Scan for Between( Field1, StartValue, EndValue ) ... EndScan, но проигрывает ему в читабельности, и кроме того, требует установки активного индекса.

• Если какой-либо индекс в таблице используется чаще других, во время технического обслуживания БД физически отсортируйте записи в таблице в порядке этого индекса. (Я никогда не использовал этот прием на практике, однако такой совет есть в HELP, в статье "Optimization of Tables and Indexes").

Скорость выполнения отдельных команд

Скорость выполнения отдельных команд приобретает критическое значение, когда они выполняются в цикле, и доли секунды, за которые выполняется одна команда, умножаются в тысячи, если не в сотни тысяч раз. Так же бывает важным максимально сократить время работы триггеров, чтобы не тормозить операции с таблицей. Вот некоторые приемы:

• Там, где это возможно, вместо макроподстановки & используйте выражения имени ( ) и функцию EVALUATE(). Выражения имени можно применять там, где Fox ожидает увидеть имя переменной или поля. Функция EVALUATE() может быть использована в операциях присвоения и вычислениях.

   X = "Var1"
  Y = "Var2"
  Store EVALUATE(X) to (Y) && так быстрее
  &Y = &X && эта команда сделает то же, что и предыдущая, но существенно медленнее

• Если команда состоит из несколько макроподстановок, лучше собрать части команды в одну переменную, и выполнить единой макроподстановкой

   *** медленный вариант
  Select &FieldsList From &TablesList Where &JoinConditions
  *** так быстрее
  cSQL = "Select " + FieldsList + " From " + TablesList + " Where " + JoinConditions
  &cSQL

• Стандартные функции VFP хорошо оптимизированы и выполняются достаточно быстро. Например, условиями задачи требуется найти цифру, входящую в текстовую строку. Можно по очереди перебирать символы:

   For I = 1 to LEN(cText)
  	If ISDIGIT( SUBSTR(cText, m.I,1) )
  		? m.I
  		Exit
  	EndIf
  EndFor

  Более быстрый вариант с использованием стандартных функций:

   cText1 = STRTRAN(cText, "123456789", "0")
  ? AT(cText1, "0")

• Скорость обращения к переменным выше, чем к свойствам объекта или полям таблицы. Если значение какого-то свойства или поля используется многократно, присвойте это значение переменной.
  Подавление системных сообщений с помощью команд Set Talk off, Set Notify off (в последних версиях еще и Set Notify Cursor off) может существенно ускорить процесс.
  Сложение текстовых строк происходит быстрее, если к длинной строке добавлять короткую, а не наоборот. То есть

   *** этот код выполнится быстро
  x = ""
  For i = 1 to 10000
  	x = x + Sys(3) && функция Sys(3) играет роль "короткого текстового выражения"
  EndFor
  
  *** а этот - медленно
  x = ""
  For i = 1 to 10000
  	x = Sys(3) + x
  EndFor

• Для поиска "узких мест" воспользуйтесь командой Set Coverage to. Эта команда создаст текстовый файл, в котором будет записано время выполнения каждой строки. Вы можете сохранить этот файл в таблицу, и проанализировать ее. Либо воспользоваться Coverage profiler из дистрибутива Visual FoxPro.

Пример

Предположим, вам необходимо всем клиентам, у которых есть заказ в предыдущем месяце, предоставить скидку 10% на будущие заказы. Данные о заказах хранятся в таблице Invoices, а информация о скидке - в таблице Clients.

 New_Discount = 0.10 && скидка, которую мы хотим предоставить
PrevDate = GoMonth(Date(), -1)
PrevMonth = Month(PrevDate) && предыдущий месяц
PrevYear = Year(PrevDate) && год, в котором был предыдущий месяц

Go top in Clients
Do while not EOF("Clients") && перебор записей в таблице клиентов
	Go top in Invoices
	Do while not EOF("Invoices") && перебор записей в таблице счетов
		If Invoices.ClientID = Clients.ClientID AND ;
		Year(Invoices.InvoiceDate) = PrevYear AND ;
		Month(Invoices.InvoiceDate) = PrevMonth
			Replace Clients.Discount with New_Discount
			Exit
		EndIf
		Skip in Invoices
	EndDo
	Skip in Clients
EndDo

Приведенный код логически верен, но абсолютно не оптимизируем.

Попробуем переписать этот код:

 Month_End = Date() - Day(Date()) && последний день предыдущего месяца
Month_Start = Month_End - Day(Month_End) + 1 && первый день предыдущего месяца
Select Clients
Scan
	Select Invoices
	Locate for ClientID = Clients.ClientID AND Between(InvoiceDate, Month_Start, Month_End)
	If Found("Invoices")
		Replace Clients.Discount with New_Discount
	Endif
EndScan

Перебор записей таблицы Clients осуществляется командой Scan. Поиск в таблице Invoices может быть оптимизирован с помощью индексов по полям ClientID и InvoiceDate. Этот вариант будет выполняться существенно быстрее.

Для реализации следующего варианта необходимо, чтобы у таблицы Invoices существовал особый индекс:

 Index on STR(ClientID, 10,0) + DTOS(InvoiceDate) tag MIXED
...
...
...
Set Exact OFF
LastMonth  = LEFT(DTOS( GOMONTH(DATE(), -1) ), 6) && год и месяц в формате "YYYYMM"
Select Clients
Replace Clients.Discount with New_Discount For IndexSeek( STR(ClientID, 10,0) + m.LastMonth, .F., "Invoices", "MIXED" )

Поиск в таблице Invoices осуществляется по индексу, поэтому этот пример отработает еще быстрее. Но индекс весьма специфический, и не может быть применен для других вычислений. Кроме того, даже автору это кода этого потребуется немало времени, чтобы спустя полгода разобраться, что именно он делает 🙂

Решение с использованием команд SQL:

 Update Clients Set Discount = New_Discount Where Exists ;
(Select * From Invoices Where ;
Invoices.ClientID = Clients.ClientID AND ;
Invoices.InvoiceDate BETWEEN Month_Start AND Month_End)

Возможно, данный вариант не выиграет с точки зрения скорости по сравнению с предыдущим, но он гораздо понятнее. Если время выполнения запроса находится в разумных пределах, я бы остановился именно на нем. К сожалению, такой синтаксис команды SQL-Update возможен только в VFP9.

По этой ссылке вы можете скачать исходные тексты примеров

Как успокоить пользователя, пока выполняется программа

Если программа в течение минуты не будет подавать признаков жизни, у пользователей возникает жгучее желание нажать Ctrl+Alt+Del, и прервать процесс. Вам необходимо информировать пользователя о состоянии дел. Вот варианты.

Если расчеты многоступенчатые, перед каждым этапом выводите либо в статус-бар, либо в окно сообщение

 Wait window "Этап 1: Проверка данных" nowait
...
Wait window "Этап 5: Суммирование данных за год" nowait
...
Wait window "Этап 10: Окончательное форматирование" nowait
...
Wait clear

При сканировании большой таблицы выводите номер обрабатываемой записи. Имейте ввиду, что вывод на экран - очень медленный процесс. Поэтому выводите сообщения только на каждой десятой или даже сотой строке:

 Set Talk Off
...
Scan
	...
	...
	If MOD(RECNO(), 100) = 0
		Application.StatusBar = "Обработано "  + TRANSFORM( RECNO() ) + " строк из " + TRANSFORM( RECCOUNT() )
	EndIf
EndScan

Очень полезным может оказаться следующий прием. Запоминайте, сколько времени длился расчет в прошлый раз, и используйте эти данные для текущего расчета. Сохранять эту информацию нужно локально, так как скорость вычислений зависит от возможностей данной рабочей станции.

 Wait window "В прошлый раз расчет длился " + TRANSFORM(Duration) + " секунд" + CHR(13) + ;
		"Этот расчет начался в " + TIME() + CHR(13) + ;
		"и продлится примерно до " + TTOC( DATETIME() + Duration , 2 ) nowait

Если длительность расчета зависит от каких-то параметров, вы можете экстраполировать старые показания пропорционально новым. Например, если параметрами для вашей процедуры является диапазон дат, разделите длительность процесса на количество дней в диапазоне, и получите примерную длительность в расчете на один день. В следующий раз, когда пользователь укажет другие даты, умножьте сохраненный результат на новое количество дней, и получите экстраполяцию, сколько будут длиться вычисления. Время, естественно, будет очень приблизительным, но это в любом случае поможет пользователю оценить, сколько чашечек кофе он успеет выпить 🙂

Для полноты картины можете вывести прогресс-бар. Однако имейте в виду, что любые украшательства требуют системных ресурсов. Так что не переусердствуйте.

Тестирование

Советы уважаемых гуру, и даже выдержки из HELP не дают гарантий, что именно ваш случай не будет редким, но исключением из общих правил. Скорость работы может зависеть от сервера и сети, от активности пользователей, от объема и частотного распределения данных. Самый хороший способ определить, насколько быстро будет выполняться программа - провести тесты, максимально приближенные к реальности. Использование тестов только кажется сложным. Нет ничего сверхъестественного в том, чтобы сгенерировать табличку, близкую по размерам к максимальному ожидаемому размеру реальной БД, и попробовать поработать. В генерации тестовых данных вам помогут функции RAND(), SYS(3) и SYS(2015), а так же любой осмысленный текст достаточно большого размера. В тестах для данной статьи я использовал kladr - классификатор адресов России. Для большей достоверности постарайтесь, чтобы данные не были физически отсортированы по какому-либо полю.

 *** Генерация тестовой таблицы ***
=RAND(-1) &&  HELP рекомендует перед началом работы вызвать RAND() с отрицательным параметром
For nCount = 1 to BigNumber && число добавляемых записей
*** пример генерации случайного числа от 1 до 1000
	nRandomValue = CEILING(1000 * RAND())
	*** а так можно заполнять почтовые индексы и номера телефонов
	cZipCode = PADR(CEILING(999999 * RAND()), 6, "0")
	*** поиск случайной записи в связанной таблице
	Goto CEILING(RECCOUNT("ChildTable") * RAND() ) in ChildTable
	RelatedTableValue = ChildTable.Field1
	*** пример генерации случайного адреса
	Goto CEILING(RECCOUNT("Towns") * RAND() ) in Towns
	Goto CEILING(RECCOUNT("Streets") * RAND() ) in Streets
	cAddress = ALLTRIM(Towns.Name) + ", " + ALLTRIM(Streets.Name) + ", дом " + TRANSFORM( CEILING(200 * RAND()) )
	*** Вставляем полученные данные в таблицу

	Insert into BigTable (...) values (nRandomValue, cZipCode, cAddress, RelatedTableValue)
EndFor

Регулярное проведение тестов имеет еще одну приятную особенность. Пока выполняется тест, вы имеете полное право откинуться на спинку стула, и несколько минут наслаждаться бездельем 😉

Благодарности

В работе над статьей принимали участие члены Фокс-Клуба: Владимир Максимов, Игорь Королев, Alex Shustikov, Соколов Игорь

Игорь Ильин
Последнее обновление: 22.12.05

Автор публикации

не в сети 2 месяца

Joys

Комментарии: 2Публикации: 177Регистрация: 25-06-2000

(далее…)

]]> https://foxclub.ru/knowledgebase/nastraivaemyj-messager-s-shirokimi-vozmozhnostyami-po-upravleniyu-vidom-okna-soobshheniya/ Fri, 28 Aug 2020 11:32:30 +0000

Настраиваемый MESSAGER с широкими возможностями по управлению видом окна сообщения.

1) Выравнивание текста LEFT,RIGHT,CENTER,JUSTIFY с возможностью управлением выравнивания каждой строки. 2) Возможность поставить кнопки по указанным координатам формы, подписать и раскрасить их как захочется. 3) Масштабируемая сложность задания параметров - можно использовать только часть возможностей без потери функциональности. 4) Полная настройка любого объекта в форме вывода сообщения через параметры.

[code] * Пример запуска: *-------------------------------------------------------------------------------------------------------------- * =DN("Быть или не быть? - вот в чем вопрос. Выберите ответ:","1","I=N") *============================================================================================================== * Отрабатываемые параметры настроек формы и текста сообщения *-------------------------------------------------------------------------------------------------------------- * "H" - height * "W" - width * "T" - top * "L" - left * "G" - background color * "F" - font message * "I" - настройки вывода текста: * B - bold * I - Italic * L - Left Alignment * R - Right Alignment * 0-5 - Margin * N - Запретить рамку вокруг текста * "S" - size font message * "R" - font color message * "C" - caption формы * "P" - picture * "U" - picture back tip * "N" - настройки формы: * 0-5 - Жирность обрисовки по краю формы. * M - Movable=.T. * C - Скрыть Caption формы. * G - Использовать зеленую схему * R - Использовать красную схему * B - Использовать синюю схему * E - Использовать голубую схему * Y - Использовать желтую схему * P - Использовать розовую схему * Также можно указать параметр следующего вида: * Edit1.Width=Thisform.Edit1.Width-50 - ширина текста уменьшится на 50 пикселей * Edit1.Left=50 - текст сдвинется вправо на 50 пикселей *============================================================================================================== * Список объектов формы: *-------------------------------------------------------------------------------------------------------------- * Edit1 - для вывода текста сообщения * Command1 - кнопка да * Command0 - кнопка нет * Image1 - для натягивания фона или вывода картинки * Container1 - для рамки *============================================================================================================== * Отрабатываемые параметры для управления кнопками *-------------------------------------------------------------------------------------------------------------- * "0" - 1 кнопка (по умолчанию: центруется от центра, надпись меняется на "OK") * "1" - 2 кнопки, фокус на первой * "2" - 2 кнопки, фокус на второй * "A" - background color (в виде цифры) активной кнопки *-------------------------------------------------------------------------------------------------------------- * Далее, все параметры могут задаваться как в описанном виде, так и имея указатель на номер кнопки * К примеру H=100 сделает высоту обеих кнопок = 100, * а результатом H1=100,H0=50 будет 2 кнопки разной высоты. *-------------------------------------------------------------------------------------------------------------- * "H" - height * "W" - width * "T" - top * "L" - left, может также задаваться через ключевые слова: * CENTER - Разместить от центра * LEFT - Левая сторона кнопки = Left сообщения * RIGHT - Правая сторона кнопки =Right сообщения * "G" - background color (в виде цифры) * "F" - font name * "I" - настройки font: * N - запретить bold * I - Italic * "S" - size font * "R" - font color * "C" - caption (не используйте запятые!) * "P" - picture (icon) * "U" - picture position *============================================================================================================== * Порядок следования параметров: *-------------------------------------------------------------------------------------------------------------- * * =DN("Правильно:","1,W0=150,L0=RIGHT") && W0=150 - ширина второй кнопки=150, L0=RIGHT - выровнять от правого края * =DN("Не правильно:","1,L0=RIGHT,W0=150") * * в этих двух примерах суть - сначала должны следовать параметры по заданию размера, а потом по определению * местоположения! *============================================================================================================== * Возвращает: *-------------------------------------------------------------------------------------------------------------- * -1 - отказ от ответа (был нажат ESC) * 0 - ответ нет * 1 - ответ да *-------------------------------------------------------------------------------------------------------------- [/code] для ознакомления запустите дему.

Автор: Т. Аскольд

Автор публикации

не в сети 3 года

TAS

Комментарии: 0Публикации: 7Регистрация: 28-09-2000

(далее…)

]]> https://foxclub.ru/knowledgebase/library-grid-s-mnogostrochnym-zagolovkom-s-vozhmozhnostyu-obedineniya-yacheek-ex_grid-na-ego-osnove-tekstovoe-pole-s-combobox-om-kontejner-s-prokrutkoj/ Fri, 28 Aug 2020 11:32:30 +0000

library: grid с многострочным заголовком, с вожможностью объединения ячеек (Ex_Grid), на его основе текстовое поле с combobox-ом, контейнер с прокруткой…

Классы контролов для vfp9.0. Все описание в файле MultiRows Grid DemoОписание_классов_элементов управления.xls в архиве.. Архив распаковать, для демки запустить MultiRows Grid Demoex_grid_sample_01.prg из проекта

Классы контролов для vfp9.0. Все описание в файле MultiRows Grid DemoОписание_классов_элементов управления.xls в архиве.. Архив распаковать, для демки запустить MultiRows Grid Demoex_grid_sample_01.prg из проекта/// Вообщем-то, говорить нечего, лучше посмотреть, классы пока недоработаны, в гриде поддерживаестя контекстное меню (или же можно вызвать по ctrl+f12), а также возможности автофильтра (пока до конца тоже не отлажено, есть кривости), сортировка по указанным колонкам (работает) - есть соотвествующие события (на сортировку и фильтр, к которым можно прибиндиться из клиентской формы)... Сам грид заполняется в методе m_init (настройка колонок, хидеров, признаки автофильтра, сортировки и прочее), базовый Init сделан как protected, m_createcursor как раз создает или получает тот курсор, который необходимо отображать... Принцип объединения ячееек: в одну общуюю ячейку объединяются те, у которых сапшины равны, соответственно по вертикади и горизонтали, количество уровней хидеров считается автоматически ...см. в примере m_init использование метода m_AddHeader/// Принцип именования членов классов: префикс m_ - метод, p_ - свойство, e_ - событий, далее квалификатор типа данных... ps: буду рад выявлению грубых ошибок, участию других разработчиков, которых собственно и хотелось бы пригласить для доведения до ума данных контролов, при желании могу выслать код классов в prg /// комментариев думаю должно хватить, чтобы понять принцип организации грида... Текстовое поле с комбиком реализовано на основе класса Ex_Grid, документация также в файле .xls... pps: принимаются пожелания по юзабилити, а также по дополнительным возможностям, критика по коду тоже привествуется, сразу же оговорюсь, часто забывал отбиндить обработку событий, где-то перемудрил с использованием коллекций - наверно, во многих местах можно было обойтись использованием массивов...

Автор: dushes

Автор публикации

не в сети 24 года

dushes

Комментарии: 0Публикации: 1Регистрация: 13-03-2002

(далее…)

]]> https://foxclub.ru/knowledgebase/svoj-variant-report-preview-output-dlya-vfp9/ Fri, 28 Aug 2020 11:32:30 +0000

Свой вариант Report Preview/Output для VFP9

Реализация просмотра и вывода в различные форматы отчетов FoxPro

Реализация просмотра и вывода в различные форматы отчетов FoxPro. Тестировал на стандартных отчетах из дистрибутива VFP9. Форматы ыывода: НTML, XLS, JPEG, Form (Objects). Комментарии по использованию программы внутри архива. Работа через _reportpreview (_reportoutput) не поддерживается. Вобщем есть еще чего написать. Главное, что базовый движок вывода уже написан и к нему можно прикрутить другие форматы. Было бы желание и время 😉

Автор: amaximum

Автор публикации

не в сети 25 лет

amaximum

Комментарии: 0Публикации: 1Регистрация: 26-04-2001

(далее…)

]]> https://foxclub.ru/knowledgebase/popytka-lokalizaczii-standartnogo-preview-report-vfp-9/ Fri, 28 Aug 2020 11:32:29 +0000

Попытка Локализации стандартного Preview Report VFP-9

Комментарии находятся в самом модуле preview_rus.prg

Комментарии находятся в самом модуле preview_rus.prg

Автор: Андрей Шморин

Автор публикации

не в сети 20 лет

ShmSoft

Комментарии: 0Публикации: 5Регистрация: 24-11-2005

(далее…)

]]> https://foxclub.ru/knowledgebase/sovety-nachinayushhim-chast-v/ Fri, 16 Dec 2022 13:32:41 +0000

Советы начинающим Часть V

В этой статье :

Триггер

• Особенности использования функций - триггеров
• Referential Integrity
• Когда и для чего использовать триггер

  Правила (Rule)

• Особенности использования правил (Rule)
• Когда и для чего использовать правило

  Значение по умолчанию (Default)

• Особенности использования значения по умолчанию
• Когда и для чего использовать значение по умолчанию

  Дизайн полей таблицы

  Директивы компилятора

  Триггер

  В FoxPro существует некоторая путаница с этим термином (впрочем, как и с большинством других терминов), вызванная не столько неясностью самого термина, сколько особенностью его использования.

  Триггер - это выражение, значение которого вычисляется при наступлении определенного события. Это выражение должно вернуть обязательно логическое значение .T. или .F.

  Но все дело в том, что в качестве одного из аргументов этого выражения может стоять некоторая функция (или несколько функций). Вот эти-то функции, вызываемые из выражения триггера, также называют "триггер".

  Как правило, когда речь идет о триггере, то подразумевают именно функцию - триггер, а не выражение - триггер.

  Вычисление выражения триггера происходит при наступлении одного из следующих событий: добавлении записи, удалении записи, модификации записи. Соответственно различают 3 вида триггеров: триггер на вставку, триггер на удаление и триггер на модификацию.

  Если выражение триггера вернет .T., то сделанные модификации принимаются и записываются в базу данных. Если же выражение триггера вернет .F., то сделанные модификации отвергаются и генерится ошибка с кодом 1539 (ошибка триггера). Уточнить, какой именно вид триггера вызвал ошибку, можно используя функцию AERROR().

  Триггер - это "вратарь" или последний этап проверки корректности введенных данных. После него уже идет собственно модификация данных без каких-либо еще проверок. Причем триггер не обращает внимания на всякие "ложные" попытки модификации данных, а реагирует только на окончательную (физическую) модификацию данных. Имеется в виду, что триггер не сработает при модификации буфера таблицы, но выполнит проверку в момент сброса буфера.

  О некоторых особенностях поведения триггеров в FoxPro Вы можете почитать в описании к команде CREATE TRIGGER. Замечу, что в этой команде речь идет именно о выражении, но никак не о функции триггера.

  Особенности использования функций - триггеров

  Функции триггеров хранятся в хранимых процедурах, поскольку это действия, которые связаны напрямую с данными и не должны зависеть от приложения.

  При использовании функций триггеров следует учитывать некоторые особенности их использования в FoxPro. В дальнейшем, используя термин "триггер", я буду подразумевать именно функцию - триггер.

  • Триггер всегда анализирует изменения сделанные только в одной записи таблицы. Иначе говоря, даже если вы использовали некоторую групповую команду вставки или модификации (например, APPEND FROM), тем не менее, модификация будет производиться по одной записи за раз чтобы дать возможность триггерам выполнить свои проверки.
  • Внутри тела триггера (внутри выражения или первой функции) произойдет автоматический переход в ту рабочую область и на ту запись, которые и вызвали срабатывание тела триггера. Однако если Вы используете в качестве выражения триггера несколько функций триггера (например, "Func1().AND.Func2()"), то во второй функции такого автоматического перехода уже не произойдет. Поэтому при завершении функции триггера необходимо особо проконтролировать возврат в ту рабочую область, в которой началось выполнение функции триггера.
  • По завершении вычисления выражения триггера Вы вернетесь в ту рабочую область, в которой была дана команда, вызвавшая срабатывание триггера.
  • Внутри тела триггера запрещено перемещать указатель записи в той рабочей области, которая вызвала срабатывание триггера. Этот запрет можно обойти, открыв ту же самую таблицу еще раз в другой рабочей области (USE MyTab IN 0 AGAIN ALIAS MyTab2)
  • Запрещен рекурсивный вызов триггера в пределах одной и той же таблицы. Т.е. если сработал, например, триггер на удаление, то Вы никаким способом не сможете внутри триггера на удаление удалить какие-либо еще записи из этой же таблицы (удалить "ветку" в древовидной структуре через триггер не получится). Хотя допустимо удалить записи из другой таблицы.
  • В принципе, функция триггера может вернуть абсолютно любое значение. Важно только чтобы выражение триггера возвращало именно логическое значение. Ну, например, если в качестве выражения триггера используется что-то вроде: "Func1() > Func2()", то главное, чтобы эти 2 функции возвращали значения, которые можно сравнить между собой, а какого именно типа уже не важно.
  • Следует помнить, что если внутри тела триггера произойдет ошибка, то выражение триггера автоматически вернет .F. и будет сообщение об ошибке 1539 (ошибка триггера), но никак не о той ошибке, которая произошла внутри тела триггера. Поэтому внутри тела триггера следует предусмотреть собственный обработчик ошибок, записывающий причину возможной ошибки в какой-либо объект. Например, внутри тела триггеров автоматически создающихся FoxPro (Referential Integrity) для этой цели создается глобальный массив gaErrors[n,12]. Т.е. из 12 столбцов, а количество строк зависит от количества ошибок.
  • Если Вы модифицируете данные в режиме буферизации, а сброс изменений в исходные таблицы осуществляется исключительно командой TABLEUPDATE(), то в случае возникновении ошибки триггера никакого сообщения об ошибке не появится. Просто команда TableUpdate() вернет .F. Чтобы уточнить причину отказа в сбросе буфера следует использовать функцию AERROR(). Примерно так:
    

    IF TableUpdate(.T.,.T.)=.F.       LOCAL laError(1)       =AERROR(laError)       DO CASE       CASE laError[1,1]=1539       * Триггер вернул .F. уточняю какой именно триггер             DO CASE             CASE laError[1,5] =1             * Ошибка триггера Insert             CASE laError[1,5] =2             * Ошибка триггера Update             CASE laError[1,5] =3             * Ошибка триггера Delete             ENDCASE       ENDCASE ENDIF

  • Внутри тела триггера значения полей текущей записи содержат данные после модификации. Чтобы получить значения тех же полей до модификации следует использовать функцию OldVal(). Следует иметь в виду, что если это триггер на вставку и создается действительно новая запись (а не восстановление ранее удаленной по RECALL), то OldVal() вернет значение NULL, даже если данное поле и не может принимать значение NULL. Опираясь на эту особенность, можно внутри тела триггера определить из какого именно типа триггера данная функция была вызвана примерно следующим способом:
    

    DO CASE CASE Deleted() * вызов из триггера на удаление CASE NVL(OldVal("Deleted()"),.T.) * вызов из триггера на вставку OTHERWISE * вызов из триггера на модификацию ENDCASE

    Такой анализ позволяет в некоторых случаях писать универсальный триггер (функцию - триггер) вне зависимости от того из какого типа триггера он был вызван без ввода дополнительных параметров.

    Кроме того, триггер UPDATE срабатывает при модификации любого поля таблицы. Если же тригер предназначен для контроля изменения только определенного поля таблицы, то разумно в самое начало триггера вставить проверку на факт изменения проверяемого поля:

    IF MyField=OldVal("MyField")       * Значение поля MyField не изменилось, нет смысла запускать триггер       RETURN .T. ENDIF

  Referential Integrity

  В простых случаях FoxPro может самостоятельно создать как выражение, так и функцию триггера. Для этой цели и служит пункт главного меню "DataBase", подпункт "Edit Referential Integrity".

  "Ссылочная целостность" предназначена для автоматической генерации выражения и функции триггера для пары связанных таблиц. Иначе говоря, она следит за тем, чтобы значение внешнего ключа дочерней таблицы всегда соответствовало значению ключевого поля родительской таблицы. Никакие другие поля в данном случае значения не имеют.

  Для указания построителю, какое поле считать ключевым, а какое внешним ключом, необходимо установить между двумя таблицами "постоянную связь". Далее вы выбираете один из 3 возможных типов отношений между этими двумя таблицами (для триггера на вставку только 2 варианта). Ну, какие именно варианты есть достаточно понятно.

  Update	Cascade	При изменении значения ключевого поля родительской таблицы изменить значение внешнего ключа во всех соответствующих записях подчиненной таблицы.
  	Restrict	Запрет на модификацию ключевого поля родительской таблицы, если существует хотя бы одна соответствующая ей запись в подчиненной таблице
  	Ignore	Не настраивать никаких отношений между таблицами. Модификация в одной таблице никак не влияет на модификацию в другой
  Delete	Cascade	При удалении записи в родительской таблицы удалить все соответствующие записи подчиненной таблицы.
  	Restrict	Запрет на удаление записи в родительской таблице, если существует хотя бы одна соответствующая ей не удаленная запись в подчиненной таблице
  	Ignore	Не настраивать никаких отношений между таблицами. Модификация в одной таблице никак не влияет на модификацию в другой
  Insert	Cascade	Не существует, поскольку данный тип взаимоотношений между двумя таблицами не имеет физического смысла
  	Restrict	Запрет на создание новой записи в подчиненной таблице, если в родительской таблице не существует записи с указанным значением ключевого поля.
  	Ignore	Не настраивать никаких отношений между таблицами. Модификация в одной таблице никак не влияет на модификацию в другой

  Подчеркну еще раз, что данные правила относятся исключительно к содержимому ключевого поля родительской таблицы и внешнего ключа дочерней.

  После того, как Вы выберите типы взаимоотношений между таблицами, произойдет следующее:

  • в хранимых процедурах базы данных будут созданы функции, обеспечивающие указанный тип взаимоотношений выбранных таблиц
  • в свойствах таблиц будут добавлены в выражения триггеров вызов соответствующих функций

  В принципе, по окончании создания триггеров "Referential Integrity" постоянную связь, послужившую основой для создания данной ссылочной целостности можно удалить. Это уже никак не скажется на факте существования созданных триггеров. Однако я не советовал бы этого делать по той причине, что в случае внесения изменений в "Referential Integrity" (пусть даже по отношению к другим таблицам) генератор "затрет" ранее созданные триггера.

  Генератор "Referential Integrity" несколько прямолинеен. Он действует по принципу: удалить все - создать заново. Поэтому, если постоянная связь была удалена, то триггера функции, созданные на ее основе, при очередной модификации "Referential Integrity" будут удалены, хотя останутся триггера выражения в свойствах таблицы. А это вызовет сообщение об ошибке при попытке вызвать несуществующие функции.

  Как правило, функции триггеров, созданных "Referential Integrity" получают имена вроде __RI_UPDATE_MyTab. Если теперь открыть хранимые процедуры на модификацию и посмотреть содержимое созданных функций, то первой реакцией будет немедленно это закрыть. Очень уж громоздко и неприглядно это все выглядит.

  Если же преодолеть первый испуг и попытаться разобраться в этих "играх нечеловеческого разума", то общая логика достаточно проста:

  • Если вызов триггера произошел в результате действий пользователя, а не как результат модификации данных в другом триггере (это отслеживается по значению системной переменной _triggerlevel), то делаются некоторые предварительные настройки
  • Делаются некоторые настройки среды окружения
  • Функция триггера обязательно окружается транзакцией на случай групповых (Cascade) модификаций данных.
  • Настраивается свой обработчик ошибок (RIError). Ошибки, возникшие внутри тела триггера, попадут в глобальный массив gaErrors[n,12]. Количество строк определяется количеством ошибок. Запоминать ошибки необходимо потому, что в случае возникновения ошибки в теле триггера выражение триггера вернет .F. и будет ошибка 1539, но никак не та, что привела к прерыванию триггера. Кроме того, массив gaErrors позволяет записать причину отказа в принятии данных изменений (т.е. если произошла логическая ошибка, для контроля которой данный триггер и был создан). В этом случае значение gaErros[1,1] = -1.
  • Связанная таблица (в которой надо сделать проверки или изменения) открывается еще раз в новой рабочей области (RIOpen). Причем организована специальная проверка, чтобы не открывать одну и ту же таблицу несколько раз. Причина повторного открытия в том, что внутри тела триггера недопустимо перемещать указатель записи в той рабочей области, которая вызвала срабатывание триггера.
  • Выполняются нужные проверки или действия. Причем каскадное удаление или обновление реализуются через функции общие для всех триггеров (RIDelete, RIUpdate)
  • Функция RIReUse "освобождает" повторно открытую таблицу. Т.е. устанавливает признак того, что данная копия таблицы уже не используется и ее можно использовать в другом триггере. Это сделано, чтобы повторно не открывать одну и ту же таблицу несколько раз внутри одной иерархии цепочки триггеров.
  • По окончании триггера среда возвращается в то состояние, в котором она была на момент начала выполнения триггера, закрывается транзакция, и закрываются все открытые внутри триггера таблицы (RIEnd)

  Вот собственно и все, что делается в этих триггерах. Несколько громоздко и избыточно, но ничего особого сложного.

  Однако даже в такой относительно простой вещи есть некоторые "подводные камни".

  • Настройка Referential Integrity связана с модификацией контейнера базы данных, поэтому требует единоличного (Exclusive) доступа к базе данных
  • При выполнении модификации базы данных под ногами не должен болтаться всякий мусор оставшийся от предыдущих модификаций. Т.е. непосредственно перед настройкой Referential Integrity необходимо выполнить очистку базы данных

  Если одно из этих условий не будет выполнено, то при вызове пункта главного меню "DataBase", подпункт "Edit Referential Integrity" Вы получите предупреждение. Это будет либо напоминание о том, что база данных не открыта в режиме Exclusive и изменения сохранены не будут (хотя состояние Referential Integrity посмотреть можно), либо настойчивое предложение выполнить очистку базы данных (в этом случае даже посмотреть Referential Integrity не удастся).

  Еще одна тонкость при использовании "Referential Integrity" заключается в том, что в случае модификации "Referential Integrity" FoxPro ищет, что именно надо заменить в выражении триггерра, опираясь именно на стандартные имена функций. При этом все то, что отличается от имен по умолчанию остается неизменным.

  Например, если до настройки "Referential Integrity" Вы уже написали в выражении триггера какую-либо свою функцию (MyFunc()), то Referential Integrity не удалит эту функцию, но добавит к ней свою. В результате выражение триггера примет примерно такой вид: "__RI_UPDATE_MyTab().AND.(MyFunc())"

  Стоит ли использовать Referential Integrity? А почему бы и нет. Следует только помнить о том, что триггера созданные при помощи Referential Integrity касаются только и исключительно поддержания ссылочной целостности между парой таблиц. Причем не всех возможных видов ссылочной целостности, а только определенных ее видов. Т.е. в больших проектах этих триггеров недостаточно. Придется дописывать еще что-то свое.

  Только не надо модифицировать те функции, которые были созданы автоматически при настройке Referential Integrity (несмотря на то, что очень хочется). Иначе при очередной модификации базы данных Вы можете с удивлением обнаружить, что триггеры не работают, как положено, поскольку все внесенные Вами изменения куда-то пропали.

  Когда и для чего использовать триггер

  О чем собственно речь? А речь о том, в каких случаях следует использовать именно триггер, а не что-нибудь другое.

  Основная задача триггера - это, прежде всего проверка допустимости уже сделанных изменений. Внесение изменений в теле триггера допустимо, но тут есть ряд ограничений.

  Если Вы читали эту статью с самого начала, то уже знаете, что триггер не контролирует изменения данных в буфере. Т.е. процесс формирования данных триггер не интересует. Он работает уже с предполагаемым результатом.

  Таким образом, при использовании триггера предполагается, что Вы уже полностью сформировали данные (по крайней мере, в таблице, вызвавшей срабатывание триггера) и хотите убедиться, что данные изменения допустимы, либо внести изменения в другие таблицы, опираясь на данные изменения.

  Например, если у Вас стоит задача создания журнала изменений (кто, когда и что именно изменил в базе данных), то нет смысла делать запись в журнал при редактировании буфера. Может пользователь и вообще не примет эти изменения. Но уж если пользователь захотел эти изменения записать, то вот тут-то и надо сделать запись в журнал. А в этот момент как раз и срабатывают триггера.

  Более спорный момент - это контроль уникальности данных. Достаточно подробно это описано в главе Индексы, раздел Контроль уникальности данных при помощи индекса.

  А вот для чего триггер точно не стоит использовать, так это для модификации той записи, изменение в которой и вызвало срабатывание триггера. Даже если опустить тот момент, что в FoxPro это просто невозможно, то все равно для этой цели лучше использовать Rule уровня записи.

  Правила (Rule)

  В FoxPro существует некоторая путаница с этим термином (впрочем, как и с большинством других терминов), вызванная не столько неясностью самого термина, сколько особенностью его использования.

  Правило - это выражение, значение которого вычисляется при наступлении определенного события. Это выражение должно вернуть обязательно логическое значение .T. или .F.

  Но все дело в том, что в качестве одного из аргументов этого выражения может стоять некоторая функция (или несколько функций). Вот эти-то функции, вызываемые из выражения правила, также называют "правило".

  Как правило, в большинстве случаев подразумевают именно функцию - правило.

  В FoxPro различают 2 вида правил:

  • Правило на поле текущей записи таблицы
  • Правило на запись таблицы

  Вычисление значения выражения - правила для поля текущей записи таблицы происходит в случае модификации соответствующего поля.

  Вычисление значения выражения - правила для записи таблицы происходит в случае модификации любого поля записи.

  Точнее, вычисление происходит при завершении модификации. Но момент завершения модификации зависит от самого способа модификации.

  Например, если Вы редактируете данные в Grid (Browse-окне), то правило для поля сработает при переходе на другое поле или запись или при попытке перейти на другой объект. А правило на запись сработает при попытке перехода на другую запись или на другой объект.

  Если используется объект формы (не Grid, например, TextBox или EditBox) для редактирования содержимого поля, на которое наложено правило, то при попытке выйти из этого объекта после его редактирования сначала срабатывает правило для соответствующего поля, затем все события объекта-формы (Valid, LostFocus) и затем правило уровня записи таблицы (если есть). Т.е. выполнение правила на запись выполняется при завершении модификации одного поля, даже если Вы и не делаете попытку перейти на другую запись.

  Таким образом, при редактировании поля через объект формы Вы никак не сможете перехватить выполнение правила событиями формы. Правило для поля будет выполнено в первую очередь. Конечно, если было редактирование.

  В случае же использования для модификации какой-либо команды (например, REPLACE) правила срабатывают сразу же на этой команде. При этом порядок срабатывания правил для полей определяется порядком следования полей в соответствующей команде, либо, если порядок следования полей не указан явно (например, APPEND BLANK), в порядке их физического расположения в таблице.

  Разумеется, правило на запись срабатывает только после обработки правил на поля текущей записи, если все они вернули .T. Более того, если одно из правил для поля вернуло .F., то выполнение команды модификации немедленно прерывается и не предпринимается даже попытки выполнить модификацию остальных полей.

  Правила вычисляются при любой модификации данных любым способом. Т.е. они работают и в буферизированных данных. Поэтому, если правило вернет .F., то немедленно будет отображено сообщение об ошибке 1582 (отказ в правиле - поля) или 1583 (отказ в правиле - записи). Вы можете написать собственное сообщение об ошибке в предусмотренном для этого окне Message в конструкторе таблиц. Это сообщение будет отображаться только в том случае, если соответствующее правило вернет .F.

  Если же Вы будете обрабатывать ошибку правила программно, используя функцию AERROR(), то при ошибках правила - поля текущей записи пятый столбец полученного массива будет содержать порядковый номер поля, в котором произошла ошибка вычисления правила.

  При программном добавлении правила через команду CREATE TABLE или ALTER TABLE подразумевается именно выражение - правило, но никак не функция. Для добавления правила в этих командах используется ключевое слово CHECK.

  Особенности использования правил (Rule)

  Функции правил следует хранить в хранимых процедурах, поскольку это действия, которые связаны напрямую с данными и не должны зависеть от приложения.

  При использовании функций правил следует учитывать некоторые особенности их использования в FoxPro. В дальнейшем, используя термин "правило", я буду подразумевать именно функцию - правило.

  • Правила всегда анализирует изменения сделанные только в одной записи таблицы. Иначе говоря, даже если вы использовали некоторую групповую команду вставки или модификации (например, APPEND FROM), тем не менее, модификация будет производиться по одной записи за раз чтобы дать возможность правилам выполнить свои проверки.
  • Внутри тела правила (внутри выражения или первой функции) произойдет автоматический переход в ту рабочую область и на ту запись, которые и вызвали срабатывание тела правила. Однако если Вы используете в качестве выражения правила несколько функций правила (например, "Func1().AND.Func2()"), то во второй функции такого автоматического перехода уже не произойдет. Поэтому при завершении функции правила необходимо особо проконтролировать возврат в ту рабочую область, в которой началось выполнение функции правила.
  • По завершении вычисления выражения правила Вы вернетесь в ту рабочую область, в которой была дана команда, вызвавшая срабатывание правила.
  • Внутри тела правила запрещено перемещать указатель записи в той рабочей области, которая вызвала срабатывание правила. Этот запрет можно обойти, открыв ту же самую таблицу еще раз в другой рабочей области (USE MyTab IN 0 AGAIN ALIAS MyTab2)
  • Внутри правила допустимо модифицировать поля той же записи, в которой Вы сейчас и выполняете проверку правил. Но я не рекомендовал бы делать это в правилах для поля, поскольку в этом случае велик риск "зацикливания". Ведь модификация поля тут же вызовет срабатывание правила для этого поля, а если внутри него опять выполняется его же модификация, то Вы можете получить бесконечное срабатывание правила на поле.
  • При модификации полей записи в правиле на запись повторное срабатывание правила на запись НЕ происходит. Т.е. даже если внутри тела правила для записи Вы модифицируете поле, которое имеет свое правило, то зацикливания не произойдет. Просто будет выполнено еще раз правило для измененного поля. Поэтому, если Вам необходимо внутри правила выполнить модификацию каких-то полей этой же записи, то их следует выполнить в правиле на запись
  • Сообщение об ошибке правила будет отображено немедленно, как только выражение правила вернет .F. При этом все прочие правила в той же записи выполнены уже не будут.
  • При удалении записи правила не срабатывают. Однако они срабатывают при создании новой записи или восстановлении ранее удаленной (RECALL)
  • Внутри тела правила значения полей текущей записи содержат данные после модификации. Чтобы получить значения тех же полей до модификации следует использовать функцию OldVal() даже если таблица не была буферезирована. Следует иметь в виду, что если создается действительно новая запись (а не восстановление ранее удаленной по RECALL), то OldVal() вернет значение NULL, даже если данное поле и не может принимать значение NULL. Таким образом, можно выполнить проверку на факт реального изменения значения поля:
    

    IF MyField=OldVal("MyField")       * Значение поля MyField не изменилось, нет выполнять проверку       RETURN .T. ENDIF

  Когда и для чего использовать правило

  О чем собственно речь? А речь о том, в каких случаях следует использовать именно правило, а не что-нибудь другое.

  Основная задача правила - это, прежде всего проверка допустимости изменений именно в процессе их внесения. Внесение изменений в теле правила допустимо, но тут есть ряд ограничений.

  Если Вы читали эту статью с самого начала, то уже знаете, что правило контролирует изменения данных даже в буфере. Т.е. правило следит за процессом формирования данных. В отличие от триггера, который контролирует именно результат.

  Таким образом, при использовании правила предполагается, что процесс формирования данных еще не завершен. Фактически правило определяет, какие именно данные можно ввести в данное поле, а какие - нет.

  Например, Вы можете написать правило для вычисления контрольной суммы ИНН (Идентификационный Номер Налогоплательщика). Если пользователь ошибся при вводе ИНН, то правило на данное поле тут же ему сообщит, что введено некорректное значение и не даст выйти из поля пока не будет введено корректное значение (и закрыть форму не даст!). Другой вопрос, насколько оправдан такой жесткий контроль. Но это уже зависит от логики Вашей программы.

  Можно, конечно, в случае некорректного ввода ввести корректное значение, но тут есть опасность "зацикливания". Бесконечного вызова правила на изменяемое поле. Поэтому лучше этого не делать.

  Пожалуй, наиболее удобным, является использование правил для фиксации времени изменений. Т.е. если в Вашей таблице введено специальное поле, например, LastModify типа DateTime, то Вы можете создать правило на запись, в котором и сделать присвоение:

  REPLACE LastModify WITH DateTime()

  Т.е. при любой модификации записи (кроме удаления) в поле LastModify будет записано дата и время этой модификации. А если добавить еще и поле, содержащее логин пользователя, то Вы получите информацию о том, кто и когда последний раз изменил данную запись. Разумеется, дата и время будут взяты с клиентской машины, где произошло изменение.

  Крайне нежелательно изнутри тела правила ссылаться вовне базы данных. Если такая необходимость все-таки существует, то следует всерьез задуматься о необходимости реализации логики именно через правила. Возможно, разумнее вынести нужную проверку на уровень приложения, а не базы данных.

  Также неразумно внутри тела правила делать ожидание реакции пользователя. Правило должно выполняться без каких-либо дополнительных действий со стороны пользователя. Опять же, если необходима реакция со стороны пользователя, то желательно вынести данную процедуру на уровень приложения

  Значение по умолчанию (Default)

  В FoxPro существует некоторая путаница с этим термином (впрочем, как и с большинством других терминов), вызванная не столько неясностью самого термина, сколько особенностью его использования.

  Значение по умолчанию - это выражение, значение которого вычисляется при наступлении определенного события. Это выражение должно вернуть значение того типа данных, что и тип данных поля для которого это значение и указывается. Впрочем, иногда это правило сознательно нарушают. Но об этом чуть ниже.

  Однако в качестве одного из аргументов этого выражения может стоять некоторая функция (или несколько функций). Вот эти-то функции, вызываемые из выражения значения по умолчанию, также называют "значение по умолчанию".

  ---

  Вычисление значения по умолчанию происходит только в момент создания новой записи, если значение соответствующего поля не указано явно.

  ---

  Этот момент требует пояснения, поскольку именно с ним связано большинство недоразумений

  Если запись уже существует, то, разумеется, ни о каких значениях по умолчанию не может быть и речи, поскольку данные уже введены во все без исключения поля текущей записи. FoxPro просто не умеет по-другому, поскольку выделяет физическое место на диске под все поля записи сразу в момент ее создания. Ну, пожалуй, кроме полей типа Memo и General, но это отдельный разговор, да и то, выделение места все равно происходит.

  Значит, значения по умолчанию вычисляются только в момент создания новой записи, причем обязательно до того, как новая запись будет создана физически.

  Однако если Вы в команде создания новой записи явно укажете значение поля, для которого есть значение по умолчанию, то в этом случае вычисление значения по умолчанию не произойдет. Будет использовано то значение, которое указано явно в команде создания новой записи.

  Ну, например, для поля MyField таблицы MyTab Вы написали некоторое выражение по умолчанию. Если для создания новой записи Вы используете команду вида:

  INSERT INTO MyTab (MyField) VALUES ("Новое значение")

  То в новой записи в качестве значения поля MyField будет указано именно "Новое значение", а не то выражение, которое Вы указали как значение по умолчанию.

  С другой стороны, если для создания новой записи Вы используете команду APPEN BLANK или ту же команду INSERT-SQL, но, не указав в списке полей поле MyField, то в этом случае, поскольку FoxPro явно не указали, какое именно значение следует присвоить полю MyField, будет использовано значение по умолчанию.

  Более того, следует иметь в виду, что значение по умолчанию будет использовано и при создании новой записи в буферизированных таблицах.

  Вычисление правила для поля таблицы произойдет после формирования значения по умолчанию. Что, в общем-то, и логично: чтобы проверить правильность введенного значения это значение сначала необходимо сформировать.

  Особенности использования значения по умолчанию

  Функции значений по умолчанию следует хранить в хранимых процедурах, поскольку это действия, которые связаны напрямую с данными и не должны зависеть от приложения.

  При использовании функций значений по умолчанию следует учитывать некоторые особенности их использования в FoxPro. В дальнейшем, используя термин "значение по умолчанию", я буду подразумевать именно функцию - значения по умолчанию.

  • Значение по умолчанию всегда формирует значение только в одной записи таблицы. Иначе говоря, даже если вы использовали некоторую групповую команду вставки (например, APPEND FROM), тем не менее, вставка будет производиться по одной записи за раз чтобы дать возможность вычислить значение по умолчанию для каждой вставляемой записи.
  • Внутри тела значения по умолчанию (внутри выражения или первой функции) произойдет автоматический переход в ту рабочую область и на ту запись, которые и вызвали срабатывание тела значения по умолчанию. Однако если Вы используете в качестве выражения значения по умолчанию несколько функций (например, "Func1()+Func2()"), то во второй функции такого автоматического перехода уже не произойдет. Поэтому при завершении функции значения по умолчанию необходимо особо проконтролировать возврат в ту рабочую область, в которой началось выполнение функции.
  • По завершении вычисления выражения значения по умолчанию Вы вернетесь в ту рабочую область, в которой была дана команда, вызвавшая срабатывание этого выражения.
  • Внутри тела функции значения по умолчанию запрещено перемещать указатель записи в той рабочей области, которая вызвала срабатывание функции. Этот запрет можно обойти, открыв ту же самую таблицу еще раз в другой рабочей области (USE MyTab IN 0 AGAIN ALIAS MyTab2)
  • Внутри тела функции значения по умолчанию не имеет смысла ссылаться на поля создаваемой записи той же таблицы, поскольку в общем случае не известно какие значения эти поля будут иметь в момент формирования значения по умолчанию отдельного поля. Т.е. сами поля уже будут существовать, но вот будут ли они содержать какое-либо значимое значение или же все еще будут оставаться пустыми заранее предсказать невозможно.
  • Если в результате расчета функция значения по умолчанию вернет значение, которое не может быть использовано в качестве значения данного поля, то Вы получите сообщение об ошибке, и новая запись создана не будет. Иногда это свойство используют сознательно, чтобы прервать создание новой записи в определенных ситуациях.
  • Если в качестве значения по умолчанию в реквизитах поля таблицы ничего не указано, то FoxPro использует в качестве значений по умолчанию пустые значения (для строк - пробелы, для чисел - ноль и т.п.), но ни в коем случае не значение NULL. Если Вы хотите использовать значение NULL, как значение по умолчанию, то его следует прописать явно как значение по умолчанию. Не забыв, разумеется, указать признак допустимости использования значения NULL для данного поля.

  Когда и для чего использовать значение по умолчанию

  О чем собственно речь? А речь о том, в каких случаях следует использовать именно значение по умолчанию, а не что-нибудь другое.

  Основная задача значения по умолчанию - это сформировать некоторое значение автоматически, когда в случае отсутствия явного указания значения Вас не устраивает пустое значение поля.

  Ну, например, генерация нового значения суррогатного ключа. Как правило, это всегда относительно сложная функция (конечно, если Вы не используете поле типа Integer (AutoIncrement), появившееся в 8 версии FoxPro). Эту функцию записывают в хранимых процедурах, а в свойствах таблицу указывают в качестве значения по умолчанию имя этой функции.

  Кстати, использование функции для генерации нового значения суррогатного ключа удобно еще тем, что ее вызов можно добавить в значение по умолчанию ключевого поля Local View (кнопка Properties на закладке Fields в дезайнере Local View). В этом случае новое значение ключевого поля будет создаваться сразу при создании новой записи в Local View, а при сбросе изменений в исходную таблицу в качестве значения ключевого поля будет использовано значение, вычисленное в Local View.

  Если в процессе вычисления нового значения суррогатного ключа произошла ошибка или по каким-то причинам новое значение сформировать нельзя, то надо как-то сообщить внешнему приложению, что сформировать новое значение суррогатного ключа не удалось.

  Самым простым решением в данном случае является присвоение значения NULL при том условии, что данное поле не имеет признака допустимости использования значения NULL. Т.е. сформировать значение, которое заведомо будет отвергнуто в качестве допустимого значения. Это и будет сигналом внешнему приложению, что при создании нового значения суррогатного ключа произошла какая-то ошибка.

  А вот для чего не следует использовать значение по умолчанию, так это для формирования внешнего ключа, т.е. ссылки на родительскую таблицу. Проблема в том, что в этом случае Вам придется опираться на текущее положение указателя записи в родительской таблице. А это не всегда соответствует нужной записи родительской таблице. Поэтому переложите контроль ссылочной целостности на триггеры, которые, в общем-то, для этого и предназначены. А значение внешнего ключа всегда присваивайте явно в самом приложении при создании новых записей подчиненной таблицы.

  Дизайн полей таблицы

  В этом разделе я опишу те свойства полей таблицы, о которых либо вообще не упомянул в других разделах, либо упомянул буквально парой слов. Дело в том, что эти свойства предназначены не столько для контроля корректности ввода данных и целостности базы данных, сколько для удобства построения пользовательского интерфейса. Речь идет о следующих свойствах полей таблицы:

  • Format
  • Input Mask
  • Caption
  • Display library
  • Display class

  Главное, что следует понять об этих свойствах - это то, что данные свойства предлагают соответствующие настройки по умолчанию при отображении данных полей в пользовательском приложении. Однако они могут быть перекрыты соответствующими настройками в самом приложении.

  Например, если Вы укажете для какого-либо поля значение свойства Format="T" (отсечение ведущих пробелов), то это отнюдь не значит, что Вы в принципе не сможете ввести в данное поле значение, имеющее ведущие пробелы.

  Да, ведущие пробелы будут отсечены, если Вы будете редактировать данное поле в Browse-окне или же использовать прямые команды модификации данных (REPLACE, INSERT-SQL и т.п.)

  Однако если Вы будете редактировать данное поле через объект формы (TextBox, Grid), то настройки свойства FORMAT используемых объектов перекроют настройки Format поля таблицы.

  Таким образом, эти настройки определяют некоторые реквизиты полей таблицы, если явно не указаны другие значения для этих же реквизитов

  В общем-то, назначение каждого из этих реквизитов ясно уже из их названия, но все-таки вкратце опишу их назначение:

  Format - определяет формат ввода и вывода данных. Принимаемые значения можно посмотреть в описании к Format property

  Input Mask - определяет способ ввода и вывода данных. Принимаемые значения можно посмотреть в описании к InputMask property

  По большому счету и Format, и Input Mask предназначены для одного и того же. Просто Format действует на итоговое введенное значение (т.е. значение надо сначала ввести и только потом оно будет модифицировано в соответствии с настройками Format), а Input Mask на процесс ввода

  Caption - название поля. Это будет либо заголовок поля в Browse-окне, либо Header.Caption в Grid (если Вы создадите Grid путем "перетаскивания" таблицы из DataEnvironment формы), либо Label.Caption слева от поля (если Вы создадите TextBox путем "перетаскивания" поля из DataEnvironment формы).

  Лично мне эта настройка только мешает. Поскольку в процессе отладки я достаточно часто открываю таблицы в Browse-окне для уточнения тех или иных действий. И если вместо имени поля я вижу значение Caption, то приходится прилагать дополнительные усилия, чтобы уточнить о каком именно поле идет речь. Впрочем, это дело личных предпочтений и способов отладки приложения.

  Display class - в каком классе следует отобразить содержимое данного поля

  Display library - из какой библиотеки классов следует взять класс, указанный в свойстве Display class. Если он не указан, то предполагается базовая библиотека классов.

  Вообще-то, какая именно реакция будет при "перетаскивании" полей из DataEnvironment формы определяется в настройках FoxPro: пункт главного меню Tools, подпункт Options, закладка Field Mapping

  На этой закладке представлен список классов, которые будут использованы по умолчанию для отображения содержимого тех или иных типов данных, а под этим списком - набор переключателей, определяющих, что именно будет перенесено в объекты формы при "перетаскивании" поля из DataEnvironment

  Как видите можно отключить копирование настроек Format, Input Mask, Caption при "перетаскивании" поля из DataEnvironment. Т.е. фактически отменить действие этих настроек в объектах формы.

  Надо ли использовать эти настройки? А почему бы и нет! Надо только помнить, что в отличие от всех прочих настроек полей таблиц изменения в этих настройках не приведут к изменению соответствующих настроек в ранее созданных объектах формы. Поэтому после их модификации придется пройтись по всем ранее созданным классам, формам и отчетам для приведения ранее сделанных настроек в соответствие с новыми.

  Директивы компилятора

  Директивы компилятора - это те команды, которые начинаются с символа "#". Наиболее известные из них это:

  #DEFINE #INCLUDE

  Однако есть и другие аналогичные команды.

  Из-за недопонимания того, что собственно делают эти команды, возникает масса недоразумений. Самое главное, что следует понять об этих командах, это то, что они не работают в уже готовом (откомпилированном) приложении. Их цель - это указание компилятору, что именно надо подставить в данном месте именно в процессе компиляции. Собственно, поэтому они и называются "директивы компилятора"

  Рассмотрим простейший код:

  #DEFINE MY_CONST 1 ?MY_CONST

  Что собственно делает этот код. И самое главное, когда он это делает. А происходит следующее:

  • На этапе компиляции фрагмента приложения, как только компилятор встречает директиву #DEFINE, он запоминает, что вместо слова MY_CONST необходимо подставить число 1
  • Если при дальнейшей компиляции компилятор встречает слово MY_CONST, он вместо него подставляет число 1 и продолжает компиляцию.

  Т.е. фактически происходит замена слова MY_CONST на цифру 1, начиная с директивы #DEFINE и "ниже".

  А "ниже" - это где?

  Если речь идет о файле PRG, то тут все ясно: "ниже" - это до конца файла. И именно файла, а не процедуры. Т.е. если файл PRG содержит несколько процедур, то действие директивы #DEFINE будет распространяться на все строки файла PRG физически расположенные "ниже" нее вне зависимости от любых других команд (исключая другую директиву #UNDEFINE).

  Но если речь идет о форме, и команда #DEFINE была дана в одном из методов формы, то предсказать на какие еще события и методы она подействует заранее невозможно. Поэтому, если необходимо, чтобы директива #DEFINE подействовала на все без исключения события и методы формы (или класса), эти директивы собирают в один общий файл, называемый "файл заголовка" или "заголовочный файл". И далее подключают этот заголовочный файл через специальный пункт меню Form (или Class), подпункт Include File.

  Заголовочный файл - это обычный текстовый файл, имеющий расширение из одной буквы "h"

  Следует иметь в виду, что директива компилятора действует только и исключительно в пределах одного объекта проекта. Чаще всего, под объектом проекта понимается конкретный файл. Хотя в отношении библиотеки классов, под объектом проекта следует понимать отдельный класс этой библиотеки классов.

  Это значит, что если Вы подключили заголовочный файл в каком-либо классе, то указанные там директивы будут действовать только в данном классе, а вот на объекты, созданные на основе данного класса они уже распространяться не будут! Поскольку это уже другие объекты проекта.

  Из этого следует довольно неудобный вывод. Если Вы хотите, чтобы директивы компилятора, указанные в одном заголовочном файле действовали во всех объектах Вашего проекта, то его необходимо будет подключать во всех объектах. Т.е. невозможно будет сделать подключение в каком-нибудь стартовом модуле, с тем, чтобы он распространился на весь проект. Не получится.

  В принципе, до некоторой степени эту рутинную работу по подключению заголовочного файла можно автоматизировать. Для этой цели служит системная переменная _INCLUDE или (что, то же самое) настройка через пункт системного меню Tools, подпункт Options, закладка File Locations, строка "Default Include File"

  Т.е. если Вы дадите команду

  _INCLUDE="C:\MyDir\MyHeadFile.h"

  Или укажите этот файл в опциях, то при создании новых формы и классов указанный файл автоматически будет подключаться к этим формам и классам. Но эта настройка никак не повлияет на ранее созданные формы и классы. Более того, воспользовавшись пунктом меню Form (или Class), подпункт Include File Вы можете заменить подставленный заголовочный файл на другой или вовсе его удалить.

  В этом пункте меню можно указать только один заголовочный файл. Поэтому, если Вам надо указать несколько заголовочных файлов, то придется создать еще один файл, который и объединит в себе несколько других. Его содержание будет примерно следующим:

  #INCLUDE C:\MyDir\MyHeadFile1.h #INCLUDE C:\MyDir\MyHeadFile2.h #INCLUDE C:\MyDir\MyHeadFile3.h

  Проблема заключается в том, что на этапе компиляции факт отсутствия заголовочного файла не вызовет сообщения об ошибке, поскольку все слова, которые следовало бы заменить будут восприняты компилятором как переменные памяти. Ошибка возникнет только на этапе исполнения готового приложения.

  Обращаю внимание еще раз. Директивы компилятора действуют только в момент компиляции. В готовом приложении они не работают. Это значит, что нет необходимости поставлять заголовочный файл клиенту или включать этот файл внутрь приложения. Все что можно взять из этого файла проект возьмет в момент компиляции.

  Разумеется, если Вы собираетесь компилировать какие-то фрагменты кода "на лету" в готовом приложении, то тогда заголовочный файл может пригодиться.

  Но если директивы компилятора так неудобно использовать, то почему же их вообще продолжают использовать?

  У меня нет достаточно убедительного ответа на этот вопрос. Поэтому ограничусь тем, что директивы компилятора - это еще один инструмент, который дает Вам FoxPro. А использовать его или нет, решайте сами.

 

Автор публикации

не в сети 26 лет

Владимир Максимов

Комментарии: 0Публикации: 65Регистрация: 02-09-2000

(далее…)

]]> https://foxclub.ru/knowledgebase/kalkulyator/ Fri, 28 Aug 2020 11:32:29 +0000

Калькулятор

Поле с калькулятором

Автор: Перминов Игорь

Автор публикации

не в сети 25 лет

Перминов Игорь

Комментарии: 0Публикации: 5Регистрация: 16-09-2001

(далее…)

]]> https://foxclub.ru/knowledgebase/perevod-fio-v-ukazannyj-padezh-padeg-dll-s-www-delphikingdom-ru/ Tue, 22 Nov 2022 07:08:56 +0000

Перевод ФИО в указанный падеж – Padeg.DLL с www.DelphiKingdom.ru

Использование указанной библиотеки в VFP

Возможности (кратко):

1. Перевод ФИО (именительный падеж) в указанный падеж по номеру падежа и полу.
2. Перевод строки содержащей ФИО в указанный падеж по номеру падежа и полу.
3. Перевод строки из любого падежа в именительный без указания пола.
4. Возможно автоматическое определение пола.
5. Работа со словарем исключений.

Более подробно смотрите вот здесь здесь
Вот текст на VFP:

    
 *     _______________________________________Петров А.О.__  
 *    |  Преобразование ФИО v2.1				            |  
 *    |  Адаптация всех функций под Visual FoxPRO	        |  
 *    |  Программа FoxPRO.prg				                |  
 *    |____________________________________________________|  
 *    |  Дата изменения: 13.04.05,   написана  11.02.04    |  
 *    |____________________________________________________|  
 * 13.04.05 Исправил багис с полом  
    
  #DEFINE MAX_FIO_LEN 100  
  PRIVATE f,l,s  
  m.f='Петрова'  
  m.l='Мария'  
  m.s='Ивановна'  
  m.sex='ж'  
    
  DECLARE integer GetFIOPadeg IN padeg.dll;  
  	string pFirstName,;  
  	string pLastName,;  
  	string pMiddleName,;  
  	integer bSex,;  
  	integer nPadeg,;  
  	string @pResult,;  
  	integer @nLen  
  	  
  DECLARE integer GetFIOPadegAS IN padeg.dll;  
  	string pFirstName,;  
  	string plastName,;  
  	string pMiddleName,;  
  	integer nPadeg,;  
  	string @pResult,;  
  	integer @nLen  
    
  DECLARE integer GetFIOPadegFS IN padeg.dll;  
  	string pFIO,;  
  	integer bSex,;  
  	integer nPadeg,;  
  	string @pResult,;  
  	integer @nLen  
    
  DECLARE integer GetFIOPadegFSAS IN padeg.dll;  
  	string pFIO,;  
  	integer nPadeg,;  
  	string @pResult,;  
  	integer @nLen  
  	  
  DECLARE integer GetIFPadeg IN padeg.dll;  
  	string pFirstName,;  
  	string pLastName,;  
  	integer bSex,;  
  	integer nPadeg,;  
  	string @pResult,;  
  	integer @nLen  
    
  DECLARE integer GetIFPadegFS IN padeg.dll;  
  	string pIF,;  
  	integer bSex,;  
  	integer nPadeg,;  
  	string @pResult,;  
  	integer @nLen  
  	  
  DECLARE integer GetNominativePadeg IN padeg.dll;  
  	string pFIO,;  
  	string @pResult,;  
  	integer @nLen  
    
  DECLARE integer UpdateExceptions IN padeg.dll;  
    
 *  ============================== КОД ЗДЕСЬ =================================  
  PRIVATE _l  
    
  CLEAR  
  FOR m.x=1 TO 6  
  	m._l=MAX_FIO_LEN  
  	m.str=SPACE(m._l)  
  	=getfiopadeg(m.f,m.l,m.s,IIF(m.sex='м',1,0),m.x,@str,@_l)  
  	? 'Номер падежа = ',x,' ФИО = ',SUBSTR(str,1,m._l)  
  ENDFOR  
    
  ? 'GetFIO			= ',getfio(m.f,m.l,m.s,ASC(m.sex),2)  
  ? 'GetFIOFromStr		= ',getfiofromstr(f+' '+l+' '+s,ASC(m.sex),2)  
  ? 'GetIF			= ',getif(m.f,m.l,ASC(m.sex),2)  
  ? 'GetIFFromStr		= ',getiffromstr(m.f+' '+m.l,ASC(m.sex),2)  
  ? 'GetNominative		= ',getnominative(getfio(m.f,m.l,m.s,ASC(m.sex),2))  
    
  ? 'UpdateExceptions = ',UpdateExceptions()#0  
 *  ==========================================================================  
    
  FUNCTION GetFIO  
  LPARAMETERS pFirstName, plastName, pMiddleName, bSex, nPadeg  
  PRIVATE result, l  
  m.l=MAX_FIO_LEN  
  m.result=REPLICATE(CHR(0),m.l)  
  m.bsex=IIF(m.sex='м',1,0)  
  =getfiopadeg(pFirstName, plastName, pMiddleName, bSex, nPadeg, @result, @l)  
  RETURN SUBSTR(m.result,1,m.l)  
    
  FUNCTION GetFIOFromStr  
  LPARAMETERS pFIO, bSex, nPadeg  
  PRIVATE result, l  
  m.l=MAX_FIO_LEN  
  m.result=REPLICATE(CHR(0),m.l)  
  m.bsex=IIF(m.sex='м',1,0)  
  =getFIOPadegFS(pFIO, bSex, nPadeg, @result, @l)  
  RETURN SUBSTR(m.result,1,m.l)  
    
  FUNCTION GetIF  
  LPARAMETERS plastName, pFirstName, bSex, nPadeg  
  PRIVATE result, l  
  m.l=MAX_FIO_LEN  
  m.result=REPLICATE(CHR(0),m.l)  
  m.bsex=IIF(m.sex='м',1,0)  
  =GetIFpadeg(plastName, pFirstName, bSex, nPadeg, @result, @l)  
  RETURN SUBSTR(m.result,1,m.l)  
    
  FUNCTION GetIFFromStr  
  LPARAMETERS pIF, bSex, nPadeg  
  PRIVATE result, l  
  m.l=MAX_FIO_LEN  
  m.result=REPLICATE(CHR(0),m.l)  
  m.bsex=IIF(m.sex='м',1,0)  
  =getIFPadegFS(pIF, bSex, nPadeg, @result, @l)  
  RETURN SUBSTR(m.result,1,m.l)  
    
  FUNCTION GetNominative  
  LPARAMETERS pFIO  
  PRIVATE result, l  
  m.l=MAX_FIO_LEN  
  m.result=REPLICATE(CHR(0),m.l)  
  m.bsex=IIF(m.sex='м',1,0)  
  =getnominativepadeg(pFIO, @result, @l)  
  RETURN SUBSTR(m.result,1,m.l)  

http://www.delphikingdom.com

Автор: Петров Андрей

Автор публикации

не в сети 24 года

Петров Андрей

Комментарии: 0Публикации: 14Регистрация: 17-04-2002

(далее…)

]]> https://foxclub.ru/knowledgebase/klass-clsprinter/ Fri, 28 Aug 2020 11:32:29 +0000

Класс clsPrinter

Класс для вывода на принтер текста и графики. На основе WIN32API функций. Хорошо подойдет для вывода на печать аналога "белых" форм. Версия 1.1 Добавлена возможность рисования на формах.

Это первая версия класса. Пока вывод может идти только на принтер установленный в Винде по умолчанию. Список функций для графики ограничен. Описание приложено в файле "описание класса.doc". Класс будет постепенно дорабатываться. Думаю над реализацией предварительного просмотра. (При отладке класса очень помог драйвер моего принтера Canon i250, который имеет встроенную возможность предпросмотра любых документов, отправляемых на печать!) Про новые возможности читать в Описании класса!

Автор: Syberex

Автор публикации

не в сети 22 года

Syberex

Комментарии: 0Публикации: 3Регистрация: 19-01-2004

(далее…)

]]> https://foxclub.ru/knowledgebase/odnostoronnyaya-sinhronizacziya-katalogov-i-zapusk-prilozheniya/ Fri, 28 Aug 2020 11:32:29 +0000

Односторонняя синхронизация каталогов и запуск приложения

Назначение : Клонирование каталогов и запуск файл-серверного приложения на клиентских машинах.

Очередной велосипед c оригинальным подходом к решению задачи односторонней синхронизации каталогов
Писалось на VFP9, но должно работать под любой версией. Рекомендации по использованию :
1) Заполните таблицу клонируемых каталогов START.DBF
Поле cSource – исходный каталог для клонирования. Например C:WORKMySourceFolder
Поле cTarget – целевой каталог-клон. Например D:BACKUP MyTargetFolder
(если пусто, то будет создан подкаталог в каталоге запуска программы с названием аналогичным исходному подкаталогу)
Например при запуске C:STARTstart.exe, будет создан каталог-клон C:STARTMySourceFolder)
2) Настройки копируемой и запускаемой программы хранятся в автосоздаваемом файле START.INI
[Скопировать и запустить программу]
Копируемый исполняемый файл=
Целевой каталог для запуска=
P.S. Будьте особенно внимательны с полем Start.cTarget
Синхронизация каталогов – односторонняя и Вы можете потерять файлы.
(будут удалены все файлы и каталоги, не существующие в Start.cSource)

Автор: Радченко Виктор Вадимович

Автор публикации

не в сети 7 месяцев

urfin

Комментарии: 0Публикации: 2Регистрация: 17-08-2004

(далее…)

]]> https://foxclub.ru/knowledgebase/kak-sdelat-exe-fajl/ Mon, 21 Nov 2022 09:04:49 +0000

Как сделать exe файл в Visual FoxPro

Как сделать exe файл

Содержание
1.Как скомпилировать EXE
1.1 Технология компиляции
1.2 Сопутствующие файлы
2.Что нужно включить в EXE

1.Как скомпилировать EXE
1.1 Технология компиляции
Эпиграф:
"Ай да Пушкин, ай да..."
А.С.Пушкин

Технология компиляции EXE в Visual FoxPro довольно проста. Мы не будем отвлекаться на такие экстремальные методы как ввод в командном окне команд типа BUILD PROJECT, BUILD APP, BUILD EXE, а ограничимся удобствами, предоставляемыми графическим интерфейсом VFP.
Итак, для создания EXE нам понадобится нажать в менеджере проекта кнопку "BUILD...". Выбрав в открывшемся диалоговом окне опцию Win32 executable / COM server (EXE) давим OK. ВСЕ. 😉
"Как все?"-- спросите Вы -- "А указать под каким именем сохранить файл?"
Согласен... Надо указать обязательно, иначе все насмарку.
Кстати, думаю, что нелишним будет напомнить о том, что для того чтобы процесс компиляции прошел успешно необходимо менеджер проекта заполнить файлами Вашей программы, один из которых обязательно должен быть как main (в менеджере проектов имя этого файла выделено жирным шрифтом), т.е. файл который будет исполнен первым. По умолчанию как main-программа устанавливается первый включенный в проект программный файл (*.prg) или файл формы (*.scx).
Вобщем все довольно просто! Просто..?
Теперь о грустном...

1.2 Сопутствующие файлы
Эпиграф:
"... а включаешь - не работает!"
М.Жванецкий

Все перепетии этапа компиляции приложения уже позади, и Вы, гордый от сознания собственного превосходства над простыми смертными, семимильными шагами несетесь к заказчику, устанавливаете свое приложение, попутно расписывая ему(заказчику) как теперь у него все будет круто, и подсчитывая в уме какой винт нужно купить, что бы осталось на пиво, вдруг натыкаетесь на то, что Ваша супер-пупер прога не фурычит. Грустно. Обидно. А главное не будет у Вас нового вичестера или Чего Вы Там Себе запланировали купить с гонорара...

Все дело в том, что скомпилированный нами .exe не есть самодостаточным исполняемым файлом. Для нормальной работы этому псевдо-исполняемому файлу необходимы библиотеки поддержки (.dll). Я не буду сильно вдаваться в рассуждения об этом, а просто приведу названия файлов, необходимых для нормальной работы приложения.
В принципе до 6-й версии включительно для переноса приложения на клиентскую машину можно использовать штатный Setup Wizard, который самостоятельно все прописывает, а в последующих --InstallShield (или другой инсталятор).
Все приведенные ниже файлы есть минимально-необходимый набор файлов для различных версий VFP (по материалам ):

VFP 8.0		msvcr70.dll, vfp8r.dll, vfp8rrus.dll, gdiplus.dll
VFP 7.0		msvcr70.dll, vfp7r.dll, vfp7rrus.dll
VFP 6.0		vfp6r.dll, vfp6renu.dll , vfp6rrus.dll
VFP 5.0		vfpole50.dll, vfpodbc.dll, vfp500.dll, vfp5rus.dll, Foxpro.int

Указанный выше набор библиотек необходимо разместить в каталоге программы или в системном каталоге Windows. Для различных версий Windows эти каталоги различны:

Win9x, WinMe			c:\Windows\SYSTEM
WinNT,Win2000,WinXP		c:\Windows\SYSTEM32

2.Что нужно включить в EXE
Эпиграф:
"To include or not to include?"
пьяный электрик

Все изложенное ниже является личным мнением автора, которым Вы можете пренебречь. Но делая по-своему помните: биться головой в бетонную стену гораздо больнее, чем воспользоваться проломом сделаным до Вас.
По умолчанию в готовый .exe включаются все файлы, необходимые для работы приложения - программы, формы, меню, библиотеки, классы и т.д. кроме файлов баз данных и таблиц (такие файлы можно узнать по перечеркнутому кружочку возле имени файла в менеджере проекта). Все включенные в .exe файлы после компиляции станут немодифицируемыми (доступными только для чтения). Понятно, что файлы таблиц (*.dbf) включать не стоит поскольку они подвергаются постоянным операциям изменения-дополнения данных, но иногда бывают случаи когда необходимо скрыть какие-либо статическиеданные от пользователя, но обеспечить доступ к ним самой программы. Лучшего места чем "внутренности" exe-шника не придумать.
Так же довольно нередкая ситуация, когда нужно "находу", или временно, изменить файл отчета, или когда имеем целый набор отчетов, уникальных для каждого пользователя. Ну в самом деле представьте: десять операторов и каждому по десять отчетов и все это в *.exe. единственным выходом в этой ситуации будет исключить эти отчеты из конечного файла и поставлять их вместе с приложением.
В любом случае решение о том какие файлы исключить, а какие оставить за Вами.

Все, пиво кончилось, надо идти в гастроном.

С уважением, Владислав Кулак

Автор публикации

не в сети 6 месяцев

admin

Комментарии: 1Публикации: 123Регистрация: 10-12-2000

(далее…)

]]> https://foxclub.ru/knowledgebase/dlinnye-chisla/ Fri, 28 Aug 2020 11:32:29 +0000

Длинные числа

Арифметические действия с большими числами в строковом представлении

Длинные числами

Сначала написал этот класс, потом решил поискать на форуме,
и действительно, данна тема обсуждалась в 2001 (далеком году)
http://forum.foxclub.ru/read.php?f=5&i=9992&t=9992
поэтому критике или советам буду только рад !!!

Автор: Владимир Кныр

Автор публикации

не в сети 22 года

Vladimir_Knyr

Комментарии: 0Публикации: 11Регистрация: 15-12-2003

(далее…)

]]> https://foxclub.ru/knowledgebase/server-pechati-dlya-ms-dos-prilozhenij/ Fri, 28 Aug 2020 11:32:26 +0000

Сервер печати для MS-DOS-приложений

Программа сканирует определенную пользователем папку на предмет наличия файлов для печати и при нахождении оных отправляет их в Printer Spool Windows

Сервер печати для MS-DOS-приложений

Программа печати текстовых файлов с 866-ой кодировкой стандарта ASCII, хотя может работать с любой другой.
Предназначена для тех, кто имеет лазерный принтер (чаще всего с USB-портом), но все еще работающих с программами MS-DOS.
Работает в двух режимах: ручном и автоматическом.
Если с ручным режимом все понятно, т.е. выбрали файл, отправили на печать;
то для автоматического нужно выбрать папку, в которую Вы будете копировать или Ваша программа будет формировать файлы.
Программа будет сканировать заданную папку по таймауту и отправлять встретившиеся файлы (только по заданной маске) на печать, затем их удаляет (в Корзину Windows(R) или безвозвратно) или игнорирует при следующем сканировании.
Основное удобство программы состоит в том, что Вам не нужно изменять Ваши программы или их настройки.
Если при обработке текста в начале строки встретится код конца страницы, то строка будет либо удалена, либо заменена пустой строкой.
Также можно передать параметром файл для печати. Тогда программа просто отправит файл на печать и закончит свою работу.
Можно применять один из двух методов обработки файлов: построчный и "быстрый". Оба выдают порой непредсказуемые результаты. Какой более приемлем к Вашим условиям, решать Вам.
При "быстром" режиме обработки файлов доступна технология "Drag&Drop". Для этогo нужно перенести нужный Вам файл из Проводника Windows(R) в картинку-логотип программы.

Автор: Foxtrot

Автор публикации

не в сети 3 года

Foxtrot

Комментарии: 0Публикации: 6Регистрация: 25-04-2003

(далее…)

]]> https://foxclub.ru/knowledgebase/browser/ Fri, 28 Aug 2020 11:32:26 +0000

Browser

Программа для просмотра таблиц

Browser

Программа для просмотра таблиц. Функциональные возможности:
1. сортировка по любому полю
2. передача параметра (базу или таблицу) с командной строки
3. технология "Drag & Drop". Для этогo нужно перенести нужный Вам файл из Проводника Windows(R) в картинку-логотип программы
4. исправление контейнеров DBC
5. индексирование, упаковка таблиц
6. просмотр структуры таблиц
7. экспорт данных в текстовой файл
8. "сжатие" - удаление пустых записей
9. "статистика" - подсчет записей, помеченных как удаленные
10. установка, удаление кодовой страницы таблиц

PS: VFP6SP5

Автор: Foxtrot

Автор публикации

не в сети 3 года

Foxtrot

Комментарии: 0Публикации: 6Регистрация: 25-04-2003

(далее…)

]]> https://foxclub.ru/knowledgebase/otkryt-rar-arhiv-pozhalujsta/ Fri, 28 Aug 2020 11:32:25 +0000

Открыть RAR архив? — Пожалуйста!

Как розархивировать rar-файл с помощью UnRar.dll?

Открыть RAR архив? -- Пожалуйста!

Чтобы открыть Rar архив, конечно же, можно использовать Rar.exe. Но есть ли у вас на него права?
Нет? Тогда используйте UnRar.dll. Распространяется библиотека свободно...
В файле UsingUnrarDll.zip пример использования этой dll.(VFP7.0)

P.S. Для работы с указателями использую Netlib.vcx(clsheap) с этого сайта.

Автор: lnu

Автор публикации

не в сети 22 года

lnu

Комментарии: 0Публикации: 1Регистрация: 04-11-2003

(далее…)

]]> https://foxclub.ru/knowledgebase/prostoj-generator-otchetov-v-eksel-10000-zapisej-za-2-minuty/ Fri, 28 Aug 2020 11:32:29 +0000

Простой генератор отчетов в Ексель, 10000 записей за 2 минуты.

Простой генератор отчетов в Ексель, 10000 записей за 2 минуты. Построение ведется на таблице BBF, должна быть как минимум одна группировка, хотя бы по искусственному полю. Многострочные подвалы и данные. Реализован в виде класса.

Автор: Сергей

Автор публикации

не в сети 25 лет

s28091973

Комментарии: 0Публикации: 1Регистрация: 05-04-2001

(далее…)

]]> https://foxclub.ru/knowledgebase/proverka-korrektnosti-scheta-iban/ Fri, 28 Aug 2020 11:32:29 +0000

Проверка корректности счета IBAN

Проверка корректности счета IBAN

По мотивам ссылки http://www.apacs.org.uk/IBAN/iban/Iban_check.html Те перевод кода Java в код VFP.

Автор: Андрей

Автор публикации

не в сети 24 года

Петров Андрей

Комментарии: 0Публикации: 14Регистрация: 17-04-2002

(далее…)

]]> https://foxclub.ru/knowledgebase/shahmatka-s-ispolzovaniem-ctgrid/ Fri, 28 Aug 2020 11:32:29 +0000

Шахматка с использованием ctGrid

При выводе отчета в виде шахматки некоторые трудности вызывает неопределенное число колонок в отчете.При таком решении этого нет. Сколько будет колонок,столько и напечатает.

Шахматка с использованием ctGrid

Как обычно,для шахматки исходная таблица данных должна содержать три поля:
1 - Строки (Тип "С")
2 - Колонки (Тип "С")
3 - Данные (Тип "N")
Таблица должна быть отсортирована по первой и второй колонкам (Order by 1,2)
ctGrid позволяет редактировать данные и ширину колонок.Как откорректируешь,
так и напечатает.Управляя множеством параметров ctGrid,получаем желаемый вид на
екране и в печати.
Есс-но ctGrid.ocx должон быть зарегистрирован
Прошу не рассматривать это решение как готовое на все случаи жизни, а только как возможный путь решения задачи шахматки и поетому сильно не пинать.
В примере запустите main.prg

Автор: Анатолий

Автор публикации

не в сети 22 года

Aptex

Комментарии: 0Публикации: 2Регистрация: 07-11-2003

(далее…)

]]> https://foxclub.ru/knowledgebase/postroenie-diagramm-ispolzuya-winapi-na-chistom-vfp-ole-treeview/ Fri, 28 Aug 2020 11:32:29 +0000

Построение диаграмм используя WinApi на чистом VFP + Ole TreeView.

Построение диаграмм используя WinApi на чистом VFP + Ole TreeView. Класс служит только как пример по работе с графическим Api. Он недоработан.

Построение диаграмм используя WinApi на чистом VFP + Ole TreeView.

Пример содержит
1) Форму (ее и запускайте)
2) Библиотеку для работы с графиками (исходный код там)
3) Charts.h - константы
4) Charts.PRG - Определение функций (declare)
5) d_curs.dbf - таблица из которой берутся данные для графиков. Взята из решений этого сайта. Решение Curs_Currency (помоему)

Как загнать данные. В классе есть ListBox задаете ему RowSource причем обязательно 2 столбца (X,Y) Если нужно 2 графика то задаете 4 столбца соответственно.

Насчет функциональности.

1) Выбирать прямоугольную область.
2) Ставить метки на графиках.
3) Отображается положение мыши на графике в координатах графика.
4) Можно делать ZOOM нажатием клавиши Enter или привязать другое действие на выбор области.
5) Печатать график или область.

Вроде все. Пишите если что не работает или не до конца понятно...

Автор: Петров Андрей

Автор публикации

не в сети 24 года

Петров Андрей

Комментарии: 0Публикации: 14Регистрация: 17-04-2002

(далее…)

]]> https://foxclub.ru/knowledgebase/franczuzskaya-vojna/ Fri, 28 Aug 2020 11:32:29 +0000

Французская война

Просто игрушка - римейк когда-то популярной во Франции игры типа шашек. Мне интересно было набросать не столько сам движок игры, сколько поэкспериментировать с концепцией самообучающегося игрового автомата. Чуть подробнее в readme1st.txt

Автор: Вадим Ермолаев

Автор публикации

не в сети 23 года

Вадим Ермолаев

Комментарии: 0Публикации: 1Регистрация: 16-01-2003

(далее…)

]]> https://foxclub.ru/knowledgebase/glavnyj-startovyj-fajl-proekta/ Sun, 20 Nov 2022 06:33:51 +0000

Главный (стартовый) файл проекта

Главный (стартовый) файл проекта
Как выделить (пометить, обозначить) главный файл
Какой тип файла сделать главным
Содержимое главного файла
Идеология построения приложения
Точка останова. Read Events
Аварийное прекращение приложения. Настройка ON ShutDown
Надо ли давать команду QUIT для закрытия приложения
Как скрыть главное окно FoxPro (SCREEN)
Как скрыть системные ToolBar
Настройка среды FoxPro
Использование глобального объекта goAPP
Передача параметров в EXE
Заключение

Главный (стартовый) файл проекта

Конечной целью разработки приложения является создание одного (или нескольких) EXE-файла. Но это то, что должно получиться в результате. А на этапе его создания мы имеем большую кучу самых разных файлов (формы, запросы, программные модули, классы и т.п.).

Возникает закономерный вопрос, какой файл из этой кучи в готовом файле EXE должен запускаться первым? А как этот файл выделить (пометить, обозначить)?

Вот этот самый файл, который в готовом файле EXE должен запускаться первым и называется главным (стартовым) файлом. О нем и пойдет речь в данном разделе. Для простоты, далее я буду называть этот файл просто главным файлом.

Как выделить (пометить, обозначить) главный файл

На этапе создания готового EXE-файла все наши файлы включаются в общий файл проекта (файлы с расширением PJX и PJT). Файл проекта - это средство как-то упорядочить ту кучу файлов, из которой впоследствии будет собран готовый EXE-файл, а, кроме того, это инструмент собственно сборки EXE-файла.

Так вот, в FoxPro главный файл может быть обозначен только и исключительно внутри файла-проекта. Не существует никаких особых ключевых слов или синтаксических конструкций для его выделения в программном коде.

По умолчанию, первый добавленный в проект файл автоматически становиться главным (если это возможно). Такой файл выделяется в проекте полужирным шрифтом.

Если Вас не устраивает такой автоматический выбор, то Вы можете в любой момент указать в качестве главного файла нужный Вам файл. Для этого щелкните внутри проекта правой клавишей мыши по нужному файлу и в появившемся меню выберите пункт "Set Main". Выбранный файл будет выделен полужирным шрифтом, а файл, ранее обозначенный как главный файл, сбросит свое выделение и станет обычным (не главным) файлом.

В пределах одного файла - проекта может быть только один главный файл.  В принципе, допустимо вообще не указывать главный файл. Однако из такого проекта невозможно будет создать готового EXE-файла. На этапе компиляции возникнет ошибка с сообщением о том, что Вы не указали главный файл проекта.

Какой тип файла сделать главным

Главным файлом проекта может быть

1. Программный файл (PRG)
2. Форма (SCX)
3. Меню

Ну, по сути, файл меню - это и есть программный файл. Так исторически сложилось. Точнее, разработчики FoxPro пока "не доросли" до коренной переделки идеологии построения меню, как они это сделали с формами, а в 9 версии и с отчетами.

Дело в том, что хотя на этапе проектирования меню - это файлы с расширением MNT, MNX, но после создания макета меню необходимо запустить его генерацию. Результатом генерации меню становятся файлы MPR, MPX. Вот эти-то файлы и есть обычные файлы PRG и FXP, только с измененным расширением.

Следовательно, по сути, выбор стоит между программным файлом и файлом формы.

Так вот, всегда указывайте в качестве главного файла программный файл. Более того, это должен быть именно файл PRG и ничто другое.

Причин этому множество. По мере дальнейшего обсуждения Вы увидите, что очень многое из того, что надо сделать в главном файле очень трудно, а иногда и просто невозможно реализовать в форме.

В принципе, в зависимости от конкретной задачи, часть операций в главном файле, которые будут описаны далее, можно и не выполнять. А оставшиеся операции можно "втиснуть" в форму. Но я не советовал бы этого делать. Программы имеют "привычку" разрастаться. А использование в качестве главного файла формы сильно сужает возможность модификации.

Содержимое главного файла

Ответить на вопрос, что же должно быть в главном файле очень сложно. Сложно не потому, что там надо писать какие-то уж очень сложные коды, а именно потому, что невозможно однозначно сказать, что нужно делать, а что нет. Очень многое зависит от конкретной задачи и личных предпочтений программиста.

Исходя из так называемого "здравого смысла" в главном файле необходимо выполнить все те операции, которые выполняются при загрузке программы. А также все те операции, которые выполняются при выгрузке программы, поскольку главный файл обычно бывает и последним (завершающим) файлом проекта. Т.е. обычно "вход" в программу и "выход" из нее - это один и тот же файл.

Попробую просто перечислить некоторые действия, которые следует выполнить в главном файле, если Вы пишите "стандартное" приложение.

1. Сделать настройки среды FoxPro для корректной работы программы
2. Предложить ввести пользователю пароль для входа в программу и проконтролировать корректность ввода
3. Выполнить инициализацию служебных библиотек, пользовательских настроек
4. Инициализировать управляющие модули приложения
5. Организовать "точку останова" для ожидания реакции пользователя
6. Выполнить восстановление настройки среды FoxPro

Это далеко не полный перечень всего того, что может (или должно) быть выполнено в главном файле. Более того, что-то из перечисленного может или вообще не выполняться или выполняться не в главном файле.

В связи с этим, в дальнейшем, я буду описывать не столько то, что должно быть собственно в главном файле, сколько то, что должно быть выполнено при старте приложения. А уж где именно и каким способом Вы это реализуете в Вашем приложении целиком зависит от Вас. Для простоты, я буду предполагать, что все описанные действия выполняются непосредственно в главном файле.

Идеология построения приложения

Как уже упоминалось ранее, содержимое главного файла проекта зависит в первую очередь от конкретной задачи. Например, если целью Вашего проекта является создание COM-сервера, то в главном файле вообще ничего не будет. Однако, в некоторой степени, содержимое главного файла зависит от принятой идеологии построения приложения. Здесь, под фразой "идеология приложения" я имею в виду одну из следующих реализаций:

1. На базе основного окна FoxPro (SCREEN)
2. На базе "As Top-Level" форм

Построение приложения на базе основного окна FoxPro предполагает, что в конечном приложении пользователь будет видеть это основное окно (разумеется, со своим меню и ToolBar) и все формы будут открываться внутри этого основного окна. Построение приложения на базе "As Top-Level" форм предполагает, что основное окно FoxPro вообще не будет отображаться в конечном приложении. А в качестве основного окна будет выступать созданное программистом окно со свойством ShowWindow = 2 - "As Top-Level form" Разработчики FoxPro предполагали, что основной идеологией построения приложений будет построение приложений на базе основного окна FoxPro. На это указывает хотя бы тот факт, что значение по умолчанию для свойства формы ShowWindow = 0 - In Screen (Default). Кроме того, есть еще ряд проблем, которые возникнут по мере реализации приложения на базе "As Top-Level" форм, связанные именно с отсутствием основного окна FoxPro. Как следствие, построение приложения на базе "As Top-Level" форм требует повышенной бдительности от программиста и несколько сложнее в реализации. Не то, чтобы эти сложности были непреодолимы или требовали какого-то сложного программирования, но зачем создавать себе лишние проблемы, когда без них можно обойтись? Дальнейшее описание содержимого главного файла будет строиться исходя из предположения, что создается приложение на базе основного окна FoxPro. Впрочем, даже если Вы строите приложение на базе "As Top-Level" форм содержимое главного файла останется практически таким же. Отличия будут в некоторых деталях. По мере описания я буду указывать на эти детали.

Точка останова. Read Events

При создании приложения основным управляющим элементом всего приложения, как правило, является главное меню. Это значит, что в главной программе необходимо сделать вызов этого меню

  DO MainMenu.mpr  

Синтаксически все абсолютно правильно. Более того, когда Вы будете запускать главный файл, на этапе разработки приложения все будет работать нормально. Но вот после того, как Вы создадите готовый EXE-файл и запустите его, то вместо ожидаемого приложения Вы увидите "странный" эффект: Окно FoxPro мелькнет на экране и тут же закроется. Причиной такого "странного" поведения является то, что Вы "забыли" указать FoxPro, в каком месте ему надо остановиться и подождать реакции пользователя. На этапе отладки такой "точкой останова" является ранее открытая среда FoxPro. Но в готовом файле EXE до него никакой среды FoxPro открыто не было! Чтобы создать "точку останова" надо дать специальную команду

 READ EVENTS

Т.е. содержимое главного файла будет выглядеть примерно так:

DO MainMenu.mpr
READ EVENTS

Если Вы строите приложение на базе "As Top-Level" форм, то вместо меню, основным управляющим элементом является Ваша главная форма. И содержимое главного файла будет выглядеть примерно так:

DO FORM MainForm.scx READ EVENTS

Вот теперь, в готовом файле EXE, когда программа дойдет до команды READ EVENTS, то произойдет остановка в ожидании реакции пользователя. Буквально, фраза "READ EVENTS" переводится как "чтение событий". Т.е. вместо "точки останова" это следовало бы назвать как-то вроде "обнаружение и выполнение событий, инициализированных пользователем". Это более точно выражает смысл и задачи данной команды. Но уж больно длинно получается. Поэтому, хотя "точка останова" - это не совсем корректный термин, но в дальнейшем я буду использовать именно его. Имейте в виду, что одновременно, во всем приложении может быть активна только одна команда READ EVENTS. Вызов другой команды READ EVENTS не приведет к ошибке, но эта команда будет просто проигнорирована. Чтобы отменить действие команды READ EVENTS надо дать специальную команду

CLEAR EVENTS

По этой команде будет отменено действие команды READ EVENTS и выполнение перейдет на команду, следующую за командой READ EVENTS. Если затем не будет подано еще одной команды READ EVENTS, то главный файл будет выполнен до конца и приложение автоматически закроется. Если команда READ EVENTS была дана в главном файле, то CLEAR EVENTS сработает как команда RETURN TO MASTER. Т.е. выполнение той процедуры или метода, где собственно и была дана команда CLEAR EVENTS, будет прервана на этой команде и все что стоит ниже этой команды просто никогда не будет выполнено. Так, где же давать команду CLEAR EVENTS? Разумеется, в специальном пункте меню "Выход". Если Вы создаете приложение на базе "As Top-Level" форм, то команду CLEAR EVENTS надо давать в событии UNLOAD Вашей главной формы. Итого, получается примерно такая логика:

1. Запускается главный файл
2. Активизируется основное меню (или основная форма)
3. По команде READ EVENTS организуется "точка останова" для ожидания действий пользователя
4. Команда CLEAR EVENTS прекращает действие команды READ EVNETS и передает управление в главный файл на команду, непосредственно следующую за командой READ EVENTS.
5. Завершается выполнение главного файла, что приводит к закрытию приложения FoxPro.

Аварийное прекращение приложения. Настройка ON ShutDown

До сих пор, речь шла о "штатном" завершении. Т.е. когда пользователь дисциплинированно использует все положенные пункты меню для выхода из приложения. Но ведь пользователь может закрыть приложение, нажав на крестик в правом верхнем углу основного окна FoxPro или, например, через окно "Диспетчер задач Windows" (Ctrl+Shift+Esc). Если все оставить так, как было описано до сих пор, то после такой попытки пользователя выскочит сообщение об ошибке

Quote: Cann`t quit Visual FoxPro

Или, в старших версиях FoxPro без сокращений

Quote: Cannot quit Visual FoxPro

Причина такого сообщения в том, что осталась активной команда READ EVENTS. Именно она и вызывает такое сообщение об ошибке в описанной ситуации. Чтобы перехватить описанные события закрытия приложения используется специальная настройка ON SHUTDOWN В принципе, можно просто написать

ON SHUTDOWN CLEAR EVENTS

Но обычно перед закрытием приложения надо выполнить ряд предварительных операций. Каких? Это уже зависит от Вашего приложения. Ну, например, можно спросить пользователя о том, действительно ли он хочет выйти из приложения или это у него "рука дрогнула". В общем случае одной команды недостаточно. Нужен вызов процедуры. Например:

ON SHUTDOWN DO MyExitProcedure

И вот уже в этой процедуре MyExitProcedure и надо дать команду CLEAR EVENTS. Причем эта команда должна быть самой последней, поскольку в момент ее выполнения управление будет передано на команду, следующую за командой READ EVENTS в главном файле и все то, что написано после CLEAR EVENTS в процедуре MyExitProcedure просто не будет выполнено.

Для универсальности, желательно в пункте меню "Выход", вместо простой команды CLEAR EVENTS также сделать вызов этой процедуры. Тогда у Вас будет один общий код, обрабатывающий выход из Вашего приложения при любых ситуациях.

Поскольку выход из приложения может быть выполнен в любой момент и из любого места, то процедура MyExitProcedure должна быть доступна также в любой момент и из любого места. Проще всего расположить это процедуру непосредственно в главном файле (в конце). Поскольку главный файл - это "корневой" файл, из которого осуществляется вызов любых других файлов, то расположенная таким образом процедура будет "видна" и доступна из любого места Вашего приложения.

Если Вы делаете приложение на базе "As Top-Level" форм, то вызов этой процедуры надо организовать еще и в событии QueryUnload главной формы. Точнее так, в событии QueryUnload главной формы надо перенаправить вызов на собственно метод, организующий закрытие всего приложения.

В результате, содержимое главного файла приобретает следующий вид

ON SHUTDOWN DO MyExitProcedure DO MainMenu.mpr READ EVENTS PROCEDURE MyExitProcedure * Необходимые действия по "штатному" закрытию приложения CLEAR EVENTS RETURN

Надо ли давать команду QUIT для закрытия приложения

В FoxPro существует команда QUIT, которая приводит к немедленному закрытию приложения FoxPro. Правда эта команда также перехватывается настройкой ON SHUTDOWN и также по ней невозможно выйти из приложения, если активна команда READ EVENTS.

Возникает резонный вопрос, а нужна ли эта команда, если приложение FoxPro и так само закроется, когда завершится выполнение главного файла?

Ну, лично я считаю, что это команда для ленивых программистов. Т.е. для тех, кому лень отслеживать все открытые в приложении объекты. Как я уже упоминал ранее, "штатное" закрытие приложения (содержимое процедуры MyExitProcedure) в общем случае - это очень не тривиальная задача.

Ну, например, пользователь редактировал какие-либо данные в форме и нажал на крестик или пункт меню "Выход". Следует ли организовать "штатное" закрытие формы или просто "прихлопнуть" все открытые процессы?

По "правильному" логично спросить пользователя желает ли он сохранить внесенные изменения. Т.е. организовать "штатное" закрытие всех открытых объектов. А команда QUIT просто "прихлопнет" все открытые объекты без каких-либо дополнительных вопросов и все!

Есть и более тонкие моменты. Т.е. по хорошему, в процедуре MyExitProcedure надо организовать "штатное" закрытие всех открытых объектов и после команды READ EVENTS (где собственно и предполагается давать команду QUIT) вообще не должно остаться ничего такого, что следовало бы закрывать именно командой QUIT. Если все-таки что-то осталось, то это явная недоработка разработчика. И эта недоработка может очень сильно "аукнуться" в готовом приложении. Без команды QUIT Вы отловите эту проблему еще на стадии отладки приложения.

Кроме того, использование команды QUIT может осложнить отладку. Что, каждый раз после запуска главного файла заново открывать среду FoxPro? Впрочем, как это обойти, чуть ниже.

Итого, я не рекомендовал бы использовать команду QUIT.

Как скрыть главное окно FoxPro (SCREEN)

В большинстве случаев, вне зависимости от того в какой идеологии Вы разрабатываете свое приложение при загрузке среды FoxPro желательно скрыть главное окно FoxPro (SCREEN). Если Вы разрабатываете приложение в основном окне FoxPro, то потом его можно будет отобразить. Ну, а если приложение на базе "As Top-Level" форм, то отображение его и не нужно. Можно первой же командой в главном файле дать команду

_SCREEN.Visible = .F.

Окно FoxPro действительно скроется. Однако перед этим успеет все-таки "мелькнуть". Не хорошо. Чтобы подавить открытие главного окна следует использовать файл конфигурации Config.fpw. Это обычный текстовый файл. В нем должна быть строчка:

SCREEN=OFF

Более подробно о файле конфигурации рассказано в других разделах. Данная статья посвящена только главному файлу. Чтобы снова отобразить главное окно FoxPro (SCREEN) следует дать команду

_SCREEN.Visible = .T.

Если главное окно FoxPro (SCREEN) и до этой команды было отображено, то от этой команды хуже не будет.

Как скрыть системные ToolBar

Когда Вы запускаете свое приложение в режиме отладки, то системное меню заменяется Вашим меню. Но вот системный ToolBar остается "висеть", как ни в чем не бывало. Строго говоря, на системный ToolBar можно вообще не обращать внимания. Дело в том, что информация о том, какие именно системные ToolBar открыты и где именно они расположены, хранится в так называемом "ресурсном файле". По умолчанию, это файл FoxUser.dbf и связанный с ним файл FoxUser.fpt. Разумеется, Вы не потащите пользователю этот ресурсный файл. Как следствие, на машине клиента системные ToolBar вообще не появятся. Просто потому, что там не будет ресурсного файла с машины разработчика. Однако если на этапе отладки Вам все-таки необходимо скрыть системные ToolBar, то это можно сделать набором команд

HIDE WINDOW

Имя того или иного ToolBar можно посмотреть в заголовке самого ToolBar (если он не "приклеен" к меню) или через пункт меню View, подпункт ToolBars Например, скрыть стандартную панель можно командой

HIDE WINDOW "Standard"

Снова активизировать стандартную панель можно командой

SHOW WINDOW "Standard"

Проверить тот факт, что та или иная панель в настоящий момент активна можно используя команду WEXIST()

IF WEXIST("Standard") = .T. HIDE WINDOW "Standard" ENDIF

Таким образом, если Вам очень хочется скрыть системные ToolBar в режиме отладки, то несложно написать простые процедуры их закрытия в начале главного файла и восстановления после команды CLEAR EVENTS. Или же использовать класс, поставляемый с FoxPro. MODIFY CLASS _systoolbars OF (Home()+"FFC_app.vcx") Но, повторюсь, особого смысла в готовом приложении это не имеет. Поскольку там их и так не будет.

Настройка среды FoxPro

Ранее я вскользь уже упомянул тот факт, что просто запустить среду FoxPro недостаточно. Надо сделать некоторые предварительные настройки. Хотя бы настройку ON SHUTDOWN.

Дело в том, что среда FoxPro по умолчанию настроена таким образом, чтобы облегчить создание новых и модификацию старых приложений. Т.е. она настроена для удобства разработчика. Но в готовом приложении такая настройка среды FoxPro не просто некорректна. Она может оказаться недопустимой!

Вообще-то, настроек среды FoxPro много. Даже очень много. Однако на практике, для корректной работы готового приложения следует уточнить только несколько настроек. Самое большее -два ... три десятка.

Часть настроек среды FoxPro можно увидеть через пункт меню Tools, подпункт Options. А чтобы получить эти настройки в виде кодов нажмите и удерживайте клавишу "Shift" и левой кнопкой мыши нажмите на кнопку "Ok". В командное окно будет выведены все текущие настройки формы Options. В версии VFP9 список настроек будет выведен в окно Output окна Debugger.

Вы можете просто скопировать полученный список настроек и вставить в главный файл. Разумеется, предварительно просмотрев, что именно из них действительно нужно для успешной работы Вашего приложения.

Программно можно получить тот же список текущих настроек среды FoxPro, используя команду DISPLAY STATUS

Сложность в том, что на этапе отладки приложения все-таки нужны несколько другие настройки, чем в готовом приложении.

Например, на этапе отладки хорошо бы иметь возможность прервать выполнение какого-либо процесса по нажатию клавиши "Esc", но в готовом приложении этого допускать ни в коем случае нельзя. Это регулирует настройка SET ESCAPE.

Т.е. получается, что необходимо как-то отличать, в каком режиме было запущено приложение. В режиме отладки или как готовый файл EXE.

Есть несколько вариантов определения режимов работы. Самый простой - это посмотреть значение свойства

_VFP.StartMode

Если это свойство имеет значение 0, то мы находимся в режиме отладки. Т.е. получается что-то вроде:

* Общие настройки вне зависимости от режима работы IF _VFP.StartMode = 0 * Настройки только для режима отладки ELSE * Настройки только для готового приложения ENDIF

Есть и еще одна проблема настроек. Дело в том, что при открытии Private DataSession часть настроек, связанных с работой с данными сбрасываются в значения по умолчанию. Полный список таких настроек Вы можете посмотреть в описании к команде "SET DataSession". Причем для некоторых настроек эти самые значения по умолчанию отличаются в зависимости от того, в какой DataSession мы находимся.

Т.е. получается, что недостаточно просто один раз сделать настройки в главном файле. Нужно еще повторить часть настроек в каждой Private DataSession.

Следовательно, выполнение настроек среды FoxPro надо вынести либо в отдельную процедуру, либо оформить как метод класса. Если как метод класса, то либо как метод некоей базовой формы, на основе которой будут созданы все формы Вашего проекта, либо как метод класса Custom, экземпляр которого будет "бросаться" на нужные формы.

Наконец, еще одна проблема настроек. По завершении работы приложения надо вернуть настройки в то состояние, в котором они были на момент запуска приложения.

На первый взгляд, это кажется абсолютно бессмысленным требованием. Но не надо забывать, что мы отлаживаем наше приложение. Это значит, что есть часть настроек, которые просто обязаны отличаться в зависимости от того, просто мы отлаживаем какую-то форму (процедуру) или запустили приложение в режиме отладки, начиная с главного файла.

Например, при отладке триггеров хорошо бы видеть записи помеченные как удаленные. Но в готовом приложении, даже при запуске в режиме отладки, нам видеть эти записи не надо. Это регулирует настройка SET DELETED

Да и в любом случае желательно всегда следовать принципу: намусорил, убери за собой. Для программирования это особенно важно во всех смыслах.

Таким образом, в общем случае, работа с настройками выглядит примерно так:

1. Проверяем текущее состояние настройки
2. Если текущее состояние настройки отличается от нужного нам значения в данном режиме работы в данном месте, то сохраняем старое значение настройки и устанавливаем новое
3. По окончании работы восстанавливаем измененные настройки

Из этой логики следует, что использовать процедуры в принципе можно, но очень уж неудобно. Нужны две отдельные процедуры для установки и для восстановления настроек. А, кроме того, нужно где-то хранить старые настройки. Более удобным кажется использование классов. Создаются два метода одного и того же класса (возможно больше, ведь для Private DataSession надо установить только часть настроек). А для хранения старых значений настроек можно использовать свойства (Properties) класса. Тогда остается уточнить, использовать ли класс Custom или класс на базе Form? По большому счету - это абсолютно одинаковые варианты. Следует только помнить, что методы класса Custom можно запустить не ранее события Init этого класса. Но в любом случае методы собственно формы или любых ее объектов еще не существуют на момент выполнения события BeforOpenTables в DataEnvironment формы. Т.е. автоматическое открытие таблиц, включенных в DataEnvironment формы, произойдет с использованием настроек по умолчанию. Но в большинстве случаев, это не столь уж и принципиально. Почему? Это отдельный вопрос, выходящий за рамки данной статьи. Просто примите к сведению, что выполнение настроек в INIT-формы в большинстве случаев вполне уместно и не будет "слишком поздно". Возвращаясь к содержимому нашего главного файла, получаем, что его содержимое уже выглядит примерно так:

* Подключаю библиотеку классов, содержащую ряд полезных классов общего назначения LOCAL loSetting, llIsClass IF UPPER("MyClass.VCX ALIAS MyClass") $ UPPER(SET("ClassLib")) llIsClass = .T. ELSE llIsClass = .F. SET CLASSLIB TO MyClass ADDITIVE ENDIF * Класс, устанавливающий глобальные настройки среды (находится в MyClass.VCX) loSetting = CREATEOBJECT("Setting") ON SHUTDOWN DO MyExitProcedure PUSH MENU _MSYSMENU DO MainMenu.mpr _SCREEN.Visible = .T. READ EVENTS ********* Восстановление исходных настроек POP MENU _MSYSMENU ON SHUTDOWN IF m.llIsClass=.F. RELEASE CLASSLIB MyClass ENDIF ******** Процедура "аварийного" выхода из программы PROCEDURE MyExitProcedure * Необходимые действия по "штатному" закрытию приложения CLEAR EVENTS RETURN

Здесь я предполагаю, что в библиотеке классов MyClass.VCX есть класс "Setting" в событии Init, которого происходит установка нужных настроек, а в событии Destroy восстановление исходных настроек. Т.е. удаление переменной m.loSetting означает автоматическое восстановление исходных настроек. Еще использованы дополнительные команды PUSH MENU и POP MENU, которые сохраняют и восстанавливают системное меню FoxPro. Обратите внимание на то, что переменные объявляются как LOCAL. Дело в том, что если не объявить переменные, то по умолчанию они получат область видимости PRIVATE. А для переменных главного файла это равнозначно объявлению их как PUBLIC, поскольку они будут видны во всех вызванных формах и процедурах. Еще один тонкий момент заключается в том, что команды, записанные после команды READ EVENTS, будут выполнены только после подачи команды CLEAR EVENTS. Т.е. все то, что обозначено, как "Восстановление исходных настроек" будет выполнено непосредственно перед закрытием приложения. Как видите, главный файл начинает разрастаться. С этим надо что-то делать. Чем больше листинг программы (код одного метода или процедуры), тем сложнее такой код отлаживать и модифицировать. 

Использование глобального объекта goAPP

До сих пор, я описал лишь часть того, что в принципе должно бы быть в главном файле. Фактически, описан самый минимум, без которого сложно написать полноценное приложение. В принципе, можно оставить все "как есть". Если проект не очень большой и не предполагается его активное развитие, то того, что уже описано вполне хватит. Однако по мере развития проекта одного файла PRG для управления загрузкой и выгрузкой проекта оказывается недостаточно. "Недостаточно" не в смысле "мало", а в смысле "не удобно" Дело в том, что в большом проекте необходим целый набор различных процедур и функций, которые должны запускаться как при старте приложения, так и при его завершении. Вот некоторые из них:

1. Контроль повторного запуска приложения на одном компьютере
2. Контроль логина и пароля пользователя
3. Чтение и запись настроек среды FoxPro и приложения из внешних хранилищ (реестр, ini-файл и т.п.)

Это, еще не считая ряда специфических процедур, которые необходимо запустить при старте в конкретном проекте в зависимости от конкретной задачи. Да еще добавьте к этому все то, что уже было описано ранее. Разумеется, все это можно реализовать в идеологии процедурного программирования. Т.е. написав нужное количество процедур и раскидав их по процедурным файлам. Или создать один большой процедурный файл. Но у такого подхода есть ряд недостатков. Например:

1. Один большой процедурный файл с множеством процедур или много процедурных файлов очень трудно модифицировать. Просто тяжело найти нужное место и понять, как модификация в этом месте повлияет на все остальные процедуры.
2. Невозможно написать "универсальную" процедуру "на все случаи жизни". Как правило, в каждом конкретном проекте, надо сделать "как там", но вот в этом месте чуть-чуть по другому.
3. Проблематично написать парные процедуры загрузки-выгрузки, если они требуют некоторого "внешнего" по отношению к этим процедурам хранилища данных. Например, восстановление исходных настроек среды FoxPro требует где-то сохранить эти самые настройки.

Вот для решения этих проблем и еще многих других создается специальный класс на базе класса Custom. Экземпляр этого класса обычно и называют goApp. Пример реализации подобного класса можно посмотреть в стандартном проекте, поставляемом вместе с FoxPro под названием TasTrade.pjx

MODIFY PROJECT (HOME(2)+"tastrade astrade.pjx")

По сути, если опустить некоторые детали, содержимое главного файла в этом случае будет выглядеть примерно так:

SET CLASSLIB TO MAIN, TSGEN PUBLIC goApp goApp = CREATEOBJECT("TasTrade") goApp.Do()

В чем тут "фокус"? А "фокус" в том, что в момент создания объекта на базе класса TasTrade выполняется его событие Init. А уже из события Init этого класса осуществляется вызов всех тех методов, которые необходимы в данном приложении в момент загрузки приложения Метод goApp.Do() содержит собственно команду READ EVENTS, что и обеспечивает "точку останова" всего приложения. Команда CLEAR EVENTS дается в одном из методов класса goApp. В данном случае - это метод goApp.CleanUp2() Методы, которые необходимо выполнить при закрытии приложения можно вызвать в том же методе goApp.Do() после команды READ EVENTS или в событии goApp.Destroy() Все те процедуры, которые были описаны в данной статье, оформляются как отдельные методы класса TasTrade. И вызываются в соответствующем месте класса. Обратите внимание, что собственно класс TasTrade из библиотеки классов Main.vcx является наследником другого класса Application из библиотеки классов TSGen.vcx. Такая "иерархия" вовсе не случайна. В этом случае Вы можете использовать класс Application во всех Ваших приложениях, создавая на его основе собственный класс, например, MyClass в собственной библиотеке классов MyClass.vcx. Т.е. Вы получите некую общую библиотеку классов вообще для всех ваших проектов, как заготовку для класса конкретного приложения. Несколько слов о том, чего не должно быть в классе goApp. Дело в том, что возникает большое искушение "впихнуть" в класс goApp вообще все глобальные методы, переменные памяти и разные обработчики. Так вот, не надо этого делать. Цель класса goApp - это организовать корректную загрузку и выгрузку вашего приложения. Все! Все что "сверх" этой задачи должно быть выделено в отдельные классы. Например:

1. Объект - обработчик ошибок
2. Объект - стек активных объектов (форм) приложения
3. Объект, содержащий глобальные настройки приложения

Список можно продолжать. Но основной принцип: не смешивать в одном объекте разные задачи. Будьте осторожны с использованием класса из проекта TasTrade.pjx. Он достаточно далек от идеала. Его следует рассматривать скорее как учебное пособие, но не как объект готовый к использованию. Не надо слепо копировать его в свое приложение. Лучше напишите свой собственный класс. Да, это займет больше времени, но Вы лучше поймете что это такое и для чего это используется.

Передача параметров в EXE

Как правило, готовый файл EXE самодостаточен в том смысле, что ему не требуется передавать какие-либо параметры. Все необходимые "внешние" настойки делаются либо в файле CONFIG.FPW, либо в специальных ini-файлах. Но иногда такая необходимость все-таки возникает. Например, чтобы указать, где именно находится нужный ini-файл. В системе Windows общепринятым стандартом является указание параметров сразу за именем программы через пробел: MyProg.exe Par1 Par2 Для приема таких "внешних" параметров в главном файле в качестве первой исполняемой команды надо дать стандартную команду PARAMETRS (или LPARAMETERS) PARAMETERS tcPar1, tcPar2 Т.е. с точки зрения кода FoxPro ничего нового и необычного. Стандартный список параметров через запятую как первая исполняемая команда программного модуля. Однако есть некоторые отличия в приеме "внешних" параметров
Во-первых, один параметр от другого разделяется пробелом, поэтому если Вы хотите передать в свое приложение некую символьную строку, которая сама содержит пробелы, то ее следует взять в кавычки MyProg.exe "первый параметр" "второй параметр"

Во-вторых, все внешние параметры, передаваемые в приложение FoxPro, имеют символьный тип данных. Т.е. даже если Вы дадите команду: MyProg.exe 1 2 То в программе FoxPro будут приняты не числа 1 и 2, а символы "1" и "2"

В-третьих, несмотря на то, что кажется, будто в момент запуска Вашего приложения сразу оно и начинает исполняться, но на самом деле это не совсем так. Сначала происходит загрузка среды FoxPro и только после этого уже из загруженной среды FoxPro начинает исполняться Ваше приложение.

Применительно к передаче параметров в Ваше приложение из этого следует, что сначала переданные параметры будут приняты и обработаны собственно средой FoxPro. Но все дело в том, что сама среда FoxPro в момент загрузки может принимать несколько именованных параметров (переключателей, ключей).

Именованные параметры среды FoxPro начинаются либо с символа дефиса (знак минус), либо с наклонной черты (знак деления). Полный список именованных параметров и для чего они предназначены, Вы можете посмотреть в HELP к Visual FoxPro в разделе с именем вроде "Command-line switches in Visual FoxPro"

Как именно называется этот раздел, и в какой именно статье он находится, зависит от версии FoxPro. В разных версиях он находится в разных статьях. Поэтому откройте HELP к Вашей версии FoxPro, перейдите на закладку "Поиск" и введите ключевое слово "switches" для поиска. Самая первая из найденных статей, скорее всего и будет содержать список и описание "ключей".

Начиная с версии Visual FoxPro 7.0 список ключей можно получить, запустив среду FoxPro с ключом "/?". Примерно так:

"C:Program FilesMicrosoft Visual FoxPro 8vfp8.exe" /?

Здесь я не буду описывать эти самые "ключи" и для чего они предназначены. Для нас более важным является то, как использование ключей FoxPro повлияет на передачу параметров в созданное приложение. Оказывается, эти самые "ключи" перехватываются самой средой FoxPro в момент ее запуска и исключаются из списка переданных параметров. Например, если Вы дадите команду:

MyProg.exe -t 1 2

То в момент загрузки среды FoxPro будет найден ключ "-t". Этот ключ будет соответствующим образом обработан средой FoxPro, а непосредственно вызов Вашего приложения примет вид:

MyProg.exe 1 2

Таким образом, "ключи" FoxPro просто исключаются из списка параметров, передаваемых в Ваше приложение. Поэтому будьте аккуратнее в выборе значений внешних параметров Вашего  приложения.

Заключение

В данной статье были рассмотрены основные идеи по содержимому главного файла проекта FoxPro. Причем, не вообще все, что только можно и нельзя "впихнуть" в главный файл, а только самый минимум. Без чего проблематично написать полноценное приложение. В статье сознательно не давалось подробное описание кода той или иной части главного файла. Опять же, только самый минимум, как общая идея того, что должно быть. Есть несколько причин, такого "поверхностного" описания:

1. Содержимое главного файла сильно зависит от конкретной задачи и личных предпочтений программиста
2. Достаточно часто, одну и ту же задачу в FoxPro можно решить несколькими способами. Как следствие, следовало бы привести конкретный код реализации той или иной задачи каждым из способов и провести сравнительный анализ этих способов. Это слишком обширная задача, далеко выходящая за рамки данной статьи.

Т.е. просто не существует некоего "стандартного" кода для главного файла проекта. Есть только некоторые стандартные задачи, которые следует решить в главном файле. Вот именно эти задачи и наиболее простые пути их реализации и были описаны в данной статье.

Автор публикации

не в сети 26 лет

Владимир Максимов

Комментарии: 0Публикации: 65Регистрация: 02-09-2000

(далее…)

]]> https://foxclub.ru/knowledgebase/raschet-sroka-mezhdu-dvumya-datami/ Fri, 28 Aug 2020 11:32:29 +0000

Расчет срока между двумя датами

Имеем две даты надо знать количество лет, месяцев и дней

Расчет срока между двумя датами

Сталкнулся с таким думал все просто посмотрел на форуме супер сложные и умные какието предложения:

d1=начальная дата
d2=конечная дата
yy=int((d2-d1)/365.2425) && года
mm=int((d2-d1)/30.4369) && месяца
dd=(d2-GOMONTH(d1,mm)) && дни

от куда такие цыфры:
set date to germ
d1=CTOD('1.12.2000')
d2=CTOD('1.12.6000')
((d2-d1)/(YEAR(d2)-YEAR(d1)))=365.2425 && среднее число дней в году за 4000 лет
((d2-d1)/(YEAR(d2)-YEAR(d1)))/12=30.4369 && среднее число дней в месяце за 4000 лет

кому мало точности, берите больше срок будет точнее 😉

Автор: Даниил Александрович

Автор публикации

не в сети 6 месяцев

admin

Комментарии: 1Публикации: 123Регистрация: 10-12-2000

(далее…)

]]> https://foxclub.ru/knowledgebase/upravlenie-videorezhimami-monitora-dll-vcx/ Fri, 28 Aug 2020 11:32:29 +0000

Управление видеорежимами монитора (dll + vcx)

Библиотека для управления видеорежимами монитора

Управление видеорежимами монитора (dll + vcx)

VMode - библиотека для управления видеорежимами монитора

Методы:

GetVideoMode - возвращает:
а) имя библиотеки текущего SVGA драйвера;
б) ширину экрана;
в) высоту экрана;
г) бит на пиксель (bpp, глубина цвета);
д) частоту обновления экрана;

принимает параметр lnWhat (numeric):

0 или пустые скобки - общий список (string);
1 - SVGA + версия драйвера (string);
2 - ширина экрана (numeric);
3 - высота экрана (numeric);
4 - бит на пиксель (numeric);
5 - частота обновления экрана (numeric).

SetVideoMode - возвращает значения .T. или .F. в зависимости от достигнутого результата;
принимает числовые параметры: ширина, высота, глубина и частота (all numeric).

Регистрация: RegSvr32 VMode.dll

Требования: vfp9r.dll и vfp9t.dll

Вызов: oVM = CreateObject("VMode.VMode")

Пример:

?oVm.GetVideoMode() && возвращает: "G400D;1024;768;32;85"
?oVm.GetVideoMode(0) && возвращает: "G400D;1024;768;32;85"
?oVm.GetVideoMode(1) && возвращает: "G400D" (Matrox Millenium G450, maj.ver. 4.00, min.ver. D)
?oVm.GetVideoMode(2) && возвращает: 1024
?oVm.GetVideoMode(3) && возвращает: 768
?oVm.GetVideoMode(4) && возвращает: 32
?oVm.GetVideoMode(5) && возвращает: 85
?oVm.SetVideoMode(800,600) && возвращает .T.
?oVm.SetVideoMode(800,600,0,0) && возвращает .T.
?oVm.SetVideoMode(800,600,32,85) && возвращает .T.
?oVm.SetVideoMode(800,100,0,0) && возвращает .F.
?oVm.SetVideoMode(1024,768,2,22) && возвращает .F.

Замечания:

Если в параметре глубина = 0 или не указана, а также частота = 0 или не указана, то берутся в обработку
текущие значения.

Если параметры указаны неверно или не соответствуют возможностям вашего SVGA-адаптора, то значения входных
параметров обработаны не будут и возвращаемое значение = .F.

P.S.

У кого VFP более младшей версии, нежели 9-я, прилагается библиотека класса для перекомпилляции. Нужно
добавить библиотеку в новый проект и на выходе создать Multi-Threaded Com Server. Скопировать dll в
системную папку Windows (System для Win4; System32 для WinNT) и сделать регистрацию библиотеки в реестре:

RegSvr32 VMode.dll

Тем, кто будет пользоваться непосредственно классом, а не com-сервером, вызов делать в пределах видимости
библиотеки вызывающей программой:

oVm = NewObject("VMode","VMode")
oVm.GetVideoMode(lnWhat)
oVm.SetVideoMode(lnWidth,lnHeight,lnBpp,lnFreq)

Автор: Alex Roublev

Автор публикации

не в сети 24 года

Alex Roublev

Комментарии: 0Публикации: 3Регистрация: 28-09-2002

(далее…)

]]> https://foxclub.ru/knowledgebase/tajna-potustoronnih-svyazej-ili-ispolzovanie-pereadresovannyh-vyzovov/ Sat, 19 Nov 2022 18:35:33 +0000

Тайна потусторонних связей или Использование переадресованных вызовов

Как это теперь модно писать - Преамбула

В далеком, теперь уже, 1994 году, в свете развития всяких ООП технологий , в том же Turbo Vision, захотелось и мне в Фоксе придумать нечто такое же, пусть, хоть и отдаленно напоминающее сие новаторства. Собственно все сводилось к возможности получения результата функции из внешнего, по отношению к текущему, модуля. Если разработчики дали возможность использовать конструкции

DO Func1 in Module1

То почему-то не дали возможности хотя бы сделать так

Do Func1 in Module1 to myVar

Хотя и такая конструкция, меня не устраивала. Хотелось сделать модуль отвечающий за поведение определенного вида документа, но как получать результат функции их этого модуля или другого без шаманского передергивания с использованием Set Procedure To, которая тогда позволяла использовать только один общий процедурный модуль. Тогда надо было выносить все мелкие общие функции из одного модуля и раскладывать их на кучу мелких. Это мне тоже не нравилось. Оставалось одно – пропадать.
Надо было как-то заставить эти функции держать в связке стека вызовов FoxPro иначе он никак их не хотел находить.
И вот пришло решение, что вызов функции нужно переадресовать тому модулю откуда он должен быть вызван, но как? Да все оказалось проще простого.
Пишем процедурный модуль MODULE1.PRG с небольшим «довеском» , допустим в нем есть некая функция P1

* MODULE1.PRG parameter m.__ if type('m.__')='C' return eval(m.__) endif Procedure P1 Return 1

Далее пишем некий главный файл MAIN.PRG (Привет Владимиру Максимову)

* MAIN.PRG ? MODULE1([P1()])

На выходе получаем искомое значение 1 которое вернула функция P1 – Ура, у нас получилось !
Изменяем модуль MAIN.PRG на такой

* MAIN.PRG ? MODULE1([P1()]) Procedure P1 Return 2

Проверим, что вернет нам наша «шаманская» функция ? А в результате видим – 1. Значит наша функция в MAIN.PRG не сработала ! И правильно, ибо вызов функции идет в модуле MODULE1.PRG в строке EVAL(m.__) – фокс находит функцию в текущем модуле и перестает ее искать где-то еще и возвращает значение нужной нам функции. Ну пробовать, так пробовать. Еще раз меняем файл MAIN.PRG

* MAIN.PRG ? MODULE1([P2()]) Procedure P2 Return 2

Прошу заметить, что зайца в шляпе нет, то есть функции P2 в MODULE1.PRG нет. Смотрим,что вернет функция.
Оказывается возвращает значение – 2. Пробуем штатными средствами FoxPro, пишем

DO P2 in MODULE1

И получаем ошибку: Procedure "P2" not found – чего собственно и ждали, но в нашем случае такой ошибки нет и функция вернула, значение из модуля MODULE1 , это что же получается Фокс нас обманывает ? Или все-таки мы его? .
Давайте подумаем, а собственно откуда в MODULE1.PRG взялось значение функции P2 ?
Фокс в модуле MODUL1.PRG пытается найти функцию P2 – не находит и переходит по стеку вызовов на ранние вызовы, и что же, находит ее в модуле MAIN.PRG – соответственно значение этой функции он нам и вернет. Проблема побеждена, и в том же 1994 году за полторы недели на коленке был написан склад с использование псевдо-объектности. Жаль исходники потерял, за давностью лет. Но было здорово и быстро.

Ну вот, а теперь собственно - Амбула.

Был у меня некий проект на VFP6 – размер исполняемого файла 3.5 метра – все в одном. Решил я это дело порезать на куски. Ну общие процедурные модули и дополнительные невизуальные классы вынести в отдельный модуль COMMON.APP – сказано – сделано – исполняемый файл уменьшили на 1 метр, осталось 2.5 – из них картинок около 1.5 метров – на все случаи жизни, так сказать. А чего давай и их выкинем из исполняемого файла – вынесем куда-нибудь в IMAGES.APP и пусть там валяются, все равно этот модуль – ну очень редко будет изменяться. Ладно собираем все картинки в новый IMAGES.APP в проекте им даем атрибут Excluded – собираем главный исполняемый файл, предварительно в нем подключаем модуль IMAGES.APP. А вместо картинок видим крестики, это что же теперь на картинках крест поставить ? Ладно начнем думать. Если так картинки не подключаются, давай старым дедовским шаманским способом – переадресуем подключение картинок в IMAGES.APP
В базовом классе Image дописываем в свойство Picture_Assing следующий код

LPARAMETERS vNewVal *To do: Modify this routine for the Assign method THIS.Picture = m.vNewVal if not empty(this.picture) * Если файл не найдет в исполняемом файле или на диске – переадресуем вызов if not file(this.picture) if file("IMAGES.APP") DO "IMAGES.APP" with (this),'picture',this.picture endif endif endif

Соответственно меняем главный файл для проекта IMAGES, а как без главного модуля ? Даже пустого – APP не слепить.
Процедура может принимать от 3 параметров
1 – ссылка на объект к которому будем цеплять картинку
2 – имя свойства, в нашем случае PICTURE
3 – собственно имя файла картинки
4 – параметр может использоваться для ListBox или ComboBox для свойства Picture(N) – как N

lparameter m.ObjRef, m.cProperty, m.xValue, m.nIndex if pcount() < 3 MessageBox("Это модуль ресурсов",64,_screen.caption) Return .F. endif if vartype(m.ObjRef)='O' ; and vartype(m.cProperty)='C' ; and PEMStatus(m.ObjRef,m.cProperty,5) if vartype(m.nIndex)='N' if m.cProperty='PICTURE' ObjRef.Picture[m.nIndex]=m.xValue else Return ObjRef.WriteExpression(m.cProperty+'[m.nIndex]',[m.xValue]) endif else Return ObjRef.WriteExpression(m.cProperty,[m.xValue]) endif Return .T. endif Return .F.

Теперь пересобираем APP для картинок – и главный исполняемый файл – и видим все картинки на месте. Ну вот – наконец-то смогли уменьшить размер главного исполняемого файла еще на 1.5 метра – остался метр «живого» кода – теперь можно вздохнуть спокойно.

Используя «потусторонние связи» с переадресацией вызова, оказывается можно много чего получить в Фоксе

Последние обновление: 2005-01-26 09:11
Опубликовал: Пирожков Вадим

Автор публикации

не в сети 22 года

piva

Комментарии: 1Публикации: 11Регистрация: 24-03-2004

(далее…)

]]> https://foxclub.ru/knowledgebase/rtfeport-generator-otchetov-iz-rtf-shablona-sovmestim-s-genrep-isklyuchaya-ego-rasshirennye-vozmozhnosti-nebolshoe-ispravlenie-ot-26-01-2005/ Fri, 28 Aug 2020 11:32:25 +0000

RtfEPORT – генератор отчетов из RTF-шаблона (совместим с GenRep, исключая его расширенные возможности). Небольшое исправление от 26.01.2005.

Генератор отчетов RtfEPORT предназначен для вывода данных из DBF-файлов/алиасов VFP в виде отчета в формате RTF на основании предварительно созданного файла шаблона (.SAB-файл). RtfEPORT разрабатывался как замена генератору отчетов GenRep (автор А. Куденцов), поэтому совместим с ним по формату шаблона (с небольшими отличиями в выражениях и без расширенных возможностей GenRep), а также содержит некоторые расширения и добавления функциональности. Update4: исправлены ошибки при группировке Update3: исправлена ошибка вывода при использовании условных функций IF/IIF, при несовпадении типов внутри выражения Update2: исправлена ошибка при работе с курсорами, полученными в результате выполнения SQL-запросов вида SELECT * FROM table_name INTO CURSOR cursor_name. Как оказалось, с такими курсорами RtfEPORT не работал. Update1: исправлены некоторые ошибки и неточности с группировкой. Добавлен новый формат вывода - dtm (месяц прописью)

RtfEPORT - генератор отчетов из RTF-шаблона (совместим с GenRep)

Генератор отчетов RtfEPORT предназначен для вывода данных из DBF-файлов/алиасов VFP в виде отчета в формате RTF (отчет открывается в программе, установленной по умолчанию для расширения .rtf – обычно это MS Word) на основании предварительно созданного файла шаблона (.SAB-файл). Работает в VFP 5.0 и выше. RtfEPORT разрабатывался как более функциональная замена генератору отчетов GenRep (автор А. Куденцов), поэтому совместим с ним по формату шаблона (с небольшими отличиями в выражениях и без расширенных возможностей GenRep), а также содержит некоторые расширения и добавления функциональности (выражения VFP; работает с мемо-полями; условное форматирование шрифта). Подробное описание внутри архива.
Отличия RtfEPORT от GenRep
1. Может использоваться только в программах, написанных на Visual FoxPro;
2. Поставляется в виде исходных кодов (prg-файл);
3. Может использовать не только внешние DBF-файлы, но и алиасы FoxPro;
4. Работает с мемо-полями;
5. может использовать любые выражения Visual FoxPro в полях вывода (в т.ч. данные не только из основной для отчета таблицы/алиаса, но и из других открытых в приложении алиасов);
6. Содержит дополнительные возможности условного форматирования: цвет и тип шрифта
7. В выражениях не работают знаки:
# - деление с округлением до большего,
| - деление с округлением до меньшего.
Вместо них нужно использовать функции FoxPro (round).
8. Более низкая скорость формирования отчетов (связанная, по крайней мере, с характером исполняемого кода: интерпретируемый p-код, в случае RtfEPORT, и компилированный – в случае GenRep). Возможно, проблема и в коде 🙂 - из-за неоднакратных дописываний/переписываний не совсем оптимизирован (есть что сделать в след. версии ;-)).

В настоящий момент RtfEPORT используется в работающем клиент-серверном приложении (RTF-шаблоны проще хранить в BLOB-поле, чем 2 файла отчетов VFP), в котором раньше использовался GenRep. Шаблоны переписывать не пришлось. 🙂

Генератор поставляется в виде prg-файла RtfEPORT.prg (VFP 5.0) Подробно об использовании см. в описании (RtfEPORT.rtf) и в демо-проекте dortfrep.

Автор: Алексей Кирпичев

Автор публикации

не в сети 6 месяцев

admin

Комментарии: 1Публикации: 123Регистрация: 10-12-2000

(далее…)

]]> https://foxclub.ru/knowledgebase/proverka-pravopisaniya-v-fokse/ Fri, 28 Aug 2020 11:32:29 +0000

Проверка правописания в фоксе

Простенький вариант проверки правописания без подключения MS Word, только средствами фокса. Используется Reserved.fll и FoxTools.fll. Всю интерфейсную часть можно доработать напильником

Автор: Пирожков Вадим

Автор публикации

не в сети 22 года

piva

Комментарии: 1Публикации: 11Регистрация: 24-03-2004

(далее…)

]]> https://foxclub.ru/knowledgebase/prichesyvatel-koda/ Mon, 31 Aug 2020 08:55:16 +0000

Причесыватель кода

Вот тут попросили выложить в решения причесыватель кода, может использоваться как простая замена beautify.app или работать с ним в связке, сначала beautify.app наводит порядок, а потом эта утилька придает ему тот вид к которому я больше привык или можно поменять на корпоративный стиль оформления кода. Первое упоминание про нее я нашел у себя даированное 17 октября 1997 года. Переделано под VFP8

Автор: Пирожков Вадим

Автор публикации

не в сети 22 года

piva

Комментарии: 1Публикации: 11Регистрация: 24-03-2004

(далее…)

]]> https://foxclub.ru/knowledgebase/otmetki-v-grid/ Fri, 28 Aug 2020 11:32:29 +0000

Отметки в Grid

Класс предназначен для установки/снятия отметок в списке элементов, выдаваемых в Grid. Отметки можно делать мышкой, клавишей Ins, клавишами Shift+Up, Shift+Down или через меню.

Автор: Олег Бляхеров

Автор публикации

не в сети 25 лет

Олег Бляхеров

Комментарии: 0Публикации: 8Регистрация: 23-04-2001

(далее…)

]]> https://foxclub.ru/knowledgebase/programma-izmeneniya-formy-posle-perevoda-iz-foxpro-2-6/ Fri, 28 Aug 2020 11:32:19 +0000

Программа изменения формы после перевода из foxpro 2.6

перевод свойств форм из досовского fox в visual

Программа изменения формы после перевода из foxpro 2.6

Программа перевода досовских экранов (FoxProX 2.6) в видовые формы (для Visual FoxPro 6.0) (FreeWare)

 Как пользоваться данным пакетом ...   Обычно в FoxPro экраны храняться в одном каталоге поэтому данная  программа на это ориентирована. 1.а) Сконвертировать все файлы в формат Visual Fox (Functional convertation) 1.б) Запустить программу Do Change_All.Prg With 'Path',1 	Где path - путь к файлам *.scx 	    1    - Переводить кодировку файла (Dos в Windows), если нет непереводить 	И Л И      Если нужно сконвертировать 1 файл то ... 	1) use form.scx excl 	2) do ch_form		- Перевести из PageFrame в Form 	3) do change with 1	- Сконвертировать (1 - переводить или нет кодировку)  				Возможности  1) Перевод файла формы из PageFrame в Form 2) Перекодирование (DosToWin) 3) Преобразование CommandGroup в CommandButton 4) Убирание глюков связанных с OptionGroup 5) Преобразование шрифтов 6) Растягивание формы в 1.1 раз по вертикали 7) Преобразование Message в ToolTipText 8) Преобразование линий в Shape (3D линии) 9) Поле ControlSource -> Name 10) Всякие мелочи ...  Данная программа основана на поиске EOFов (#13#10)  Также прилагается программа на Pascal меняющая в Prg файлах Show Get на .obj.enabled (ch_prg.exe). Изменяет 1 файл переданный в качестве параметра.  				Недостатки 1) Если вызвать ее несколько раз она слишком растянет форму. 2) Не изменяет шрифт у OptionGroup   Петров А.О. JellFish@mail.ru    29.03.02   Пишите если что !!! 

Автор: Петров Андрей

Автор публикации

не в сети 24 года

Петров Андрей

Комментарии: 0Публикации: 14Регистрация: 17-04-2002

(далее…)

]]> https://foxclub.ru/knowledgebase/lyuboj-put-programmy/ Fri, 28 Aug 2020 11:32:29 +0000

Любой путь программы

позволяет располагать программу в любом месте на диске

Любой путь программы

*процедура определения и установка пути программы
*отучает программу от привязанности к пути на диске

xp=ALLTRIM(SYS(16))
xpl=LEN(xp)
i=1
DO WHILE LEFT(RIGHT(xp,i),1)#''
i=i+1
xpl=xpl-1
ENDDO
xp=LEFT(xp,xpl)
SET DEFAULT TO &xp
retu

Автор: Pyhar

Автор публикации

не в сети 6 месяцев

admin

Комментарии: 1Публикации: 123Регистрация: 10-12-2000

(далее…)

]]> https://foxclub.ru/knowledgebase/opyat-arhivirovanie-po-metodu-zip/ Fri, 28 Aug 2020 11:32:29 +0000

Опять архивирование по методу Zip

Архивация по методу Zip с использованием механизма API при свободно распространяемой библиотеке ZlibWapi.Dll - архивация указываемого каталога по методу .Zip - поддерживаются (default) вложенные подкаталоги - стандартные маски файлов с использованием "*" и "?" - распаковка стандартных архивов Zip, (как внешних, так и Native, созданных) - распаковка файлов с исходными атрибутами (время,атрибуты) Изменения и дополнения от 20.12.2004 в файле Read_Me.txt

Автор: Shm-Soft

Автор публикации

не в сети 20 лет

ShmSoft

Комментарии: 0Публикации: 5Регистрация: 24-11-2005

(далее…)

]]> https://foxclub.ru/knowledgebase/resajzer-na-baze-svojstva-anchor/ Fri, 28 Aug 2020 11:32:29 +0000

Ресайзер на базе свойства Anchor

Эмуляция свойства Anchor, введенного в VFP9, для более ранних версий VFP с дополнениями, которые автору показались очень полезными.

Какое-то время назад в форуме по VFP9 обсуждалось введенное в VFP9 свойство Anchor. (См. http://forum.foxclub.ru/read.php?f=29&i=654&t=654 )

 К сожалению, я довольно редко бываю теперь на форуме и прочел его только недавно. У себя я использовал использовал похожий механизм, но он удовлетворял меня не слишком. Главная проблема - достаточно часто нужно привязать контрол не к границам контейнера, а к положению другого контрола. Например, если нужно привязать textbox с итогом по колонке grid'а к самой колонке. Все такие изыски приходилось прописывать руками.    Механизм с якорями мне понравился гораздо больше, а также идея Игоря Королева о 'приклеивании' к границам и, особенно, о реализации всего этого для ранних версий VFP (сам я до сих пор работаю на VFP6 SP4 и не жалуюсь, а 9-ка когда еще выйдет...). Пример Игоря меня, что называется, раззадорил и я решил на основе его решения реализовать привязку не только к границам родного контейнера, но к любому другому контролу на форме. Т.е. я предалагаю в пару к свойству nAnchor добавить еще свойство cAnchorControl, которое будет определять имя контрола-якоря. Привязка должна выполняться аналогично привязке к границам контейнера: левая грань контрола - к левой грани якоря и т.п. Я посмотрел свои формы на предмет применимости нового свойства и обнаружил, что количество сэкономленного кода измеряется десятками строк. Кстати, предваряя реакцию типа 'не усложняй без нужды', хочу заметить, что используя такие стандартные механизмы, я, конечно, усложняю инструмент, зато значительно упрощаю основной текст. Для чего, собственно, инструмент и делается:) Но аппетит приходит во время еды, к тому же выяснилось, что не все проблемы это новое свойство решает. Пример - контрол Mover, позволяющий отбирать элементы из одного списка в другой. В нем два listbox'a (исходный и целевой списки) и посередине кнопки Add и Remove. При растягивании/сжатии Mover'а хотелось бы, чтобы внешние границы listbox'ов оставались 'приклеенными' к границам Mover'а, а внутренние - к кнопкам. Значит, нужно еще одно свойство - nAnchorMask, которое бы в дополнение к nAnchor и cAnchorControl определяло какими гранями контрол цепляется к якорю, а какими - к родному контейнеру. Кроме того, такое свойство позволяет элементарно реализовать Splitter. Код самого Splitter'а получается минимальным, а все привязки деляются заданием свойств nAnchor, cAnchorControl и nAnchorMask для контролов слева и справа от Splitter'а. Задумано - сделано! Класс, который все это делает, перед Вами. И еще одно усовершенствование, которое я бы предложил для свойства Anchor. Как показал мой минимальный опыт при тестировании класса, высчитывать число, задающее нужную комбинацию привязок, - занятие чрезвычайно нудное. И через пять минут ты, естественно, забываешь исходные цифры и нужно решать обратную задачу. Вот я и предлагаю, чтобы значение Anchor задавалось не только числом (11), но и выражением (1+2+8). Реализовать это дело оказалось до смешного простым:

[code] .nAnchor = iif(vartype(.nAnchor)='C' and type(.nAnchor) = 'N',; evaluate(.nAnchor), .nAnchor) [/code]

Автор: Олег Бляхеров

Автор публикации

не в сети 25 лет

Олег Бляхеров

Комментарии: 0Публикации: 8Регистрация: 23-04-2001

(далее…)

]]> https://foxclub.ru/knowledgebase/instrumenty-razrabotchika-dlya-visual-foxpro-6-0-vypusk-2/ Fri, 04 Nov 2022 14:28:15 +0000

Инструменты разработчика для Visual FoxPro 6.0 Выпуск 2

Набор утилит, для облегчения труда разработчика приложений на Visual FoxPro:

• Все мои проекты… вер.2.1
• Поиск в проекте вер.3.4.
• Сравнение файлов вер.3.10
• Сравнение библиотек вер.2.7
• Редактор библиотек вер.1.3
  Статус: FreeWare

Инструменты разработчика для Visual FoxPro 6.0

Настоящий профессионал начинается с инструмента (ИМХО!). Это касается всех видов деятельности - от столяра до зубного врача, и программисты здесь не исключение. Именно эта нехитрая мысль, а также долгие поиски нужного проекта в проводнике или всех мест, где я имел неосторожность использовать “эту дурацкую функцию, которая почему-то глючит в очередном сервис-паке”, подвигли меня на изготовление (сначала для себя) нескольких простеньких инструментов, в той или иной степени решающих все эти проблемы. За несколько лет они обросли мяском, приобрели более-менее приличный вид и, что самое главное, сэкономили мне массу времени и сил. Теперь я готов предложить некоторые из них на суд широкой фокс-общественности и пусть народ скажет свое слово.

В второй выпуск пакета, представляемый здесь, входит пять фокс-приложений: “Все мои проекты…”, “Поиск в проекте”, “Сравнение файлов”, “Сравнение библиотек и форм” и “Редактор библиотек”.

Приложения представляют собой app-модули и вызваются прямо из командного окна. Обращение к инструментам описано в соотвествующих разделах файла tools.chm. Для большего удобства вызов приложений можно вставить в главное меню Foxpro с помощью простенькой процедуры, запускаемой из config.fpw

Автор: Олег Бляхеров

Автор публикации

не в сети 25 лет

Олег Бляхеров

Комментарии: 0Публикации: 8Регистрация: 23-04-2001

(далее…)

]]> https://foxclub.ru/knowledgebase/komponenta-activex-zip-interfejs-ispolzovaniya-vfp8/ Fri, 28 Aug 2020 11:32:29 +0000

Компонента ActiveX Zip, интерфейс использования, VFP8

Предлагаю для рассмотрения еще один вариант работы с архивами Zip,

Компонента ActiveX Zip, интерфейс использования, VFP8

Предлагаю для рассмотрения еще один вариант работы с архивами Zip,
1) вся основная информация: http:www.hdse.org/activexzip/
2) компонента свободно-распространяемая
3) основные недостатки:
- стартовый банер
- архивация подкаталогов, которые удовлетворяют маске
(если они не удовлетворяют маске, то не архивируются)
- пустые подкаталоги упаковываются, но не распаковываются
- просмотр архивов при помощи WinZip,WinRar некорректен

4) разработка и тестирование: VFP8 (SP1)
5) используются возможности
- Bindevent(...)
- Define Class ... OlePublic Implements ... In ...

подробности в файлах:
- ReadMe.txt
- ActiveXZip.chm
- Zip_Objects.prg

Пример: форма Test.scx

Принимаются Пожелания, замечания,вопросы
ShmSoft@rol.ru
----------------------------------------------------------

Основные элементы Архиватора
----------------------------
(пример использования - форма Test)

Некоторые замечания
-------------------
1) Наименование объекта : 'hdsecompression.activexzip'

2) Основные методы:

addFile(filespec As String, - добавить файлы в архив
recursive As Logical,
storepaths As Logical,
password As String) As Void

Close() - закрыть открытый ранее архивный файл (Open)

create(zipFile As String) As Void - создать новый архив Zip

deleteFile(item As Variant) As Void - удалить файл из архива

extract(item As Variant, - извлечь файл из архива
extractDir As String,
password As String) As Void

getCount(count As Long) As Void - вернуть количество элементов в архиве
нумерация файлов считается с 0

getFileDetails(item As Variant) - прочитать данные о файле в архиве
As Void по номеру файла (элемента) 0-n

onFileDetails(file As String, - событие, расшифровывающее данные о файле
passprotected As Logical, требуется механизм связывания событий
uncompressedSize As Long, Bindevent(...)
compressedSize As Long)
As H Result

onFileProcessed(file As String, - событие, происходящее при сжатии файла, или разжатии,
successfullyArchived As Logical, уточняющее также ошибку упаковки/распаковки
failDescription As String)
As H Result

open(zipFile As String) As Void - открыть файл архива

showSplash(screenX As Long, - показать Лицензионный Банер, (не удалось обойти)
screenY As Long,
size As SplashSizeRange)
As Void

compressString(uncompressed As String, - сжатие символьной строки, не тестировалось
compressed As Variant) As Void

uncompressData(compressed As Variant, - разжатие символьной строки, не тестировалось
uncompressed As String) As Void

Замечание 1.: Параметры в данные методы-функции передаются по-ссылке. Возвраты функций
не анализировались.

Замечание 2.: Технологические моменты - в такстах методов примера TEST

Уверенно работает с шаблоном *.*

-----------------------------
Shm-Soft, ноябрь, 2004
-----------------------------

Автор: Andrew

Автор публикации

не в сети 20 лет

ShmSoft

Комментарии: 0Публикации: 5Регистрация: 24-11-2005

(далее…)

]]> https://foxclub.ru/knowledgebase/opyat-zip-arhiacziya-s-ispolzovaniem-zlib/ Fri, 28 Aug 2020 11:32:29 +0000

Опять zip-архиация с использованием Zlib

Краткое описание элементов компоненты Shm_zip2 (Shm-Soft,декабрь,2004) ---------------------------------------------- Архивация по методу Zip с использованием механизма API при свободно распространяемой библиотеке ZlibWapi.Dll - архивация указываемого каталога по методу .Zip - поддерживаются (default) вложенные подкаталоги - стандартные маски файлов с использованием "*" и "?" - распаковка стандартных архивов Zip, (как внешних, так и Native, созданных) - распаковка файлов с исходными атрибутами (время,атрибуты) - распаковка файлов по маске (см. выше) - маска не распространяется на подкаталоги, если включен (default) режим .Recurse ПОЖЕЛАНИЯ... принимаются критические замечания и пожелания, советы, предложения... ShmSoft@rol.ru

см. _ReadMe.txt

Автор: shmsoft

Автор публикации

не в сети 20 лет

ShmSoft

Комментарии: 0Публикации: 5Регистрация: 24-11-2005

(далее…)

]]> https://foxclub.ru/knowledgebase/strelochnyj-pribor/ Fri, 28 Aug 2020 11:32:29 +0000

Стрелочный прибор

Стрелочный прибор

Автор: DmGr

Автор публикации

не в сети 24 года

DmGr

Комментарии: 0Публикации: 2Регистрация: 21-01-2002

(далее…)

]]> https://foxclub.ru/knowledgebase/proverka-nalichiya-kompyutera-v-seti-po-ip-protokolu-analog-funkczii-ping/ Fri, 28 Aug 2020 11:32:29 +0000

Проверка наличия компьютера в сети по IP протоколу. Аналог функции ping.

Проверка наличия компьютера в сети по IP протоколу. Аналог функции ping.

Автор: Дмитрий Петров

Автор публикации

не в сети 23 года

dvp

Комментарии: 0Публикации: 3Регистрация: 19-11-2002

(далее…)

]]> https://foxclub.ru/knowledgebase/kompleks-dlya-buhgalterii/ Fri, 28 Aug 2020 11:32:28 +0000

Комплекс для бухгалтерии

АРМ бухгалтера

Комплекс для бухгалтерии

Этот комплекс расчитан более на программиста чем на пользователя, так-как там много чего нужно
улучшать, хотя если устраивает так как есть, то пользоваться можно, с условием, не держать у себя
улучшения, а делиться.

Автор: Profi

Автор публикации

не в сети 21 год

Profi

Комментарии: 0Публикации: 2Регистрация: 07-11-2004

(далее…)

]]> https://foxclub.ru/knowledgebase/report-s-peremennym-chislom-kolonok/ Fri, 28 Aug 2020 11:32:28 +0000

Report с переменным числом колонок

Позволяет строить Report с переменным числом колонок

Автор: Фетисов Валерий

Автор публикации

не в сети 6 месяцев

admin

Комментарии: 1Публикации: 123Регистрация: 10-12-2000

(далее…)

]]> https://foxclub.ru/knowledgebase/foxzip-klass-dlya-raboty-s-zip-arhivami-v-visual-foxpro-ispravlennyj/ Fri, 28 Aug 2020 11:32:28 +0000

FoxZip – класс для работы с ZIP-архивами в Visual FoxPro (исправленный).

Позволяет создавать и распаковывать файлы архивов ZIP-формата. Реализован в виде Visual Class Library, использует библиотеку zlib (http://www.winimage.com/zLibDll/) Библиотека ZLIB (версии 1.1.4) находится внутри класса (т.е. наличие DLL-библиотеки не требуется). Толчком к созданию класса послужило решение http://www.foxclub.ru/sol/index.php?act=view&id=293 Изменения: 1. Решена проблема с русскими именами файлов 2. Добавлено свойство AlertReplacingFile (по умолч. - .T.), управляющее выдачей сообщения о наличии существующего файла

Подробное описание см. в файле FoxZip.rtf из архива. Пример использования класса

SET CLASSLIB TO foxzip.vcx

_SCREEN.AddObject.( 'fz', 'foxzip') && добавляем объект FoxZip

_SCREEN.fz.ZipOpen('c:winntwin.zip') && открываем ZIP-файл

_SCREEN.fz.ZipFile('c:winntwin.ini') && добавляем файл

_SCREEN.fz.ZipFile('c:winntwinhelp.exe') && добавляем второй файл

_SCREEN.fz.ZipClose && закрываем ZIP-файл

_SCREEN.fz.UnZip('c:winntwin.zip', 'c:winnt111') && декомпрессия созданного ZIP-файла в несуществующий каталог

_SCREEN.fz.IncludePath = .T. && включать пути

_SCREEN.fz.ZipOneFile('c:winntwelcome.exe') && компрессия одного файла с созданием одноименного ZIP-файла

_SCREEN.fz.UnZip('c:winntwelcome.zip', 'c:winnt111') && декомпрессия нового ZIP-файла в уже созданный новый каталог и с созданием подкаталога winnt

_SCREEN.fz.ClearDlls = .T.

_SCREEN.fz.removeobject('fz')

Автор: Кирпичев Алексей

Автор публикации

не в сети 6 месяцев

admin

Комментарии: 1Публикации: 123Регистрация: 10-12-2000

(далее…)

]]> https://foxclub.ru/knowledgebase/indeksirovannyj-poisk-po-otdelnym-slovam/ Fri, 28 Aug 2020 11:32:28 +0000

Индексированный поиск по отдельным словам

Индексированный поиск по нескольким словам, входящим в искомое выражение. Поиск не зависит от порядка слов.

Пример организации индексированного контекстного поиска

При запросе "Центральная аптека" будут найдены

• Центральная аптека
• Аптека "Центральная"
• Аптека на ул.Центральная

Протестировано в VFP7-8.

Для VFP6 придется подключить библиотеку foxtools.fll и воспользоваться аналогами функций GetWordNum() и GetWordCount()

Автор: Игорь Ильин

Автор публикации

не в сети 23 года

karly™

Комментарии: 0Публикации: 4Регистрация: 27-09-2003

(далее…)

]]> https://foxclub.ru/knowledgebase/buh-kompleks/ Fri, 28 Aug 2020 11:32:28 +0000

Бух комплекс

Комплекс для бухгалтерии

Бух комплекс

Это комплекс задач для бухгалтерии от Зарплаты до Главной книги , не пропадать же добру, пусть кому надо попользуются, может быть будет продолжать свое развитие на что немного надеюсь...

Автор: Profi

Автор публикации

не в сети 21 год

Profi

Комментарии: 0Публикации: 2Регистрация: 07-11-2004

(далее…)

]]> https://foxclub.ru/knowledgebase/skin-y-dlya-form-visual-foxpro-versiya-3/ Fri, 28 Aug 2020 11:32:28 +0000

Skin-ы для форм Visual FoxPro Версия 3

VCX-библиотека, позволяющая изменить внешний вид Ваших окон а-ля WinAmp. С примером

Skin-ы для форм Visual FoxPro Версия 3

Авторы:
Pablo J. Molina from La Rioja, Argentina
pablo@vfpskin.com.ar

Daniel Diaz from Tucuman, Argentina
daniel@vfpskin.com.ar

Cайт производителя:
http://www.vfpskin.com.ar/index.htm
Шкуры (35 штук):
http://www.vfpskin.com.ar/skins.htm

Эта библиотека была размещена здесь исключительно в образовательных целях, так сказать, посмотри
как сделали люди и сделай сам лучше. 🙂

VFP7SP1
В декомпилированной библиотеке VFPSKIN убрано
- напоминание в title окна VFPSKIN 3.0 Demo
- появление About окна после каждой смены шкуры

Автор: Magellan

Автор публикации

не в сети 21 год

Magellan

Комментарии: 0Публикации: 1Регистрация: 31-08-2005

(далее…)

]]> https://foxclub.ru/knowledgebase/skin-y-dlya-form-visual-foxpro/ Fri, 28 Aug 2020 11:32:28 +0000

Skin-ы для форм Visual FoxPro

Интересная vcx-библиотека, позволяющая изменить внешний вид Ваших окон. Рекомендую всем!

Очень интересная vcx-библиотека(vfp-skin2.vcx), позволяющая изменить внешний вид Ваших окон. Устанавливаешь на Ваше окно, минимальные настройки и все. На примере-проекте показана суть работы с библиотекой. И вместе с проектом 10 готовых скинов. Удачи! Рекомендую всем!

Автор: Sabrust

Автор публикации

не в сети 24 года

SabRust

Комментарии: 0Публикации: 1Регистрация: 17-10-2002

(далее…)

]]> https://foxclub.ru/knowledgebase/vzaimodejstvie-treeview-s-listview-a-lya-provodnik-windows/ Fri, 04 Nov 2022 14:28:47 +0000

Взаимодействие TreeView с ListView (а-ля Проводник Windows)

Взаимодействие TreeView с ListView (а-ля Проводник Windows)

Автор: SoloSerg

Автор публикации

не в сети 6 месяцев

admin

Комментарии: 1Публикации: 123Регистрация: 10-12-2000

(далее…)

]]> https://foxclub.ru/knowledgebase/primer-s-dragdrop-iz-grida-v-grida/ Fri, 28 Aug 2020 11:32:28 +0000

Пример с Drag&Drop из грида в грида

регистрационная форма из одной программы.

Пример с Drag&Drop из грида в грида

подробности: readme
извините за бедные комментарии и за кривой "кодинг"

Автор: _Jet_

Автор публикации

не в сети 22 года

_Jet_

Комментарии: 0Публикации: 2Регистрация: 07-02-2004

(далее…)

]]> https://foxclub.ru/knowledgebase/vyvod-struktury-tablicz/ Fri, 28 Aug 2020 11:32:28 +0000

Вывод структуры таблиц

Вывод структуры таблиц

Вывод структуры таблиц которые находятся в выбранной папке в текстовый файл или excel, а также вывод в excel структуры таблиц находящихся в БД (dbc).

Автор: SoloSerg

Автор публикации

не в сети 6 месяцев

admin

Комментарии: 1Публикации: 123Регистрация: 10-12-2000

(далее…)

]]> https://foxclub.ru/knowledgebase/arhivirovanie-dannyh-2/ Fri, 28 Aug 2020 11:32:28 +0000

Архивирование данных

Архивирование файлов. Смотрите ReadMe.txt

Автор: _Jet_

Автор публикации

не в сети 22 года

_Jet_

Комментарии: 0Публикации: 2Регистрация: 07-02-2004

(далее…)

]]> https://foxclub.ru/knowledgebase/preobrazovatel-edinicz-izmerenij/ Fri, 04 Sep 2020 06:21:17 +0000

Преобразователь единиц измерений

Решение включает набор форм, процедур, меню и таблиц базы данных и предназначено для показа эквивалентов значений величин в различных единицах измерений. Решение особенно актуально, когда приходится одновременно использовать англо-американскую систему и международную систему единиц SI — дюймы и сантиметры, фунты и килограммы, галлоны и литры.

Форма Measurement Units Equivalents не только преобразует значения величин. Ее удобно использовать как вспомогательное (эскортное) информационное окно: как только в главной форме фокус попадает в поле, содержащее, к примеру, размер в дюймах, эскортная форма показывает этот размер в сантиметрах, микронах и т.п. Переходим в другое поле, показывающее давление в мегапаскалях, и получаем также эквивалент в атмосферах и килограммах на квадратный сантиметр. Таблицы базы данных содержат информацию о более чем 120 единицах измерений 17 категорий и более 750 формул преобразований. База может легко пополняться.

Автор: ARPA Software

Автор публикации

не в сети 25 лет

avm

Комментарии: 0Публикации: 2Регистрация: 26-04-2001

(далее…)

]]> https://foxclub.ru/knowledgebase/modnaya-funkcziya-otkrytiya-tabliczy/ Fri, 28 Aug 2020 11:32:28 +0000

Модная функция открытия таблицы

Данная функция реализует открытие таблицы в режимах SHARED или EXCLUSIVE (при возникновении проблем возвращает соответствующий код ошибки).

Модная функция открытия таблицы

Данная функция реализует открытие таблицы в режимах SHARED или EXCLUSIVE (при возникновении проблем возвращает соответствующий код ошибки).
Теперь вам не надо думать о проверках... функция сделает все сама.

Автор: XGarik

Автор публикации

не в сети 20 лет

XGarik

Комментарии: 0Публикации: 1Регистрация: 07-02-2006

(далее…)

]]> https://foxclub.ru/knowledgebase/windows-common-controls-sample/ Fri, 28 Aug 2020 11:32:28 +0000

Windows Common Controls Sample

Класс работы с Common Controls виндузы через WinAPI без использования ActiveX Пример, который я выложил, имеет статус FREEWARE как и написано в ReadMe.1St? так что, думаю, автор не будет на меня сильно в обиде. Piva

Автор: Alexander Grigorjev

Автор публикации

не в сети 22 года

piva

Комментарии: 1Публикации: 11Регистрация: 24-03-2004

(далее…)

]]> https://foxclub.ru/knowledgebase/ohota-na-lis/ Fri, 28 Aug 2020 11:32:28 +0000

Охота на лис

Найти всех "лис" за минимальное время

 Есть такой вид спорта "Охота на лис" или "Радеопеленгация" - человек бегает по лесу с пеленгатором и ищет "лис" - передатчики. Чем ближе подбегает к "лисе" - тем громче слышит ее сигнал. Задача найти всех "лис" за минимальное время. Игрушка похожа на виндозового сапера, только в отличии от него, при нажатии на поле показывает расстояние до ближайшей "лисы" по горизонтали или ревтикали в любую сторону (по диагонали искать еще не умеет). Если от поля на расстоянни трех клеток нет ни одной "лисы" (пеленгатор ничего не слышит), то, соответсвенно расстояние не пишется - выводится "?". Задачу усложнил ограниченим времени - на все дела 60 секунд и 10 "лис". Вперед!! скачать можно здесь: http://www.d-tech.ru/foxhunt.zip Требует рантайм от восьмерки. Вот такик вот файлы: gdiplus.dll msvcr70.dll vfp8r.dll VFP8RENU.DLL у кого нету - качайте из раздела файловый архив 

Автор: Big Duck

Автор публикации

не в сети 23 года

Big Duck

Комментарии: 0Публикации: 1Регистрация: 09-04-2003

(далее…)

]]> https://foxclub.ru/knowledgebase/ierarhicheskie-spiski-listbox-i-combo-s-piktogrammami-gdi/ Fri, 28 Aug 2020 11:32:28 +0000

Иерархические списки ListBox и Combo с пиктограммами (GDI)

Небольшой проект, иллюстрирующий использование возможностей GDI+ для формирования иерархических списков ListBox и Combo

Иерархические списки ListBox и Combo с пиктограммами

Вашему вниманию предлагается простое решение, позволяющее создавать псевдо-иерархические списки с пиктограммами
на базе контролов ListBox и ComboBox.
Идея была предложена на форуме Вадимом Пирожковым (piva).
Так как используется GDI+, то в Вашей системе д.б. библиотека GdiPlus.dll.
Она включена в состав WinXP, а так же поставляется с VFP8 - VFP9beta
Весь код с комментариями см. в методе Click кнопки ЗАГРУЗИТЬ

Автор: Вячеслав Клепинин

Автор публикации

не в сети 22 года

Вячеслав Клепинин

Комментарии: 0Публикации: 4Регистрация: 26-03-2004

(далее…)

]]> https://foxclub.ru/knowledgebase/emulyator-anchor-dlya-vfp8-i-mladshe/ Fri, 28 Aug 2020 11:32:28 +0000

Эмулятор Anchor для VFP8 и младше

Позволяет автоматически изменять размеры элементов управления при изменении размеров формы. Содержит экспериментальное расширение свойства Anchor.

Эмулятор Anchor для VFP8 и младше

Свойства nAnchor выставляются в соответствии с описанием встроенного Anchor для VFP9. Дополнительные значения:
1024 - Приклеить к верхней границе контейнера
2048 - Приклеить к левой границе контейнера
4096 - Приклеить к нижней границе контейнера
8192 - Приклеить к правой границе контейнера
Для запуска необходимо подключить библиотеку Lib.prg по SET PROCEDURE TO
Естественно что классы должны браться из библиотеки BaseClass.vcx - можно (и нужно) их субклассировать для использования в ваших программах.
Рекомендуется окружить m.loObj.Move в процедуре ResizeCnt (в самом низу Lib.prg) кострукцией TRY ... ENDTRY или иной поглощающей ошибки (в зависимости от ваших предпочтений в обработке ошибок) - дабы избежать возможных проблем, проистекающих из недостоверной работы функции PemStatus() в VFP - например она находит Move у тех объектов, у которых его отродясь не было (например ActiveX контрол Microsoft ImageList) 🙁 Проверка на то что Move это метод вроде помогает в VFP8, но насчёт более ранних версий не уверен.
см. также ветку обсуждения http://forum.foxclub.ru/read.php?f=29&i=654&t=654

Автор: Igor Korolyov

Автор публикации

не в сети 6 лет

Igor Korolyov

Комментарии: 0Публикации: 4Регистрация: 28-05-2002

(далее…)

]]> https://foxclub.ru/knowledgebase/predosmotr-pechati/ Fri, 28 Aug 2020 11:32:27 +0000

Предосмотр печати

Предосмотр печати + сама печать

Предосмотр печати

Предосмотр печати
=================
Метод - (вывод на предосмотр)
ShowReport()

Свойства -
- Orientation
ориентация страницы -
книжная - 0 (по умолчанию)
альбомная - 1)
- Scale
масштаб
по умолчанию 70%
-FileName
Название выводимого файла
============================================
Установка и запуск

Кладем куда нибудь Greport.dll
Регистрим - RegSvr32 GReport.dll

В прог. коде -

Local qq as GReport.GPreview
Local aa as String

aa = GetFile()

qq = CreateObject('GReport.GPreview')
qq.Scale = 100
qq.Orientation = 1
qq.FileName = aa
qq.ShowReport()

Автор: Tamito

Автор публикации

не в сети 6 месяцев

admin

Комментарии: 1Публикации: 123Регистрация: 10-12-2000

(далее…)

]]> https://foxclub.ru/knowledgebase/net-time-ili-funkcziya-dlya-polucheniya-vremeni-s-servera-v-seti-na-osnove-api-netremotetod/ Fri, 28 Aug 2020 11:32:28 +0000

Net Time или функция для получения времени с сервера в сети на основе API NetRemoteTOD

Процедура позволяет получить дату-время с любого компьютера сети. без всяких dcom и прочего

Net Time или функция для получения времени с сервера в сети на основе API NetRemoteTOD

PARAMETERS m.cServerName
*Имя сервера обязательно с символов , например server

PRIVATE m.lcServerName, m.lnBufferPointer, m.cSetDate, m.nHour, m.nMin, m.nSec, m.nmDiv, m.nDay, m.nMon, m.nYear, m.nRetValue
m.cSetDate=SET("DATE")
SET DATE GERMAN
m.nRetValue={..::}
LOCAL ARRAY Arrdlls[1,3]
=ADLLS(Arrdlls)
IF ASCAN(Arrdlls,"NetRemoteTOD")=0
DECLARE INTEGER NetRemoteTOD IN NETAPI32 STRING ServerName,INTEGER @BufferPointer
ENDIF
IF ASCAN(Arrdlls,"NetApiBufferFree")=0
DECLARE INTEGER NetApiBufferFree IN NETAPI32 INTEGER Pointer
ENDIF
IF ASCAN(Arrdlls,"RtlMoveMemory")=0
DECLARE RtlMoveMemory IN Kernel32 String@ dest, Integer src, Integer nsize
ENDIF
IF ASCAN(Arrdlls,"lstrlenW")=0
DECLARE Integer lstrlenW IN Kernel32 Integer src
ENDIF

m.cServerName=ALLTRIM(m.cServerName)
m.lcServerName = StrConv(StrConv(m.cServerName + Chr(0), 1), 5)
m.lnBufferPointer = 0
IF NetRemoteTOD(m.lcServerName,@m.lnBufferPointer)=0 && Все хорошо!
m.nHour = GetMemoryDWORD(lnBufferPointer+8) &&часы
m.nMin = GetMemoryDWORD(lnBufferPointer+12) &&минуты
m.nSec = GetMemoryDWORD(lnBufferPointer+16) &&секунды
m.nmDiv = GetMemoryDWORD(lnBufferPointer+24) &&смещение
m.nDay = GetMemoryDWORD(lnBufferPointer+32) &&день
m.nMon = GetMemoryDWORD(lnBufferPointer+36) &&месяц
m.nYear = GetMemoryDWORD(lnBufferPointer+40) &&год
m.nRetValue=CTOT(PADL(ALLTRIM(STR(m.nDay)),2,"0")+"."+;
PADL(ALLTRIM(STR(m.nMon)),2,"0")+"."+;
PADL(ALLTRIM(STR(m.nYear)),4,"0")+" "+;
PADL(ALLTRIM(STR(m.nHour)),2,"0")+":"+;
PADL(ALLTRIM(STR(m.nMin)),2,"0")+":"+;
PADL(ALLTRIM(STR(m.nsec)),2,"0"))-(60*m.nmDiv)
ENDIF
SET DATE &cSetDate
NetApiBufferFree(m.lnBufferPointer)
RETURN m.nRetValue

FUNCTION GetMemoryLPString
LParameter m.nPointer, m.nPlatform
Local m.cResult, m.nLPStr, m.nslen

m.nLPStr = GetMemoryDWORD(m.nPointer)

m.nslen = lstrlenW(m.nLPStr) * 2
m.cResult = Replicate(chr(0), m.nslen)
RtlMoveMemory(@m.cResult, m.nLPStr, m.nslen)
m.cResult = StrConv(StrConv(m.cResult, 6), 2)

RETURN m.cResult
ENDFUNC
*--
* Return Number from a pointer to DWORD
*--
FUNCTION GetMemoryDWORD
LParameter m.nPointer
Local m.cstrDWORD
m.cstrDWORD = Replicate(chr(0), 4)
RtlMoveMemory(@m.cstrDWORD, m.nPointer, 4)
RETURN str2long(m.cstrDWORD)
ENDFUNC

*--
* Convert a Number intto a binary Long Integer
*--
FUNCTION long2str
LParameter m.nLong

m.nLong = Int(m.nLong)
RETURN (chr(bitand(m.nLong,255)) + ;
chr(bitand(bitrshift(m.nLong, 8), 255)) + ;
chr(bitand(bitrshift(m.nLong, 16), 255)) + ;
chr(bitand(bitrshift(m.nLong, 24), 255)))
ENDFUNC
*--
* Convert a binary Long Integer into a Number
*--
FUNCTION str2long
LParameter m.cpLong
Return (Bitlshift(Asc(Substr(m.cpLong, 4, 1)), 24) + ;
Bitlshift(Asc(Substr(m.cpLong, 3, 1)), 16) + ;
Bitlshift(Asc(Substr(m.cpLong, 2, 1)), 8) + ;
Asc(Substr(m.cpLong, 1, 1)))
ENDFUNC

Автор: Михаил (Bomber)

Автор публикации

не в сети 6 лет

Михаил (Bomber)

Комментарии: 0Публикации: 2Регистрация: 26-08-2020

(далее…)

]]> https://foxclub.ru/knowledgebase/proverka-pravopisaniya-s-vozmozhnostyu-polucheniya-spiska-slov-sinonimov-iz-slovarya-ms-word/ Fri, 28 Aug 2020 11:32:28 +0000

Проверка правописания с возможностью получения списка слов-синонимов из словаря MS Word

Предлагается механизм проверки правописания с использованием глоссария MS Word. Отличие от решения, предложенного ранее Hel!Riser, в том, что можно формировать список слов-синонимов для замены ошибочного слова.

Господа! В процессе разработки большого приложения решил оформить как решение небольшой примерчик на VFP, позволяющий полноценно использовать словарь MS Word. Предлагается метод проверки правописания с возможностью формирования меню со словами-синонимами из словаря MS Word для замены неправильного слова. Поиск ошибочных слов - см. метод ErrorInText формы ErrorInText Формирование меню из слов - синонимов - см. метод RightClick в Grid1.Column2.Text1 на форме ErrorWords. Будет работать, начиная с VFP7.

Автор: Вячеслав Клепинин

Автор публикации

не в сети 22 года

Вячеслав Клепинин

Комментарии: 0Публикации: 4Регистрация: 26-03-2004

(далее…)

]]> https://foxclub.ru/knowledgebase/biznes-kalendar/ Fri, 28 Aug 2020 11:32:28 +0000

Бизнес-календарь

Компактная форма-календарь, позволящая "сносить" или "перетягивать" выбранную дату; показывает интервал между выбранной и сегодняшней датами в календарных днях и (главное) в банковских, сиречь — рабочих днях; решает и обратную задачу: "какая это будет дата, столько-то банковских дней от сегодня". Средство очень полезно в бизнес-приложениях, где постоянно надо определять сроки платежа, отгрузки и т.п. Кроме набора форм решение содержит пакет из свыше 40 функций для программного манипулирования датами, дополняющих стандартный набор процедур.

Для правильного расчета рабочих дней используется информация таблицы праздников и рабочих выходных ("черных суббот", кто помнит такой термин). Таблица может включаться в базу данных приложения или существовать отдельно (free DBF). Решение содержит набор форм для обслуживание таблицы — включения, удаления и комментирования даты (комментарий к дате появляется в календаре как tool tip). Все праздники США и Канады можно ввести автоматически, с помощью соответствующей формы (получить программно — с помощью функции пакета). Изготовление аналогичного инструментария для стран СНГ всячески приветствуется.

Решение содержит два релиза: последовательное объектно-ориентированное решение "all-in-one" в виде одной библиотеки классов и более традиционный набор форм и программ.

Чтобы скачать решение зайдите на http://www.arpasoftware.com/calendar/1/ и там нажмите на Download Solution (205Kb). Там же есть более подробное описание (правда, по-английски) и скриншоты.

Скачав архив BusinessCalendar.zip, раскройте его (появится подкаталог Business Calendar). Откройте проект Calendar.pjx и запустите программу main.prg. Появится форма-контрольный пример, демонстрирующая технику работы с решением. Она же позволяет инсталлировать решение в каталог вашего проекта, т.е. скопировать нужние файлы и скорректировать должным образом ссылки на ресурсы в формах и классах.

N.B. Открывая всякий раз проект, запускайте программу runme1st.prg, чтобы настроились пути.

Автор: ARPA Software

Автор публикации

не в сети 25 лет

avm

Комментарии: 0Публикации: 2Регистрация: 26-04-2001

(далее…)

]]> https://foxclub.ru/knowledgebase/rasshirenie-graficheskih-vozmozhnostej-vfp-sredstvami-gdi/ Sun, 30 Aug 2020 16:23:16 +0000

Расширение графических возможностей VFP средствами GDI+

Класс, написанный на VFP, позволяющий использовать возможности GDI+ для работы с графикой.

Вниманию коллег, испытывающих трудности при работе с графикой, предлагается написанный на фоксе класс. Реализует работу с графическими файлами различных форматов, а так же позволяет программно создавать рисунки. Прилагается описание и демонстрационный пример.

Автор: Вячеслав Клепинин

Автор публикации

не в сети 22 года

Вячеслав Клепинин

Комментарии: 0Публикации: 4Регистрация: 26-03-2004

(далее…)

]]> https://foxclub.ru/knowledgebase/dizajner-vyushek/ Fri, 28 Aug 2020 11:32:27 +0000

Дизайнер вьюшек

Для работы с видами. SQL код пишется вручную, список параьетров вруную, свойства полей в Grid-е галочками. Теперь легко переключатся между видами: вверху в Combo выводится список.

Дизайнер вьюшек

В Combo выводится список видов текущей базы данных.
SQL код правиться вручную в editbox-е на 1-ой вкладке,
на 2-ой вкладке свойства вида. Кнопка "Установить" на 1-ой вкладке
изменяет SQL код и устанавливает список параметров и баз данных.
Устанавливаемые свойства подписаны синим цветом.

На 3-ей вкладке в Grid с 4 колонками, свойства в колнках 2,3,4 (Header-ы выделены синим)
устанавливаются в базе кнопкой "Установить" на этой вкладке.

Принцип работы:
1. Правится SQL код, определяется список параметров.
2. Нажать кнопку "Установить" на 1-ой вкладке.
(будет изменен SQL код вида и список параметров в базе,
затем дизайнер сообщит "Сохранено!" и обновится)
3. На вкладке 3 в Grid-е установить свойства полей (ключевые и обновляемые).
4. На этой вкладке под Grid-ом нажать "Установить", для сохранения свойств в базе.

Пишите, если чего нехватает!

Автор: Syberex

Автор публикации

не в сети 22 года

Syberex

Комментарии: 0Публикации: 3Регистрация: 19-01-2004

(далее…)

]]> https://foxclub.ru/knowledgebase/ispolzovanie-msgraph-chart/ Fri, 28 Aug 2020 11:32:27 +0000

Использование MSGRAPH CHART

Использование объекта MSGRAPH.CHART (объекты, свойства, методы)

Использование MSGRAPH CHART

MSGRAPH.CHART - отображение некоторой табличной информации в виде графика. Это всего лишь пример того, как можно использовать некоторые объекты, их свойства и методы объекта MSGRAPH.CHART.
1. Пример написан на VFP 9, но его можно использовать и VFP 8.
2. Перед использованием это примера, проверьте, должен быть установлен пакет MSGRAPH, который входит в состав MS OFFICE (GRAPH.EXE).
3. Распакуйте архив, запустите TEST_GRAPH_FORM.PRG).
11-08-2004).
Архив дополнен H-файлом с константами
06-09-2004
Архив дополнен примером (FORM2.SCT,FORM2.SCX) который демонстрирует, как можно динамически менять график в заданном диапазоне. Задается дельта значения по оси X, в примере это время, и равняется оно 10 секундам, на график в режиме реального времени выводятся некоторые значения (RAND()), при этом весь график сдвигается. Дельту можно менять, например поставить 25, шкала X графика изменентся. При изменении значения этой самой дельты в модуле GRAPH.EXE (MS OFFICE SP2)возникала ошибка. После установки SP3 для MS OFFICE, данная ошибка перестала возникать. Пример просто показывает, как можно динамически изменять данные графика.

Автор: Перминов Игорь

Автор публикации

не в сети 25 лет

Перминов Игорь

Комментарии: 0Публикации: 5Регистрация: 16-09-2001

(далее…)

]]> https://foxclub.ru/knowledgebase/rabota-s-tablo-pokupatelya-i-termo-printerom-cherez-com-port/ Fri, 28 Aug 2020 11:32:27 +0000

Работа с табло покупателя и термо принтером, через COM порт.

Краткий и примитивный пример работы с табло покупателя (фирма производитель - "Синт"), и термо принтером (epson-совместимый, работающий на esc-последовательностях).... Все давольно примитиано, но зато наглядно..... Так же может быть исспользованно как пример работы с COM портом.

Автор: Borman

Автор публикации

не в сети 22 года

yss

Комментарии: 0Публикации: 3Регистрация: 29-07-2004

(далее…)

]]> https://foxclub.ru/knowledgebase/rabota-s-setyu/ Fri, 28 Aug 2020 11:32:27 +0000

Работа с сетью.

Простая и доступная работа с сетью... Блокировка - разблокировка, Открытие таблиц (exlusive - shared, path - alias) Ориентированно на людей, предпочитающих обрабатывать все "руками"

Автор: borman

Автор публикации

не в сети 22 года

yss

Комментарии: 0Публикации: 3Регистрация: 29-07-2004

(далее…)

]]> https://foxclub.ru/knowledgebase/obrabotka-skanera-shtrih-kodov-dlya-com-porta/ Fri, 28 Aug 2020 11:32:27 +0000

Обработка сканера штрих кодов, для COM порта.

Примитивный пример считывания штрих кода сканером, через COM порт....(Соответственно работает и со сканерами, подключаемыми в разрез клавиатуры)

Автор: Borman

Автор публикации

не в сети 22 года

yss

Комментарии: 0Публикации: 3Регистрация: 29-07-2004

(далее…)

]]> https://foxclub.ru/knowledgebase/splittery-rabotayut-na-forme-v-kontejnere-i-na-pageframe/ Fri, 28 Aug 2020 11:32:27 +0000

Сплиттеры. Работают на форме, в контейнере и на PageFrame

Классы для создания сплиттеров. Иногда для красоты полезно 🙂

Сплиттеры. Работают на форме, в контейнере и на PageFrame

Вот, создал нечто, что может быть полезно кому-то кроме меня. Основная цель при создании было - простота в обращении и универсальность. В простейшем варианте, достаточно набросать на форму несколько сплиттеров и один AdminSplitter. В Init формы вызвать AdminSplitter.PrepareSplitter, а в Resize AdminSplitter.ResizeSplitter.

Автор: nik

Автор публикации

не в сети 25 лет

Nik

Комментарии: 0Публикации: 1Регистрация: 17-12-2000

(далее…)

]]> https://foxclub.ru/knowledgebase/kakoj-ne-dolzhna-byt-programma/ Sat, 04 Nov 2023 06:05:48 +0000

Какой не должна быть программа

Какой не должна быть программа: советы и рекомендации для начинающих

Какой не должна быть программа

Какой не должна быть программа

Когда-то я был маленький
Еще не знал кем быть
Но очень уж не нравилось
Фекалии возить

Много книг и статей касаются темы «Какой должна быть программа». Если программы еще нет, то сам такой подход можно считать оптимистическим (может ее никогда и не будет). Рассмотрим похожую тему «Какой не должна быть программа». Если программы еще нет и, следовательно не известно будет ли она, то подход можно назвать пессимистическим (если она будет такой, какой не должна быть, лучше б ее и не было вообще).
Итак, еще не знаем как писать, но на ровном месте нагнетаем обстановку и говорим, допустим, не хочу потратить много времени на отладку, иметь проблемы с модернизацией и сопровождением. Список можно продолжить, но не включая пунктов таких, например, как « не хочу, чтобы мою программу похитили». Это уже оптимизм – надо еще ее сделать такой, чтобы ее кому то хотелось украсть.
Оптимизм и пессимизм по Гегелю – две стороны одного или единство и борьба противоположностей. Поработаешь хорошо на свой пессимизм и станешь оптимистом. Поработай с оптимизмом, но без опыта и почувствуешь законы Мерфи на свой шкуре и можешь впасть в пессимизм и это уже прямой путь к депрессии. Выработать иммунитет легче пессимисту – из депрессии в депрессию хода нет.
Программа начинает свою жизнь при первом запуске кода. Но это стадия эмбриона. На этой стадии пишем и отлаживаем. Если Вы молодой оптимист и пишите сразу длинный код со всеми бантиками – отладка не оставит времени на досуг. Долгая отладка раздражает и утомляет, а дистанция длинная и нужно экономить силы.
Напишите самую суть, отладьте и порадуйтесь жизни – что-то уже есть. Можно улучшать код – скорость, интерфейсные штучки, фишки красивые и т.д.
Программа начинает жизнь после первого показа тому, кто ее не писал.
Хорошо, когда ее ругают – еще есть время исправить ее, а со стороны лучше видно, что в ней плохо.
Программа начинает взрослую жизнь после установки у заказчика (даже если это ознакомительная версия). Теперь могут всплыть самые серьезные ошибки, а увидите их первыми не Вы. Скорее всего вы узнаете об этом по телефону и на ломаном русском вам продиктуют английские буквы сообщения об ошибке. Что делать?
Стоит написать обработчик ошибок.
Где-то в стартовом коде поставим
ON ERROR DO ERRTRAP WITH ERROR(), MESSAGE(), MESSAGE(1), SYS(2018), LINENO()
Можно и не передавать параметры, но бывает это полезно. Например, я вызываю ту же ERRTRAP в Catch’е структуры Try … endtry и передаю через параметры свойства объекта.
Что должно быть в ERRTRAP?
- возможность протолкнуть ошибку или снять задание
- сохранение информации об ошибке (например, в Errors.dbf)
- вызов формы с сообщением об ошибке в таком виде, который по возможности не сильно шокирует юзера и дает ему шанс сообщить Вам что-то полезное по телефону. Если есть модемная связю с юзером, то можно получить файл Errors.dbf и разобраться в ситуации.

Я не считаю свой ERRTRAP показательным, поэтому его здесь не показываю, но эти задачи он решает.
На стадии эмбриона можно избежать некоторых типичных ошибок. У каждого свой путь. Описываю мой.

2. Использование правил при названии переменных и полей.
Пользуюсь рекомендациями MicroSoft. 2 первых символа имени переменной памяти означают область действия (l,g – local,public) и тип переменной (c,n,d,t,l,u,o,a – соответственно текст, число, дата, время, логическое, неопределенное, объект и массив). Поля называю без префикса.
Например, если поле UserName, тогда

lcUserName = UserName

и можно не писать m.lcUserName.
Если надо, чтобы lcUserName была Private, то пишу явно. Public тоже пишу явно, но тогда переменная должна быть gcUserName.
Выделяю и беру в карман текст программы или метода. К функциональной клавише F9 у меня привязан код, по которому в кармане добавляется оператор Local для переменных с префиксом ‘l’:
ON KEY LABEL F9 DO locals
Заменяю выделенное на карман и не боюсь неприятной ошибки, когда в вызываемой программе или методе найдется переменная – двойник.
Текст программы locals:

#DEFINE TAB CHR(9)
#DEFINE CRLF CHR(13)+CHR(10)
SET EXACT ON
LOCAL i, lc1, lc2, lcLeft, lcLine, lcOther, lcPrefix, ;
ll, ln, lnEq, lnLine, lnLines, lnLocal

lc=_CLIPTEXT
lnLines=ALINES(la,lc)
STORE " " TO gcExclude
DIME laLocals(1), gaOther(1), laDeclare(3)
laDeclare(1)="LOCAL "
laDeclare(2)="PRIVATE "
laDeclare(3)="PUBLIC "
laLocals(1)="@"
STORE 0 TO gnLocals, gnOther

FOR lnLine=1 TO lnLines
IF LEFT(la(lnLine),1)="*"
LOOP
ENDIF
lcLine=ALLT( CHRT(la(lnLine),TAB," "))
FOR ln=1 TO ALEN(laDeclare,1)
lnLocal=AT(laDeclare(ln) , UPPER(lcLine))
IF lnLocal=1
i=1
DO WHILE RIGHT(lcLine,1) = ";"
lcLine=RTRIM(LEFT(lcLine,LEN(lcLine)-1))+CHRT(ALLT(la(lnLine+i)),TAB," ")
i=i+1
ENDDO
gcExclude=gcExclude+ UPPER(ALLT( SUBS( lcLine,AT( laDeclare(ln), UPPER(lcLine))+6)))+" "
LOOP
ENDIF
NEXT
lnLocal=AT("LPARA" , UPPER(ALLT(lcLine)))
IF lnLocal=1
gcExclude=gcExclude+ UPPER(ALLT( SUBS( lcLine,AT(" " , UPPER(lcLine)))))+" "
LOOP
ENDIF
NEXT
gcExclude=CHRT(gcExclude,","," ")

FOR lnLine=1 TO lnLines
IF LEFT(la(lnLine),1)="*"
LOOP
ENDIF
lcLine=ALLT(CHRT(la(lnLine),TAB," "))
IF UPPER(LEFT(lcLine,6))="STORE " AND " TO " $ UPPER(lcLine)
lc1=SUBS(lcLine,AT(" TO ",UPPER(lcLine))+4)+","
ln=OCCURS(",",lc1)
FOR i=1 TO ln
lc2=ALLT(LEFT(lc1,AT(",",lc1)-1))
IF "(" $ lc2
LOOP
ENDIF
=putIt(lc2)
lc1=SUBS(lc1,AT(",",lc1)+1)
NEXT
LOOP
ENDIF
lnEq=AT("=",lcLine)
IF lnEq=0
LOOP
ENDIF
lcLeft=ALLT(LEFT(lcLine,lnEq-1))
IF LEFT(lcLeft,4)="FOR "
=putIt(SUBS(lcLeft,5))
LOOP
ENDIF
IF LEFT(lcLeft,2)="M."
lcLeft=SUBS(lcLeft,3)
ENDIF
IF "&" $ lcLeft
LOOP
ENDIF
IF " " $ lcLeft OR "." $ lcLeft
LOOP
ENDIF
=putIt(lcLeft)
NEXT

= ASORT(laLocals)

gclocals="LOCAL "
lcPrefix="@@"
FOR lnLine=1 TO gnLocals
lc=laLocals(lnLine)
IF LEN(lc)>1
lc=LOWER(LEFT(lc,2))+UPPER(SUBS(lc,3,1))+IIF(LEN(lc)>3,SUBS(lc,4),"")
ll = lcPrefix # LEFT(lc,2) AND lnLine>1
lcPrefix=LEFT(lc,2)
ELSE
lc=LOWER(lc)
ll=.F.
ENDIF
gclocals=gclocals+IIF(ll,TAB+";"+CRLF+TAB,"")+ lc+IIF(lnLine=gnLocals,"",", ")
NEXT
i=0
lcOther=""
FOR lnLine=1 TO gnOther
lc=gaOther(lnLine)
lcOther=lcOther+IIF(i>6,CRLF,"")+ lc+IIF(lnLine=gnOther,"",", ")
i=IIF(i>6,0,i+1)
NEXT

lc=IIF(LEN(gclocals)<7,"","Карман @"+gclocals) ;
+IIF(EMPTY(lcOther),"","@@Другие : "+lcOther)
IF !EMPTY(lc)
IF messagebox(lc,292,"Делать вставку?")=7
_CLIPTEXT=gclocals+CRLF
RETU
ENDIF
ELSE
= messagebox ("OK",0,'')
RELEASE la
RETURN
ENDIF

lnInsert=0
lnTabs=0
FOR lnLine=1 TO lnLines
lcLeft4=UPPER(LEFT(ALLT(CHRT(la(lnLine),TAB," ")),4))
IF INLIST(lcLeft4,"FUNC","PROC","PARA","LPAR") ;
OR "#" $ lcLeft4 OR LEFT(lcLeft4,1)="*"
LOOP
ENDIF
lnInsert=lnLine
lnTabs=OCCURS(TAB,la(lnLine))
EXIT
NEXT
IF BETW(lnInsert,1,lnLines) AND LEN(gclocals)>6
lc=""
FOR lnLine=1 TO lnInsert-1
lc=lc+la(lnLine)+CRLF
NEXT
lc=lc+IIF(lnTabs>0,REPL(TAB,lnTabs),"")+gclocals+CRLF
FOR lnLine=lnInsert TO lnLines
lc=lc+la(lnLine)+CRLF
NEXT
_CLIPTEXT=lc
KEYBOARD '{CTRL+V}'
RETURN
ENDIF
_CLIPTEXT=gclocals+CRLF

FUNC putIt
LPARA lc
lcUp=UPPER(lc)
IF EMPTY(lc)
RETURN
ENDIF
IF " "+lcUp+" " $ gcExclude
RETU
ENDIF
IF "(" $ lc
RETU
ENDIF
IF ! INLIST(LEFT(lcUp,2) , "LC", "LD", "LT", "LU", "LN", "LL", "LO") ;
AND !LEFT(lcUp,1) $ "IJ"
IF ASCAN(gaOther,lcUp)>0
RETU
ENDIF
gnOther=gnOther+1
DIME gaOther(gnOther)
gaOther(gnOther)=lcUp
ELSE
FOR lnLine=1 TO ALEN(laLocals)
IF UPPER(laLocals(lnLine))=lcUp
RETU
ENDIF
NEXT
gnLocals=gnLocals+1
DIME laLocals(gnLocals)
laLocals(gnLocals)=lc
ENDIF
RETU

Стараюсь избегать коротких имен. Раньше писал, например,
FOR i=1 to N
…
Next
Когда требовалось найти или переименовать переменую i, то натыкался на массу слов, в которых есть эта буква. Сейчас пишу
FOR lnLine=1 TO lnLines
…
NEXT

Во-первых, знаю, что речь идет о строке (Line) и, что их количество lnLines, а не безликое N.

1. Проблема открытия и закрытия файла
Не люблю сообщений “file is in use” и ему подобных.
Две подпрограммы AutoLoad(‘список файлов’) и Unload() помогают жить.
lcListOfFiles = AutoLoad(‘partners;people’)
В переменную lcListOfFiles попадает информация для каждого файла из списка о том, был ли он до того открыт. После вызова AutoLoad все файлы будут открыты, если они вообще видны.
Далее с помощью
=Unload(lcListOfFiles)
закрываются файлы, которые ранее не были открыты.
Написать подобные подпрограммы может каждый. В моих присутствует дополнительный код, нужный не каждому.
С помощью подпрограммы Close(‘список файлов’) закрываю файл, если от открыт

FUNC Close
LPARA lc1,lc2,lc3,lc4,lc5,lc6,lc7,lc8,lc9,lc10, ; lc11,lc12,lc13,lc14,lc15,lc16,lc17,lc18,lc19,lc20
LOCAL lc, lcFile, lnCol, lnCols, lnLine
LOCAL la(1)
FOR lnLine=1 TO PARA()
lc=EVAL('lc'+ALLT(STR(lnLine)))
IF TYPE('lc')='C'
lc=ALLT(lc)
lnCols=ALINE(la,lc,',')
FOR lnCol=1 TO lnCols
lcFile = ALLTRIM(la(lnCol))
IF USED(lcFile)
SELECT (lcFile)
USE
ENDIF
NEXT
ENDIF
NEXT

Недавно решил, что и этого мало. Добавил 2 функции. Первая запоминает имена открытых в данный момент файлов. Второй передаю этот список и она закрывает все, что в этот список не входит.
Перед вызовом формы или программы запоминаю то, что открыто, а на выходе закрываю то, что открывалось внутри. Особенно хорошо при коллективном творчестве. Вызываю что-то не мной писанное и не боюсь, что там не закрываются файлы. Опять же SQL любит открывать, а закрывать самому нужно.

3. Оператор Try … EndTry
Программа или ее часть, которая не прошла тяжелую обкатку можно поместить в Try … EndTry. На Catch’е включаю ERRTRAP. При ошибке юзер за один раз проталкивает программу и не попадает в ошибки – следствия первоначальной, а они могут оказаться в цикле и проталкивать больше 1000 раз многие из моих юзеров не любят.
Со временем Try … EndTry можно и убрать.

4. Файл Errors можно смотреть через Browse, но можно написать свою форму для его просмотра, а вызов ее где-то завуалировать или явно поставить где-нибудь в Top Menu.

5. Ошибки – это хорошо. Только их надо исправлять и думать как в следующий раз таких не допустить. Благодаря ошибкам идет развитие программиста как личности. Начинаешь другим прощать ошибки, становишься лучше. Многие из нас хвастаются ленью. Я, мол, ленивый и, поэтому сразу пишу гениально. Потом оказывается, нашлись еще более гениальные ошибки. Хорошо, если это ошибки MicroSoft и своя гениальность (не путать с генитальностью) вне сомнений. Иначе лучше лениво молчать об этом.
Даже если Вы ленивый гений, подумайте как быстро и проще исправлять ошибки. Ошибку в .prg легко исправить, если его нет в проекте. Все включать в проект, т.е. в ехе не обязательно. Frx вообще в проект лучше не включать. Делайте вызов в виде:
lcPrg=’alfa’
do &lcPrg with …

Alfa.prg не будет автоматически включена в проект и Вы сможете отредактировать ее на месте (у юзера).
На этом подходе мной с коллегами создан Framework, который одновременно является выполняемой программой и средством разработки и отладки. Он позволяет без инсталляции Fox’а у юзера исправлять ошибки и модифицировать и отлаживать программу на месте. Это еще называют «на лету». Конечно, создать свой Framework не так быстро. На первых порах можно просто не включать в проект все подряд.
Имея модемную связь с юзером, можно отсылать ему отдельно изменения в формах, репортах, подпрограммах. Лишь бы их не было в проекте.

5. Вынесите Public – переменные, которые могут со временем меняться в отдельную форму, где юзер при необходимости может их сам исправить.
Некоторые прогмены этого не любят. Мол, пусть юзер знает за что платит. Попросит, тогда и сделаю.
Если программа тиражируется, накладно объезжать всех юзеров, да и надо же любить юзера, а не держать его в напряжении даже если он Вас в напряжении держит.

Заключение.

Если Вам покажется часть изложенного правдой, найдите еще что-то свое, что упростит ваше будущее. За юзера сегодня приходится бороться, ведь альтернатива – это работа не по специальности и не по призванию. Вместо ощущения пластмассовости клавиш на кончиках пальцев и общения с коллегами на комповом сленге ощущение дискомфорта от выполнения работы, в которой нет романтики (смотри эпиграф в начале статьи)

Автор: Юдин А.Ю.

Автор публикации

не в сети 20 лет

Ydin

Комментарии: 0Публикации: 3Регистрация: 16-12-2005

(далее…)

]]> https://foxclub.ru/knowledgebase/interaktivnyj-vybor-iz-spiska/ Fri, 28 Aug 2020 11:32:27 +0000

Интерактивный выбор из списка

Класс с объектом для интерактивного выбора из списка. Класс написан на базе Shape и элементов управления Label и List. Контрол представляет собой аналог ComboBox с инкрементным поиском в списке.

Интерактивный выбор из списка

ICmb.vcx - класс с контролом для интерактивного выбора из списка
Test.scx - тестовая форма
SprFm.dbf - справочник фамилий
SprIm.dbf - справочник имен
SprOt.dbf - справочник отчеств

Класс имеет следующие встроенные свойства:

STbl - источник данных (обязательная опция)
SFld - поле источника данных (обязательная опция)
CPos - символьная позиция, с которой ведется
поиск в поле источника данных (обязательная
опция)

Источники данных помещаются в DataEnvironment формы.

BClr - цвет фона для различных элементов класса
SObj - имя контрола на форме рядом с объектом
класса. Указанный контрол получает фокус при
нажатии клавиши Enter (опция необязательная, но в
некоторых ситуациях нужная)

Для правильной организации работы требуется
расположение объекта класса на форме по
графическому уровню (ZOrder) на переднем плане
(меню VFP: Format / Bring to Front). Это
необходимо для того, чтобы элемент управления
List, в котором отарывается список, не
"подныривал" под другие элементы управления,
расположенные на форме чуть ниже объектов класса.

Класс создавался и тестировался в среде VFP9 и
VFP7. На более ранних версиях не проверялось.

Автор: Alex Roublev

Автор публикации

не в сети 24 года

Alex Roublev

Комментарии: 0Публикации: 3Регистрация: 28-09-2002

(далее…)

]]> https://foxclub.ru/knowledgebase/kadendar-s-prazdnikami/ Fri, 28 Aug 2020 11:32:27 +0000

Кадендарь с праздниками

Маленький календарь с праздниками. Написан для Германии, но все очень прозрачно

Автор: Penner

Автор публикации

не в сети 24 года

Penner

Комментарии: 0Публикации: 1Регистрация: 26-04-2002

(далее…)

]]> https://foxclub.ru/knowledgebase/eshhe-raz-k-voprosu-o-nevernom-otobrazhenii-otdelnyh-simvolov/ Fri, 28 Aug 2020 11:32:27 +0000

Еще раз к вопросу о неверном отображении отдельных символов

Дополнение к инструкции Владимира Максимова "Неверное отображение отдельных символов или несовпадение кодовых страниц"

Еще раз к вопросу о неверном отображении отдельных символов

Вот еще одно свежее (для меня, во всяком случае 😉 дополненьице.
При введении данных в поля character в форме - сначала все нормально, но при переходе в иное поле (хошь клавой, хошь мышем, хошь как 😉 некоторые русские буквы вне зависимости от того, где именно в слове они располагаются, заменяются на аглицкие, сиречь латинские. Например, вводим "русский", а при переходе в иное поле получаем "dусский". И не побороть это было никак!
Fox у меня 8-й, аглицкий (дареному коню, знаете ли...), установка полная, операционка XP Pro, т.е. все нужные файлы присутствуют. Настройки сделаны все (именованные коллегой выше и еще некоторые). Кодовые страницы - исключительно принудительные, 1251-е. Операционная система настроена вся.
Кстати,
>Т.е. надо влезть в системный реестр и поменять все ссылки с 1252 на 1251. К сожалению, я не могу указать полный перечень адресов, где такая замена необходима.

В реестре вводите строку поиска "1252" и везде, где в содержимом энта пакость проявится - прописываете "1251". Для пущей стабильности я оное действие проделал и с параметром "1250".

К сожалению, все это не помогло. Вернее, в пределах самой Фоксы - оные действия пользу принесли. Но вот при запуске компилированных приложений (от .app до TopLevel exe) - увы...
Не спасла даже подмена кодовых таблиц *.cpx на русские внутри, но с аглицкими именами.

А лечилось все до противности просто - вместо Character в редакторе структуры таблицы прописываете Character(binary), или, если таблиц много, а времени мало - делаете простую программку:

USE old.dbf
COPY STRUCTURE EXTENDED TO old_ext
SELECT b
USE old_ext
GO TOP
REPLACE field_nocp WITH .T. all FOR field_type=[C]
GO TOP
CREATE new from old_ext

Можно, конечно и лучше, но уж очень некогда было...

Автор: Wild Kitten

Автор публикации

не в сети 6 месяцев

admin

Комментарии: 1Публикации: 123Регистрация: 10-12-2000

(далее…)

]]> https://foxclub.ru/knowledgebase/grid-trehurovnevyj-spravochnik/ Fri, 28 Aug 2020 11:32:27 +0000

Grid – трехуровневый справочник

Трехуровневый справочник с использованием Grid для подготовки условий отчета

Grid - трехуровневый справочник

Такой себе простенький трехуровневый справочник для подготовки условий отчета с исполь-
зованием Grid.Представляется как возможный путь реализации многоуровневого справочника.
Функции редактирования отсутствуют,однако,IMHO,добавить таковые дело техники,если посмотреть поле U0.spskno(см.прилагаемый пример TestSpr.zip).В решении использованы публикации форума,в частности гг.Жихарева,Равиля и др. Отсутствие сортировки по наимениванию компенсируется наличием инкрементного поиска.Управление справочником описано в ToolTipText объектов.Глюков я не обнаружил.(может и есть).
Прошу строго не судить.
Используется в VFP8.

Автор: Aptex

Автор публикации

не в сети 22 года

Aptex

Комментарии: 0Публикации: 2Регистрация: 07-11-2003

(далее…)

]]> https://foxclub.ru/knowledgebase/generator-messagebox/ Fri, 28 Aug 2020 11:32:27 +0000

Generator MessageBox()

Генератор МессажеБокс

Автор: halk

Автор публикации

не в сети 2 месяца

Joys

Комментарии: 2Публикации: 177Регистрация: 25-06-2000

(далее…)

]]> https://foxclub.ru/knowledgebase/generacziya-koda-programmy-sozdayushhej-tabliczy-bazy-dannyh-na-osnove-uzhe-sozdannoj-bazy-dannyh/ Fri, 28 Aug 2020 11:32:26 +0000

Генерация кода программы, создающей таблицы базы данных на основе уже созданной базы данных

Создание таблиц базы данных - дело вкуса каждого разработчика. Я создаю их оператором Create table - это очень удобно - не надо помнить структуру таблиц - они все есть в коде. Ну а если вы любите создавать таблицы дизайнером, то моя программа поможет создать код, создающий таблицы указанной базы данных. Затем этот код можете использовать по своему усмотрению. Кроме этого создаются функции индексирования таблиц на основе существующих индексов.

Генерация кода программы, создающей таблицы базы данных на основе уже созданной базы данных

set safety off
dir_windows_temp=addbs(sys(2023))
dbcfile=getfile('dbc','database') && source database
pathtbl=addbs(justpath(dbcfile))
dbcname=justfname(dbcfile)
out=putfile('txt') && target txt-file
strtofile('',out)
strtofile('if !file("'+dbcname+'")'+chr(13),out,.t.)
strtofile(chr(9)+'create data '+dbcname+chr(13),out,.t.)
strtofile('else'+chr(13),out,.t.)
strtofile(chr(9)+'open data '+dbcname+chr(13),out,.t.)
strtofile('endif'+chr(13),out,.t.)

if !empty(dbcfile) and !empty(out)
use "&dbcfile" in 0 alias dbctable again
select objectname,objectid from dbctable;
where UPPER(objecttype)='TABLE' into cursor dbccursor
use in dbctable
go top in 'dbccursor'
do while !eof('dbccursor')
tbl=alltr(dbccursor.objectname)
objid=dbccursor.objectid
if !file(pathtbl+alltr(tbl)+'.dbf')
messagebox('There are no table '+alltr(tbl)+', enter path to it.',16,'')
lf=locfile(tbl)
tbl=juststem(lf)
if !used(tbl)
use "&lf" in 0
endif
else
if !used(tbl)
use "&pathtbl.&tbl" in 0
endif
endif

sele &tbl
if used('stbl')
use in 'stbl'
endif
copy stru exte to &dir_windows_temp.stbl
use &dir_windows_temp.stbl
sele stbl
go top
strtofile('if !file("'+alltr(tbl)+'.dbf")'+chr(13),out,.t.)

cmd=chr(9)+'CREATE TABLE '+allt(Table_name)+'(;'+chr(13)+chr(9)+' '
strtofile(cmd,out,.t.)
cmd1=allt(Field_name) +' '+;
allt(Field_type)+;
iif(Field_type='M','','('+;
allt(str(Field_len))+;
iif (Field_type='N',','+allt(str(Field_dec))+')',')')+;
iif(!empty(field_null),' NULL','')+;
iif(!empty(field_defa),' default '+allt(field_defa),''))
strtofile(cmd1,out,.t.)
cmd2=''
do while !eof('stbl')
skip
if !empty(Field_name)
cmd2=cmd2+',;'+chr(13)+chr(9)+' '+;
allt(Field_name) +' '+;
allt(Field_type)+;
iif(Field_type='M','','('+;
allt(str(Field_len))+;
iif (Field_type='N',','+allt(str(Field_dec))+')',')')+;
iif(!empty(field_null),' NULL','')+;
iif(!empty(field_defa),' default '+allt(field_defa),''))
endif
enddo
strtofile(cmd2,out,.t.)

strtofile(')'+chr(13),out,.t.)
strtofile(chr(9)+'reindex'+tbl+'()'+chr(13),out,.t.)
strtofile('endif'+chr(13),out,.t.)

*** create indexes
strtofile('function reindex'+tbl+chr(13),out,.t.)

use "&dbcfile" in 0 alias dbctable again
* strtofile(chr(9)+'use '+alltr(tbl)+' in 0 excl'+chr(13),out,.t.)
select objectname from dbctable;
where UPPER(objecttype)='INDEX' and parentid=objid;
into cursor objindex
use in dbctable
do while !eof('objindex')
strtofile(chr(9)+'index on '+alltr(objindex.objectname)+' tag '+alltr(objindex.objectname)+chr(13),out,.t.)
skip in 'objindex'
enddo
strtofile('return'+chr(13),out,.t.)
****************
skip in dbccursor
enddo
endif
*use in dbctable
use in dbccursor
use in objindex

Автор: oc3

Автор публикации

не в сети 25 лет

Serguei Otchirov

Комментарии: 0Публикации: 2Регистрация: 16-05-2001

(далее…)

]]> https://foxclub.ru/knowledgebase/mini-tree-v-grid/ Fri, 28 Aug 2020 11:32:27 +0000

Мини Tree в Grid

Иногда необходимо представлять данные в Grid в виде дерева. Конечно это не "полное дерево" а только один открытый узел

Запустите форму tgrid.scx Подход следующий: 1. формируем по Id записи список Id записей источника отображающих структуру дерева 2. выполняем запрос к источнику используя список этих Id Данный пример для свободных таблиц Также включен пример просмотра и редактирования prg-кода

Автор: AlexK

Автор публикации

не в сети 10 месяцев

AlexK

Комментарии: 0Публикации: 9Регистрация: 11-12-2000

(далее…)

]]> https://foxclub.ru/knowledgebase/interpretator-komand-udobnyj-dlya-raboty-programmista-u-polzovatelya-i-resajzer/ Fri, 28 Aug 2020 11:32:27 +0000

Интерпретатор команд, удобный для работы программиста у пользователя и ресайзер

Часто бывает нужно, находясь у пользователя, выполнить несколько команд, известных только тебе, а устанавливать фоксовскую среду нехорошо. Представляемый класс, именуемый "MicroFox", исполнит ваши желания, если его внедрить в тело проекта в какое-нибудь меню "Сервис" или на скрытую комбинацию клавиш. Здесь же реализован ресайзинг (он листбоксы ресайзит с шириной колонок и любые вложенные объекты)

Интерпретатор команд, удобный для работы программиста у пользователя

Запуск:
set classlib to microfox additive
oMicroFox=createobject('execcmd')
oMicroFox.show()

Автор: oc3

Автор публикации

не в сети 25 лет

Serguei Otchirov

Комментарии: 0Публикации: 2Регистрация: 16-05-2001

(далее…)

]]> https://foxclub.ru/knowledgebase/primer-ispolzovaniya-winsock/ Fri, 28 Aug 2020 11:32:26 +0000

Пример использования WinSock.

Две программы: клиент и сервер. К серверу возможно одновременное подключение до 65000 клиентов.

Пример использования WinSock.

Две программы: клиент и сервер. К серверу возможно одновременное подключение до 65000 клиентов. Обе программы на VFP. Нужен WinSock ActiveX control. Будут вопросы, пишите на емайл. С удовольствием отвечу. 🙂 Если знаю.

Автор: ВВК

Автор публикации

не в сети 6 месяцев

admin

Комментарии: 1Публикации: 123Регистрация: 10-12-2000

(далее…)

]]> https://foxclub.ru/knowledgebase/poluchenie-informaczii-o-vinchestere-provereno-v-win2k-i-win9x/ Mon, 21 Nov 2022 09:05:47 +0000

Получение информации о винчестере. Проверено в Win2K и Win9x

Получает серийный номер диска только для IDE

&& Программа получает серийный номер диска && OS Win9x WinNT Win2000 WinXp && для Win98 необходимо скопировать файл smartvsd.vxd в директории C:WindowsSystemIOSubSys && по умолчанию он находится в C:WindowsSystem && после копирования перезагрузить компьютер

Автор: Samsonov

Автор публикации

не в сети 6 месяцев

admin

Комментарии: 1Публикации: 123Регистрация: 10-12-2000

(далее…)

]]> https://foxclub.ru/knowledgebase/neskolko-neobychnyj-menedzher-proektov/ Fri, 28 Aug 2020 11:32:26 +0000

Несколько необычный менеджер проектов.

Сделан для облегчения тяжкого труда програмеров 🙂 Особенно если приходится вести проекты написанные в разных версиях VFP. Просто и удобно. Надеюсь и вам пригодится.

Несколько необычный менеджер проектов. Надеюсь вам понравиться

Требования к установке -- VFP с runtime обязательно не ниже VFP6 !)
Работает со ВСЕМИ версиями VFP!!! от 3 до 8 проверено.

Решил я написать данное средство после прочтения FAQ на сайте. Точнее, после прочтения «Советы начинающим » от Владимира Максимова. Вот ссылка на тот раздел советов, который меня собственно и убедил взяться за работу: http://www.foxclub.ru/kb/index.php?sid=46732&aktion=artikel&rubrik=004&id=5&lang=ru#OpenProject

Описанный В.Максимовым метод запуска проекта считаю одним из самых удобных и надежных, самое важное, не надо запоминать, в какой версии VFP написан проект. Разные проекты запускаются с разными конфигурационными файлами «config.fpw» и в отдельных окнах, что исключает многие ошибки, связанные с настройками среды.

Но создание нового проекта и ссылки на него занимало хоть и не слишком много времени – но сильно раздражало меня. И вот решился упростить эту задачу.
Во время разработки решил сделать и мастер создания нового проекта, и мастер добавления.

Итак, как этот менеджер использовать?
1. Загружаем архив с сайта
2. запускаем Setup.prg в той версии VFP runtime к которой у вас установлен (обязательно не ниже VFP6 !)
3. после запуска у вас на рабочем столе и в папке “Мои документы” появиться ссылка на папку «Управление проектами VFP» ,открыв которую вы и увидите
две ссылки. Первая - _CreateNewProject – для создания нового проекта.
Вторая - _AddProject – соответственно для добавления быстрой ссылки на существующий проект.

Буду очень признателен за любые отзывы и комментарии. Если встретите ошибки – пишите, буду исправлять.

Появятся пожелания – пишите.

Автор: Nikolai Kremko

Автор публикации

не в сети 24 года

Nikolai Kremko

Комментарии: 0Публикации: 2Регистрация: 30-08-2002

(далее…)

]]> https://foxclub.ru/knowledgebase/eshhe-odin-samopisnyj-combobox/ Fri, 28 Aug 2020 11:32:23 +0000

Еще один самописный ComboBox

Увидел в очередной раз ComboBox в IExplorer-e и подумал - Хочу такой-же с возможностью поиска и т.д.

Увидел в очередной раз ComboBox в IExplorer-e и подумал - Хочу такой-же с возможностью поиска и т.д. Написал но не до конца. Есть глюки. Поэтому, чтобы быстрее их отловить выкладываю на форум. Например не убирается список подсказок при нажатии Tab на поле ввода. А из плюсов вот: Сделал поле ввода - EditBox с появляющимися полосами прокрутки при вводе. Возможно использовать символы * ?. (Т.к. использовал Like()) Интерактивная подстановка значений из справочника по первым введенным буквам. Если значение не найдено - подсвечевается красным и при Valid срабатывает пользовательская процедура AddNew. Не судите строго - задумка хорошая, но не доделанная 🙂 А да, в архиве - таблица (выдернул из своего проекта) из швейной фабрики 🙂 На ней и тестировал. 28.05.04 Выложил новую версию.

Автор: Петров Андрей

Автор публикации

не в сети 24 года

Петров Андрей

Комментарии: 0Публикации: 14Регистрация: 17-04-2002

(далее…)

]]> https://foxclub.ru/knowledgebase/poluchenie-informaczii-o-vinchestere-provereno-v-win2k/ Fri, 28 Aug 2020 11:32:26 +0000

Получение информации о винчестере. Проверено в Win2K

Библиотека для получения SN Модели а также Revision Number винчестеров сканируемого компьютера

Получение информации о винчестере. Проверено в Win2K

Пример лежит в архиве.

Собственно поменяйте метод My_Id_Hdd.FindHDD и будет вам счастье 🙂

Программа сделана по мотивам С++ кода (файл IdeShowB.ZIP) но не до конца переведена на VFP. Так как в С исходниках осталось еще много кода то рискну предположить что не получится с ней работать под Win98. Но не тестил пока...

Автор: Петров Андрей

Автор публикации

не в сети 24 года

Петров Андрей

Комментарии: 0Публикации: 14Регистрация: 17-04-2002

(далее…)

]]> https://foxclub.ru/knowledgebase/sinhronizacziya-struktury-bd-s-ispolzovaniem-speczialnogo-slovarya/ Fri, 28 Aug 2020 11:32:26 +0000

Синхронизация структуры БД с использованием специального словаря.

Утилита позволяет создавать словарь структуры БД FoxPro и корректировать структуру в соответстви с этим словарем. Поддерживаются изменения в структуре таблиц (включая все их свойства и свойства полей), индексов, хранимых процедур, связей и RI-ограничений.

Синхронизация структуры БД с использованием специального словаря.

Нередко возникает ситуация - изменения в приложении затронули структуру базы данных, например добавились новые поля, индексы или изменен код хранимой процедуры и надо внести эти изменения в рабочие БД установленные на компьютерах клиентов.
Можно, конечно, каждый раз писать небольшую программу выполняющую конкретные модификации, но в этом случае разработчик вынужден очень внимательно следить за вносимыми изменениями.
Предлагаемая утилита предназначена для простого решения этой проблемы. Сперва разработчик с помощью утилиты создает словарь - файл в котором содержится эталонная структура БД. Затем на рабочих БД выполняется процедура обновления в соответствии с этим эталоном. В данной версии утилита способна учитывать следующие объекты и свойства контейнера базы данных:
1. Таблицы
1.1 Имя файла таблицы и ее относительный путь, имя таблицы.
1.2 Триггеры и правила
1.3 Комментарии
2. Поля таблиц
2.1 Имя поля, тип, длина, флаги NOT NUL, NO CP TRANS
2.1 Правило поля, обработчик ошибки правила поля, значение по умолчанию
2.3 Заголовок, комментарии
3. Индесы CDX
3.1 Имя тега, Индексное выражение
3.2 Предложение FOR
3.3 Тип индекса (PRIMARY, CANDIDATE, REGULAR)
3.4 Настройку COLLATE
4. Постоянные связи между таблицами
5. Хранимые процедуры
6. Дополнительную информацию используемую стандартным построителем отношений
ссылочной целостности (RI).
Т.о. свойства перечисленных объектов утены полностью.
Программа содержит все необходимые проверки, корректно обрабатывает взаимозависимые объекты и может использоваться как для синхронизации структур так и для создания пустой БД. Результаты работы выводятся в log-файл.
Утилита расчитана на работу с контейнером DBC. Свободные таблицы не поддерживаются. Разрабатывалась и тестировалась на VFP6.0 SP5. Для работы необходимо, чтобы на компьютере была установлена Run-time часть Visual Fox Pro.

Автор: matod

Автор публикации

не в сети 6 месяцев

admin

Комментарии: 1Публикации: 123Регистрация: 10-12-2000

(далее…)

]]> https://foxclub.ru/knowledgebase/preobrazovanie-formata-tekstovogo-fajla/ Fri, 28 Aug 2020 11:32:26 +0000

Преобразование формата текстового файла.

Обработка текстового файла, содержащего Enterы в конце каждой строки. Enterы удаляются. Оставляются только в конце абзаца. После обработки текст можно перенести в Word и там его переформатировать.

Автор: timo

Автор публикации

не в сети 6 месяцев

admin

Комментарии: 1Публикации: 123Регистрация: 10-12-2000

(далее…)

]]> https://foxclub.ru/knowledgebase/ispolzovanie-form-v-foxpro/ Sat, 19 Nov 2022 17:31:52 +0000

Использование форм в FoxPro

В этой статье :

1. Запуск формы
2. Именование форм
3. Последовательность событий в форме
4. Сессии данных
5. Модальность и немодальность
6. Передача параметров между формами и методами
7. Делегирование методов
8. Закрытие формы
9. Горячие клавиши на формах

В большинстве случаев основным звеном программы является форма. Именно посредством форм пользователь оперирует данными – вводит и модифицирует их. По большому счёту, форма – вот и всё что видит пользователь проводимое за работой с программой время. Поэтому создатель программы должен уделять формам достойное внимание. Рассмотрим поподробнее работу с формами, свойства, методы и события форм, а также связанные с этим неочевидные подробности. Итак, приступим.

1. Запуск формы

Обычно запуск форм осуществляется посредством тривиальной команды DO FORM <имя_формы> из кода программы или же в командном окне среды разработки VFP, а также путём выбора нужной формы в менеджере проектов на закладке Documents и нажатием кнопки Run (или же из меню среды разработки).

Вот тут и может возникнуть одна “тонкость”. Конечно, форма в самом простом случае может быть независимой от других объектов создаваемого приложения или иных условий. Но это только в самом простом случае. Зачастую ситуация складывается совсем по другому - форма запускается из меню или из другой формы. Формы должны уметь “разговаривать” друг с другом, обмениваться информацией. В общем случае запуск формы ставиться в зависимость от ряда условий, параметров или от других форм. Вот тут и приходит на помощь метод известный как принцип свободных связей. Конечно, это не есть панацея и не является обязательным для применения во всех случаях, но это стоит взять на вооружение как хорошую технику программирования. Заключается он в том, что форма должна иметь возможность запуска не только в конкретном месте с конкретными условиями, но и сама по себе (хотя бы в случае тестирования) вне зависимости от требований, налагаемых приложением и уметь функционировать в чрезвычайных ситуациях. Как пример рассмотрим возможную организацию вашего приложения:

1. В приложении имеется некоторый “менеджер” форм, который отвечает за запуск форм, их состоянием, доступностью, закрытием и т.п.
2. Этот менеджер имеет некий метод DoForm() для запуска и установки связей между формами и самим приложением
3. Менеджер всегда устанавливает ссылочную связь для того, чтобы легко можно было обмениваться данными или сообщениями между формами и самим менеджером посредством передаваемых параметров.

Для того чтобы осуществить такой замысел, как вы понимаете стоит завести класс формы с методом DoForm(), который будет передавать имя формы и другие необходимые параметры менеджеру форм, сообщать ему, какую форму требуется запустить. Вполне допустимо передавать не только имя формы , но и саму ссылку на форму, для этого можно смело использовать слово THISFORM.

* Init() Method LPARAMETERS toFormManager IF toFormManager) = ""O"" ThisForm.oFormManger = toFormManager ENDIF * DoForm() Method LPARAMETERS tcFormName, tuParm1, tuParm2 IF VARTYPE(ThisForm.oFormManager) = ""O"" ; AND NOT ISNULL(ThisForm.oFormManager) ThisForm.oFormManger.DoForm(tcFormName,tuParm1,tuParm2) ELSE DO CASE CASE PCOUNT() = 1 DO FORM (tcFormName) WITH .NULL. CASE PCOUNT() = 2 DO FORM (tcFormName) WITH .NULL., tuParm1 CASE PCOUNT() = 3 DO FORM (tcFormName)WITH .NULL.,tuParm1,tuParm2 ENDCASE ENDIF

Вся изюминка тут заключается в том, что форма может запускаться, используя этот менеджер форм, но в тоже время способна работать и без него. Этот пример показателен тем, как можно строить универсальные, на предмет зависимости от внешних условий , формы. Разработчик должен достаточно серьёзно относиться к этому вопросу хотя бы потому, что обычно на этапе разработки формы делаются в некой очередности, и не всегда до конца, но любая из них нуждается в независимом от других форм тестировании, которые могут к данному моменту или не существовать, или быть весьма “сыры”.

2. Именование форм.
По умолчанию запущенная форма принимает имя файла с расширением .scx в котором она собственно хранится. Однако внутри приложения, если не принять специальных мер, она известна по этому имени только в коллекции форм переменной _SCREEN. Но это имя можно изменить, явно указав имя командой при запуске формы.

DO FORM MyForm NAME frmMyForm

причём выполнив команду

DO FORM MyForm NAME frmMyForm2

получим второй экземпляр формы, но с другим именем.
Необходимо обратить внимание на ещё один аспект команды DO FORM – выполнение её с ключевым словом LINKED:

DO FORM MyForm NAME frmMyForm2 LINKED

В этом случае форма MyForm ассоциируется с переменной frmMyForm2, и теперь обращаться к свойствам и методам формы можно посредством этой переменной:

frmMyForm2.Caption =’Это заголовок формы’

Особенностью такого запуска является то, что форма MyForm будет закрыта при освобождении переменной frmMyForm2. Часто такую переменную определяют как public еще до запуска формы. При этом, если из формы вышли обычным способом, для ясности нужно или очистить переменную или также освободить ее – выполнить RELEASE frmMyForm2.

Если переменная локальна, то закрытие формы гарантируется после окончания выполнения метода или процедуры , в котором создавалась переменная. Следует однако заметить, что форма (равно как и любой объект) не может быть закрыта пока не окончено выполнение какого либо её метода или же имеется ссылка на неё в каком то из объектов приложения. Определения public или local сразу для всех вызванных позднее форм позволяют не следить, какая форма вызвана первой, а какая после нее, и тем самым облегчают организацию обмена между формами.

Рассмотрим так же ситуацию, когда форма не модальна и запущена без ассоциаций из метода (или события) какой либо формы:

DO FORM MyForm NAME MyStartedForm

Переопределим имя вновь запущенной формы в пределах этого метода (поскольку переменная MyStartedForm будет освобождена после исполнения метода и станет недоступной)

MyStartedForm.Name="MyFormWithNewName"

Теперь, для того чтобы получить доступ к этой запущенной форме обратимся к коллекции форм объекта _Screen и выполним поиск:

LOCAL lnFormCount, lnFindForm lnFindForm=0 FOR lnFormCount = 1 TO _SCREEN.FORMCOUNT IF _SCREEN.FORMS(lnFormCount).NAME = "MyFormWithNewName" lnFindForm= lnFormCount EXIT ENDIF ENDFOR

Если форма найдена и lnFindForm>0 , можно обращаться к форме через элемент коллекции _Screen :

_SCREEN.FORMS(lnFindForm).Caption=”Та самая форма” _SCREEN.FORMS(lnFindForm).SomeMethod()

Эти операции по поиску формы в коллекции через её имя можно выделить в отдельную процедуру или метод объекта приложения (если таковой имеется) в собственном наборе классов или же в уже упомянутом менеджере форм. Стоит учесть, что поиск формы необходимо производить непосредственно перед обращением к ней, поскольку индекс формы в коллекции динамически изменяется при запуске или закрытии форм в приложении.

Иногда бывают ситуации, когда нужно обратиться к форме в отрыве от её контекста, например в методе глобального объекта приложения или при обращении из кнопки тулбара, когда обращение THISFORM не может быть применено. В этом случае также можно обратиться к форме через коллекцию _Screen :

_Screen.ActiveForm.Caption=”Это и есть активная форма” _Screen.ActiveForm.SomeMethod()

Раз уж упомянут тулбар, ясно , что в нем могут быть разные клавиши с разной функциональностью - сохранить, отменить, новая запись, найти и другие. Все эти клавиши аналогичным образом могут вызывать методы активной в данное время формы. Однако, далеко не все формы являются однотипными, какие то могут быть только формами поиска без возможности ввода, другие напротив, только вводить информацию. Поэтому во избежании ошибочной ситуации кнопки тулбара должны уметь проверить, а есть ли на активной в данное время форме нужный им для работы метод, скажем так –

If type( ‘_Screen.ActiveForm’)=’O’ and pemstatus(_Screen.ActiveForm,’DoSomthing’,5) _Screen.ActiveForm.DoSomething endif

В форме, требующей параметров, в методе Init() производят их описание командой LPARAMETERS.
Именно туда попадают параметры , переданные при запуски формы с опцией WITH. Запуск такой формы выглядит следующим образом :

* метод Init() формы MyForm LPARAMETERS lcNewCaption If !empty(lcNewCaption) Thisform.Caption= lcNewCaption Endif * запуск формы DO FORM MyForm WITH “Новый заголовок формы”

Иногда нужно запустить форму, но до наступления определённых условий она должна быть скрыта.Например, такое требуется при запуске модальной формы, когда сразу после ее вызова, но до реального появления на экране, нужно вызвать некоторые методы этой формы или сразу изменить значения каких либо свойств. Это позволяет одну и ту же форму сделать более гибкой , работающей и в режиме модальности и способной быть немодальной, а следовательно и избежать изготовления большего числа близких по виду форм. Используйте для этого опцию NOSHOW

DO FORM MyForm NOSHOW

При запуске формы из меню бывает необходимо исключить повторный её запуск. Для этого можно применить такой трюк – если в опциях пункта меню в раделе Skip For написать WEXIST ('имя_формы'), то при запуске формы пункт меню станет недоступным до её закрытия. Таким образом исключается повторный запуск желаемой формы. Правда стоит учитывать то, что если в процессе выполнения программы имя формы измениться, пункт восстановит свою доступность. Хотя мне кажется, что таких трюков стоит избегать, если хочется иметь по-настоящему мульти документный интерфейс.

3. Последовательность событий в форме.

Форма в чистом виде, без элементов управления и данных, которыми она должна манипулировать, интереса не представляет. Поэтому любая форма создаётся именно с целью оперирования данными с помощью элементов управления, включаемых в форму. Данные в VFP хранятся, естественно, в таблицах и подключаются к форме с помощью специального объекта Data environment. Рассмотрим последовательность событий при запуске формы, но останавливая внимание пока только на событиях самой формы.

Объект - Событие
Data environment - BeforeOpenTables
Form set - Load
Form - Load
Data environment cursor(s) - Init
Data environment - Init
Objects - Init
Form - Init
Form set - Init
Form set - Activate
Form - Activate
Object - When
Form - GotFocus
Object - GotFocus
Form - QueryUnload
Form - Destroy
Object - Destroy
Form - Unload
Form set - Unload
Data environment - AfterCloseTables
Data environment - Destroy
Data environment cursor(s) - Destroy

• Load() – первое в последовательности событий объекта форма. В этом событии ни один элемент лежащий на форме еще не родился и там бессмысленно помещать код вроде this.text1.value=’я’. Это событие рекомендуется использовать для выполнения настроек среды окружения. Особенно это актуально при использовании приватных сессий данных (этот вопрос рассмотрим ниже). Также, тут имеет смысл осуществить открытие таблиц и баз данных, не включаемых в объект Data environment.
  RETURN .F. в событии Load() отменяет дальнейшую загрузку формы. Если форма имеет private data session все открытые таблицы и полученные курсоры закрываются.
• Init() – событие при создании формы. Следует учесть, что элементы управления, помещённые на форму, создаются раньше формы, то есть событие Init() элементов происходит раньше, и поэтому в событии Init() формы уже можно обращаться к элементам управления формы. Включив оператор LPARAMETERS в событие формы, можно осуществить возможность передачи в неё параметров. Стоит заметить, что видимость этих переменных-параметров дальше события Init() не распространяется. Поэтому в случае необходимости стоит присвоить значения параметров созданным вами свойствам формы. Приведем пример достаточно типовой ошибки, переменные переданные в Init() используются в выражении для фильтра на какую либо таблицу , участвующую в работе формы. Естественно, после срабатывания события переменных уже нет, и фильтр становиться не работоспособным, так как его значение вычисляется в момент перемещения по записям. Если необходимо, создание и соответственно запуск формы можно прекратить, выполнив команду RETURN .F. Это удобно, например, для организации допуска к формам разным пользователям или проверки верности условий запуска формы, без правильности которых, далее форма не сможет верно функционировать.
• Activate() – активирование формы действиями пользователя, таким как щелчок мышью , или же когда вызывается метод SHOW() формы. Это событие при работе формы может срабатывать много раз, и иногда код, помещенный в него, может доставить разные проблемы. Скажем, там будет написан какой либо sql select
  Выполнили из формы печать отчета, вернулись в форму, событие снова отработало, и явно помешало работе элементов формы, скажем гриду, чьим источником может быть курсор sql select. Рекомендуем, если нет возможности помещения кода в это событие, проверять необходимость повторного запуска кода в нем, скажем, таким образом -

  If not this.old This.DoSomething This.old=.t. endif

  Не менее коварным может быть и элементарный код , помещенный в антипода упомянутого события – DEACTIVATE - которое тоже может многократно сработать. Куда смещается фокус из формы- в тулбар, просмотр отчета или в иное место, в этом событии неизвестно. Вот в отчете неожиданно становится видна одна запись вместо нескольких, а все потому, что в указанном событии написали всего одну строку - SELECT MyTable. Особенно кишат такими проблемами страничные формы, с кодами в указанных событиях на страницах: хотели указать алиас при смене страницы, когда пользователь остается на форме, а он в отчет пошел, и выбил у него табуретку из под него этим кодом.

• GotFocus() – получение фокусаДалее форма работает, и на ней могут срабатывать самые разные события, как то: нажатие клавиш, обновление содержания, перерисовка и другие. Пока опустим описание этих событий. При разгрузке формы формы происходят другие события
• QueryUnload() – это событие происходит при выполнении команд CLEAR WINDOWS, RELEASE WINDOWS или QUIT, а также при нажатии на крестик окна формы. Стоит отметить, что это событие не происходит при выполнении метода RELEASE() формы. Для того чтобы предотвратить закрытие формы исходя из необходимых разработчику условий , достаточно выполнить команду NODEFAULT в этом событии.
• Destroy() – происходит при уничтожении объекта
• Unload() – это последнее из событие в последовательности перед уничтожением формы, происходит после освобождения всех объектов включённых в форму. Все элементы управления, включённые в форму, в этом событии формы уничтожены и недоступны.
  При использовании Default data session в форме именно в этом событии стоит закрыть таблицы, открытые с использованием команды USE , а также полученные курсоры.
  Если форма модальна, используя команду RETURN можно вернуть значение переменной из формы

  DO FORM MyForm TO VarName

  4. Сессии данных

  Тем, кто знаком с программированием в процедурных языках (таких как FoxPro 2.6), известно, каких трудов стоило создание форм с моделированием независимых друг от друга сессий. В VFP все это легко решается при помощи private data session (приватных сессий данных). Приватные сессии позволяют открывать таблицы, представления, индексные файлы, создавать связи, делать всевозможные настройки в окружении, совершенно не заботясь о том, что в какой то из другой форм аналогичные манипуляции выполняются с этими же таблицами. Каждая приватная сессия совершенно не зависима в этом плане от остальных. Приватная сессия подобна окружение данных на одной отдельной машине. Поэтому, если разработчик собирается создавать приложение с многодокументным интерфейсом, следует взять за правило строить формы на основе приватных сессий данных. Действительно, в одной форме могут участвовать несколько таблиц , связанными разными реляциями, в другой нечто подобное отчету - часть этих же таблиц без реляций, в третьей - они же, но с другой реляцией. Если использовать общую сессию, то нужно либо все время перестраивать реляции, менять запись, либо давать одним и тем же таблицам в разных формах разные названия.
  Действительно , в форме накладных можем находиться на 30-той записи накладных, в отчете оборотная ведомость - сканировать записи, а справочники вообще находиться на разных записях. Если открыто одновременно 5-6 разных форм, то с названиями алиасов будет полный хаос. При частной сессии формы не видят окружения друг друга, одни и те же таблицы можно открыть с одним и тем же именем, связать их разными реляциями, находиться на разных записях одних и тех же таблиц. Следует обратить внимание на то, что по умолчанию в форме установлена Default data session (1) – общая сессия данных, что часто сбивает начинающих разработчиков с толку и заставляет их прибегать к изощрённым способам программирования MDI форм и многопользовательских приложений. Этого ложного пути легко избежать, установив в базовом классе формы Private data session (2). Однако не стоит забывать о том , что приватные сессии данных требуют дополнительных настроек среды, потому как настройки, производимые скажем в главном модуле программы действуют только в общей сессии данных (Default data session). То есть в этом типе (Private data session) сессии игнорируются общие настройки приложения и их необходимо выполнить повторно, а именно явно указать необходимые вам настройки из перечисленных:

  SET ANSI
  SET AUTOSAVE
  SET BLOCKSIZE
  SET CARRY
  SET CENTURY
  SET COLLATE
  SET CONFIRM
  SET CURRENCY
  SET DATABASE
  SET DATE
  SET DECIMALS
  SET DELETED
  SET DELIMITERS
  SET EXACT
  SET EXCLUSIVE
  SET FIELDS
  SET FIXED
  SET HOURS
  SET LOCK
  SET MARK TO
  SET MEMOWIDTH
  SET MULTILOCKS
  SET NEAR
  SET NULL
  SET POINT
  SET REPROCESS
  SET SAFETY
  SET SECONDS
  SET SEPARATOR
  SET SYSFORMATS
  SET TALK
  SET UNIQUE

  Особо обратите внимание на настройки выделенные цветом – они чаще всего становятся причиной разбитых лбов начинающих разработчиков.
  Ввиду вышесказанного, стоит организовать в базовом классе формы некий метод, назовём его SetSession() в котором и производить соответствующие настройки среды окружения.
  Вызывать этот метод из события Load() формы. Если метод переопределяется в конкретной форме, используйте команду DODEFAULT(), чтобы выполнить метод родителя – базового класса формы, в котором выполняются настройки.

  Для переключения между сессиями данных используется команда SET DATASESSION. Но пользоваться ей рекомендуется только на этапе разработки приложения для отладки форм, потому, что некоторые элементы ведут себя непредсказуемо и очень болезненно реагируют на смену сессии данных в момент выполнения программы, а при программной смене сессий некоторые элементы управления просто теряют свои источники данных. Пример, к combobox подключен источник данных в качестве алиаса таблицы или ее полей. При смене сессии это алиас может оказаться временно невидимым , и возникнет ошибка- can not access selected tables.

  Нужно отметить, что последовательность вызова таких настроек может оказаться важной. Скажем, в LOAD формы выполняется sql select. Если сначала нет SET TALK OFF, то форма начинает рассказывать о своей работе по выполнению запроса, при этом может портится и изображение формы. Если вы забыли про SET DELETED ON, то с удивлением можете обнаружить в такой форме уже стертые ранее записи. Если забыли про SET DECIMAL , то при расчете сумм можете потерять точность.
  Одной из особенностей форм с private data session является способность закрывать таблицы из окружения (Data Environment), таблиц , открытых при помощи команд USE (то есть так сказать “вручную”) и созданных во время выполнения программы курсоров. Это очень удобно – если в процессе открытия формы появились служебные курсоры или же при ее работе, то заботиться об их закрытии не нужно, они закроются автоматически.

  Прочтя это, естественно возникает вопрос – а каким же тогда образом формы могут обмениваться данными между собой ? Для таких дел предусмотрен принцип дочерних форм . Использовать его можно двояко. В первом случае родительская (немодальная) форма с приватной сессией запускает дочернюю модальную с общей сессией. Такой способ хорош для использования при создании справочников. Например, запущенная дочерняя модальная форма приобретает ту же сессию, что и родительская и все данные в дочерней форме ей легко доступны. Сессии ,помимо номера, имеют наименование, по умолчании совпадающее с именем запущенной формы. Так вот при таком подходе, сессия вначале имеет имя родительской формы, после запуска дочерней оно меняется на имя дочерней формы. После закрытия же дочерней формы имя сессии становится неопределённым - Unknown. Хотя разработчики и предупреждаются о том , что при закрытии дочерней формы имя сессии теряется, это не мешает с успехом использовать такой подход при создании приложений. Сделано это все с благой целью. Если вы из форм с частной сессией вызываете диалоговые формы к примеру с вопросом об удалении записи, или форму для запуска отчетов, то естественно в них видите те же самые таблицы на тех же записях, что были и в вызвавшей их форме с частной сессией. Поэтому советуем избегать открытия в окружение таких производных форм таблиц, которые уже открыты в форме с частной сессией. Также и в отчетах не следует в таких случаях класть эти таблицы в окружение. Иначе при вызове отчета вместо записи видимой на форме, увидим первую запись этой же таблицы.
  Второй способ заключается в том, что дочерняя форма является немодальной с приватной сессией данных. Для запуска таким способом используется команда DO FORM … NAME … LINKED. Используйте вновь созданное свойство формы, скажем, назвав его oChildForm. Исполнив команду из метода родительской формы:

  DO FORM NAME ThisForm.oChildForm LINKED

  Получим ссылку в родительской форме на дочернюю через свойство oChildForm и свободно можно таким образом обратиться из родительской формы к методам и свойствам дочерней. Кроме того, при закрытии родительской формы будет уничтожена и дочерняя потому как она ассоциирована со свойством родительской формы (о чём говорилось ранее). Конечно, не стоит забывать о ссылках и незавершённых методах, т.е. при закрытии родительской формы для полной уверенности выполнить:

  ThisForm.oChildForm=.NULL.

  5. Модальность и немодальность

  Большинство форм в приложении обычно немодальны. Но модальные формы тоже имеют право на жизнь. Появляться им конечно же стоит в нужном месте и в нужное время – там где необходимо прервать выполнение программы для выполнения обязательных операций или получения необходимых данных. Отличие модальной формы от не модальной в том, что при запуске модальной формы программа останавливается на строке DO FORM и ждёт до тех пор пока форма не будет закрыта, немодальная же форма не вызывает такой задержки и код продолжает исполнятся после её запуска. Модальная форма также используется для возвращения какого либо значения из формы:

  DO FORM MyFormName TO MyVariable

  Модальность формы определяется свойством WindowType. Но это свойство доступно для изменения только на этапе разработки формы. Изменить модальность запущенной формы при необходимости можно, прибегнув к такой операции:

  допустим форма MyFormName создана как немодальная форма в дизайнере и запускается таким образом

  PUBLIC oForm DO FORM MyFormName NAME oForm NOSHOW

  т.е. форма запущена , но скрыта, затем возникает необходимость отобразить её, причём сделать её модальной:

  oForm.Show(1)

  форма отобразится и примет статус модальной .

  6. Передача параметров между формами и методами.

  Наряду с тем, что некоторые данные в формах могут сохраняться в виде свойств формы, возможно передавать их в вызываемых методах и как параметры . Этот способ передачи представляется более гибким при вызове методов одной формы из другой формы. Но этот способ чреват тем, что передаваемые данные изолируются от других методов формы, т.е. передаваемые таким образом данные доступны только в вызывающем и вызываемом методах форм. Всегда существует вероятность того, что данные, используемые в двух методах разных форм, могут потребоваться и в третьем. Если такая ситуация не исключена, стоит присвоить их свойствам формы. И прежде чем написать LPARAMETERS в методе формы, подумайте, насколько вероятна такая ситуация. Пересылка данных между методами в виде параметров скорее “ситуационная” техника, во многом зависящая от конкретного случая, а не для повсеместного использования. Потому как в объектно-ориентированном программировании (в отличие от процедурного) методы и свойства неотделимы от объекта (принцип инкапсуляции) и для объекта нет большой разницы работать ли ему с переменными памяти или же со своими собственными свойствами, которые так или иначе тоже хранятся в памяти.

  7. Делегирование методов.

  Программируя в объектно-ориентированном языке, которым является VFP, должно понимать, что гораздо легче распределить выполнение некоторой задачи между множеством методов, нежели выполнять кучу условий и проверок в одном месте, чтобы как можно шире охватить всевозможные варианты развития событий. К примеру, если в коде часто использованы конструкции IF-ENDIF, CASE-ENDCASE и он перегружен этими проверками – можно разделить его на более мелкие участки и вынести их исполнение в отдельные методы ; если код метода родителя зачастую переопределяется в наследнике, стоит подумать о расширении его функциональности в родителе ; если в метод передаётся слишком большое количество параметров – это свидетельствует о слишком узкой его направленности, возможно, что необходимо исключить его из родителя и перенести в методы наследника. Подход, при котором вся функциональность формы перекладывается на несколько элементов формы, зачастую не правильный. Нужно чётко представлять, что форма предназначена для того, чтобы отобразить информацию и неким способом обработать её. Совершенно не обязательно в методе Click() какой-нибудь кнопки писать несколько страниц кода по выполнению некоторой обработки представленных на форме данных. Необходимо структурировать их и разделить задачу на несколько этапов. Затем представить эти этапы в виде методов. Во-первых, это повысит читабельность, кода, а во вторых облегчит наследование и переопределение этих методов. Делегирование методов - это интерпретирование наполеоновского принципа “разделяй и властвуй” в объектно-ориентированном программировании 😉
  Рассмотрим пример для иллюстрации делегирования методов:

• Пусть на форме имеется грид, источником которого является таблица, открытая с буферизацией 5 (оптимистическая буферизация таблицы). В гриде идёт правка записей таблицы.
• На форме имеется кнопка “Записать изменения” Cmd_SaveЗаведем на форме метод Save()
  

  Select MyTable Return TableUpdate(.T.)

  В Click() кнопки “Записать изменения”

  If !thisform.Save() Messagebox(‘Не удалось сохранить изменения !’,48, this.caption) Return .F. Endif Return .T.

  В событии QueryUnload формы

  This.Cmd_Save.Click()

  Такое построение методов и событий является типичным примером делегирования.

  8. Закрытие формы

  Закрытие формы осуществляется методом RELEASE(). Если при выполнении закрытия формы нужно соблюсти некоторые условия – их можно прописать в этом методе. Перед закрытием формы лучше вручную очистить все ссылки на неё в дочерних формах, явно присвоив им значение .NULL., иначе форма не будет закрыта. Обычно на форму помещается кнопка в методе Click() которой и вызывается Release() формы. Эту кнопку можно сделать по умолчанию ассоциированной с Escape, назначив её свойство Cancel=.T. Тогда при нажатии кнопки Escape на клавиатуре выполнится метод Click() элемента управления “кнопка” на форме и форма закроется. Однако есть ещё одно “но” – закрытие по нажатию “крестика” на форме. При таких действиях выполняется событие QueryUnload формы. Надо заметить, что метод Release() и событие QueryUnload взаимонезависимы, то есть при Release() не происходит QueryUnload, а событие QueryUnload закрывает форму минуя Release(), что довольно часто и сбивает с толку. Чтобы отменить закрытие формы исходя из условий, достаточно выдать NODEFAULT в этих методах.

  9. Горячие клавиши на формах

  Помимо стандартного – “мышиного” манипулирования объектами формы принято организовывать так называемые “горячие” клавиши, при нажатии на которые выполняются некоторые действия (обычно часто повторяемые пользователями во время работы с программой). Считается, что пользователь в совершенстве владеет программой, если он способен работать с ней не прибегая к помощи мыши. Поэтому “горячие” клавиши – непременный атрибут любого грамотно построенного приложения. Нажатие клавиш на клавиатуре обрабатывается событием KeyPress. Сразу замечу, что этим событием не могут быть обработаны любые комбинации с клавишей Alt. Не забывайте об этом. Событие KeyPress формы происходит в следующих случаях :

• На форме нет элементов управления, либо эти элементы управления невидимы или недоступны ( свойства Visible и Enabled).
• Когда элемент не может обработать нажатие какой-то клавиши
• Когда свойство KeyPreview формы установлено в .T.
  В последнем случае именно форма сначала обрабатывает событие KeyPress, и только затем выполняется событие KeyPress элемента управления, находящегося в фокусе на форме. Это очень удобно, так как позволяет поместить код обработки горячих клавиш в одном единственном месте, независимо от того, где находится фокус ввода. Иначе бы пришлось писать код обработки буквально в каждом элементе формы. Иными словами, если вы хотите обработать некоторые нажатия клавиш на форме (именно на форме), установите свойство KeyPreview в .T. При этом , чтобы отсечь всяческую реакцию системы на эти нажатия, а оставить только запрограммированную вами, примените команду NODEFAULT в самом начале обработки нажатий. Если вы желаете продолжить обработку нажатия определённой комбинации клавиш помимо формы и в элементе управления формы (если он находится в фокусе), выполните DODEFAULT(nKeyCode, nShiftAltCtrl). Если не указать последней команды, то форма может потерять возможность навигации между элементами на ней, а при вводе будет вводиться всего один символ. Советуем осторожнее работать в этом событии с обработкой клавиш ввод и табуляция (коды 13,10), иначе могут быть проблемы с кодом в событиях VALID и переходом с элементом на элемент. Другими словами, эти клавиши не слишком подходят на роль горячих. Не будут пойманы нажатия клавиш, которые вы определили до формы в командах типа ON KEY LABEL .

Автор публикации

не в сети 6 лет

stranger

Комментарии: 0Публикации: 1Регистрация: 24-10-2002

(далее…)

]]> https://foxclub.ru/knowledgebase/formirovanie-programmnogo-koda-otkrytiya-i-zakrytiya-tablicz-opisannyh-vizualno-v-de-formy/ Fri, 28 Aug 2020 11:32:26 +0000

Формирование программного кода открытия и закрытия таблиц, описанных визуально в DE формы

Формирование, кода методов LOAD, DESTROY, заменяющих "нарисованный " Dataenvironment (DE)формы в текстовый файл для использования вместо DE

Формирование программного кода открытия и закрытия таблиц, описанных визуально в DE формы

На этапе разработки формы очень удобно использовать Dataenvironment (DE) формы, однако при наличии большого числа таблиц в DE, форма очень долго открывается при модификации, кроме того многие разработчики предпочитают все писать "ручками".
Предлагаемое решение позволяет производить проектирование формы с использованием DE и всех его визуальных возможностей, а затем получить программный код открытия таблиц (с установкой индексов, фильтров, связей, и т.д.) и закрытия таблиц, "нарисованных" в DE. После помещения сформированного текста в методы (Load,Destroy) в DE таблицы нужно удалить. В решении приводятся все исходные тексты, коментарии, проект

Автор: Александр Жевелев

Автор публикации

не в сети 23 года

Александр Жевелев

Комментарии: 0Публикации: 2Регистрация: 09-10-2003

(далее…)

]]> https://foxclub.ru/knowledgebase/kompaktnyj-colorpicker-i-analogovye-chasy/ Fri, 28 Aug 2020 11:32:26 +0000

Компактный ColorPicker и аналоговые часы.

Возможно наручные часы уже не нужны, если кругом полно часов и будут еще эти 🙂 ColorPicker удобен для раскраски обьектов интерфейса, если кому это нужно.

Компактный ColorPicker и аналоговые часы.

Часы могут иметь римские цифры и фоновую картинку.
Для коррекции времени можно вызвать: run/n Control "TIMEDATE.cpl"

Для ColorPicker, по левому клику на Image создаются градации данного цвета.
По правому градации случайным образом, движок внизу определяет насыщенность цвета для этого.
Клик по градации делает собственно закраску.
Пример раскраски текущего активного компонента,
в методе Color1.Cset() пишем:

Parameter c
Local o
o=iif(Type('This.Parent.ActiveControl')='O',This.Parent.ActiveControl,This.Parent)
if o.BaseClass='Listbox'
o.ItemBackColor=c
else
o.BackColor=c
endif
Эти классы конечно не предел совершенства и больше для примера.

Автор: Sergey Filimonoff

Автор публикации

не в сети 23 года

Sergey Filimonoff

Комментарии: 0Публикации: 4Регистрация: 15-01-2003

(далее…)

]]> https://foxclub.ru/knowledgebase/szhatie-form-i-otchetov-v-vfp6/ Fri, 28 Aug 2020 11:32:26 +0000

Сжатие форм и отчетов в VFP6

Исходники двух программ для удаления лишней (никому НЕнужной) информации из файлов: форм и отчетов

Сжатие форм и отчетов в VFP6

При просмотре файлов форм-SCX мною было замечено, что VFP6 прописывает "интересные" свойства объектам, которые ну никак не влияют на логику программ и вообще "психологию" СУБД VFP.
Например, у объекта DataSession есть свойства Left,Top,Width,Height. Кто-нибудь в клубе знает для чего они нужны ентому объекту? Или может кто-нибудь их использует в своих программах? Поделитесь опытом, плиз.
Таких "удивительных" свойств объектов я нашел не так много, но тем не менее. И что самое интересное, все эти свойства далее компилируются для последующего использования в ран-тайме! И чем больше Ваш ехе-шник, тем больше килобайт ненужной информации.
Путем удаления ненужных строк мои программы облегчились на несколько байт. Резонно заметить, что мол парочка килобайт не испортит программу и овчинка того не стОит. Но ведь если известно, что эти килобайты никогда не отработают, тогда зачем их раздавать налево и направо?
Буду благодарен, ежели кто-нибудь дополнит список ненужных свойств объектов.
ЗЫ: резервное копирование файлов никто не отменял

Автор: Foxtrot

Автор публикации

не в сети 3 года

Foxtrot

Комментарии: 0Публикации: 6Регистрация: 25-04-2003

(далее…)

]]> https://foxclub.ru/knowledgebase/sovety-nachinayushhim-chast-iv/ Sun, 20 Nov 2022 05:55:56 +0000

Советы начинающим Часть IV

В этой статье :

Типы данных

Точность расчета

Numeric

Currency

Memo

General

Binary

AutoIncrement

Удаление записей в таблице

При создании новых записей использовать записи ранее помеченные как удаленные

Вынести выполнение команды PACK в специальные служебные процедуры по обслуживанию базы данных

Следует ли создавать индекс по выражению Deleted()

Команда ZAP

Хранимые процедуры

Для чего нужны хранимые процедуры

Особенности работы с хранимыми процедурами

Связи и отношения между таблицами

Постоянная связь (persistent relationship)

Связь (обычная)

Когда следует использовать связь

Типы данных

Цель данного раздела - это не ознакомление со всеми существующими в FoxPro типами данных, а описание некоторых особенностей использования тех или иных типов данных. Понимание этих особенностей позволит упростить выбор типа данных при проектировании таблиц. А также уменьшить количество ошибок в программе.

Прежде всего, следует понимать, что существуют типы данных переменных памяти и типы данных полей таблиц. Это далеко не одно и то же. Например, если Вы используете в таблице поле типа Character, то количество символов в таком поле всегда ограничено некоторым числом не превышающем 254 символа. Но переменная памяти имеет значительно больший размер, ограниченный количеством символов 16,777,184

Особенность FoxPro заключается в том, что в нем в большинстве случаев происходит автоматическая конвертация типов данных (если это возможно). При этом никаких сообщений об ошибках не возникает, хотя фактически происходит логическая ошибка. Например, если Вы попытаетесь записать в поле Character(10) символьную строку длиной более 10 символов, то ошибки это не вызовет. Просто в таблицу будут записаны только первые 10 символов указанной строки.

Ниже я буду описывать некоторые типы данных полей таблиц, по мере необходимости давая их же описание как переменных памяти

 

Точность расчета

Прежде чем говорить собственно о типах данных следует обратить внимание на точность расчета в FoxPro. В системных ограничениях FoxPro указано, что точность расчета ограничена 16 значащими цифрами.

Значащие цифры - это все цифры числа, считая слева направо, исключая ведущие и завершающие нули (если есть), но включая цифры после символа разделителя целой и дробной части. Для чисел от 0 до 1, значащие цифры - это все цифры, начиная с нуля перед символом разделителем целой и дробной части, но исключая завершающие нули (если есть)

Например, у числа

00010203.4050600

есть 10 значащих цифр, начиная с цифры 1 и заканчивая цифрой 6. А у числа

0.004050600

есть 8 значащих цифр, начиная с цифры 0 перед точкой и заканчивая цифрой 6.

Опираясь на собственный опыт работы с FoxPro, могу сказать, что 16 - это не точность расчета, а просто количество знаков, с которыми работает FoxPro при математических расчетах. Между этими понятиями есть разница. Более того, судя по всему, на точность расчета могут оказывать влияние какие-то системные ограничения как самой операционной системы, так и "железа". Выполните такую проверку

CREATE CURSOR test (test N(20)) INSERT INTO test VALUES (1234567890123456) INSERT INTO test VALUES (12345678901234567) INSERT INTO test VALUES (123456789012345678) INSERT INTO test VALUES (1234567890123456789) INSERT INTO test VALUES (12345678901234567890) BROWSE NOWAIT

На разных компьютерах этот простой тест может давать несколько отличные результаты. При наихудшем раскладе, реально окажутся заполненными только первые 14 разрядов, а остальные разряды окажутся заполненными нулями. При наилучшем раскладе, реально заполненными будут первые 16 разрядов, а остальные - также заполнены нулями.

Таким образом, применительно к FoxPro можно говорить о том, что доверять можно только первым 14 значащим цифрам. Еще 2 цифры будут содержать сомнительные (но близкие к реальным) данные. А вот все значащие цифры, начиная с 17, будут недостоверны. Т.е. будут заполнены случайными данными.

 

Numeric

Numeric и Float - это два разных названия для одного и того же типа данных. В дальнейшем, я буду говорить о типе данных Numeric. По умолчанию, любая переменная памяти, содержащая число интерпретируется как переменная типа Numeric, если тип переменной не был указан явно каким-либо способом.

Очень важным для понимания особенностей типа данных Numeric является то обстоятельство, что физически эти данные хранятся как символьные данные. Т.е. каждая цифра, а также символ разделитель целой и дробной части физически хранятся как обычные символы. Если Вы откроете файл DBF как обычный текстовый файл (например, с помощью программы "Блокнот" ("Notepad")), то Вы увидите, что число 1234.56 прямо так и записано. Нет какого-либо преобразования.

Как следствие, ничто не мешает вместо дробной части записать целую часть числа. И действительно, если Вы определите размерность поля, например, как Numeric(5,2), то в такое поле можно записать данные до значения 99999, а не 99.99 как предполагается из заданной размерности. Т.е. указание дробной части носит скорее рекомендательный, чем обязательный характер и вся дробная часть (включая символ разделитель) в случае необходимости может быть использована для записи целой части числа.

Выполните такую проверку

CREATE CURSOR test (test N(5,2)) INSERT INTO test VALUES (12.34) INSERT INTO test VALUES (12345) BROWSE NOWAIT

Фактически, работая с полями типа Numeric, если у них задана дробная часть, то Вы всегда имеет некоторый запас размерности на количество знаков дробной части плюс один знак на символ разделитель.

 

Currency

Это специальный формат, для хранения "денежных" типов данных. Но прежде, чем использовать его в своей программе следует учесть ряд особенностей по работе с этим типом данных.

Прежде всего, следует понимать, несмотря на то, что данный тип данных также относится к "числовым" данным (т.е. в нем хранятся числа), но это все-таки не тип данных Numeric. Как следствие, прямое сравнение данных типа Currency и Numeric может дать неожиданный результат. Например:

?268435456.3=NTOM(268435456.3) ?268435456.4=NTOM(268435456.4)

Первое сравнение, как и ожидалось, вернет .T., а вот второе совершенно неожиданно возвращает .F. Почему? Это знают только разработчики FoxPro. Но с практической точки зрения отсюда следует вывод, что перед сравнением разных числовых типов данных их следует приводить к одному типу данных. Причем приведение к типу Numeric требует дополнительного округления. Например:

nNum=268435456.4 yCur=$268435456.4 ?nNum=yCur ?nNum=MTON(yCur) ?NTOM(nNum)=yCur ?nNum=ROUND(MTON(yCur),4)

Символ "$" говорит о том, что далее идет число типа Currency. Его использование аналогично явному преобразованию через функцию NTOM(). Как видите, первые 2 сравнения вернут .F., в то время как последние 2 - .T.

Другая особенность типа данных Currency связана со способом округления результатов промежуточных вычислений. Сравните:

?4/3*3 ?$4/3*3

Откуда взялось расхождение в четвертом знаке после запятой? А это как раз следствие особенностей округления промежуточных результатов расчета.

Дело в том, что как было сказано ранее, по умолчанию, все числовые переменные памяти считаются имеющие тип данных Numeric. Опять же, как было сказано ранее, FoxPro выполняет расчеты с точностью до 16 значащих цифр.

Т.е. в памяти, результат деления 4/3=1.333333333333333 - до 16 значащих цифр. А результат деления $4/3=1.3333 - до 4 знаков после запятой, поскольку тип Currency больше не хранит.

Теперь, когда этот промежуточный результат снова умножается на 3, получается: для типа Numeric - 3.999999999999999, а для типа Currency - 3.9999.

Завершающее действие - это округление результата до некоторого фиксированного количества знаков после запятой. В данном случае, выражение типа Numeric будет округлено до 2 знаков после запятой и получится 4.00, а тип Currency округляется до 4 знаков после запятой и остается те же 3.9999

Т.е. в принципе, использовать тип Currency можно, но следует иметь в виду приведенные выше особенности его работы, чтобы получать точные результаты. Но если Ваша программа предполагает сложные денежные расчеты, то лучше использовать типа данных Numeric(18,2) вместо Currency.

 

Memo

Данный тип предназначен для хранения символьных данных неопределенной длины. Точнее для символьных данных, для которых точно известно, что они могут содержать более 254 символов. А вот верхний предел ограничен числом 2ГБ (2 миллиарда символов - девять нулей) на размер файла с расширением FPT. В этом файле собственно и хранится содержимое полей типа Memo и General.

Особенность работы с мемо-полями заключается в том, что при любой модификации мемо-поля файл FPT увеличивается на некоторое количество байт кратное определенному значению. Это значение определяется настройкой SET BLOCKSIZE. По умолчанию, оно равно 64 байта. Т.е. даже если Вы просто стерли и тут же вставили один символ, то размер файла FPT тем не менее увеличится на 64 байта, а не останется неизменным как ожидалось. Проверьте:

CREATE TABLE test FREE (test M) =ADIR(aTest,"test.fpt") ?aTest[1,2] INSERT INTO test VALUES (space(1)) =ADIR(aTest,"test.fpt") ?aTest[1,2] USE DELETE FILE test.*

Как видите, я добавил в мемо-поле только один пробел, но размер файла FPT увеличился на 64 байта, а не на 1 как ожидалось.

А что же содержится в остальных 63 записанных байтах? А ничего! Это пустое место, которое уже никак, никоим образом не может быть использовано.

Таким образом, при интенсивной работе с мемо-полями в них скапливается достаточно большое количество пустого места. Для удаления этого пустого пространства необходимо периодически давать команду PACK. Или, если не хочется удалять записи помеченные как удаленные, PACK MEMO.

Проблема в том, что для выполнения команды PACK необходимо открыть таблицу в режиме EXCLUSIVE, что при работе в многопользовательском приложении - проблематично. Разумно вынести эту команду в специальную процедуру по регулярной очистке база данных, которую периодически запускает администратор или сам пользователь. Более подробно об этой стратегии описано в разделе Удаление записей в таблице

 

General

Данный тип предназначен для хранения OLE-объектов. Ну, например, в нем можно хранить файл Excel или результат работы MS Graph

Для работы с данными полями есть всего 2 команды

APPEND GENERAL MODIFY GENERAL

Чтобы очистить поле General от содержимого надо просто дать команду APPEND GENERAL, не указав имени файла.

Причем описание опции LINK в команде APPEND GENERAL вводит в заблуждение в том смысле, что исходный файл будет скопирован в поле General в любом случае. Какие бы опции Вы не использовали.

Т.е. если Вы подумали, что при использовании опции LINK файл не копируется в General-поле, то Вы ошиблись. Вам ни в коем случае не удастся сэкономить дисковое пространство и уменьшить размер файл FPT (в нем хранится содержимое поля General)

А опция LINK в данном случае используется для того, чтобы синхронизировать изменения в оставшейся внешней копии файла и в той его копии, которая находится внутри поля General. Синхронизация происходит в момент открытия поля.

Можете провести простой эксперимент. Создайте в WinWord любой файл, например, test.doc. Теперь сделайте следующее:

CREATE CURSOR test (testGen G) APPEND BLANK APPEND GENERAL testGen FROM "C:\Мои документы\test.doc" LINK MODIFY GENERAL testGen

Как видите, я задал опцию LINK, чтобы связать содержимое поля General и OLE-объект. Если Вы сделаете теперь изменения в файле "test.doc" открыв его в WinWord, то при очередном открытии этого поля General все изменения тут же в нем и отобразятся. Соответственно, верно и обратное. Изменения сделанные через вызов OLE-объекта в поле General попадут в исходный файл. Без опции LINK эти взаимные изменения не работают.

А теперь удалите файл "test.doc". Просто переместить его или переименовать недостаточно. Каким-то образом поле General найдет его под новым именем и на новом месте. Нужно именно удалить файл.

Открываем поле General и видим наш не существующий файл! Т.е. он таки записан в поле General несмотря на опцию LINK. Хотя модифицировать его уже не получится. При попытке сделать модификацию Вы получите сообщение об ошибке OLE.

Впрочем, в том, что файл OLE-объекта будет записан в поле General, можно убедиться, просто посмотрев размер файла FPT до вставки и после (для этого надо создать не курсор, а именно таблицу). Он увеличится примерно на размер вставляемого файла.

Другая особенность заключается в том, что поле General не предназначена для программной манипуляции с ее содержимым. Предполагается, что всю нужную обработку должен выполнять OLE-объект, а назначение поля General - это просто принять результаты изменения.

Частично проблему манипуляции содержимым решает опция DATA команды APPEND GENERAL, но это опять же не прямое, а опосредованное редактирование. Изменения DATA должен обработать OLE-объект, если он это умеет. Например с ними может работать такое OLE-объект, как MS Graph (для отображения графиков). Пример его использования можете посмотреть в стандартном проекте примеров Solution.pjx, который поставляется вместе с FoxPro (формы OleGraph.scx и Sctock.scx)

Поэтому, если Вы захотите, например, программно сохранить содержимое поля General как отдельный файл, то у Вас просто нет для этого никаких инструментов!

Таким образом, при использовании полей General Вы непомерно "раздуваете" базу данных (очень быстро растет размер файла FPT) данными, которыми Вы практически не можете манипулировать. Можно сказать, "архивом".

В связи с этими особенностями полей типа General я не рекомендовал бы использовать данный тип поля на постоянной основе. Т.е. как поле каких-либо основных таблиц базы данных

Собственно файлы OLE-объектов лучше хранить именно как файлы. В отдельной директории. А если их надо "прокачать" через поле типа General, то лучше создавать временную табличку или курсор непосредственно на момент исполнения приложения. В большинстве случаев хватает курсора, содержащего одну запись и одно единственное поле типа General.

Если Вы, тем не менее, твердо желаете сохранить файлы в базе данных, чтобы их не было на диске, то используйте для их хранения поля типа Memo(binary) примерно так:

CREATE CURSOR test (testMemo M NOCPTRANS) APPEND BLANK APPEND MEMO testMemo FROM "C:\Мои документы\test.doc" OVERWRITE

А чтобы извлечь файл обратно:

COPY MEMO testMemo TO "C:\Мои документы\test.doc"

Преимущества хранения файлов в поле типа Memo(binary) именно в том, что ими можно программно манипулировать. Чего нельзя сказать о поле General.

Кроме всего перечисленного не следует забывать, что, по сути, поле General - это особый вид Memo-поля. Соответственно на него распространяются те же особенности модификации, что и на Memo-поле описанные в разделе посвященному Memo. Т.е. требуется периодически давать команду PACK или PACK MEMO для очистки файла FPT от пустого пространства.

 

Binary

Binary - это не тип поля, а реквизит поля. Может использоваться только с символьными полями. Т.е. возможны Character (binary) и Memo (binary). При программном создании полей данное свойство указывается при помощи ключевого слова "NOCPTRANS".

Для чего, собственно нужен этот реквизит.

Дело в том, что обычно предполагается, что в символьных полях хранится некоторый текст, записанный в одной из поддерживаемых FoxPro кодовых страниц. Соответственно, при чтении таких полей FoxPro автоматически транслирует содержимое таких полей в текущую кодовую страницу. Благодоря этому механизму Вы можете совершенно спокойно открыть в Visual FoxPro таблицу созданную в FoxPro for DOS в кодовой странице 866, и текст будет выглядеть нормально, а не как набор закорючек.

Однако в некоторых случаях этот автоматический механиз трансляции необходимо отключить. Т.е. нужно, чтобы транслировались данные из всех прочих символьных полей, а вот из этих - не надо. В принципе, это можно сделать программно, используя команду SET NOCPTRANS. Но уж больно это утомительно. Лучше указать это непосредственно в реквизитах таких полей.

В каких же случаях может возникнуть необходимость в запрете автотрансляции символов.

А в тех, когда в этих полях не содержится текст, который пользователь должен смотреть и править.

Ну, например, в разделе посвященном типу поле General, я привел пример записи файла с расширением DOC в поле типа Memo(Binary). Разумеется, пытаться прочитать такое содержимое как обычный текст бессмысленно.

Собственно и название "binary"(двоичный) говорит о том, что содержимое данных полей следует воспринимать не как текст, а как набор двоичных кодов, для расшифровки которых требуется какой-то нестандартный алгоритм. Нестандартный в том смысле, что это не просто другая кодовая страница.

А возможно данные коды и вообще не предназначены для расшифровки и применяются "как есть". Например, идентификатор записи. Хотя для FoxPro - это не очень хорошее решение.

 

AutoIncrement

AutoIncrement - это не тип поля, а реквизит поля. Может использоваться исключительно с полем типа Integer. В одной и той же таблице может быть несколько полей со свойством AutoInc.

Это свойство является нововведением 8 версии FoxPro. В более ранних версиях его просто не было.

Более подробно о свойствах полей, использующих данное свойство можно почитать в статье "Autoincrementing Field Values in Tables" из Help к VFP8. В этой статье достаточно подробно описаны особенности его использования. Вкратце, перечень особенностей сводится к следующему:

• В заголовке таблицы в описании данного поля хранится очередное (не использованное) значение и шаг автоинкремента. При добавлении новой записи изменяется очередное значение в заголовке таблицы. Посмотреть очередное значение и шаг автоинкремента можно, используя функцию AFIELDS(). 17 и 18 столбец создаваемого массива соответственно (в более ранних версиях функция AFIELDS() создавала массив из 16 столбцов).
• Шаг автоинкремента может принимать значения от 1 до 255. Он не может принимать нулевое или отрицательное значение.
• Поля с данным свойством не могут редактироваться. Будет ли попытка отредактировать данное поле вызывать сообщение об ошибке, регулируется настройкой SET AUTOINCERROR
• В буферизированных таблицах процесс добавления новой записи примерно на 35% медленнее по сравнению с таблицами, не имеющими автоинкрементных полей
• FoxPro никак не контролирует появление "дыр" в последовательности автоинкремента. "Дыры" могут появляться, например, при удалении ранее созданных записей. Значение новой записи берется из заголовка таблицы, а не на основе какого-либо расчета.
• В случае буферизации таблицы, при работе нескольких пользователей одновременно также могут образовываться "дыры" в последовательности автоинкремента, если один из пользователей не принял внесенные изменения (TableRevert())
• При использовании Local View новое значение поля с автоинкрементом отобразится только после выполнения перезапроса (Requery()).

Можно заметить, что при неаккуратном создании автоинкрементного поля можно вызвать ошибку переполнения данных, если задать величину очередного значения близкую к предельно допустимому для типа Integer (2,147,483,647). В этом случае Вы можете при создании новой записи получить сообщение о переполнении типа данных.

Следует понимать, что свойство AutoIncrement не обеспечивает уникальность значения поля, на которое это свойство распространяется. Это просто не его задача. На первый взгляд, это может показаться странным. Раз поле нельзя редактировать и значение нового поля получается путем прибавления некоторого значения к предыдущему, то где же тут взяться возможным повторам?

Ну, например, предположим, что изначально Вы создали простое поле типа Integer и создали несколько записей. Затем Вы решили, что лучше вместо типа Integer использовать тип Integer(Autoincrement) и модифицировали структуру уже существующей таблицы. Если Вы проявили неаккуратность и при настройке свойств автоинкремента оставили очередное значение автоинкремента равным 1, то новая запись будет создана со значением равным 1, несмотря на то, что возможно запись с таким значением уже существовала.

В связи с этим, если принципиально важным является именно уникальность значения поля с автоинкрементом, например, если Вы хотите использовать его как суррогатный ключ, то необходимо добавить такой контроль. Например, создав индекс типа Primary или Candidat. И не надеяться на то, что повторов "не может быть, потому что не может быть никогда". Повторюсь, свойство AutoIncrement не имеет никаких функций по контролю уникальности значения.

Пример использование полей типа AutoIncrement можно посмотреть в новой базе данных NorthWind.dbc из поставки VFP8. Эта база используется как пример "внешней" базы для уяснения работы с новым объектом FoxPro CursorAdapter

Свойство AutoIncrement является нововведением 8 версии FoxPro. И судя по всему, даже сами разработчики FoxPro не очень-то представляют, как его можно использовать.

Напрашивается решение использовать такое поле как уникальный идентификатор записи при генерации суррогатного ключа. Однако в "старых" стандартных примерах это свойство не используется. При генерации суррогатного ключа по-прежнему используют специальную функцию NewId() и хранение последнего использованного значения во временной таблице.

По большому счету, это можно списать на консерватизм программистов. Например, в примерах от FoxPro по-прежнему в качестве ключевого поля используется тип данных Character, хотя собственно значение - это автоинкрементное число, но записанное как символьная строка.

Да, есть ситуации, когда использование в качестве суррогатного ключа типа данных Character предпочтительнее, чем Integer. Но это задачи особой сложности, с которыми большинству программистов не придется сталкиваться (репликация).

Аналогично есть ситуации, когда использование функции для генерации уникального ключа (NewId()) предпочтительнее использования AutoIncrement (обновляемые Local View по подчиненным таблицам с одновременным редактированием нескольких записей главной таблицы). Но! Я бы не сказал, что такие задачи невозможно решить при использовании автоинкрементных полей. Хотя я согласен, при определенных обстоятельствах, использование автоинкрементых полей может потребовать несколько более сложного программирования, чем использование функции для генерации уникального ключа (NewId())

Здесь не место для подробного обсуждения решения подобных проблем, но вкратце решение сводится к следующему:

• Если главная таблица - это также Local View, то она должна иметь обязательно строковую буферизацию, а таблица-источник должна находится в табличной буферизации
• При создании новой записи в главном Local View немедленно делаем сброс в буфер таблицы-источника
• Поскольку в буфере таблицы-источника новое значение автоинкрементного поля уже создано, то можно тут же его прочитать и использовать для создания ссылки в подчиненном Local View
• Найти новую запись в буфере таблицы-источника можно по максимальному значению автоинкрементного поля
• По окончании редактирования осуществляется сброс буфера сначала из главной таблицы, потом из подчиненного Local View. Или же осуществляется откат, в случае отмены внесенных изменений

А вот чего не следует делать при работе с автоинкрементыми полями, так это опираться на очередное значение, хранимое в заголовке таблицы. Т.е. то значение, которое возвращается в 17 столбце массива, создаваемого функцией AFIELDS().

Дело в том, что функция AFIELDS() считывает данные из буфера таблицы, а при добавлении новой записи новое значение автоинкремента берется непосредственно из таблицы-источника. Но это могут оказаться разные значения.

Представим себе ситуацию, когда два пользователя одновременно добавляют запись в таблицу. Причем таблицы находятся в режиме табличной буферизации. Предположим, что изначально в таблице не было ни одной записи и очередное значение автоинкрементного поля было равно 1

• Первый пользователь добавил новую запись в буфер. Значение в новой записи равно 1. Очередное значение автоинкремента в буфере таблицы равно 2 и очередное значение автоинкремента собственно в таблице равно 2.
• Второй пользователь добавил новую запись в буфер. Значение в новой записи равно 2. Очередное значение автоинкремента в буфере таблицы равно 3 и очередное значение автоинкремента собственно в таблице равно 3.
• А у первого пользователя очередное значение автоинкремента в буфере таблицы по-прежнему равно 2, хотя очередное значение автоинкремента собственно в таблице равно уже 3. И при создании новой записи будет использовано именно значение 3.

Поэтому, при работе с автоинкрементыми полями в общем случае невозможно предсказать, какое значение будет у новой записи. Можно только прочитать это значение сразу после создания новой записи. А чтобы не перепутать записи, созданные разными пользователями, следует создавать новые записи, наложив на таблицу-источник табличную буферизацию.

Проще всего найти новую запись, опираясь на максимальное значение автоинкрементного поля, особенно, если по нему построен индекс:

select MyTab SET ORDER TO FieldAuto GO BOTTOM

В результате, указатель записи окажется на той записи, которая имеет максимальное значение ключа в соответствии с выражением индекса FieldAuto. А если выражение этого индекса состоит только из имени поля, то Вы и попадете на последнюю созданную запись.

Если же индекса нет, то можно найти новую запись, опираясь на тот факт, что новая запись физически добавляется в конец файла. Т.е. если отключить главный индекс, то новая запись будет самой последней

select MyTab SET ORDER TO 0 GO BOTTOM

К сведению

Существует команда, которая добавляет запись не в конец файла, а в указанное место. Это старая команда еще из DOS-версий FoxPro, которая называется INSERT (не надо путать ее с INSERT-SQL). Но данная команда оставлена только для совместимости с более ранними версиями и ее использование сопряжено с большим количеством ограничений. Так что, лучше ее не использовать.

Удаление записей в таблице

Таблицы FoxPro - это прямые наследники формата DBASE. В этом формате процесс удаления записей разбит на 2 этапа. Сначала записи помечаются как удаленные, но физически все еще сохраняются в таблице. А для их физического удаления необходимо дать специальную команду. Причем физическое удаление требует эксклюзивного (единоличного) доступа к таблице.

Под термином "удаление" в FoxPro понимается именно установка метки на удаление, а не физическое удаление записи в таблице. Т.е. команды DELETE, DELETE-SQL физически не удаляют записи; триггер DELETE срабатывает при установке метки на удаление; триггер INSERT срабатывает при снятии метки на удаление (ну, и при физическом создании новой записи)

Чтобы записи, помеченные как удаленные, не отображались при работе с таблицами, используют специальную глобальную настройку

SET DELETED ON

Здесь несколько "нелогичная" настройка: ON - прячет записи, помеченные как удаленные (учитывает такие записи), а OFF - наоборот, отображает такие записи (игнорирует, не учитывает такие записи).

Следует помнить, что при использовании Private DataSession настройка SET DELETED сбрасывается в значение по умолчанию (OFF). Т.е. при открытии Private DataSession необходимо позаботиться о корректной настройке среды данных.

Для физического удаления записей ранее помеченных как удаленные, используется специальная команда "PACK". Следует помнить, что в отличие от команд на удаление (DELETE, DELETE-SQL) данная команда требует открытия таблицы в режиме EXCLUSIVE. Что, как правило, недопустимо при работе в сетевом режиме. Для преодоления этого противоречия используется одна из 2 стратегий программирования:

• При создании новых записей использовать записи ранее помеченные как удаленные
• Вынести выполнение команды PACK в специальные служебные процедуры по обслуживанию базы данных

При создании новых записей использовать записи ранее помеченные как удаленные

В принципе, тут возможны два варианта решения: восстанавливать ранее удаленные записи (командой RECALL) или вместо удаления записей по команде DELETE менять содержимое специально созданного для этой цели поля, как раз и определяющего - удалена запись или нет.

В любом случае, данная стратегия предполагает отказ от целого ряда команд и функций которые так или иначе могут автоматически создавать новые записи (APPEN BLANK, APPEND FROM, INSERT-SQL, буферизация, обновляемые Local View и т.п.). А создание новых записей осуществлять через специальную функцию, которая сначала ищет запись, помеченную как удаленная, и использует ее как новую запись.

К недостаткам данного способа следует еще отнести относительную сложность процедуры вставки новой записи. Тут недостаточно сделать просто LOCATE + RECALL. Все несколько сложнее. Достаточно много нюансов блокировки при работе в многопользовательском режиме.

Попробуйте, например, прикинуть какие потребуются действия, чтобы при создании новой записи "одновременно" двумя пользователями не произошло затирание информации, введенной одним из пользователей. Т.е. два пользователя "одновременно" сделали LOCATE, но RECALL естественно сделал только один из них. Как заставить другого пользователя отказаться от притязаний на обладание найденной записью в пользу первого, сделавшего RECALL? Разумеется, задача решаемая. Я просто хочу показать, что она достаточно не тривиальна.

Кроме того, данная стратегия фактически запрещает использовать Memo-поля. Почему? Да потому, что при работе с Memo-полями время от времени необходимо давать команду PACK. Это связано с особенностью работы с memo-полями. Подробнее об этих особенностях читайте в разделе "Типы данных". Ну а если все равно приходится давать команду PACK, то какой смысл во всех этих сложностях?

Итого, получается, что использование данной стратегии накладывает значительные ограничения на программиста.

После всех этих рассуждений, возникает вопрос, который следовало бы задать с самого начала. А когда реально нет возможности выполнить команду PACK?

Нет возможности выполнить команду PACK, когда приложение работает в многопользовательском режиме и невозможно его остановить даже на профилактику, хотя бы на полчаса раз в год.

Разумеется, такие задачи тоже существуют. Но! Если у Вас стоит именно такая задача, то выбор в качестве хранилища данных таблиц DBASE - это весьма странный выбор. Дело тут не в том, что такую задачу сложно решить при помощи таблиц DBASE, а в том, что такие задачи предъявляют повышенные требования, как к надежности, так и к объему (количеству записей) базы данных. Т.е. в большинстве случаев требования таких задач заведомо превышают физические возможности формата хранения данных в таблицах DBASE.

Вынести выполнение команды PACK в специальные служебные процедуры по обслуживанию базы данных

А вот это стандартный способ решения данной проблемы. Имеется в виду, что в Вашем приложении будет специальный пункт меню (или отдельная программка), которая так и называется "Очистка базы данных". И время от времени, либо сам пользователь, либо системный администратор будут запускать ее на выполнение.

Казалось бы, есть более простое решение: давать команду PACK при каждом входе (выходе) из программы. Однако это лишь кажущаяся простота.

Если Вы разрабатываете программу для одного пользователя, то в принципе такая стратегия оправдана. Но при работе в сетевом (многопользовательском) режиме данная стратегия приведет к тому, что часть пользователей просто не сможет с первого раза войти в программу, поскольку в этот момент другой пользователь будет "держать" таблицы в режиме EXCLUSIVE.

Кроме того, нет особой необходимости физически удалять записи, помеченные как удаленные, непосредственно в момент (или в том сеансе данных) когда произошла установка метки на удаление. При наличии небольшого количества записей помеченных как удаленные скорость работы (выполнения запросов, поиск данных) упадет незначительно. Ну, будет немного "мусора", ну и что?

Т.е. необходимость в физическом удалении записей ранее помеченных как удаленные возникает только тогда, когда их количество превышает некоторый предел. В результате, приложение начинает работать заметно медленнее - заметно для пользователя. Оценить этот предел достаточно проблематично, поскольку он зависит от многих факторов. Поэтому логично просто безо всяких проверок и оценок с определенной периодичностью (раз в месяц, раз в квартал, раз в полгода) запускать процедуру очистки базы данных. Периодичность запуска этой процедуры зависит от интенсивности удаления записей в Вашей программе.

Еще замечу, что если открыть в режиме EXCLUSIVE собственно базу данных, то другой пользователь не сможет открыть ни одну из таблиц базы данных. Это упрощает создание такой процедуры очистки базы данных.

 

Вывод однозначен. Использование специальной процедуры очистки базы данных от записей помеченных как удаленные предпочтительнее во всех смыслах перед повторным использованием ранее удаленных записей.

Следует ли создавать индекс по выражению Deleted()

О чем вообще речь? Дело в том, что для ускорения выборок данных в FoxPro используется специальная технология, называемая Rushmore - оптимизация. Что это такое в данном случае не важно. Важным является тот факт, что данная технология для ускорения выборки использует индексы. Без индексов она просто не работает.

Так вот, факт наличия удаленных записей в таблице хотя и отсекается настройкой SET DELETED ON, но, тем не менее, влияет на факт оптимизации запроса. По существу, настройка SET DELETED ON - это специфический фильтр, накладываемый на таблицу или дополнительное (неявное) условие выборки записей. Ну, а раз есть условие, но по нему нет индекса, то это приводит к снижению уровня Rushmore-оптимизации.

В связи с этим, в литературе советуют создавать индекс по выражению Deleted() примерно такого вида

INDEX ON Deleted() TAG Udal

Так вот, несмотря на то, что создание такого индекса приведет к улучшению Rushmore - оптимизации, но в подавляющем большинстве случаев это приведет к замедлению получения выборки. Подробнее о причинах такого поведения читайте в разделе Сколько и каких индексов надо создавать

Т.е. я бы НЕ рекомендовал Вам создавать подобный индекс.

Команда ZAP

Для физического удаления записей в таблице существует еще одна команда: ZAP. Данная команда предназначена для физического удаления вообще всех записей таблицы. Т.е. ее использование по результатам действия эквивалентно такой последовательности команд:

select MyTab DELETE ALL PACK

Однако есть и отличия. Дело в том, что при использовании команды DELETE срабатывают все связанные с данной операцией триггеры на удаление. Если, например, триггер на удаление запретит удаление какой-либо записи, то она и не сможет быть удалена.

Так вот, команда ZAP не вызывает срабатывание триггеров на удаление. Просто удаляет все записи таблицы без каких-либо проверок. В связи с такой особенностью, FoxPro при использовании данной команды обязательно попросит подтвердить Ваше решение удалить все записи. Подавить выдачу такого системного подтверждения, можно сделав настройку SET SAFETY OFF.

Также как и команда PACK, команда ZAP требует открытия таблицы в режиме EXCLUSIVE.

Хранимые процедуры

Хранимые процедуры - это те процедуры, которые хранятся в контейнере базы данных.

Под словом "хранятся" здесь понимается именно физическое расположение. Т.е. хранимые процедуры физически расположены в контейнере базы данных.

Если интересно, где именно они хранятся, то можете открыть базу данных как таблицу и увидеть, что текст "хранимых процедур" хранится в Memo-поле "Code". В строке со значением поля ObjectName = "StoredProceduresSource" исходный текст "хранимых процедур", а в строке со значением поля ObjectName = "StoredProceduresObject" - откомпилированный текст. В принципе, если Вы желаете скрыть от слишком "продвинутого" пользователя исходный текст "хранимых процедур", то Вы можете смело очистить содержимое поля Code для строки со значением поля ObjectName = "StoredProceduresSource", поскольку в процессе работы используется не исходный, а откомпилированный текст "хранимых процедур".

"Хранимые процедуры" становятся доступны в момент открытия контейнера базы данных, а контейнер базы данных автоматически открывается при открытии любой таблицы включенной в базу данных. Таким образом, "Хранимые процедуры" можно использовать сразу после открытия таблицы без каких-либо дополнительных команд типа SET PROCEDURE.

 

Для чего нужны хранимые процедуры

А зачем вообще понадобилось хранить какие-то процедуры внутри контейнера базы данных? Разве недостаточно использовать обычные процедурные файлы?

Причина здесь в том, что требуется обеспечить доступ к определенным процедурам вне зависимости от того, запущено приложение или нет. Например, если была создана некоторая процедура, которая проверяет допустимость операции создания новой записи (триггер на вставку), то эта процедура должна быть запущена, в момент попытки вставить новую запись, вне зависимости от того запущено ли соответствующее приложение или нет. В противном случае, например, на этапе отладки, Вы рискуете серьезно нарушить целостность и непротиворечивость Вашей базы данных.

Исходя из данного предназначения хранимых процедур, становится ясно, какие именно процедуры и функции стоит в ней хранить, а какие нет.

---

Если процедура или функция обеспечивает целостность и непротиворечивость данных вне зависимости от приложения, то такую процедуру или функцию следует хранить в "Хранимых процедурах"

---

Определение получилось несколько мудреное. Если сказать то же самое проще, то в "Хранимых процедурах" должны хранится те процедуры и функции, вызов которых прописывается в свойствах таблиц или контейнера базы данных. Имеется в виду, что когда Вы вызываете режим модификации таблицы, то там есть ряд мест, где можно написать вызов функции (Rule, Triggers, Default). Вот те функции, которые там вызываются и должны быть записаны в "хранимых процедурах".

"Хранимые процедуры" - это обычные процедуры и функции FoxPro. Т.е. из них может быть организован вызов других процедур и функций. Так вот, эти "подчиненные" процедуры и функции также должны хранится внутри "хранимых процедур". Вообще, крайне нежелательно изнутри "хранимых процедур" обращаться во вне базы данных. Ведь основное назначение "хранимых процедур" - это обеспечение некоторых действий вне зависимости от "внешнего мира"

 

Особенности работы с хранимыми процедурами

Поскольку физически "хранимые процедуры" хранятся в Memo-полях, то в связи с определенными особенностями по работе с Memo-полями после внесения исправлений в "хранимые процедуры" следует выполнить очистку базы данных для уменьшения размера файла DCT и удаления неиспользуемого пространства.

"Хранимые процедуры" можно выгрузить в текстовый файл командой COPY PROCEDURES и соответственно загрузить командой APPEND PROCEDURES. Т.е. в принципе, можно динамически добавлять/удалять хранимые процедуры, хотя я не советовал бы заниматься этим новичкам. Слишком велик риск, разрушить все правила целостности базы данных.

Список имен всех "хранимых процедур" текущей базы данных можно получить по команде DISPLAY PROCEDURES (или LIST PROCEDURES)

Связи и отношения между таблицами

Как обычно, в FoxPro существует путаница и с этим понятиями. Точнее так, эта путаница возникла при включении в среду FoxPro такого объекта как Контейнер базы данных. Впрочем, по порядку.

Итак, в FoxPro термин "связь" или "отношение" применяется в следующих случаях

• Постоянная связь - это некоторый графический объект, визуально отображающий взаимосвязь двух таблиц между собой в контейнере базы данных
• Связь - это некоторая настройка, накладываемая на две таблицы и определяющая положение указателя записи в подчиненной таблице при перемещении указателя записи в главной таблице
• Связь - это некоторый графический объект, визуально отображающий взаимосвязь таблиц в предыдущем смысле, но отображаемая в DataEnvironment формы или отчета

Ну, третий вариант термина "связь" я здесь рассматривать не буду, поскольку это фактически просто визуализация термина "связь" во втором его смысле. Поэтому подробно рассмотрю только первые два определения

 

Постоянная связь (persistent relationship)

Повторю здесь еще раз свое определение термина "постоянная связь"

Постоянная связь - это некоторый графический объект, визуально отображающий взаимосвязь двух таблиц между собой в контейнере базы данных

Обращаю внимание на то, что это именно "графический объект". Он не несет за собой никакого физического смысла.

Но если "постоянная связь" не имеет физического смысла, то для чего же она используется? Вероятно, точнее, следовало бы определить "постоянную связь", как некоторый шаблон, который используется при создании других объектов. Собственно, я знаю только о трех применениях "постоянной связи"

• Для настройки и создания определенного вида триггеров в Referential Integrity
• Автоматически предлагает создать обычную связь между таблицами, при включении их в DataEnvironment формы или отчета
• Автоматически предлагает взаимосвязь нужного вида JOIN при включении таблиц в дизайнер запросов (Query или Local View)

Обратите внимание, что связь в DataEnvironment (или в дизайнере запросов) уже не имеет никакого отношения к "постоянной связи" в контейнере базы данных.

Да, она может быть создана автоматически на основе существующей "постоянной связи", но это будет исключительно рекомендация, с которой Вы можете согласиться или НЕ согласиться и удалить ее из DataEnvironment (или в дизайнере запросов)

Программно "постоянная связь" настраивается через команду ALTER TABLE, используя ключевое слово REFERENCES. "Постоянная связь" всегда устанавливает связь между тэгами структурных индексных файлов связываемых таблиц. Причем хотя бы в одной из таблиц этот тэг должен иметь тип "Primary". Т.е. связь должна быть либо один-к-одному, либо один-ко-многим. Но никак не много-ко-многим.

Связь вообще и "постоянную связь" в частности нельзя настроить дважды между одними и теми же таблицами. Пусть и по разным критериям. В FoxPro такое недопустимо, даже если связь осуществляется через таблицы посредники.

Т.е. если уж вы настроили связь между двумя таблицами, то другую связь между этими же таблицами Вы можете создать только взамен существующей, но никак не одновременно с ней. Попытка организации такой связи вызовет сообщение об ошибке.

"Постоянная связь" может быть настроена "сама на себя". Т.е. можно установить постоянную связь между двумя индексами одной и той же таблицы. Это имеет смысл, если таблица имеет "древовидную" структуру и Вы хотите установить триггер на удаление по типу "Restrict" (установить триггер на удаление по типу "Cascade" - не получится, точнее он не будет работать, поскольку в FoxPro запрещена рекурсия триггеров).

Конечно, можно использовать "постоянную связь" и в качестве визуализации взаимоотношений таблиц в контейнере базы данных. Я имею в виду, что когда Вы открываете контейнер базы данных на модификацию, то Вы видите некоторую картинку структуры базы данных. Вы можете передвинуть объекты так, чтобы визуально проще было понять структуру базы данных.

Так-то оно так, да вот FoxPro имеет весьма слабый инструментарий для полноценного проектирования базы данных. Вот и эта картинка. Физически она хранится в файле ресурсов FoxUser.dbf (fpt). Т.е. если Вы переносите проект на новое место (в другую папку, на другой компьютер), то чтобы картинка не сбилась, надо будет захватить и файл ресурсов. Подробнее о том, как это сделать читайте в разделе Содержимое главной директории проекта

Проблема в том, что файл ресурсов время от времени приходится удалять или хотя бы чистить. Т.е. есть серьезный риск, что через месяц другой, картинка все-таки собьется. После двух...трех таких восстановлений останется только плюнуть на эту возню и заняться чем-то более полезным.

Для полноценного проектирования базы данных лучше использовать другие продукты, которые имеют общее название: Case - средства для проектирования базы данных. Из наиболее известных это:

• Power Designer - считается самым лучшим
• ERWin - пожалуй, самый известный в паре с BPWin
• Visio - знаменит тем, что это продукт MicroSoft, который был русифицирован, и можно найти бесплатную версию в Internet

В принципе была попытка создать полноценное средство для проектирования базы данных в FoxPro. Этот продукт получил название FoxCase. Но ни широкого распространения, ни полноценного развития он так и не получил.

 

Связь (обычная)

В принципе, в противовес "постоянной связи" этот вид связи следовало бы назвать "временная связь". В том смысле, что данный тип связи устанавливается "по требованию". Т.е. вот надо мне в этом месте организовать связь, я тут же ее и организовываю, используя команду SET RELATION. Отпала в ней надобность - тут же и удаляю. Или она сама удалится при закрытии одной из связанных таблиц.

Это так надо бы было назвать, но дело в том, что данный вид связи исторически появился раньше, чем "постоянная связь". Еще в версии FoxPro for DOS. Когда "постоянной связи" еще в проекте не было. А поскольку не было необходимости этот вид связи от чего-то отличать, то его так и назвали "связь". Без каких-либо уточняющих прилагательных.

Поэтому, когда в FoxPro используют термин "связь", то, скорее всего, речь идет именно об этой связи. Если же говорят о "постоянной связи", то обязательно добавляют уточняющее прилагательное "постоянная".

Итак, что же такое "связь" в FoxPro

---

Связь - это некоторая настройка, накладываемая на две таблицы и определяющая положение указателя записи в подчиненной таблице при перемещении указателя записи в главной таблице

---

Все. На этом функции связи заканчиваются. Более того, связь действует только до тех пор, пока вы находитесь в рабочей области главной таблицы. Стоит Вам перейти в рабочую область подчиненной таблицы, как всякие ограничения перестают действовать, и Вы можете спокойно переместить указатель записи на абсолютно любую запись.

Можно сказать, что связь - это взгляд на подчиненную таблицу со стороны главной. Не то, что есть подчиненная таблица на самом деле, а то, как ее видит главная таблица. Изменяя "точку зрения" (текущую рабочую область) мы по-другому видим и подчиненную таблицу.

Между парой таблиц нельзя установить несколько связей одновременно. Неважно, сколько таблиц посредников было использовано. Попытка установить дублирующую связь вызовет сообщение об ошибке. Ну, действительно, если бы было настроено сразу две связи, то на какую запись в подчиненной таблице надо было бы установить указатель записей при перемещении в главной таблице? Вот возникновение данной неопределенности и является причиной подобного запрета.

В отличие от "постоянной связи", обычная связь не требует наличия индекса в главной таблице, но вот в подчиненной таблице индекс должен быть и более того, этот индекс должен быть главным. Одна из распространенных ошибок - это переключение главного индекса в подчиненной таблице. При этом настроенная связь не разрывается, но вот результат ее действия становится весьма неопределенным.

Еще одна тонкость заключается в том, что связь можно настроить не по полному, а по частичному (по первым символам) совпадению ключа. Разумеется, если используется настройка SET EXACT OFF (это настройка по умолчанию).

Например, если подчиненная таблица имеет 2 поля ParentID и NickName и требуется упорядочить записи в пределах каждого значения ParentID в алфавитном порядке NickName, то в подчиненной таблице строится примерно такой индекс:

INDEX ON ParentID+NickName TAG SortOrd

Здесь я предполагаю, что ParentID - это поле символьного типа. Тогда в главной таблице настраивается связь по выражению только ParentID

SET RELATION TO ParentID INTO ChildTab

В результате, связь между таблицами будет настроена по значению поля ParentID, но в пределах одного значения ParentID в подчиненной таблице записи буду упорядочены в алфавитном порядке значений поля NickName

Строго говоря, команда SET RELATION TO устанавливает связь по типу один-к-одному. Т.е. если реально связь имеет вид один-ко-многим, то Вы не увидите этих "многих". Отображаться будет только первая попавшаяся запись дочерней таблицы. Для установки связи один-ко-многим после команды SET RELATION TO следует дать команду SET SKIP TO. В подавляющем большинстве случаев использовать команду SET SKIP TO нет необходимости. Надобность в ней возникает только в случае визуального отображения связи вида один-ко-многим. Если речь идет о программировании, то стоит ограничиться только командой SET RELATION TO

Если Вы работаете с DataEnvironment формы или отчета, то установка связи между таблицами фактически означает команду SET RELATION. А установка значения свойства объекта Relation.OneToMany = .T. фактически означает команду SET SKIP TO. Еще раз напомню, для правильной работы связи просто необходимо установить главный индекс в подчиненной таблице. Т.е. свойство Order соответствующего объекта Cursor. Индекс главной таблицы на работу связи никак не влияет.

Особенности работы SET RELATION в Grid (Browse - окне)

Если главную таблицу Вы отображаете в одном Grid, а подчиненную в другом, то только одна команда SET RELATION TO (без дополнительной команды SET SKIP TO) даст эффект отображения данных вида один-ко-многим. Т.е. при перемещении указателя записей в главном Grid в подчиненном автоматически будут отображаться только записи соответствующие текущей записи главной таблицы. Без каких-либо дополнительных настроек и программирования.

Если данные и главной и подчиненной таблицы Вы отображаете в одном Grid, то требуется дать команду SET SKIP TO для визуализации связи один-ко-многим. При этом строки главной таблицы, которым соответствует "много" записей в подчиненной таблице будут отображать свое содержимое только для первой записи подчиненной таблицы, а содержимое остальных строк будет отображаться в виде "квадратиков"

В Grid существует набор свойств, которые позволяют организовать связь с главной таблицей, если в Grid отображается содержимое подчиненной таблица (ChildOrder, LinkMaster, RelationExp). Но я не советовал бы их использовать, поскольку их настройка "наложится" на настройку объекта Relation в DataEnvironment и результат выйдет совершенно непредсказуемый. Лучше настраивать связь в том объекте, который для этого собственно и предназначен.

Особенности работы SET RELATION в отчетах (Report)

Если таблицы имеют связь вида один-ко-многим, то для печати в отчете этих "многих" обязательно следует использовать команду SET SKIP TO (для DataEnvironment настроить Relation.OneToMany = .T.). В этом случае строки главной таблицы, которые имеют несколько записей в подчиненной таблице "размножатся"

 

Когда следует использовать связь

Ну, с "постоянной связью" все относительно просто. Ее следует использовать, если Вы собираетесь построить Referential Integrity. Просто все остальные способы использования "постоянных связей" не стоят усилий по их созданию.

А вот с "обычной" связью все не так однозначно.

Дело в том, что связь имеет смысл при отображении данных (Grid, Browse, Report), а при программировании зачастую удобнее пользоваться прямым поиском в дочерней таблице через LOCATE или SEEK() (не всегда, но "как правило").

Да и при просмотре не все так гладко. Есть несколько проблем, которые в принципе решаемы при помощи связей, но приводят к заметному (для пользователя) "притормаживанию" приложения:

• На подчиненную таблицу требуется наложить дополнительный фильтр
• Необходимо иметь возможность изменения сортировки подчиненной таблицы

Эти и ряд других проблем решаются с помощью создания выборок (Select-SQL) или Local View. Когда отображается не вся таблица, а только нужная ее часть. Некое подобие клиент-серверной технологии. Но в этом случае фактически отпадает надобность в установке связи, поскольку вся необходимая информация и так отбирается в запросе или Local View.

В результате получается, что связи имеют смысл, только когда не требуется никакой дополнительной обработки подчиненной таблицы. А в современных задачах это достаточно редкая ситуация. Попробуйте объяснить пользователю, почему это он не может отсортировать Grid, щелкнув по заголовку столбца. Какая еще связь нарушится? А мне хочется!

Так что же, связи вообще не нужны? Ну, почему же. Просто они, как и индексы для сортировки (имею в виду индексы, необходимые для отображения информации в нужном порядке) перешли в разряд "второстепенных" инструментов и используются не на основных таблицах, а на временных выборках и Local View.

Автор публикации

не в сети 26 лет

Владимир Максимов

Комментарии: 0Публикации: 65Регистрация: 02-09-2000

(далее…)

]]> https://foxclub.ru/knowledgebase/indeksy-bystrogo-prigotovleniya/ Fri, 28 Aug 2020 11:32:26 +0000

Индексы быстрого приготовления

Эти функции пригодятся, когда нужно на скорую руку построить индексы в произвольном нарастании/убывании, по полям разных типов в VFP или FPD, или почему-то "правильный" индекс не работает.

Индексы быстрого приготовления

*******************************************************************
* Индексы быстрого приготовления *
* *
* 1. Назначение *
* Нередко возникает задача создания сложного индекса, содержащего *
* поля таблицы разных типов. В общем случае эта задача не имеет *
* однозначного решения, зато в ней имеются забавные подвохи. *
* Предлагаемое решение позволяет строить индексы, даже не *
* зная типов используемых переменных и полей таблицы. Плюс *
* произвольно назначать нарастание/убывание для любого поля, *
* входящего в индекс. При желании можно оптимизировать исходные *
* функции для собственных целей. Для маломерных таблиц *
* оптимизация и не потребуется. *
* *
* 2. Структура программы *
* 2.1. Создаются вспомогательные константы. *
* 2.2. Синтезируется тестовая таблица на 100 000 записей, *
* заполненная случайными значениями. *
* 2.3. Таблица индексируется. *
* 2.4. Индексированная таблица копируется во вторую таблицу для *
* удобства просмотра. *
* 2.5. Тестовые файлы и папка удаляются. *
* *
* 3. Прочее *
* 3.1. Предусмотрена работа под FoxPRO 2...8 *
* *
* 4. Благодарности принимаютсяна ник GoodMan *
* *
* *
******************** 13 апреля 2004 *******************************

SET CENTURY ON
SET TALK OFF
SET ECHO OFF
SET DATE ANSI
SET HOURS TO 24
SET BLOCKSIZE TO 64
SET PROCEDURE TO myindex
PUBLIC records_in_sample
records_in_sample=100000 && число записей в тестовой таблице

DO dbfsample && изготовление тестовой таблицы
DO charset && подготовка вспомогательных символьных констант

SET DEFAULT TO C:_myindex
SELECT 1

INDEX ON (descend1("char_1")+ascend1("logic_1")+descend1("numer_1"));
;
TO myindex.cdx COMPACT

COPY TO dbf2
SELECT 2
USE dbf2
CLEAR
BROWSE LAST

DO goodby && удаление тестовых файлов и папки C:_MYINDEX

*QUIT

*--ASCEND1***********************************
* преобразование аргумента в текстовую *
* константу с характеристикой ASCENDING *
*********************************************
FUNCTION ascend1
PARAMETER cur_obj
PRIVATE cur_obj, obj_type, obj_value
obj_type=TYPE(cur_obj)
DO CASE
CASE (obj_type $ "CM") && идентификация аргументов CHAR и MEMO
obj_value=LEFT(ALLTRIM(LEFT(&cur_obj,254)),20)
CASE (obj_type $ "NY") && идентификация аргументов NUMERIC и CURRENCY
Cur_obj=&cur_obj
DO CASE
CASE cur_obj>0
Obj_value=PADL(STR(LOG(cur_obj)+3000,12,7),12,"0")
CASE cur_obj=0
Obj_value="2000.0000000"
CASE cur_obj0
Obj_value=PADL(STR(-LOG(cur_obj)+1000,12,7),12,"0")
CASE cur_obj=0
Obj_value="2000.0000000"+REPLICATE("0",12)
CASE cur_obj= 3)
* Делаем тестовую таблицу для VFP 3...8...
CREATE TABLE MYINDEX ;
( logic_1 L( 1), ;
char_1 C( 10), ;
numer_1 N(15,3), ;
curren_1 Y( 8), ;
memo_1 M , ;
date_1 D( 4), ;
datetime_1 T( 8) )

USE C:_myindexmyindex

tmp=RAND(-1)
i1=1

DO WHILE i1 ]]> https://foxclub.ru/knowledgebase/updated-sql_grid-klass-grida-pozvolyayushhij-sochetat-moshh-skvoznyh-zaprosov-pass-through-k-sql-subd-ili-k-drugim-odbc-istochnikam-s-udobstvom-raboty-prevyshayushhim-udobstva-raboty-s-udal/ Fri, 28 Aug 2020 11:32:26 +0000

Updated! SQL_Grid – класс Grid’а, позволяющий сочетать мощь сквозных запросов (pass-through) к SQL СУБД (или к другим ODBC-источникам) с удобством работы, превышающим удобства работы с удал. предст-ми

Updates: исправлена мелкая ошибка, иногда возникавшая при удалении - обновление не отправлялось на сервер. Аналогично удаленным представлениям, на стороне клиента работа с данными сводится к операциям с локальным буферизированным курсором, полученным с SQL-сервера. Все изменения в курсоре могут автоматически или принудительно переданы на SQL-сервер с помощью модифицирующих SQL-выражений, записанных в специальных свойствах. Все выражения независимы друг от друга и могут содержать любые корректные для конкретного SQL-сервера команды (выборки, вызовы процедур и т.п.) Может использоваться также как обычный GRID источников данных, требующих закрытия/открытия источника данных. Также содержит возможность подсветки строки. Подсветка производится любым объектом, производным от базового класса Shape и расположенным в том же родительском контейнере, что и объект, производный от класса Sql_Grid. Создан в VFP 5.0

Аналогично удаленным представлениям, на стороне клиента работа с данными сводится к операциям с локальным буферизированным курсором, полученным с SQL-сервера. Все изменения в курсоре могут автоматически или принудительно переданы на SQL-сервер с помощью модифицирующих SQL-выражений, записанных в специальных свойствах. Все выражения независимы друг от друга и могут содержать любые корректные для конкретного SQL-сервера команды (выборки, вызовы процедур и т.п.)

Может использоваться также как обычный GRID источников данных, требующих закрытия/открытия источника данных (в обычном GRID'е после переоткрытия данные будут не видны) - методы Save_DS (применяется перед закрытием) и Rest_DS (применяется после переоткрытия источника данных).

Также содержит возможность подсветки строки. Подсветка производится любым объектом, производным от базового класса Shape и расположенным в том же родительском контейнере, что и объект, производный от класса Sql_Grid. Для ссылка на такой объект используется свойство Hlt_Shape. Внутри библиотеки sql_grid.vcx содержится специальный класс Hlt_Shape, для использования в качестве строки подсветки и класс Hlt_Text - textbox для лучшего использования строки подстветки. Хотя их использование и не обязательно (подробнее в соответствующем разделе).

Кратко о возможностях:

• 5 свойств для автоматических операций с данными, содержащих SQL-выражения:
  • SqlInitSelect - строка SQL-выражения для инициализации курсора,
  • SqlSelect - строка SQL-выражения для получения/обновления данных в курсоре (это же выражение будет использовано для инициализации курсора, если свойство SqlInitSelect не заполнено),
  • SqlInsert - строка SQL-выражения, передаваемого на сервер для новых строк из курсора,
  • SqlUpdate - строка SQL-выражения, передаваемого на сервер для измененных строк в курсоре,
  • SqlDelete - строка SQL-выражения, передаваемого на сервер для удаленных строк в курсоре
  • SqlRefresh - строка SQL-выражения для обновления строки курсора данными с SQL-сервера после передачи обновлений на сервер,
• упрощенная запись параметров-полей курсора в SQL-выражениях;
• автоматическое открытие буферизированного курсора;
• автоматическое закрытие курсора при уничтожении объекта;
• автоматическое или принудительное обновление данных на сервере (будет исполнено для всех измененных, добавленных или удаленных строк);
• автоматическая посылка подтверждения (Commit) после посылки обновления данных;
• метод, исполняющий любые SQL-выражения - аналог SqlExec с выдачей ошибок;
• свойство-признак измененности данных в курсоре - SqlModified ;
• предупреждение о наличии не сохраненных данных в курсоре при уничтожении объекта (проверку можно вызвать принудительно).

Полное описание - в файле sql_classes.rtf

Автор: Алексей Кирпичев

Автор публикации

не в сети 6 месяцев

admin

Комментарии: 1Публикации: 123Регистрация: 10-12-2000

(далее…)

]]> https://foxclub.ru/knowledgebase/poluchenie-ikonki-iz-lyubogo-fajla-i-sohranenie-v-bmp-proizvolnogo-razmera/ Fri, 28 Aug 2020 11:32:26 +0000

Получение иконки из любого файла и сохранение в .BMP произвольного размера.

Может пригодится например для ListBox и пр.

Получение иконки из любого файла и сохранение в .BMP произвольного размера.

DECLARE INTEGER GetDC IN Win32API INTEGER HWND
DECLARE INTEGER CreateCompatibleDC IN Win32API INTEGER
*DECLARE INTEGER CreateCompatibleBitmap IN Win32API INTEGER,INTEGER,INTEGER
DECLARE INTEGER GetObject IN Win32API AS GetObject2 INTEGER,INTEGER,STRING
DECLARE INTEGER SelectObject IN Win32API INTEGER hdc,INTEGER
DECLARE DeleteObject IN Win32API INTEGER
*DECLARE INTEGER ReleaseDC IN Win32API INTEGER,INTEGER
DECLARE INTEGER DeleteDC IN Win32API INTEGER

DECLARE INTEGER ExtFloodFill IN Win32API INTEGER,INTEGER,INTEGER,INTEGER,INTEGER
*DECLARE INTEGER DrawIcon IN Win32API INTEGER,INTEGER,INTEGER,INTEGER
DECLARE INTEGER DrawIconEx IN Win32API INTEGER,INTEGER,INTEGER,INTEGER,;
INTEGER,INTEGER,INTEGER,INTEGER,INTEGER
DECLARE INTEGER ExtractAssociatedIcon IN Shell32 INTEGER,STRING @,INTEGER @
#define DI_MASK 0x0001
#define DI_IMAGE 0x0002
#define DI_NORMAL 0x0003
#define DI_COMPAT 0x0004
#define DI_DEFAULTSIZE 0x0008

Local ih,n,ic,hdc,mem1,x1,y1,ob,hb
s='example.doc' && любой выбранный файл по This.Value
n=0
* загружаем любой файл-шаблон .BMP например с размерами 20x20,
* чтобы не создавать новый по CreateCompatibleBitmap()
ic=LOADPICTURE('pap24.bmp')
ih=ExtractAssociatedIcon(GetFocus(),@s,@n) && получаем иконку файла

hdc=GetDC(GetFocus())
mem1=CreateCompatibleDC(hdc) && заводим еще аналогичный HDC для копирования
hb=ic.Handle
SelectObject(mem1,hb) && выбираем в него обьект-шаблон
ob=Space(100)
GetObject2(hb,100,@ob) && получение размеров битмапа
x1=ASC(SUBSTR(ob,6,1))*256+ASC(SUBSTR(ob,5,1))
y1=ASC(SUBSTR(ob,10,1))*256+ASC(SUBSTR(ob,9,1))
ExtFloodFill(mem1,0,0,0xffff,0) && красим шаблон в белый цвет
*=StretchBlt(mem1,0,0,20,20,mem,0,0,32,32,13369376)

DrawIconEx(mem1,0,0,ih,x1,y1,0,0,DI_NORMAL) && копируем иконку на шаблон
SAVEPICTURE(ic,'temp.bmp') && пишем шаблон в .BMP
DeleteDC(hdc)
DeleteDC(mem1) && удаляем HDCы
*DeleteObject(ih)
*DeleteObject(hb) && по хорошему и обьекты тоже

Может пригодится например для ListBox и пр.
CLEAR RESOURCES &&[FileName] очистка кэша картинок, к сожалению раб. не всегда, даже в 7ке?!
o.Picture='temp.bmp'
o.Requery

Комментарий:
Если бы можно было добратся до Handle картинок тех-же Itemов, не пришлось бы так изгаляться 🙁

Автор: Sergey Filimonoff

Автор публикации

не в сети 23 года

Sergey Filimonoff

Комментарии: 0Публикации: 4Регистрация: 15-01-2003

(далее…)

]]> https://foxclub.ru/knowledgebase/otpravka-pochty-smtp-s-ispolzovanie-winsockets/ Fri, 28 Aug 2020 11:32:26 +0000

Отправка почты SMTP с использование WinSockets

Отправка почты из программ, написанных на FoxPro, без использования MAPI и других сторонних программ.

Отправка почты SMTP с использование WinSockets

Очень часто возникала задача простой отправки почты.
Я очень долго мучался с MAPI и в конце-концов решил, что свое лучше,
свое всегда можно изменить, да и повысить свой уровень тоже неплохо... 🙂
В итоге остановился на WinSock...

Следующий класс следует использовать только с VFP8.

Пример использования:

thisform.addobject('mail','SendMail')

thisform.mail.addfile('c:boot.ini')

thisform.mail.remotehost='smtp.host.ru'
thisform.mail.remoteport=25
thisform.mail.addressfromwho='zonner@mail.ru'
thisform.mail.addresstowho='ivan@mail.ru'
thisform.mail.namefromwho='Игорь'
thisform.mail.nametowho='Иван'
thisform.mail.addressreplyto='petr@list.ru'
thisform.mail.namereplyto='Петр'
thisform.mail.subject='Просто письмо'
thisform.mail.message='Содержание письма'
thisform.mail.include=''
thisform.mail.send()

Автор: wyvern

Автор публикации

не в сети 6 месяцев

admin

Комментарии: 1Публикации: 123Регистрация: 10-12-2000

(далее…)

]]> https://foxclub.ru/knowledgebase/grid-so-strokoj-podsvetki-na-baze-shape/ Fri, 28 Aug 2020 11:32:26 +0000

Грид со строкой подсветки на базе Shape

Для тех, кто пока не работает в VFP 8. Строка подсветки на базе Shape более функциональна чем подсветка на базе DynamicBackColor: есть режим инверсии, можно использовать BackColor и DynamicBackColor для других целей.

Основное назначение этого класса - Sql_Grid другое, строка подсветки прилагается как опция. Подробное описание см. в решении: Sql_Grid Краткое описание
В качестве строки подсветки для sql_grid'а может использоваться любой объект, производный от класса Shape. Достаточно положить его в тот же контейнер (форму, страницу PageFrame и т.д.), что и объект, производный от sql_grid и в свойстве hlt_shape этого объекта указать имя объекта Shape.
Недостатки:

• объект в активной колонке получает фокус и располагается поверх строки подсветки;
• когда строка подсветки располагается поверх Grid'а, не возможно передать события мыши и получить фокус объекта, расположенного под Shape.

Эти недостатки устраняются с помощью классов, содержащихся в поставляемой библиотеке:

• Hlt_Shape – Shape, настроенный для использования в качестве строки подсветки: DrawMode установлен в Merge Pen Not (14), события мыши (MouseDown, MouseUp, MouseMove, Click, DblClick) передаются в объект, расположенный под ним. Для передачи событий в Grid имеет свойство LinkedGrid, в которое нужно внести имя объекта класса sql_grid. Таким образом, для согласованной работы Sql_Grid'а и строки подсветки класса Hlt_Shape необходимо сделать перекрестные ссылки друг на друга в свойствах Hlt_shape (в объекте класса Sql_Grid) и LinkedGrid (в объекте класса Hlt_Shape)
• Hlt_Text – класс, производный от TextBox. Специально создан для использования со строкой подсветки в объекте класса Sql_grid. Представляет из себя обычный textbox, но при получении фокуса вызывает метод BringHighLight родительского объекта sql_grid, т.е. фокуса он не получает – подходит только для отображения данных в Grid'е, без изменения прямо в нем (мне это подходит, т.к. все изменения данных я делаю в отдельных формах) При использовании этих классов совместно с Sql_Grid строка подсветки работает без указанных недостатков.

Автор: Алексей Кирпичев

Автор публикации

не в сети 6 месяцев

admin

Комментарии: 1Публикации: 123Регистрация: 10-12-2000

(далее…)

]]> https://foxclub.ru/knowledgebase/predprosmotr-otchetov-report/ Fri, 28 Aug 2020 11:32:26 +0000

Предпросмотр отчетов Report.

Имеется меню на правую кнопку, прокрутка листа клавишами и специальный тулбар управления отчетом. Показ окна просмотра идет в SCREEN или TopLevelForm приложения.

 Идею нашел на этом сайте в решениях (автор Aries). Обычный просмотр не дает возможности себя контролировать, тулбар просмотра не управляем... В моем решении отчет выводится в "окно вывода отчета", которое показывается внутри "окна просмотра". "Окно просмотра" лекго показывается внутри SCREEN или TopLevelForm приложения. Main_Window=... - можно задать ссылку на главное окно в глобавльной переменной.  Имеется меню на правую кнопку, прокрутка листа клавишами и специальный тулбар управления отчетом.  Для открытия просмотра используется код:  PUBLIC go_rep1 IF TYPE('go_rep1.Name')='C' 	go_rep1.Release() ENDIF go_rep1=CREATEOBJECT('form_report', 'Report1', 0)    && 0/1 - portrait/landsc (A4) go_rep1.Caption=go_rep1.Caption+' '+"Название отчета(кот. будет показано в заголовке)" go_rep1.Show() 

Дополняю 16/03/2004
Если использовать тулбар в приложении, то для форм можно сделать OpenReport(). При наличии этого метода у формы - становится активной кнопка "Просмотр отчета" в тулбаре. В метод OpenReport() надо записать код открытия отчета, тогда при нажатии на эту кнопку, пользователю будет открываться отчет для активной формы. В рещении это реализовано. (Тогда необязательно прятать тулбар, как пишет Перьминов Игорь)

Автор: Syberex

Автор публикации

не в сети 22 года

Syberex

Комментарии: 0Публикации: 3Регистрация: 19-01-2004

(далее…)

]]> https://foxclub.ru/knowledgebase/sovety-nachinayushhim-chast-iii/ Sun, 20 Nov 2022 05:54:23 +0000

Советы начинающим Часть III

В этой статье :

Индекс
Типы (виды) индексов
Режим сортировки индексов (Collate)
Метод половинного деления
Использование индексов для отображения данных
Контроль уникальности данных при помощи индекса
Название индексных тегов
Сколько и каких индексов надо создавать
Собственно работа с индексами

Индекс

Важнейшим элементом любой системы управления базами данных является наличие средств ускоренного поиска данных, поскольку поиск - это самая распростарненная операция в системах обработки данных. Но простое сканирование исходной таблицы в поисках нужной записи - это относительно медленная операция. В предельном случае, необходимо будет просканировать все записи таблицы, чтобы найти нужную запись или убедится, что такой записи не существует. Чтобы уменьшить количество просматриваемых записей, как правило, создают специальный файл, который содержит в себе нечто вроде списка пар: значение записи - номер запись. Т.е. в этом файле, перечисленны все значения некоторого поля или функции полей таблицы и указаны идентификаторы соответсвующих записей Этот специальный файл называют индексным файлом, а имя поля или функцию полей, на основе которого вычисляется значение записи - индексным ключем

В FoxPro различают 2 вида индексных файлов

Простой (обычный) индексный файл - это файл с расширением IDX, который содержит в себе только один индексный ключ

Мультииндексный файл - это файл с расширением CDX, который может содержать в себе несколько индексных ключей. По существу, мультииндексный файл - это объединение в одном файле нескольких простых (обычных) индексных файлов. Каждый отдельный индекс в этом файле за неимением лучшего термина называют тегом (от английского TAG - этикетка, метка)

Кроме того, выделяют еще особый структурный индексный файл - это обычный мультииндексный файл, но его имя совпадает с именем файла DBF по полям которого и строятся индексные ключи

Структурный индексный файл отличается тем, что он автоматически открывается при открытии соответствующей таблицы и его невозможно закрыть, пока открыта таблица (хотя можно сделать не главным)

Главный индекс - это тот индексный ключ, под управлением которого в данный момент находится таблица. Таблица не может быть отсортирована по нескольким индексным ключам одновременно. Хотя, если одна и та же таблица открыта одновременно в нескольких рабочих областях, то у каждой копии таблицы может быть назначен свой главный индекс.

После всех этих определений наконец-то можно сказать, что же подразумевается в большинстве случаев под словом индекс в FoxPro

---

Индекс - это один тег структурного индексного файла

---

 

Типы (виды) индексов

В FoxPro в настоящий момент различают четыре типа (вида) индексов

Candidat	Данный тип индекса предполагает, что по указанному индексному ключу во всей таблице нет повторяющихся значений. Попытка ввода в таблицу значения, которое уже есть в какой-либо записи таблицы, приведет к сообщению об ошибке. При этом наложенные на таблицу фильтры игнорируются. Следует заметить, что записи, помеченные как удаленные, также учитываются при контроле уникальности значения. Попытка ввода значения типа NULL также вызовет сообщение об ошибке. Очень много недоразумений возникает из-за контроля уникальности данных в индексе типа Candidat. Типичные ошибки, заключаются в следующем: -) Пустое значение (одни пробелы) - это тоже значение, поэтому невозможно создать 2 записи с пустыми значениями. Это будет воспринято как попытка ввода 2 одинаковых значений. -) Установка ограничения SET DELETED ON - не есть физическое удаление записей помеченных как удаленные. Это всего-лишь наложение специфичекого фильтра, который делает такие записи "невидимыми", но тем не менее они по прежнему существуют в таблице. Поэтому попытка ввода новой записи со значениями, которые есть в одной из записей помеченных как удаленная также будет рассматриваться как ввод дублирующего значения.
Primary	Можно сказать, что данный тип - это частный случай индекса типа Candidat. Он обладает всеми свойствами индекса типа Candidat, но с дополнительными ограничениями. Данный тип индекса может быть только один в каждой таблице и данный тип индекса может быть только у таблиц включенных в базу данных. Если таблица с индексом типа Primary исключается из базы данных, то индекс типа Primary автоматически конвертируется в тип Candidat. Строго говоря, никакой дополнительной функциональности, с точки зрения целостности данных индекс типа Primary по сравнению с индексом типа Candidat не дает. Однако факт его наличия облегчает процесс проектирования базы данных. Дело в том, что по умолчанию предполагается, что индекс типа Primary построен по ключевому полю таблицы. Соответственно в тех визуальных средствах программирования, где необходимо указание ключевого поля (например, View Designer на закладке Update Criteria) FoxPro автоматически предлагает считать ключевым то поле, по которому построен индекс типа Primary.
Regular	Это самый распространенный тип индексов. Его использование не предполагает никаких особых ограничений на содержимое таблицы. Можно сказать, что это обычный (простой) индекс
Unique	Данный тип индекса не запрещает ввод в таблицу одинаковых значений, однако учитывает (отображает) только одно (самое первое) из введенных одинаковых значений. Можно сказать, что это своеобразный фильтр, который отсекает повторяющиеся значения.

Отдельного упоминания заслуживает использование команды APPEND BLANK применительно к таблицам, по которым построены индексы типа Primary или Candidat.

По умолчанию, команда APPEND BLANK создает новую запись, где все поля имеют пустое значение. Но пустое значение - это тоже значение. Поэтому, если Вы дадите две команды APPEND BLANK подряд, то получите сообщение о нарушении уникальности индекса. Чтобы этого избежать необходимо создавать новую запись с не пустым и уже уникальным значением. Это можно сделать одним из следующих способов:

• Вместо APPEND BLANK использовать INSERT-SQL указав заранее созданные уникальные значения
• Использовать специальную функцию, генерирующую новые уникальные значения, вызов которой организовать из DEFAULT поля, по которому создан индекс типа Primary или Candidat.

Контроль уникальности в триггерах не сработает, поскольку проверка уникальности индекса выполняется ДО проверки триггеров. Т.е. проверять в триггерах в этом случае уже поздно.

 

Режим сортировки индексов (Collate)

Настройка SET COLLATE определяет режим сортировки символьных строк. Иными словами, какой символ надо поставить первым, а какой вторым, при упорядочивании.

По умолчанию, в FoxPro используется режим сортировки MACHINE. Это такой порядок сортировки, когда символы выстраиваются в соответствии с их ASCII-кодами. Чтобы понять что это означает (т.е. в каком порядке будут сортироваться символьные данные) посмотрите таблицу ASCII кодов. Это можно сделать так:

CREATE CURSOR curASCII (nASC   I, cCHR   C(1)) FOR m.lnI=1 TO 255 INSERT INTO curASCII (nASC,cCHR) VALUES (m.lnI, CHR(m.lnI)) ENDFOR BROWSE NOWAIT

Обратите внимание, что сначала идут большие буквы и только потом маленькие. Кроме того, применительно к буквам русского алфавита, выпадает буква "ё" (ASCII-код 184) и "Ё" (ASCII-код 168). Именно в таком порядке и будут следовать символьные строки.

Если используется какой-нибудь национальный режим сортировки, например RUSSIAN, то различия между большими и маленькими буквами игнорируются и все буквы национального языка выстраиваются по алфавиту без разрывов. Чтобы понять как изменится порядок сортировки выполните следующий код, используя полученный ранее курсор

SET COLLATE TO 'RUSSIAN' select curASCII INDEX ON cCHR TAG cCHR BROWSE NOWAIT

Как видите, буквы русского языка выстроились строго по алфавиту игнорируя разделение на большие и маленькие буквы и буква "Ё" заняла надлежащее ей место после "Е". Можно заметить и другие отличия, но здесь я их рассматривать не буду.

Какое отношение ко всему этому имеют индексы? Самое непосредственное. Дело в том, что каждый индекс в отдельности запоминает тот режим сортировки при котором он был создан и при модификации данных автоматически упорядочивает записи именно в этом сохраненном режиме сортировки.

Таким образом внутри одного индексного файла могут быть индексы созданные в разных режимах сортировки. Проверить режим сортировки в котором был создан индекс можно при помощи функции IDXCOLLATE()

Однако я бы не советовал на первых порах экспериментировать с SET COLLATE. Оставьте эту настройку в режиме по умолчанию, т.е. SET COLLATE TO 'MACHINE'. Этому есть причины.

• В версиях FoxPro младше 6 ServicePack 5 запросы Select-SQL теряли некоторые числовые значения если была установлена сортировка отличная от MACHIN. Т.е. эта ошибка сохранялась вплоть до Visual FoxPro 6 Service Pack 4 и была исправлена только с выходом Service Pack 5 к 6 версии.
• При использовании Private DataSession установка SET COLLATE - это одна из тех установок, которая сбрасывается в значение по умолчанию. Вследствии чего, ее надо устанавливать повторно каждый раз при открытии Private DataSession
  Полный список настроек, сбрасываемых в значения по умолчанию при использовании Private DataSession можно почитать в описании к команде SET DataSession
• При оптимизации используются только те индексы, которые созданы в том же режиме сортировки, что и текущий режим сортировки системы.
• В подавляющем большинстве случаев, вместо использования режима сортировки SET COLLATE TO 'RUSSIAN' можно использовать режим сортировки MACHINE с индексным ключем UPPER(MyField) или LOWER(MyField). Применительно к русским буквам эффект будет тот же (за исключением букв "ё" и "Ё")

 

Метод половинного деления

Чтобы понять, как наличие индексного файла позволяет ускорить поиск рассмотрим примерную схему работы наиболее распространенного способа поиска методом половинного деления

Предположим, что у нас есть некая таблица, содержащая ряд числовых значений:

Запись	Значение
1	500
2	300
3	200
4	400
5	100

Теперь предположим, что необходимо найти запись имеющую значение 200. В случае отсутствия индексного файла есть только один способ - сканирование всех записей таблицы, пока не будет найдено искомое значение или не будет достугнут конец файла. В данном случае можно считать повезло, поскольку сканирование закончится на 3 записи таблицы. Т.е. необходимо будет сделать как минимум 3 перехода.

Если будет создан индексный файл у которого в качестве индексного ключа будет указано просто имя поля, содержащего значение, то внутри этого индексного файла будет создано нечто вроде следующего списка

Значение	Запись
100	5
200	3
300	2
400	4
500	1

А теперь посмотрим как поиск записи со значением 200 приблизительно будет выглядеть в индексе в случае использования метода половинного деления.

-) На первом этапе определяются начальные и конечные значения. В данном случае - это 100 и 500. Значение 200 находится между ними.

-) Вычисляется среднее арифметическое от граничных значений: (100+500)/2=300 и берется ближайшее значение из списка значений к вычисленному среднему. В данном случае это то же самое значение 300

-) Теперь смотрим в какой половине находится искомое значение 200. Оно находится в интервале от 100 до 300

-) Вычисляется среднее арифметическое этого нового интервала: (100+300)/2=200 и берется ближайшее значение из списка значений к вычисленному среднему. В данном случае это то же самое значение 200.

-) Поскольку одно из граничных значений равно искомому значению, то цикл половинного деления прерывается. Определяется, что данное значение имеет запись с номером 3 и осуществляем переход на найденную запись

А теперь сравним, сколько шагов необходимо сделать в случае простого сканирования и в случае использования метода половинного деления

Предельно допустимое количество записей в DBF-таблице - это 1 миллирад (1 billion) записей (это единица и девять нулей). Значит при прямом сканировании таблицы в предельном случае может понадобиться просканировать весь миллирад записей. Т.е. сделать миллиард операций.

А в случае половинного деления количество операций определяется значением степени в которую следует возвести число 2, чтобы превысить миллирад (логарифм от миллиарда по основанию 2). Это число 30, поскольку 2**30=1,073,741,824. Т.е. в предельном случае для поиска значения в индексе потребуется не более 30 шагов

Выигрыш в производительности очевиден: миллирад против тридцати.

Замечание: Подчеркну еще раз: приведенный алгоритм - это всего лишь общая схема. В реальности и способ хранения данных в индексном файле и способ поиска несколько отличаются

 

Использование индексов для отображения данных

До сих пор, я рассматривал индекс только как способ ускорения поиска нужной информации, но ведь индекс может быть еще использован и как способ отображения информации в нужной последовательности.

Проблема здесь в том, что как правило, пользователь не работает напрямую с исходной таблицей по причине ее больших размеров (слишком много записей, чтобы охватить их "одним взглядом"). Всегда делается некая выборка. Наложение фильтров на исходные таблицы не приветствуется, поскольку такая технология замедляет работу (переход от записи к записи происходит заметно медленнее)

Т.е. создание индексов для упорядочивания записей в структурном индексном файле исходной таблицы не имеет смысла, поскольку собственно исходная таблица и не отображается.

Однако это вовсе не означает, что индексы для упорядочивания записей не используются. Дело в том, что любая таблица используемая в FoxPro может быть проиндексирована. Это относится как к обычным таблицам, так и к результатам выполнения команд Select-SQL, Local View и Remote View.

Другое дело, что такие индексы не имеет смысла хранить в базе данных. Их надо будет создавать заново каждый раз при создании соответсвующих временных таблиц или курсоров. Поскольку временные таблицы для того и создаются, чтобы получить некую выборку из исходных таблиц, то, как правило, они имеют относительно небольшое количество записей и их индексация не требует много времени.

Некоторые особенности создания индексов для временных таблиц

• Если курсор, созданный командой Select-SQL имеет статус Read-Only, то для него можно построить только один индексный тэг.
  По умолчанию, курсор созданный командой Select-SQL всегда имеет статус Read-Only, чтобы это изменить необходимо использовать опцию READWRITE (она появилась только в 7 версии). А для более младших версий курсор следует переоткрыть. Подробнее об этом читайте в разделе Курсор
• Индексация View возможна только если он находится в 3 режиме буферизации (оптимистическая буферизация строк). Если View находится в 5 режиме буферизации (оптимистическая буферизация таблиц), то при попытке индексации Вы получите сообщение об ошибке.
• Обновление содержимого View по команде Requery() также обновит и содержимое всех созданных для него индексов.
• Если Вы создали структурный индексный файл к курсору или View, то он будет автоматически удален в момент закрытия этого курсора или View

 

Контроль уникальности данных при помощи индекса

Индекс типа Candidat по самой своей природе не допускает ввода повторяющихся значений. В связи с этим возникает искущение не писать специальных триггеров за контролем уникальности данных, а переложить эту работу на индекс. Посмотрим, какие преимущества и недостатки это дает

Прежде всего, следует заметить, что индекс типа Candidat в "чистом" виде нас не устаивает по той причине, что в большинстве случаев задача контроля уникальности формулируется так: В таблице должны быть уникальны значения, если они удовлетворяют некоторым дополнительным условиям

Ну например, Вы хотите контролировать уникальность только среди записей не помеченных как удаленные.

Это можно сделать добавив в индекс FOR-условие, которое в данном случае будет выглядеть так: FOR .NOT.Deleted()

Но добавление FOR-условия в выражение индекса автоматически исключает его из списка индексов, участвующих в оптимизации. Т.е. для ускорения выборок понадобиться создать еще один индекс с тем же выражением индексного ключа, но без FOR-условия. Чтобы этот новый индекс не контролировал уникальность, он должен быть типа Regular

Как следствие, получаем "раздувание" индексного файла на "лишний" индекс.

Кроме того, следует помнить, что проверка уникальности данных в индексах типа Candidat происходит сразу же при попытке внесения изменений, даже в буферизированных данных еще до сброса буфера. В то время, как триггер срабатывает только в момент сброса буфера. Эту особенность, следует учитывать при написании обработчика ошибок в приложении.

С другой стороны, если написать триггер для контроля уникальности, то при определенных условиях, можно написать один общий триггер на все таблицы базы данных куда в качестве параметра передается выражение, уникальность которого следует проконтролировать и дополнительное условие отбора контролируемых записей. Здесь выражение "при определенных условиях" не случайно. Написать такой универсальный триггер "на все случаи жизни" мне представляется затруднительным, но если придерживаться некоторых правил и ограничений при проектировании базы данных, то это становится возможным.

Есть еще одно соображение, не столь принципиального характера. В случае внесения изменений в правило контроля уникальности если речь идет об индексе, то потребуется удалить старый индекс и создать новый, а если речь идет о триггере, то надо будет просто заменить файлы базы данных (DBC, DCX, DCT) на новые (с новым триггером)

Итого, контроль уникальности данных при помощи индекса типа Candidat с FOR-условием по сравнению с триггером проще в реализации, но приводит к значительно большему увеличению объема базы данных (в байтах) и изменению логики обработчика ошибок при редактировании данных.

 

Название индексных тегов

Если Вы создаете индекс, где в качестве индексного ключа выступает только одно поле таблицы то желательно назвать индекс также как и поле таблицы, поскольку это значительно упростит процесс программирования.

Поскольку существует системное ограничение на количество символов в названии индексного тега (он не может превышать 10 символов), то и не следует давать полям, по которым будут построены такие индексы, названия, превышающие 10 символов. Это не так сложно, как может показаться на первый взгляд.

 

Сколько и каких индексов надо создавать

Вопрос крайне неоднозначный и сильно зависит от конкретной задачи, однако некоторые рекомендации все-таки можно сделать.

• Прежде всего, Вам следует определиться в каком режиме сортировки (SET COLLATE) Вы будете работать. Дело в том, что индекс запоминает тот режим сортировки в котором он был создан и в оптимизации запросов участвуют только те индексы, которые были созданы в том же режиме сортировки, что и используемый на момент выполнения запроса.

  Например, если Вы создали индекс в режиме сортировки MACHINE, а запрос выполняется при настройке RUSSIAN, то индекс использоваться не будет, хотя казалось бы он есть. Проверить в каком режиме сортировки был создан тот или иной индекс можно используя функцию IDXCOLLATE(). При этом следует иметь в виду, что изменить режим сортировки индекса невозможно. Необходимо будет удалить "неправильный" индекс и создать новый в нужном режиме сортировки

• По ключевому полю постройте индекс типа Primary. Индекс не должен содержать никаких FOR-условий, а выражение индексного ключа должно состоять только из имени ключевого поля. Очень желательно, чтобы имя этого индекса совпадало с именем ключевого поля, поскольку это серьезно упростит процесс программирования.
• По всем внешним ключам (т.е. полям, содержащим ссылку на другую таблицу) следует построить простые индексы типа Regular. Индекс не должен содержать никаких FOR-условий, а выражение индексного ключа должно состоять только из имени поля. Очень желательно, чтобы имя этого индекса совпадало с именем поля, поскольку это серьезно упростит процесс программирования.

Это были очевидные рекомендации связанные с поиском данных, поскольку и ключевое поле и внешние ключи будут использоваться очень часто и в самых разных условиях. Теперь рассмотим менее очевидные ситуации.

Индексы используются для ускорения получения выборок в так назваемой Rushmore-оптимизации. Что это такое и как оно работает я здесь объяснять не будут. С точки зрения создания индексов нас интересует следующая особенность работы Rushmore-оптимизации:

Если выражение оптимизируемое, то сначала выборка производится в индексе и только затем отбираются найденные в индексе записи. Если выражение не оптимизируемое, то выборка производится непосредственно в исходной таблице.

Следствием этой особенности работы является следующий вывод

---

Если объем информации (в байтах) НЕ удовлетворяющей условию выборки меньше, чем размер индекса (в байтах) по данному условию выборки, то в общем случае оптимизация приведет к замедлению выборки

---

В виде формулы это можно записать так. Оптимизация приведе к замедлению выборки если:

Объем информации НЕ удовлетворяющей условию < Объем индекса

Объем информации НЕ удовлетворяющей условию - это произведение количества записей не попадающих в выборку на объем в байтах одной записи.

Объем индекса - это сумма размеров индексных тэгов, участвующих в оптимизации.

Проблема здесь именно в том, как определить размер одного индексного тэга. Очень грубо и приблизительно, его можно оценить как количество символов получающееся в результате расчета индексного ключа умноженное на общее количество записей в таблице. Это очень грубая оценка, поскольку способ хранения индекса сильно отличается от линейного списка пар: значение ключа - код записи.

Однако даже при такой грубой оценке можно сделать вывод, что индекс по логическим полям в большинстве случаев приведет к замедлению, а не к ускорению выборки.

Причина здесь в том, что логические поля в большинстве случаев работают как признак некой исключительной (т.е. достаточно редкой) ситуации, а запрос строится по принципу отобрать все, кроме этих заведомо редких случаев. Т.е. заранее можно сказать, что объем информации НЕ удовлетворяющий условию выборки будет очень небольшим (если вообще будет).

Пожалуй, индекс по логическим полям имеет смысл, только в случае, если значения .T. и .F. распределены примерно равномерно по таблице. Предельный случай - две трети и одна треть.

Частным случаем индекса по логическому выражению является индекс по выражению Deleted(). Этот индекс используется в случае настройки SET DELETED ON для того, чтобы оптимизировать выборку на предмет отсечения записей помеченных как удаленные. Как уже было сказано чуть выше, если количество удаленных записей относительно невелико, то данный индекс приведе не к ускорению, а к замедлению выборки.

Значительно сложнее определить необходимость прочих индексов. Да, есть некоторые правила, которые говорят, что если построить такой и такой индекс, то запрос будет оптимизирован. Даже есть функция SYS(3054) при помощи которой можно установить используется ли данный индекс при оптимизации или нет (да и то не всегда из-за несовершенства функции SYS(3054)). Но как было замечено ранее: оптимизация далеко не всегда приводит к ускорению получения выборки.

Поэтому фактически единственным критерием остается практика: если факт наличия индекса приводит к заметному (в разы) ускорению получения выборки, то его стоит создавать.

Но даже факт ускорения получения выборки не может являтся единственным критерием необходимости создания индекса. Еще одним не маловажным критерием является вопрос о том, насколько часто используется эта выборка.

Например, если речь идет о составлении квартального отчета, то особо гнаться за скоростью здесь не требуется. Пользователь вполне может подождать и воспримет это с пониманием. Но вот если в процессе открытия основной рабочей формы, программа будет задумывать на несколько минут, то ничего кроме раздражения со стороны пользователя это не вызовет.

Замечу еще, что индексы содержащие FOR-условия в оптимизации не участвуют

 

Собственно работа с индексами

• В FoxPro не поддерживается значение индексного ключа переменной длины. Т.е. если в качестве выражения индексного ключа Вы напишите AllTrim(MyField), то хотя ошибки это и не вызовет, но фактически будут удалены только ведущие пробелы, а общая длина каждого значения будет дополнена концевыми пробелами до некоторой фиксированной величины. В данном случае до длины поля MyField. Поэтому, чтобы избежать различных недоразумений, лучше в таких сложных случаях самостоятельно явно указывать длину индексного ключа, например PADR(AllTrim(MyField),50)
• По возможности, старайтесь избегать сложных выражений индексного ключа для тегов структурного индексного файла. Чем проще выражение индексного ключа - тем лучше. В идеале, лучше иметь индексный ключ состоящий из названия одного поля.
• Индекс "запоминает" режим сортировки (SET COLLATE) при котором он был создан и при модификации исходных таблиц автоматически сортирует новые значения в "запомненном" режиме сортировки вне зависимости от текущей настройки SET COLLATE. Проверить в каком режиме сортировки был создан тот или другой тег можно функцией IDXCOLLATE()
• На результат поиска по индексному выражению влияет настройка SET EXACT, а внутри команды SELECT-SQL аналогичная ей настройка SET ANSI
  Эти настройки определяют как будет осуществлятся поиск в случае если заданный критерий поиска отличается по длине от длины индексного ключа. По умолчанию, если заданный критерий поиска меньше длины индексного ключа, то будут найдены записи, где заданный критерий - это первые символы индексного ключа. Фактически поиск ведется по первым символам, а не по всему ключу.
  Если необходимо избежать влияния этих настроек на результат поиска (т.е. требуется строгое соответствие), то дополняйте критерий поиска нужным количеством пробелов справа используя функцию PADR(KeyValue,10)
• Следует помнить, что изменения данных в исходной таблице приводит к немедленному изменению всех открытых в данный момент индексов и перестроению в соответствии с главным индексом. Это значит, что крайне нежелательно модифицировать те поля, которые входят в выражение индексного ключа главного индекса, поскольку это может привести к непредсказуемым последствиям. Предварительно надо или переглючится на другой индекс или вообще отключить главный индекс (SET ORDER TO 0)

  Рассмотрим следующий пример

  CREATE CURSOR test (testID I) INSERT INTO test (testID) VALUES (2) INSERT INTO test (testID) VALUES (1) INDEX ON testID TAG testID

  Предположим, необходимо увеличить значение поля TetsID в каждой записи таблицы на 10. Для чего используем цикл SCAN

  SELECT test SCAN       REPLACE testID WITH testID+10 ENDSCAN

  Так вот, в данном случае произойдет модификация только одной записи. Механизм здесь следующий:

  -) На первом шаге цикла SCAN указатель записей будет установлен на первую запись в соответсвии с главным индексом. Это запись со значением поля testID=1

  -) По команде REPLACE значение поля TestID первой записи будет увеличено на 10 и примет значение 11. Немедленно произойдет модификация индексного файла и его перестроение. Теперь эта же самая запись оказывается не первой, а самой последней

  -) На команде ENDSCAN будет предпринята попытка перейти на следующую запись, но в соответствии с новым значением индекса текущая запись уже последняя. Поэтому цикл будет завершен и запись со значением testID=2 так и останется не измененной.

  Для исправления этой ситуации необходимо перед началом цикла сбросить главный индекс

  SELECT test SET ORDER TO 0 SCAN       REPLACE testID WITH testID+10 ENDSCAN

• Индексный файл - это все-таки отдельный (другой) файл. Поэтому если индексный файл не открыт (командой SET INDEX или опцией ORDER в команде USE), то изменения сделанные в исходной таблице не отразятся в индексе. Это может привести к серьезным недоразумениям - запись введена, но ее не видно.

  Исключением в этом смысле является структурный индексный файл, который открыт всегда, пока открыта таблица, но для не структурных индексов за этим надо следить отдельно. Фактически, если используются не структурные индексные файлы, то необходимо либо сразу после их подключения давать команду REINDEX, либо вообще их не хранить и создавать каждый раз заново.

• Курсор, созданный командами CREATE CURSOR или SELECT ... INTO CURSOR можно индексировать. Однако если курсор созданный командой SELECT ... INTO CURSOR имеет статус Read-Only (т.е. не была указана опция ReadWrite или он не был переоткрыт), то для такого курсора можно будет создать только один индексный тег. Если Вы создадите структурный индексный файл для таких курсоров, то этот файл будет автоматически удален в момент закрытия курсора
• Local View и Remote View также можно индексировать если они находятся в режиме оптимистической буферизации строк (3). В режиме оптимистической буферизации таблиц (5) индексирование невозможно. Обновление содержимого View по команде Requery() также обновит и структурный индексный файл созданный для данного View. Закрытие View автоматически уничтожит и структурный индексный файл.

Автор публикации

не в сети 26 лет

Владимир Максимов

Комментарии: 0Публикации: 65Регистрация: 02-09-2000

(далее…)

]]> https://foxclub.ru/knowledgebase/sovety-nachinayushhim-chast-ii_/ Sun, 15 Jan 2023 02:47:19 +0000

Советы начинающим Часть II

В этой статье :

Таблица

• Название таблицы
• Расположение таблицы
• Собственно работа с таблицами
• Рабочая область с номером 0
• Большая таблица

  Курсор

• Курсор как образ файл DBF
• Курсор как временная таблица
• Формирование имени курсора в команде Select-SQL

  Поля таблицы

• Название полей таблицы
• Собственно работа с полями таблицы

  Ключевое поле

• Естесственные или Суррогатные ключи
• Какой тип данных использовать: Character или Integer
• Надо ли использовать ключевое поле во всех без исключения таблицах
• Название ключевого поля

Собственно работа с ключевыми полями таблицы

 

Таблица

Это термин, который очень часто употребляется в FoxPro и также часто он употребляется совсем не в том смысле, как его понимают новички. Можно сказать, что у этого термина есть два определения (как и у термина "база данных")

Таблица - это файл с расширением DBF и связанные с ним файлы с тем же именем, но с расширением FPT (файл для хранения полей типа Memo и General) и с расширением CDX (структурный индексный файл)

Формально, это абсолютно правильное определение. Проблема только в том, что в подавляющем большинстве случаев, когда в FoxPro употребляют термин "таблица", то под этим подразумевают вовсе не это. Точнее, не совсем это.

Таблица - это некий образ файла с расширением DBF открытый в указанной сессии данных и в указанной рабочей области.

Со стремлением американцев все сокращать они не потрудились придумать соответствующий термин. Поэтому постоянно возникает путаница. Уместнее было бы использовать вместо термина "таблица" термины "курсор" или "алиас", поскольку они более точно отображают суть. И действительно, в некоторых случаях эти термины именно в таком смысле и употребляются, чем только окончательно все запутывают, поскольку они используются также и в других смыслах.

Алиас (alias) - это "псевдоним" файла DBF открытого в какой-либо рабочей области. Как правило, алиас совпадает с именем файла DBF. Однако это не всегда так. Дело в том, что в одном сеансе данных не может быть двух одинаковых алиасов. Поэтому, если алиас таблицы не указан явно при ее открытии (опция ALIAS в команде USE, или каким-либо другим способом), то FoxPro самостоятельно назначит уникальный алиас для таблицы, начав разумееется с алиаса совпадающего с именем файла DBF если это возможно.

Имейте в виду, что в абсолютном большинстве случаев под термином "таблица" подразумевается именно "образ файла", т.е. файл уже открытый через команду USE (или каким-либо еще способом) в среде FoxPro. Если же подразумевается именно файл DBF, то как правило это оговаривается особо.

В версиях FoxPro 2.x в том смысле, в котором используется термин "таблица" использовался термин "база данных" (видимо отсюда пошло расширение - первые буквы английской фразы DataBase File), поскольку в тех версиях еще не существовало файла DBC. Соответственно, когда программисты переходят на версию Visual FoxPro, то их бывает достаточно трудно понять из-за этой путаницы с терминами.

Следует всегда помнить, что таблицы открываются в так называемых "рабочих областях". Что это такое нигде внятно не объясняется (дескать, и так понятно). Попробую определить это так

Рабочая область (Work area) - это некий числовой идентификатор, который может быть присвоен таблице. Если у Вас был опыт программирования в других языках, то можно сказать, что рабочая область - это "хэндл" или "дескриптор" таблицы внутри среды FoxPro

Одновременно одной рабочей области может соответствовать только одна таблица, в то время как одной таблице может соответствовать несколько рабочих областей. Другими словами, одну и ту же таблицу можно одновременно открыть в нескольких рабочих областях, но в одной конкретной рабочей области может быть открыта только одна таблица.

До тех пор, пока таблица не будет открыта в какой-либо рабочей области она для FoxPro как бы не существует. Точнее с ней нельзя производить никакие операции по чтению/модификации данных используя штатные команды и функции.

Кроме понятия "рабочая область" в FoxPro введено понятие "сеанс данных" (DataSession)

Сеанс данных (DataSession) - это некоторая динамическая копия среды FoxPro. Открывая среду FoxPro Вы автоматически открываете сеанс данных, который автоматически же и завершается при выходе из FoxPro. Но внутри собственно FoxPro Вы имеете возможность сделать как бы копию среды FoxPro используя так называемые "частные сеансы данных" (Private DataSession)

Что собственно дает эти "частные сеансы данных"? А дает это возможность симулировать внутри одного приложения FoxPro работу нескольких, независимых друг от друга пользователей.

В результате таблицы открытые в одном сеансе данных "не видны" в другом сеансе данных. И соответственно манипуляции (не все) производимые с таблицами в одном сеансе данных не влияют на другие сеансы данных.

Самый распростарненный случай применения Private DataSession - это одновременное открытие нескольких форм, рассматривающих один и тот же документ с разных сторон. Как правило, для этой цели между таблицами устанавливается связь по SET RELATION. Если открыть подобные формы в одном сеансе данных, то зачастую это становится большой проблемой, поскольку в одной форме требуется наложить на таблицы одни индексы и связи, а в другой - другие. И переключение из одной формы в другую приводит к непредсказуемым изменениям содержимого.

Название таблицы

Файл таблицы, как и любой другой файл в системе Windows может содержать до 128 символов, содержать пробелы, русские символы, цифры и некоторые спец.символы. Однако для упрощения работы в FoxPro я бы порекомендовал следующие ограничения в наименовании файла таблицы

• Не использовать в названии русские символы - причина этой рекомендации в том, что FoxPro разрабатывался прежде всего для англоязычных пользователей и использование в нем символов другого языка - это уже последующее дополнение. Как следствие, велик риск, что чего-то, где-то недосмотрели и при определенных ситуациях русские буквы в имени вызовут неожиданные глюки
• Не использовать в названии пробелы - в принципе, ошибок использование пробелов не вызовет, но несколько усложнит сам процесс программирования, поскольку имена и пути доступа, содержащие пробелы необходимо заключать в кавычки. Просто добавит лишней заботы - не забывать кавычки. А зачем усложнять себе жизнь, когда без этого легко можно обойтись.
• Ограничивайте длину названия 8 символами и не используйте в названии цифр и спец.символов - в отличии от аналогичной рекомендации в отношении наименования файла база данных этому есть причина. Причина не настолько явная, чтобы ее описать в двух словах. Но цепочка рассуждений приведшая к этой рекомендации основана на рекомендации по наименованию ключевых полей таблиц и наименований индексных тэгов. Прочтя эти разделы Вам станет понятна причина этой рекомендации.
• Не называйте таблицу также как и одно из его полей - разумеется ошибки это не вызовет, но усложнит понимание написанного кода самим программистом. Не всегда с ходу можно однозначно определить, что речь идет именно о таблице, а не о поле таблицы. А если еще и их названия совпадают, то совсем тяжело становится.
• Не используйте для названия одно из зарезервированных в FoxPro слов - опять же, ошибки это не вызовет, но резко снизит "читабельность" кода. Ведь зарезервированные слова автоматически подсвечиваются опеределенным цветом (если Вы используете стандартный текстовый редактор FoxPro) и с ходу становится проблематично отличить опцию или команду от имени таблицы
• Не используйте псевдонимы таблицы внутри базы данных - в данном случае речь идет о том, что внутри базы данных можно присвоить таблице псевдоним, отличный от имени файла DBF. Речь  не идет об опции ALIAS в команде USE. Это несколько другое. Если Вы войдете в режим модификации структуры таблицы, и перейдете на закладку "Table", то увидите, что в опции "Name" стоит имя, совпадающее с именем файла DBF. Вот это-то имя и можно изменить, присвоив таблице некоторый "псевдоним" по которому и будут обращаться к указанной таблице. Лично я не рекомендовал бы новичкам использование подобных псевдонимов, поскольку это может внести путаницу в сам процесс программирования.

Расположение таблицы

• Как для файла базы данных, так и вообще для всех рабочих таблиц использующихся в проекте следует выделять специальную папку (директорию). Эта рекомендация относится как к этапу разработки проекта, так и к поставке готового приложения клиентам.

  Причины этой рекомендации подробно изложены в разделе Где расположить файлы проекта. Вкратце, суть сводится к тому, что в противном случае возрастает риск непреднамеренной порчи файлов данных и соответственно потере данных. А также облегчается поиск нужных файлов и создание резервной копии.

• Желательно файл базы данных располагать в той же папке, где и включенные в него файлы DBF

  По большому счету, конечно можно держать файл базы данных в одной директории, а включенные в него файлы DBF в другой. Но это усложняет сам процесс разработки проекта. Например, создание резервной копии в простейшем случе заключается в простом копировании директории с рабочими файлами в другое место. Если же рабочие файлы отделены от файла базы данных, то потребуется уже копирование 2-х директорий. Соответственно усложнится код.

  Кроме того, в этом случае несколько увеличится размер файла базы данных (точнее файла DCT - мемо-файла), поскольку непосредственно в нем хранится относительный путь к включенным в него таблицам. Если таблицы расположены в той же директории, что и сам файл базы данных, то этого относительного пути просто нет. Справедливости ради, следует заметить, что относительный путь к базе данных хранится и в заголовках таблиц, которые в эту базу данных включены. Но на размер таблиц это не влияет, поскольку под этот относительный путь всегда выделяется фиксированное место вне зависимости от факта его наличия.

  Собственно работа с таблицами

У объекта Grid при указании значения для RecordSourceType под термином "таблица" (Table) подразумевают как раз-таки именно файл DBF, а под термином "алиас" (Alias) - образ файла. Что вызывает огромное количество проблем у новичков с этим объектом. Ни в коем случае не используйте в качестве RecordSourceType указание "Table" - это приведет к непредсказуемому поведению данного объекта. Оставьте значение по-умолчанию "Alias"

[li]Как уже было замечено выше, таблицы всегда открываются в конкретной рабочей области и для перехода в нужную рабочую область есть 2 способа адресации: либо по номеру этой рабочей области, либо по имени алиаса (alias) таблицы открытой в этой рабочей области.

Так вот, я бы рекомендовал всегда адресоваться к рабочей области именно по имени алиаса (alias) таблицы, а не по номеру.

Причина этой рекомендации в том, что конкретной рабочей области абсолютно все-равно, какая именно таблица в ней открыта. А при определенных условиях таблица может быть переоткрыта, но уже в другой рабочей области. Соответственно, адресуясь к рабочей области по ее номеру невозможно быть до конца уверенным, что в ней открыта именно нужная таблица. Да и вообще, что в ней открыта хоть какая-нибудь таблица. С другой стороны, обращение по алиасу с большей вероятностью укажет на нужную таблицу (тут тоже могут быть варианты, но это уже более экзотические случаи)

Крайне нежелательно динамически в процессе работы модифицировать таблицы или добавлять/удалять таблицы в базе данных. Это сопряжено с большими проблемами и значительным усложнением программного кода.

Рабочая область с номером 0

Отдельного упоминания заслуживает нулевая рабочая область. Ссылка на нулевую рабочую область означает ссылку на первую свободную рабочую область. Т.е. рабочую область, которая в настоящий момент не связана ни с какой таблицей

Такая адресация позволяет делать несколько вещей

Во-первых, это позволяет открывать новые таблицы не заботясь о том, не занята ли текущая рабочая область другой таблицей. Т.е. дается команда вида

USE MyTable IN 0

Указание нулевой рабочей области необходимо потому, что в противном случае таблица будет открыта в текущей рабочей области одновременно закрыв таблицу, которая могла бы быть в ней открыта. А в таком синтаксисе открытие новой таблицы никак не повлияет на ранее открытые таблицы

Другое применение нулевой рабочей области - это настройки по умолчанию.

Например, Вы вероятно уже знаете, что любое View по-умолчанию открывается в режиме оптимистической буферизации строк (3), но если Вам необходимо использовать его в режиме оптимистической буферизации таблиц (5), то необходимо после его открытия сделать это переключение используя функцию CursorSetProp() примерно так

USE MyView IN 0 =CursorSetProp('buffering',5,'MyView')

Однако используя нулевую рабочую область можно сделать глобальную настройку для открытия всех талиц в 5 режиме буферизации примерно так:

=CursorSetProp('buffering',5,0) USE MyView IN 0

Правда использовать такие глобальные настройки надо с осторожностью, поскольку это именно глобальная, т.е. действующая на все рабочие области без исключения.

Замечу еще, что глобальная настрока нулевой рабочей области никак не затронет рабочие области, в которых уже есть открытые таблицы. Она влияет только на пока не используемые рабочие области.

Большая таблица

Очень часто в конференциях проскакивает словосочетание "большая таблица".

Я бы сказал, что понятие "большая таблица" весьма субъективно. По моим наблюдениям, в большинстве случаев, под "большой" понимают такую таблицу, выполнение операций чтения/записи с которой занимает ощутимо заметное время. Заметное для пользователя.

Одним из важнейших критериев, влияющих на время выполнения любой операции с таблицей является количество записей в этой таблице. Но тогда встает вопрос: большая таблица - это сколько записей?

Предельно допустимое количество записей, которое может содержаться в одной таблице - это 1 миллиард записей (1 billion). Т.е. единица и девять нулей. Так вот, "большой" можно считать таблицу содержащую не менее нескольких миллионов записей.

Но опять-таки термин "большая" всплывает не тогда, когда оценивают просто количество записей, а когда оцениваю время выполнения некоторых операций с такими таблицами. Но ведь есть множество причин влияющих на время чтения/записи. Соответственно, та таблица, которая считается "большой" в одном случае в другом уже не такая "большая".

Курсор

В очередной раз вспоминается лень американцев и их стремление все сокращать (впрочем русские здесь ушли еще дальше - могут сказать почти все используя только несколько специфических слов). Термин "курсор" употребляется сразу в нескольких смыслах в зависимости от контекста.

Курсор - это образ файла DBF открытого в одной из рабочих областей

Курсор - это временная таблица являющаяся результатом выполнения команды Select-SQL

Курсор - это указатель положения индикатора ввода текста с клавиатуры

Ну, последнее определение не очень-то интересно. В том смысле, что здесь все ясно, кроме того, почему этот термин был использован еще и для временных таблиц, ведь слово "cursor" собственно и переводится как "указатель".

Курсор как образ файл DBF

Опять же такое краткое определение не совсем точно, поскольку в этом смысле используется некий специфический объект. Введение этого объекта объясняется необходимостью визуализации таблицы при проектировании форм и отчетов.

Замечу еще, что курсор, как объект, используется не только как образ файлов DBF, но и как образ View. А View и таблица - это не одно и то же.

Курсор как временная таблица

Вот это наиболее употребительное использование данного термина. Собственно есть 2 способа создания таких курсоров

Первый способ - это использование команды CREATE CURSOR. Созданный таким способом курсор будет редактируемым. И это будет именно временная таблица, т.е. она будет автоматически уничтожена в момент закрытия. Ну про этот способ сказать особо нечего. Здесь нет каких-то проблем и особенностей

Второй способ - это использование опции CURSOR в команде SELECT-SQL. Примерно в следующем синтаксисе

SELECT * FROM MyTable INTO CURSOR TmpTable

Вот этот-то TmpTable и есть курсор

В зависимости от различных условий этот курсор может иметь разное физическое "воплощение" и разные свойства

Если SQL-запрос полностью оптимизируем, то вместо создания нового файла будет просто открыта та же самая таблица с наложенным на нее фильтром. Зачастую это очень неприятная неожиданность. Проверить, чем же физически является сформированный курсор, можно используя функцию DBF()

SELECT * FROM MyTable INTO CURSOR TmpTable ?DBF('TmpTable')

Если будет возвращено имя файла с расширением DBF, то данный курсор является той же самой исходной таблицей с наложенным на нее фильтром.

Если Вы хотите при любых запросах быть уверенными, что курсор - это именно временная таблица, а не исходная таблица с наложенным фильтром, то Вам следует добавить опцию NOFILTER

SELECT * FROM MyTable INTO CURSOR TmpTable NOFILTER

Эта опция появилась только в 5 версии Visual FoxPro, хотя там она еще не была документирована. В более ранних версиях необходимо добавлять фиктивные условия или признаки группировки, чтобы исключить возможность оптимизации.

Однако если курсор - это временная таблица, то это еще не значит, что эта временная таблица будет непременно физически расположена на диске. Вполне возможно, что вся временная таблица целиком поместится в оперативную память. Т.е. функция DBF('TmpTable') будет исправно показывать некий временный файл, но попытка найти его физически на диске окончится неудачей и функция FILE(DBF('TmpTable')) вернет .F.

Правда расположение временной таблицы целиком в памяти ни в коем случае не помешает работе с этой временной таблицей. Собственно, в подавляющем большинстве случаев Вас и не должно заботить где физически расположена та или иная таблица.

Еще один немаловажный вопрос связан с тем, что полученные таким образом курсоры нельзя редактировать. Они доступны только на чтение. Начиная с 7 версии Visual FoxPro для решения этой проблемы появилась специальная опция ReadWrite

SELECT * FROM MyTable INTO CURSOR TmpTable NOFILTER READWRITE

Использование этой опции позволяет создавать курсор, который можно редактировать. Для более младших версий FoxPro для того, чтобы курсор можно было редактировать его следует переоткрыть

SELECT * FROM MyTable INTO CURSOR TmpReadTable NOFILTER USE (DBF('TmpReadTable')) IN 0 AGAIN ALIAS TmpWriteTable USE IN TmpReadTable

Переоткрытый таким образом курсор TmpWriteTable уже можно будет редактировать

Курсоры можно индексировать также как и обычные таблицы. Правда если курсор открыт в режиме только для чтения, то Вы сможете создать для него только один индексный тэг.

Все созданные таким образом курсоры автоматически удаляются с диска (если временный файл физически был создан на диске) в момент их закрытия. Если Вы создали для такого курсора структурный индексный файл, то этот файл также будет автоматически удален в момент закрытия курсора.

Формирование имени курсора в команде Select-SQL

Это не такой простой вопрос, как может показаться. Проблема здесь в том, что имя курсора - это фактически алиас (alias) временной таблицы. Но в FoxPro в одном сеансе данных не может быть открыто 2 таблиц с одинаковыми алиасам.

Курсор всегда создается на машине клиента, поэтому конфликтов с другими пользователями можно не опасаться. Более того, даже если запущен дважды один и тот же проект на одной машине все-равно не будет конфликат связанного с одинаковыми именами курсоров, поскольку они открыты в разных сеансах данных. Конфликт возможен если Вы создаете несколько курсоров с одним и тем же именем в одном сеансе данных

Ну например, Вы открыли 2 формы использующих Default DataSession и в обоих создали курсор с одинаковым именем. В этом случае, курсор созданный позднее затрет курсор созданный ранее. При этом настройка SET SAFETY не играет никакой роли. Курсор будет пересоздан молча. Без каких-либо дополнительных запросов.

Избежать подобных конфликтов можно несколькими способами

• Открывать формы и отчеты только в Private DataSession
• Самостоятельно следить за уникальностью имен курсоров
• Использовать функцию для генерации уникальных имен файлов
  Последний вариант кажется наиболее предпочтительным. Однако тут следует быть осторожным. Дело в том, что в описании к FoxPro для генерации уникальных имен файлов предлагается использовать следующую функцию

  lcCursorName=SubStr(SYS(2015),3,10)

  Проблема в том, что функция SYS(2015) может содержать в возвращаемом значении как буквы, так и цифры. Это значит, что при использовании выделения строки по SubStr() Вы вполне можете получить первым символом цифру. А использование в качестве имени переменной цифры в синтаксисе FoxPro недопустимо и Вы неожиданно получите сообщение о синтаксической ошибке. Чтобы этого избежать следует либо принудительно подмешать букву

  lcCursorName='t'+SubStr(SYS(2015),3,10)

  Либо вообще не выделять строку

  lcCursorName=SYS(2015)

  Соответсвенно выполнение запроса станет выглядеть так:

  LOCAL lcCursorName lcCursorName=SYS(2015) SELECT * FROM MyTable INTO CURSOR &lcCursorName NOFILTER

  Такой способ создания уникальных имен курсоров действительно обеспечит уникальность, но это очень неудобный способ из-за необходимости при обращении к такому курсору постоянного использовать макроподстановки. Поэтому по возможности желательно его избегать.

  Поля таблицы

  Поле таблицы - это столбец который Вы видите каждый раз открывая таблицу на просмотр.

  Название полей таблицы

  Поле таблицы, включенной в {базу данных} может содержать до 128 символов, содержать русские символы, цифры и некоторые спец.символы. Однако для упрощения работы в FoxPro я бы порекомендовал следующие ограничения в наименовании файла таблицы

• Не использовать в названии русские символы - причина этой рекомендации в том, что FoxPro разрабатывался прежде всего для англоязычных пользователей и использование в нем символов другого языка - это уже последующее дополнение. Как следствие, велик риск, что чего-то, где-то недосмотрели и при определенных ситуациях русские буквы в имени вызовут неожиданные глюки.
• Не использовать в названии цифры и спец.символы - в принципе, ошибок использование цифр и спец.символов не вызовет. Причина этой рекомендации в повышении сложности восприятия названия.

  Ну, например, если в таблице необходимо указать сумму платежа и сумму налога, то Вы конечно можете создать 2 поля Platezh1 и Platezh2. Но в этом случае, вам каждый раз придется вспоминать, что собственно обозначает цифра 1, а что цифра 2. Если Вы работаете постоянно только с одним проектом, то это не страшно, как-нибудь да запомните. Но если Вы отложили этот проект и вернулсь к нему через несколько месяцев, то напряженные размышления на тему - а что это собственно такое? - Вам обеспечены. Гораздо разумнее дать значимые имена: Platezh и Nalog

• Если по данному полю Вы создаете простой индексный тэг, выражение которого состоит только из имени поля, то ограничивайте название поля 10 символами - причина здесь в том, что количество символов в названии индексного тэга не может быть больше 10. Это значит, что Вам придется указать в качестве названия индексного тэга что-то отличное от названия поля, по которому этот индекс построен. В принципе, ничего страшного. Однако если имя тэга и имя поля совпадают, то это сильно упрощает процесс программирования и позволяет в некоторых случаях создавать универсальный программный код не зависящий от использования конкретной таблицы.
• Не называйте таблицу также как и одно из его полей - разумеется ошибки это не вызовет, но усложнит понимание написанного кода самим программистом. Не всегда с ходу можно однозначно определить, что речь идет именно о таблице, а не о поле таблицы. А если еще и их названия совпадают, то совсем тяжело становится.
• Не используйте для названия одно из зарезервированных в FoxPro слов, в особенности те слова, которые используются в команде Select-SQL - это может вызвать сообщение о синтаксической ошибке, для подавления которой придется сильно усложнить программный код. Кроме того, это снизит "читабельность" кода. Ведь зарезервированные слова автоматически подсвечиваются опеределенным цветом (если Вы используете стандартный текстовый редактор FoxPro) и с ходу становится проблематично отличить опцию или команду от имени поля таблицы.

  Если воображение Вам напрочь отказывает и Вы не знаете как по другому назвать поле кроме как например "Order" или "Group", то добавьте в качестве первого символа букву, обозначающую тип данных, используемых в данном поле. Например, "nOrder" или "cGroup"

• В некоторых книгах рекомендуется в качестве первого символа имени поля всегда указывать букву, обозначающую тип данных, использующийся в данном поле. Я бы не рекомендовал этого делать, по той причине, что FoxPro - это регистро-независимый язык. Т.е. ему все-равно большие или маленькие буквы используются в именах. Как следствие, все команды и функции FoxPro возвращающие какие-либо имена возвращают их либо в верхнем (большими буквами), либо в нижнем (маленькими буквами) регистре. При таком написании название воспринимается как одно целое слово без смыслового разбиения. Т.е. первая буква не воспринимается как тип данных, а воспринмается просто как начало слова.
  

  Собственно работа с полями таблицы

• Крайне нежелательно динамически в процессе работы модифицировать поля таблицы или добавлять/удалять поля. Это сопряжено с большими проблемами и значительным усложнением программного кода.
• Желательно при использовании полей таблиц всегда дописывать алиас таблицы для их однозначной идентификации. Разумеется, кроме случаев, когда отсутствие алиаса обусловлено логикой программы.

  Дело в том, что если алиас не указан, то FoxPro предполагает, что речь идет о поле таблицы, расположенной в текущей рабочей области. А если у таблицы в текущей рабочей области нет такого поля, то о переменной памяти с тем же именем. Но при написании относительно сложной программы далеко не всегда можно с уверенностью сказать, что мы находимся в нужной рабочей области. Явное указание алиаса таблицы снимает эту проблему.

• Заполняйте раздел "Comment" для всех полей таблицы в дезайнере таблиц. Написание комментариев, хотя бы минимальное, в любом случае очень полезная вещь. Этот текст автоматически отображается в окне самого проекта (Project), когда указатель встает на соответствующее поле таблицы. Да и документирование базы данных упрощается. Можно использовать этот текст (через функцию DBGetProp()) при выдаче сообщений об ошибках.
  

  Ключевое поле

  Это одно из важнейших понятий, используемое при работе с таблицами и базами данных

  Ключевое поле - это такое поле (или набор полей) по содержимому которого можно однозначно идентифицировать запись таблицы. Т.е. по значению ключевого поля всегда однозначно можно сказать о какой записи идет речь и не может существовать 2 записей с одинаковыми значениями ключевого поля.

  Внешний ключ - это поле таблицы, содержащее в себе значение ключевого поля другой таблицы. Т.е. просто ссылка на запись другой таблицы.

  Начну сразу с вывода:
  Для большинства задач в FoxPro удобно использовать в качестве ключевого поля суррогатный ключ типа Integer. Ключевое поле желательно вводить для всех без исключения таблиц базы данных

  Ну а теперь рассмотрим как же я дошел до выводов таких

  Естесственные или Суррогатные ключи

  До сих пор не утихают споры о том, что лучше использовать: суррогатные или естесственные ключи.

  Естесственный ключ - это поле или набор полей, которые имеют некий физический смысл. Ну например, табельный номер, номер паспорта, и т.п.

  Суррогатный ключ - это поле которое не имеет никакого физического смысла и введено исключительно с целью однозначной идентификации записи. Информация, которая в нем содержится никак логически не связана с информацией из прочих полей той же таблицы.

  Рассмотрим какие преимущества и недостатки имеют естесственные и суррогатные ключи

  Фактически самый главный и определяющий критерий по которому можно судить о том, пригодно ли данное поле для использования его в качестве ключевого или нет - это однозначность идентификации записи. Здесь имеется в виду, действительно ли значение выбранного поля для каждой записи уникально?

  Ну с суррогатным ключем все понятно - мы сами формируем его значение без участия со стороны пользователя, поэтому можем проследить за уникальностью, а вот как тут у естесственного ключа?

  На первый взгляд кажется, что тоже все в порядке. Разве может номер паспорта быть не уникальным? Или табельный номер? Оказывается еще как может!

  Во-первых, любая информация вводимая пользователем заведомо может содержать ошибки. Ну не могут люди не ошибаться. Кто-то ошибается чаще, кто-то реже, но ошибаются все. Часть ошибок безусловно можно отловить программно, но далеко не все.

  Например, если речь идет о некотором цифро-буквенном номере (номер паспорта) и пользователь ввел "123 АБВ", а надо было "423 АБВ", то синтаксически это правильно, но по содержанию - это ошибка. Если впоследствии окажется что теперь надо ввести новый номер паспорта, но уже "123 АБВ", то программа откажется это сделать, поскольку такой номер уже есть. А на что его исправить неизвестно, поскольку документов, с которых он был введен уже нет.

  Во-вторых (и это пожалуй более существенно), информация имеет тенденцию меняться. Например, не так давно был произведена замена паспортов в Российской Федерации и если бы программа опиралась в качестве идентификатора на его номер, то теперь все пришло в большой беспорядок в связи с этой заменой

  Опять же, не так давно в Российской Федерации были введены так называемые "Идентификационные Номера Налогоплательщика". Так называемые "ИНН". Ну казалось бы, ну вот он уникальный идентификатор контрагента. Но наша родная бюрократия и здесь сумела все испортить. Оказалось, что ИНН нарушает все критерии уникальности, в связи с некоторыми особенностями его формирования

  В одной из конференций, один из посетителей выразился по этому поводу достаточно эмоционально

  1. ИНН может быть одинаковым у разных организаций. Не верите? Я тоже не верил... 2. ИНН может быть разным у одной и той же организации. 3. У одного и того же человека может быть два разных номера паспорта. 4. У одного и того же человека могут быть разные фамилии. 5. У одной и той же организации могут быть разные наименования (в разное время года :) ) 6. Количество детей, конечностей, зубов и даже папилярные линии... МОГУТ ИЗМЕНЯТЬСЯ!!!

  Я отдаю предпочтение СК просто потому, что СК предоставляет возможность пользователю решать, Иванов И.И. и Петров И.И. - один и тот же человек или разные. Может быть, он сменил фамилию, может быть даже пол, может быть он сменил и тип паспорта, и его номер. Может быть, он сменил гражданство, вернулся с войны без рук, ног и головы, наплодил детей, сделал пластическую операцию по изменению веса... Но от этого он не перестал быть самим собой.

  Таким образом, в общем случае, естесственный ключ не обеспечивает главного - однозначности идентификации записи по значению ключевого поля. А если все-таки обеспечивает, то он перестает быть естесственным в первоначальном смысле этого слова, поскольку вынуждает пользователя приспосабливаться и изворачиваться.
  Так почему же, несмотря на столь явные аргументы против, все равно есть достаточно большое количество приверженцев использования естесственного ключа?

  На мой взгляд, здесь существует явное непонимаение того, что суррогатный ключ - это информация, которая нигде, никоим образом не предоставляется пользователю. Суррогатный ключ - это некоторая скрытая, невидимая пользователем "внутренняя" механика.

  Дело в том, что главным аргументом приверженцев естесственного ключа является его "понятность" пользователю. Т.е. предполагается, что пользователь что-то ищет опираясь на значение ключевого поля. Иными словами, пользователь сам вводит, исправляет и просматирвает значение ключевого поля.

  Но в отношении суррогатного ключа - такое его использование просто недопустимо! Ну не должен пользователь знать как там внутри программы все "тикает". Пользователю интересно показание часов, а не вские там "шестеренки". Если Вы хотите предоставить пользователю некую аббревиатуру (краткое название, "ник"), то это ни в коем случае не должен быть суррогатный ключ. Введите для этой цели еще одно дополнительное поле.
  Есть и еще один, более хитрый аргумент, в пользу хотя бы частичного использования естесственных ключей. Дело в том, что очень часто возникает необходимость в некоторой внутренней классификации. Ну например, если речь идет о документах, то они могут находится в некоторых взаимоисключающих сотояниях:

  1 - Получено 2 - Отложено 3 - Утверждено

  Есть очень большое искушение не делать дополнительную таблицу с этими 3 записями, а просто использовать коды 1,2,3 Ну действительно, ну не может же пользователь изменить количество и название состояний. Вот тут приверженцы естесственного ключа и поднимают голос - дескать, что говорят программисту какие-то цифирки, пускай уж сразу слова пишет

  В данном случае лично я рекомендовал бы не поддаваться искушению "упростить" базу данных и ввести-таки дополнительную служебную табличку с 3 записями состояния. Пусть даже пользователь и не имеет возможность ее редактировать. Вы сами убедитесь, насколько она окажется уместна, а в некоторых случаях просто незаменима при написании Вами программы.
  Вывод однозначен - суррогатные ключи предпочтительнее по всем критериям перед естесственными ключами

  Какой тип данных использовать: Character или Integer

  Раньше, когда для хранения числовых данных в FoxPro существовали только поля типа Numeric перевес в аргументации склонялся в пользу использования полей типа Character, но с появлением полей типа Integer все стало не так однозначно

  При сравнении способа хранения ключевого поля в символьном или числовом формате выдвигаются 3 аргумента

• В числовых полях легче формировать новое значение
• Символьные поля "экономичнее", т.е. можно уместить больше значений в том же размере
• Символьные поля "универсальнее" при так назваемых задачах репликации, т.е. объединении не связанных между собой баз данных

  Числовые поля легче формировать

  Тут числовые поля вне конкуренции, поскольку стандартным способом формирования числовых ключевых полей является "максимальное значение плюс один". В случае же символьных полей, как правило используется некий генератор псевдо-случайных чисел. Здесь не место, для обсуждения способа генерации символьных ключей, но используемые процедуры обычно достаточно сложны из-за сложности обеспечения действительно уникального значения.

  Замечу еще, что не стоит для генерации нового значения ключа использовать именно определение максимального значения в текущей таблице. Это хорошо в однопользовательском режиме, но в многопользовательском Вы рискуете получить 2 одинаковых значения ключа при одновременном добавлении новой записи двумя пользователями одновременно. Обычно используют специальную служебную таблицу, хранящуюю значение последнего использованного (или первого не использованного) значения ключа. Примеры использования такой таблицы приведены в стандартных проектах примеров FoxPro: Solution.pjx (форма NewID.scx) и TasTrade.pjx. А в 8 версии FoxPro появились автоинкрементные поля, которые совсем упростили данную задачу.

  Символьные поля "экономичнее", т.е. можно уместить больше значений в том же размере

  Начнем с вопроса, а сколько вообще необходимо значений для идентификации вообщех всех записей таблицы?

  Из системных ограничений известно, что предельно допустимое количество записей в DBF-таблице - это 1 миллиард записей (1 billion). Т.е. это единица и девять нулей

  Поле типа Integer может принимать знаячение в диапазоне от -2,147,483,647 до 2,147,483,647. Ну, отрицательные значения как правило не используются, но и положительные значения в 2 раза больше, чем максимально возможное количество записей. С учетом возможного удаления записей - в самый раз.

  Поскольку поле типа Integer физически занимает 4 байта (4 символа), то посмотрим, сколько же значений может быть присвоено при таком же размере для символьного поля

  В одном байте может быть записано 256 значений, т.е. это составит 256**4=4,294,967,296. Но поскольку некоторые значения нельзя использовать по ряду соображений (например, символ перевода строки, Esc и т.п.), то получается, что в смысле количества значений поля типа Integer ничуть не уступает полю типа Caracter(4), даже пожалуй несколько превосходит

  Замечание

  Следует заметить, что в FoxPro поля типа Numeric храняться как символьные поля, т.е. для хранения каждой цифры нужен один байт. Это значит, что если предполагаемое количество значений в данной таблице не превышает тысячи (меньше 4 символов), то возникает искушение "сэкономить" и вместо типа Integer ввести скажем поле типа N(2)

  Так вот, я бы не советовал этого делать по следующим соображениям:

• В современных компьютерах физический объем таблиц (в байтах) уже не играет столь принципального значения как раньше. Можно позволить себе особо не экономить дисковое пространство.
• Если все ключевые поля во всех таблицах имеют один и тот же тип данных и размерность, то это значительно упрощает сам процесс программирования. Не надо мучительно вспоминать какой именно тип и размерность использовался в той или иной таблице. Иногда это имеет принципиальное значение.

  Символьные поля "универсальнее" при так назваемых задачах репликации

  Репликация - это объединение информации из двух не связанных между собой баз данных, например, из двух филиалов одной организации территориально удаленных друг от друга

  Да, действительно, в подобных задачах удобнее пользоваться символьными полями, хотя даже в такой, казалось бы заведомо проигрышной ситуации числовым полям есть что "возразить"

  Здесь не место для обсуждения данной проблемы в связи с ее обширностью, поэтому замечу только, что для очень большого круга задач сама задача репликации не актуальна. Либо используется файл-серверная технология, либо объединение необходимо только в одну сторону для получения справок и отчетов
  Вывод не столь категоричен, как в случае с суррогатными ключами:

• генерация нового значения числового ключа проще, чем символьного
• количество значений ключа для типа Integer и Chracter(4) практически одинаково
• при решении сложных задач репликации удобнее пользоваться символьными ключевыми полями
  Но поскольку большинству программистов не придется сталкиваться с задачами репликации, то можно смело использовать для ключевых полей тип Integer.

  Надо ли использовать ключевое поле во всех без исключения таблицах

  На первый взгляд, вопрос может показаться странным. Разве можно без ключевого поля? Оказывается, в некоторых случаях можно.

  Например, для организации связи много-ко-многим стандартным способом является создание таблицы-посредника. Что имеется в виду?

  Допустим, у Вас есть список контрагентов и список банков. Разумеется, один и тот же контрагент может иметь счет в нескольких банках. Но верно и обратное - один банк работает с несколькими контрагентами. В этом случае Вы не можете сделать внешний ключ банка в таблице контрагента или внешний ключ контрагента в таблице банков. Вам необходимо ввести таблицу-посредник, которая будет хранить в себе внешний ключ банка и внешний ключ контрагента.

  При такой организации, каждая запись в этой таблице посреднике однозначно идентифицирется парой значений: код контрагента-код банка. Поэтому возникает искушение не вводить еще одно поле для суррогатного ключа этой таблицы-посредника.

  Однако я настоятельно рекомендовал бы Вам вводить-таки собственное ключевое поле для всех таблиц базы данных. Почему? Ну потому, что любая программа имеет "привычку" развиваться.

  Если вернуться к примеру с контрагентами и банками, то легко заметить, что я обошел вниманием тот момент, что один контрагент может иметь несколько счетов в одном и том же банке. Этот самый реквизит (счет контрагента в банке) невозможно прицепить ни к банку, ни к контрагенту. Но он очень удачно подходит к этой таблице-посреднику. Если бы для идентификации записи в этой таблице Вы опирались бы на пару: код банка - код контрагента, то Вам пришлось бы серьезно переделывать значительную часть программы. А в случае существования собственного кода записи никаких проблем. Ну добавили еще одно поле, ну и что?

  В данном случае я рассмотрел достаточно очевидный случай, но зачастую кажется, что по другому быть не может и уж вот здесь-то собственный идентификатор записи не нужен. Не обольщайтесь. Если Вам кажется, что чего-то не может быть - это всего-лишь значит, что Вы чего-то не знаете.
  Вывод - используйте собственное ключевое поле во всех без исключения таблицах. Даже если Вам кажется, что без него можно обойтись.

  Название ключевого поля
  

  Поскольку ключевое поле - это обычное поле таблицы, то на него распространяются все рекомендации приведенные в разделе "Поля таблицы". Однако поскольку это все-таки очень специфическое поле, то для него я бы добавил следующие рекомендации

• Образуйте название ключевого поля таблицы добавив к имени таблицы 2 буквы "ID" (от слова identifier - идентификатор), отбросив букву "s" если имя таблицы - это слово во множественном числе - Например, если вы назвали таблицу контрагентов "Partners", то ключевое поле будет назваться "PartnerID". При таком способе наименования однозначно можно сказать к какой таблице относится ключевое. Но не стоит назвать ключевое поле также как и собственно таблицу, поскольку в некоторых случаях станет весьма проблематично сходу определить о чем идет речь - о поле или собственно о таблице
• Называйте внешние ключи также как и соответствующие ключевые поля - такой способ наименования внешних ключей очень облегчает понимание о чем собственно идет речь при написании программы.
• Ограничивайте название ключевого поля 10 символами - причина здесь в том, что количество символов в названии индексного тэга не может быть больше 10. А по ключевому полю обязательно следует построить индекс. Если количество символов в ключевом поле будет больше 10, то название индексного тэга будет отличаться от названия ключевого поля. А это не очень хорошо в том смысле, что серьезно затруднит программирование, поскольку использовать этот индекс Вы будете сплошь и рядом.

  Кстати, из этой рекомендации вместе с самой первой рекомендацией по наименованию ключевых полей вытекает, что количество символов в имени таблицы не должно превышать 8 (или 9, если название таблицы - это множественное число)

  Собственно работа с ключевыми полями таблицы
  

• Значение ключевого поля должно присваиваться один раз в момент создания записи и не меняться все время существования этой записи. Крайне нежелательно модифицировать значение ключевого поля. Лучше строить программу таким образом, чтобы не возникало необходимости в подобной модификации. Более того, я бы не рекомендовал использовать значения ключевых полей удаленных записей (умерла, так умерла).

  Такая стратегия сильно облегчает отлов ошибок пользователей, поскольку в большинстве случаев, если пользователь делает ошибку в документе, то он не исправляет ошибочный документ, а удаляет его и создает заново! Вот и докажи потом, что это не программа плохая!

  Кроме того, такая стратегия позволяет с меньшими проблемами интегрировать несколько баз данных в один комплекс если в этом возникает необходимость.

• Ни в коем случае не давайте пользователям возможность самостоятельно изменять значение ключевых полей. Более того, пользователь вообще не должен подозревать об их существовании. Это должен быть исключительно внутренний механизм обеспечения целостности базы данных.

  Дело в том, что любая информация, которую вводит пользователь по определению является не надежной и как бы Вы ни защищали информацию, пользователь найдет как ее обойти или просто заставит Вас это сделать! А то, о чем он не подозревает и испортить не может.

• Не пытайтесь навесить на ключевые поля какие-либо еще функции кроме однозначной идентификации записи.

  Например, в некоторых случаях возникает соблазн использовать ключевые поля еще и как порядковый номер элемента в списке. Так вот, не надо этого делать. Введите для реализации этой функциональности дополнительное поле. Также не следует использовать ключевое поле, как краткое название элемента

  Если Вы навесите на ключевое поле еще какую-либо функциональность, кроме однозначной идентификации записей, то просто создадите себе массу проблем (сильно усложнится программный код). А в качестве преимуществ только некоторая экономия дискового пространства. Думаю, оно того не стоит.

Автор публикации

не в сети 26 лет

Владимир Максимов

Комментарии: 0Публикации: 65Регистрация: 02-09-2000

(далее…)

]]> https://foxclub.ru/knowledgebase/sovety-nachinayushhim-chast-ii/ Sun, 27 Nov 2022 10:21:37 +0000

Советы начинающим Часть II

В этой статье :

Таблица

• Название таблицы
• Расположение таблицы
• Собственно работа с таблицами
• Рабочая область с номером 0
• Большая таблица

  Курсор

• Курсор как образ файл DBF
• Курсор как временная таблица
• Формирование имени курсора в команде Select-SQL

  Поля таблицы

• Название полей таблицы
• Собственно работа с полями таблицы

  Ключевое поле

• Естесственные или Суррогатные ключи
• Какой тип данных использовать: Character или Integer
• Надо ли использовать ключевое поле во всех без исключения таблицах
• Название ключевого поля

Собственно работа с ключевыми полями таблицы

ТАБЛИЦА

Это термин, который очень часто употребляется в FoxPro и также часто он употребляется совсем не в том смысле, как его понимают новички. Можно сказать, что у этого термина есть два определения (как и у термина "база данных")

Таблица - это файл с расширением DBF и связанные с ним файлы с тем же именем, но с расширением FPT (файл для хранения полей типа Memo и General) и с расширением CDX (структурный индексный файл)

Формально, это абсолютно правильное определение. Проблема только в том, что в подавляющем большинстве случаев, когда в FoxPro употребляют термин "таблица", то под этим подразумевают вовсе не это. Точнее, не совсем это.

Таблица - это некий образ файла с расширением DBF открытый в указанной сессии данных и в указанной рабочей области.

Со стремлением американцев все сокращать они не потрудились придумать соответствующий термин. Поэтому постоянно возникает путаница. Уместнее было бы использовать вместо термина "таблица" термины "курсор" или "алиас", поскольку они более точно отображают суть. И действительно, в некоторых случаях эти термины именно в таком смысле и употребляются, чем только окончательно все запутывают, поскольку они используются также и в других смыслах.

Алиас (alias) - это "псевдоним" файла DBF открытого в какой-либо рабочей области. Как правило, алиас совпадает с именем файла DBF. Однако это не всегда так. Дело в том, что в одном сеансе данных не может быть двух одинаковых алиасов. Поэтому, если алиас таблицы не указан явно при ее открытии (опция ALIAS в команде USE, или каким-либо другим способом), то FoxPro самостоятельно назначит уникальный алиас для таблицы, начав разумееется с алиаса совпадающего с именем файла DBF если это возможно.

Имейте в виду, что в абсолютном большинстве случаев под термином "таблица" подразумевается именно "образ файла", т.е. файл уже открытый через команду USE (или каким-либо еще способом) в среде FoxPro. Если же подразумевается именно файл DBF, то как правило это оговаривается особо.

В версиях FoxPro 2.x в том смысле, в котором используется термин "таблица" использовался термин "база данных" (видимо отсюда пошло расширение - первые буквы английской фразы DataBase File), поскольку в тех версиях еще не существовало файла DBC. Соответственно, когда программисты переходят на версию Visual FoxPro, то их бывает достаточно трудно понять из-за этой путаницы с терминами.

Следует всегда помнить, что таблицы открываются в так называемых "рабочих областях". Что это такое нигде внятно не объясняется (дескать, и так понятно). Попробую определить это так

Рабочая область (Work area) - это некий числовой идентификатор, который может быть присвоен таблице. Если у Вас был опыт программирования в других языках, то можно сказать, что рабочая область - это "хэндл" или "дескриптор" таблицы внутри среды FoxPro

Одновременно одной рабочей области может соответствовать только одна таблица, в то время как одной таблице может соответствовать несколько рабочих областей. Другими словами, одну и ту же таблицу можно одновременно открыть в нескольких рабочих областях, но в одной конкретной рабочей области может быть открыта только одна таблица.

До тех пор, пока таблица не будет открыта в какой-либо рабочей области она для FoxPro как бы не существует. Точнее с ней нельзя производить никакие операции по чтению/модификации данных используя штатные команды и функции.

Кроме понятия "рабочая область" в FoxPro введено понятие "сеанс данных" (DataSession)

Сеанс данных (DataSession) - это некоторая динамическая копия среды FoxPro. Открывая среду FoxPro Вы автоматически открываете сеанс данных, который автоматически же и завершается при выходе из FoxPro. Но внутри собственно FoxPro Вы имеете возможность сделать как бы копию среды FoxPro используя так называемые "частные сеансы данных" (Private DataSession)

Что собственно дает эти "частные сеансы данных"? А дает это возможность симулировать внутри одного приложения FoxPro работу нескольких, независимых друг от друга пользователей.

В результате таблицы открытые в одном сеансе данных "не видны" в другом сеансе данных. И соответственно манипуляции (не все) производимые с таблицами в одном сеансе данных не влияют на другие сеансы данных.

Самый распростарненный случай применения Private DataSession - это одновременное открытие нескольких форм, рассматривающих один и тот же документ с разных сторон. Как правило, для этой цели между таблицами устанавливается связь по SET RELATION. Если открыть подобные формы в одном сеансе данных, то зачастую это становится большой проблемой, поскольку в одной форме требуется наложить на таблицы одни индексы и связи, а в другой - другие. И переключение из одной формы в другую приводит к непредсказуемым изменениям содержимого.

НАЗВАНИЕ ТАБЛИЦЫ

Файл таблицы, как и любой другой файл в системе Windows может содержать до 128 символов, содержать пробелы, русские символы, цифры и некоторые спец.символы. Однако для упрощения работы в FoxPro я бы порекомендовал следующие ограничения в наименовании файла таблицы

• Не использовать в названии русские символы - причина этой рекомендации в том, что FoxPro разрабатывался прежде всего для англоязычных пользователей и использование в нем символов другого языка - это уже последующее дополнение. Как следствие, велик риск, что чего-то, где-то недосмотрели и при определенных ситуациях русские буквы в имени вызовут неожиданные глюки
• Не использовать в названии пробелы - в принципе, ошибок использование пробелов не вызовет, но несколько усложнит сам процесс программирования, поскольку имена и пути доступа, содержащие пробелы необходимо заключать в кавычки. Просто добавит лишней заботы - не забывать кавычки. А зачем усложнять себе жизнь, когда без этого легко можно обойтись.
• Ограничивайте длину названия 8 символами и не используйте в названии цифр и спец.символов - в отличии от аналогичной рекомендации в отношении наименования файла база данных этому есть причина. Причина не настолько явная, чтобы ее описать в двух словах. Но цепочка рассуждений приведшая к этой рекомендации основана на рекомендации по наименованию ключевых полей таблиц и наименований индексных тэгов. Прочтя эти разделы Вам станет понятна причина этой рекомендации.
• Не называйте таблицу также как и одно из его полей - разумеется ошибки это не вызовет, но усложнит понимание написанного кода самим программистом. Не всегда с ходу можно однозначно определить, что речь идет именно о таблице, а не о поле таблицы. А если еще и их названия совпадают, то совсем тяжело становится.
• Не используйте для названия одно из зарезервированных в FoxPro слов - опять же, ошибки это не вызовет, но резко снизит "читабельность" кода. Ведь зарезервированные слова автоматически подсвечиваются опеределенным цветом (если Вы используете стандартный текстовый редактор FoxPro) и с ходу становится проблематично отличить опцию или команду от имени таблицы
• Не используйте псевдонимы таблицы внутри базы данных - в данном случае речь идет о том, что внутри базы данных можно присвоить таблице псевдоним, отличный от имени файла DBF. Речь  не идет об опции ALIAS в команде USE. Это несколько другое. Если Вы войдете в режим модификации структуры таблицы, и перейдете на закладку "Table", то увидите, что в опции "Name" стоит имя, совпадающее с именем файла DBF. Вот это-то имя и можно изменить, присвоив таблице некоторый "псевдоним" по которому и будут обращаться к указанной таблице. Лично я не рекомендовал бы новичкам использование подобных псевдонимов, поскольку это может внести путаницу в сам процесс программирования.

РАСПОЛОЖЕНИЕ ТАБЛИЦЫ

• Как для файла базы данных, так и вообще для всех рабочих таблиц использующихся в проекте следует выделять специальную папку (директорию). Эта рекомендация относится как к этапу разработки проекта, так и к поставке готового приложения клиентам.

  Причины этой рекомендации подробно изложены в разделе Где расположить файлы проекта. Вкратце, суть сводится к тому, что в противном случае возрастает риск непреднамеренной порчи файлов данных и соответственно потере данных. А также облегчается поиск нужных файлов и создание резервной копии.

• Желательно файл базы данных располагать в той же папке, где и включенные в него файлы DBF

  По большому счету, конечно можно держать файл базы данных в одной директории, а включенные в него файлы DBF в другой. Но это усложняет сам процесс разработки проекта. Например, создание резервной копии в простейшем случе заключается в простом копировании директории с рабочими файлами в другое место. Если же рабочие файлы отделены от файла базы данных, то потребуется уже копирование 2-х директорий. Соответственно усложнится код.

  Кроме того, в этом случае несколько увеличится размер файла базы данных (точнее файла DCT - мемо-файла), поскольку непосредственно в нем хранится относительный путь к включенным в него таблицам. Если таблицы расположены в той же директории, что и сам файл базы данных, то этого относительного пути просто нет. Справедливости ради, следует заметить, что относительный путь к базе данных хранится и в заголовках таблиц, которые в эту базу данных включены. Но на размер таблиц это не влияет, поскольку под этот относительный путь всегда выделяется фиксированное место вне зависимости от факта его наличия.

  СОБСТВЕННО РАБОТА С ТАБЛИЦАМИ

У объекта Grid при указании значения для RecordSourceType под термином "таблица" (Table) подразумевают как раз-таки именно файл DBF, а под термином "алиас" (Alias) - образ файла. Что вызывает огромное количество проблем у новичков с этим объектом. Ни в коем случае не используйте в качестве RecordSourceType указание "Table" - это приведет к непредсказуемому поведению данного объекта. Оставьте значение по-умолчанию "Alias"

[li]Как уже было замечено выше, таблицы всегда открываются в конкретной рабочей области и для перехода в нужную рабочую область есть 2 способа адресации: либо по номеру этой рабочей области, либо по имени алиаса (alias) таблицы открытой в этой рабочей области.

Так вот, я бы рекомендовал всегда адресоваться к рабочей области именно по имени алиаса (alias) таблицы, а не по номеру.

Причина этой рекомендации в том, что конкретной рабочей области абсолютно все-равно, какая именно таблица в ней открыта. А при определенных условиях таблица может быть переоткрыта, но уже в другой рабочей области. Соответственно, адресуясь к рабочей области по ее номеру невозможно быть до конца уверенным, что в ней открыта именно нужная таблица. Да и вообще, что в ней открыта хоть какая-нибудь таблица. С другой стороны, обращение по алиасу с большей вероятностью укажет на нужную таблицу (тут тоже могут быть варианты, но это уже более экзотические случаи)

Крайне нежелательно динамически в процессе работы модифицировать таблицы или добавлять/удалять таблицы в базе данных. Это сопряжено с большими проблемами и значительным усложнением программного кода.

РАБОЧАЯ ОБЛАСТЬ С НОМЕРОМ 0

Отдельного упоминания заслуживает нулевая рабочая область. Ссылка на нулевую рабочую область означает ссылку на первую свободную рабочую область. Т.е. рабочую область, которая в настоящий момент не связана ни с какой таблицей

Такая адресация позволяет делать несколько вещей

Во-первых, это позволяет открывать новые таблицы не заботясь о том, не занята ли текущая рабочая область другой таблицей. Т.е. дается команда вида

USE MyTable IN 0

Указание нулевой рабочей области необходимо потому, что в противном случае таблица будет открыта в текущей рабочей области одновременно закрыв таблицу, которая могла бы быть в ней открыта. А в таком синтаксисе открытие новой таблицы никак не повлияет на ранее открытые таблицы

Другое применение нулевой рабочей области - это настройки по умолчанию.

Например, Вы вероятно уже знаете, что любое View по-умолчанию открывается в режиме оптимистической буферизации строк (3), но если Вам необходимо использовать его в режиме оптимистической буферизации таблиц (5), то необходимо после его открытия сделать это переключение используя функцию CursorSetProp() примерно так

USE MyView IN 0 =CursorSetProp('buffering',5,'MyView')

Однако используя нулевую рабочую область можно сделать глобальную настройку для открытия всех талиц в 5 режиме буферизации примерно так:

=CursorSetProp('buffering',5,0) USE MyView IN 0

Правда использовать такие глобальные настройки надо с осторожностью, поскольку это именно глобальная, т.е. действующая на все рабочие области без исключения.

Замечу еще, что глобальная настрока нулевой рабочей области никак не затронет рабочие области, в которых уже есть открытые таблицы. Она влияет только на пока не используемые рабочие области.

БОЛЬШАЯ ТАБЛИЦА

Очень часто в конференциях проскакивает словосочетание "большая таблица".

Я бы сказал, что понятие "большая таблица" весьма субъективно. По моим наблюдениям, в большинстве случаев, под "большой" понимают такую таблицу, выполнение операций чтения/записи с которой занимает ощутимо заметное время. Заметное для пользователя.

Одним из важнейших критериев, влияющих на время выполнения любой операции с таблицей является количество записей в этой таблице. Но тогда встает вопрос: большая таблица - это сколько записей?

Предельно допустимое количество записей, которое может содержаться в одной таблице - это 1 миллиард записей (1 billion). Т.е. единица и девять нулей. Так вот, "большой" можно считать таблицу содержащую не менее нескольких миллионов записей.

Но опять-таки термин "большая" всплывает не тогда, когда оценивают просто количество записей, а когда оцениваю время выполнения некоторых операций с такими таблицами. Но ведь есть множество причин влияющих на время чтения/записи. Соответственно, та таблица, которая считается "большой" в одном случае в другом уже не такая "большая".

КУРСОР

В очередной раз вспоминается лень американцев и их стремление все сокращать (впрочем русские здесь ушли еще дальше - могут сказать почти все используя только несколько специфических слов). Термин "курсор" употребляется сразу в нескольких смыслах в зависимости от контекста.

Курсор - это образ файла DBF открытого в одной из рабочих областей

Курсор - это временная таблица являющаяся результатом выполнения команды Select-SQL

Курсор - это указатель положения индикатора ввода текста с клавиатуры

Ну, последнее определение не очень-то интересно. В том смысле, что здесь все ясно, кроме того, почему этот термин был использован еще и для временных таблиц, ведь слово "cursor" собственно и переводится как "указатель".

КУРСОР КАК ОБРАЗ ФАЙЛ DBF

Опять же такое краткое определение не совсем точно, поскольку в этом смысле используется некий специфический объект. Введение этого объекта объясняется необходимостью визуализации таблицы при проектировании форм и отчетов.

Замечу еще, что курсор, как объект, используется не только как образ файлов DBF, но и как образ View. А View и таблица - это не одно и то же.

КУРСОР КАК ВРЕМЕННАЯ ТАБЛИЦА

Вот это наиболее употребительное использование данного термина. Собственно есть 2 способа создания таких курсоров

Первый способ - это использование команды CREATE CURSOR. Созданный таким способом курсор будет редактируемым. И это будет именно временная таблица, т.е. она будет автоматически уничтожена в момент закрытия. Ну про этот способ сказать особо нечего. Здесь нет каких-то проблем и особенностей

Второй способ - это использование опции CURSOR в команде SELECT-SQL. Примерно в следующем синтаксисе

SELECT * FROM MyTable INTO CURSOR TmpTable

Вот этот-то TmpTable и есть курсор

В зависимости от различных условий этот курсор может иметь разное физическое "воплощение" и разные свойства

Если SQL-запрос полностью оптимизируем, то вместо создания нового файла будет просто открыта та же самая таблица с наложенным на нее фильтром. Зачастую это очень неприятная неожиданность. Проверить, чем же физически является сформированный курсор, можно используя функцию DBF()

SELECT * FROM MyTable INTO CURSOR TmpTable ?DBF('TmpTable')

Если будет возвращено имя файла с расширением DBF, то данный курсор является той же самой исходной таблицей с наложенным на нее фильтром.

Если Вы хотите при любых запросах быть уверенными, что курсор - это именно временная таблица, а не исходная таблица с наложенным фильтром, то Вам следует добавить опцию NOFILTER

SELECT * FROM MyTable INTO CURSOR TmpTable NOFILTER

Эта опция появилась только в 5 версии Visual FoxPro, хотя там она еще не была документирована. В более ранних версиях необходимо добавлять фиктивные условия или признаки группировки, чтобы исключить возможность оптимизации.

Однако если курсор - это временная таблица, то это еще не значит, что эта временная таблица будет непременно физически расположена на диске. Вполне возможно, что вся временная таблица целиком поместится в оперативную память. Т.е. функция DBF('TmpTable') будет исправно показывать некий временный файл, но попытка найти его физически на диске окончится неудачей и функция FILE(DBF('TmpTable')) вернет .F.

Правда расположение временной таблицы целиком в памяти ни в коем случае не помешает работе с этой временной таблицей. Собственно, в подавляющем большинстве случаев Вас и не должно заботить где физически расположена та или иная таблица.

Еще один немаловажный вопрос связан с тем, что полученные таким образом курсоры нельзя редактировать. Они доступны только на чтение. Начиная с 7 версии Visual FoxPro для решения этой проблемы появилась специальная опция ReadWrite

SELECT * FROM MyTable INTO CURSOR TmpTable NOFILTER READWRITE

Использование этой опции позволяет создавать курсор, который можно редактировать. Для более младших версий FoxPro для того, чтобы курсор можно было редактировать его следует переоткрыть

SELECT * FROM MyTable INTO CURSOR TmpReadTable NOFILTER USE (DBF('TmpReadTable')) IN 0 AGAIN ALIAS TmpWriteTable USE IN TmpReadTable

Переоткрытый таким образом курсор TmpWriteTable уже можно будет редактировать

Курсоры можно индексировать также как и обычные таблицы. Правда если курсор открыт в режиме только для чтения, то Вы сможете создать для него только один индексный тэг.

Все созданные таким образом курсоры автоматически удаляются с диска (если временный файл физически был создан на диске) в момент их закрытия. Если Вы создали для такого курсора структурный индексный файл, то этот файл также будет автоматически удален в момент закрытия курсора.

ФОРМИРОВАНИЕ ИМЕНИ КУРСОРА В КОМАНДЕ SELECT-SQL

Это не такой простой вопрос, как может показаться. Проблема здесь в том, что имя курсора - это фактически алиас (alias) временной таблицы. Но в FoxPro в одном сеансе данных не может быть открыто 2 таблиц с одинаковыми алиасам.

Курсор всегда создается на машине клиента, поэтому конфликтов с другими пользователями можно не опасаться. Более того, даже если запущен дважды один и тот же проект на одной машине все-равно не будет конфликат связанного с одинаковыми именами курсоров, поскольку они открыты в разных сеансах данных. Конфликт возможен если Вы создаете несколько курсоров с одним и тем же именем в одном сеансе данных

Ну например, Вы открыли 2 формы использующих Default DataSession и в обоих создали курсор с одинаковым именем. В этом случае, курсор созданный позднее затрет курсор созданный ранее. При этом настройка SET SAFETY не играет никакой роли. Курсор будет пересоздан молча. Без каких-либо дополнительных запросов.

Избежать подобных конфликтов можно несколькими способами

• Открывать формы и отчеты только в Private DataSession
• Самостоятельно следить за уникальностью имен курсоров
• Использовать функцию для генерации уникальных имен файлов
  Последний вариант кажется наиболее предпочтительным. Однако тут следует быть осторожным. Дело в том, что в описании к FoxPro для генерации уникальных имен файлов предлагается использовать следующую функцию

  lcCursorName=SubStr(SYS(2015),3,10)

  Проблема в том, что функция SYS(2015) может содержать в возвращаемом значении как буквы, так и цифры. Это значит, что при использовании выделения строки по SubStr() Вы вполне можете получить первым символом цифру. А использование в качестве имени переменной цифры в синтаксисе FoxPro недопустимо и Вы неожиданно получите сообщение о синтаксической ошибке. Чтобы этого избежать следует либо принудительно подмешать букву

  lcCursorName='t'+SubStr(SYS(2015),3,10)

  Либо вообще не выделять строку

  lcCursorName=SYS(2015)

  Соответсвенно выполнение запроса станет выглядеть так:

  LOCAL lcCursorName lcCursorName=SYS(2015) SELECT * FROM MyTable INTO CURSOR &lcCursorName NOFILTER

  Такой способ создания уникальных имен курсоров действительно обеспечит уникальность, но это очень неудобный способ из-за необходимости при обращении к такому курсору постоянного использовать макроподстановки. Поэтому по возможности желательно его избегать.

  ПОЛЯ ТАБЛИЦЫ

  Поле таблицы - это столбец который Вы видите каждый раз открывая таблицу на просмотр.

  НАЗВАНИЕ ПОЛЕЙ ТАБЛИЦЫ

  Поле таблицы, включенной в {базу данных} может содержать до 128 символов, содержать русские символы, цифры и некоторые спец.символы. Однако для упрощения работы в FoxPro я бы порекомендовал следующие ограничения в наименовании файла таблицы

• Не использовать в названии русские символы - причина этой рекомендации в том, что FoxPro разрабатывался прежде всего для англоязычных пользователей и использование в нем символов другого языка - это уже последующее дополнение. Как следствие, велик риск, что чего-то, где-то недосмотрели и при определенных ситуациях русские буквы в имени вызовут неожиданные глюки.
• Не использовать в названии цифры и спец.символы - в принципе, ошибок использование цифр и спец.символов не вызовет. Причина этой рекомендации в повышении сложности восприятия названия.

  Ну, например, если в таблице необходимо указать сумму платежа и сумму налога, то Вы конечно можете создать 2 поля Platezh1 и Platezh2. Но в этом случае, вам каждый раз придется вспоминать, что собственно обозначает цифра 1, а что цифра 2. Если Вы работаете постоянно только с одним проектом, то это не страшно, как-нибудь да запомните. Но если Вы отложили этот проект и вернулсь к нему через несколько месяцев, то напряженные размышления на тему - а что это собственно такое? - Вам обеспечены. Гораздо разумнее дать значимые имена: Platezh и Nalog

• Если по данному полю Вы создаете простой индексный тэг, выражение которого состоит только из имени поля, то ограничивайте название поля 10 символами - причина здесь в том, что количество символов в названии индексного тэга не может быть больше 10. Это значит, что Вам придется указать в качестве названия индексного тэга что-то отличное от названия поля, по которому этот индекс построен. В принципе, ничего страшного. Однако если имя тэга и имя поля совпадают, то это сильно упрощает процесс программирования и позволяет в некоторых случаях создавать универсальный программный код не зависящий от использования конкретной таблицы.
• Не называйте таблицу также как и одно из его полей - разумеется ошибки это не вызовет, но усложнит понимание написанного кода самим программистом. Не всегда с ходу можно однозначно определить, что речь идет именно о таблице, а не о поле таблицы. А если еще и их названия совпадают, то совсем тяжело становится.
• Не используйте для названия одно из зарезервированных в FoxPro слов, в особенности те слова, которые используются в команде Select-SQL - это может вызвать сообщение о синтаксической ошибке, для подавления которой придется сильно усложнить программный код. Кроме того, это снизит "читабельность" кода. Ведь зарезервированные слова автоматически подсвечиваются опеределенным цветом (если Вы используете стандартный текстовый редактор FoxPro) и с ходу становится проблематично отличить опцию или команду от имени поля таблицы.

  Если воображение Вам напрочь отказывает и Вы не знаете как по другому назвать поле кроме как например "Order" или "Group", то добавьте в качестве первого символа букву, обозначающую тип данных, используемых в данном поле. Например, "nOrder" или "cGroup"

• В некоторых книгах рекомендуется в качестве первого символа имени поля всегда указывать букву, обозначающую тип данных, использующийся в данном поле. Я бы не рекомендовал этого делать, по той причине, что FoxPro - это регистро-независимый язык. Т.е. ему все-равно большие или маленькие буквы используются в именах. Как следствие, все команды и функции FoxPro возвращающие какие-либо имена возвращают их либо в верхнем (большими буквами), либо в нижнем (маленькими буквами) регистре. При таком написании название воспринимается как одно целое слово без смыслового разбиения. Т.е. первая буква не воспринимается как тип данных, а воспринмается просто как начало слова.
  

  СОБСТВЕННО РАБОТА С ПОЛЯМИ ТАБЛИЦЫ

• Крайне нежелательно динамически в процессе работы модифицировать поля таблицы или добавлять/удалять поля. Это сопряжено с большими проблемами и значительным усложнением программного кода.
• Желательно при использовании полей таблиц всегда дописывать алиас таблицы для их однозначной идентификации. Разумеется, кроме случаев, когда отсутствие алиаса обусловлено логикой программы.

  Дело в том, что если алиас не указан, то FoxPro предполагает, что речь идет о поле таблицы, расположенной в текущей рабочей области. А если у таблицы в текущей рабочей области нет такого поля, то о переменной памяти с тем же именем. Но при написании относительно сложной программы далеко не всегда можно с уверенностью сказать, что мы находимся в нужной рабочей области. Явное указание алиаса таблицы снимает эту проблему.

• Заполняйте раздел "Comment" для всех полей таблицы в дезайнере таблиц. Написание комментариев, хотя бы минимальное, в любом случае очень полезная вещь. Этот текст автоматически отображается в окне самого проекта (Project), когда указатель встает на соответствующее поле таблицы. Да и документирование базы данных упрощается. Можно использовать этот текст (через функцию DBGetProp()) при выдаче сообщений об ошибках.
  

  КЛЮЧЕВОЕ ПОЛЕ

  Это одно из важнейших понятий, используемое при работе с таблицами и базами данных

  Ключевое поле - это такое поле (или набор полей) по содержимому которого можно однозначно идентифицировать запись таблицы. Т.е. по значению ключевого поля всегда однозначно можно сказать о какой записи идет речь и не может существовать 2 записей с одинаковыми значениями ключевого поля.

  Внешний ключ - это поле таблицы, содержащее в себе значение ключевого поля другой таблицы. Т.е. просто ссылка на запись другой таблицы.

  Начну сразу с вывода:
  Для большинства задач в FoxPro удобно использовать в качестве ключевого поля суррогатный ключ типа Integer. Ключевое поле желательно вводить для всех без исключения таблиц базы данных

  Ну а теперь рассмотрим как же я дошел до выводов таких

  ЕСТЕССТВЕННЫЕ ИЛИ СУРРОГАТНЫЕ КЛЮЧИ

  До сих пор не утихают споры о том, что лучше использовать: суррогатные или естесственные ключи.

  Естесственный ключ - это поле или набор полей, которые имеют некий физический смысл. Ну например, табельный номер, номер паспорта, и т.п.

  Суррогатный ключ - это поле которое не имеет никакого физического смысла и введено исключительно с целью однозначной идентификации записи. Информация, которая в нем содержится никак логически не связана с информацией из прочих полей той же таблицы.

  Рассмотрим какие преимущества и недостатки имеют естесственные и суррогатные ключи

  Фактически самый главный и определяющий критерий по которому можно судить о том, пригодно ли данное поле для использования его в качестве ключевого или нет - это однозначность идентификации записи. Здесь имеется в виду, действительно ли значение выбранного поля для каждой записи уникально?

  Ну с суррогатным ключем все понятно - мы сами формируем его значение без участия со стороны пользователя, поэтому можем проследить за уникальностью, а вот как тут у естесственного ключа?

  На первый взгляд кажется, что тоже все в порядке. Разве может номер паспорта быть не уникальным? Или табельный номер? Оказывается еще как может!

  Во-первых, любая информация вводимая пользователем заведомо может содержать ошибки. Ну не могут люди не ошибаться. Кто-то ошибается чаще, кто-то реже, но ошибаются все. Часть ошибок безусловно можно отловить программно, но далеко не все.

  Например, если речь идет о некотором цифро-буквенном номере (номер паспорта) и пользователь ввел "123 АБВ", а надо было "423 АБВ", то синтаксически это правильно, но по содержанию - это ошибка. Если впоследствии окажется что теперь надо ввести новый номер паспорта, но уже "123 АБВ", то программа откажется это сделать, поскольку такой номер уже есть. А на что его исправить неизвестно, поскольку документов, с которых он был введен уже нет.

  Во-вторых (и это пожалуй более существенно), информация имеет тенденцию меняться. Например, не так давно был произведена замена паспортов в Российской Федерации и если бы программа опиралась в качестве идентификатора на его номер, то теперь все пришло в большой беспорядок в связи с этой заменой

  Опять же, не так давно в Российской Федерации были введены так называемые "Идентификационные Номера Налогоплательщика". Так называемые "ИНН". Ну казалось бы, ну вот он уникальный идентификатор контрагента. Но наша родная бюрократия и здесь сумела все испортить. Оказалось, что ИНН нарушает все критерии уникальности, в связи с некоторыми особенностями его формирования

  В одной из конференций, один из посетителей выразился по этому поводу достаточно эмоционально

  1. ИНН может быть одинаковым у разных организаций. Не верите? Я тоже не верил... 2. ИНН может быть разным у одной и той же организации. 3. У одного и того же человека может быть два разных номера паспорта. 4. У одного и того же человека могут быть разные фамилии. 5. У одной и той же организации могут быть разные наименования (в разное время года :) ) 6. Количество детей, конечностей, зубов и даже папилярные линии... МОГУТ ИЗМЕНЯТЬСЯ!!!

  Я отдаю предпочтение СК просто потому, что СК предоставляет возможность пользователю решать, Иванов И.И. и Петров И.И. - один и тот же человек или разные. Может быть, он сменил фамилию, может быть даже пол, может быть он сменил и тип паспорта, и его номер. Может быть, он сменил гражданство, вернулся с войны без рук, ног и головы, наплодил детей, сделал пластическую операцию по изменению веса... Но от этого он не перестал быть самим собой.

  Таким образом, в общем случае, естесственный ключ не обеспечивает главного - однозначности идентификации записи по значению ключевого поля. А если все-таки обеспечивает, то он перестает быть естесственным в первоначальном смысле этого слова, поскольку вынуждает пользователя приспосабливаться и изворачиваться.
  Так почему же, несмотря на столь явные аргументы против, все равно есть достаточно большое количество приверженцев использования естесственного ключа?

  На мой взгляд, здесь существует явное непонимаение того, что суррогатный ключ - это информация, которая нигде, никоим образом не предоставляется пользователю. Суррогатный ключ - это некоторая скрытая, невидимая пользователем "внутренняя" механика.

  Дело в том, что главным аргументом приверженцев естесственного ключа является его "понятность" пользователю. Т.е. предполагается, что пользователь что-то ищет опираясь на значение ключевого поля. Иными словами, пользователь сам вводит, исправляет и просматирвает значение ключевого поля.

  Но в отношении суррогатного ключа - такое его использование просто недопустимо! Ну не должен пользователь знать как там внутри программы все "тикает". Пользователю интересно показание часов, а не вские там "шестеренки". Если Вы хотите предоставить пользователю некую аббревиатуру (краткое название, "ник"), то это ни в коем случае не должен быть суррогатный ключ. Введите для этой цели еще одно дополнительное поле.
  Есть и еще один, более хитрый аргумент, в пользу хотя бы частичного использования естесственных ключей. Дело в том, что очень часто возникает необходимость в некоторой внутренней классификации. Ну например, если речь идет о документах, то они могут находится в некоторых взаимоисключающих сотояниях:

  1 - Получено 2 - Отложено 3 - Утверждено

  Есть очень большое искушение не делать дополнительную таблицу с этими 3 записями, а просто использовать коды 1,2,3 Ну действительно, ну не может же пользователь изменить количество и название состояний. Вот тут приверженцы естесственного ключа и поднимают голос - дескать, что говорят программисту какие-то цифирки, пускай уж сразу слова пишет

  В данном случае лично я рекомендовал бы не поддаваться искушению "упростить" базу данных и ввести-таки дополнительную служебную табличку с 3 записями состояния. Пусть даже пользователь и не имеет возможность ее редактировать. Вы сами убедитесь, насколько она окажется уместна, а в некоторых случаях просто незаменима при написании Вами программы.
  Вывод однозначен - суррогатные ключи предпочтительнее по всем критериям перед естесственными ключами

  КАКОЙ ТИП ДАННЫХ ИСПОЛЬЗОВАТЬ: CHARACTER ИЛИ INTEGER

  Раньше, когда для хранения числовых данных в FoxPro существовали только поля типа Numeric перевес в аргументации склонялся в пользу использования полей типа Character, но с появлением полей типа Integer все стало не так однозначно

  При сравнении способа хранения ключевого поля в символьном или числовом формате выдвигаются 3 аргумента

• В числовых полях легче формировать новое значение
• Символьные поля "экономичнее", т.е. можно уместить больше значений в том же размере
• Символьные поля "универсальнее" при так назваемых задачах репликации, т.е. объединении не связанных между собой баз данных

  Числовые поля легче формировать

  Тут числовые поля вне конкуренции, поскольку стандартным способом формирования числовых ключевых полей является "максимальное значение плюс один". В случае же символьных полей, как правило используется некий генератор псевдо-случайных чисел. Здесь не место, для обсуждения способа генерации символьных ключей, но используемые процедуры обычно достаточно сложны из-за сложности обеспечения действительно уникального значения.

  Замечу еще, что не стоит для генерации нового значения ключа использовать именно определение максимального значения в текущей таблице. Это хорошо в однопользовательском режиме, но в многопользовательском Вы рискуете получить 2 одинаковых значения ключа при одновременном добавлении новой записи двумя пользователями одновременно. Обычно используют специальную служебную таблицу, хранящуюю значение последнего использованного (или первого не использованного) значения ключа. Примеры использования такой таблицы приведены в стандартных проектах примеров FoxPro: Solution.pjx (форма NewID.scx) и TasTrade.pjx. А в 8 версии FoxPro появились автоинкрементные поля, которые совсем упростили данную задачу.

  Символьные поля "экономичнее", т.е. можно уместить больше значений в том же размере

  Начнем с вопроса, а сколько вообще необходимо значений для идентификации вообщех всех записей таблицы?

  Из системных ограничений известно, что предельно допустимое количество записей в DBF-таблице - это 1 миллиард записей (1 billion). Т.е. это единица и девять нулей

  Поле типа Integer может принимать знаячение в диапазоне от -2,147,483,647 до 2,147,483,647. Ну, отрицательные значения как правило не используются, но и положительные значения в 2 раза больше, чем максимально возможное количество записей. С учетом возможного удаления записей - в самый раз.

  Поскольку поле типа Integer физически занимает 4 байта (4 символа), то посмотрим, сколько же значений может быть присвоено при таком же размере для символьного поля

  В одном байте может быть записано 256 значений, т.е. это составит 256**4=4,294,967,296. Но поскольку некоторые значения нельзя использовать по ряду соображений (например, символ перевода строки, Esc и т.п.), то получается, что в смысле количества значений поля типа Integer ничуть не уступает полю типа Caracter(4), даже пожалуй несколько превосходит

  Замечание

  Следует заметить, что в FoxPro поля типа Numeric храняться как символьные поля, т.е. для хранения каждой цифры нужен один байт. Это значит, что если предполагаемое количество значений в данной таблице не превышает тысячи (меньше 4 символов), то возникает искушение "сэкономить" и вместо типа Integer ввести скажем поле типа N(2)

  Так вот, я бы не советовал этого делать по следующим соображениям:

• В современных компьютерах физический объем таблиц (в байтах) уже не играет столь принципального значения как раньше. Можно позволить себе особо не экономить дисковое пространство.
• Если все ключевые поля во всех таблицах имеют один и тот же тип данных и размерность, то это значительно упрощает сам процесс программирования. Не надо мучительно вспоминать какой именно тип и размерность использовался в той или иной таблице. Иногда это имеет принципиальное значение.

  Символьные поля "универсальнее" при так назваемых задачах репликации

  Репликация - это объединение информации из двух не связанных между собой баз данных, например, из двух филиалов одной организации территориально удаленных друг от друга

  Да, действительно, в подобных задачах удобнее пользоваться символьными полями, хотя даже в такой, казалось бы заведомо проигрышной ситуации числовым полям есть что "возразить"

  Здесь не место для обсуждения данной проблемы в связи с ее обширностью, поэтому замечу только, что для очень большого круга задач сама задача репликации не актуальна. Либо используется файл-серверная технология, либо объединение необходимо только в одну сторону для получения справок и отчетов
  Вывод не столь категоричен, как в случае с суррогатными ключами:

• генерация нового значения числового ключа проще, чем символьного
• количество значений ключа для типа Integer и Chracter(4) практически одинаково
• при решении сложных задач репликации удобнее пользоваться символьными ключевыми полями
  Но поскольку большинству программистов не придется сталкиваться с задачами репликации, то можно смело использовать для ключевых полей тип Integer.

  Надо ли использовать ключевое поле во всех без исключения таблицах

  На первый взгляд, вопрос может показаться странным. Разве можно без ключевого поля? Оказывается, в некоторых случаях можно.

  Например, для организации связи много-ко-многим стандартным способом является создание таблицы-посредника. Что имеется в виду?

  Допустим, у Вас есть список контрагентов и список банков. Разумеется, один и тот же контрагент может иметь счет в нескольких банках. Но верно и обратное - один банк работает с несколькими контрагентами. В этом случае Вы не можете сделать внешний ключ банка в таблице контрагента или внешний ключ контрагента в таблице банков. Вам необходимо ввести таблицу-посредник, которая будет хранить в себе внешний ключ банка и внешний ключ контрагента.

  При такой организации, каждая запись в этой таблице посреднике однозначно идентифицирется парой значений: код контрагента-код банка. Поэтому возникает искушение не вводить еще одно поле для суррогатного ключа этой таблицы-посредника.

  Однако я настоятельно рекомендовал бы Вам вводить-таки собственное ключевое поле для всех таблиц базы данных. Почему? Ну потому, что любая программа имеет "привычку" развиваться.

  Если вернуться к примеру с контрагентами и банками, то легко заметить, что я обошел вниманием тот момент, что один контрагент может иметь несколько счетов в одном и том же банке. Этот самый реквизит (счет контрагента в банке) невозможно прицепить ни к банку, ни к контрагенту. Но он очень удачно подходит к этой таблице-посреднику. Если бы для идентификации записи в этой таблице Вы опирались бы на пару: код банка - код контрагента, то Вам пришлось бы серьезно переделывать значительную часть программы. А в случае существования собственного кода записи никаких проблем. Ну добавили еще одно поле, ну и что?

  В данном случае я рассмотрел достаточно очевидный случай, но зачастую кажется, что по другому быть не может и уж вот здесь-то собственный идентификатор записи не нужен. Не обольщайтесь. Если Вам кажется, что чего-то не может быть - это всего-лишь значит, что Вы чего-то не знаете.
  Вывод - используйте собственное ключевое поле во всех без исключения таблицах. Даже если Вам кажется, что без него можно обойтись.

  НАЗВАНИЕ КЛЮЧЕВОГО ПОЛЯ
  

  Поскольку ключевое поле - это обычное поле таблицы, то на него распространяются все рекомендации приведенные в разделе "Поля таблицы". Однако поскольку это все-таки очень специфическое поле, то для него я бы добавил следующие рекомендации

• Образуйте название ключевого поля таблицы добавив к имени таблицы 2 буквы "ID" (от слова identifier - идентификатор), отбросив букву "s" если имя таблицы - это слово во множественном числе - Например, если вы назвали таблицу контрагентов "Partners", то ключевое поле будет назваться "PartnerID". При таком способе наименования однозначно можно сказать к какой таблице относится ключевое. Но не стоит назвать ключевое поле также как и собственно таблицу, поскольку в некоторых случаях станет весьма проблематично сходу определить о чем идет речь - о поле или собственно о таблице
• Называйте внешние ключи также как и соответствующие ключевые поля - такой способ наименования внешних ключей очень облегчает понимание о чем собственно идет речь при написании программы.
• Ограничивайте название ключевого поля 10 символами - причина здесь в том, что количество символов в названии индексного тэга не может быть больше 10. А по ключевому полю обязательно следует построить индекс. Если количество символов в ключевом поле будет больше 10, то название индексного тэга будет отличаться от названия ключевого поля. А это не очень хорошо в том смысле, что серьезно затруднит программирование, поскольку использовать этот индекс Вы будете сплошь и рядом.

  Кстати, из этой рекомендации вместе с самой первой рекомендацией по наименованию ключевых полей вытекает, что количество символов в имени таблицы не должно превышать 8 (или 9, если название таблицы - это множественное число)

  СОБСТВЕННО РАБОТА С КЛЮЧЕВЫМИ ПОЛЯМИ ТАБЛИЦЫ
  

• Значение ключевого поля должно присваиваться один раз в момент создания записи и не меняться все время существования этой записи. Крайне нежелательно модифицировать значение ключевого поля. Лучше строить программу таким образом, чтобы не возникало необходимости в подобной модификации. Более того, я бы не рекомендовал использовать значения ключевых полей удаленных записей (умерла, так умерла).

  Такая стратегия сильно облегчает отлов ошибок пользователей, поскольку в большинстве случаев, если пользователь делает ошибку в документе, то он не исправляет ошибочный документ, а удаляет его и создает заново! Вот и докажи потом, что это не программа плохая!

  Кроме того, такая стратегия позволяет с меньшими проблемами интегрировать несколько баз данных в один комплекс если в этом возникает необходимость.

• Ни в коем случае не давайте пользователям возможность самостоятельно изменять значение ключевых полей. Более того, пользователь вообще не должен подозревать об их существовании. Это должен быть исключительно внутренний механизм обеспечения целостности базы данных.

  Дело в том, что любая информация, которую вводит пользователь по определению является не надежной и как бы Вы ни защищали информацию, пользователь найдет как ее обойти или просто заставит Вас это сделать! А то, о чем он не подозревает и испортить не может.

• Не пытайтесь навесить на ключевые поля какие-либо еще функции кроме однозначной идентификации записи.

  Например, в некоторых случаях возникает соблазн использовать ключевые поля еще и как порядковый номер элемента в списке. Так вот, не надо этого делать. Введите для реализации этой функциональности дополнительное поле. Также не следует использовать ключевое поле, как краткое название элемента

  Если Вы навесите на ключевое поле еще какую-либо функциональность, кроме однозначной идентификации записей, то просто создадите себе массу проблем (сильно усложнится программный код). А в качестве преимуществ только некоторая экономия дискового пространства. Думаю, оно того не стоит.

Автор публикации

не в сети 26 лет

Владимир Максимов

Комментарии: 0Публикации: 65Регистрация: 02-09-2000

(далее…)

]]> https://foxclub.ru/knowledgebase/zapusk-konsolnoj-vklyuchaya-dos-programmy-s-perehvatom-potokov-vvoda-vyvoda-bez/ Fri, 28 Aug 2020 11:32:25 +0000

Запуск консольной (включая DOS) программы с перехватом потоков ввода/вывода (без < > !)

Теперь можно запускать прогу из под VFP и читать из нее данные как из файла (аналогично запись...) Использую функцию CreateProcess.

Запуск DOS программы с перехватом потоков ввода/вывода (без < > !)

Вот код программы - вместо 1.exe напишите то что нуджно вызвать...

#INCLUDE charts.h
DO charts.prg
CLEAR

PRIVATE pb,db,si,pi,hproc,hthread,h_my_input,h_my_output,secattr,r_ph,w_ph
pb='1.exe'
db=SYS(5)+SYS(2003)

IF GetPlatform() # VER_PLATFORM_WIN32_NT
pb='COMMAND.COM /c '+pb
ELSE
pb='cmd /c '+pb
ENDIF

* Создаем дескрипторы потоков ввода/вывода
m.secattr=REPLICATE(CHR(0),12)
m.secattr=STUFF(m.secattr,1,4,num2dword(12))
m.secattr=STUFF(m.secattr,9,4,num2dword(1))

m.r_ph=0
m.w_ph=0
m.read_len=0
STORE INVALID_HANDLE_VALUE TO h_my_output, h_my_input

*=createpipe(@h_my_input, @h_my_output, secattr, 0)
=createpipe(@r_ph, @h_my_output, secattr, 0)
IF h_my_output = INVALID_HANDLE_VALUE
? 'error creating output pipe'
RETURN .t.
ELSE
? 'h_my_output = ',h_my_output
ENDIF

=createpipe(@h_my_input, @w_ph, secattr, 0)
IF h_my_input = INVALID_HANDLE_VALUE
? 'error creating input pipe'
RETURN .t.
ELSE
? 'h_my_input = ',h_my_input
ENDIF

si=REPLICATE(CHR(0),68)
si=STUFF(si,1,4,num2dword(68))
* Устанавливаем флаги нового процесса
* STARTF_USESTDHANDLES - Выдать дескрипторы 3 потоков ввод, вывод и ошибки
si=STUFF(si,45,4,num2dword(BITOR(STARTF_USESTDHANDLES,STARTF_USESHOWWINDOW)))
si=STUFF(si,49,2,num2word(SW_SHOW))
si=STUFF(si,57,4,num2dword(m.h_my_input))
si=STUFF(si,61,4,num2dword(m.h_my_output))

pi=REPLICATE(CHR(0),16)
m.r=createprocess(null,pb,null,null,1,CREATE_NEW_CONSOLE,null,db,@si,@pi)
IF m.r=0
? 'CreateProcess failed'
ELSE
m.hproc=dword2num(SUBSTR(pi,1,4))
m.hthread=dword2num(SUBSTR(pi,5,4))
? 'HProcess = ',hproc
? 'HThread = ',hthread
=CloseHandle(m.HThread)
* Действия с процессом
m.str='Привет Всем !!!'+CHR(13)+CHR(10)
m.writtenbytes=0
m.overlapped=REPLICATE(CHR(0),20)
=setlasterror(0)
m.r=writefile(m.w_ph,m.str,LEN(m.str),@writtenbytes,null)
? 'WriteFile = ',m.r#0
? getsystemerror()
? 'ОБМЕН ДАННЫМИ'
m.o_res=dword2num(SUBSTR(m.overlapped,1,4))
IF !EMPTY(o_res)
m.buf=SPACE(100)
? 'Overlapped Internal = ',m.o_res,' - ',getsystemerror(m.o_res)
ENDIF
m.buf=REPLICATE(CHR(0),100)
m.read_bytes=0
? 'ЗАПИСАНО БАЙТ = ',writtenbytes
=setlasterror(0)
DO WHILE WaitForSingleObject(m.hProc, 50) # WAIT_OBJECT_0
DO WHILE (PeekNamedPipe(m.r_ph, null, 0, 0, @read_len, 0)#0 AND (read_len > 0))
IF readfile(m.r_ph,@buf,100,@read_len,null)#0
? getsystemerror()
? SUBSTR(m.buf,1,m.read_len)
? 'ПРОЧИТАНО БАЙТ = ',read_len
ENDIF
ENDDO
ENDDO
* ====================
ENDIF
=CloseHandle(m.hproc)
=CloseHandle(m.h_my_input)
=CloseHandle(m.h_my_output)
=closehandle(m.r_ph)
=closehandle(m.w_ph)

* Функция перевода числа в integer символьного вида - взял из vfp2tray Сергея Титова
FUNCTION num2dword
LPARAMETERS n1
RETURN CHR(BITAND(m.n1, 0xFF)) + ;
CHR(BITRSHIFT(BITAND(m.n1, 0xFF00), 8)) + ;
CHR(BITRSHIFT(BITAND(m.n1, 0xFF0000), 16)) + ;
CHR(BITRSHIFT(BITAND(m.n1, 0xFF000000), 24))

FUNCTION num2word
LPARAMETERS n1
RETURN CHR(BITAND(m.n1, 0xFF)) + ;
CHR(BITRSHIFT(BITAND(m.n1, 0xFF00), 8))

* Перевести строку в 4 байтное число
FUNCTION dword2num
LPARAMETERS str
RETURN ASC(SUBSTR(m.str,1,1))+ASC(SUBSTR(m.str,2,1))*256+ASC(SUBSTR(m.str,3,1))*256^2+ASC(SUBSTR(m.str,4,1))*256^3

FUNCTION GetPlatform
PRIVATE OSVersionInfo
OSVersionInfo=REPLICATE(CHR(0),148)
OSVersionInfo=STUFF(OSVersionInfo,1,4,num2dword(148))
=getversionex(@OSVersionInfo)
RETURN dword2num(SUBSTR(OSVersionInfo,17,4))

FUNCTION GetSystemError
LPARAMETERS num
IF PARAMETERS() ]]> https://foxclub.ru/knowledgebase/rabota-s-ikonkami-v-tray-vfp7-v-vide-klassa-vcx/ Fri, 28 Aug 2020 11:32:26 +0000

Работа с иконками в Tray (VFP7) в виде класса (VCX).

По мотивам systray.prg Сергея Титова. Добавлено :Анимация через список иконок.

На форуме бывают вопросы о том как работать с иконкой в Tray-е. Вот класс для VFP7> который позволяет это делать. Но в 8 версии, по-моему уже есть systray.vcx. Так что это только для 7 и можно доделать для >7. Возможности: 1) Кидаем класс my_tray3 на форму и устанавливаем иконку для формы. При зупуске появляется иконка в Tray и к ней прицепляется меню. 2) Добавляем еще 1 иконку и при сворачивании формы иконка в tray меняется. 3) Кидаем на форму my_tray и делаем пункты 1-2. Добавляем еще 10 иконок и говорим my_tray1.play() - получаем анимацию в Tray... Класс еще сырой - но постараюсь в ближайшее время доделать... В архиве пример формы :form1. Посмотрите ее методы :Init, Load, Resize

Автор: Петров Андрей

Автор публикации

не в сети 24 года

Петров Андрей

Комментарии: 0Публикации: 14Регистрация: 17-04-2002

(далее…)

]]> https://foxclub.ru/knowledgebase/prosteczkij-setevoj-chat/ Fri, 28 Aug 2020 11:32:26 +0000

Простецкий сетевой чат

Запускаем программу на кадой машине Метод - SendMsg - форма для отправки сообщения указывается имя компьютера без длина сообщения не более 425 - ограницение mailslot При получении сообщения - окно само выпрыгивает

Автор: Пирожков Вадим

Автор публикации

не в сети 22 года

piva

Комментарии: 1Публикации: 11Регистрация: 24-03-2004

(далее…)

]]> https://foxclub.ru/knowledgebase/tetris/ Fri, 28 Aug 2020 11:32:26 +0000

Тетрис

Обычный тетрис

Тетрис

Писанный Морозовым, за что ему спасибо. Ошибки почти все исправил (надеюсь очень), добавил сохранение результатов и прочее.

Автор: Михаил

Автор публикации

не в сети 6 лет

Михаил (Bomber)

Комментарии: 0Публикации: 2Регистрация: 26-08-2020

(далее…)

]]> https://foxclub.ru/knowledgebase/sistema-pozvolyayushhaya-fiksirovat-chto-delali-polzovateli-s-dannymi-v-bd/ Fri, 28 Aug 2020 11:32:25 +0000

Система, позволяющая фиксировать, что делали пользователи с данными в БД

Несложная система для логирования изменений в таблицах БД. Помогает узнать, кто, когда, какие данные редактировал.

Система, позволяющая фиксировать, что делали пользователи с данными в БД

Никогда не попадали в ситуацию, когда пользователи напортачили в базе, а потом утверждают, что "это ваша программа криво работает" ? Что поделать, не было в Фоксе встроенных средств журналирования...

Теперь есть :))) Конечно, данное решение достаточно простое, и не может служить средством защиты от аппаратных сбоев (как, например, в MS SQL). А вот от "человеческого фактора" защищает очень надежно.

Кроме того, система позволяет получать статистику работы пользователей (например, внесено X новых договоров, Y новых клиентов, Z клиентов отредактировано).

Данный пример легко может быть встроен в уже существующую БД.

Версия 2.0

Т.к. с первой версией ни у кого проблем не возникло ;), система несколько усложнена.
Зато пользоваться ей стало проще 🙂

Протестировано в VFP 6, 7, 8.

Автор: Igor Ilyin

Автор публикации

не в сети 23 года

karly™

Комментарии: 0Публикации: 4Регистрация: 27-09-2003

(далее…)

]]> https://foxclub.ru/knowledgebase/biblioteka-dlya-raboty-s-rtf-fajlami/ Fri, 28 Aug 2020 11:32:25 +0000

Библиотека для работы с RTF файлами.

Библиотека позволяет формировать RTF файлы без использования MSWord. Т.е. даже если он не установлен Вы сможете создать например отчет в Word.

Библиотека для работы с RTF файлами.

Возможности:
1) Запись в RTF линий (только горизонтальные и вертикальные)
2) Запись в RTF закрашенных прямоугольников
3) Запись в RTF текста
4) Запись в RTF картинок (BMP, JPEG, GIF, EMF, PCT)
5) Открытие уже существующего RTF и дозапись в него.

Библиотека делелась на Delphi для генераторов отчетов. После моего предложения Martin Haluza от разработки данной компоненты отказался хотя в состав его отчетов после этого разговора входит возможность переноса отчета в RTF (www.eques.com - XFRX).
Библиотека тестировалалсь мало... Но если кому пригодится то я буду рад.

Вот пример использования:

DECLARE short WritePage IN rtf_lib
DECLARE short WriteImage IN rtf_lib integer, integer, integer, integer, string
DECLARE short WriteRect IN rtf_lib integer, integer, integer, integer, integer, integer, integer
DECLARE short WriteVertLine IN rtf_lib integer, integer, integer, integer, integer
DECLARE short WriteHorizLine IN rtf_lib integer, integer, integer, integer, integer
DECLARE short WriteText IN rtf_lib short, short, short, short, integer, integer, integer, integer, integer, integer, integer, string, string

DECLARE short WriteImage IN rtf_lib integer, integer, integer, integer, string, short

DECLARE short Create IN rtf_lib AS _Create string, short, short, short, short
DECLARE short Open IN rtf_lib AS _Open string, short, short, short, short, short
DECLARE short GetColorID IN rtf_lib short, short, short
DECLARE Integer getrgbcolorid IN rtf_lib short, short, short
DECLARE short Save IN rtf_lib AS _Save

=_Create('1.rtf',0,0,0,0)
=writetext(1,1,1,2,8,GetColorID(255,0,0),GetrgbColorID(0,255,0),2000,2000,1000,1000,'Arial','Тестовая строка')
=writehorizline(7000,7000,4000,getrgbcolorid(0,255,255),100000)
=WritePage()
=writevertline(7000,7000,4000,getrgbcolorid(255,0,255),200000)
=writerect(1000,1000,1000,1000,getrgbcolorid(0,255,0),getrgbcolorid(0,0,255),300000)
=writeimage(2000,2000,1000,1000,'1.jpg',1)
=writeimage(3000,2000,1000,1000,'1.gif',2)
=writeimage(4000,2000,1000,1000,'1.bmp',3)
=writepage()
=writeimage(1000,1000,10000,1000,'1.emf',4)
=writetext(1,1,1,2,8,GetColorID(255,0,0),GetrgbColorID(0,255,0),2000,2000,1000,1000,'Arial','EMF')
=writepage()
=writeimage(1000,1000,10000,1000,'1.pct',0)
=writetext(1,1,1,2,8,GetColorID(255,0,0),GetrgbColorID(0,255,0),2000,2000,1000,1000,'Arial','PCT')
=_Save()

Действия библиотеки основаны на формировании динамического списка при вызове одной из функций =writeXXXX и переброски из списка в файл при вызове _Save().

Автор: Петров Андрей

Автор публикации

не в сети 24 года

Петров Андрей

Комментарии: 0Публикации: 14Регистрация: 17-04-2002

(далее…)

]]> https://foxclub.ru/knowledgebase/sovety-nachinayushhim-chast-i/ Sun, 20 Nov 2022 05:44:42 +0000

Советы начинающим Часть I

В этой статье :

Советы и рекомендации
Расположение файлов проекта

• Расположение файлов внутри проекта
• Содержимое главной директории проекта
• Файл конфигурации CONFIG.FPW
• Как открыть проект
• Пути доступа к файлам проекта

  База данных

• Название файла базы данных
• Расположение файла базы данных
• Обслуживание файла базы данных
• А надо ли вообще использовать файл базы данных?

Несколько слов о том, о чем собственно пойдет здесь речь и для чего это все было написано. Очень трудно сформулировать это все кратко, но тем не менее я попытаюсь.

Как правило, большинство книг по программированию являются либо пересказом статей Help к языку, либо набором комиксов по типу "нажмите эту кнопочку увидите такую картинку, теперь нажмите эту кнопочку ...". Нельзя сказать, что это плохо или не нужно. Просто между двумя этими крайностями образовался провал, в котором и пропадает множество новичков. Поэтому любая книга, которая хоть как-то его закрывает обычно пользуется повышенным спросом.

О каком "провале" собственно идет речь?

Первый разрыв - это терминология. Определение различным терминам либо вообще не дается (дескать и так все понятно), либо дается строго научное (т.е. очень заумное, лучше бы его и не давали). В результате, читая дальнейшие статьи уже совершенно непонятно о чем собственно идет речь.

Второй разрыв - это когда и что лучше всего применять. Обычно изложение строится таким образом: для решения задачи сделаем так, так и вот так. Но не предпринимается даже попытки объяснить, а почему собственно не иначе, когда есть другой способ? Как следствие, когда новичек узнает о том, что одну и ту же задачу можно решить даже не двумя, а тремя, четыремя и более способами у него в голове начинается полная карусель. Бросает из одной крайности в другую.

Есть и еще одна проблема, связанная с предыдущими двумя. Обычно в FoxPro начинают разбираться люди, уже попробовавшие свои силы в программировании на других языках (чаще всего в Delphi или Basic, да даже программисты работавшие ранее в FoxPro for DOS) и они пытаются применить стиль программирования хорошо (или не очень) им известного языка в Visual FoxPro и очень удивляются сталкиваясь с неожиданными (в смысле - не ожидАемыми) проблемами: вот ведь, в руководстве написано, что это можно, а у меня не выходит! А проблема оказывается в самом стиле программирования. Кое-какие приемы, хорошо работающие в Delphi для FoxPro являются попросту неприменимы.

Вот я и попытаюсь заполнить этот "провал" и описать некоторые рекомендации по программированию на FoxPro, с пояснениями почему собственно желательно делать так, а не иначе.

Советы и рекомендации

FoxPro - это язык, который очень снисходительно относится к ошибкам программиста: не дали определения переменной - ничего, я сам определю; забыли указать рабочую область - ничего, я сам попытаюсь ее найти. И так во многих случаях, если Вы забыли что-то указать FoxPro самостоятельно попытается это что-то найти.

С одной стороны, это конечно хорошо и облегчает жизнь програмисту, но вот с другой при создании достаточно крупных проектов в результате такой "самодеятельности" со стороны FoxPro могут возникать ошибки, которые очень трудно отловить.

Самая распространенная ошибка - это самоопределение переменных. Если Вы не дали определение переменной в процедуре, то сначала FoxPro попытается найти одноименную переменную определенную в другой процедуре и доступную в данной и если такая переменная существует, то она и будет использована к полному недоумению программиста вовсе не ожидающего такой "подлости"

Со стороны разработчиков FoxPro уже явно наметилась тенденция к ужесточению синтаксиса. Оно и понятно, такие языки программирования и создавать легче, да и библиотеки поддержки будут иметь меньший объем. Но пока это только тенденция, посмотрим, что будет дальше.

С другой стороны, конечно просто замечательно, что FoxPro предоставляет возможность решить одну и ту же проблему несколькими способами, но если в каждом конкретном случае размышлять на тему "что лучше использовать", то Вы никогда не закончите ни одного приложения.

В результате, появились некоторые правила и рекомендации по программированию, которые ни в коем случае не являются абсолютно необходимыми по принципу "делай так и ника иначе". Вы можете нарушить их абсолютно все и тем не менее написать работоспособное приложение. Цель этих рекомендаций - это уменьшить вероятность появления ошибок и облегчить как собственно написание, так и последующее исправление программ

Расположение файлов проекта

По большому счету, проект - это набор файлов. Возникает вопрос - где и как их расположить? Если у Вас он не возникает, то Вы или очень опытны (это же очевидно!), или наоборот очень неопытны (а разве это важно?).

Главным правилом в данном случае выступает разделение рабочих (модифицируемых) файлов и исполняемых (не модифицируемых). Имеется в виду прежде всего их физическое (по разным директориям) разделение.

Причина такого "неравноправия" прежде всего в том, что есть серьезные опасения в порче исполняемых файлов. Пусть случайное и непреднамеренное. Но если рабочие и исполняемые файлы лежат в одной директории, то очень легко ошибиться с выбором и модифицировать не тот файл. В результате - FoxPro или начнет работать с ошибками или вообще перестанет работать.

Другой причиной является возможность быстрого копирования рабочих файлов. Если они расположены компактно в одной директории, то Вы не задумываясь просто копируете эту директорию со всем содержимым и не надо мучительно выискивать, что надо копировать, а что лишнее.

Необходимость копирования объясняется как минимум необходимостью создания резервных копий всех рабочих файлов (есть и другие причины). По самой своей сути программирование - это модификация файлов. А файл можно "модифицировать" так, что мало не покажется. После чего остается только полностью удалить эту "модификацию" и начать все заново. Хорошо, если у Вас есть резервная копия, тогда Вы начнете не с нуля. А если нет?

Еще одной немаловажной причиной хранения файлов проекта отдельно от файлов FoxPro является удобство поиска нужных рабочих файлов. Если они свалены в одну "кучу" с рабочими файлами FoxPro, то становится очень тяжело найти нужный файл.

Итак, файлы Вашего проекта не следует хранить в той директории, где установлен собственно FoxPro. Следовательно, необходимо создать отдельную директорию для Ваших проектов.

Нежелательно в именах директорий, где расположен Ваш проект использовать пробелы и русские буквы. Пробелы приведут к некторому усложнению программирования (необходимы будут дополнительные кавычки во всех путях доступа). А русские буквы нежелательны потому, что FoxPro разрабатывалось прежде всего для англоязычных пользователей и все прочие языки - это уже "надстройка". Причем зачастую эта "надстройка" весьма кривовата. Никогда не знаешь где тебе аукнутся русские буквы.

В идеале, хорошо бы давать имена директорий в DOS-формате (т.е. до 8 символов), но это уже перестраховка. Уместитесь в 8 символов - хорошо, нет - ничего страшного.

Расположение файлов внутри проекта

Следующий вопрос - это вопрос расположения уже файлов самого проекта. Опять же крайне нежелательно сваливать все файлы в одну директорию. Причины здесь те же - риск порчи, необходимость резервного копирования, сложность поиска. Но уже внутри Вашего проекта.

Прежде всего, обязательно следует выделить отдельную директорию для хранения базы данных. Как правило, эту поддиректорию так и называют "DATA". В этой директории хранится как файл контейнера базы данных (DBC, DCT, DCX), так и файлы собственно таблиц (DBF, FPT, CDX)

Прочие файлы также следует "раскидать" по поддиректориям, но тут уже возможны варианты.

В примерах от MicroSoft рекомендуется хранить файлы по их типам: формы в директории Forms, классы в директории Class и т.п. Однако я предпочитаю хранить файлы по их логическому назначению: главные файлы программы в директории Main, файлы для работы со справочниками в директории SPR, файлы для работы с документами в директории Document и т.п. Какой вариант примете Вы - не так важно. Главное, чтобы у Вас файлы были "раскиданы" по нескольким директориям

Итак, в результате у Вас получится примерно следующая структура каталога Вашего проекта

C:\ProjVFP 
  C:\ProjVFP\MainProj 
  C:\ProjVFP\MainProj\Class 
  C:\ProjVFP\MainProj\Data 
  C:\ProjVFP\MainProj\Forms 
  C:\ProjVFP\MainProj\Prg 

Здесь каталог C:\ProjVFP - предназначен для хранения многих проектов, которые Вы без сомнения еще напишите. А собственно уже конкретно Ваш проект расположен в директории C:\ProjVFP\MainProj

Содержимое главной директории проекта

Ну хорошо, раскидали мы файлы по разным поддиректориям, а что же остается внутри главной директории проекта?

А вот внутри главной директории остается, во-первых, собственно файл проекта (файлы с расширением PJX, PJT), во-вторых, обязательно файл конфигурации CONFIG.FPW (это обычный текстовый файл, о нем чуть ниже) и в-третьх, файлы ресурсов FoxUser.DBF и FoxUser.FPT Прочие файлы уже по мере необходимости в конкретном проекте, но как правило, больше ничего здесь храниться не должно.

Вполне естесственное желание, назвать файл проекта тем же имененем, что и директория в которой он расположен, поскольку собственно ради него все это и затевается. Именно так и следует поступить - назвать файл проекта MainProj.pjx (и MainProj.pjt)

Файл ресурсов FoxUser.dbf и FoxUser.fpt можно и не создавать специально, а только сделать специальную запись в файле конфигурации (в этом случае он будет создан автоматически).

Зачем вообще надо тащить этот файл ресурсов в директорию проекта? Дело в том, что файл ресурсов хранит в себе координаты и положения всех когда-либо открываемых окон в среде FoxPro. Это значит, что в случае использования одного и того же файла ресурсов для всех проектов это файл "раздуется" до неимоверных размеров. А ведь в случае копирования проекта домой, желательно захватить с собой и файл ресурсов, чтобы "картинка не сбилась". Удобнее это сделать, если файл ресурсов физически расположен в той же директории, где и сам проект, а не искать его в директории FoxPro.

Определить какой именно файл ресурсов используется и где он находится можно с помощью функции SYS(2005)

Файл конфигурации CONFIG.FPW

Теперь важнейший вопрос о файле конфигурации CONFIG.FPW. Это обычный текстовый файл и о нем почему-то крайне редко упоминается в книгах о FoxPro. Этот файл необходимо создать самостоятельно. Автоматически он не создается.

Как правило, используют 2 файла конфигурации - один на этапе создания и отладки проекта и другой - на этапе исполнения собственно готового EXE у клиента. Тот файл конфигурации, который поставляется клиенту можно включить внутрь EXE, но лучше этого не делать. В этом случае он позволяет производить некоторую внешнюю настройку среды FoxPro даже в готовом EXE.

Итак, что же должно быть в том файле конфигурации, который используется на этапе создания и изменения проекта. Вот его примерное содержание

CODEPAGE=1251  
RESOURCE=FoxUser.dbf  
TITLE=Мой новый проект  
PATH=Data,Forms,Class,Prg  
COMMAND=MODIFY PROJECT MainProj.pjx

CODEPAGE - эта строка должна быть обязательно, если Вы работаете с данными на русском языке. Если этой строки не указать, то может не произойти автоматическая трансляция символов русского языка и вместо них будут отображены какие-то закорючки.

RESOURCE - эта опция говорит о том, что в качестве ресурсного файла выступает файл FoxUser.dbf расположенный в директории по умолчанию. Если такого файла там нет, то он будет создан автоматически. В принципе, Вы можете указать абсолютно любое имя для ресурсного файла, но лучше придерживаться принятого стандарта, чтобы не запутаться.

TITLE - эта опция задает текст заголовка главного окна FoxPro вместо стандартного "Microsoft Visual FoxPro". Заключать текст заголовка в кавычки не надо.

PATH - еще одна очень важная настройка. Она говорит FoxPro о том, где следует искать файлы (в каких директориях) относительно текущей директории. В качестве разделителя можно указывать как просто запятую, так и символ точки с запятой. Подробнее о путях доступа чуть ниже.

COMMAND - эта опция задает команду, которую необходимо выполнить в момент открытия среды FoxPro. К сожалению, нельзя указать несколько опций COMMAND. Из них будет выполнена только одна. Но если Вам необходимо выполнить несколько команд при открытии среды FoxPro, то напишите их все в специальном файле PRG и опция будет выглядеть например так:

COMMAND=DO Start.prg  

По умолчанию, FoxPro "запоминает" последний открытый проект и пытается его открыть при каждом открытии среды FoxPro. Это удобно, когда Вы работает с одим проектом, но при работе с несколькими проектами это раздражает. Отключить режим автоматического открытия последнего открытого проекта можно в среде FoxPro: Пункт главного меню Tools -> Options -> закладка View -> Снять "птичку" в пункте "Open last project on startup" и сохранить настройки по кнопке "Set As Default". А для открытия "нужного" проекта при открытии FoxPro как раз и используется опция COMMAND в файле конфигурации.

В файле конфигурации можно сделать еще много различных настроек, но в большинстве случаев это не нужно. Например, большинство команд SET по умолчанию настроены как раз таким образом, который помогает отлаживать проект. Т.е. делать их перенастройку в файле конфигурации просто не имеет смысла.

Следует иметь в виду, что файл конфигурации используется только один раз при запуске среды FoxPro. Поэтому, если Вы внесли изменения в файл конфигурации, то они вступят в силу только после перезагрузки среды FoxPro.

Как открыть проект

Обратите внимание, что я не указал в файле конфигурации директории по умолчанию. В принципе, это можно сделать используя опцию DEFAULT примерно так:

DEFAULT=C:\ProjVFP\MainProj  

Однако есть способ лучше. Для открытия проекта создайте ярлык на рабочем столе со следующими реквизитами (у меня VFP6, поэтому пути соответствующие)

Командная строка

"C:\Program Files\Microsoft Visual Studio\Vfp98\VFP6.EXE" -T -C"C:\ProjVFP\MainProj\config.fpw"
Директория по умолчанию "C:\ProjVFP\MainProj"

Ключи запуска можно записать вместе как "-TC". Ключ "-T" говорит о том, что при запуске среды FoxPro не надо отображать заставку-логотип, а ключ "-C" говорит о том, что следом за ним указан полный путь доступа вместе с именем файла конфигурации, который следует использовать при запуске среды FoxPro. Строго говоря здесь можно указать абсолютно любое имя файла конфигурации, но лучше придерживаться принятого стандарта, чтобы не запутаться. В следующей строке Вы указываете и собственно директорию по умолчанию, которой и является та директория в которой расположен Ваш файл проекта.

Если Вы работаете с несколькими проектами, то создайте отдельные ярлыки для каждого проекта и отдельные файлы конфигурации. А сами ярлыки поместите в отдельную папочку на рабочем столе.

Пути доступа к файлам проекта

Итак, если Вы последовали всем приведенным выше рекомендациям, то у Вас должно получится следующее: При запуске среды FoxPro в качестве директории по умолчанию устанавливается директория, где расположен сам файл проекта, а все прочие файлы проекта располагаются в поддиректориях.

Как же в этом случае обратится к рабочим файлам проекта?

Если Вы указали опцию PATH в файле конфигурации, то обращаетесь так, как-будто все файлы проекта лежат в текущей директории, например:

USE MyTable.dbf  
  DO FORM MyForm.scx 

Несмотря на то, что физически таблица MyTable.dbf находится в папке "DATA", а файл формы MyForm.scx в папке "Forms" FoxPro тем не менее найдет и запустит нужные файлы, поскольку путь доступа к ним был прописан в опции PATH в файле конфигурации.

Использование путей доступа в настройках файла конфигурации (или же программно в стартовом файле проекта) позволяет в простых случаях легко переносить проект из одной директории в другую. То же самое можно сказать и о данных. Вы спокойно включаете таблицы в DataEnvironment форм и отчетов не заботясь о том, что у клиента эти таблицы физически будут расположены в других директориях. Они все-равно будут найдены, если задан путь доступа к ним.

Разумеется, есть ситуации, когда простого указания путей доступа оказывается недостаточно. Например, когда Вы одновременно работаете с несколькими одноименными таблицами принадлежащими разным базам данных. В таких случаях используются различные приемы принудительного указания абсолютных путей доступа (здесь я их рассматривать не буду). Но в большинстве случаев использование настройки PATH оказывается вполне достаточным.

Следование изложенным здесь рекомендациям позволит облегчить процесс поиска и использования отдельных файлов проекта не только на этапе создания и изменения проекта, но и при распростарнении готовых проектов клиентам.

Кроме того, облегчается процесс создания резервных копий (да и просто копирования) файлов Вашего проекта. А также снижается вероятность порчи рабочих файлов собственно FoxPro.

База данных

По большому счету, под термином "база данных" понимают совокупность всех данных, а также наложенных на них правил и ограничений, обеспечивающих целостность и непротиворечивость этих даных. Иногда его действительно употребляют именно в этом смысле, однако чаще всего в FoxPro этот термин понимается в более узком смысле

База данных - это файл с расширением DBC, а также связанные с ним файлы с тем же именем, но с расширениями DCX и DCT

Более правильно было бы применять термин "контейнер базы данных". Подозреваю, что от него и произошло название расширения (первые буквы в английском DataBase Container). Однако в связи с привычкой американцев все сокращать слово "контейнер" как-то затерялось.

В версиях FoxPro 2.x под термином "база данных" понимали то, что сейчас понимают под термином "таблица", просто потому, что в этих версих еще не было файла DBC. Из-за чего часто возникают недоразумения и недопонимания.

По своей сути, файл DBC - это обычный файл DBF, только с измененным расширением (как и большинство других файлов используемых в FoxPro). Соответсвенно DCT - это файл мемо-полей (переименованный FPT), а DCX - это структурный индексный файл (переименованный CDX). Отличие от простого файла DBF заключается только в содержимом 28 байта заголовка (считая что первый байт имеет порядковый номер 0). В файле базы данных в этом байте заполнен 3 бит (чего нет в DBF-файлах). Т.е. ASCII код записанного там символа не менее 4 (обычно 7), в то время, как у DBF-файлов его содержимое наоборот не превышает 3.

Поскольку файл базы данных - это обычный файл DBF, то Вы можете открыть его как таблицу и просмотреть содержимое.

USE MyBase.dbc AGAIN  

Указывать расширение файла, как и опцию AGAIN в этом случае обязательно. Без указания расширения FoxPro посчитает, что его расширение DBF и ошибется. А опция AGAIN нужна потому, что файл базы данных может быть уже открыт командой OPEN DATABASE и без этой опции Вы также получите сообщение об ошибке

Зачастую, открытие файла базы данных как таблицы в более ранних версих FoxPro был единственной возможностью быстро получить нужную информацию. Например, какие таблицы базы данных имеют поле с заранее известным именем "MyField"? Для ответа на этот вопрос строим SQL запрос примерно следующего содержания:

SELECT a.ObjectName ;  
        FROM MyBase.dbc a ;  
        INNER JOIN MyBase.dbc b ON a.ObjectID=b.ParentID ;  
        WHERE a.ObjectType='Table' and b.ObjectType='Field' and ;  
               b.ObjectName=PADR(LOWER('MyField'),128)

Но я бы не рекомендовал пользоваться такими "хакерскими" трюками и использовать штатные функции для работы с файлом базы данных INDBC(), DBGetProp(), ADBObjects() и тому подобное, поскольку в этом случае слишком велик риск непреднамеренной порчи файла базы данных.

Название файла базы данных

Файл базы данных, как и любой другой файл в системе Windows может содержать до 128 символов, содержать пробелы, русские символы, цифры и некоторые спец.символы. Однако для упрощения работы в FoxPro я бы порекомендовал следующие ограничения в наименовании файла базы данных

• Не использовать в названии русские символы - причина этой рекомендации в том, что FoxPro разрабатывался прежде всего для англоязычных пользователей и использование в нем символов другого языка - это уже последующее дополнение. Как следствие, велик риск, что чего-то, где-то недосмотрели и при определенных ситуациях русские буквы в имени вызовут неожиданные глюки
• Не использовать в названии пробелы - в принципе, ошибок использование пробелов не вызовет, но несколько усложнит сам процесс программирования, поскольку имена и пути доступа, содержащие пробелы необходимо заключать в кавычки. Просто добавит лишней заботы - не забывать кавычки. А зачем усложнять себе жизнь, когда без этого легко можно обойтись.
• По возможности, ограничивайте длину названия 8 символами и не используйте в названии цифр и спец.символов - на самом деле я не вижу разумных объяснений этому ограничению. Но дело в том, что подавляющее большинство системных файлов и файлов примеров в FoxPro (да и собственно системы Windows) ограничены как раз-таки именно 8 символами и не используют ни цифры ни спец.символы. Зачастую в ущерб информативности названия. Почему разработчики идут на такое ограничение не понятно, но имеет смысл последовать их примеру. Видимо на это есть какие-то причины, кроме привычки к DOS-нотации
• Не называйте файл базы данных также как и один из содержащихся в ней объектов - не обязательно речь идет о таблицах, это может быть совпадение с названием Local View, или индексного тега, или поля таблицы, да мало ли чего еще... Разумеется ошибки это не вызовет, но усложнит понимание написанного кода самим программистом. Не всегда с ходу можно однозначно определить, что речь идет именно о файле базы данных, а не о каком-либо другом объекте. А если еще и их названия совпадают, то совсем тяжело становится.
• Не используйте для названия одно из зарезервированных в FoxPro слов - опять же, ошибки это не вызовет, но резко снизит "читабельность" кода. Ведь зарезервированные слова автоматически подсвечиваются опеределенным цветом (если Вы используете стандартный текстовый редактор FoxPro) и с ходу становится проблематично отличить опцию или команду от имени файла базы данных
  

  Расположение файла базы данных

Как для файла базы данных, так и вообще для всех рабочих таблиц использующихся в проекте следует выделять специальную папку (директорию). Эта рекомендация относится как к этапу разработки проекта, так и к поставке готового приложения клиентам.

Причины этой рекомендации подробно изложены в разделе "Расположение файлов проекта"
. Вкратце, суть сводится к тому, что в противном случае возрастает риск непреднамеренной порчи файлов данных и соответственно потере данных. А также облегчается поиск нужных файлов и создание резервной копии.

Желательно файл базы данных располагать в той же папке, где и включенные в него файлы DBF

По большому счету, конечно можно держать файл базы данных в одной директории, а включенные в него файлы DBF в другой. Но это усложняет сам процесс разработки проекта. Например, создание резервной копии в простейшем случе заключается в простом копировании директории с рабочими файлами в другое место. Если же рабочие файлы отделены от файла базы данных, то потребуется уже копирование 2-х директорий. Соответственно усложнится код.

Кроме того, в этом случае несколько увеличится размер файла базы данных (точнее файла DCT - мемо-файла), поскольку непосредственно в нем хранится относительный путь к включенным в него таблицам. Если таблицы расположены в той же директории, что и сам файл базы данных, то этого относительного пути просто нет. Справедливости ради, следует заметить, что относительный путь к базе данных хранится и в заголовках таблиц, которые в эту базу данных включены. Но на размер таблиц это не влияет, поскольку под этот относительный путь всегда выделяется фиксированное место вне зависимости от факта его наличия.

Обслуживание файла базы данных

Собственно, обслуживание файла базы данных заключается в его регулярной "чистке". Поскольку файл базы данных - это обычная DBF-таблица, то и удаление из него происходит так же как и в таблице в 2 этапа: сначала записи только помечаются как удаленные, но физически не удаляются. А для физического удаления необходимо выполнить упаковку файла базы данных.

На этапе разработки для этой цели используется специальный пункт меню в режиме модификации базы данных: пункт главного меню Database->Clean Up DataBase. Фактически, этот пункт меню выполняет команду PACK для файла базы данных, поэтому требует эксклюзивного открытия базы данных (в режиме EXCLUSIVE). Если база данных открыта в режиме SHARED, то этот пункт меню будет недоступен.

Кроме собственно чистки файла базы данных от ранее удаленных записей, выполнение этой операции существенно уменьшает размер файла DCT в котором хранятся в том числе все "хранимые процедуры". Поэтому после внесения изменений в хранимые процедуры также желательно сделать чистку базы данных.

На этапе выполнения у клиента необходимость чистки базы данных возникает только в том случае если Вы динамически добавляете и удаляете какие-либо объекты в базу данных. Например, создаете Local View командой CREATE SQL VIEW. Или модифицируете какие-либо свойств по DBSetProp(). Или модифицируете таблицы по ALTER TABLE.

В этом случае чистка базы данных выполняется с использованием обычной команды PACK примерно таким образом

SET DATABASE TO MyBase  
  CLOSE DATABASE  
  OPEN DATABASE MyBase EXCLUSIVE  
  SET DATABASE TO MyBase  
  PACK DATABASE  
  CLOSE DATABASE  
  OPEN DATABASE MyBase SHARED  
  SET DATABASE TO MyBase  

Разумеется, это только общая схема, здесь опущены различные проверки необходимые в полноценном приложении.

Если же Вы никаким образом не модифицируете файл базы данных на этапе работы у клиента, то и нет необходимости в чистке файла базы данных.

Вообще-то, я очень не рекомендую новичкам использовать команды по модификации файла базы данных. Это как раз одни из самых потенциально-опасных операций, могущих привести к необратимой порче всех исходных данных.

А надо ли вообще использовать файл базы данных?

Подобный вопрос очень часто задают программисты, которые раньше работали на FoxPro 2.x, где этого файла просто не было. Да и сам FoxPro вполне способен работать и со свободными таблицами безо всякой базы данных. Отвечу сразу - надо! А теперь попробую объяснить почему.

• Использование файла базы данных расширяет возможности таблиц DBF.

  Например, в файле DBF в принципе нельзя дать полю название содержащее более 10 символов, но если он включен в базу данных, то название поля может уже содержать до 128 символов. Никакие правила (RULE), значения по умолчанию (DEFAULT), триггера и кое-что другое попросту невозможны в файле DBF вне файла базы данных. Точнее так - невозможно их автоматическое выполнение.

• Использовании файла базы данных позволяет выполнять операции, которые крайне сложно организовать другими способами

  Например, такая операция как "транзакция" может быть реализована только среди таблиц DBF включенных в базу данных. В принципе, этот процесс можно организовать и со свободными таблицами, но это потребует от программиста значительных усилий. А такой замечательный объект как обновляемый Local View - сколько усилий требовалось при программировании в FoxPro 2.x для реализации того, что этот объект делает автоматически!
  Вобщем, использование файла базы данных серьезно облегчает жизнь программиста.

Автор публикации

не в сети 26 лет

Владимир Максимов

Комментарии: 0Публикации: 65Регистрация: 02-09-2000

(далее…)

]]> https://foxclub.ru/knowledgebase/nechetkoe-sravnenie-strok/ Fri, 28 Aug 2020 11:32:25 +0000

Нечеткое сравнение строк

Перевод решений о нечетком сравнении строк с www.DelphiKingdom.ru на VFP

Нечеткое сравнение строк

Статьи о нечетком сравнении строк -
http://www.delphikingdom.ru/treasury/compare.htm

Я перевел это в DLL (хотя алгоритмы простые но нету времени в них разобраться и переписать) и выкладываю пример. А так-же нашел еще один сайт с нечетким сравнением строк (код на VFP) - http://lit999.narod.ru/soft/string.html

Предлагаю следующее: Написать свой ComboBox и в нем отлавливать ситуацию когда человек ввел данные которых нет в списке. По этому "событию" запускать (по желанию разработчика) нечеткую выборку и выводить ее в список предложенных значений ComboBox. Предложение риторическое - если дойдут руки доделаю свой ComboBox который в решениях.

Автор: Петров Андрей

Автор публикации

не в сети 24 года

Петров Андрей

Комментарии: 0Публикации: 14Регистрация: 17-04-2002

(далее…)

]]> https://foxclub.ru/knowledgebase/pozdravitelnyj-kalendar/ Fri, 28 Aug 2020 11:32:25 +0000

Поздравительный календарь

Еще один календарь для коллекции клуба

Этим календариком можно людям делать приятное

Автор: Владимир Кныр

Автор публикации

не в сети 22 года

Vladimir_Knyr

Комментарии: 0Публикации: 11Регистрация: 15-12-2003

(далее…)

]]> https://foxclub.ru/knowledgebase/prosmotr-risunkov/ Fri, 28 Aug 2020 11:32:25 +0000

Просмотр рисунков

Если рисунок большой, то посмотрите и оцените это решение

Класс написан на чистом фоксе, без привлечения сторонних средств. краткое описание и демо пример в архиве прилагаются

Автор: Владимир Кныр

Автор публикации

не в сети 22 года

Vladimir_Knyr

Комментарии: 0Публикации: 11Регистрация: 15-12-2003

(далее…)

]]> https://foxclub.ru/knowledgebase/frx-otchyot-iz-grid-v-design-mode/ Fri, 28 Aug 2020 11:32:25 +0000

FRX-отчёт из Grid в Design-mode

Инструмент для быстрого создания FRX-отчёта в Design-mode из Grid. (VFP 6-8)

FRX-отчёт из Grid в Design-mode

Инструмент для быстрого создания FRX-отчёта в Design-mode из Grid. (VFP 6-8)

Откройте проект.
Откорректируйте файл Init.prg для Вашего пути к проекту.
Запустите Init.prg (т.к. необходима инициализация переменной max_page_of_report для вычисления "всего страниц").
Откройте Form Designer.
Кликните на нужный Grid.
Наберите в Command Window команду do create_report_from_grid in prgcreateRP

Отчёт готов. Его можно отредактировать и "Сохранить как..."

Автор: Er0p

Автор публикации

не в сети 6 месяцев

admin

Комментарии: 1Публикации: 123Регистрация: 10-12-2000

(далее…)

]]> https://foxclub.ru/knowledgebase/bystroe-reshenie-dlya-okon-dialogov/ Fri, 28 Aug 2020 11:32:25 +0000

Быстрое решение для окон диалогов…

Часто нужно создавать окна диалогов.... Визуальные формы я не люблю...пользуюсь таким классом... Внешний вид несколько пострадал после вырезки из него некоторых библиотечных переменных...Но работает и идея понятна... Два примера использования - PRIMER.prg

Автор: Maestro

Автор публикации

не в сети 3 года

Maestro

Комментарии: 0Публикации: 5Регистрация: 14-08-2002

(далее…)

]]> https://foxclub.ru/knowledgebase/formtoolbar/ Fri, 28 Aug 2020 11:32:25 +0000

FormToolBar

Панель инструментов для формы

FormToolBar

Работает в отдельно взятой форме.
Демонстрационная форма и файл с описанием находятся в архиве.

Автор: Владимир Кныр

Автор публикации

не в сети 22 года

Vladimir_Knyr

Комментарии: 0Публикации: 11Регистрация: 15-12-2003

(далее…)

]]> https://foxclub.ru/knowledgebase/proverka-sootvetstviya-bankovskogo-liczevogo-scheta-i-mfo-banka-proverka-na-korrektnost-mfo-banka-dlya-ukrainskih-bankov/ Fri, 04 Nov 2022 14:29:18 +0000

Проверка соответствия банковского лицевого счета и МФО банка. Проверка на корректность МФО банка для Украинских банков!

Собственно все описание в теме и указано.

Автор: Kid

Автор публикации

не в сети 2 месяца

Joys

Комментарии: 2Публикации: 177Регистрация: 25-06-2000

(далее…)

]]> https://foxclub.ru/knowledgebase/posylka-smtp-soobshheniya-cherez-winsock-control/ Fri, 28 Aug 2020 11:32:25 +0000

Посылка smtp сообщения через winsock control

Класс на основе winsock control для посылки сообщений по протоколу smtp. Использует charset windows-1251 для текста. Написан на VFP8?,но будет работать и в VFP6, если не присоединять файлы, так как для кодирования используется функция strconv, отсутствующая в младших версиях. Могу помочь в написании аналогичной функции для VFP6.

Посылка smtp сообщения через winsock control

В основе лежит библиотека взятая с universalthread.com. Исправлены ошибки и произведена доработка до почти товарного вида. Есть маленькие кривости с таймером но уже не стал исправлять. Вроде и так хорошо работает.
Описание класса можно найти в методе zreadme.
Пример использования:
local loMail
loMail=NEWOBJECT("foxsock")
loMail.host = "MyMailServer"
loMail.message = "Тест"
loMail.recipient = "solochak@land.ru"
loMail.sender = "anonymous@land.ru"
loMail.subject = "SMTP Winsock"
loMail.attachment = "c:TEST1.CAB,c:TEST2.CAB"
loMail.Send()

Автор: Crip_

Автор публикации

не в сети 23 года

Crip_

Комментарии: 0Публикации: 1Регистрация: 06-10-2003

(далее…)

]]> https://foxclub.ru/knowledgebase/klass-dlya-raboty-s-xml/ Tue, 13 Dec 2022 04:43:21 +0000

класс для работы с XML

Класс предназначен для настраиваемого извне формата таблиц для преобразования плоских курсоров в xml

класс для работы с XML

На сайте в конференции обсуждался вопрос "Зачем нужен XML".
Классическое мнение - его используют для передачи данных в многоплатформенных приложениях. Это неоспоримо, хотя на мой взгляд очень много избыточности (теги и прочее), особенно передача через интернет.
Встечаются задачи (и очень часто), когда в таблицу необходимо положить очень много полей, и поля эти могут меняться во времени, как количественно, так и качественно. Вот тут XML и выручает. В таблице выделяется MEMO поле под XML код, и хранится в нем любое количество разнообразных полей, причем для каждой записи в таблице, набор полей в XML коде может быть разный. Для работы с таким полем предлагается следующий класс, позволяющий получать XML код из именованного массива и упаковывать данные массива в XML код.
Для распаковки XML используется Microsoft.XMLDom.
Пример

    LOCAL oXML oXML = NEWOBJECT('xml_object', 'xml_object.vcx')   
 ***Создание таблицы CREATE CURSOR TestXML (Id I, TextXML M)   
 ***Добавление свойств в объект oXML   
  oXML.Set_property('Text_1', 'Тестовый текст 1')   
  oXML.Set_property('Text_2', 'Тестовый текст 2')   
  oXML.Set_property('Text_3', 'Тестовый текст 3')   
  oXML.Set_property('Integer_1', 123)   
  oXML.Set_property('Integer_2', 456)   
  oXML.Set_property('Integer_3', 789)   
  oXML.Set_property('Numeric_1', 1.23)   
  oXML.Set_property('Numeric_2', 4.56)   
  oXML.Set_property('Numeric_3', 7.89)   
  oXML.Set_property('Logic_1', .T.)   
  oXML.Set_property('Logic_2', .F.)   
 ***Добавление записи в таблицу (идентификатор и MEMO поле с XML данными)   
  APPEND BLANK replace Id WITH 1, TextXML WITH oXML.get_xml()   
  ?TestXML.TextXML    
 ***То что хранится в поле TextXML: ***   
 ***Тестовый текст 1   
 ***Тестовый текст 2   
 ***Тестовый текст 3   
 ***123.00 ***456.00   
 ***789.00   
 ***1.23   
 ***4.56   
 ***7.89   
 ***1   
 ***0 ***    
 ***Очистка объекта oXML (удаление всех ранее добавленных свойств)   
  oXML.RemoveAll()   
 ***Загрузка XML кода в объект oXML   
  oXML.load_xml(TestXML.TextXML)   
 ***Получение данных из объекта oXML   
  ?oXML.get_property('Text_1')   
  ?oXML.get_property('Text_2')   
  ?oXML.get_property('Text_3')   
  ?oXML.get_property('Integer_1')   
  ?oXML.get_property('Integer_2')   
  ?oXML.get_property('Integer_3')   
  ?oXML.get_property('Numeric_1')   
  ?oXML.get_property('Numeric_2')   
  ?oXML.get_property('Numeric_3')   
  ?oXML.get_property('Logic_1')   
  ?oXML.get_property('Logic_2')   
  USE IN TestXML   

Автор: Владимир Хитяев

Автор публикации

не в сети 6 месяцев

admin

Комментарии: 1Публикации: 123Регистрация: 10-12-2000

(далее…)

]]> https://foxclub.ru/knowledgebase/primer-ispolzovaniya-wmi/ Fri, 28 Aug 2020 11:32:25 +0000

Пример использования WMI

Возможности (кратко) 1) Получение списков запущеных процессов 2) Получение данных по оборудованию (sn model ...) 3) Получение данных об установленном SoftWare + много чего еще + возможность получения данных с удаленного компьютера сети.

Пример использования WMI

Здравствуйте все.

Захотелось добавить в решения очень полезную вещь - WMI. Странно почему-то ее мло кто использовал из тех кто на этом сайте бывает на форуме. Может это решение изменит положение 🙂

Возможности (кратко)
1) Получение списков запущеных процессов
2) Получение данных по оборудованию (sn model ...)
3) Получение данных об установленном SoftWare
+ много чего еще
+ возможность получения данных с удаленного компьютера сети.

Более подробно:
1) Спсобы работы
Я видел 2 - один из них работает мягко говоря странно. Вот он:

1.1)Коннектимся к объекту winmgmts с параметрами. Я если честно вижу такое применение GETObject впервые.

strComputer = "."
objWMIService = GETOBJECT("winmgmts:{impersonationLevel=impersonate}!"+strComputer+"rootcimv2")

Где strComputer - имя сетевого компьютера. "." - означает текущий компьютер.

Далее идет рабоита с objWMIService. Язык WMI очень похож на SQL (скорее всего это он и есть) поэтому не пугайтесь.

colSettings = objWMIService.ExecQuery("Select * from Win32_Processor",,48)

Здесь colsettings - объект с набором информации и методами !!! Короче то что нам и нужно
Самое важное здесь Win32_Processor - данные о процессоре(ах). Вся соль заключается именно в этом слове! Суть в том что данным на компьютере соответствует свое название Win32_XXX

Например :
Данные о работающих процессах Win32_Process
Данные о винчестере Win32_DiskDrive
и т.д.

К концу решения Вы сами сможете определить что чему соответствует.

Ну и вытягивание данных из colSettings

colItems = objWMIService.ExecQuery("Select * from Win32_VideoController",,48)
For Each objItem in colItems
? "VideoMfr: ", objItem.AdapterCompatibility
? "VideoRAM: ", objItem.AdapterRAM
? "VideoAdapter: ", objItem.Name
? "VideoProcessor: ", objItem.VideoProcessor
Next

Как я уже писал выше colSettings - набор объектов со свойствами. Здась представлены некоторые свойства объекта Win32_VideoController

Вот и все. Просто и красиво.

1.2) Второй способ отличается только подключением. Его мне подсказал Vit*.

m.strcomputer='.'
loSWbemLocator = CREATEOBJECT("WbemScripting.SWbemLocator")
loSWbemService = loSWbemLocator.ConnectServer(strcomputer)
colSettings = loSWbemService.ExecQuery("Select * From Win32_DiskDrive Where InterfaceType='IDE'",,48)
FOR EACH ObjItem IN colSettings
? ObjItem.PNPDeviceID
? get_sn(ObjItem.PNPDeviceID)
NEXT

Короче суть таже самая что и в первом варианте. Но этот вариант работает практически всегда в отличие от первого. Т.е. у меня были глюки с переносом программы с одного компьютера на другой На одном все работает а на другом не хочет - выдет ошибку. А второй вариант работал у меня всегда.

2) Об описании WMI
Все описание идет в поставке с Windows - как я понял. Т.е. если у Вас русский Windows то и описание на русском. СУПЕР!!!

Чтобы определить что чему соответствует скачайте WMITools и запустите WMI Object Browser. Он сначала представит
Вам номера версий каких-то.
Далее выдастся строчка connect to Namespace (rootcimv2) Здесь можно поставить имя компьютера с которого хотим получить данные
Например work6rootcimv2
Жмем OK
Получаем окошко с заданием имени пользователя и пароля. Жмем OK. Если Вы получили окошко "Отказано в доступе" - Вы не администратор и НЕКОТОРЫЕ данные Вам не доступны. Но не все...
Получаем окошко в IE написанное на VBScript, помоему.

Далее один (или 2) элемент класса Win32_ComputerSystem
Раскрываем его и ищем Win32_SystemDevices - это список всего оборудования компа.
Раскрываем его и ищем например Win32_DiskDrive - это список всех жестких дисков со свойствами...

3) Помощь

Выбираем нужный объект и щелкаем на вопросительный знак в правом верхнем углу. А вот и описание всех свойств на РУССКОМ.

4) Немного об своих нароботках
4.1) SN винчестера
Меня тут запрегли на военной кафедре написать прогу по учету компов. К ним приезжает ФСБ и устанавливает норму секретности. Но за эту норму надо бабок выложить. Чтобы этого не делать надо представить список компов с описанием...
В описании надо указывать SN Model и т.д. всего к чему можно прицепить жучек.

Ну так вот, о чем это я. А да проблема в том что серийники просто так не найдешь даже через WMI.
Можно найти на
Память (только он практически всегда не задан)
Процессор (расшифрованная информация ASM -> CPUID)
И чего - то там еще.

Я накопал что можно найти и SN винчестера. Т.к. больше я нигде не нашел этой информации в Inet то раньше думал что можно это сделать только при помощи обращений к портам винчестера. Кстати привожу в архиве пример на Pascal-е
Задавал вопросы на форуме но увы.

Ну так вот все оказалось тупо до безобразия. SN хранится в свойстве PNPDeviceID класса Win32_DiskDrtive

Привожу функцию его получения которую использовал выше в примере

FUNCTION get_sn
LPARAMETERS str
PRIVATE x,k
m.x=RAT('',m.str)
m.k=''
IF m.x#0
m.str=SUBSTR(m.str,m.x+1)
if at('&',m.str)=0
DO WHILE !EMPTY(m.str)
m.k=m.k+CHR(hextobyte(SUBSTR(m.str,3,2)))+CHR(hextobyte(SUBSTR(m.str,1,2)))
m.str=SUBSTR(m.str,5)
ENDDO
RETURN ALLTRIM(m.k)
endif
ENDIF
RETURN ''

FUNCTION hextobyte
LPARAMETERS str
PRIVATE a,k,r
m.str=UPPER(m.str)
m.a=SUBSTR(m.str,1,1)
m.k=ASC(m.a)-IIF(m.a ]]> https://foxclub.ru/knowledgebase/eshhyo-odin-varint-skanirovani-katalogov/ Fri, 04 Nov 2022 14:30:03 +0000

Ещё один варинт сканировани каталогов.

Используются рекурсивные вызовы функции для определения вложенных каталогов.

Автор: Timo

Автор публикации

не в сети 6 месяцев

admin

Комментарии: 1Публикации: 123Регистрация: 10-12-2000

(далее…)

]]> https://foxclub.ru/knowledgebase/nettest-2-perekompiliroval-v-vfp6sp5/ Fri, 28 Aug 2020 11:32:24 +0000

NETTEST 2 (Перекомпилировал в VFP6SP5)

Проверка слабых звеньев в сети.

NETTEST 2 (Перекомпилировал в VFP6SP5)

простая, старая программа тестирования сети
Перекомпилировал в VFP6SP5

Автор: abil

Автор публикации

не в сети 10 месяцев

AlexK

Комментарии: 0Публикации: 9Регистрация: 11-12-2000

(далее…)

]]> https://foxclub.ru/knowledgebase/testnet-prostaya-staraya-programma-testirovaniya-seti-fpd26/ Fri, 28 Aug 2020 11:32:24 +0000

TESTNET – простая, старая программа тестирования сети (fpd26).

Проверка слабых звеньев в сети.

TESTNET - простая, старая программа тестирования сети (fpd26).

Как-то работал в большой конторе - несколько файловых серверов,
полторы сотни клиентских компьютеров и несколько приложений на FPD и VFP
разных версий - все работает, изредка индексы разрушаются, в общем, нормальная текучка.

Потом пошли проблемы по нарастающей.
Мало того, что индексы стали падать по 3 раза на дню,
так в сами данные (dbf) портиться начали.
Сисадмины и техники клянутся, что у них все нормально, сеть работает прекрасно.
Программисты тоже понять ничего не могут.

Вот тогда и написал TESTNET - незамысловатую программу, которая тупо создает файл,
а затем пишет туда мегабайты тестовых строк на низком уровне, чтобы потом их прочитать и сравнить.

Программу разместили на серверах и запустили со всех клиентов.
Сразу нашлось 14 штук компьютеров с дефектными сетевыми платами, вернее драйверы сетевых карт были глючные.
С тех пор много воды утекло - dbf нету (все данные находятся на SQL серверах),
но папка TESTNET, гордо лежит в на дисках всех серверов конторы. А техники, наблюдая за счетчиками
программы, научились распознавать потенциальные проблемы в сети.

- рекомендую создать Standalone Extended приложение. В архив решения не вложил в виду ограничения на 500к.

- fpd26 не распознаёт UNC, поэтому необходимо назначить букву диска к сетьевому ресурсу на, котором находится
папака TESTNET. Значения параметров по умолчанию расчитанны на 10мбит сеть. Для других скоростей сети количество
созданных записей можно изменить.

abil - Билецкий Анатолий Викторович.

Автор: abil

Автор публикации

не в сети 3 года

abil

Комментарии: 0Публикации: 2Регистрация: 01-12-2003

(далее…)

]]> https://foxclub.ru/knowledgebase/avtomaticheskoe-obnovlenie-versij/ Fri, 28 Aug 2020 11:32:24 +0000

Автоматическое обновление версий

Даже если у вас всего два пользователя, бывает очень утомительно каждый раз копировать им на рабочие станции обновления своей программы. Что же говорить, если пользователей несколько десятков, и расположены они в разных концах здания...

Автоматическое обновление версий

Скопируйте файлы ChkNew.exe и ChkNew.ini в директорию со своей программой, сделайте необходимые настройки в ini-файле, и запустите.

Программа скомпилирована в VFP8 без SP1. Она вполне работоспособна для VFP7, но ее придется перекомпилировать.

Автор: Игорь Ильин

Автор публикации

не в сети 23 года

karly™

Комментарии: 0Публикации: 4Регистрация: 27-09-2003

(далее…)

]]> https://foxclub.ru/knowledgebase/samodelnyj-grid/ Fri, 28 Aug 2020 11:32:24 +0000

Самодельный Грид

По ближе познакомившись с Гридом, понял, что он как был Browse – ом, так им и остался. Научился только занимать не все окно целиком. В свое время на FPD было огромное количество броузов собственной разработки, которые работали, как хотелось программисту, а не Б.Г. Здесь почему-то не встритил ни одного. Значит буду первым. Может кому и сгодиться на что. В движке присутствуют некоторые досовские приемы, довольно сложно перестроится. В частности класс не визуальный.

Самодельный Грид

Чего умеет:
-Перемещение клавишами по базе - вверх, вниз, home, end, pageup,pagedown.
-Перемещение мышкой по базе – вертикальный ScrollBar (по одной записи и страницами).
-Перемещение мышкой по базе – кликая на нужной строке.
-Инкриментальный поиск.Сбрасывает поисковую строку после ухода с найденой записи
-Контекстный поиск. Вхождение части слова в запись (SELECT - LIKE)
-Сортировки по любой колонке кликая мышкой на заголовке или клавишами влево, вправо.
-Красит цветом активный заголовок колонки
-Любой цвет букв и фона. У каждой колонки может быть свой цвет.
-В зависимости от условий может выделять цветом любую строку на экране
-Указатель текущей записи (курсор), выделяет всю запись целиком.
-Курсор в каждой колонке может иметь свой цвет.
-Понимает фильтры записей.

Чего не умеет:
-Быть визуальным классом (при желании может им стать)
-Не делает горизонтальный скроллинг (делать не собираюсь так как не вижу необходимости)
-Не умеет замораживать колонки
-Нет авто повтора при использовании горизонтального scrollbar мышью
-Печатать заголовок в 2 строки
-Устанавливать для заголовка каждой колонки свой шрифт(только один на все колонки)
-Редактировать записи прямо в таблице(можно научить немного изменив классы на основании которых создается таблица)
-Перемещение в базе клавишами проигрывает по скорости обычному гриду – Чем больше строк и колонок тем медленней работает. При инкриментальном поиске летает P2-333

Глюки :
-НЕНАВИДИТ пустую таблицу с удаленными записями. В одном месте используется RECCOUNT(), который не понимает удаленных записей
- Если количество записей меньше чем количество строк – то мышкой можно встать на несуществуюшие строки
-Не уходит “Focus” с клавиш навигации, поэтому при нажатии на Enter иногда получаются самонепроизвольные движения в базе(борюсь)

Как подключать:
Класс не визуальный – со всеми вытекающими
Прописывается в Init формы
В форме установить KeyPreview и KeyPress обрабатывать клавиши
Необходимые методы
Spis_info – Аналог AfrerRowColChange
Real_search - Управляет поиском
Необходимые свойства
Anseek - суда пишется что искать
Необходимые объекты
Sh_seek(textbox) - выводит в форму чего ищем

Не очень необходимые методы
One_step_zapr – Надо для контекстного поиска и запросов по сложному ключу

Edit_back - Управляет редактированием
Edit_cancel - -//-
Edit_in - -//-
Edit_save - -//-

Не очень необходимые свойства – нужны при редактировании записей
Data_change - Признак что изменились данные при редактировании
EditMode -Признак что находимся в режиме редактирования
New_record -Признак новой записи

Устроен:
Большая таблица из TextBox –ов помещенная в контейнер

Настройка:
В файле AnGrid.prg – собственно сам класс довольно подробно описаны значения свойств настройки
Задается:
-Количетство строк и колонок
-Высота строки и заголовка
-Название основной базы
Для каждой колонки свойства каждой колонки в массиве ColOp[колонка, свойство]
-Ширина колонки
-Источник данных
-класс на основании которого строится колонка
-цвета ячеек (в демо выделяются все записи где есть буква а)

Запуск Demo:
В проекте фаил Demo где надо прописать пути
-К базам
-Формам
-Программам
-Папке TMP
По умолчанию настроен на C:Demo

Автор: Andy

Автор публикации

не в сети 26 лет

Andy

Комментарии: 0Публикации: 1Регистрация: 20-09-2000

(далее…)

]]> https://foxclub.ru/knowledgebase/avtomaticheskoe-izmenenie-zadannogo-svojstva-dlya-vseh-obektov-formy/ Fri, 28 Aug 2020 11:32:21 +0000

Автоматическое изменение заданного свойства для всех объектов формы.

Класс предназначен для автоматического изменения заданного свойства для всех объектов на форме. Его удобно применять для изменения свойств группы font, цветовых настроек, св-в Enabled, Visible, ReadOnly и т.д. для всех (или части) объектов на форме.

Описание:

Библиотека SET_PROP содержит единственный одноименный класс, предназначенный для автоматического изменения заданного свойства для всех объектов на форме. Его удобно применять для изменения свойств группы font, цветовых настроек, св-в Enabled, Visible, ReadOnly и т.д. для всех (или части) объектов на форме.
Пропяти объектов изменяются по мере выполнения программы.

Свойства класса:

prop_name - Название свойства, значение которого хотим изменить
prop_type - Type() свойства: C, N или L
prop_val - Новое значение свойства
changebaseclass - Базовые классы, кот. включаем (исключаем) в обработку
baseclass_in_out- .T. - классы, перечисленные в changebaseclass включаем в обработку, .F. - исключаем

Использование:

Положить класс на форму, в ее Init'е написать - Thisform.set_prop1.set_prop. После программного добавления объектов снова писать Thisform.set_prop1.set_prop, если это необходимо. Ну и, само собой, в процессе выполнения программы можно задавать самые разные настройки.

Значения свойств по умолчанию:

prop_name = FontCharSet
prop_type = N
prop_val = 204
changebaseclass = ''
baseclass_in_out = .F.

Примечание:

Обработка ошибок для некорректного задания новых значений для указанного свойства (prop_val) в классе не реализована.

Пример 1: prop_name = BackColor prop_type = N prop_val = 128 changebaseclass = Form baseclass_in_out = .F. Результат - BackColor всех объектов на форме, кроме самой формы изменят значения на 128.

Пример 2: prop_name = FontSize prop_type = N prop_val = 12 changebaseclass = '' baseclass_in_out = .F. Результат - FontSize всех объектов на форме примет значени 12.

Пример 3: prop_name = FontName prop_type = C prop_val = Arial changebaseclass = '' baseclass_in_out = .F. Результат - Везде будет использован шрифт 'Ariel'

Пример 4: prop_name = ReadOnly prop_type = L prop_val = T (допускается .T.) changebaseclass = Textbox Editbox baseclass_in_out = .Т. Результат - Во всех текстбоксах и эдитбоксах формы будет запрещено редактирование данных

Автор: ElenaB

Автор публикации

не в сети 25 лет

ElenaB

Комментарии: 0Публикации: 3Регистрация: 28-09-2001

(далее…)

]]> https://foxclub.ru/knowledgebase/pravilnoe-upravlenie-beepom-po-notam-eshhe-s-dos/ Fri, 28 Aug 2020 11:32:24 +0000

Правильное управление BEEPом – по нотам. Еще с DOS.

Функция PLAY поет строку с нотами типа "C4DE8F2GAH", где буквы - ноты, а цифры длительность. Если глянете в код - остальное сами поймете...

Автор: Maestro

Автор публикации

не в сети 6 месяцев

admin

Комментарии: 1Публикации: 123Регистрация: 10-12-2000

(далее…)

]]> https://foxclub.ru/knowledgebase/biblioteka-enisey2-vcx-dlya-avtomaticheskogo-vyravnivaniya-align-na-formah-vfp-i-raboty-s-sql-serverom/ Fri, 04 Nov 2022 14:30:31 +0000

Библиотека Enisey2.vcx – для автоматического выравнивания (Align) на формах VFP и работы с SQL сервером.

В любой современной системе программирования элементы формы имеют свойство Align для автоматического размещения и выравнивания элементов на форме при изменении размеров. В Enisey2 реализована такая возможность для VFP.

Библиотека Enisey2.vcx - для автоматического выравнивания (Align) на формах VFP и работы с SQL сервером.

Как работать:

1. формы создавать на основе класса e2_form
для этого в Menu->Tools->Options
на закладке Forms - Templates classes Form: установите e2_form(...enisey2.vcx)

2. у класса e2_form есть свойство autoalign Default=.F. , то есть выравнивание выключено
(форма ведет себя стандартно). После создания установите его в .Т. тогда форма в режиме выполнения
будет выравнивать свои элементы.
К сожалению не удалось реализовать Align в режиме дизайна.

3. Свойство Align добавлено ко всем основным классам для, которых может потребоваться выравнивание:
e2_container, e2_grid, e2_treeview, e2_listbox, e2_textbox, e2_button, впрочем, его легко реализовать
для любых визуальных классов.

Может принимать значения:
0 - нет выравнивания (Default)
1 - вверх: элемент будет вверху формы (контейнера)
2 - вниз: элемент будет внизу формы (контейнера)
3 - лево: элемент прижмется к левому краю формы (контейнера)
4 - право: элемент прижмется к правому краю формы (контейнера)
5 - полностью: элемент заполнит оставшееся место формы (контейнера) и должен быть только один.

4. Контейнеры можно вкладывать друг в друга !!!

5. Методы формы никак не контролируют предел уменьшения её размеров, поэтому у формы на основе e2_form
необходимо задать значения свойствам: MinHeight и MinWidth иначе, кода пользователь слишком уменьшит
размер формы появится ошибка.

6. Порядок выравнивания зависит от порядка складывания элементов на форму. При проблемах используйте
Cut(Ctrl+X) и Paste(Ctrl+C) 🙁

В архиве находятся: Билиотека Enisey2.vcx и небольшой проект с демонстрационной формой.
Библиотеку можете использовать, как угодно, сохраняя ссылки на разработчиков имя библиотеки и source code.

Красноярск,
abil(sparrow) - Билецкий Анатолий Викторович, Берковский Олег Леонидович,
2000-2003

Автор: abil

Автор публикации

не в сети 3 года

abil

Комментарии: 0Публикации: 2Регистрация: 01-12-2003

(далее…)

]]> https://foxclub.ru/knowledgebase/resizer-avtomat-izmenenie-razmerov-obektov-na-forme/ Fri, 28 Aug 2020 11:32:17 +0000

Resizer – автомат. изменение размеров объектов на форме.

Автоматическое изменение размеров и позиций объектов (ЛЮБОЕ КОЛ-ВО, ЛЮБАЯ ВЛОЖЕННОСТЬ) пропорционально изменениям размера формы. Установка РАЗМЕРОВ ФОРМЫ в зависимости от РАЗРЕШЕНИЯ ЭКРАНА. Есть настройки. Разработано в VFP7, SP1.

Разработано в VFP7, SP1.
Последняя сборка – VFP8, SP1.

Класс Resizer библиотеки классов Resizer способен пересчитывать размеры и позиции ВСЕХ объектов ЛЮБОЙ ВЛОЖЕННОСТИ, находящихся на форме.

Возможности:

1. Установление зависимости размеров формы от размеров экрана монитора.

2. Сохранять или не сохранять пропорции формы (соотношение высоты и ширины) при изменении размеров формы.

Resizer1.Lock_proportion = .T.       && Сохранять
Resizer1.Lock_proportion = .F.       && Не сохранять

3. Можно задать минимальную высоту формы при Resizer1.Lock_proportion = .T.

Resizer1.min_height = Минимальная высота      && (По умолчанию = 0)

4. Есть возможность выбора - при изменении размеров объектов пересчитывать FontSize или нет.

Resizer1.font_size = .T.       && Пересчитывать
Resizer1.font_size = .F.       && Не пересчитывать

5. Можно задать список базовых классов (через пробел), для которых запрещено масштабирование. По умолчанию масштабируются все базовые классы.

Resizer1.FixSizeBaseClass = 'image column'

6. Можно задать список объектов, запрещенных для масштабирования (через пробел). Будет изменяться только месторасположения этих объектов. Размер и содержимое объектов изменяться не будут.
Resizer1 . ObjNotMove = ‘container1’

7. Восстановление первоначальных размеров формы

Resizer1.Reset()

Как использовать:

1. Поместить объект класса Resizer на форму (напр., Resizer1)

2. В Init() формы написать:

      * Если задаем список объектов, запрещенный для масштабирования:
Thisform.ObjNotMove = ‘container1’

      * Без привязки к размерам экрана
Thisform.Resizer1.get_sizes()
или
      * С привязкой к размерам экрана
m.kW = 90       && Желаемый размер вашей формы относительно размера экрана, %.
Thisform.Resizer1.ToScreen(m.kW)

Примечание:

Коэффициент m.kW будет применен к той стороне формы, для которой коэффициент пропорциональности выше, например:
      Ширина формы = 500
      Высота формы = 400
      Ширина экрана = 640
      Высота экрана = 480

      Кш = 500/640=0,78125
      Кв = 400/480=0,83333

     Кв > Кш => пропорции расчитываются, исходя из значения высоты формы.

3. В Resize() формы написать - Thisform.Resizer1.set_sizes()

Дополнительная информация по использованию класса:

1. После программного добавления или удаления объектов формы писать - Thisform.Resizer1.get_sizes()

2. При использовании ресайзера в версиях VFP ниже седьмой необходимо откорректировать класс следующим образом:

• в классе использовано свойство объекта Header (в колонках грида) - HeaderHeight, которое появилось только в VFP7. Поэтому, надо убрать код, относящийся к этому свойству:

  Метод ADDTOARRAY, строки:

  IF TYPE("oControl.HeaderHeight") = "N"
     .aControlStats[nLen,6] = oControl.HeaderHeight
  ENDIF

  Метод SET_SIZES, строки:

  * Работаем с заголовками гридов
  IF TYPE("oControl.HeaderHeight")="N"
     oControl.HeaderHeight = THIS.aControlStats[nPos,6]
  ENDIF

• Для VFP5 (для шестой версии - не тестировалось) обнаружено, что команда oControl # Thisform выдает несовпадение типа оператора. Для обхода глюка корректируем следующие коды:

  1.в методе Get_sizes вместо This.Recurs(Thisform) написать This.Recurs(Thisform, 0)

  2. в методе Recurs добавить параметр nn - LPARAMETERS oControl, nn

  3. строку метода Recurs IF oControl # Thisform заменить на IF nn = 1;

  4. конструкцию (тот же метод)

  IF TYPE("."+aMems[m.i]) = "O"
     this.recurs(oControl)
  ENDIF

  заменить на
  IF TYPE("."+aMems[m.i]) = "O"
      nn = 1
      this.recurs(oControl, nn)
  ENDIF

Глюки:

1. Vladimir V. Ten: "При смене RecordSource в гриде слетают Caption введенные заранее руками, а востанавливаются те которые относяться к RecordSource."

Да, оказалось, что ресайзер как-то неадекватно реагирует на изменение RecordSource в гриде. И причина возникает где-то еще при самой первой рекурсии, что из Init'а формы. Даже если дальше нигде не писать Thisform.Resizer1.set_sizes().

Почему - не знаю, ресайзер при сборе данных об объектах вроде ничего в форме менять не должен. Ошибка - после смены RecordSource реальные объекты в гриде как бы не соответствуют тем данным о них, которые содержатся в массиве ресайзера. На форме они отражаются правильно, а обратиться программно к ним не получается. Любители шарад и ребусов, подключайтесь - Родина вас не забудет!

Вообще, от многих слышала, что динамические изменения RecordSource чреваты непредсказуемостями. Лично я предпочитаю при открытии необходимых таблиц присваивать им конкретный псевдоним и указываю его в качестве источника один раз.

Но для этого случая, все-таки хоть и огородами, но выход есть (в проекте пример прилагается - форма pr1_r). Может, со временем, будет что-нибудь более элегантное.

Условия использования и распространения:

Ресайзер опубликован на сайте Visual Foxpro Club в знак глубокой признательности этому сайту и его посетителям за массу ценнейшей информации, идей и советов, полученных и успешно примененных автором этого класса.

Использование класса - бесплатное, распространение - свободное. Следовательно, автор не несет никакой ответственности за последствия применения ресайзера и не гарантирует его идеальной работоспособности :).

Доработки и обновления:

29.01.02	Публикация решения.
27.02.02	Пересмотрена и оптимизирована большая часть кода. Получена возможность работы ресайзера со всеми объектами любой вложенности. Особая благодарность Василию Поторочину за невольную помощь (путем изучения работы его решения "ресайзинг формы") в написании рекурсии.
18.04.02	Добавлено описание метода пересчета размеров формы в зависимости от разрешения монитора.
20.05.02	Устранены недочеты работы ресайзера с колонками гридов. Пропорциональное изменение их ширины теперь достигается в любых условиях. (За выявление недочета спасибо Дмитрию Петрову)
21.05.02	Оптимизированы некоторые коды, добавлены комментарии к методам, добавлен список базовых классов, для которых запрещено масштабирование. (За идеи, подсказку и критику спасибо Владимиру Максимову) При работе ресайзера с заголовками гридов (более одной строки) организован пересчет высоты заголовков. (Пожелание Саши из форума)
05.06.02	Выявлен недочет: при установке формы с фреймами в очень маленькие размеры возникала ошибка, что высота фрейма некорректна. Недочет исправлен путем проверки новых размеров фреймов при изменении размеров формы. Если новая высота (ширина) фрейма меньше допустимой, размеры формы пересчитываются из расчета минимально допустимой высоты (ширины) самого маленького фрейма на форме.
26.08.02	Расчет зависимости размеров формы от размеров экрана оформлен как метод. Коэффициент m.kW теперь применяется к той стороне формы, для которой коэффициент пропорциональности выше (пожелание Николая, дополнение пользователей)
06.09.02	Добавлено описание корректировки класса для версий VFP ниже, чем седьмая (поднял проблему и протестировал класс в VFP5 Олег Славутин).
25.10.02	Откорректированы недочеты:    -  при установке формы с гридами в очень маленькие размеры возникала ошибка, что высота гридов некорректна. Исправлено. Если новая высота (ширина грида меньше допустимой, размеры формы пересчитываются из расчета минимально допустимой высоты (ширины) самого маленького грида на форме. Минимально допустимые значения - 30х30 пикселей. (Обнаружил Dmitry Shvaika)    -  при изменении размера формы высота строк в гриде принимала какое-то странное неизвестно откуда взявшееся значение, одинаковое для любых изменений. Сейчас высота строк в гриде почему-то все-равно не изменяется пропорционально размерам формы, но хотя бы держатся заданные размеры.    -  При большом увеличении надписи с приличным размером фонтов пересчитывались некорректно. Видимо, это связано с общим ограничением размера шрифта = 127. Допустимые для установки размеры шрифтов = [4,127].    -  В методе toscreen введена переменная, по которой предварительно запоминается, а потом восстанавливается свойство Visible формы. Это имеет смысл, если такая форма содержится в наборе форм и мы до поры до времени не хотим ее показывать. (Предложение Валерия.)
10.09.03	Исправлен глюк, возникаюший при переключении режимов экрана. (Решение Малышева Д.А.)
26.10.03	Добавлена возможность запрещать масштабирование конкретных объектов и их содержимого. (Идея решения Влада)

Пример использования класса прилагается.

Е.В.Белюкова

Автор: ElenaB

Автор публикации

не в сети 25 лет

ElenaB

Комментарии: 0Публикации: 3Регистрация: 28-09-2001

(далее…)

]]> https://foxclub.ru/knowledgebase/avtomaticheskoe-zapolnenie-zagolovkov-lok-predstavlenij/ Fri, 28 Aug 2020 11:32:18 +0000

Автоматическое заполнение заголовков лок. представлений

Утилита, предназначенная для автоматического заполнения заголовков полей в локальных представлениях при разработке базы данных. Названия считывает с заголовков полей в источниках.

Автоматическое заполнение заголовков лок. представлений

Надо открыть дизайнер базы данных, создать представление и запустить следующую утилиту:

view_name = '' && имя локального представления, куда хотим поместить заголовки
DO view_captions.prg WITH view_name

view_captions.prg
*****************

PARAMETERS view_name

IF !USED(view_name)
USE &view_name. IN 0 EXCLUSIVE
ENDIF

SELECT(view_name)
nCol = FCOUNT()

FOR i = 1 TO nCol
ii = ALLTRIM(STR(i))
CurField = view_name + '.'+ ALLTRIM(FIELD(i))
CurUpName =DBGETPROP(CurField,"FIELD","UpdateName")
CurUpName = RIGHT(CurUpName,LEN(CurUpName)-AT('!',CurUpName))
CurHead =DBGETPROP(CurUpName,"FIELD","Caption")
= DBSETPROP(CurField,"FIELD","Caption",CurHead )
ENDFOR

Автор: ElenaB

Автор публикации

не в сети 25 лет

ElenaB

Комментарии: 0Публикации: 3Регистрация: 28-09-2001

(далее…)

]]> https://foxclub.ru/knowledgebase/podklyuchenie-k-mssql-server-2000-s-ispolzovaniem-ado-redaktirovanie-tabliczy-s-ierarhicheskoj-strukturoj-s-ispolzovaniem-activex-treeview-poisk-vstavka-rekursivnoe-udalenie-i-dr-vfp8-sp1/ Sun, 06 Nov 2022 05:34:11 +0000

Подключение к MSSQL Server 2000 с использованием ADO. Редактирование таблицы с иерархической структурой с использованием ActiveX TreeView, поиск, вставка, рекурсивное удаление и др. VFP8 SP1

Заинтересовал CursorAdapter и ADO, впрочем как и MSSQL Server. Данный пример показывает, как можно использовать ADO-подключение для редактирования данных. Кстати, при построении CursorAdapter-a я воспользовался стандартным builder-ом, в последствии подправив немного Init (установил маленькие TimeOut-ы). В форме для авторизации используется класс для чтения/записи в INI файлы, взятый из примеров VFP8, т.е. в последствии Вам нужно будет набирать только пароль. Транзакции можно и не использовать, а проверять TABLEUPDATE(.t.)=.t., однако вставку и удаление я все таки провожу в начатой Thisform.browser_de.ent_structure.DataSource.ActiveConnection.Be ginTrans() insert... IF TABLEUPDATE(.t.) Thisform.browser_de.ent_structure.DataSource.ActiveConnection.CommitTrans() ... транзакции.

1). Внимание! Вам потребуется mscomctl.ocx для выполнения проекта (содержит ActiveX TreeView control и ImageList control). Я использовал 6-ые версии. Если будет вылетать ошибка, попробуйте скопировать mscomctl.ocx из SYSTEM32 в SQL_ADO_TESTActiveX и зарегистрировать его там при помощи regsvr32 (Win2k - XP)

2). На MSSQL Server 2000 создайте любую базу. Создайте в ней таблицу с именем ent_structure и с 3-мя полями:

nkey numeric 9
nparent numeric 9
name char 254

создайте уникальный индекс (constraint) по полю nkey (значения в поле не повторяются)

3)Занесите в таблицу 2 строки:

nkey=1, nparent=0, name=СЛУЖЕБНАЯ ПАПКА

nkey=2, nparent=0, name=ПРЕДПРИЯТИЕ

4) При необходимости создайте Юзера с правами записи/чтения на базу

5) В настройках ODBC создайте системный DSN подключения к созданной БД.

6) Открывайте проект и запускайте autorization_form.

Автор: bullbone ie Bykov V. Konstantin

Автор публикации

не в сети 24 года

bullbonebro

Комментарии: 0Публикации: 2Регистрация: 09-10-2002

(далее…)

]]> https://foxclub.ru/knowledgebase/arhivirovanie-dannyh-v-prilozheniyah-na-ms-visual-foxpro-8-v2/ Fri, 28 Aug 2020 11:32:24 +0000

Архивирование данных в приложениях на MS Visual FoxPro 8 v2

Под созданием архивов подразумевается создание копий баз данных, таблиц, индексов и прочих файлов в сжатом виде. Использование консольных архиваторов типа PKZIP и PKUNZIP раздражает открытием окна сессии MSDOS. Хотелось найти что-нибудь 32-разрядное.

Архивирование данных в приложениях на MS Visual FoxPro 8 v2

Автор: Илья Тепликов
E-mail: itp@karelia.ru

Я только перелопатил немного код, т.к. класс, тот что выложен в решениях либо битый либо не
предназначен для VFP8. Также убрал замену в файлах "." на "_" и добавил MS ActiveX
ProgressBar (Mscomctl.ocx). В остальном же:

http://www.foxclub.ru/sol/index.php?act=view&id=10

Перелопаченный код: bullbone ie Bykov V. Konstantin

Автор: bullbone ie Bykov V. Konstantin

Автор публикации

не в сети 24 года

bullbonebro

Комментарии: 0Публикации: 2Регистрация: 09-10-2002

(далее…)

]]> https://foxclub.ru/knowledgebase/visualer/ Fri, 28 Aug 2020 11:32:24 +0000

VisualER

Framework для быстрой разработки. Поддерживает несколько серверов.

VisualER

Поддерживает VFP,MS SQL, Interbase, PostgreSQL, Sybase ASA.

Скачать можно на http://sss1024.narod.ru, там же есть презенташка во Flash.

Автор: sss1024

Автор публикации

не в сети 25 лет

sss1024

Комментарии: 0Публикации: 1Регистрация: 09-11-2000

(далее…)

]]> https://foxclub.ru/knowledgebase/primer-demonstriruyushhij-otpravku-pochty-iz-outlookexpress/ Fri, 04 Nov 2022 14:31:07 +0000

Пример, демонстрирующий отправку почты из OutlookExpress.

Предельно упрощенный пример отправки почты из приложения Visual FoxPro через OutlookExpress. В отличие от примеров (Samples) FoxPro рассмотрена отправка файлов в письме.

Автор: steelrock

Автор публикации

не в сети 22 года

Steelrock

Комментарии: 0Публикации: 1Регистрация: 25-01-2004

(далее…)

]]> https://foxclub.ru/knowledgebase/visual-foxpro-multi-project-manager-ver-1-04-freeware/ Fri, 28 Aug 2020 11:32:24 +0000

Visual FoxPro-Multi-Project Manager ver 1.04 (Freeware)

Менеджер проектов (продолжение альтернативного менеджера проектов).

Visual FoxPro-Multi-Project Manager ver 1.04 (Freeware)

Менеджер проектов (продолжение альтернативного менеджера проектов).
Если у Вас более одного проекта то без него Вы более жить не сможете 🙂 На данный момент более 2000 закачек, ни одного отрицательного отклика, только положительные. Скриншоты и новые версии искать тут http://www.superbasis.de/ProjectManager/

Автор: Михаил Червоненко

Автор публикации

не в сети 24 года

RusMikle

Комментарии: 0Публикации: 5Регистрация: 10-04-2002

(далее…)

]]> https://foxclub.ru/knowledgebase/remoute-automation-als-windows-service-installation/ Fri, 28 Aug 2020 11:32:21 +0000

Remoute Automation als Windows Service. (Installation)

Запуск AUTMGR32.EXE как сервис windows server.

Remoute Automation als Windows Service. (Installation)

Т.к. в стандартном варианте AUTMGR32.EXE (Automation Server VFP) запускается как приложение, что неудобно на сервере (необходимо чтоб всегда открывался сеанс пользователя для запуска приложения) сделали инсталляцию которая ставит его как сервис винды (понятно только для NT,2000,.NET....) годится только для серверных платформ (на клиентах используйте конструкцию вида :AUTMGR32.EXE /hidden в автостарте). Свежие версии искать тут www.superbasis.de

Автор: correct-software

Автор публикации

не в сети 24 года

RusMikle

Комментарии: 0Публикации: 5Регистрация: 10-04-2002

(далее…)

]]> https://foxclub.ru/knowledgebase/listbox-libo-combobox-dlya-vybora-iz-tabliczy-vozmozhnost-hraneniya-klyucha-dlya-lyuboj-stroki-ne-otobrazhaya-ego-v-odnoj-iz-kolonok-sheklistbox-na-osnove-listboxid/ Fri, 04 Nov 2022 14:32:43 +0000

ListBox ,либо ComboBox для выбора из таблицы.Возможность хранения ключа для любой строки, не отображая его в одной из колонок. + СhekListBox на основе ListBoxID

Многие хотят выбор из таблицы осуществлять c через ListBox ,либо ComboBox.И чтоб иметь возможность получить значение ключа для любой строки, не отображая его в одной из колонок. И, конечно, желательно, чтоб тип ключевого поля мог быть ЛЮБЫМ. А чтоб отмечать (выбирать) сразу много записей (каждую как в CheckBox’е выделять) выкладываю CheckListBox

ListBox ,либо ComboBox для выбора из таблицы.Возможность хранения ключа для любой строки, не отображая его в одной из колонок. + СhekListBox на основе ListBoxID

Многие хотят выбор выбор из таблицы осуществлять c через ListBox ,либо ComboBox
И чтоб иметь возможность получить значение ключа для любой строки, не отображая его в одной из колонок. И, конечно, желательно, чтоб тип ключевого поля мог быть ЛЮБЫМ.
Но тогда встает вопрос, а где хранить ключевое поле? Для него заводится специальное свойство mv_ID[],где и храним ключ для каждой строки.

+++ А чтоб отмечать (выбирать) сразу много записей (каждую как в CheckBox’е выделять) выкладываю еще один CheckListBox 🙂

Итак, в прилагаемой библиотеке есть три класса: “ ListBoxID” и “CmbID” и добавил я еще класс CheckListBox
-- тоже штука иногда нужная

Как с ними работать? – написал пример. Когда появятся вопросы --пишите.
Буду рад помочь. А чтобы я не чувствовал себя "Неуловимым Джо" из известного аннекдота -- пишите отзывы. Любые. Хоть одно слово...
Nikolai Kremko.

Автор: Nikolai Kremko

Автор публикации

не в сети 24 года

Nikolai Kremko

Комментарии: 0Публикации: 2Регистрация: 30-08-2002

(далее…)

]]> https://foxclub.ru/knowledgebase/redaktor-3d-sczen-na-vfp/ Fri, 28 Aug 2020 11:32:24 +0000

Редактор 3D сцен на VFP.

Не 3D MAX конечно, но все же. Надеюсь будет полезен всем, кто использует VFoxPro.

Редактор 3D сцен на VFP.

Класс пока не совершенен, но применять можно.
Использовано несколько полезных решений на WinAPI.
По возможности будет добавлено остальное из OpenGL:
модели, освешение, туман и т.д.
Сценой можно управлять клавишами и d,c, когда фокус на форме.
Библиотеку Glut32.dll из архива нужно добавить в System.

Автор: Sergey Filimonoff

Автор публикации

не в сети 23 года

Sergey Filimonoff

Комментарии: 0Публикации: 4Регистрация: 15-01-2003

(далее…)

]]> https://foxclub.ru/knowledgebase/preobrazovanie-rekordseta-v-kursor/ Fri, 28 Aug 2020 11:32:24 +0000

Преобразование Рекордсета в Курсор

Попытка "универсального" преобразователя рекордсета в курсор (без использования VFPCOM)

Попытка "универсального" преобразователя рекордсета в курсор (без использования VFPCOM) Для VFP8 вещь видимо непотребная, в свете CursorAdapter`a, но для версий ниже можно использовать. Писалась в марте для своих целей. Наши задачи решать помогает.

Автор: Gliph

Автор публикации

не в сети 6 месяцев

admin

Комментарии: 1Публикации: 123Регистрация: 10-12-2000

(далее…)

]]> https://foxclub.ru/knowledgebase/tools32-dll/ Fri, 28 Aug 2020 11:32:24 +0000

Tools32.dll

Обновленная и дополненная библиотека разных функций (инструкция по пользованию внутри)

Tools32.dll

*/* Запуск приложения с ожиданием завершения
*/* Удаление файла в корзину
*/* Преобразование OEM в Ansi
*/* Преобразование Ansi в OEM
*/* Шароварная программа - индикатор запуска первого раза
*/* Серийный номер диска С: - десятичный
*/* Серийный номер диска С: - шестнадцатеричный
*/* Размер оперативной памяти
*/* Определить - стоит ли Win NT на машине
*/* Копирование файла или произвольной его части
*/* Сохранения изображения экрана в файл
*/* Определение текущего разрешения экрана
*/* Вывод MessageBox() в заданых координатах

Автор: -

Автор публикации

не в сети 6 месяцев

admin

Комментарии: 1Публикации: 123Регистрация: 10-12-2000

(далее…)

]]> https://foxclub.ru/knowledgebase/tbl2doc-ole-ms-word/ Tue, 13 Dec 2022 04:36:31 +0000

Экспорт данных из таблиц foxpro в таблицы MS Word (OLE: MS WORD)

Экспорт данных из таблиц foxpro в таблицы MS Word. Два способа(Создание документа MS Word, форматирование, добавление таблиц и тд)

Еще один пример по работе с MS Word.
Позволяет экспортировать данные из открытых в данный момент таблиц и курсоров в таблицы Word Предварительно задается шаблон для оформления внешнего вида. Можно создавать разные документы или поместить все данные в один.
Может использоваться как пример работы с OLE в Word'е
Проверялось с Word.Application.8.

Автор: Yuri Abramenkov

Автор публикации

не в сети 2 месяца

Joys

Комментарии: 2Публикации: 177Регистрация: 25-06-2000

(далее…)

]]> https://foxclub.ru/knowledgebase/plagin-k-far-starshe-1-7-dlya-raboty-s-prg-spr-mpr-fajlami/ Fri, 28 Aug 2020 11:32:24 +0000

Плагин к Far старше 1.7 для работы с PRG, SPR, MPR файлами

Плагин к Far старше 1.7 для работы с PRG, SPR, MPR файлами Позволяет Выправлять программные отступы в текстах, анализировать структуру программы,расставлять/убирать комментарии и многое другое, мною еще неизведанное )))

Плагин к Far старше 1.7 для работы с PRG, SPR, MPR файлами

Плагин к Far старше 1.7 для работы с PRG, SPR, MPR файлами
Позволяет Выправлять программные отступы в текстах, анализировать структуру программы,расставлять/убирать комментарии и многое другое, мною еще неизведанное )))
Подключается как обычный фаровский плагин.
Вызывается по F11 в режиме редактирования текста. Особенно удобно использовать совместно с буфером обмена.
Я не автор, но сайт с четырьмя сотнями плагинов к Фару почледнее время что-то молчит
Взято на http://www.uic.nnov.ru/~ruiv/plugring/cgi-bin/downld.cgi?Draw=List&Select=All&Sort=Date&SelectCateg=Addons&SelectPlugIn=366&SelectAuthor=0&SelectOther=1&SearchText=

Автор: varjag

Автор публикации

не в сети 24 года

Varjag

Комментарии: 0Публикации: 1Регистрация: 08-08-2002

(далее…)

]]> https://foxclub.ru/knowledgebase/ntpopup-programma-dlya-arhiva-poluchennyh-i-otpravki-otvetov-i-soobshhenij-dlya-nt-42000-podobnaya-winpopup-v-win95-98/ Fri, 28 Aug 2020 11:32:24 +0000

NTPopup – программа для архива полученных и отправки ответов и сообщений для NT (4,2000) подобная WinPopup в Win95-98

NTPopup - программа для архива полученных и отправки ответов и сообщений для NT (4,2000) подобная WinPopup в Win95-98 для очистки базы отдельный exe - init.exe исходники и EXE, скомпилированный под VFP6.0 для Работы без установленного Фокса потребуется MSCOMCT2.OCX,VFP6R.DLL,VFP6RENU.DLL

Автор: Mitchman

Автор публикации

не в сети 24 года

Mitchman

Комментарии: 0Публикации: 1Регистрация: 24-05-2002

(далее…)

]]> https://foxclub.ru/knowledgebase/nabor-klassov-dlya-sozdaniya-spravochnikov-vfp8/ Mon, 21 Nov 2022 07:44:54 +0000

Набор классов для создания справочников VFP

Любому из нас, разрабатывая какую-нибудь программу, приходилось возиться со справочниками. И дело это не так чтобы уж слишком радостное и захватывающее. Наверное, многие, запрограммировав справочник типа Sales пару десятков раз начинали задумываться, как это дело унифицировать :). Меня, как человека от рождения не лешенного любых человеческих пороков эта проблема настигла c поразительной скоростью. В результате сделал что сделал, вот

Теперь кратко как это все работает.
Для демонстрации работы я выдернул кусок из вполне рабочей программы, что конечно не означает 100% работоспособность куска, ну рассмотреть по нему основной принцип возможно.
В демо проект входят несколько библиотек классов:
inctext.vcx
midatepic.vcx
project.vcx
splitter.vcx
spravoch.vcx – основная библиотека
xpbutton.vcx

несколько демонстрационных форм:
sprotdel.scx – основная форма с которой логически связаны все остальные
sprprof.scx
sprrazr.scx
sprsotrudn.scx

ну и прочий мусор, который даже описывать не стану 😉

Процесс создания нового справочника.
1. Идете в Tools>Options...> Forms
1.1. В группе Template classes ставите галгу радом с Form set:
1.2. Выбераете spravoch.vcx > frmsetsprav
1.3. Давите OK.
2. Затем в меню File>New... выбераете Form и жмете здоровенну кнопку New file.
3. На этом шаге нужно определить Data Еnvironment. Сдесь такой ньюанс, основная таблица должна быть добавлена первой или должна быть прописана в InitialSelectedAlias.
4. Если вым нужны для отображения не все поля, накидайте их в грид сами. Не удаляйте первую колонку. Оформление заголовков колонок устанавливается по образцу первой колонки. Возможно, задание вычисляемых полей. Как это сделать посмотрите в демо форме sprOtdel. Также на форме sprMain есть пара полезных своиств – sqlFields и sqlOrders. Почитайте к ним описание внизу Properties Window.
5. Дальше нужно накидать элементов редактирования на окна «Редактирование группы» и «Редактирование записи». У кнопок Ок этих форм есть оброботчики призванные облегчить процесс записи. Для их использования нужно прописать в Click контрола cntOk DoDefault(список параметров). Далее приведу шапку одного обработчика с описанием передаваемых параметров.

 *===========================================================================  
 * tcName - имя поля которое нужно проверять на уникальность  
 * если не указано проверяется поле NAME  
 * если пустая строка, проверки на уникальность не производится.  
 * tlSposob - способ проверки  
 * .F. или опущено - проверка на уникальность осуществляется по всему справочнику  
 * .T. - только в текущей группе  
 * tcErrorMessage - сообщение об ошибке, если поле не уникельно  
  LPARAMETERS tcFldName, tlSposob, tcErrorMessage  
 *===========================================================================  

В принципе все, можно запускать и опробовать.

Создание таблиц для справочника.
Справочник работает только с таблицами содержащимися в базе данных, причем таблицы должны удовлетворять нескольким обязательным условиям.
Обязательная структура таблиц.
Id Numeric x
Pid Numeric x
Isfolder Numeric 1
Name Character x
Остальные поля по необходимости.

Индексы:
Id Primary Id
Pid Regular Pid
Isfolder Regular Isfolder
Name Regular UPPER(name)
DEL Regular DELETED()

Желательно заполнение у полей свойства Caption, т.к. оно используется для заполнения хадеров колонок, если они небыли добавлены вручную.

Для поля Id необходимо создать Default value - присвоение уникального значение.

Необходимо заполнить поле Table Comment: на закладке Table прописав в нем русское название справочника. Это название в дальнейшем будет использоваться для формирование капшинов для окон.

На этом все.

Автор: Жихарев Дмитрий

Автор публикации

не в сети 6 месяцев

admin

Комментарии: 1Публикации: 123Регистрация: 10-12-2000

(далее…)

]]> https://foxclub.ru/knowledgebase/mnogostrochnyj-dinamicheskij-tultip-s-vozmozhnostyu-formatirovaniya-vyvodimogo-teksta-html-i-grid-s-vozmozhnostyu-vyvoda-tultipov-dlya-proizvolnoj-yachejki/ Fri, 28 Aug 2020 11:32:23 +0000

Многострочный, динамический тултип с возможностью форматирования выводимого текста (HTML). И грид с возможностью вывода тултипов для произвольной ячейки.

Данные классы появились в результате длительных размышлений о проблеме вывода некоторой информации в наиболее свободном виде во всплывающие подсказки. Все другие известные мне решения имеют существенные, или не очень недостатки, и потому я решил объединить всё самое лучшее и создал это решение. Подробная инструкция прилагается.

Автор: Igor Korolyov

Автор публикации

не в сети 6 лет

Igor Korolyov

Комментарии: 0Публикации: 4Регистрация: 28-05-2002

(далее…)

]]> https://foxclub.ru/knowledgebase/klassicheskaya-logicheskaya-igra-byki-i-korovy/ Fri, 28 Aug 2020 11:32:24 +0000

Классическая логическая игра “Быки и Коровы”.

В отличие от множества известных компьютерных вариантов этой игры, данная программа предназначена не для того чтобы играть с вами, а для того, чтобы ВЫ играли с ней. Т.е. это ОНА будет пытаться угадать вашу комбинацию 🙂 Интересна естественно лигикой поиска решения.

Классическая логическая игра "Быки и Коровы".

Запускайте prg файл и всё 🙂
Кратко по правилам:
комбинация состоит из 4-х цифр от 0 до 9. Одна цифра допускается только 1 раз, порядок имеет значение - т.е. поле вариантов - это упорядоченная выборка без повторений 4-х значений из 10-ти (если мне не изменяет склероз, давно уже Математику учил :)).
Число "быков" - это число точно угаданных цифр из вашей комбинации (т.е. и то что число есть, и место его расположения). Число "коров" - число угаданных цифр но не угаданной позиции. Пример: Комбинация 1234
Программа спрашивает ответ на комбинацию 0184 - ответ: 1 Бык (4-ка) и 1 Корова (1-ца).

Автор: Igor Korolyov

Автор публикации

не в сети 6 лет

Igor Korolyov

Комментарии: 0Публикации: 4Регистрация: 28-05-2002

(далее…)

]]> https://foxclub.ru/knowledgebase/primenenie-opengl-v-vfoxpro/ Fri, 28 Aug 2020 11:32:23 +0000

Применение OpenGL в VFoxPro.

Демонстрация возможностей OpenGL в VFoxPro. Обновление, исправлены ошибки с проекцией.

Применение OpenGL в VFoxPro.

Тут как-то заходила речь о графике 3D.
Тоже давно собирался, и вот написал маленький пример на OpenGL,
DirectX я еще плохо знаю 🙂
Пока сделал по быстрому на форме, но со временем конечно будет в классе.
Дальше каждый сам может развить, как кому нужно.
Для реал-тайм игр думаю это не пойдет, но красивые графики можно строить легко.
Основные проблемы вроде решены, кроме корректного получения DC окна.
Еще не пробовал установить св-ва окна:
WS_OVERLAPPEDWINDOW | WS_CLIPCHILDREN | WS_CLIPSIBLINGS
Для запуска OpenGL нужны библиотеки в System:
OpenGL32.dll,Glu32.dll,Glut32.dll,Gdi32.dll

Автор: Sergey Filimonoff

Автор публикации

не в сети 23 года

Sergey Filimonoff

Комментарии: 0Публикации: 4Регистрация: 15-01-2003

(далее…)

]]> https://foxclub.ru/knowledgebase/pole-vvoda-slov-iz-spravochnikov/ Fri, 28 Aug 2020 11:32:20 +0000

Поле ввода слов из справочников

Класс - поле ввода для удобного и быстрого выбора слов из списка. Инкрементальный поиск с автоподстановкой при наборе (как в MS Office), выбор из списка. ПОЯВИЛАСЬ НОВАЯ ВЕРСИЯ (+).

Поле ввода слов из справочников

Предлагаемый класс похож на стандартный текстбокс и комбобокс с некоторыми дополнительными возможностями - автоподстановка слова по мере набора, выбор из выпадающего списка, дополнение словаря. Для использования необходимо поместить экземпляр класса на форму, задать RowSource, ControlSource, имена ключевого поля и поля с значением слова и установить флаги разрешения добавления новых слов, вкл/выкл выпадающего списка и др.
Опыт показывает, что пользователи, хорошо владеющие клавиатурой, предпочитают набирать слова по символам. Этот класс позволяет заметно увеличить скорость ввода, сократить число ошибок и излишнего засорения словарей-справочников.
В архиве - две версии. Первая (старая) - содержится в папке OLD архива: сам класс в библиотеке SRCHTEXT.VCX, .VCT, краткая документация README.TXT, пример БД и формы с использованием класса. Свежая версия существенно изменена и дополнена - есть возможность в качестве источника данных указывать имя представления, которое будет автоматически открываться, задавать фильтр на отображаемые записи, выполнять поиск по подстроке, введены несколько видов реакции на новое слово, исправлены некоторые ошибки (и конечно добавлены новые, о которых я буду рад услышать :0) ). Класс DCT_ находится в библиотеке DICT с двумя своими наследниками DCT2_ и DCT2s_ которые позволяют показывать доп. поле из словаря и выбирать слово либо по названию с автоподстановкой, либо по коду. В библиотеке BASE содержаться базовые классы для построения словаря. Если у вас есть своя библиотека базовых классов, вы можете попробовать не копировать BASE.VCX и подменить своими классами. UTIL.PRG - набор нужных функций, которые можно подключить по SET PROCEDURE в вашем приложении. DCT.DOC содержит мало-мальское описание объектов, остальное придется смотреть по коду и комментариям или спрашивать у меня. Пишите, буду признателен за любые замечания и предложения.

Автор: matod

Автор публикации

не в сети 6 месяцев

admin

Комментарии: 1Публикации: 123Регистрация: 10-12-2000

(далее…)

]]> https://foxclub.ru/knowledgebase/bystryj-prosmotr-tablicz/ Fri, 28 Aug 2020 11:32:22 +0000

Быстрый просмотр таблиц

Програмка BROWSES.exe для быстрого просмотра таблиц

Быстрый просмотр таблиц

Быстрый просмотр таблиц
Эта прожка была написана от скуки а также для того, что бы не ставить Фокс у клиентов. В ней можно
просматривать таблицу, добавлять строки, помечать на удаление, паковать. Также есть окно Run для
ввода команд, типа фильтр и т.д.
Работают горячие клавиши. К сожалению программа работает только с одной таблицей 🙁
*************************************
Добавлена кнопка "Подсветка строки". Было обнаружено что в больших таблица свыше 10 полей, при перемешении курсором немного притормаживает перемещение, это, я так понял из-за прорисовки строки. Теперь подсветку можна включать и выключать 🙂

Автор: Aries

Автор публикации

не в сети 23 года

Aries

Комментарии: 0Публикации: 7Регистрация: 24-12-2002

(далее…)

]]> https://foxclub.ru/knowledgebase/pole-s-kalkulyatorom-kotoroe-mozhna-vstavit-v-grid-ili-kinut-na-formu/ Fri, 28 Aug 2020 11:32:22 +0000

Поле с калькулятором, которое можна вставить в грид или кинуть на форму.

Поле с калькулятором, которое можна вставить в грид или кинуть на форму.

Поле с калькулятором, которое можна вставить в грид или кинуть на форму.

Вообщем увидел в 1С-ке поле в гриде где по клику вызывался калькулятор, такое же поле видел и в
Делфях, вот и решил наваять похожее на фоксе. распакуйте архив и перед использованием прочтите
файл Readmy.txt и запустите пример - form1.scx там самое наглядное представление объекта.
******************************************************
Итак благодаря моему учителю и лучшему другу был отредактирован калькулятор, были убраны глюки (как же теперь без них 🙂 ) Так же отдельное спасибо Ившеву Дмитрию за подсказку, как правильно позиционировать поле, теперь его можна кидать в любое место (PageFrame, Container, From, любая вложенность). Было добавлено новое свойство nLenDecimals это длина вводимой строки.
Любые пожелания и критику жде на маил vulcan@ukr.net

Автор: Aries

Автор публикации

не в сети 23 года

Aries

Комментарии: 0Публикации: 7Регистрация: 24-12-2002

(далее…)

]]> https://foxclub.ru/knowledgebase/upravlenie-printerom/ Fri, 28 Aug 2020 11:32:18 +0000

Управление принтером

В предлагаемой библиотеке собраны вызовы API функций, позволяющие считывать и устанавливать некоторые параметры выбранного принтера.

Управление принтером

Настоящий вариант библиотеки теперь корректно работает со всеми версиями Windows, исправления внесены при участии мастера Delphi - Владимира Тарасова(wtar@yandex.ru). Прилагаемый пример кроме управления принтером, демонстрирует способ установки параметров отчета. Используется известный способ корректировки служебных полей Tag, Tag2 и Expr. Так же показано, как можно устанавливать верхнее и левое поле отчета.

Автор: Ившев Дмитрий

Автор публикации

не в сети 8 месяцев

po2

Комментарии: 0Публикации: 6Регистрация: 22-12-2001

(далее…)

]]> https://foxclub.ru/knowledgebase/vzaimodejstvie-vfp-i-word/ Fri, 28 Aug 2020 11:32:15 +0000

Взаимодействие VFP и Word

Как вставить данные из БД в Word с форматированием текста.

Взаимодействие VFP и Word

Вставлять текст в Word удобнее сразу с форматированием.

Я делаю это так:

*Это готовый prg-файл.

#define cr chr(13)

oword=create('word.application') && Создаем объект Word

oword.documents.add() && Добавляем чистый лист

oword.caption='Мой Word' && При желании - заголовок окна Word

oWordRef = GetObject('','word.basic') && Инструментарий доступа к объектам Word

***********

owordRef.insert(cr) && Вставляем строку

oWordRef.Font("Times New Roman",18) && Определяем параметры шрифта ...

oWordRef.Bold

oWordRef.Italic

oWordRef.CharColor(2)

owordRef.insert('Дата: '+dtoc(date())+cr) && Вставляем текст и т.д.

owordRef.insert(cr)

************

owordRef.insert(cr)

oWordRef.Font("Times New Roman",12)

oWordRef.Bold(0)

oWordRef.Italic(0)

oWordRef.SelectCurWord

oWordRef.CharColor(0)

owordRef.insert(repl('_',25))

owordRef.insert(cr)

***********

for i=1 to 10

owordRef.insert(cr)

oWordRef.Font("Times New Roman",14)

oWordRef.Bold

oWordRef.Italic(0)

oWordRef.CenterPara

oWordRef.Underline

oWordRef.CharColor(0)

owordRef.insert('Заголовок'+str(i))

owordRef.insert(cr)

oWordRef.Font("Times New Roman",14)

oWordRef.Bold(0)

oWordRef.Italic

oWordRef.JustifyPara

oWordRef.CharColor(0)

owordRef.insert('Текст'+str(i))

owordRef.insert(cr)

ENDFOR

owordRef.insert(cr)

oWordRef.Font("Times New Roman",12)

oWordRef.Bold(0)

oWordRef.Italic(0)

oWordRef.SelectCurWord

oWordRef.CharColor(6)

owordRef.insert('Конец файла '+repl('_',25))

owordRef.insert(cr)

END=oword.activedocument.Bookmarks("EndofDoc").select

oword.visible= .t.

Автор: Каратаев

Автор публикации

не в сети 1 год

Каратаев

Комментарии: 0Публикации: 4Регистрация: 04-12-2001

(далее…)

]]> https://foxclub.ru/knowledgebase/setallx2-by-ik-rasshirennaya-gruppovaya-rabota-so-svojstvami-metodami-obektov/ Fri, 28 Aug 2020 11:32:23 +0000

SetAllX2 by IK – расширенная групповая работа со свойствами/методами объектов

Стандартному методу фоксовых контейнеров SetAll не всегда хватает гибкости, что и подвигло разработчиков из MS написать FFC класс SetAllX (имеется начиная с VFP7), но и там не были реализованы некоторые возможности, и имелось несколько ошибок/странностей, что и подвигло меня к усовершенствованию этого класса.

SetAllX2 by IK - расширенная групповая работа со свойствами/методами объектов

Инструкция по использованию:

1) Создайте экземпляр класса SetAllX2 - например так:

_SCREEN.NewObject ("SetAllX2", "SetAllX2", "SetAllX.vcx")

2) Теперь можно пользоваться методом SetAllX созданного объекта из любого метода вашей программы, например так:

_SCREEN.SetAllX2.SetAllX (параметры...)

Синтаксис метода SetAllX:

SetAllX (toParent, tcProperty, [tcExpr], [tcBaseClassList], [tlNoContainerMode], [tlErrorWait])

Параметры:

toParent - объектная ссылка на обрабатываемый контейнер, например ThisForm или This.cntSomeContainer из метода некоторого объекта, или m.goFormRef из процедуры.

tcProperty - Название устанавливаемого свойства, например "BackColor" или "ReadOnly". Или имя исполняемого метода, например "MyHookMethod ()" или скажем "Refresh ()" признаком различения свойства/метода является закрывающая круглая скобка в самой правой позиции.

tcExpr - Выражение или значение, присваиваемое указанному свойству. Например: число - 0 или скажем 2^8+2^4, строка - "Caption" или "Сегодня " + TRANSFORM (DATE()), тип даты - {^2003.12.06} или вычисляемое выражение - "(m.goApp.Caption + ' и ' + This.Caption)"
Если всё выражение заключено в круглые скобки (естественно для этого оно должно быть строковым), то производится его вычисление при присвоении, помимо этого производится корректное преобразование ссылок This и This.Parent (а значит и производных от них). Т.е. можно присвоить свойству значение, полученное путём вычисления выражения содержащего это же и/или другие свойства целевого объекта, подробнее см. в Примерах.
Может быть пропущен, если второй параметр указывает на исполнение метода.
tcBaseClassList Список имён базовых классов VFP (через запятую, регист и пробелы не учитывается), с объектами которых идёт работа. Напимер "CommandButton, Header, Label" По умолчанию - пустая строка, что означает обработку объектов всех классов.

tlNoContainerMode - Флажок, отключающий разбор иерархии вложенности объектов. Т.е. если передано .T. то будут обработаны только объекты непосредственно расположенные в указанном контейнере, иначе - и во всех вложенных контейнерах. По умолчанию установлено .F. - т.е. разбор иерархии включен.

tlErrorWait - Флажок, отключающий поглощение ошибок данным классом. Суть работы данного класса предполагает отсуствие каких-бы то ни было проверок (на наличие того или иного свойства/метода, корректнось типов данных и т.п.), а просто поглощение всех возникающих ошибок. Установка этого параметра в .T. отменяет это поведение и чаще всего вызывает возникновение массы сообщений об ошибках 🙂 По умолчанию установлено .F. - т.е. ошибки поглощаются.

Всё вышеуказанное есть и в стандартном классе SetAllX из библиотеки FFC (естественно не учитывая несколько мелких ошибок реализации :)) А теперь нечто новое:

Свойство cClassNames - при его задействовании (помещении туда непустой строки - списка имён классов) включается разбор иерархии наследования - т.е. будут обработаны только объекты указанных классов ИЛИ КЛАССОВ ПРОИЗВОДНЫХ ОТ УКАЗАННЫХ. Т.е. если имеется иерархия вида

TextBox - txt - txtSuper - txtSuperPuper
- txtAnother - txtCool

То указав в списке имя класса txt мы будем работать с объектами всех этих классов, кроме базового (TextBox), а указав txtSuper, мы будем работать только с классами txtSuper и txtSuperPuper. Список имеет такой же формат как и параметр tcBaseClassList - имена перечислены через запятую, регист и пробелы не учитываются.
ВНИМАНИЕ - это свойство не отменяет параметров метода SetAllX, а дополняет их - т.е. если при вызове метода указан параметр tcBaseClassList - то будет осуществляться фильтрация как по именам базовых классов, так и по этому свойству. Свойство само по себе не сбрасывается, т.е. при необходимости это должен сделать программист - присвоив свойству пустую строку.

Примеры:
1) _SCREEN.SetAllX2.SetAllX (m.oFormRef, "BackColor", 255) - установит для всех объектов расположенных на форме oFormRef цвет фона в красный.

2) _SCREEN.SetAllX2.SetAllX (m.oFormRef, "ForeColor", RGB (0, 255, 0), "Label,CommandButton") - установит для всех надписей и кнопок расположенных на форме oFormRef цвет шрифта в зелёный.

3) _SCREEN.SetAllX2.SetAllX (m.oFormRef.Cnt1, "FontSize", 20, "", .T.) - установит для всех объектов расположенных _именно_ в контейнере Cnt1 (т.е. не учитывая иные вложенные контенйнеры, например PageFrame или Grid) размер шрифта в 20 пунктов.

4) _SCREEN.SetAllX2.SetAllX (m.oFormRef, "SomeMethod ()", "", "", .T.)
Выполнит метод SomeMethod для _всех_ объектов расположенных _именно_ на форме oFormRef, не учитывая объекты на вложенных контейнерах.

5) ASELOBJ (m.laTemp, 1)
* Получим ссылка на форму, открытую в Форм дизайнере...
_SCREEN.SetAllX2.cClassNames = "txtSuper,lblSuper"
_SCREEN.SetAllX2.SetAllX (m.laTemp, "FontName", "Arial")
Установит для всех объектов производных от классов txtSuper, lblSuper и их наследников, расположенных на форме открытой в дизайнере, шрифт Arial.

6) _SCREEN.SetAllX2.SetAllX (m.oFormRef, "FontSize", "(This.FontSize + 1)")
Увеличит для всех объектов расположенных на форме oFormRef размер шрифта на единицу.

7) _SCREEN.SetAllX2.SetAllX (m.oFormRef, "Top", "(This.Top + 10), "", .T.)
Сдвинет объекты расположенные непосредственно на форме oFormRef вниз на 10 пикселей.

Автор: Igor Korolyov

Автор публикации

не в сети 6 лет

Igor Korolyov

Комментарии: 0Публикации: 4Регистрация: 28-05-2002

(далее…)

]]> https://foxclub.ru/knowledgebase/spr2scx-programma-vosstanavlivayushhaya-ekrany/ Fri, 28 Aug 2020 11:32:23 +0000

SPR2SCX – программа, восстанавливающая экраны.

Отличное дополнение к ReFox, восстанавливает файлы экранов из файлов *.spr. Выдрана из демки UnFoxAll Pro 3.0

Автор: Неизвестный китаец 😉

Автор публикации

не в сети 23 года

Eli

Комментарии: 0Публикации: 1Регистрация: 11-06-2003

(далее…)

]]> https://foxclub.ru/knowledgebase/prostoj-cposob-sohraneniya-i-vosstanovleniya-polozheniya-i-razmerov-form/ Fri, 28 Aug 2020 11:32:23 +0000

Простой cпособ сохранения и восстановления положения и размеров форм.

Класс VS_FrmPos для восстановления положения и размеров форм. Для сохранения и восстановления положения и размеров формы необходимо при инициализации формы в Init вызвать метод: Имя обьекта класса.RestPos(THIS) при закрытии формы в Destroy формы вызвать метод: Имя обьекта класса.SavePos(THIS) Пример использования оформлен как проект.

Простой cпособ сохранения и восстановления положения и размеров форм.

Класс VS_FrmPos для восстановления положения и размеров форм.
Определение класса находится в файле progmain.prg/

В главной программе вначале создать обьект на _screen :
_screen.AddObject(, 'VS_FrmPos' [,])
cNameObject - имя создаваемого обьекта на основе класса
NameIniFile - имя файла .mem в котором сохраняются параметры по умолчанию - wpos.ini.

Для сохранения и восстановления положения и размеров формы необходимо
1. При инициализации формы в Init вызвать метод:
_screen..RestPos(THIS)
2. При закрытии формы в Destroy формы вызвать метод:
_screen..SavePos(THIS)

Примечание
Запоминаются в файл .mem переменные, соответствующие
шаблону в .cScel, изначально im_aPos.
Если файл не существует, то он создается при
выходе из программы.
Запоминаются(восстанавливаются) след. свойства FORM :
NAME, TOP, LEFT, HEIGHT, WIDTH, TAG всего 6

Автор: tvs

Автор публикации

не в сети 24 года

TVS

Комментарии: 0Публикации: 2Регистрация: 18-10-2002

(далее…)

]]> https://foxclub.ru/knowledgebase/odnovremennaya-generacziya-pad-i-shortcut-menyu/ Fri, 28 Aug 2020 11:32:23 +0000

Одновременная генерация PAD и SHORTCUT – меню

Немного переделанный genmenu.prg от VFP 7 SP1 для одновременной генерации PAD – меню и SHORTCUT – меню. Генерация выполняется для меню с одним PAD. При вызове в режиме ShortCut необходимо указать параметр .T. Do menu1.mpr – вызов PAD – меню Do menu1.mpr with .t. – вызов SHORTCUT – меню Ключевое поле для поиска вставок в тексте генератора - MENU2SHOR

Автор: AlexK

Автор публикации

не в сети 10 месяцев

AlexK

Комментарии: 0Публикации: 9Регистрация: 11-12-2000

(далее…)

]]> https://foxclub.ru/knowledgebase/ustanovka-parametrov-otcheta-printer-orientacziya-kopii/ Fri, 28 Aug 2020 11:32:22 +0000

Установка параметров отчета (принтер, ориентация, копии …)

VFP сохраняет настройки принтера в теле отчета. Этот класс позволяет находу изменить эти установки. Если каких-то параметров нехватает их можно дописать. Не судите строго.

Автор: Владимир

Автор публикации

не в сети 25 лет

TVFOX

Комментарии: 0Публикации: 1Регистрация: 29-06-2001

(далее…)

]]> https://foxclub.ru/knowledgebase/prodolzhenie-programmy-bv/ Fri, 28 Aug 2020 11:32:22 +0000

Продолжение программы BV

Делает все что угодно с dbf файлами, полные исходники программы, понимает bv.exe file.dbf, спокойно чувствует себя в сетях, надеюсь на Ваши улутшения 🙂

Автор: Alex Deer

Автор публикации

не в сети 23 года

alexdeer

Комментарии: 0Публикации: 2Регистрация: 19-12-2002

(далее…)

]]> https://foxclub.ru/knowledgebase/prodolzhenie-programmy-bv-2/ Fri, 28 Aug 2020 11:32:22 +0000

Продолжение программы BV

Делает все что угодно с dbf файлами, понимает bv.exe file.dbf, спокойно чувствует себя в сетях.Нужны библиотеки VFP8

Автор: Alex Deer

Автор публикации

не в сети 23 года

alexdeer

Комментарии: 0Публикации: 2Регистрация: 19-12-2002

(далее…)

]]> https://foxclub.ru/knowledgebase/generator-otchetov-rtf-i-html/ Fri, 28 Aug 2020 11:32:22 +0000

Генератор отчетов RTF и HTML

Генератор формирует отчет (или таблицу Excel) в виде файла RTF, HTML и Delimited с наследованием всех свойств исходного документа-макета WinWord.exe или таблицы Excel. Формирование файлов производится напрямую без применения текстового процессора WinWord и практически мгновенно (как правило, из расчета до 0.2-0.5 сек на 1 Mb, а таблиц Excel в два раза быстрее).

Генератор отчетов RTF и HTML

Поскольку документы, как правило, значительно меньше 1 Mb, то указанные затраты можно не принимать во внимание. Время формирования отчета в формате Rtf определяется исключительно затратами на вычисление “вставляемых” в документ значений и считывание записей из БД. Редактор WinWord.exe (или Excel) используется только на этапе вывода готового отчета на экран, а также при разработке исходных макетов-документов. Программа автоматически настраивается на специфику файлов Rtf любых редакторов, а не только WinWord. Встроенный язык Rtf и XML позволяет определять такие свойства документа, которые не могут быть достигнуты визуальными средствами ни в одном известном редакторе, включая WinWord. Исходные обрабатываемые данные могут быть представлены в файлах любых типов, включая текстовые файлы. Исполнение отчета или таблицы Excel в формате HTML не имеет принципиальных отличий от RTF. Формирование файлов ведется не последовательной цепочкой инструкций и без использования WinWord и Excel, а по специальной технологии напрямую (ноу-хау), что позволяет генерировать даже огромные файлы с уникальной скоростью (см. ниже). Смею утверждать, что в традиционном программировании при самых благоприятных раскладах показатели производительности будут на порядок скромнее, а многое из того, что автоматически обеспечивается Ekonom, просто не возможно добиться в популярных средах программирования. Основная часть отчетов, независимо от количества объектных и прочих вложений, выводится мгновенно. При этом соблюдается основной принцип компонентного программирования, а именно: никаких ограничений и никаких новых правил, кроме тех, которые установлены используемыми компонентами (Word, Excel, Explorer и т.д.). Пользователь должен иметь дело исключительно с однотипным ему известным интерфейсом популярных компонентов. Вычислительные операции, связанные с формированием вставок в документ, также исполняются по специальной “скоростной” технологии. Подробное описание и программу можно получить на www.korshak.boom.ru

Автор: Коршак Валерий

Автор публикации

не в сети 6 месяцев

admin

Комментарии: 1Публикации: 123Регистрация: 10-12-2000

(далее…)

]]> https://foxclub.ru/knowledgebase/klass-struct-dlya-raboty-s-winapi-funkcziyami-christof-lange-i-mark-wilden/ Fri, 28 Aug 2020 11:32:22 +0000

Класс STRUCT для работы с WinAPI функциями (Christof Lange и Mark Wilden)

Класс STRUCT, разработанный Christof Lange и Mark Wilden, для работы с WinAPI функциями, требующими в качестве параметров структуры, указатели, массивы структур и тому подобное.

Класс STRUCT для работы с WinAPI функциями (Christof Lange и Mark Wilden)

Класс STRUCT, разработанный Christof Lange и Mark Wilden, для работы с WinAPI функциями, требующими в качестве параметров структуры, указатели, массивы структур и тому подобное. Детальный перевод на русский язык найдете по адресу: http://kodu.neti.ee/~juri4/vfpplus/api_struct_01_ru.htm

Автор: JS

Автор публикации

не в сети 26 лет

JS

Комментарии: 0Публикации: 2Регистрация: 04-09-2000

(далее…)

]]> https://foxclub.ru/knowledgebase/menedzher-proektov/ Fri, 28 Aug 2020 11:32:21 +0000

Менеджер проектов

Менеджер проектов предназначен для простого управления Вашими проектами. Он позволяет быcтро переключатся между ними с автоматической настройкой каталогов. В нем также есть кое какие полезные утилиты а также возможность расширить функциональные возможности.

Менеджер проектов

Менеджер проектов работает в среде Visual FoxPro 5 и 6 версии, (люди добрые проверте кто нибудь работает ли он в 7). Утилита реализована ввиде .apр приложения.
Установка: Создайте каталог, разархивируйте туда все файлы, в Visual FoxPro дайте команду DO Manager.app. Так же прилагается файл справки. Описание исправлений 20/12/2002 Исправлена ошибка работы клавиши 'Esc', из-за чего вместо закрытия окна менеджера происходило удаление проекта. Исправлена ошибка 'Каталог по умолчанию', из-за которого невозможно было определить каталог отличный от каталога расположения проекта. 02/11/2002 Исправлена ошибка работы кнопки компиляция, из-за которой компияция происходила толко в латинском регистре. 29/10/2002 Исправлена ошибка работы кнопки 'Новый' в менеджере проектов. 25/10/2002 Исправленна ошибка 'Close All', из-за которой при открытом окне Менеджера или Библиотеки падал Fox, теперь эти окна просто закрываются. Исправлена ошибка запуска внутренних процедур при совпадении имен файлов 24/10/2002 Исправленна ошибка определения HomeDir() программы в модуле запуска пользовательской программы в результате чего пользовательский модуль не запускался. Исправленно неверное отображение русских символов на формах и кнопках. Возращен на место потеряный второй значек в 'Библиотеке модулей' на кнопке 'приколоть'. 23/10/2002 Релиз 'Менеджер проектов'

Автор: -=TsA=-

Автор публикации

не в сети 6 лет

-=TsA=-

Комментарии: 0Публикации: 2Регистрация: 26-08-2020

(далее…)

]]> https://foxclub.ru/knowledgebase/zapominaem-razmer-i-polozhenie-formy-_grid-s-pamyatyu-polozheniya-stolbczev-i-ih-razmerov/ Fri, 28 Aug 2020 11:32:22 +0000

Запоминаем размер и положение формы, _grid с памятью положения столбцев и их размеров.

_forminit - позволяет запомнить расположения и размер форм в dbf _dbgrid - обычный грид способный запоминать расположения и размер столбцев За качество исполнения шибко не ругайте, замечаниям буду только рад.

Автор: Олег

Автор публикации

не в сети 23 года

olegov

Комментарии: 0Публикации: 1Регистрация: 17-12-2002

(далее…)

]]> https://foxclub.ru/knowledgebase/generator-otchetov-gf-dlya-vyvoda-v_x000d_ie-msword-excel-frontpage-i-t-d/ Fri, 04 Nov 2022 14:31:40 +0000

Генератор отчетов GF для вывода в_x000D_IE, MSWord, Excel, FrontPage и т.д

Формы получаются в формате HTML и направляются в Internet Explorer, MSWord, Excel, FrontPage и так далее. Генератор выполнен как объект. Основное назначение генератора - построение табличных форм (шахматок, сводных таблиц). Табличные же формы функционально генерируется не хуже, чем MS Office PivotTable 10.0, а в некоторых моментах и лучше, но естественно в статике (нельзя вращать).

Генератор отчетов GF для вывода в IE, MSWord, Excel, FrontPage и т.д.

Генератор отчетов GF для вывода в
IE, MSWord, Excel, FronPage и т.д.

GF.fxp работает только под VFP7.0 (CreateObject)

Форма может получена одновременно из нескольких СУБД (Fox, Access, MSSQL-server и так далее)

Есть подробная документация с примерами. Есть обучающий курс - 14 уроков.

Достаточно функционален для табличных форм (страницы, разрывы по уровням, отдельные строки, методы
пользователя и другое).
Разработки продолжаются по просьбе заинтересованных лиц.

Для некоторых может сразу не все будет понятно. Ждем вопросы.

Много внимания уделялось быстродействию. Для "двойной" рекурсии (итоги по строкам и колонкам -
шахматка) это было сделать не столько сложно сколько трудоемко.

Для эффективного использования GF кроме VFP7.0 желательно знать HTML и XML, но в самом
поверхностном варианте.

Для вертикального вывода текста используется класс: ссылки
http://www.u.arizona.edu/ic/ccm/java/demo/vtext.html
Класс предлагается для свободного использования.

Автор: szv

Автор публикации

не в сети 25 лет

szv

Комментарии: 0Публикации: 1Регистрация: 16-04-2001

(далее…)

]]> https://foxclub.ru/knowledgebase/orientirovanie-v-gride/ Fri, 28 Aug 2020 11:32:22 +0000

Ориентирование в Grid’е

Предложен способ определения параметров первой строки Grid'а вне зависимости от значения свойств RelativeRow и ActiveRow.

Ориентирование в Grid'е

В различных конференциях посвященных программированию на Visual FoxPro, не часто, но все же появляются вопросы об определении параметров первой отображаемой строки Grid’а в случае, когда указатель находиться за пределами сетки. Чаще всего вопрос является следствием затруднений при создании всплывающих подсказок связанных с содержимым отображаемых полей. Существующие решения, например:http://vfpdev.narod.ru/download/ttingrd.zip, обычно связаны с принудительным переносом указателя в видимую область.
Предлагаемый метод основан на использовании особенностей группы свойств [Dynamic…], которые автоматически обновляются при любых перерисовках Grid’а. Это с одной стороны позволяет обойтись минимумом кода, но с другой налагает некоторые ограничения. Наиболее явное таково. Для гарантированного срабатывания, в видимой области Grid’а должны присутствовать как минимум две колонки, одна из которых должна содержать параметр группы [Dynamic…].
В качестве иллюстрации использования метода представлена форма, в которой для колонок Grid’а организован вывод всплывающих подсказок, в зависимости от того умещается ли содержимое поля в границах колонки.

Автор: Ившев Дмитрий

Автор публикации

не в сети 8 месяцев

po2

Комментарии: 0Публикации: 6Регистрация: 22-12-2001

(далее…)

]]> https://foxclub.ru/knowledgebase/alternativnyj-proekt-menedzher-dlya-vfp7-ver-1-03-03/ Fri, 28 Aug 2020 11:32:22 +0000

Альтернативный проект менеджер для VFP7 ver. 1.03.03

Это то без чего вы впоследствии жить не сможете 🙂 если у Вас более одного проекта в фоксе 🙂

Альтернативный проект менеджер для VFP7 ver. 1.03.03

на сегодня
1500 пользователей

Автор: RusMikle

Автор публикации

не в сети 24 года

RusMikle

Комментарии: 0Публикации: 5Регистрация: 10-04-2002

(далее…)

]]> https://foxclub.ru/knowledgebase/klass-dlya-peremeshheniya-obektov-pri-izmenenii-razmerov-formy/ Fri, 28 Aug 2020 11:32:22 +0000

Класс для перемещения объектов при изменении размеров формы

Очень часто возникает необходимость изменения размеров и перемещения объектов при изменении размеров формы. В Delphi, например, все визуальные компоненты имеют свойство Anchor(якорь) для привязки их к размерам формы...

Класс для перемещения объектов при изменении размеров формы

Очень часто возникает необходимость изменения размеров и перемещения визуальных объектов при изменении размеров формы. В Delphi, например, все визуальные компоненты имеют свойство Anchor(якорь) для привязки их к размерам формы. Данный класс - это попытка придать компонентам Visual FoxPro похожие свойства.
Для этого Вам необходимо поместить класс Anchor из прилагаемой библиотеки (см. ссылку ниже) на форму. И объектам, которые должны изменять свое положение или размер при изменении размеров формы, в свойство Tag добавить через пробел привязываемые углы:
RT - правый верхний (RightTop)
RB - правый нижний (RightBottom)
LT - левый верхний (LeftTop)
LB - левый нижний (LeftBottom).

В событие Resize() формы необходимо добавить код: This.Anchor1.Anchor(), где Anchor1 - имя объекта.

Пример использования данного класса вы найдете в прилагаемом архиве.

Автор: Юрий Кузьменко

Автор публикации

не в сети 6 месяцев

admin

Комментарии: 1Публикации: 123Регистрация: 10-12-2000

(далее…)

]]> https://foxclub.ru/knowledgebase/klass-dlya-predstavleniya-chisla-propisyu/ Fri, 28 Aug 2020 11:32:22 +0000

Класс для представления числа прописью

Иногда сталкиваешься с ситуацией, когда числовое результат в разлиных документах, например, платежном порученим, счет-фактуре, накладной или в обучающей программе, необходимо представить прописью. Предлагаемый класс решает эту задачу для целочисленных значений от 0 до 999'999'999. Может кому понадобится :)))

Автор: Daniel

Автор публикации

не в сети 23 года

Daniel

Комментарии: 0Публикации: 1Регистрация: 20-11-2002

(далее…)

]]> https://foxclub.ru/knowledgebase/pechat-grid-v-excel/ Fri, 28 Aug 2020 11:32:22 +0000

Печать Grid в Excel

Вывод содержимого Grid в лист Excel.

Печать Grid в Excel

Решение предназначено для вывода содержимого Grid в лист Excel, на основе класса e_report (генератор отчетов в Excel).

Автор: Бан щиков Евгений

Автор публикации

не в сети 22 года

Евгений Банщиков

Комментарии: 0Публикации: 5Регистрация: 09-04-2004

(далее…)

]]> https://foxclub.ru/knowledgebase/grid-s-podsvetkoj-stroki-i-eshhe-koe-chem/ Fri, 28 Aug 2020 11:32:22 +0000

Grid с подсветкой строки и еще кое-чем…

Уже много раз обсуждалась возможность подсветки строки в Grid. И, как правило, это делается с помощью свойства, добавляемого в форму. Так вот у этого класса это свойство заделано прямо в grid, что очень удобно, когда у вас в форме больше одного grid. Да еще у этого класса автоматом расширяется колонка column1, в зависимости от толщины вертикальной полосы прокрутки. Это сделано, чтобы все колонки влезали (и как следствие, грид не прыгал, когда встаешь на последнюю его колонку). Код, конечно не очень сложный, но довольно удобный.

Автор: Шулындин Кирилл

Автор публикации

не в сети 22 года

savage

Комментарии: 0Публикации: 3Регистрация: 17-11-2003

(далее…)

]]> https://foxclub.ru/knowledgebase/otobrazhenie-grafika-na-forme-posredstvom-elementa-upravleniya-ms-chart-2-0/ Fri, 28 Aug 2020 11:32:22 +0000

Отображение графика на форме посредством элемента управления MS Chart 2.0

Всегда хотелось иметь в приложениях возможность отображения графиков. На данном сайте есть решение, которое позволяет делать это на базе Excel. Но ведь Excel использует тот же самый Ms Chart 2.0!!! Так зачем же это промежуточное звено Excel, которое постоянно виснет, глючит и не хочет работать? Вот эту идею я и реализовал в этом классе. Графики строятся непосредственно в элементе Ms Chart 2.0. Безусловно, реализованы не все возможности Ms Chart, но концепцию советую посмотреть.

Отображение графика на форме посредством элемента управления MS Chart 2.0

Есть класс, базирующийся на ActiveX элементе управления. Элемент управления называется MS Chart 2.0 и обычно три файла, которые необходимы для работы этого элемента, находятся в каталоге WindowsSystem: mschrt20.dep, mschrt20.ocx, mschrt20.srg.
Для того, чтобы начать работу на конкретной станции с классом mschart, надо этот элемент управления зарегистрировать с помощью утилиты regsvr32, которая находится в том же каталоге.

Потом ставите на форму элемент класса MSChart и работаете с ним следующими методами:
1. InitChart (cAlias, cFieldsList, cHeadersList, cColorField) – инициализация графика
Calias – алиас таблицы или курсора с данными
CFieldsList – список полей (через ‘’) для вывода в графике - чтобы можно было передавать не просто поля, но и выражения типа IIF
CHeadersList – список заголовков (подписей) на графике, тоже через ‘’
CColorField – имя поля в таблице или курсоре alias, куда класс будет писать цвет конкретной линии. Это для того, чтобы отражая данные таблицы в гриде, вы могли подсветить каждую строку своим цветом, соответствующим цвету линии на графике.

Например:

THISFORM.Grd1.SETALL("dynamicForeColor", "color", "COLUMN") - в форме есть грид grd1, в котором отображаются названия позиций товаров цветом, который задан полем color

thisform.oleAmountChart.InitChart ('vCharts','m1m2m3m4’,’month1month2month3month4’,'color') – вызываем метод initChart, в который передаем названия таблицы, числовых полей m1..m4, названия заголовков month1..month4 и название поля цвета color

2. Requery() – перезапрос графика, после того, как данные в курсоре или таблице alias обновились.

Например:

thisform.oleAmountChart.Requery() – перезапрашиваем график

И еще у класса есть три логических свойства (точнее, свойств больше, но вам нужны только эти три):
1. lAverage – строить средний график;
2. lSummary – строить суммовой график;
3. lShowLabels – строить на графике цифры – значения в каждой точке графика.

После изменения этих флагов надо вызвать метод Requery.

Если есть какие-либо дополнения или вопросы - пишите!

Автор: Шулындин Кирилл

Автор публикации

не в сети 22 года

savage

Комментарии: 0Публикации: 3Регистрация: 17-11-2003

(далее…)

]]> https://foxclub.ru/knowledgebase/kalendar-analog-activx-calendar-na-grid/ Fri, 28 Aug 2020 11:32:22 +0000

Календарь: аналог ActivX Calendar на Grid!!!

Интерфейс календаря как у ActivX Calendar, но имеет много дополнений. Впервые ! календарь сделан на основе Grid!! Управляется клавишами и мышью. Показывает разницу м/у указанной датой и текущей. Может принимать параметры -первоначальную дату, нижнюю и верхнюю границу года.

Календарь: аналог ActivX Calendar на Grid!!!

Интерфейс календаря как у ActivX Calendar, но имеет много дополнений.
Впервые ! календарь сделан на основе Grid!! Управляется клавишами и мышью. Показывает разницу м/у указанной датой и текущей. Может принимать параметры -первоначальную дату,
нижнюю и верхнюю границу года, координаты верхн.левого угла.
Параметры
1. Дата (D) - установить указатель в календаре на дату
(по умолчанию текущая)
2. Год (N) - нижняя граница Года для календаря
(по умолчанию 1900)
3. Год (N) - верхняя граница Года для календаря
(по умолчанию 2090)
4. nTop (N) - координаты верхн.левого угла
5. nLeft (N)
Нижняя и верхняя граница года могут совпадать. Необходимо только
чтобы первоначальная дата (если она не указана то текущая дата
) попадали в интервал.

Если дата была выбрана возвращается значение(Дата) иначе .T.
Доступны клавиши Enter,Esc,PgUp,PgDn,Upper,Down,Left,Right

Пример оформлен в качестве проекта(можно сделать и exe) для VFP7
Можно запускать и из командной строки(укажите свой Path к форме):
STORE "" TO dd
DO FORM d:vfp7workcalendarfrmclndr.scx TO dd
? dd
Архив calendtvs.zip
ver.1.1 tvs (c)КНУ 2002 tvsrb@mail.ru

Автор: tvs

Автор публикации

не в сети 24 года

TVS

Комментарии: 0Публикации: 2Регистрация: 18-10-2002

(далее…)

]]> https://foxclub.ru/knowledgebase/poisk-v-combobox/ Fri, 28 Aug 2020 11:32:22 +0000

Поиск в ComboBox

Очень часто ипользуется выбор значения из справочника с помощью ComboBox, но инкрементный поиск позволяет перейти к нужному значению по первой букве или буквам. Я хочу предложить другое решение поиск по любому сочетанию букв по первым, по вхождению с выводом списка удовлетворяющих значений в выпадающем списке.

Поиск в ComboBox

Идею по созданию данного класса подсказал Internet Explorer.При наборе адреса
сайта Explorer выдает список совпадающий по первым с вводимым адресом. Идея
была хорошая и решил я ее применить в своих проектах для выбора значений из
справочников.
И вот просмотрев всю документацию по Combobox я создал данный класс.

Для его использования необходимо определить следующие свойства:

IncrementalSearch - определяет возможность поиска (.T. - поиск разрешен, .F. -
поиск запрещен)
RowSource - определяет источник данных. Источником данных всегда является SQl
команда которая выбирает значения для выбора их из Combo.
cNmTexAlias - определяет наименование курсора в которое выбираются данные с
помощью SQL-Select'а, чтобы при закрытии Destroy объекта закрыть
открытый в данный момент курсор (т.е. убираем мусор за собой)
сSrchRowSource - данное свойство управляет поиском, здесь и можно определить
как искать введенное выражение по первым буквам или любое
совпадение символов. Поиск построен с использованием LIKE
SELECT-SQL поэтому действуют все правила для LIKE.

Примеры значений свойств:
1. Поиск по первым символам

RowSource="SELECT name, id, UPPER(name) FROM S_pred ORDER BY 3 INTO CURSOR
TexSrch"
сSrchRowSource="THIS.cOldRowSource+' WHERE UPPER(name) LIKE ['+;
UPPER(THIS.cLocateExpression)+'%] UNION SELECT ['+;
THIS.DisplayValue+'], ['+THIS.Value+'], CHR(0) FROM TexCboSearch '"
cNmTexAlias="TexSrch"

2. Любое совпадение символов

RowSource="SELECT name, id, UPPER(name) FROM S_pred ORDER BY 3 INTO CURSOR
TexSrch"
сSrchRowSource="THIS.cOldRowSource+' WHERE UPPER(name) LIKE [%'+;
UPPER(THIS.cLocateExpression)+'%] UNION SELECT ['+;
THIS.DisplayValue+'], ['+THIS.Value+'], CHR(0) FROM TexCboSearch '"
cNmTexAlias="TexSrch"

3. Выбор значений из основной таблицы по определенным условиям.

RowSource="SELECT name, id, UPPER(name) FROM S_pred ORDER BY 3 INTO CURSOR
TexSrch WHERE Group="1""
сSrchRowSource="THIS.cOldRowSource+' AND UPPER(name) LIKE [%'+;
UPPER(THIS.cLocateExpression)+'%] UNION SELECT ['+;
THIS.DisplayValue+'], ['+THIS.Value+'], CHR(0) FROM TexCboSearch '"
cNmTexAlias="TexSrch"
** Следует обратить внимание что WHERE располагается в конце SELECT-SQL, а
всвойстве WHERE заменяется на AND. Будьте внимательны, т.к. используется в
коде макроподстановка.

P.S. И еще одно замечание, если необходимо из основной таблицы выбирать больше
полей то в свойство cSrchRowSource необходимо указать CHR(0) или другое
выражение чтобы правильно работал UNION.
Ну и последнее обязательно определяйте ORDER BY по отдельной строке иначе
введенное поисковое выражение не будет располагаться в верхней строке.

Все замечания, пожелания и вопросы присылайте на E-mail.

С наилучшими пожеланиями.

Иван Олейник.
E-mail: oleynik99@mail.ru

Автор: Vanka

Автор публикации

не в сети 25 лет

Vanka

Комментарии: 0Публикации: 1Регистрация: 25-04-2001

(далее…)

]]> https://foxclub.ru/knowledgebase/universalnye-klassy-dlya-raboty-s-tabliczami/ Fri, 28 Aug 2020 11:32:22 +0000

Универсальные классы для работы с таблицами.

Представляю два класса работающих совместно: DbfShell – работа с свободными таблицами ( открытие, создание, индексация, упаковка, закрытие, удаление) см «dbfshell.txt». Netobr - сетевые блокировки ( всех таблиц, алиаса, строчки) см «netobr.txt». Пример инициализации: «start.prg». Известные недостатки - индексы создаются типа «compact index». Работает только с свободными таблицами.

Универсальные классы для работы с таблицами.

jzShell.ZIP

Автор: Jek Zevs

Автор публикации

не в сети 24 года

Jek Zevs

Комментарии: 0Публикации: 1Регистрация: 29-11-2001

(далее…)

]]> https://foxclub.ru/knowledgebase/menedzher-proektov-ot-perminova-igorya-versiya-3-4-ot-15-01-2003-g/ Fri, 28 Aug 2020 11:32:21 +0000

Менеджер проектов от Перминова Игоря. Версия 3.4 от 15-01-2003 г.

Поможет Вам быстро переключаться между проектами, одной кнопкой генерить файл или круппу файлов. Личный архив кода. Адаптированная утилита GENDBC.

Дерево задач и проектов. Build одной кнопкой. Запуск приложения из FoxPro или Windows. Справочник кода. GENDBC утилита.

Автор: Перминов Игорь

Автор публикации

не в сети 25 лет

Перминов Игорь

Комментарии: 0Публикации: 5Регистрация: 16-09-2001

(далее…)

]]> https://foxclub.ru/knowledgebase/konstruktor-prilozhenij-dbrad32/ Fri, 28 Aug 2020 11:32:22 +0000

Конструктор приложений DBRAD32

· Открытая архитектура системы · Простое и быстрое создание сразу работающих задач · Тиражирование решений · Единая оболочка и интерфейс данных для всех задач · Разработка проектов в группе · Поддержка и сопровождение обновления версий приложений · Режимы "файл-сервер" и "оторванные представления" · Настоящие первичные ключи записей · Межзадачные разделяемые таблицы · Встроенный генератор отчетов с созданием шаблонов в MS Word · Встроенные в систему функции пользователя · Возможность неограниченного развития решений · Авторизация пользователей

Конструктор приложений DBRAD32

· ХРАНИЛИЩЕ ДАННЫХ (Построитель структур);
· УНИКАЛЬНЫЕ ПЕРВИЧНЫЕ КЛЮЧИ (независимые от приложения);
· ВВОД И ОБРАБОТКА ДАННЫХ (Универсальный GRID);
· АНАЛИТИЧЕСКИЕ ОТЧЕТЫ (Генератор Отчетов в MS Word).

Исходные тексты. Бесплатное использование.
www.dbrad32.narod.ru

Автор: ---

Автор публикации

не в сети 6 месяцев

admin

Комментарии: 1Публикации: 123Регистрация: 10-12-2000

(далее…)

]]> https://foxclub.ru/knowledgebase/spravochnik-v-menyu-shortcut/ Fri, 28 Aug 2020 11:32:21 +0000

Справочник в меню Shortcut

Когда нужно занести значение в поле основной таблицы из справочника (небольшого) вызов этой (простой) процедуры поможет Вам.

Справочник в меню Shortcut

* Создает меню из поля базы данных и возвращает текст выбранной опции меню
* Вызов функции:
* MYMENU(cFieldName [,cAliasName] [,lMous])
* Параметры:
* cFieldName - наименование поля базыданных
* cAliasName - псевдоним базы данных
* lMouse - Использовать координаты мыши
* База данных должна быть открыта
PARAMETERS _mFieldName, _mAliasName, _mMouse
_mVib=""
IF _mMouse
DEFINE POPUP _mMenu SHORTCUT RELATIVE FROM ROW(),COL()
ELSE
DEFINE POPUP _mMenu SHORTCUT RELATIVE FROM MROW(),MCOL()
ENDIF
DO CASE
CASE PARAMETERS()=3
SELECT (_mAliasName)
COPY TO ARRAY _aArray FIELD (_mFieldName)
FOR _i=1 TO ALEN(_aArray,1)
DEFINE BAR _i OF _mMenu PROMPT ALLTRIM(_aArray(_i,1))
ON SELECTION BAR _i OF _mMenu _mVib=PRMBAR("_mMenu",BAR())
ENDFOR
CASE PARAMETERS() ]]> https://foxclub.ru/knowledgebase/alternativnyj-menezhder-proektov/ Fri, 28 Aug 2020 11:32:21 +0000

Альтернативный менеждер проектов

Добавлена компиляция и очистка проектов.

Измененения в альтернативный менеждер проектов

Измененения в альтернативный менеждер проектов
Добавлена компиляция и очистка проектов.

Автор: RusMikle

Автор публикации

не в сети 24 года

RusMikle

Комментарии: 0Публикации: 5Регистрация: 10-04-2002

(далее…)

]]> https://foxclub.ru/knowledgebase/arhivirovanie-dannyh/ Fri, 28 Aug 2020 11:32:21 +0000

Архивирование данных

Использование библиотеки zlib

Архивирование данных

Использование библиотеки zlib для создания zip архивов с вложением нескольких файлов

Автор: Петров Дмитрий

Автор публикации

не в сети 23 года

dvp

Комментарии: 0Публикации: 3Регистрация: 19-11-2002

(далее…)

]]> https://foxclub.ru/knowledgebase/soedinenie-udalennogo-dostupa-i-otravka-pochty/ Fri, 28 Aug 2020 11:32:15 +0000

Соединение удаленного доступа и отравка почты.

Использование бесплатных ActiveX для управления соединением удаленного доступа (передача пароля, логина, установка соединения, разрыв и т.д.) и отправки почты (также с разнообразными настройками).

Visual FoxPro CLUB-Соединение удаленного доступа и отравка почты.

Соединение удаленного доступа и отравка почты. Отправка почты с установкой dial-up соединения.

-------------------------------

Внимание! В связи с тем, что многие ссылки, указанные ниже, стали недоступны, все компоненты выложены в архиве ras.zip:
onlinecontrol.ocx - ULSETCH Online Control;
rascontrol.ocx - ULSETCH RasDial Control;
sasmtp.dll и sasmtp.chm - SoftArtisans mailer и документация к нему;
rasdial.ocx - Coll Stf RasDial Control.
Компоненты надо устанавливать вручную (если выкладывать с инсталяторами, то архив на порядок больше получается).

--------------------------------
Возникла задача: отправить клиенту еженедельный отчет почтой с вложением.

Решил разбить на 2 этапа:
1) Сделать отправку письма с вложением.
2) Добавить к первому пункту автоматическое соединение (dial-up) и разрыв его.

1) Посмотрев статью Журавлева, попробовал сделать через MAPI - получилось, но не совсем: на одной машине почта оказалась в Outlook-e, на другой - запросила настроить Exchange. Стал искать ActiveX. На www.activeserverpages.ru неплохая коллекция (хотя на www.vbip.com может и лучше, но я на него выбрался позже), в том числе несколько для отправки почты (что приятно - бесплатные). Скачав и установив их, я остановился на ActiveX SA-SMTPMail фирмы SoftArtisans (www.softartisans.com). Его можно скачать по адресу http://support.softartisans.com/eval/ (надо заполнить регистационную форму). Имеет свой инсталятор, так что руками ничего регистрировать не пришлось. Свойства и методы подробно описаны в help-е. Если коротко, то создаем объект: loMailer = createobject("SoftArtisans.SMTPMail"), устанавливаем свойства, вызываем метод SendMail(), который возвращает .T., если письмо отправлено и .F. - в противном случае.

2) В разделе решения лежит пример кода из книги А.Горева. Его основной недостаток - отсутствие возможности из программы разорвать связь. В конференции говорится про функцию HangUp, но подробных объяснений я не нашел (м.б. плохо искал). Найти подробное описание RAS (Remote Access Service) и, конкретно, функции HangUp() можно в msdn (http://msdn.microsoft.com), но я снова решил поискать ActiveX. И снова нашел бесплатный! На сайте www.vbip.com (Visual Basic) раздел Take&Use, подраздел Components, установить поиск по категории RAS/Connect (http://www.vbip.com/components/). Я установил компонент RasDial от COOLSTF (видимо www.coolstf.com) и RasControl и Online Control от ULSETCH Software (www.ulsetch.cjb.net). Компоненты от ULSETCH имеют инсталятор и, опять же, руками ничего регистрировать не пришлось. Online Control имеет только одно свойство и позвляет определить, находится ли пользователь в сети или нет. RasControl позволяет устанавливать соединение, НО только из уже имеющихся на машине. Если Вы не боитесь, что украдут пароли, то просто создаете соединение, устанавливаете все атрибуты (Имя пользователя, пароль, флажок "запомнить пароль"), затем в программе указываете в свойстве EntryName имя вашего соединения, вызываете метод Connect(), а потом, когда надо Disconnect(). Мне хотелось поэкспериментировать дальше, поэтому я поставил еще и RASDial от CoolStf. Этот коспонент требует ручной установки, но все довольно просто: копируем .ocx в каталог WINDOWSSYSTEM (для Windows 9x) и запускаем REGSVR32 WindowsSystemRASDIAL.OCX (Windows 9x), для NT - WinNTSYSTEM32. Всё. Компонент позволяет установить из программы пароль, имя пользователя, телефон дозвона и т.д. (в файле rasdial.txt полное описание) При указании телефона дозвона, набор номера велся в тональном режиме, победить это я не смог. Еще один важный параметр AsyncMode - определяет поведение компонента ( возвращает управление программе сразу или после результата дозвона). Надо ставить .F. (по крайней мере, у меня иначе не работало). Интересно, что в описании компонента есть замечание для VFP программистов: Установить _vfp.AutoYield = .F. в процессе работы компонента. Набор параметров, который позволил мне дозвониться и установить связь приведен в программе.

Важное отличие между пунктами: все компоненты из второго пункта нужно положить на форму (Cоздать новую немодальную форму, щелкнуть на OLE Control Container, выбрать на форме место, установить в появившемся окне Insert Control и выбрать из списка нужный ActivX, сохранить форму) У меня на форме лежат Online Control (oleOnlineTest) и RASDial Control (oleRasDialer)

Собственно текст программы :

************************************************************************************
* Программа автоматической отправки почты *
************************************************************************************

set console off
set talk off
set escape off
set date german
set century on
set hours to 24

_vfp.AutoYield = .F. && это советуют сделать разработчики RasDial Control

local lcFormFolder
lcFormFolder = "" && путь к каталогу, где лежит форма с ActiveX компонентами
set path to &lcFormFolder

*
* Производим необходимые действия, например, готовим отчет в файл c:demo.txt
*

local loMailer

loMailer = createobject("SoftArtisans.SMTPMail")

loMailer.FromName = "Ivan Ivanov"
loMailer.FromAddress = "vanya@ivanov.ru"
loMailer.bodytext = "First E-mail"
loMailer.replyto = "vanya@ivanov.ru"
loMailer.subject = "Test"
loMailer.smtplog = "c:mysmtplog.txt" && файл, в который сбрасывается информация о процессе отправки
loMailer.RemoteHost = " " && надо указать адрес сервера, через который будет отправляться почта
loMailer.addrecipient("First Recipientr", "semen@semenov.ru")
loMailer.addattachment("c:demo.txt")
wait window 'Данные подготовлены. Сейчас попытаемся отправить!' nowait

public goRasForm
do form name goRasForm

local loRasDial, lnStatus, llMailSent, loOnlineTest

loOnlineTest = goRasForm.oleOnlineTest
wait window 'Проверяем в сети или нет...' nowait

if loOnlineTest.Connected
wait window 'Уже в сети ...' nowait
llMailSent = loMailer.SendMail()
else

wait window 'Дозваниваемся ...' nowait

loRasDial = goRasForm.oleRasDialer
loRasDial.AsyncMode = .F.
loRasDial.EntryName = "AUTOSEND" && Необходимо завести соединение с таким именем (или с другим, но тогда изменить здесь)
loRasDial.UserName = "" && Заменить на реальное имя пользователя
loRasDial.Password = "" && и пароль
lnStatus = loRasDial.Dial()

if lnStatus < 600
llIsOnline = .T.
wait window 'Соединились, пытаемся отправить...' nowait
llMailSent = loMailer.SendMail()
endif
loRasDial.HangUp()
wait window 'Разорвали соединение...' nowait

endif

goRasForm.Release()

if llMailSent
wait window 'Письмо отправлено...' nowait
else
wait window "Ошибки при отправке письма:"+loMailer.Response nowait
endif

wait clear

release all

_vfp.AutoYield = .T.

return

* В config.fpw пишем screen = off, создаем .exe,
* устанавливаем в каком-нибудь планировщике его еженедельный запуск,
* и отчет автоматически отправляется клиенту. Задача решена.

Если есть вопросы или замечания пишите lf@newmail.ru
Леонид Фишкис

P.S. Если будете искать информацию по соединению удаленного доступа, то ключевые слова на "Remote Access" на английском и "Удаленное соединение" на русском. Я долго искал по "Connect" и "Удаленный доступ"!

Автор: Леонид Фишкис

Автор публикации

не в сети 2 месяца

Joys

Комментарии: 2Публикации: 177Регистрация: 25-06-2000

(далее…)

]]> https://foxclub.ru/knowledgebase/nebolshoj-spravochnik-po-funkcziyam-i-komandam-vfp-7/ Fri, 28 Aug 2020 11:32:21 +0000

Небольшой справочник по функциям и командам VFP 7.

Краткий справочник по языку VFP 7. Убраны устаревшие на мой взгляд функции. Может быть полезен для начинающих изучать ФоксПро.

Небольшой справочник по функциям и командам VFP 7.

Буду рад любой помощи для дальнейшего развития справочника, а также любым замечаниям и дополнениям. Пишите на мой e-mail: wiruc@mail.ru
Удачи!!!

Автор: WiRuc

Автор публикации

не в сети 24 года

WiRuc

Комментарии: 0Публикации: 2Регистрация: 09-04-2002

(далее…)

]]> https://foxclub.ru/knowledgebase/com-obekt-dlya-perehvata-soobshhenij-poluchaemyh-oknamiformami/ Fri, 28 Aug 2020 11:32:21 +0000

COM-объект для перехвата сообщений, получаемых окнами(формами)

COM-объект предназначен для перехвата и обработки сообщений, посылаемых Windows к формам приложения. Возможно как слежение, так и собственная обработка сообщений.

COM-объект для перехвата сообщений, получаемых окнами(формами)

Как известно, Фокс не позволяет получить доступ к своему циклу сообщений. Поэтому, для перехвата сообщений необходимо организовывать subclassing окон(форм). Данный объект предназначен именно для этого.
В архиве FoxSubclass.zip расположена FoxSubclass.Dll и исходники. Объект необходимо зарегистрировать в системе с помощью вызова regsvr32 c:pathFoxSubclass.dll.
ProgID объекта: FoxSubclass.WndSubclass

Реализованы следующие методы:
1. SubclassWindow(hWnd, szHandler, bReceiveAll) - "главный" метод, собственно осуществляющий subclassing.
hWnd - окно, сообщения которого надо перехватывать
szHandler - ф-ция в Фоксе, которая будет вызываться для обработки сообщений (только имя)
bReceiveAll - если TRUE, то получать все сообщения, иначе, только те сообщения, которые добавлены с помощью метода AddMessage()
2. AddMessage(hWnd, uMsg, uPlace) - добавляет сообщение к карте сообщений и позволяет получать указанное сообщение в обработчике (szHandler).
hWnd - окно, которое указывалось при вызове метода SubclassWindow
uMsg - номер сообщения
uPlace - положение вашего обработчика в цепочке вызовов (0 - ваш обработчик вызывается до стандартного обработчика, 1- после стандартного, 2 - до и после стандартного).
3. ChangeMessageParam - данный метод изменяет параметры обрабатываемого сообщения WPARAM и LPARAM (иногда необходимо, если вы сами обрабатываете сообщение). Данный метод действителен только в момент обработки сообщения.
4. UnSubclassWindow, RemoveMessage, RemoveMessageAll - я думаю понятно, для чего эти методы.

Свойства объекта:
1. pFoxDispatch - указатель на интерфейс Dispatch Фокса. Необходимо для всязи объекта с Фоксом, устанавливайте это свойство ДО вызова любого другого методаю. Обычно pFoxDispatch = _vfp.
2. IsHandled - позволяет указать, что сообщение обработано и дальнейшая обработка не требуется. Установка данного свойства в TRUE в вашем обработчике позволяет пропустить обработку сообщения стандартным обработчиком. В этом случае вся необходимая работа по обработке сообщения должна выполняться вашим обработчиком. Также значение этого свойства позволяет узнать, в каком месте цепочки вызовов стоит ваш обработчик. Если при вызове вашего обработчика это свойство установлено в .F., то стандартная обработка еще не была выполнена и ваш обработчик вызывается до стандартного. Если .Т. - то обработка уже была выполнена и ваш обработчик вызывается ПОСЛЕ стандартного (либо и ДО и ПОСЛЕ).

Обработчик на Фоксе должен быть доступен глобально и иметь следующий формат: Имя_обработчика(hWnd, uMsg, wParam, lParam), где hWnd - хендл окна, получившего сообщение; uMsg - номер сообщения; wParam - параметр WPARAM сообщения; lParam - параметр LPARAM сообщения. Если вы сами обрабатывается сообщение, то возвращаемое значение должно быть численным и зависит от сообщения (см. MSDN).

Пример использования класса:

SET procedure to wndproc.prg && здесь находится наш обработчик WndProc(hWnd, uMsg, wParam, lParam)
o = CreateObject("FoxSubclass.WndSubclass")
if vartype(o)"O"
return
endif

o.pFoxDispatch = _vfp && устанавливаем связь объекта с Фоксом
o.SubclassWindow(_vfp.hWnd, "WndProc", .F.) && subclassing главного окна Фокса
o.AddMessage(_vfp.hWnd, 6, 0) && перехватываем сообщение WM_ACTIVATE до вызова стандартного обработчика
o.UnSubclassWindow(_vfp.hWnd)

Если сообщение WM_ACTIVATE обработано вашим обработчиком и стандартная обработка не требуется, то необходимо в теле обработчика установить свойство IsHandled в TRUE (o.IsHandled = .T.).

Настоятельно рекомендую не использовать перехват всех сообщений (указание последнего параметра SubclassWindow в .T.), т.к. это может вызвать падение производительности на медленных машинах. Перехватывайте только те сообщения, которые вам необходимы.
В случае каких-либо замечаний или пожеланий обращайтесь по адресу: wiruc@mail.ru

Проект разработан с использованием Visual Studio.NET и ATL.
Разработчик: Колпачев Сергей aKa WiRuc

Автор: WiRuc

Автор публикации

не в сети 24 года

WiRuc

Комментарии: 0Публикации: 2Регистрация: 09-04-2002

(далее…)

]]> https://foxclub.ru/knowledgebase/primer-klient-servernogo-prilozheniya-programma-ucheta-orgtehniki-visual-foxpro-klient-ms-sql-server-7/ Fri, 28 Aug 2020 11:32:21 +0000

Пример клиент-серверного приложения – программа учета оргтехники. Visual FoxPro клиент + MS SQL Server 7.

Пример клиент-серверного приложения - программа учета оргтехники. Visual FoxPro клиент + MS SQL Server 7. Справочный файл, в связи с его размером (630Кб), доступен для опциональной загрузки отсюда: http://foxserver.nsvisual.com/download/other/computers_hlp.zip

Пример клиент-серверного приложения

От автора.

Уважаемые коллеги!

В последнее время на форуме прослеживается живой интерес к клиент-серверным приложениям, в частности к связке VFP-MSSQL, что подвигло меня данную публикацию.

Так же, моя профессиональная деятельность за последнее время несколько изменилась и я уже не являюсь VFP программером в полном смысле этого слова, так что эта публикация является отчасти и прощальным приветом всем вам, в особенности тем людям, с которыми я долгое время общался и которые несмотря ни на что любят и знают столь незаслуженно забытый нынче Visual Foxpro: Владимир Журавлев, Степанов Денис (HellRiser), Гринчишин Влад, Сергей Титов, Владимир Максимов, Кочкомбаев Тарас, Людмила, Жирнов Сергей, Насоновская Надя и многие другие.

Эти люди меня многому научили, за что им огромное спасибо.

Предупреждение.

Данный пример ни в коей мере не может служить эталоном по созданию CS приложений на VFP! Эту программу я написал, когда знакомился с MS SQL Server 7 (около 2х лет назад). Более того - это моя первая программа, использующая клиент-серверную технологию.

Ну и,самое главное, здесь используются только SPT функции, т.к. только они позволяют держать под абсолютным контролем удаленную БД, и нет ни слова о Remote View (я считаю, что не надо скрещивать два разных подхода к CS приложениям на VFP).

Тем не менее, приемы работы с данными, использованные здесь, достаточно показательны, и могут ответить на вопросы большинства интересующихся.

Программа не является учетной в понятии бухгалтерии, скорее, это обычная картотека для IT службы крупного предприятия.

Платформа.

Клиентская часть разрабатывалась и компилировалась под VFP6+SP5. Успешно работает под Win9xWin2000Pro(Eng & Rus)NT4 WS. Серверная часть - MS SQL Server 7+SP3 (так же испытывалась на MSDE1MSDE2000).

Недостатки и грабли.

Некоторые из перечисленных недостатков могли бы быть устранены перед публикацией, но я сознательно не стал этого делать, чтобы сохранить Ваше настороженное отношение к коду, а проще говоря - уберечь от бездумного копирования.

Именно после этого проекта я написал пакет классов для работы с удаленными данными (которые опубликованы здесь в "Решениях"), т.к. здесь в полной мере проявился недостаток процедурного программирования в отношении работы с функциями SQL pass trought (SPT), а именно:

• Код обработки SPT функций "размыт" по тексту программы (в основном - сосредоточен в процедурах обмена данными)
• Вследствие этого децентрализована обработка ошибок SPT функций, что так же не является хорошим тоном в программировании
• Несколько некорректно обрабатываются транзакции. В принципе, это лечится установкой соответсвующего свойства соединения (SQLSETPROP(0, "Transaction", 2) && Режим ручной обработки транзакций), но здесь просто нет этой нужной строчки кода
• Для возврата значений из хранимых процедур используется курсор, а не выходные (OUTPUT) параметры

Казалось бы - напиши универсальные процедуры и не "парься", однако, универсальность привела бы к неоправданной громоздкости этих самых процедур. Оптимальное решение - классы работы с SPT. К сожалению, к этому очевидному решению я пришел, когда уже была написана львиная доля кода и переписывать его уже не имело особого смысла - код работал. Так что учтите эти замечания, когда будете смотреть код.

Не смотря на это программа успешно эксплуатируется у нас в конторе и поныне. Говорят, что удобно.

Достоинства.

Кроме недостатков, программа обладает и достоинствами, причем немаловажными. Вот они:

• Минимальный траффик, т.к. вся "грязная" работа выполняется сервером с помощью хранимых процедур (ХП), а клиенту перегоняется минимум необходимых данных
• Использование ХП позволяет повысить степень защищенности данных на сервере, т.к. можно запретить непосредственный доступ пользователей к таблицам
• Изменение структуры данных не приведет к изменению кода клиентской части, в случае, если не изменится интерфейс ХП
• Подробная документация и интерактивная справка

Можно, конечно, напрячься и вычислить еще пару достоинств, но эти - основополагающие.

Сопроводительная документация.

К программе прилагается:

• Createdb.sql - Скрипт генерации БД - после его выполнения Вы получите 100% работающую БД
• Хранимые процедуры БД Computers .xls - Excel таблица с описанием ХП сервера
• Computers_4.ER1 - ER модель базы данных (ErWin 4)
• Readme.txt - описание программы, процедуры ее установки и настройки DSN (в файле справки это тоже есть, да еще с иллюстрациями)
• Computers.hlp - файл справки

Справочный файл, в связи с его размером (630Кб), доступен для опциональной загрузки отсюда: http://foxserver.nsvisual.com/download/other/computers_hlp.zip

Как сгенерить БД.

Краткая инструкция по генерации БД (для успешной работы необходимо обладать правами DBcreator на MSSQL):

1. Запустить Query Analyser
2. В окне команд написать: CREATE DATABASE Computers
3. Нажать F5
4. Будет создана БД Computers
5. Открыть скрипт генерации БД (Меню Open...)
6. Сделать активной новую БД (выпадающий список БД)
7. Нажать F5
8. В результате должны быть созданы все объекты БД, и таблицы проинициализированы системными записями

Если будут проблемы - сообщите. Попробуем решить.

Если же все в порядке - создайте DSN и можно запускать программу. Обязательно прочтите Readme.txt !!!

Опять от автора.

Прошу не судить строго. Буду рад конструктивной критике, желательно прямо здесь, в разделе - чтобы другие посетители были в курсе.

Буду очень рад, если это все кому-нибудь поможет. С уважением, Орлов Дмитрий aka Jimmy.

Автор: Дмитрий Орлов

Автор публикации

не в сети 25 лет

Jimmy

Комментарии: 0Публикации: 6Регистрация: 30-07-2001

(далее…)

]]> https://foxclub.ru/knowledgebase/klass-dlya-raboty-s-ini-fajlami/ Fri, 28 Aug 2020 11:32:21 +0000

Класс для работы с INI-файлами.

Довольно часто на форуме встречаются вопросы, связанные с работой с INI-файлами. Предлагаю вашему вниманию класс, который, как я надеюсь, облегчит жизнь новичкам и, возможно, будет интересен профессионалам. Данный класс реализует удобный и кажется полный интерфейс для работы с INI-файлами. Реализован для VFP7.

Автор: Сандалов Андрей

Автор публикации

не в сети 6 месяцев

admin

Комментарии: 1Публикации: 123Регистрация: 10-12-2000

(далее…)

]]> https://foxclub.ru/knowledgebase/peremeshhenie-uzla-v-treeview/ Fri, 28 Aug 2020 11:32:17 +0000

Перемещение узла в TreeView

Пример написан на VFP6SP5. В нем рассматривается вопрос организации перемещения узла дерева (элемента ActiveX TreeView). В примерах рассмотрена только визуальная часть решения. Вопрос о хранении древовидной структуры в базе данных намеренно игнорируется.

Перемещение узла в TreeView

Пример написан на VFP6SP5

В нем рассматривается вопрос организации перемещения узла дерева (элемента ActiveX TreeView)

Предложены 4 варианта решения:

1. Использование методов OLEDragDrop
2. Использование обычных методов DragDrop
3. Использование ShortCut меню вообще без использования механизма Drag-Drop
4. Объединение методов OLEDragDrop и ShortCut меню

В примерах рассмотрена только визуальная часть решения. Вопрос о хранении древовидной структуры в базе данных намеренно игнорируется.

Исправлено и дополнено 18.11.2002

Автор: Владимир Максимов

Автор публикации

не в сети 26 лет

Владимир Максимов

Комментарии: 0Публикации: 65Регистрация: 02-09-2000

(далее…)

]]> https://foxclub.ru/knowledgebase/faq-for-reports/ Fri, 28 Aug 2020 11:32:16 +0000

FAQ for Reports

В данном проекте собраны ответы на наиболее часто встречающиеся вопросы относительно генератора отчетов (Report Designer). Проект написан на VFP6SP5. В главной форме можно заодно посмотреть простейший пример работы с TreeView

FAQ for Reports

В данном проекте собраны ответы на наиболее часто встречающиеся вопросы относительно генератора отчетов (Report Designer). Проект написан на VFP6SP5

В главной форме можно заодно посмотреть простейший пример работы с TreeView

Проект написан на VFP6SP5

Если у Вас более младшая версия VFP, то Вы не сможете запустить главную форму. Однако, можно просмотреть примеры и без нее, считывая суть вопроса из таблицы Contents и запуская на выполнение соответсвующие файлы PRG.

В примерах НЕ используется DataEnvironment отчетов. В качестве источника данных выступает КУРСОР.

Некоторые примеры взяты из журнала FoxTalk за Сентябрь 2001 (№9(51) русскоязыное издание)

Исправлено и дополнено 12.11.2002

Автор: Владимир Максимов

Автор публикации

не в сети 26 лет

Владимир Максимов

Комментарии: 0Публикации: 65Регистрация: 02-09-2000

(далее…)

]]> https://foxclub.ru/knowledgebase/windowsbar/ Fri, 28 Aug 2020 11:32:21 +0000

WindowsBar

ToolBar, для быстрого доступа к открытым окнам VFP (аналог Windows'овского TaskBar).

WindowsBar

Создает кнопки с заголовками всех открытых окон.

Функции:
Click on Button - Активизация окна;
RightClick on Button - Закрытие окна;
RightClick on ToolBar - Скрытие всех окон (эмуляция нажатия "Ctrl+Alt+Shift") для выхода из режима - нажатие любой клавиши на клавиатуре или мыши.

Для использования:
Меню Tools / Options...
Закладка File Locations
Выбираем Startup Program
Пишем "путьWindowsBar.prg"
Нажимаем Set As Default
Перезапускаем FoxPro

Буду рад замечаниям.

Автор: ChAO

Автор публикации

не в сети 25 лет

ChAO

Комментарии: 0Публикации: 1Регистрация: 24-10-2000

(далее…)

]]> https://foxclub.ru/knowledgebase/ochistka-koda-v-formah-i-klassah-pri-sozdanii-prilozheniya/ Fri, 28 Aug 2020 11:32:21 +0000

Очистка кода в формах и классах при создании приложения.

Перед тем как отдать приложение пользователю необходимо очистить код из форм и классов. Вот этим и занимается этот класс.

Автор: DimOK

Автор публикации

не в сети 24 года

DimOK_L

Комментарии: 0Публикации: 1Регистрация: 05-03-2002

(далее…)

]]> https://foxclub.ru/knowledgebase/splitbar/ Fri, 28 Aug 2020 11:32:21 +0000

Splitbar

Разделитель, реализованный на базе класса Line.Предназначен для пропорционального изменения размеров двух обьектов при перетаскивании разделителя.

*При небольшой доработке можно преобразовать в вуртикальный splitbar *THISform.grid1,THISform.grid2 обьекты формы, размеры которых надо менять thisform.addobject([LINE],[DELIMITER]) &&Добавили разделитель THISform.LINE.LEFT=THISform.grid1.width+1 THISform.LINE.TOP=THISform.grid1.TOP THISform.LINE.WIDTH=0 THISform.LINE.HEIGHT=THISform.grid1.HEIGHT THISform.LINE.VISIBLE=.T. THISform.LINE.lefttopmin=30&&Минимальный размер левого обьекта THISform.LINE.rightdownmin=30&&Минимальный размер правого обьекта THISform.LINE.LEFTOBJECT=[GRID1]&&Левый обьект THISform.LINE.RIGHTOBJECT=[GRID2]&&Правый обьект

Автор: Алексей

Автор публикации

не в сети 24 года

AlexM2002

Комментарии: 0Публикации: 1Регистрация: 15-08-2002

(далее…)

]]> https://foxclub.ru/knowledgebase/eksport-dbf-v-excel/ Fri, 28 Aug 2020 11:32:21 +0000

Экспорт DBF в Excel

Всячески пытался решить проблему качественного экспорта в Excel. Стандартная команда работает неудовлетворительно (в плане оформления), метод через OLE – ну очень долгий! Поэтому решил скомбинировать – основную выгрузку сделал через стандартную команду, а потом украсил через OLE. Писалось под себя, поэтому чего-то может не быть. Тем не менее – опробуйте концепцию.

Автор: Шулындин Кирилл

Автор публикации

не в сети 22 года

savage

Комментарии: 0Публикации: 3Регистрация: 17-11-2003

(далее…)

]]> https://foxclub.ru/knowledgebase/perevod-formy-iz-scx-v-prg_x000d_versiya-2-ispravlennaya-i-uluchshennaya/ Sat, 05 Sep 2020 17:19:20 +0000

Перевод формы из scx в prg Версия 2. Исправленная и улучшенная.

Данная программа предназначена для преобразования визуальной формы в PRG-файл, который объявляет ее через DEFINE CLASS.

Автор: Каратаев

Автор публикации

не в сети 1 год

Каратаев

Комментарии: 0Публикации: 4Регистрация: 04-12-2001

(далее…)

]]> https://foxclub.ru/knowledgebase/funkczionalnye-klavishi-kak-v-dose-neskolko-koryavo-vnutri-no-eto-dlya-prostoty/ Fri, 28 Aug 2020 11:32:21 +0000

Функциональные клавиши – как в досе. Несколько коряво внутри, но это для простоты.

Все как в старом нортоне. Причем запоминаем предыдущую установку и всегда к ней возвращаемся. Пример я сгородил. Будут вопросы - пишите.

Автор: Евгений Гамза

Автор публикации

не в сети 3 года

Maestro

Комментарии: 0Публикации: 5Регистрация: 14-08-2002

(далее…)

]]> https://foxclub.ru/knowledgebase/class-progress-bar/ Fri, 28 Aug 2020 11:32:20 +0000

Class Progress Bar

Класс Progress Bar. Cамое разнообразное оформление объемный, плоский, вертикальный, горизонтальный, с ракрывающимся рисунком

Class Progress Bar

Cамое разнообразное оформление объемный, плоский, вертикальный, горизонтальный, с ракрывающимся рисунком (Свойствa Style, Picture).
Для использования сначало занесите максимальное значение в MaxValue, а затем в CurrentValue заносите текущее значение. Из свойства Value (только чтение) можно считывать процент выполнения. Автовыбор вертикальное или горизонтальное исполнение (зависит от отношения Height & Width.) 26.09.2002 - Добавлен пример. 28.09.2002 - Исправлен баг 'пропадание картинки при программном изменении размеров прогрессбара'

Автор: -=TsA=-

Автор публикации

не в сети 6 лет

-=TsA=-

Комментарии: 0Публикации: 2Регистрация: 26-08-2020

(далее…)

]]> https://foxclub.ru/knowledgebase/popytka-reshit-problemmu-activex-toolbar-svyazannuyu-s-modalnoj-formoj/ Fri, 04 Nov 2022 14:33:14 +0000

Попытка решить проблемму ActiveX ToolBar связанную с модальной формой

Попытка решить проблемму ActiveX ToolBar связанную с модальной формой с помощью таймера. Сначала Visible ТoolBar-a =.F. После запуска формы таймер переключает Visible в .Т. и форма остается модальной. В реальной программе не пробовал

Автор: AlexK

Автор публикации

не в сети 10 месяцев

AlexK

Комментарии: 0Публикации: 9Регистрация: 11-12-2000

(далее…)

]]> https://foxclub.ru/knowledgebase/alternativa-steku-dlya-peredachi-peremennyh-mezhdu-modulyami-tipa-takoj-reestor/ Fri, 28 Aug 2020 11:32:21 +0000

Альтернатива Стеку. Для передачи переменных между модулями. Типа такой реестор…

Часто бывает необходимо во время работы модуля сохранить что-либо для дальнейшего использования или из формы передать некоторое число переменных. Это один из вариантов...

Автор: Евгений Гамза

Автор публикации

не в сети 3 года

Maestro

Комментарии: 0Публикации: 5Регистрация: 14-08-2002

(далее…)

]]> https://foxclub.ru/knowledgebase/easytoolbar-toolbar-bez-problem/ Fri, 28 Aug 2020 11:32:20 +0000

EasyToolBar – Toolbar без проблем

Попробуйте разработныый мною класс для ToolBar'a и определение кнопок тулбара перестанет быть скучным занятием 🙂

EasyToolBar - Toolbar без проблем

Попробуйте разработныый мною класс для ToolBar'a и определение кнопок тулбара перестанет быть
скучным занятием 🙂

Иструкции в ReadMe.txt внутри архива,
разрабатывался в VFP 7.0 SP1 (на предмет совместимости с предыдущими версиями не проверялся)

** Примечание. Для тулбара, состояние которого не зависит от форм на экране, и реакция на кнопки
которого, обрабатывется глобально, используйте традиционный подход.

Будут глюки - пишите

Автор: SANSoft

Автор публикации

не в сети 24 года

SANSoft

Комментарии: 0Публикации: 3Регистрация: 17-09-2002

(далее…)

]]> https://foxclub.ru/knowledgebase/vybor-papki-s-pomoshhyu-windows-api/ Fri, 28 Aug 2020 11:32:20 +0000

Выбор папки с помощью Windows API

Попробуйте заменить встроенную функцию GetDir() на вызов системной функции SHBrowseForFolders

Выбор папки с помощью Windows API

Попробуйте заменить встроенную функцию GetDir() на вызов системной функции SHBrowseForFolders.

Выглядит куда приятнее, да и возможностей побольше.

Будут глюки - пишите!

----------------------------------------------
17.09.2002 Исправил глюк с отображением sMessage, переписал BrForFolder.h

Автор: SANSoft

Автор публикации

не в сети 24 года

SANSoft

Комментарии: 0Публикации: 3Регистрация: 17-09-2002

(далее…)

]]> https://foxclub.ru/knowledgebase/nevernoe-otobrazhenie-otdelnyh-simvolov-ili-nesovpadenie-kodovyh-stranicz/ Fri, 28 Aug 2020 11:32:20 +0000

Неверное отображение отдельных символов или несовпадение кодовых страниц

Довольно часто в конференции возникает вопрос о том, что отдельные буквы русского языка отображаются неверно или вообще вместо русских букв отображается непонятно что. Здесь приведены возможные причины этой ошибки и пути ее решения.

Неверное отображение отдельных символов или несовпадение кодовых страниц

Довольно часто в конференции возникает вопрос о том, что отдельные буквы русского языка отображаются неверно. Ниже приведены 2 строки символов. Первая - это русские буквы, а вторая - это то как они отображаются в программе.

абвгдеёжзийклмнопрстуфхцчшщъыьэюяАБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ
абвaде,жзийклмнопdстуфoцчoщъыьy_яAAAAДЕ"ЖЗEЙEEIIIIDСOOOOЦxOUUUЬY_Я

Если Вы нашли совпадение с Вашей проблемой, то эта статья для Вас.

Проблема эта носит название "несовпадение кодовых страниц". Первая строка в приведенном примере написана в кодовой странице 1251(Win Rus), а вторая получена конвертацией ее в кодовую страницу 1252(Win USA). Практически каждый программист на FoxPro пишущий не для англоязычных пользователей рано или поздно, но обязательно с ней сталкивается.

Причины возникновения этой ошибки можно разделить на несколько групп:

I - Нет каких-либо служебных файлов или библиотек
II - Не сделана нужная настройка среды FoxPro
III - У использованных файлов указана не та или вообще не указана кодовая страница
IV - Ошибки настройки операционной системы

Попробую разобрать причины возникновения этой ошибки по порядку.

I - Нет каких-либо служебных файлов или библиотек

До версии VFP5 включительно вместе с готовым EXE-файлом клентам необходимо было еще поставлять специальный служебный файл FOXPRO.INT

Этот файл указывал FoxPro как именно следует читать разные кодовые страницы. При его отсутствии FoxPro приходил в большое недоумение. Этот файл требуется класть рядом с готовым EXE. Причем именно "рядом". Включать его внутрь готового EXE - нельзя. Файл поставлялся вместе с FoxPro и лежал в его корневой директории.

Начиная с версии VFP6 надобность в этом файле отпала.

Можно вздохнуть с облегчением и выразить отдельную благодарность MicroSoft вообще и разработчикам VFP в частности. Останавливает меня только то, что была выпущена 7 версия FoxPro и по слухам аналогичные проблемы появились при создании дистрибутивов. Поскольку у меня нет 7 версии, то и не буду распространять слухи, подождем сервис паки и коментарии тех у кого он есть.

II - Не сделана нужная настройка среды FoxPro

Данная проблема связана с логикой работы FoxPro в отношении кодовых страниц. Дело в том, что по умолчанию, FoxPro не поддерживает автоматическую трансляцию символьных и мемо-полей. Более того, не поддерживается трансляция и откомпилированных текстовых файлов (FXP, TXT).

Если ваш проект был создан в системе с той же кодовой страницей, что и у клиента, то вы и не заметите разницы. Поскольку если автоматическая трансляция в FoxPro не была включена, то FoxPro будет предполагать, что все данные следует отображать в текущей кодовой странице системы. Исключением в этом смысле является VFP7 - тут разница будет заметной (с MicroSoft - не соскучишся).

Включить автоматическую трансляцию символьных данных можно одним единственным способом. Для этого требуется создать обычный текстовый файл с именем CONFIG.FPW и вписать в него следующую строчку

CODEPAGE=1251

Эта строка имеет 2 смысла:
-) Сам факт наличия ключевого слова "CODEPAGE" для FoxPro является признаком того, что следует включить автоматическую трансляцию кодовых страниц.
-) Значение правой части указывает в какой кодовой странице следует читать текстовые данные, если признак кодовой страницы явно не указан. А также, в какой кодовой странице следует создавать новые файлы, если кодовая страница не указана явно.

В руководстве по FoxPro рекомендуют писать строку

CODEPAGE=AUTO

Однако, проблема заключается в том, что если ваш проект предполагает создание новых файлов, то при указании ключевого слова AUTO, вместо номера кодовой страницы все эти новые файлы будут создаваться в текущей кодовой странице системы. А она может быть отлична от 1251.

Строго говоря, как уже было сказано, наличие этой настройки в большинстве случаев не обязательно. Однако, ее отсутсвие будет заметно если:

-) Вы работаете со старыми DOS таблицами в 866 кодовой странице
-) У клиентов в системе текущей кодовой страницей не является 1251
-) Вы работаете в VFP7

Остановлюсь немного на последнем пункте. Если до выхода 7 версии предполагалось, что при отсутствии явного указания на автоматическую трансляцию кодовых страниц следует брать кодовую страницу системы, то в откомпилированном EXE файле версии VFP7 по видимому предполагается, что надо брать кодовую страницу 1252 вне зависимости от кодовой страницы системы.

В отличии от файла FOXPRO.INT, файл CONFIG.FPW можно включать в проект и не поставлять отдельно от готового EXE. Следует только помнить, что настройки файла конфигурации устанавливаются один раз при запуске среды FoxPro. Это значит, что после запуска среды FoxPro никакие изменения в файле конфигурации не приведут к изменению настроек среды FoxPro. Необходимо будет перезагрузить FoxPro.

Подключить файл конфигурации на этапе разработки можно таким образом:

"C:Program FilesMicrosoft Visual StudioVfp98VFP6.EXE" -C"C:MyProjectsProject1config.fpw"

Ключ "-C" указывает, что следом за ним стоит имя файла конфигурации, который следует использовать при запуске FoxPro. Строго говоря, в данном случае имя файла конфигурации может быть абсолютно любым, но лучше придерживаться принятых наименований. Идеальным вариантом является создание ярлыка на рабочем столе, для запуска своего проекта.

Для готового EXE-файла достаточно просто положить файл CONFIG.FPW в ту же директорию, где находится и сам EXE-файл.

Подробнее о других способах использования файла конфигурации и различных настройках, которые можно сделать через него, читайте в руководстве к FoxPro.

Для наиболее любознательных:

-)Можно сделать настройку кодовой страницы и в системном реестре Windows. Для этого следует в

HKEY_CURRENT_USERSoftwareMicrosoftVisualFoxPro6.0Options

Создать дополнительный строковый параметр CodePage и присвоить ему значение 1251.

-)Отменить автоконвертацию некоторых полей таблицы можно используя настройку SET NOCPTRANS. Это имеет смысл для полей типа Binary, где конвертация все-равно ничего не даст.

III - У использованных файлов указана не та или вообще не указана кодовая страница

Причины установки неверной кодовой страницы может быть 2:

-) При создании файла не было файла конфигурации CONFIG.FPW со строкой CODEPAGE=1251. В этом случае все новые файлы будут созданы в кодовой странице операционной системы.
-) Файлы, использованные в проекте были скопированы из других источников. Например, все файлы стандартных примеров Solution.pjx и TasTrade.pjx созданы в кодовой странице 1252.

Посмотреть кодовые страницы всех файлов включенных в проект можно через пункт главного меню Project->Project Info->закладка Files

Изменить кодовую страницу текстовых файлов (TXT,PRG,QPR) можно там же, щелкнув правой клавишей мыши на нужном файле и выбрав в появившемся меню пункт CodePage.

Прочие файлы, входящие в проект (формы, классы, отчеты) по своей сути являются обычными DBF-таблицами. Для изменения их кодовых страниц вместе с FoxPro поставляется специальная программа CPZERO.PRG. Эта программа расположена в (корневая директория FoxPro)TOOLSCPZERO

Для изменения кодовых страниц следует дать команду
DO CPZERO.PRG WITH "MyForm.SCX",1251
DO CPZERO.PRG WITH "MyClass.VCX",1251
DO CPZERO.PRG WITH "MyMenu.MNX",1251
DO CPZERO.PRG WITH "MyProject.PJX",1251
DO CPZERO.PRG WITH "MyBase.DBC",1251

В данном случае, указывать расширение файлов необходимо.

Отдельно, следует сказать о поддержке таблиц, созданных в FoxPro for DOS. В те далекие времена (уж лет 5 тому) кодовая страница или вообще не использовалась или использовалась 866 кодовая страница.

В файлах созданных в FPD2.0 по умолчанию кодовая страница вообще не указывалась. Для таких файлов следует устанавливать кодовую страницу 866. На работу старых DOS-приложений это никак не повлияет, но в VFP информация будет отображаться как надо.

Если в вашем проекте используются таблицы в 866 кодовой странице, то наличие файла конфигурации CONFIG.FPW со строкой CODEPAGE=1251 становится просто необходимым.

Для проверки текущей кодовой страницы DBF-таблиц можно воспользоваться функцией CPDBF()

IV - Ошибки настройки операционной системы

Ну вот, дошли до любимых всеми программистами ошибок настроек операционной системы. Как правило, о них вспоминают или в первую или в последнюю очередь. Это ошибки связаны с тем, что по умолчанию операционная система в некоторых случаях считает, что отдельные объекты проекта или весь проект написан в кодовой странице 1252.

Для исправления этого недоразумения проще всего велеть системе несмотря на то, что она считает что что-то имеет кодовую страницу 1252 обрабатывать это что-то как имеющую кодовую страницу 1251. Т.е. надо влезть в системный реестр и поменять все ссылки с 1252 на 1251. К сожалению, я не могу указать полный перечень адресов, где такая замена необходима. Единственный обязательный адрес это:

[HKEY_LOCAL_MACHINESYSTEMCurrentControlSetControlNlsCodePage]
"1252"="c_1251.nls"

Эта ошибка характерна для отображения данных в ActiveX компонентах, если проект был создан в Win9x, а готовый EXE запускается в среде WinNT, WinXP или Win2000

Вот, кажется, и все. Буду рад любым замечаниям и дополнениям.

Автор: Владимир Максимов

Автор публикации

не в сети 26 лет

Владимир Максимов

Комментарии: 0Публикации: 65Регистрация: 02-09-2000

(далее…)

]]> https://foxclub.ru/knowledgebase/otpravka-sms-soobshhenij-iz-foxa-cherez-sotovyj-telefon-podklyuchennyj-k-com-portu/ Fri, 28 Aug 2020 11:32:20 +0000

Отправка SMS сообщений из FOXа через сотовый телефон, подключенный к COM порту.

Функция отправки СМС сообщений из приложений через подключенный к COM порту сотовый телефон. СМС шлюзы интернета не используются, речь идет именно об отправке через телефон. Функция получает два параметра: нромер телефона и строку собственно сообщения, которую необходимо передать. Требует ActiveX компонент MicrosoftCommunication Control на форме, из которой вызывается. Сообщения передаются только латиницей.

Автор: geo

Автор публикации

не в сети 6 месяцев

admin

Комментарии: 1Публикации: 123Регистрация: 10-12-2000

(далее…)

]]> https://foxclub.ru/knowledgebase/vvod-teksta-s-podskazkoj/ Fri, 28 Aug 2020 11:32:20 +0000

Ввод текста с подсказкой

Данный класс был попыткой облегчения ввода информации из справочников. Для примера сделана обработка только полей типа CHAR

Автор: Морозов В.А.

Автор публикации

не в сети 6 месяцев

admin

Комментарии: 1Публикации: 123Регистрация: 10-12-2000

(далее…)

]]> https://foxclub.ru/knowledgebase/prozrachnaya-forma-klass-glassform/ Fri, 28 Aug 2020 11:32:20 +0000

Прозрачная форма (Класс GlassForm)

Класс, позволяющий делать форму прозрачной (для Win9... и далее). Кладете класс на форму - он отражается в виде кнопки. В процессе работы жмете на неё - форма становиться прозрачной,можете передвигать форму по экрану - она остаётся прозрачной, еще раз жмете - и форма принимает прежний (непрозрачный) вид. Удачи!

Прозрачная форма (Класс GlassForm)

Когда-то, неизвестно откуда скачал пример - "Полупрозрачная форма", в которой описывалось как сделать форму прозрачной. А затем недели 2 назад на UNIVERSAL Thread FoxPRO нашел класс GlassForm от Roi Ledford (roi@futureblur.com). Всё бы хорошо, но этот класс работал только под WIN2000 и выше. Всё что я сделал - это доработал этот класс, чтобы он работал под любым Виндовозом. Пример использования прилагается. Жмёте кнопку на форме - форма становится прозрачной, можете передвигать форму по экрану - она остаётся прозрачной, еще раз жмете - и форма принимает прежний (непрозрачный) вид. Для работы запустите проект PROBA или GLASSFORM. Под WIN2000 и выше больше возможностей показывает GLASSFORM - здесь ещё можно задать через параметры скорость с какой форма будет становиться прозрачной - плавно или мгновенно. Под Win98 и ниже это увы не работает.
Здесь хочу высказать большое спасибо и выразить свою огромную признательность всем коллегам, принимающим активное участие в работе этого форума, за их решения, помощь и советы в таком трудном деле как освоение VisualFox! Без вашей неоценимой помощи я бы долго с ним кувыркался.

Автор: vau, Roi Ledford.

Автор публикации

не в сети 6 месяцев

admin

Комментарии: 1Публикации: 123Регистрация: 10-12-2000

(далее…)

]]> https://foxclub.ru/knowledgebase/programma-prosmotr-i-obrabotka-vhodyashhih-faksovformat-pcx/ Fri, 28 Aug 2020 11:32:20 +0000

Программа – просмотр и обработка входящих факсов(формат PCX).

Программа - пример работы с приложением ImageKodak из стандартного пакета Windows98

Архив разделен на 3 части по ~ 500Kb:
261ImageKodak.part1.zip
262ImageKodak.part2.zip
263ImageKodak.part3.zip

Автор: Морозов В.А.

Автор публикации

не в сети 2 месяца

Joys

Комментарии: 2Публикации: 177Регистрация: 25-06-2000

(далее…)

]]> https://foxclub.ru/knowledgebase/shifrovanie-dannyh-s-ispolzovaniem-sredstv-kriptografii-windows/ Fri, 28 Aug 2020 11:32:20 +0000

Шифрование данных с использованием средств криптографии WINDOWS.

Использование объектов CAPICOM позволяет в 3-4 строки шифровать/дешифровать данные с использованием сложных средств криптографии WINDOWS.

Шифрование данных с использованием средств криптографии WINDOWS.

Использование объектов криптографии CAPICOM в VisualFoxPro

Как известно, средства криптографии включены в состав Windows (по крайней мере, насколько мне известно, начиная с Win95). Для использования этих средств в приложениях, Microsoft любезно предоставила CryptoAPI. Но его использование может показаться сложным для разработчиков на Фоксе не знакомых с языком программирования Си.

Однако есть еще одно решение с помощью которого применение средств криптографии Windows становиться предельно просто, это CAPICOM. Весь код шифрования/дешифрования занимает несколько строк, надо лишь иметь зарегистрированную в системе библиотеку CAPICOM.dll.

Шифрование строки символов

oCAPI = CREATEOBJECT('CAPICOM.EncryptedData')    && создаем объект

oCAPI.Content = "Test Data for encryption"       && шифруемая строка

oCAPI.setsecret("MyPassword")                    && генерируем из пароля ключ шифрования

cEncData = oCAPI.encrypt()                       && Шифруем

release oCAPI                                    && освобождаем объект

? cEncData

Переменная cEncData содержит теперь контент с зашифрованной строкой

Дешифрование

oCAPI = CREATEOBJECT('CAPICOM.EncryptedData')

oCAPI.setsecret("MyPassword")

oCAPI.decrypt(cEncData)

? oCAPI.Content

Свойство Content теперь содержит расшифрованную строку.

Настолько просто, что теперь данные не шифрует только ленивый :0)

При необходимости использования алгоритма шифрования и длины ключа, отличных от используемых по умолчанию необходимо перед вызовом метода setsecret() установить свойства объекта Algorithm - Name и KeyLength.

Например:

oCAPI.Algorithm.Name = CAPICOM_ENCRYPTION_ALGORITHM_RC4

oCAPI.Algorithm.KeyLength = CAPICOM_ENCRYPTION_KEY_LENGTH_MAXIMUM

Список констант возможных алгоритмов см CAPICOM.h

При дешифровке нет необходимости указывать алгоритм и длину ключа, поскольку при шифровании, CAPICOM “укладывает” эти данные в контент.

Кроме шифрования CAPICOM может быть использовано для формирования цифровой подписи, проверки сигнатур, хеширования данных, работы с хранилищами сертификатов.

Скачать CAPICOM 2.0 можно здесь:
http://download.microsoft.com/download/whistler/Install/2.0/W982KMeXP/EN-US/CC2RINST.EXE

Установка

• Скопируйте CAPICOM.dll в системную папку Windows

• Зарегистрируйте, для этого в папке с установленным CAPICOM.dll в командной строке введите команду:

regsvr32 CAPICOM.dll

CAPICOM 1.0 - может быть использовано в среде Microsoft Windows 95, Microsoft Windows 98, Microsoft Windows ME, Microsoft Windows NT 4.0, Microsoft Windows 2000, Windows XP и Windows .NET Server.
CAPICOM 2.0 - Windows 98, Windows Me, Windows NT 4.0, Windows 2000, Windows XP и Windows .NET Server.
Для обоих CAPICOM 1.0 и CAPICOM 2.0, требуется наличие Microsoft Internet Explorer не младше версии 5.0.

Автор: Vit

Автор публикации

не в сети 24 года

_vit

Комментарии: 0Публикации: 2Регистрация: 29-07-2002

(далее…)

]]> https://foxclub.ru/knowledgebase/opisanie-struktur-tablicz/ Fri, 28 Aug 2020 11:32:20 +0000

Описание структур таблиц

Создание текстового файла с описанием структуры таблиц из указанного каталога

Описание структур таблиц

Небольшая програмка для формирования текстового файла с описанием структуры таблиц из указанного каталога. Была необходима для распечатки на матричном принтере. При работе создает таблицу, в которой можно указать назначение обрабатываемых таблиц и полей. Возможно есть что-то подобное и получше. Буду рад если кому-то эта штука пригодится.

Автор: Дмитрий Петров

Автор публикации

не в сети 23 года

dvp

Комментарии: 0Публикации: 3Регистрация: 19-11-2002

(далее…)

]]> https://foxclub.ru/knowledgebase/zapushhen-li-ekzemplyar-prilozheniya/ Fri, 28 Aug 2020 11:32:20 +0000

Запущен ли экземпляр приложения

Определение запущеного экземпляра приложения с использованием именованного объекта ядра. (WINDOWS NT/200/XP)

Запущен ли экземпляр приложения

Здесь в решениях, уже описывались разные способы определения - запущен ли экземпляр приложения.
Каждый из них имеет свои достоинства и недостатки.
Способ, основанный на поиске окна, не годиться для приложений, где название окна меняется динамически.
Способ, основанный на блокировке таблицы, может требовать наличие дополнительной таблицы.
Предлагаю Вашему вниманию еще один способ, основанный на именованных объектах ядра WINDOWS.

Приведенный ниже фрагмент кода необходимо вносить в начало главной программы проекта.

#Define ERROR_ALREDY_EXIST 183
#Define MUTEX_NAME "{F93A88FF-2FEC-4f8f-8347-5B53D3E143F5}"

Declare integer CreateMutex in kernel32 integer lpMutexAttributes, ;
integer bInitialOwner, string lpName
Declare integer CloseHandle in kernel32 integer hObject
Declare integer GetLastError in kernel32

* Открываем объект ядра (в данном случае мьютекс)
hMutex = CreateMutex(0, 0, MUTEX_NAME)

* Проверяем существует ли объект с этим именем
if GetLastError() = ERROR_ALREDY_EXIST
* если существует закрываем экземпляр приложения
= messagebox("Application already run", 16)
= CloseHandle(hMutex)
Quit
endif

* Если не существует
* Далее продолжение программы
*...

Перед окончанием программы необходимо закрыть объект ядра

= CloseHandle(hMutex)

Поскольку именованные объекты ядра независимо от типа, имеют общее пространство имен, во избежании неприятностей при совпадении имени вашего объекта с уже существующими в системе или создаваемыми другими приложениями в будущем, необходимо тщательно подходить к выбору имени объекта.
В данном примере в качестве имени используется сгенерированный GUID (глобально уникальный идентификатор).
Использование GUID не обязательно, но важно обеспечить уникальность имени.

Недостаток этого способа заключается в том, что в WINDOWS 95/98/ME именованные объекты ядра не реализованы, его использование возможно только в NT/2000/XP.

Автор: Vit

Автор публикации

не в сети 24 года

_vit

Комментарии: 0Публикации: 2Регистрация: 29-07-2002

(далее…)

]]> https://foxclub.ru/knowledgebase/indikator-yazyka-klaviatury/ Fri, 28 Aug 2020 11:32:20 +0000

Индикатор языка клавиатуры

Индикатор клавиатуры показывает текущий язык, а также позволяет сменить язык клавиатуры. Достаточно щелкнуть индикатор, а затем выбрать нужный язык из списка. Может быть полезен для диалога ввода пароля и т.п. Тестировался для VFP5, VFP7 (VFP6 - не пробовал). OS Win98, WinNT, Win2000, WinXP (Win95 - не продовал). ВНИМАНИЕ! Отслеживание изменения языка клавиатуры реализовано через таймер с небольшим интервалом срабатывания.

Автор: Сандалов Андрей

Автор публикации

не в сети 6 месяцев

admin

Комментарии: 1Публикации: 123Регистрация: 10-12-2000

(далее…)

]]> https://foxclub.ru/knowledgebase/statusbar-v-prilozhenii-na-osnove-top-level-form/ Fri, 28 Aug 2020 11:32:20 +0000

StatusBar в приложении на основе Top Level Form.

Пример переноса стандартного StatusBar'а в приложение выполненное на основе Top Level Form.

StatusBar в приложении на основе Top Level Form.

Просматривая после отпуска материалы конференции, наткнулся на обсуждение возможности отобразить стандартный StatusBar в приложении на основе Top Level Form. На тот момент я был полностью уверен в невозможности такого переноса, тем более, что в свое время вынужден был использовать соответствующий ActiveX. Однако один из участников обсуждения упомянул программы автора Владимира Яйленко (http://yvs.makeevka.com:8101/index.htm), в которых вроде бы стандартный StatusBar мирно уживается с Top Level Form. Хотя при ближайшем рассмотрении все весьма достойные приложения Владимира Яйленко оказались выполненными с использованием Screen’а, решил вернуться к прошлым опытам. Тем более, что само по себе, переназначение родителя для некоторого дочернего окна - операция тривиальная. Сложнее было догадаться, как обойти нежелание Fox’а обновлять состояние StatusBar’а при значении _Screen.Visible=.f. К счастью оказалось, что Fox как обычно больше верит себе, чем операционной системе. Поэтому оказалось достаточным после манипуляций по переносу окна StatusBar’а в заранее созданную панель инструментов встроенную в Top Level Form, установить флажок _Screen.Visible=.t. и скрыть основное окно Fox’а с помощью API-функции ShowWindow().
Пример представлен в виде законченного проекта. Необходимо собрать исполняемый EXE-модуль, который запустить с помощью команды Выполнить... из меню на кнопке Пуск.
Модуль тестировался под управлением Windows 98SE(VFP6SP5,VFP7)

Автор: Ившев Дмитрий

Автор публикации

не в сети 8 месяцев

po2

Комментарии: 0Публикации: 6Регистрация: 22-12-2001

(далее…)

]]> https://foxclub.ru/knowledgebase/pereklyuchenie-raskladki-klaviatury-v-grid_x000d_/ Fri, 28 Aug 2020 11:32:20 +0000

Переключение раскладки клавиатуры в Grid_x000D_

Проблема: при вводе данных оператором в числовом поле точка (разделитель разрядов) на правой цифровой клавиатуре (ПЦК), при ее русской раскладке, не ставиться. Приходится переключаться, а это их (операторов) нервирует и тормозит работу.

Переключение раскладки клавиатуры в Grid

Переключение раскладки клавиатуры в Grid
Проблема: при вводе данных оператором в числовом поле точка (разделитель разрядов)
на правой цифровой клавиатуре (ПЦК), при ее русской раскладке, не ставиться.
Приходится переключаться, а это их (операторов) нервирует и тормозит работу.
Причем столкнулся с тем, что на некоторых машинах наоборот - точка на ПЦК
не ставиться именно при английской раскладке... не стал вникать почему (ну
не ставиться да и бог с ней)
На конференции часто встречаются вопросы по этому поводу,
а тут и мне заказчики задали задачу: "А нельзя ли...?"
Ну, естественно можно. И сделал так:
(Сразу оговорюсь, что сам ничего не придумал, все взято из материалов конференции)
*=======================================================
* В программе перед открытием формы
PRIVATE cRasklad, cRaskladDef
store '00000409' TO cRasklad && раскладка клавиатуры в числовом поле = En
store '00000419' TO cRaskladDef && раскладка клавиатуры по умолчанию = Ru
* на самом же деле эти значения я храню в ini-файле и юзер может их настроить
* под свою машину
*
* Дальше открываем форму
DO Form Форма_с_Гридом
*=======================================================
* В событии AfterRowColChange для Grid пишу:
LPARAMETERS nColIndex
DO CASE
CASE TYPE(SYS(18)) = "N"
DO a_keyb WITH 0
OTHERWISE
DO a_keyb WITH 1
ENDCASE
*=======================================================
* Вот и все.
* Пардон, забыл про a_keyb.prg, вот он:
* (Это как раз то, что я и взял из материалов конференции)
********************************
* Файл a_keyb.prg
********************************
PARAMETERS tVid
DECLARE INTEGER GetKeyboardLayoutName IN win32api STRING cKeyboard
DECLARE INTEGER LoadKeyboardLayout IN win32api STRING cp1, INTEGER np2
cKeyboard = space(100)
GetKeyboardLayoutName(@cKeyboard)

DO CASE
CASE tVid = 0 && переключить для числ. поля
if m.cKeyboard # cRasklad
LoadKeyboardLayout( cRasklad, 1)
ENDIF
CASE tVid = 1 && вернуть по умолчанию
LoadKeyboardLayout( cRaskladDef, 1)
ENDCASE
Clear DLLs GetKeyboardLayoutName,LoadKeyboardLayout
return
*******************************************
И все. Никакого торможения работы в форме я не заметил.
К сожалению не нашел метод в Форме, который бы вроде
AfterRowColChange для Grid отслеживал изменения фокусировки
объектов Формы. А в каждом объекте писать проверку что то не
хочется.
Буду рад всем замечаниям и подсказкам. Раз проблема есть,
то совместными усилиями можем получить ее нормальное разрешение.
А все, что выше, - это лишь одна из попыток.

С уважением Каратаев ddw2@yandex.ru

Автор: Каратаев

Автор публикации

не в сети 1 год

Каратаев

Комментарии: 0Публикации: 4Регистрация: 04-12-2001

(далее…)

]]> https://foxclub.ru/knowledgebase/perevod-denezhnoj-summy-iz-chisla-v-slova/ Fri, 28 Aug 2020 11:32:20 +0000

Перевод денежной суммы из числа в слова

Перевод денежной суммы из числового представления в слова. Сумма может содержать до 15 разрядов в целой части и до 18 разрядов в дробной. Возможно округление результата.

Перевод денежной суммы из числа в слова

Несколько слов о том, почему я вообще решил выложить это решение. Вроде бы большое количество примеров на эту тему есть в разделе "Нетривиальные задачи", да и здесь есть решение Михаила Дунькина - "propis".

Вот поначалу и я так подумал. Но оказалось, что в разделе "Нетривиальные задача" к этому решению предъявлялось ряд специфических требований выполнение которых делало код практически нечитаемым. Мне потребовалось почти полдня чтобы разобраться в логике всех представленных там решений. А если добавить к этому, что в представленных решения слова "рубли" и "копейки" вообще не фигурируют, то использование их "в чистом виде" становится крайне затруднительным.

Вот поэтому, я и решил взяв кое-какие полезные идеи из предоставленных решений довести их до стадии "рублей" и "копеек".

Получившийся код не есть идеал с точки зрения эффективности или производительности. Моя задача была сделать его достаточно простым и максимально понятным с тем, чтобы любой пользователь мог с легкостью адаптировать предлагаемый код под свою задачу затратив минимальные усилия. Надеюсь, это мне удалось.

Автор: Владимир Максимов

Автор публикации

не в сети 26 лет

Владимир Максимов

Комментарии: 0Публикации: 65Регистрация: 02-09-2000

(далее…)

]]> https://foxclub.ru/knowledgebase/rabota-so-spravochnikami/ Fri, 28 Aug 2020 11:32:20 +0000

Работа со справочниками

Один из вариантов работы со справочниками

Автор: Морозов В.А.

Автор публикации

не в сети 6 месяцев

admin

Комментарии: 1Публикации: 123Регистрация: 10-12-2000

(далее…)

]]> https://foxclub.ru/knowledgebase/igra-ping-pong/ Fri, 28 Aug 2020 11:32:20 +0000

Игра “Ping-Pong”

Игра Ping-Pong

Автор: Морозов В.А.

Автор публикации

не в сети 6 месяцев

admin

Комментарии: 1Публикации: 123Регистрация: 10-12-2000

(далее…)

]]> https://foxclub.ru/knowledgebase/termometr-s-knopkoj-otmena/ Fri, 28 Aug 2020 11:32:19 +0000

Термометр с кнопкой “Отмена”

Термометр с кнопкой "Отмена" Выполнен в виде COM объекта(EXE-файл) в архиве есть более полное описание

Автор: AID

Автор публикации

не в сети 6 месяцев

admin

Комментарии: 1Публикации: 123Регистрация: 10-12-2000

(далее…)

]]> https://foxclub.ru/knowledgebase/upakovka-direktorii/ Fri, 28 Aug 2020 11:32:19 +0000

Упаковка директории

Сканирует текущую директорию, и если найдена пустая поддиректория, то она будет удалена.

Автор: Морозов В.А.

Автор публикации

не в сети 6 месяцев

admin

Комментарии: 1Публикации: 123Регистрация: 10-12-2000

(далее…)

]]> https://foxclub.ru/knowledgebase/odin-iz-variantov-sortirovki/ Fri, 28 Aug 2020 11:32:19 +0000

Один из вариантов сортировки.

1. Пример использования сортировки по нескольким полям в произвольном порядке 2. Пример использования OLEBOUNDCONTROL

Автор: Морозов В.А.

Автор публикации

не в сети 6 месяцев

admin

Комментарии: 1Публикации: 123Регистрация: 10-12-2000

(далее…)

]]> https://foxclub.ru/knowledgebase/skanirovanie-direktorii-i-poisk-fajlov-po-klyuchu/ Fri, 28 Aug 2020 11:32:19 +0000

Сканирование директории и поиск файлов по ключу

Многие, наверное, пользовались или просто знают приложение FILES из стандартного пакета MS VisualFP (files.dll). Данная программа - попытка написать что-то свое. На выходе имеем курсор FILELIST.

Сканирование директории и поиск файлов по ключу

В Windows 2000 - была обнаружена проблема открытия OLE-приложения WORD. Основная проблема - оптимизация поиска файлов по ключевому слову. Кто работал над данной проблематикой просьба поделиться информацией.

Автор: Морозов В.А.

Автор публикации

не в сети 6 месяцев

admin

Комментарии: 1Публикации: 123Регистрация: 10-12-2000

(далее…)

]]> https://foxclub.ru/knowledgebase/igra-tetris/ Fri, 28 Aug 2020 11:32:19 +0000

Игра ТЕТРИС

Игра ТЕТРИС, интересна логикой.

Автор: Морозов В.А.

Автор публикации

не в сети 6 месяцев

admin

Комментарии: 1Публикации: 123Регистрация: 10-12-2000

(далее…)

]]> https://foxclub.ru/knowledgebase/form-release-i-form-refresh-dlya-aktivnoj-formy/ Fri, 28 Aug 2020 11:32:19 +0000

Form.Release и Form.Refresh для активной формы

Бывают случаи, когда несколько форм обращаются к одним и те же процедурам, по окончании работы которых, форма должна или обновиться или закрыться.

Form.Release и Form.Refresh для активной формы

Бывают случаи, когда несколько форм обращаются к одним и те же процедурам, по окончании работы которых, форма должна или обновиться или закрыться.
Я долго мучался, пытаясь прописать в этих процедурах какая же форма в данный момент у меня открыта (активна) и что именно ее надо закрыть (обновить). Потом нашел выход, который и предлагаю тем, кто подобно мне еще на стадии "мучений".
Две маленькие програмки:
win_rele для закрытия формы
win_ref для обновления
Вызываются из процедуры, формы, откуда угодно.
Do win_rele
Do win_ref
Ниже сами prg-шники (они в принципе одинаковы)

*** win_rele.prg
PRIVATE cWin
cWin = alltrim(WOUTPUT())
if not empty(cWin)
oper = cWin+'.Release'
&oper
endif
RETURN

*** win_ref.prg
PRIVATE cWin
cWin = alltrim(WOUTPUT())
if not empty(cWin)
oper = cWin+'.Refresh'
&oper
endif
RETURN

Конечно это не верх творчества, за что и приношу извинения опытным FoxPro-шникам, но кому то это может и пригодиться.

Автор: Каратаев

Автор публикации

не в сети 1 год

Каратаев

Комментарии: 0Публикации: 4Регистрация: 04-12-2001

(далее…)

]]> https://foxclub.ru/knowledgebase/igra-morskoj-boj/ Fri, 28 Aug 2020 11:32:19 +0000

Игра “Морской бой”

Игра Морской бой, интересна логикой

Автор: Морозов В.А.

Автор публикации

не в сети 6 месяцев

admin

Комментарии: 1Публикации: 123Регистрация: 10-12-2000

(далее…)

]]> https://foxclub.ru/knowledgebase/raschet-trudoemkosti/ Fri, 28 Aug 2020 11:32:19 +0000

Расчет трудоемкости

Расчет трудоемкости произведен по "Укрупненным нормам времени на разработку ПС СВТ", утвержденных Госкомитетом СССР по труду и социальным вопросам и ВЦПС (постановление № 358/22-20 от 24.09.1986 г.), уточненных 538 ПЗ в 1998, 1999 гг. с коэффициентом 0.85. Реализация алгоритмов на языке Ассемблер и С

Автор: Морозов В.А.

Автор публикации

не в сети 6 месяцев

admin

Комментарии: 1Публикации: 123Регистрация: 10-12-2000

(далее…)

]]> https://foxclub.ru/knowledgebase/rabota-s-reestrom-windows/ Fri, 28 Aug 2020 11:32:19 +0000

Работа с реестром Windows

Класс RegistrMan обеспечивает создание, удаление ключей и их параметров, считывание и установку значений, регистрацию DLL, установку лицензий

Работа с реестром Windows

Представляю вниманию посетителей клуба средства для работы с реестром Windows.
Недавно мне пришлось поучаствовать в одном проекте, в котором нужно было хранить большое количество разнообразных настроек. Большинство участников проекта решило, что их нужно хранить в реестре. Дескать, не каждый юзер влезет и вообще круто. И, хотя я был против (предпочитаю простые текстовые ini-файлы), мне же, как инструментальщику-любителю, и поручили изготовить соответствующий инструмент.
Материалы для него частично подсмотрены в решениях, лежащих в клубе, частично выбраны прямо из MSDN.
Средства оформлены в виде класса RegistrMan, методы которого позволяют создавать и удалять ключи реестра и их параметры, считывать и устанавливать значения параметров и т.п. На первом этапе в класс включены не все возможности, предоставляемые функциями API, работающими с реестром. В частности, за бортом остался экспорт/импорт ключей реестра. Возможно, в дальнейшем я и это добавлю, если будет потребность.
Кроме того, в класс добавлены методы, обеспечивающие регистрацию DLL и OCX в реестре и установку лицензий для них.
Помимо самой библиотеки registr.vcx в комплект входят еще четыре файла:
registr.h - необходимые константы из WinReg.h, WinNT.h, WinError.h и т.п.
foxpro.h - стандартный файл констант из поставки VFP6
registr.txt - описание класса
regtest.prg - примерчик для проверки
Класс проверялся под Win98 и WinXP.
Желающие поучаствовать в развитии инструмента могут погонять его в других средах и на более крутых примерах.
Обо всех замеченных ошибках и неудобствах просьба поскорее сообщить автору, дабы он (т.е. я) тоже свою пользу получил.
С уважением, Олег Бляхеров
olegvbru@yahoo.com

Автор: Олег Бляхеров

Автор публикации

не в сети 25 лет

Олег Бляхеров

Комментарии: 0Публикации: 8Регистрация: 23-04-2001

(далее…)

]]> https://foxclub.ru/knowledgebase/igra-lines/ Fri, 28 Aug 2020 11:32:19 +0000

Игра ‘Lines’

Игра 'Lines' (VFP 6.0 SP5) Эта игра была интересна разработкой игровой логики. Самым проблемным моментом в алгоритме было следующее: нахождение минимального из всех возможных путей от начального до конечного положения шарика.

Игра 'Lines'

В программе есть недочеты, которые лень устранять. Если кому интересно могу выслать исходники, если кто занимался этой проблемой, то просьба выслать алгоритм решения проблемы.

Автор: Морозов В.А.

Автор публикации

не в сети 6 месяцев

admin

Комментарии: 1Публикации: 123Регистрация: 10-12-2000

(далее…)

]]> https://foxclub.ru/knowledgebase/igra-krestiki-noliki/ Fri, 28 Aug 2020 11:32:19 +0000

Игра “КРЕСТИКИ-НОЛИКИ”

Игра "КРЕСТИКИ-НОЛИКИ", был интересен разработкой логики

Автор: Морозов В.А.

Автор публикации

не в сети 6 месяцев

admin

Комментарии: 1Публикации: 123Регистрация: 10-12-2000

(далее…)

]]> https://foxclub.ru/knowledgebase/kidaem-daanye-iz-msflexgridmshflexgridv-excel/ Fri, 28 Aug 2020 11:32:19 +0000

Кидаем дааные из MSFLEXGRID(MSHFLEXGRID)в excel

Позволяект пересылать данные в excel для дальнеишего использования

Автор: zgogilava

Автор публикации

не в сети 6 месяцев

admin

Комментарии: 1Публикации: 123Регистрация: 10-12-2000

(далее…)

]]> https://foxclub.ru/knowledgebase/proverka-korrektnosti-inn-i-20-ti-znachnyh-bankovskih-schetov/ Fri, 28 Aug 2020 11:32:19 +0000

Проверка корректности ИНН и 20-ти значных банковских счетов

Написаны 2 функции, оформленные как 2 отдельных PRG-файла, проверяющие корректность значений ИНН и 20-ти значных банковских счетов на основе расчета их контрольных сумм. CheckINN.prg - корректность ИНН CheckAccount.prg - корректность 20-ти разрядного счета Методика проверки ИНН взята со страницы: http://myriadsoftware.al.ru/rus/documents/article03.html Методики проверки 20-ти разрядных счетов я не нашел, но код создан на основе примера который предоставил Орлов Дмитрий (Jimmy)

Автор: ВладимирМ

Автор публикации

не в сети 6 месяцев

admin

Комментарии: 1Публикации: 123Регистрация: 10-12-2000

(далее…)

]]> https://foxclub.ru/knowledgebase/rabota-s-msflexgridmshflexgrid-om/ Fri, 28 Aug 2020 11:32:19 +0000

работа с MSFLEXGRID(MSHFLEXGRID)-ом

Позволяет брать данные из excel и записивать в фаил для дальнейшего использования в MSFLEXGRID(MSHFLEXGRID). смотрите пример.

Автор: zgogilava

Автор публикации

не в сети 6 месяцев

admin

Комментарии: 1Публикации: 123Регистрация: 10-12-2000

(далее…)

]]> https://foxclub.ru/knowledgebase/schityvaenie-informaczii-iz-nestrukturirovannyh-excel-dokumentov-legko/ Fri, 28 Aug 2020 11:32:19 +0000

Считываение информации из неструктурированных EXCEL – документов? Легко!

Вашему вниманию предлагается техника, позволяющая достаточно просто решить проблемы импорта в БД информации из EXCEL документов произвольной структуры. Идея была когда-то воплощена в VB программу (мною-же), а теперь я сделал класс для VFP. Для демонстрации прилагается программа и тестовый XLS документ. С уважением, Jimmy

Посвящается she

Считывание информации в БД из документов EXCEL произвольной формы.

Уважаемые коллеги!

Хочу предварить описание некоторыми пояснениями:

• До идеи, описанной здесь, дошел сам, но не претендую на первенство, т.к. допускаю, что могут быть люди (да наверное и есть), которые уже давно используют такую технику работы.
• Текст, изложенный ниже - это моя пояснительная записка для шефа, так что прошу не судить строго за стиль.
• Собственно реализация идеи - класс cstXLSscaner в демопрограмме. Описывать его интерфейс не стал - там все предельно просто.
• Перед запуском программы посмотрите пояснения в Test.xls (кстати, он содержит пару макросов - не бойтесь).
• Буду благодарен за комментарии и поправки (только вежливо, пожалуйста).

Формирование БД на основе документов EXCEL.

Если основой информационного наполнения БД являются некие документы в формате EXCEL , то неизбежно встает вопрос о переносе данных в БД, где информация хранится в собственном формате и структуре. Посему, информацию нужно либо вводить вручную, либо автоматизировать процесс преобразования. Естественно, что далее будет рассматриваться именно вопрос автоматизации данного процесса.

Представление информации в документе EXCEL.

Документ EXCEL – двумерная таблица (на самом деле – n-мерная, но традиционно воспринимаемая, как двумерная), содержащая информацию в своих ячейках. Каждая ячейка имеет свои координаты - адрес.

По степени однородности информации и ее структурированности можно выделить два типа документов:

1. Информация представлена в виде таблицы, содержащей жестко структурированную однородную информацию. Каждая запись таблицы (независимо от ее расположения в таблице) содержит одинаковый набор реквизитов, расположенных в одинаковой последовательности. Формализовать алгоритм считывания данных в этом случае достаточно просто – достаточно знать состав реквизитов и количество записей (строк) таблицы.
2. Документ содержит разнородную информацию переменной структуры ( набор реквизитов зависит от расположения записи в таблице), а часто и вовсе не табличного вида. Формализовать алгоритм считывания для таких документов, как правило, достаточно трудно или даже невозможно. Это объясняется тем, что при необходимости представления дополнительной информации документ может подвергнуться серьезным изменениям. Для считывания данных часто пользуются картой адресов ячеек, согласно которой программа и считывает информацию. Однако, при любом изменении документа необходимо корректировать и карту адресов.

Наиболее распространен именно второй тип документов, так что имеет смысл ориентироваться именно на них.

Идентификация данных в документе.

Как видно из вышесказанного, главная задача при считывании данных из документов в БД – идентификация считанных значений. Чаще всего это карта адресов или диапазон адресов, согласно которым программа и идентифицирует данные. Т.е. попросту координатная идентификация. Такой подход вызывает определенные сложности при изменении документов (ведь придется менять и код программы!), и, что более важно, для каждого документа необходимо иметь свою карту адресов.

Однако, есть более простой, на мой взгляд, способ идентификации – создание скрытых идентификаторов в документе.

Создание скрытых идентификаторов в документе EXCEL.

Ячейка в EXCEL – своего рода слоеный пирог. Первый слой – данные пользователя; второй – данные о формате ячейки; третий – комментарий.

Комментарии!!!

Комментарии не видны (при определенных настройках EXCEL), их нельзя случайно удалить, они сохраняются при удалении информации из ячейки, копируются вместе с ячейкой, не влияют на работу EXCEL, и, наконец, доступны для программы, поддерживающей механизм OLE.

Таким образом, появляется возможность хранить в комментарии ячейки ее идентификатор, не заботясь об ее физическом адресе в документе. Единственное (и самое важное) , что для этого нужно – это создание единого кодификатора реквизитов. При наличии такого кодификатора, нетрудно создать шаблоны основных документов, уже содержащие эти идентификаторы, или изменить соответствующим образом алгоритм формирования этих документов, если они формируются автоматически.

Алгоритм считывания.

Применив трюк с созданием идентификаторов ячеек, можно использовать простейший (по своей реализации) алгоритм считывания, который, в тоже время является исключительно надежным и устойчивым, так как не зависит от вида документа и адресов ячеек с данными. Это – обычное сканирование двумерного массива.

Для работы алгоритма необходимо задать только размерность массива (таблицы). Далее происходит простой перебор элементов массива (ячеек таблицы). Данные, содержащиеся в ячейке, идентифицируются с помощью кода, помещенного в комментарий, и заносятся в БД.

Автор: Дмитрий Орлов

Автор публикации

не в сети 25 лет

Jimmy

Комментарии: 0Публикации: 6Регистрация: 30-07-2001

(далее…)

]]> https://foxclub.ru/knowledgebase/generator-programmy-reindeksaczii-tablicz-bd/ Fri, 28 Aug 2020 11:32:18 +0000

Генератор программы реиндексации таблиц БД

Программа генерирует .prg файл по созданной в дизайнере БД, после чего его можно включить в ваше приложение для выполнения реиндексации таблиц. Помогает восстановить индексы после их физического удаления, а также ссылочную целостность.

Автор: Жихарев Дмитрий

Автор публикации

не в сети 2 месяца

Joys

Комментарии: 2Публикации: 177Регистрация: 25-06-2000

(далее…)

]]> https://foxclub.ru/knowledgebase/novaya-versiya-klassa-upakovki-raspakovki-foxzif-podhodit-i-dlya-vfp5/ Fri, 28 Aug 2020 11:32:19 +0000

Новая версия класса упаковки/распаковки FoxZif. Подходит и для VFP5.

Формат ZIF остался прежним. Изменен несколько алгоритм упаковки/распаковки. Приложен небольшой тестовый пример.

Автор: Sergei Dzjuba

Автор публикации

не в сети 24 года

SergEESTI

Комментарии: 0Публикации: 2Регистрация: 21-12-2001

(далее…)

]]> https://foxclub.ru/knowledgebase/kalendar-krasivyj-malenkij-navigacziya-s-klaviatury-vfp7/ Fri, 28 Aug 2020 11:32:19 +0000

Календарь (красивый+маленький+навигация с клавиатуры) (VFP7)

Контрол "всплывающего" календаря (красивый+маленький+навигация с клавиатуры) (VFP7)

Календарь (красивый+маленький+навигация с клавиатуры) (VFP7)

Все как обычно: искал -не нашел, ActiveX - не хочу => пришлось писать
История такова:
Пользователь (хороший знакомый) попросил (за бутылку пива 🙂 изменить предыдущий календарь на
1) красивый (что б не стыдно было показать)
2) маленький (дабы не закрывал пол формы)
3) управлялся с клавы (мышью лень тыкать)
я пообещал. Много где искал (может не там) - не нашел.

Быстрые клавиши
В контроле
Shift+Enter - вызвать календарь
В форме
Вправо/влево - День (-/+)
Вверх/вниз - Неделя (-/+)
PageUp/PageDn(Скрол мыши) - Месяц (-/+)
Ctrl+PageUp/PageDw - Год (-/+)
HOME - Сегодняшнее число
END - Число по умолчанию
Enter(Двойной щелчек) - Выбрать '+CHR(13)+;
Esc - Отмена

К сожалению работает только под VFP7 (если кто переделат под 6/5 - намыльте мне)

Если у кого появятся пожелания/советы/..., пишите мне.

Автор: P.Ol.

Автор публикации

не в сети 6 месяцев

admin

Комментарии: 1Публикации: 123Регистрация: 10-12-2000

(далее…)

]]> https://foxclub.ru/knowledgebase/eksport-frx-otchetov-v-html-fajl/ Fri, 28 Aug 2020 11:32:18 +0000

Экспорт FRX отчетов в HTML файл

Экспорт FRX отчетов в HTML файл теперь доступен для использования в ваших приложениях посредством создания объекта 'HTMLFile' из библиотеки классов Frx2Any.app. Пример использования библиотеки классов Frx2Any.app приведен в проекте, который вы найдете в ZIP файле Программа позволяет конвертировать практически все FRX отчеты (один к одному) в HTML файл Демо лимит - 39 записей Скачать свежую демо версию http://www.neova.ca

Автор: Марат Чарыев

Автор публикации

не в сети 24 года

fox_head

Комментарии: 0Публикации: 1Регистрация: 23-12-2001

(далее…)

]]> https://foxclub.ru/knowledgebase/tabliczy-i-nabory-tablicz/ Fri, 28 Aug 2020 11:32:18 +0000

Таблицы и наборы таблиц

Средства для работы с таблицами (курсорами) Представляю вниманию посетителей клуба обновленный вариант библиотеки классов для работы с постоянными и времеными таблицами (курсорами) и наборами таблиц.

Таблицы и наборы таблиц

По сравнению с первым вариантом здесь добавлен доступ к свойствам и значения полей курсора (Класс Field). Для класса DataCursor добавлены свойства Fields, nFieldsCount, cFieldClass и метод MakeFields, метод Go переименован в Navigate, добавлены методы Go, GoTop, GoBottom, Skip, Seek, Locate, Continue. Изменения сделаны по результатам обсуждения с Дмитрием Орловым (Jimmy) Теперь библиотека содержит три класса: DataCursor, Field и DataSet. Класс DataCursor обеспечивает открытие и закрытие таблиц (курсоров), управление индексами, фильтрами, буферизацией, связями с другими таблицами, а также перемещение по таблице. Класс Field обеспечивает доступ к свойствам и значениям полей курсора. Объекты класса Field создаются как объекты-члены в объекте DataCursor и заносятся в массив Fields, являющийся свойством объекта DataCursor. Класс DataSet обеспечивает совместную работу с несколькими связанными по смыслу курсорами. Предполагается, что набор данных включает в себя несколько курсоров (класс DataCursor и его производные) и наборов данных (класс DataSet и его производные), работа с которыми должна выполняться согласовано.

Предлагаемая библиотека не является в полном смысле "Решением", так как ни в одной реальной задаче не обкатывалась. Это скорее эскиз решения, идея, которую я хотел бы обсудить на профессиональном уровне прежде, чем окончательно вставлять эти средства в свои проекты. Кроме того, не обладая опытом работы с SQL-серверами и представлениями, я не включил в эти классы возможности работы с ними, а хотелось бы.
Суть предложения заключается в том, чтобы организовать в клубе или по e-mail обсуждение и, возможно, совместное доведение библиотеки до кондиции с тем, чтобы в последствии выложить получившийся продукт в клубе для всеобщего использования.
Со своей стороны, я готов взять на себя всю организационную сторону дела - учет предложений, адаптацию их в исходный текст и обновление выложенной в клубе библиотеки.
Более подробная информация о мотивах, классах и содержании пакета - в файле readme.txt Заинтересовавшиеся моим предложением посетители клуба могут высказать свое мнение здесь или по e-mail olegvbru@yahoo.com
С уважением, Олег Бляхеров.

Автор: Олег Бляхеров

Автор публикации

не в сети 25 лет

Олег Бляхеров

Комментарии: 0Публикации: 8Регистрация: 23-04-2001

(далее…)

]]> https://foxclub.ru/knowledgebase/zamena-funkczii-messagebox/ Fri, 28 Aug 2020 11:32:18 +0000

Замена функции =messagebox()

Захотелось сделать замену стандартной функции =messagebox(), чтобы можно было менять текст на кнопках и еще кое-какие мелочи и при этом сохранить простоту вызова и возможность вывода текста в несколько строк.

Замена функции =messagebox()

Замена функции =messagebox()
Функция написана при активном участии Jek Zevs jek_zevs@aport2000.ru

Обновления:

01.03.2002 Сделано приведение кнопок к одному (максимальному) размеру
27.01.2002 Исправлена ошибка, связанная с установкой фокуса. (При вызове функции из методов типа Valid() другой формы, неправильно интерпретируется ThisForm)
Изменен алгоритм для рассчета длины кнопок и расположения картинки.

23.01.2002 Добавлены следующие возможности:
автоформатирование текста (если строка в сообщении превышает половину экрана,
то она автоматически разбивается на подстроки),
автозакрытие формы через указанное число секунд,
Возможность задания второго параметра, как у messagebox() и
еще разные мелочи.

12.01.2002 Добавлена возможность задавать стандартную картинку не текстом, а по коду.

23.12.2001 Исправлено вырвнивание текста (в некоторых случаях текст заезжал на картинку).
Добавлена возможность выделить любую их кнопок (поставив символ " ]]> https://foxclub.ru/knowledgebase/komponent-kalendar/ Fri, 28 Aug 2020 11:32:19 +0000

Компонент Календарь

Как ни банально, но еще один календарь. Всегда его использую в своих проектах. Вообще это выборка из лучших(на мой взгляд) календарей в "одном флаконе" Пробуйте, тестируйте и т.д. Только одно ограничение - работает на VFP 7.0

Компонент Календарь

Использование:
1. В Методе Init формы или в любом другом месте до вызова формы прописываем: Set Procedure to Utils
2. В панели инструментов Form Control Нажимаем кнопку Add Class и в выпавшем меню выбираем Add... . Указываем библиотеку Tools.vcx, после чего в панели Form Control появится кнопка контейнера Calendar
3. Вставляем класс в форму.
Инициализация:
thisform.Calendar1.Value=date()
Чтение значения:
myVar = thisform.Calendar1.Value

Автор: (сборка): Дворядкин Дмитрий

Автор публикации

не в сети 25 лет

Pinguin

Комментарии: 0Публикации: 1Регистрация: 14-12-2000

(далее…)

]]> https://foxclub.ru/knowledgebase/i-opyat-kalendar/ Fri, 28 Aug 2020 11:32:19 +0000

И опять календарь

Похоже, что у каждого свой календарь. Может и мой кому-нибудь сгодится.

Автор: Василий Поторочин

Автор публикации

не в сети 6 месяцев

admin

Комментарии: 1Публикации: 123Регистрация: 10-12-2000

(далее…)

]]> https://foxclub.ru/knowledgebase/preview-dlya-tekstovyh-fajlov-pod-upravleniem-subd-foxpro-2-6-for-dos/ Fri, 28 Aug 2020 11:32:19 +0000

PreView для текстовых файлов под управлением СУБД FoxPro 2.6 for DOS

Предпросмотр текстовых файлов : удобные настройки для скроллинга, закрепление областей, выборочная печать

Автор: Leonov Yuri

Автор публикации

не в сети 24 года

Professor

Комментарии: 0Публикации: 2Регистрация: 28-01-2002

(далее…)

]]> https://foxclub.ru/knowledgebase/risajzing-formy/ Fri, 28 Aug 2020 11:32:18 +0000

Рисайзинг формы.

Теперь добиться изменения размеров всех элементов формы пропорционально её изменяющимся размерам не просто просто, а очень просто.

Рисайзинг формы.

* Рекурсивный метод изменения размеров
* элементов формы. Количество элементов
* на форме и уровень вложенности объектов -
* неограничено.
* Кроме этого метода на форму необходимо
* поместить:
* Свойства: amas[1,1] - массив, для первонач.размеров
* всех элементов формы
* nkolm - фактическая его размерность
* FIRSTHEIGHT - первоначальные
* FIRSTWIDTH размеры формы
* nkofh - коэффициенты высоты
* nkofw и длины изменения
*
* nb1 - переменные для
* nb2 панимуляции с Fontsize
*
* ndelta - текущее смещение значения Fontsize

*
* В метод Init поместить:
THISFORM.firstheight=THISFORM.height
THISFORM.firstwidth=THISFORM.width
THISFORM.nkolm = 0
THISFORM.ndelta = 0
THISFORM.recurs (THISFORM,.F.)
* И в Resize :
THISFORM.nkofh = THISFORM.HEIGHT/THISFORM.FIRSTHEIGHT
THISFORM.nkofw = THISFORM.WIDTH/THISFORM.FIRSTWIDTH
thisform.nkolm = 0
THISFORM.nb1 = 0
THISFORM.nb2 = 1
THISFORM.recurs(THISFORM,.t.)
if (THISFORM.nb2 > 0 and THISFORM.ndelta > 0);
or (THISFORM.nb1 > 0)
THISFORM.ndelta = THISFORM.ndelta + THISFORM.nb1
THISFORM.ndelta = THISFORM.ndelta - THISFORM.nb2
endif
*
* и все...
*

Метод : Recurs

lparameters oObj, lP
LOCAL nTotMem,i,aMems[1],m1
m1 = 7
WITH oObj
if thisform.name # .name or thisform.baseclass # .baseclass
if type("oObj.top") = "N" or type("oObj.height") = "N";
or type("oObj.left") = "N" or type("oObj.width") = "N";
or type("oObj.fontsize") = "N"
thisform.nkolm = thisform.nkolm + 1
if !lP
dimension thisform.amas[thisform.nkolm,m1]

if type("oObj.top") = "N"
thisform.amas[thisform.nkolm,1] =oObj.top
endif
if type("oObj.height") = "N"
thisform.amas[thisform.nkolm,2] = oObj.height
endif
if type("oObj.left") = "N"
thisform.amas[thisform.nkolm,3] = oObj.left
endif
if type("oObj.width") = "N"
thisform.amas[thisform.nkolm,4] = oObj.width
endif
if type("oObj.headerheight") = "N"
thisform.amas[thisform.nkolm,5] =oObj.headerheight
endif
if type("oObj.rowheight") = "N"
thisform.amas[thisform.nkolm,6] = oObj.rowheight
endif
if type("oObj.fontsize") = "N"
thisform.amas[thisform.nkolm,7] =oObj.fontsize
endif

else

if type("oObj.top") = "N"
oObj.top = thisform.amas[thisform.nkolm,1]*THISFORM.nkofh
endif
if type("oObj.height") = "N"
oObj.height = thisform.amas[thisform.nkolm,2]*THISFORM.nkofh
endif
if type("oObj.left") = "N"
oObj.left = thisform.amas[thisform.nkolm,3]*THISFORM.nkofw
endif
if type("oObj.fontsize") = "N"
if (thisform.amas[thisform.nkolm,7]*THISFORM.nkofh)-THISFORM.ndelta > 4
oObj.fontsize = (thisform.amas[thisform.nkolm,7]*THISFORM.nkofh)-THISFORM.ndelta
else
oObj.fontsize = 4
THISFORM.ndelta = THISFORM.ndelta - 1
endif
endif

if type("oObj.width") = "N"
if (oObj.baseclass ="Label" and !.wordwrap);
or oObj.baseclass ="Checkbox"

if (TXTWIDTH(oObj.caption,oObj.fontname,oObj.fontsize))*;
FONTMETRIC(6,oObj.fontname,oObj.fontsize) > oObj.width

THISFORM.nb1 = 1
THISFORM.nb2 = 0
endif
if (TXTWIDTH(oObj.caption,oObj.fontname,oObj.fontsize+1))*;
FONTMETRIC(6,oObj.fontname,oObj.fontsize+1) > oObj.width
THISFORM.nb2 = 0
endif
endif

oObj.width = thisform.amas[thisform.nkolm,4]*THISFORM.nkofw
endif
if type("oObj.headerheight") = "N"
oObj.headerheight = thisform.amas[thisform.nkolm,5]*THISFORM.nkofh
endif
if type("oObj.rowheight") = "N"
oObj.rowheight = thisform.amas[thisform.nkolm,6]*THISFORM.nkofh
endif

endif
endif
endif
nTotMem = AMEMBERS(aMems,oObj,2)
FOR i = 1 TO m.nTotMem
oObj = EVAL("."+aMems[m.i])
IF TYPE("."+aMems[m.i]) = "O"
thisform.recurs(oObj,lP)
ENDIF
ENDFOR
ENDWITH

Автор: Василий Поторочин.

Автор публикации

не в сети 6 месяцев

admin

Комментарии: 1Публикации: 123Регистрация: 10-12-2000

(далее…)

]]> https://foxclub.ru/knowledgebase/rabota-s-listview/ Fri, 28 Aug 2020 11:32:19 +0000

Работа с ListView

В данном примере приведены решения различных задач в СТАНДАРТНОМ ActiveX компоненте ListView.

Работа с ListView

Это не мой пример. Он взят с данной страницы:

http://www.fastwrite.com/DvlOnly/ThisDownload.cfm?RID=27

Еще раз подчеркну. Это стандартный ActiveX компонент. Дело в том, что описание, данное в ComCtl2.hlp крайне запутано, неполно и местами ошибочно. В данном примере можно найти решение для очень многих проблем связанных с ListView.

Автор: Владимир Максимов

Автор публикации

не в сети 26 лет

Владимир Максимов

Комментарии: 0Публикации: 65Регистрация: 02-09-2000

(далее…)

]]> https://foxclub.ru/knowledgebase/prostye-i-effektivnye-klassy-dlya-raboty-s-remote-dannymi-lyubitelyam-klient-servernyh-reshenij/ Fri, 28 Aug 2020 11:32:18 +0000

Простые и эффективные классы для работы с Remote данными – любителям клиент-серверных решений.

Уважаемые коллеги! На суд публики представлено два класса-оболочки. 1. cstConnections: позволяет централизованно управлять ODBC соединениями (те самые DSN, о которых постоянно спрашивают на конференции)- список, использование, настройка. В общем - полный контроль. Для его тестирования/демонстрации возможностей используйте прилагаемую форму Testconnections. 2. cstSqlPassTrought: централизованное управление функциями SQL*() плюс некоторая дополнительная функциональность (типа выполнения скриптов). При их создании преследовались следующие цели: простота, контроль, централизованная обработка ошибок. Подробности смотрите в файле Readme.txt С уважением, Дмитрий Орлов (Jimmy) PS Замечания, пожелания, критику или сообщения о выявленных ошибках просьба публиковать здесь же или на мыло.

Автор: Дмитрий Орлов

Автор публикации

не в сети 25 лет

Jimmy

Комментарии: 0Публикации: 6Регистрация: 30-07-2001

(далее…)

]]> https://foxclub.ru/knowledgebase/foxpro-realizacziya-podgotovki-svodnoj-tabliczy-po-strokam-i-stolbczam/ Fri, 28 Aug 2020 11:32:18 +0000

FoxPro-реализация подготовки сводной таблицы по строкам и столбцам

Это классическая задача бухучета - имея набор данных в виде "змейки", представить данные в виде сводной таблицы - аналог функции "PivotTAble" Microsoft Excel.

Автор: Leonov Yuri

Автор публикации

не в сети 24 года

Professor

Комментарии: 0Публикации: 2Регистрация: 28-01-2002

(далее…)

]]> https://foxclub.ru/knowledgebase/kalendar-eshhe-odna-variacziya/ Fri, 28 Aug 2020 11:32:18 +0000

Календарь. Еще одна вариация.

Суть понятна из названия - это Календарь.

Календарь. Еще одна вариация.

Слегка напоминает вид календаря, принятый в "Консультант Плюс". Загрузите файл и запустите calendar.prg.
Пояснения:
1. Значения можете выбирать как мышкой, так и клавой.
2. При нажатии кнопки "Выбрать" (или нажать "Enter") будет выбрана дата и показана на экране.
3. Если нажать "Отмена" (или "Esc"), то покажется та дата, которую Вы указали в качестве параметра "with" в "do form ..." (т.е., как-будто она не изменилась).
4. Выбрав "Очистить дату и выйти" будет выбрана пустая ('..') дата.
5. Как следует из пункта 3, дата, переданная в качестве параметра, инициализирует календарь. Если параметра не будет или он будет не типа "Дата", то для инициализации используется (по умолчанию) текущая дата.

Автор: Бутяев Владимир

Автор публикации

не в сети 26 лет

Владимир Бутяев

Комментарии: 0Публикации: 1Регистрация: 20-09-2000

(далее…)

]]> https://foxclub.ru/knowledgebase/ocherednoj-kalendar-s-kotorym-mozhno-rabotat-bez-myshi/ Fri, 28 Aug 2020 11:32:18 +0000

Очередной календарь с которым можно работать без мыши

Очередной календарь с которым можно работать без мыши

Очередной календарь с которым можно работать без мыши

Этот объект появился на свет исключительно из за того, что мне не нравяться программы в которых какие-либо действия можно делать только с помощью мыши.
Пересмотрел несколько решений, не ни одно до конца меня не удовлетворило.
Вызов производится примерно так

 oCalendar = createobject( "Calendar", THIS.Parent.txtDate.Value )  или так, тогда объект инициализируется с текущей датой oCalendar = createobject( "Calendar" )  * Далее установка координат по ситуации oCalendar.Top = THIS.Top + THIS.Parent.Top + THISFORM.Top + sysmetric( 9 ) + sysmetric( 11 ) + 4 oCalendar.Left = THIS.Left + THIS.Parent.Left + THISFORM.Left + sysmetric( 11 ) + 4  * Собственно сам вызов oCalendar.Show( ) THIS.Parent.txtDate.Value = oCalendar.ReturnDate oCalendar.Release( ) 

Сочетания клавиш, задействованные в объекте, можно посмотреть вызвав его и нажав клавишу F1 или F12.
Но можно все делать и мышью.
Написано но VFP5, потому код не совсем оптимален.
Объект еще основательно не тестировался, так что "возможно все", но я пока ничего подозрительного не заметил.
За цвета прошу не пинать, я не дизайнер, красьте сами :)))

Собственно все... 🙂

Пожелания и замечание можно (и желательно) присылать по адресу GraninDm@mail.ru

Автор: DmGr

Автор публикации

не в сети 24 года

DmGr

Комментарии: 0Публикации: 2Регистрация: 21-01-2002

(далее…)

]]> https://foxclub.ru/knowledgebase/igra-speeder-man/ Fri, 28 Aug 2020 11:32:18 +0000

Игра Speeder Man

Кто из вас не катался на мотоцикле по лесу? В любом случае этот аркадный клон объездов препятствий предоставит вам такую возможность. Но осторожничайте! Чем дальше в лес - тем больше можно наломать дров! 🙂 В архиве имеется полный проект с исходниками. Прога скомпил:ена под VFP60

Автор: Денис В. Степанов

Автор публикации

не в сети 25 лет

Hel!Riser

Комментарии: 1Публикации: 5Регистрация: 11-03-2001

(далее…)

]]> https://foxclub.ru/knowledgebase/splitter/ Fri, 28 Aug 2020 11:32:18 +0000

Сплиттер

Доделан сплиттер. Теперь работает на PageFrame любой вложенности

Сплиттер

Тестируем доделанную версию сплиттера Ж:)

Автор: Michael Postin

Автор публикации

не в сети 6 месяцев

admin

Комментарии: 1Публикации: 123Регистрация: 10-12-2000

(далее…)

]]> https://foxclub.ru/knowledgebase/proverka-pravopisaniya/ Fri, 28 Aug 2020 11:32:18 +0000

Проверка правописания

Проверка правописания для русского языка. До выполняемых действий можно достучаться через клик правой кнопки мыши в зоне ввода. ВАЖНО! Должны быть предустановлены MS Word с проверкой правописания и зарегестр:ен RichTx32.OCX ЗЫ Есть известная фича - процесс не бь:ется. Но как побороть не знай 🙂 ЗЫЫ В архиве полный проект с исходниками и прогой скомпил:енной под VFP60

Автор: Денис В. Степанов

Автор публикации

не в сети 25 лет

Hel!Riser

Комментарии: 1Публикации: 5Регистрация: 11-03-2001

(далее…)

]]> https://foxclub.ru/knowledgebase/kolichestvo-czifr-posle-zapyatoj-u-peremennoj-pamyati/ Fri, 28 Aug 2020 11:32:18 +0000

Количество цифр после запятой у переменной памяти

Способ определения количества цифр (включая завершающие нули) после запятой у переменной памяти

Автор: ВладимирМ

Автор публикации

не в сети 26 лет

Владимир Максимов

Комментарии: 0Публикации: 65Регистрация: 02-09-2000

(далее…)

]]> https://foxclub.ru/knowledgebase/biblioteka-dlya-kopirovaniya-fajlov/ Fri, 04 Nov 2022 14:36:34 +0000

Библиотека для копирования файлов.

Предназначена для копировния файлов с отображением процесса копирования. Иметет на выбор 2 прогресс бара (градусника). При копировании выводится так же текст заголовка окна и текст над градусником (примерно как в Windows Commander). Тестировалась на VFP, есть подозрение что будет работать и на других языках.

Библиотека для копирования файлов.

Продолжаем цикл "Подружим Фокс и Дельфи".

Данная DLL предназначена для копирования файлов. Ничем не отличается от
COPY FILE, кроме наличия прогресс баров и комментариев.

Первый прогресс бар без текста внутри. Похож на тот, который возникает при поиске
нового оборудования в Windows.
Второй с процентами и плавной бегущей полосой.

ГЛЮКИ:
При больших размерах файла при повторном копировании бывает так, что
функция отработала, а файл на свое место еще не лег. Это связано с файловым
кэшем самой WINDOWS и как победить это я не нашел.

При копировании на дискету тоже самое. Причина та же.

 ********************************************************************************   
 * Параметры : *   
 * 1. Строка с указанием полного имени исходного файла *   
 * 2. Строка с указанием полного имени файла назначения *   
 * 3. Заголовок окна *   
 * 4. Строка над прогресс баром. *   
 * 5. Тип прогресс бара *   
 * (их всего 2 если указано число не 1 и не 2 то будет использован 1) *   
 * *   
 * Возврат: *   
 * 1 - если ошибка *   
 * 0 - если ошибок нет *   
 * *   
 ********************************************************************************  
    
 ********************************************************************************   
 * Собственно вызов. *   
 ********************************************************************************   
  FileNameWhence = "c:MyFileWhence.xxx"   
  FileNameWhere = "a:MyFileWhere.xxx"   
  cCaption = 'Копируется файл 1 из 1'   
  cText = FileNameWhence + ' -> ' + FileNameWhere  
    
  DECLARE INTEGER CopyFileProgress IN CopyFile.DLL STRING, STRING, STRING, STRING, INTEGER  
    
  IF CopyFileProgress(FileNameWhence,FileNameWhere,cCaption,cText,2) = 1   
  MESSAGEBOX ('Файл не скопирован',0+16,'Ошибка')   
  ENDIF  
    
  CLEAR DLLS   
 ********************************************************************************  

Эта DLL написана на DELPHI 6.0 с использованием стандартных средств и
библиотек RX.

Это мое 3-е решение. Так получилось, что предыдущие 2 оказались
изобретением велосипеда. Если и это окажется тем же, прошу не критиковать.
Согласен, что если как следует поискать, то всегда можно найти что то лучшее.
Кто хочет ищите, кому нравится - пользуйтесь.

С уважением ко всем лисятникам Гончаров Н.А.
mailto:1Kolka@rambler.ru

Автор: Гончаров Н.А.

Автор публикации

не в сети 24 года

1Kolka

Комментарии: 0Публикации: 3Регистрация: 10-01-2002

(далее…)

]]> https://foxclub.ru/knowledgebase/sohranenie-i-vosstanovlenie-rabochih-oblastej/ Fri, 28 Aug 2020 11:32:15 +0000

Сохранение и восстановление рабочих областей.

Пара процедур для сохранения и восстановления рабочих областей. К примеру полезно, когда нужно вызвать модальную форму, а потом восстановить все как было. Восстанавливается все, Индексы, Связи, Отношения, Указатели. Может быть полезна при отладке, когда в какой то момент необходимо запомнить состояние рабочих областей, а за тем проанализировать его.

Сохранение и восстановление рабочих областей.

Работает примерно так:
AliasSave('MainArrayPublic')
**
* Здесь делаем все что хотим
**
AliasRead('MainArrayPublic')

MainArrayPublic - Это Ваш массив, который объявится глобальным. Таких массивов может быть множество, соответственно и восстанавливать рабочие области можно из любого.
Ограничения:
1. Число сохраняемых областей не более 100
2. Число связей у родительской таблицы не более 20

И вот еще что. В массиве хранится полный путь к таблице, и если Вы захотите после AliasSave изменить set path (defa), то AliasRead все равно найдет эту таблицу, даже если в окружении путей её не видно и она закрыта.
Ну удачи. Если Глюки какие, пишите.
Скачать alias.zip

Автор: Kolka

Автор публикации

не в сети 24 года

1Kolka

Комментарии: 0Публикации: 3Регистрация: 10-01-2002

(далее…)

]]> https://foxclub.ru/knowledgebase/upakovka-raspakovka-fajlov/ Fri, 28 Aug 2020 11:32:18 +0000

Упаковка / Распаковка файлов

Класс предназначен для упаковки/распаковки файлов одного каталога с использованием OLE об'екта ZLIBTOOL. Возможно создание многотомного архива.

Упаковка / Распаковка файлов

Для работы класса надо зарегистрировать OLE об'ект ZLIBTOOL, который находится в FOXZIF.ZIP. Описание использования класса также в FOXZIF.ZIP. В архив включаются файлы одного каталога согласно указанной маски. Возможно создание многотомного архива. Длина тома произвольная. На создание класса подвигла необходимость упаковки/распаковки файлов из FOXа. При этом под Win 2000 нагло режутся длинные имена при использовании DOSовских архиваторов типа ARJ. Вторая причина - это необходимость передачи архивов через INET, а на многих серверах установлено ограничение длины пересылаемых файлов.

Автор: SergEESTI

Автор публикации

не в сети 24 года

SergEESTI

Комментарии: 0Публикации: 2Регистрация: 21-12-2001

(далее…)

]]> https://foxclub.ru/knowledgebase/lenivaya-pereindeksacziya/ Fri, 28 Aug 2020 11:32:18 +0000

“ленивая” переиндексация

упрощает написание процедуры переиндексации

"ленивая" переиндексация

допустим вы дописываете программу и в конце как всегда - сервисные функции - переиндексация.
у вас уже есть куча баз в которых куча cdx tag-ов
не удобно лазить каждый раз в свойства базы и смотерть инексное выражение , чтобы потом его вставлять в процедуру.

чтобы немного упростить это дело (не заменить!!!) написал небольшую прогу. выберите нужную таблицу и запустите программку, потом полученные строки вставляете в свою процедуру

НО ограничения если у вас не совсем стандартный индекс: есть фильтры
или DESCENDING и т.п. то все таки надо будет ручками эти вещи дописать в процедуру переиндексации.

********************************* begin *****************
SET text on TO 'c:_list.txt'
set cons off

text

endtext

FOR nCount = 1 TO 254
IF !EMPTY(TAG(nCount))
text

endtext
ELSE
EXIT
ENDIF
ENDFOR
set text to
set cons on

*** открываем файл компируем оттуда текст в процедуру переиндексации
********************************* end *****************

а вот содержимое того файла

*** индексный файл C:PSBNEWCREDIT.CDX
index on KODTT tag TT additiv
index on STR(KODTT,3)+ALLTRIM(NOMER) tag TNOMER additiv
index on STR(KODTT,3)+ALLTRIM(NAME_F) tag TFNAME additiv
index on STATUS tag STATUSD additiv
index on DATE1 tag DOPEN additiv
index on STR(KODTT,3)+STR(KODDOG,6) tag TTDOG additiv
index on STR(KODTT,3)+STR(STATUS,1) tag TTSTATUS additiv

Автор: Sergii---1

Автор публикации

не в сети 6 месяцев

admin

Комментарии: 1Публикации: 123Регистрация: 10-12-2000

(далее…)

]]> https://foxclub.ru/knowledgebase/biblioteka-dlya-raboty-s-ini-fajlami/ Fri, 28 Aug 2020 11:32:18 +0000

Библиотека для работы с INI файлами.

Библиотека (DLL) для работы с INI файлами. Работает пока только со строковыми типами данных. Пример прилагается.

RWINI.DLL

Работая в Visual Fox Pro часто сталкиваешься с

проблемой хранения настроек, и каждый раз приходится решать

её довольно сложными методами.

Эта DLL предназначена для работы с INI-файлами.

Она имеет пока 2 функции: mReadString и mWriteString.

Пример на VFP:

DECLARE STRING mReadString IN "RWIni.dll" STRING, STRING, STRING
DECLARE STRING mWriteString IN "RWIni.dll" STRING, STRING, STRING, STRING
NameFile = 'MyFile.ini'
NameSection = 'MySectionInIniFile'
NameParam = 'MyParameterInSection'
ValueParam = 'MyString'
WAIT WIND mReadString (NameFile, NameSection, NameParam)
WAIT WIND mWriteString (NameFile, NameSection, NameParam, ValueParam)
CLEAR DLLS

mReadString вернет значение параметра NameParam секции NameSection.

mWriteString пропишет строку ValueParam параметру NameParam секции NameSection и вернет "OK". Если файл не существует, создаст его.

ВНИМАНИЕ: Если не указать путь к INI-файлу и его не будет видно в окружении, то он создастся в каталоге WINDOWS.

Если интересно, заходите за обновлениями. Планируется добавление функций

чтения и записи других типов и работа с реестром.

Кто хочет поругать, указать на недостатки или похвалить пишите.

Автор: Гончаров Н.А.

Автор публикации

не в сети 24 года

1Kolka

Комментарии: 0Публикации: 3Регистрация: 10-01-2002

(далее…)

]]> https://foxclub.ru/knowledgebase/otmetka-proizvolnoj-gruppy-zapisej-v-gride/ Fri, 28 Aug 2020 11:32:18 +0000

Отметка произвольной группы записей в Grid’е

Приведенный код демонстрирует один из возможных способов организации отметки произвольной группы записей в Grid’е, по правилам близким к стандартным для списков в Windows-приложениях.

Автор: Ившев Дмитрий

Автор публикации

не в сети 8 месяцев

po2

Комментарии: 0Публикации: 6Регистрация: 22-12-2001

(далее…)

]]> https://foxclub.ru/knowledgebase/sposob-opredelit-obshhee-kolichestvo-stranicz-v-reporte/ Fri, 28 Aug 2020 11:32:18 +0000

Способ определить общее количество страниц в Reportе

Способ определить общее количество страниц в Reportе

Способ определить общее количество страниц в Reportе

Предлагаю способ определить общее количество страниц в Reportе, чтобы юзер смог увидеть вожделенное «Страница X из Y». К сожалению, работает только с режимом предварительного просмотра.

1. В стартовой процедуре определить public переменную max_page_of_report.
2. В требуемом отчёте создать в PageHeader или PageFooter поле 'Стр. '+alltrim(str(_pageno))+' из '+alltrim(str(max_page_of_report)).
3. Создать в отчёте переменную (Report/Variables) с именем current_report_last_page.
4. Поставить этой переменной галочку Release after report, и прописать Value to store: get_last_page_of_report(). Остальное оставить как есть: Initial value – 0, Calculate – nothing, Reset at: End of report.
5. Прописать в какой-нибудь общий путь функцию:
function get_last_page_of_report
if max_page_of_report ]]> https://foxclub.ru/knowledgebase/postroenie-perekrestnoj-tabliczy-shahmatki-universalnaya-funkcziya/ Fri, 28 Aug 2020 11:32:17 +0000

Построение перекрестной таблицы-шахматки (универсальная функция)

Функция создания перекрестной таблицы (развертки - шахматки) в виде: первые колонки - информационные поля, затем числовые поля с именами N_... (число этих полей каждый раз будет разное), последнее поле - Итого по горизонтали (опционально).

Построение перекрестной таблицы-шахматки (универсальная функция)

Алгоритм: из источника создается промежуточная выборка по заданному условию, в которой методом разворачивания по Информационным полям и полю Группировки производится слияние (группировка) записей с числовой обработкой группы "слитых" строк по Информационному полю на основе выражения (по умолчанию - это SUM). На основе промежуточной отсортированной выборки строится Кросс-таблица путем добавления и заполнения в ней сводных числовых колонок (разворачиванием) по значению Группирующего поля и добавления строк по значению составного ключа нформационных полей.

Функцию можно использовать автономно или в составе Генератора Отчетов DBRAD32 - в качестве предварительно создаваемой таблицы для Кросс-отчета, который "умеет" выводить в Word и форматировать переменное число колонок (т.н. блок числовых колонок), перенося по полосам колонки, не помещающиеся на страницу. Из FLD-файла генератор автоматически загружает заголовки блока числовых колонок, вычисленные в функции. В результате клиент получает законченный отчет для любой выборки из источника данных. Пример такого Кросс-отчета см. на www.dbrad32.narod.ru ("Автономный генератор отчетов"). Функцию построения кросс-таблицы можно вызывать в методе Load Кросс-шаблона или в тексте Макро-шаблона (входящего в составной отчет Макро+Кросс ).

Для демонстрации работы функции распакуйте архив и запустите файл cross.prg.

Выражаю благодарность Юрию Ч. за окончательное тестирование функции.

Автор: Дм.Баянов

Автор публикации

не в сети 6 месяцев

admin

Комментарии: 1Публикации: 123Регистрация: 10-12-2000

(далее…)

]]> https://foxclub.ru/knowledgebase/cohranit-v-bmp-proizvolnuyu-oblast-formy/ Fri, 28 Aug 2020 11:32:18 +0000

Cохранить в bmp произвольную область формы

В BMP-файл можно сохранить и форму, не помещающуюся в окне формы (со скроллингом), и произвольную область формы (удобно сохранять графики и диаграммы). Решил эту задачу некий Рома (_vrs_@rambler.ru), прислав доработанный им класс. Разрешение на публикацию от него получено.

Автор: Натали

Автор публикации

не в сети 6 месяцев

admin

Комментарии: 1Публикации: 123Регистрация: 10-12-2000

(далее…)

]]> https://foxclub.ru/knowledgebase/formatmessage/ Fri, 28 Aug 2020 11:32:18 +0000

FormatMessage()

Функция показывает текст ошибки произошедшей при вызове функций WIN32API

FormatMessage()

На этом сайте много полезных классов, в некоторых обработка ошибок организована , в некоторых нет. Всем известна ф. GetLastError() , которая выводит номер произошедшей ошибки в вызове ф. WIN32API. Вот этот номер и надо дать в качестве параметра моей функции, и она покажет текстовое описание (НА РУССКОМ ЯЗЫКЕ!!!) ошибки.
Если Вы применяете функцию продекларированную в нестандартной библиотеке виндоса, то вам придется мою ф. немного видоизменить, дать в параметрах ссылку на файл с ресурсами ошибок. Ну и если у Вас английская версия виндоса , то и ошибки будут на инглише.
Пример вызова №: =Text_error(GetLastError()) или например Text_error(87).

Автор: Владимир Новиков

Автор публикации

не в сети 25 лет

Владимир Новиков

Комментарии: 0Публикации: 1Регистрация: 24-10-2000

(далее…)

]]> https://foxclub.ru/knowledgebase/rabota-s-yarlykami/ Fri, 28 Aug 2020 11:32:18 +0000

Работа с ярлыками

FLL-библиотека для создания ярлыков и чтения их реквизитов

Работа с ярлыками

Файл содержит FLL-библиотеку ShellLink.fll с двумя функциями: создать ярлык CreateLink и прочитать реквизиты ярлыка GetLink, а также исходник ShellLink.cpp и тестовый пример test.prg. Имена файлов в тестовом примере нужно заменить на что-нибудь свое.

Автор: Олег Бляхеров

Автор публикации

не в сети 25 лет

Олег Бляхеров

Комментарии: 0Публикации: 8Регистрация: 23-04-2001

(далее…)

]]> https://foxclub.ru/knowledgebase/makrointerpretator-proczedur-i-makrointerpretator-tekstov/ Fri, 28 Aug 2020 11:32:17 +0000

Макроинтерпретатор процедур и Макроинтерпретатор текстов

Предназначены для исполнения создаваемых 'на лету' пользовательских текстовых процедур (Интерпретатор процедур) и шаблонов текстов с макросами (Интерпретатор текстов). RunMacTxt() просто исполняет процедуру, GetMacTxt() возвращает текст с подставленными выражениями вместо вычисленных в фигурных скобках макросов.

Макроинтерпретатор текстовых процедур

Строки процедуры могут содержать функции и команды VFP, операции с глобальными переменными. Поддерживаются вложенные конструкции IF_ELSEIF_ELSE_ENDIF и DO WHILE, команды LOOP, BREAK, EXIT, комментарии (// или *, &&) и переносы строк (;), мониторинг ошибок. В функцию RunMacTxt передается переменная , содержащая текст процедуры из строк, разделенных символами перевода каретки. В функцию GetMacTxt передается переменная, содержащая текст со вставками в фигурных скобках любых выражений VFP или управляющих конструкций IF_ENDIF или DO WHILE с префиксом в виде знака амперсанда. Существует вариант GetMacTxt для текста RTF. Для проверки запустите файл MACRO.PRG.

Автор: Дм.Баянов

Автор публикации

не в сети 6 месяцев

admin

Комментарии: 1Публикации: 123Регистрация: 10-12-2000

(далее…)

]]> https://foxclub.ru/knowledgebase/netlib/ Fri, 04 Sep 2020 07:56:02 +0000

NETLIB

Перевод и адаптация класса Эда Рауха ( Ed Rauh www.universalthread.com , files archives, win32api) В любом языке есть свои ограничения. Фокс от них тоже не свободен. Но как известно, нет задачи, которую бы нельзя было бы решить, если это действительно нужно.
Как известно, вызов многих win32 функций требует использования косвенной адресации. Но это в Фоксе не проблема, используем @ . Вызов других функций требует передачи структур. Тоже ничего страшного-подсовываем массивы, имитирующие эти структуры. Но вот часть функций имеет самоссылочные структуры или ссылки на ссылки ( косвенно-косвенную динамическую адресацию) .
Другими словами в функцию должна передаваться структура, а в структуре косвенные ссылки на другие структуры. Вот тут лобовой способ решения на Фоксе не срабатывает. Подсовывание @ дважды в вызове функции и в ее теле при вызове из нее такой же структуры приводит к неправильной работе. Нужна более тяжелая артилерия.
То есть нужна подготовительная работа по возможности работы с памятью нужным образом. Само собой все это можно сделать на Фоксе. Только нужно знать -что и как. Ну а для чего. А вот ,например , как увидеть сетевое окружение. Ясно , что функция aprinters дает принтеры. Список драйвой тоже можно получить за дешево.
Я рассказывал об этом в своей предыдущей статье про использование winipi функций. Но вот получить все в дном пакете со свойствами, что на каком компьютере расположено, вообще получить сетевое окружение-это уже требует других функций. Или, например , присоединить или отсоединить программно сетевой диск, дать ему имя, сделать диск доступным другим пользователям или закрыть от постороннего доступа и все такое прочее. Можно даже сделать такую штучку.
У Вас есть Дельфийский конкурент, который вас достал своим амморальным поведением, но сидит на другом компьютере. Можно вырубить там дистанционно в реестре ссылки на нужные ему библиотеки, и несколько приятных часов ему обеспечено. Вот тут то и приходится вызывать функции , которые из Фокса не так просто и вызвать.
Эд Раух решил эту задачу и представил на использование публике.Как и мы все с вами тоже часто делаем. Сделал он это как полуфабрикат. Часть кода в классах, часть в текстах функций, часть в примерах. Вобщем ничего готового. Я посидел пару дней и доделал из этой каши более менее нормальную библиотеку классов. Правда комментариев новых как не было, так и нет. Но пользоваться можно. Названия методов интуитивны. Скажем -как посмотреть сетевое окружение в курсоре Фокса.
Нет ничего проще - Set classlib to netlib thisform.share1.getshare Результат будет в курсоре Библиотека-целое раздолье для программистов, обожающих сложности и C++. Ну у всех свои слабости

Автор публикации

не в сети 25 лет

Владимир Журавлев

Комментарии: 1Публикации: 2Регистрация: 26-03-2001

(далее…)

]]> https://foxclub.ru/knowledgebase/inkrementnyj-poisk-v-tablicze-locate/ Mon, 21 Nov 2022 09:06:51 +0000

Инкрементный поиск в таблице (locate)

Вот решил пополнить ряды классов для инкрементного поиска. Что можно сказать, смотрите, понравится, пользуйтес нет, тем более 😉 Для использования в колонке подменить Text1 на IncText. BackSpace - затереть 1 символ Ctrl+Enter - искать тоже-самое ниже.

Автор: Жихарев Дмитрий

Автор публикации

не в сети 6 месяцев

admin

Комментарии: 1Публикации: 123Регистрация: 10-12-2000

(далее…)

]]> https://foxclub.ru/knowledgebase/pechat-dos-otchetov-na-windows-printery/ Fri, 28 Aug 2020 11:32:17 +0000

Печать Дос отчетов на Windows принтеры.

Печать Дос отчетов на Windows принтеры. Печатает файлы в дос кодировке на лазерные и струйные принтеры. Определяет длину строки и позволяет резать отчет на листы, указав количество символов на листе.

Очень часто встречается проблема распечатки файлов в Дос кодировки на струйные и лазерные принтеры, которые аппаратно неруссифицированы. Windows система уже стала де факто. Программа позволяет масштабировать выходную информацию (задается размер шрифта), однако визуально это не отображается. Очень полезна для печати дос-отчетов в бухгалтерии. Позволяет разрезать отчет на любой формат. Вы просто указываете количество символов в строке. Реализована на VFp 6.0 и требует соответсвующих dll.

Автор: Абросимов

Автор публикации

не в сети 24 года

Abrosimov

Комментарии: 0Публикации: 1Регистрация: 08-10-2002

(далее…)

]]> https://foxclub.ru/knowledgebase/generacziya-menyu/ Fri, 28 Aug 2020 11:32:17 +0000

Генерация меню

Одна из самых нудных, но необходимых, задач - это разграничение прав доступа к системе. Для каждого типа рабочего места (то, что когда-то называлось АРМ'ом) нужно описать и сгенерировать свое меню. Предлагается следующий подход. Создается базовое меню, которое содержит все опции и на его основе с помощью прилагаемой программы генерируются меню для соответствующих АРМ'ов. Так как меню в FoxPro - это DBF-таблица, то права доступа записываются прямо в нее, в поле Comment. Необходимое условие - в рабочей системе должен быть классификатор рабочих мест, который содержит как минимум ID (Char или Integer), наименование рабочего места и имя соответствующего меню. В каталоге HOME() должен быть файл Genmenu.fxp. Этот классификатор используется как при генерации меню, так и при запуске системы для вызова нужного меню. На VFP7 не проверял - попробуйте. Все исходники прилагаются.

Автор: shn

Автор публикации

не в сети 6 месяцев

admin

Комментарии: 1Публикации: 123Регистрация: 10-12-2000

(далее…)

]]> https://foxclub.ru/knowledgebase/generator-unikalnyh-znachenij-guid/ Fri, 28 Aug 2020 11:32:17 +0000

Генератор Уникальных значений GUID

Генератор GUID позволяет АВТОНОМНО создавать УНИКАЛЬНЫЕ значения на ИЗОЛИРОВАННЫХ информационных уровнях с быстродействием до 10000 значений в секунду. Полученные значения упакованы в 8 (или 10) байт, упорядочиваются по возрастанию в хронологическом порядке создания и имеют возможность восстановления даты создания. Удобный способ создания ПЕРВИЧНЫХ КЛЮЧЕЙ. 19.11.2001 добавлены функции TimFromGuid() и SecFromGuid().

Генератор Уникальных значений GUID

Известен метод получения GUID, разработанный фирмой Microsoft , Contributions by John Desch. Этот метод создает неупакованное значение GUID длиной в 38 байт, и декларирует наличие защиты от дублирования значений на изолированных системах при автономном вызове функции '... returns a unique value: that is, no other invocation, on the same or any other system (networked or not), should return the same value...'.

Предлагаемый здесь улучшенный метод получения компактного надежного GUID для изолированных систем строит упакованное значение длиной в 8 или 10 байт, имеет открытую описанную физическую модель построения. Значение создается на основе следующих компонент:

• Временных отметок (вместимость до 20 лет),
• Идентификтатора программной Сессии и Аппаратного идентификатора (HDD),
• (Опционально) дополнительного кода от генератора случайных чисел (10-байтовый GUID).

Для реального использования достаточен вариант 8-байтового GUID, т.к. вероятность дублирования значения на той же микросекунде после сдвига часов хотя и ненулевая, но мизерно мала. Улучшенный 10-байтовый метод (с доп. случайным кодом) сводит такую вероятность фактически к нулю, хотя требует дополнительно два байта в значении.

В значении GUID используются только неконфликтующие символы ASCII, доступные для ввода с клавиатуры. Метод генерации является базовым в проекте DBRAD32 (www.dbrad32.narod.ru) при создании первичных ключей, классов справочников, отношений, подсвеченных строк в локальных сессиях, идентификаторов объектов и т.п. Надежность метода проверена на протяжении 5-ти лет.

Приложенный файл архива guid.zip содержит два файла - guid.doc (комментарий)и guid.prg (исходный код функций). Для проверки достаточно просто запустить guid.prg. Для использования генератора GUID в своем приложении необходимо скопировать в него текст функций, в начале приложения инициализировать генератор однократным вызовом функции IniGenGuid() и затем получать значение GUID вызовом функции Guid(). Функции DatFromGuid() и TimFromGuid() позволят получить дату и время создания значения.

Автор: Дм.Баянов

Автор публикации

не в сети 6 месяцев

admin

Комментарии: 1Публикации: 123Регистрация: 10-12-2000

(далее…)

]]> https://foxclub.ru/knowledgebase/virtualnye-mnogopolzovatelskie-blokirovki-semafory/ Fri, 28 Aug 2020 11:32:17 +0000

“Виртуальные” многопользовательские блокировки (семафоры)

Семафорные логические блокировки позволяют разделять доступ группам пользователей к любым объектам, которым можно присвоить идентификатор внутри группы. Объектами могут выступать таблицы, записи, директории, группы файлов и любые абстрактные объекты. На один объект может быть наложено НЕСКОЛЬКО Shared-блокировок или одна Exlusive, при этом блокировки "знают" имя своего хозяина и момент блокирования. Такие нефизические блокировки организуются в виде независимого механизма во внешнем семафорном списке.

"Виртуальные"многопользовательские блокировки (семафоры)

Примерами типовых задач для таких блокировок являются:
1) Разделение доступа к группе файлов в директории - захват и манипуляция с группой любых файлов разного типа, при этом остальные пользователи не должны иметь доступ к этой группе файлов на время сеанса.
2) Групповая блокировка для записи - группа пользователей редактирует одну запись, блокируя ее в режиме Shared, при этом для удаления эта запись недоступна.

Блокировки организуются в виде внешней таблицы семафорных блокировок, в которую заносится запись о блокировке с информацией об :
1) идентификаторе объекта
2) имени пользователя
3) режиме блокировки (монопольная или разделяемая)
4) времени и дате установки блокировки

При аварийном завершеннии приложения, выставившего блокировку, она автоматически дезактивируется в семафоре. Освободившиеся записи используются для других блокировок, оптимизируя механизм от разбухания таблицы и необходимости ее упаковки.
Логические блокировки позволяют гибко отрегулировать множественный доступ к нестандартным объектам, не производя ФИЗИЧЕСКУЮ блокировку стандартных объектов БД (таблиц и записей). Для полной и правильной работы с записями требуется использование в них уникальных первичных ключей.
В приложенном файле slock.prg находятся набор автономных функций (SemLock, SemUnlock и SemLocked) с тестовым примером, иллюстрирующие многопользовательские блокировки для абстрактных объектов. Для проверки необходимо откомпилировать файл и запустить его несколько раз (каждая сессия будет имитировать пользователя).

Автор: Дм.Баянов

Автор публикации

не в сети 6 месяцев

admin

Комментарии: 1Публикации: 123Регистрация: 10-12-2000

(далее…)

]]> https://foxclub.ru/knowledgebase/vfpcgi-dll-pishem-cgi-na-visualfoxpro/ Fri, 28 Aug 2020 11:32:17 +0000

VFPCGI.DLL – Пишем CGI на VisualFoxPro

VFPCGI - динамическая библиотека для Windows 9x/2000, с помощью которой можно легко и быстро сделать CGI скрипт на Visual FoxPro.

VFPCGI.DLL - Пишем CGI на VisualFoxPro

VFPCGI - динамическая библиотека для Windows 9x/2000, с помощью которой можно легко и быстро сделать CGI скрипт на Visual FoxPro. Подробности на http://vfpcgi.narod.ru
]]> https://foxclub.ru/knowledgebase/prostoj-kalendar/ Fri, 28 Aug 2020 11:32:17 +0000

Простой календарь

Служит для заполнения поля ДАТЫ. Весь календарь исполнен в prg модуле. Подключается элементарно. В архиве есть пример.

Автор: Alexsum

Автор публикации

не в сети 6 месяцев

admin

Комментарии: 1Публикации: 123Регистрация: 10-12-2000

(далее…)

]]> https://foxclub.ru/knowledgebase/prosmotr-otcheta-s-iznanki/ Fri, 28 Aug 2020 11:32:17 +0000

Просмотр отчета с изнанки

Удобный просмотр файлов отчетов (.frx)

Просмотр отчета с изнанки

Если Вы используете стандатрный генератор отчетов Visual FoxPro и сталкивались с проблемой поиска переменной в многочисленных полях, то эта программа вам подойдет.
В zip'e exe-шка и вспомогательная таблица. В отдельной директории не нуждаются.

Автор: Лариса Ляхт

Автор публикации

не в сети 25 лет

Lara

Комментарии: 0Публикации: 1Регистрация: 18-04-2001

(далее…)

]]> https://foxclub.ru/knowledgebase/klass-spravochnikov/ Fri, 28 Aug 2020 11:32:17 +0000

Класс справочников

Для одной из задач понадобилось возможность добавлениия справочников в процессе работы. В итоге возник этот класс.

Автор: Fly_Tiger

Автор публикации

не в сети 6 месяцев

admin

Комментарии: 1Публикации: 123Регистрация: 10-12-2000

(далее…)

]]> https://foxclub.ru/knowledgebase/eshhe-raz-zapushheno-li-prilozhenie/ Fri, 28 Aug 2020 11:32:17 +0000

Еще раз запущено ли приложение

Многие пользователи не задумываясь запускают по несколько копий программ. Что бывает нежелательно. В связи с этим мною была написана библиотечка (FLL),а другой пользователь Fox по имени Андрей (фамилию жалко не знаю) сделал DLL. Смысл данных изысканий состоит в том что функции возвращают список имен процессов и имена окон.

Автор: Александр и Андрей

Автор публикации

не в сети 25 лет

Будрин

Комментарии: 0Публикации: 1Регистрация: 21-09-2001

(далее…)

]]> https://foxclub.ru/knowledgebase/organizacziya-steka-v-prilozhenii/ Fri, 28 Aug 2020 11:32:17 +0000

Организация стека в приложении.

Для чего? - спросите Вы. Отвечу: Очень просто обмениваться данными между отдельными блоками приложения (допустим - формами). И всего-то 20-25 строк! Каждый разработчик когда-то сталкивается с проблемой: нужно возвратить из формы несколько параметров в вызвающую программу. Я - столкнулся! И вот решение - организация стека LIFO, причем, сфера его применения оказалась гораздо шире, чем просто возврат параметров из формы 🙂 Стек - это объект, созданный на основе класса cstStack , обладающий тремя методами: Push(), Pop(), Clear(). Работает так: величина, помещенная в стек последней - выйдет первой (LIFO). Величины, помещаемые в стек, могут быть любого допустимого типа, т.е. не надо делать дополнительных преобразований, размер же стека = ограничению Фокса на размер массивов. Решение предоставлено в виде тестовой программы. Запустите - увидите. Понравится - пользуйтесь. Jimmy

Автор: Дмитрий Орлов

Автор публикации

не в сети 25 лет

Jimmy

Комментарии: 0Публикации: 6Регистрация: 30-07-2001

(далее…)

]]> https://foxclub.ru/knowledgebase/vychislenie-md5-signatur-fajlov/ Wed, 23 Nov 2022 09:05:48 +0000

Вычисление MD5 сигнатур файлов

Возникла задача определить "качество" хранения и копирования неких больших файлов. Создавались они само собой на жестком диске , потом могли быть скопированы по локальной сети, закачивались на FTP сервер, записывались на CDR(W). Тут и встала проблема обнаружения "битых" копий. Общий метод борьбы известен: считай контрольную сумму. Какой из алгоритмов выбрать?

Вычисление MD5 сигнатур файлов

Зачем это понадобилось

Возникла задача определить "качество" хранения и копирования неких больших файлов. Создавались они само собой на жестком диске , потом могли быть скопированы по локальной сети, закачивались на FTP сервер, записывались на CDR(W). Тут и встала проблема обнаружения "битых" копий. Общий метод борьбы известен: считай контрольную сумму. Какой из алгоритмов выбрать? Остановились на MD5 по следующим причинам:

• это современный, стойкий, быстрый алгоритм
• существуют консольные утилиты для вычисления
• бесплатная реализация в виде динамической библиотеки
• нафига еще искать, если это прекрасно работает 😉

The MD5 Message-Digest Algorithm

Сначала заставим Google поискать "md5". В первых строках получаем ссылку на MD5 Homepage (unofficial) откуда узнаем, что

MD5 был разработан в 1992 году Профессором Ronald L. Rivest из Массачусетского технологического института (MIT), одним из основателей RSA Security. Подробное описание можно найти в RFC 1321, а если коротко, то

[MD5 алгоритм] получает на вход сообщение произвольной длины и на выходе выдает "подпись"(сигнатуру) длиной 128 битов. Предполагается, что не существует двух сообщений имеющих одинаковые сигнатуры, или, что невозможно создать сообщение с заранее заданной сигнатурой. MD5 алгоритм в основном используется в крипрографических приложениях типа RSA. По существу, MD5 - это способ проверки целостности данных, гораздо более надежный, чем контрольная сумма или другие методы.

Другой умный мужик Francisco Carlos Piragibe de Almeida написал нам на счастье a DLL with a BAS wrapper module

Кроме того находим парочку консольных утилит

• Command Line Message Digest Utility
• MD5 Checksum Utility

Условия использования простые - не забывайте указать "RSA Data Security, Inc. MD5 Message-Digest Algorithm" в своих программах и других материалах. Что собственно и делем 😉

Начинаем реализовавать новые знания

Для начала бэйсиковскую программку переводим на лисиный язык, попутно исправляя ошибки (кому интересно может тоже поразвлекаться с Fault Error) и оформляя все в виде класса.

     
 *-------------------------------------------------- * Это будет метод Init *--------------------------------------------------   
  DECLARE INTEGER MDStringFix IN aamd532.dll STRING s, LONG l, STRING r   
  DECLARE INTEGER MDFile IN aamd532.dll STRING f, STRING r   
 *-------------------------------------------------- * Function MD5String -- оформим одноименным методом *--------------------------------------------------   
  PARAM s   
  r = SPACE(32)   
  l = LEN(s) = MDStringFix( s, l, @r)   
  RETURN r   
 *-------------------------------------------------- * Function MD5File -- оформим одноименным методом *--------------------------------------------------   
  PARAM fname   
  r = SPACE(32) = MDFile( fname, @r)   
  RETURN r   
    

В Command окне протестируем оба метода. Для проверки первого в конце RFC 1321 приведены тестовые образцы. Для проверки сигнатуры файла возьмем образец из дистрибутива FreeBSD 4.1-RELEASE В каждой папке с файлами там имеется файл checksum.md5, который представляет собой список сигнатур файлов.

     
  set classlib to md5   
  o=createobject("md5") && ------ Правильные ответы -------   
  ? o.md5string("") && d41d8cd98f00b204e9800998ecf8427e   
  ? o.md5string("a") && 0cc175b9c0f1b6a831c399e269772661   
  ? o.md5string("abc") && 900150983cd24fb0d6963f7d28e17f72   
  ? o.md5string("message digest") && f96b697d7cb7938d525a2f31aaf161d0   
  ? o.md5string(space(15000000)) && Сигнатура 15 миллионов пробелов ;)   
  ? o.md5file("bin.aa") && e16d5641bd71c1308b9a85d47b3e6309   
  ? o.md5file("blabla.bla") && FILE NOT FOUND   

Собственно метод, используемый во FreeBSD, нас вполне устраивает. Перед тем как переместить данные будем создавать файл checksum.md5 Для этого служит метод нашего класса MD5MakeList, которому будем передавать путь к папке с данными, а он породит нам список и вернет число обработанных файлов или -1 при ошибке. Позднее в класс были добавлены простенький "прогрессбар" (чтобы пользователь не скучал ;), а также свойства:

StopAtError -- если .F., то процесс обсчета не прерывается при ошибках.
BadFileCount -- после MD5MakeList содержит число необсчитанных файлов.

Download

Это архив с классом md5.vc*, библиотекой aamd532.dll и утилиткой md5.exe

aamd532.dll скопируйте в WindowsSystem или WINNTSystem32

PS. MD5 (md5vfp.zip) = dc8e6ec6d0e84fff9fb4c73289c09210 🙂

---

2001, Тепликов Илья, itp@karelia.ru

Автор: Илья Тепликов

Автор публикации

не в сети 2 месяца

Joys

Комментарии: 2Публикации: 177Регистрация: 25-06-2000

(далее…)

]]> https://foxclub.ru/knowledgebase/vfp-grid-chast-i/ Fri, 28 Aug 2020 11:32:17 +0000

VFP грид, часть I

(Авторский перевод статьи "VFP Grids, Part I" в Universal Thread Magazine за Август 2001. См. http://www.universalthread.com/Magazine/August2001/, спасибо также Наде Носоновской за помощь в переводе и корректировке текста и за дополнительные примеры.)

Что такое грид и когда его использовать?

Грид - это набор объектов ФоксПро, позволяющий представлять данные в виде таблицы-списка, который можно просматривать в двух направлениях при помощи полос прокрутки. Грид состоит из главного объекта грида и набора колонок. Каждая колонка, в свою очередь, должна иметь объект заголовка и контрол, который позволяет редактировать и отображать данные в колонке грида (по умолчанию это TextBox). Грид выглядит как прямоугольная область с линейной решеткой, заголовками вверху каждой колонки, полосами прокрутки и некоторыми другими полезными вещами, такими как метки записей, метки удаления записи, полоска для разделения грида на две части.

Но на самом деле, отображение данных не настолько свободно, как, например, в таблице Excel. Грид требует набор данных (псевдоним), чтобы отобразить что-то. В пределах одной колонки сложно организовать отображение различных типов данных для различных строк. Грид имеет одинаковый размер всех строк, и колонка имеет одинаковую ширину для всех строк. Существуют также некоторые ограничения, которые могут выглядеть странно, пока не вспомнить о том, что грид на самом деле является контролом, построенным на коде комманды BROWSE, поддерживаемой из более ранних версий ФоксПро. Это может ответить на много вопросов по поводу странного поведения грида и его свойств. Несмотря на все хлопоты с ним связанные, грид - весьма полезный контрол и очень популярен среди программистов ФоксПро, потому существует также много обходных путей и решений для гридов, которые позволяют пробиться сквозь ограничения и создавать действительно замечательные вещи. Ограничения, связанные со странностями грида, не должны быть ключевым аспектом в принятии решения об использовании грида в приложении.

Грид полезен для отображения (просмотра) данных в компактной форме (большое количество данных на одну страницу). Грид хорош для выпадающего списка или для отдельной страницы формы - списка для поиска и навигации по данным. Не очень хорошо использовать грид как основное средство навигации по данным, т.к. грид занимает большое место на форме. Но часто грид является основным средством навигации и управления по данным на самой основной (начальной) форме - на грид налагается большое количество функциональности для вызова других форм для редактирования данных.

Грид полезен для любых регулярных данных только для чтения. Плохая идея использовать грид для редактирования данных. Редактирование данных гридом хорошо использовать и легко организовать только в приложениях административного типа. Редактирование данных при помощи грида имеет много проблем, если пытаться пробиться сквозь ограничения и странности грида в ФоксПро. Но, несмотря на это, такие формы данных, как редактирование списка элементов накладной или ордера, все-таки более естественны для пользователя, если они представлены в виде списка-таблицы (грида) для редактирования. Такие случаи - исключение, но не правило, не ставьте гриды на каждой форме только потому что очень просто редактировать данные в них. Если использовать гриды повсюду, то бысто обнаружите себя в проблемах, т.к. грид - довольно сложное средство, которое может быстро выйти из-под контроля. Надо будет после этого потратить много усилий, чтобы решить проблему, найти решение и потом далее исравлять проблемы, следующие за ними. Обычно данные редактируются при помощи формы с набором контролов для каждого поля данных и набора средств для навигации по данным, записи/отмены изменения и некоторых других средств специфических для конкретной формы. Организация такой формы при помощи грида - это прямой путь потратить дополнительное время. Конечно, если у вас есть время и вам нравится поиграть со странностями грида (кто кого?), грид - прекрасный контрол для проведения времени на поиск и изобретение решений и обходных путей.

Автоматическая перепривязака колонок грида

Одна из странностей грида, которая проявляется довольно часто, это автоматическая перепривязка колонок грида к полям набора данных. Можно обнаружить, что грид отображает не те данные, которые вы ему указали через свойство ControlSource в колонках. В дополнение, данные в колонках отображены в порядке физического размещения полей в наборе данных, несмотря на то, что начальный порядок следования колонок был задан иным. Почему так?

• Потому что свойство RecordSource грида изменилось во время дизайна. После этого свойство ControlSource всех колонок очищается, что часто упускается программистом. После запуска формы такой грид сам назначит поля колонкам. Для такого случая делайте резервную копию всех значений этого свойства, в основном используют свойство Comment колонки.
• Потому что свойство RecordSource грида изменилось во время выполнения. Если это не порсто ошибочное повторное изменение, то надо сохранять значения ControlSource для всех колонок, а после присвоения набора данных - восстанавливать.
• Возможно что грид был перестроен, об этом - в следующей части этой статьи.

Это все не так досадно, как побочные эффекты после такого поведения грида. В основном, нет никакой разницы, пока грид не имеет сложной функциональности и построения. Например, если значения колонки отображались при помощи выражения - выражение будет утрачено, и только поле будет отображаться Например, вместо значения PADR(mMyMemoField,200) поле покажет "Memo" в колонке грида). В гриде появляются нежелательные поля, такие как поле главного ключа таблицы, про которое пользователь не имеет никакого представления. Но самый опасный случай, когда в гриде есть некоторые необычные контролы. Простой пример - в гриде есть CheckBox, и грид решил привязать колонку с ним с полю символьного типа, ФоксПро выдает ошибку несовпадения типов при первом же обновлении изображения грида: 'Type is not supported by this control'.

Несмотря на все это, все-таки бывают ситуации, когда набор данных грида надо изменять в любом случае, например, чтобы избежать перестройки грида. Ниже приведены примеры кода, как сохранить значения ControlSource всех колонок грида при помощи свойства Comment колонки, и как восстановить их.

&& сохранить ControlSource каждой колонки
with {grid}
   local nColumnIndex
   for m.nColumnIndex = 1 to .ColumnCount
      .Columns(m.nColumnIndex).Comment = .Columns(m.nColumnIndex).ControlSource
   endfor
endwith
 
&& восстановить ControlSource каждой колонки
with {grid}
   local nColumnIndex
   for m.nColumnIndex = 1 to .ColumnCount
      if !empty(.Columns(m.nColumnIndex).Comment)
         .Columns(m.nColumnIndex).ControlSource = .Columns(m.nColumnIndex).Comment
      endif
   endfor
endwith

Здесь {grid} это ссылка на объект грида.
Хорошая идея сделать эти куски кода методами класса грида в Вашем приложении. Так же, хорошо вызывать восстановление значений ControlSource в событии Init грида на случай, если программист случайно изменил или спровоцировал изменение (просто нажал Enter на свойстве RecordSource в редакторе свойств) во время дизайна (для этого надо в дизайне делать копию значений).

Для этого можно выполнить следующий код (идея принадлежит Cetin Basoz из UniversalThread):

********************************************************************
* Description.......: GridBuilder - allows to build a grid in design-time
*  Calling Samples...:
*  Parameter List....:
*  Created by........: Cetin Basoz
*  Modified by.......:
********************************************************************
*custom builder not registered
aselobj(arrObj)
for each oObj in arrObj
         if upper(oObj.baseclass)='GRID'
                 for each oColumn in oObj.columns
                     oColumn.Comment = oColumn.ControlSource
                 next
         endif
next

Важное примечание: не делайте никакого обновления любого видимого объекта грида до того, как все значения ControlSource будут восстановленны. Иначе может выдаваться сообщение типа 'Type is not supported by control', как описано выше.

Автоматическая перестройка грида

Когда-нибудь случалось, что ваш грид не хочет вести себя так, как вы ему указали во время дизайна? Контролы утрачены в колонках после запуска? Код событий в колонках, заголовках или контролах не запускается? Перестройка грида - это полное уничтожение всех колонок и контролов в гриде и создание их заново, используя стандартные контролы ФоксПро со всеми значениями свойств по умолчанию. Это утрата всех значений, свойств, кода методов и событий контролов в колонках. Свойство CurrentControl принимает значение "Text1" - контрол TextBox в колонке по умолчанию. Заголовки утрачены и приняли значения названий полей набора данных. Как правило, это катастрофа, когда не понимаешь, что случилось с гридом.

Перестройка случается в нескольких случаях, которые описанны ниже с соответствующими решениями для них.

1. Грид перестраивает себя всегда, если набор данных для этого грида, указанный в RecordSource, закрывается. Если это -представление (View), то обычно перестройка не возникает по команде Requery(). Если это запрос, то переприсвоение другого запроса или закрытие набора данных -результата предыдущего запроса, тоже запускает перестройку. Также перестройка возникает, если было использовано SQL Pass-Through (SPT) функции для выборки в набор данных для грида, и этот запрос запущен заново для выборки в тот же набор данных (т.е. перечитывание данных через SPT запускает реконструкцию, тогда как для представления requery() не запускает ее).

Чтоб избежать реконструкции, когда обновляется набор данных грида, до того, как делать любые действия, описанные выше, надо присвоить пустую строку свойству RecordSource грида (но только не строку с одним пропуском - " ", а именно пустую - ""). Проверяйте Ваш код аккуратно, чтоб запрограммировать это в правильном порядке действий с гридом, и ничто другое не испортит его. (Строку кода, запускающую перестройку грида, можно поймать, поставив SET STEP ON в событии BeforeRowColChange грида.) После того, как набор данных для грида подготовлен заново, надо присвоить название (Alias) набора данных или запрос гриду заново. Перестройка при таком способе не возникает, но происходит автоматическая перепривязка колонок грида после присвоения набора данных.
Пример кода:

* сохранить ControlSource каждой колонки
...........
{grid}.RecordSource = ""
* изменения в наборах данных для грида, закрывание/открывание заново или SPT запрос
...........
* Восстановить набор данных для грида
{grid}.RecordSource = "{НазваниеНабораДанных}"
* restore the control sources of columns here
...........

Здесь {grid} - это ссылка на объект грида,
{НазваниеНабораДанных} - это псевдоним (Alias) набора данных или текст запроса. В наиболее общем случае, как набор данных для грида псевдоним можно выбрать из значений свойства ControlSource колонок, т.к. ФоксПро всегда подставляет автоматически псевдоним к названию поля в колонке, приводя значение к формату "псевдоним.поле" несмотря на то, что во время дизайна программист указал только поле.

Все замечания относительно автоматической перепривязки колонок к полям относятся и к этому случаю.

Существует и другой способ отменить перестройку грида - при помощи события BeforeRowColChange в гриде. Это событие запускается всегда перед тем, как грид перестроится. Оно запускается в любом случае: когда набор данных грида закрывается, SPT-запрос заново выбирает данные в набор данных грида; несмотря на то, что грид невидим, неактивен и независимо от настроек грида. Самое чудесное то, что комманда NODEFAULT, используемая в этом событии на протяжении всего времени обновления набора данных, отменяет перестройку грида вообще, но следует пользоваться этим очень аккуратно, т.к. могут возникать нежелательные побочные эффекты.

Вот пример кода для обновления набора данных грида таким способом:

thisform.GridRefreshing = .T. && сообщить, что данные будут обновляться
... выполнить обновление данных
thisform.Grid.RecordSource = thisform.Grid.RecordSource
thisform.Refresh && или grid.refresh
DOEVENTS && если нужно - просто протестируйте без этого
&& после этого момента грид перестает запускать перестройку
thisform.GridRefreshing = .F.

В событии BeforeRowColChange грида такой код:

if PEMStatus(thisform,"GridRefreshing",5) AND thisform.GridRefreshing
   nodefault && отменить перестройку на протяжении обновления данных
   return
endif

Можно поставить этот код в класс грида для организации этой функциональности, тогда свойство GridRefreshing можно перенести в грид.
Иногда после такого способа нужно поставить фокус за пределы грида и обратно, так как текущая клетка грида может показывать звездочки ('*******').

К сожалению, невозможно определить причину запуска события BeforeRowColChange, чтоб различить, когда запускается перестройка грида, и когда это событие запускается перед сменой текущей клетки в гриде или получения фокуса гридом. Просто используйте свойство-флажок для этого, как в примере. Конечно, если у вас есть время, можно организовать класс грида с покрывающей его прозрачной прямоугольной областью, чтоб выловить все события мышки до того, как событие грида BeforeRowColChange запустится. Это также требует ловить события клавиатуры в событии KeyPress формы при активном гриде (свойство KeyPreview формы должно быть .T. для этого), и надо заключить грид в объект контэйнера, чтоб поймать момент получения фокуса гридом.

Оба подхода имеют существенный недостаток: необходимы дополнительные строки кода для грида во всех местах в коде, которые могут вызвать перестройку. Если эти места находятся во многих формах и классах, то весьма трудно их все обнаружить; и в дополнение необходимо во всех этих местах кода иметь ссылку на грид. Также, при динамическом обновлении данных грида при помощи представления, при переходе на использование удаленного доступа к БД проблемы будут при использовании функций SQL Pass-Through, поскольку обновление данных ими запускает перестройку (тогда как представления - нет, но представления для удаленного доступа (Remote View) не всегда подходят). Проблемы возникают в основном из-за того, что программист, не зная об перестройке грида или не предусматривая ее, использует для представления комманду requery() в разных местах кода и оставляет их так разбросанными не думая, что это плохо. Когда осуществляется перевод кода на работу через SQL Pass-Through, надо искать все эти места, и, в дополнение, добавлять код для отмены перестройки грида при необходимости. Если это в других классах или формах, то это может стать большой затратой времени. Совет: разместите обновление данных, открывание и закрывание наборов данных и код всех других действий с данными в одном месте - методах формы или объекта доступного нескольким формам. Всегда предполагайте, что некоторый код работы с данными может в будущем требовать дополнительные строки кода, даже если это просто вызов комманды requery(). В будущем это окупится - надо будет вносить изменения только в одном месте вместо поиска всюду, где только можно, в случае таких изменений. Перестройка грида - один из таких случаев. Например, создайте класс грида, который также будет содержать методы для работы с данными, отображаемыми гридом. При помощи ссылки на объект такого грида обновление данных будет вызываться одним вызовом метода объекта во всех формах, где нужно обновление этих данных. В случае изменений в коде надо будет вносить изменения только в одном месте - этом методе грида. Ну ладно, скорее всего, вы не будете строить приложений, которые потребуют таких сложностей...

Будучи разочарованы поведением грида, программисты также часто создают временный набор данных (курсор) и используют его как набор данных для грида, потом обновляют данные в нем путем удаления старых записей и копирования новых. Если такой курсор уже есть в программе, то обновлять его содержимое таким способом несложно. Но есть небольшая проблема - вертикальная полоса прокрутки показывает общее количество записей, которое намного больше, чем реально отображаемое (из-за множества записей помеченных на удаление).

2. Перестройка грида запускается также когда грид инициализируется, но свойство RecordSource пустое или набор данных для грида не существует (еще не открыт или запрос не запускался). В таком случае грид перестраивает себя, используя текущий псевдоним как набор данных, если таковой открыт в текущей рабочей области (или остается пустым, если не открыт, но все колонки уничтожаются все равно). Это случается часто: если надо открыть набор данных в зависимости от параметров позже чем в событии Load формы, то используйте следующую технику.

В событии Load создайте пустой курсор при помощи комманды CREATE CURSOR, используя ту же структуру, что и для набора данных грида под тем же именем, набор данных грида должен быть указан на этот курсор (на это имя). Во время открывания реальных данных грид уже может быть инициализирован, потому используйте решения из п.1. для того, чтоб закрыть временный курсор и открыть реальные данные. Другое решение - поставить объект на форму, событие Init которого запускается до того как событие Init грида.

Второй подход - добавлять грид к форме на лету. Создайте класс грида со всеми необходимыми настройками и колонками и не кладите его на форму во время дизайна. В коде Init формы используйте AddObject() или NewObject(), чтоб добавить его к форме или контэйнеру на форме после того, как набор данных для грида приготовлен.

3. Грид перестраивается, если установить количество колонок в 0 или -1. Я надеюсь, Вы никогда этого не делаете, не правда ли? 😉 Все-таки иногда это может быть использовано в простых административных формах, которые позволяют открыть любую таблицу для ее просмотра в гриде. Но из-за перестройки такой грид может иметь ограниченную функциональность, или вся функциональность в таком случае должна быть размещена в классах, которые используются после перестройки способом добавления их к гриду и замещения объектов по умолчанию. К сожалению, не существует другого способа задать свои классы и настройки для колонок, которые создаются ФоксПро автоматичски.

4. Грид перестраивается, когда набор данных выходит за пределы видимости грида. Это часто случается, когда набор данных открыт в одной сессии данных, а грид реально инициализирован в другой сессии данных, потому когда грид пробует обновить свое изображение, другая сессия данных является текущей, в которой этот набор данных не существует. Это может также возникнуть и в других ситуациях при активном переключении программистом сессий данных.

Перестройка грида не может быть отменена путем создания и хранения ссылок на каждую колонку грида (объект не уничтожается, если на него существует ссылка где-то в переменной) - грид просто отторгает объекты колонок от себя и очищает много свойств. Создание класса грида уже с колонками и его использование также не предотвращает перестройку (класс с объектами не позволяет удалять объекты в нем там, где этот класс используется как объект, и грид не исключение, но перестройка грида - исключение).

Также существует популярный обход перестройки грида вообще - создание грида программным образом динамически и пересоздание его после обновления данных. Создайте класс грида со всеми настройками. Программным образом удаляйте его с формы перед обновлением данных и добавляйте заново после обновления. Это требует некоторых проверок в таком коде, программного присвоения значений некоторым свойствам грида и т.п. Этот способ плох тем, что он требует создания своего класса грида для каждого частного случая, знать название этого класса, создавать программу для добавления каждого грида - много кода и объектов программирования, которых можно избежать.

Можно также создавать полностью грид и все его колонки, объекты и настройки при помощи одного только кода. После перестройки нужно запускать этот код каждый раз заново. Этот подход хорош только в случае, если перестройка нужна, например, если колонки грида динамично добавляются/убираются (нельзя создать класс грида) или для административных целей - для просмотра любой таблицы в гриде и в то же время иметь некоторую функциональность, такую как редактирование memo-полей в контроле EditBox, сортировка по нажатию на заголовок и т.п.

 

Блокировка (замораживание) колонки, чтоб она была всегда видима, несмотря на прокрутку

Если надо заблокировать (заморозить) некоторую колонку или колонки грида, чтоб они были всегда видны слева даже после горизонтальной прокрутки, первая мысль приходит - это разделить грид на две части: левая показывает первые колонки, которые нам нужно, а правая используется для прокрутки. Но для пользователя это выглядит странно и требует объяснений: эти все лишние полосы прокрутки, слева часто больше, чем одна колонка и т.п. ...

Грид имеет хорошое свойство "LeftColumn", содержащее порядковый номер колонки, которая сейчас отображена как самая левая колонка среди отображаемых колонок грида при текущей горизонтальной прокрутке. Это значение изменяется при прокрутке. Можно его использовать, чтобы переместить нужную нам колонку на место левой отображаемой позиции, в событии Scrolled грида, заблокировав эту колонку таким образом:

if nDirection>3 this.Columns(1).ColumnOrder = this.LeftColumn endif И, для автоматической прокрутки по перемещению текущей клетки грида, в событии AfterRowColChange добавьте строку: this.Columns(1).ColumnOrder = this.LeftColumn

Теперь первая колонка грида всегда отображается первой!

Советы для грида

• -При использовании запроса как набора данных для грида, всегда добавляйте "INTO CURSOR :" в конце строки запроса, иначе будет появляться окно Browse для отображения результата запроса при инициализации формы или в момент когда этот запрос выполнится.
• - Колонка грида позволяет использовать выражение в качестве ControlSource! Колонка должна быть только для чтения (ReadOnly = .T.), результат выражения должен быть одного типа и постоянной длины для всех колонок, иначе могут возникнуть всяческие странности, звездочки и другие эффекты вплоть до фатальных ошибок в самом ФоксПро. Если все же надо отображать данные разных типов в одной колонке, используйте контэйнер или несколько контролов в одной колонке.
• - Чтоб добавить во время дизайна новый контрол в колонку грида, выберите колонку в редакторе свойств, выберите окно редактирования класса или формы путем нажатия мышкой на заголовке окна, выберите нужный класс в панели классов и нажмите мышкой на гриде.
• - Чтоб удалить контрол из колонки грида, выберите этот контрол в редакторе свойств, выберите окно редактирования класса или формы путем нажатия мышкой на заголовке окна, затем нажмите клавишу "Del".
• - Если настроить грид не показывать горизонтальные линии решетки грида, серые или другие линии на их месте при HighlightRow=.F. это то, что находится прямо под гридом (в основном это поверхность формы, потому линии в основном серые). Чтоб избавиться от такого "мусора", положите под грид прямоугольную область, закрашенную в цвет колонок грида.
• - Можно изменить изображение курсора мышки для колонки грида путем установки нужных свойств в событии MouseMove колонки.

Предупреждения для грида

Эти строки дают некоторые предостережения для программистов, которые используют гриды...

• - Помните, что изменение набора данных для грида в режиме дизайна требует также запоминание значений ControlSource для всех колонок. После изменения свойства RecordSource они все очищаются! Обычно копия делается в свойство Comment колонки.
• - Не оставляйте свойство RecordSource грида пустым до инициализации грида.
• - События и свойства объекта внутри колонки грида используются только для текущей клетки грида, если свойство Sparse колонки равно .T. Если это свойство равно .F., только свойства используются для отображения строк в колонке, тогда как события по-прежнему работают только для текущей клетки.
• - Событие Scrolled запускается только при прокрутке с помощью полос прокрутки. Если грид прокручивается при помощи клавиатуры, программным образом или в других случаях, то это событие не запускается. Прокрутку таким образом надо ловить в событии AfterRowColChange, DoScroll и тестировать много (есть случаи, когда грид прокручивается и при других действиях без изменения текущей клетки, например, в некоторых случаях при работе с заголовком колонки).
• - Свойства RelativeRow и ActiveRow принимают корректные значения только, если грид активен. ActiveRow равен нулю, если текущая запись выходит за пределы области отображения грида.

 

VFP гриды, следующие части

Следующие статьи будут обсуждать модель событий грида, что такое покрывающая прозрачная область для грида и как ее использовать, сила свойств Dynamic* колонки, точное позиционирование объекта над клеткой грида, советы для колонок и заголовков грида, сортировка грида, индикатор сортировки и многое другое.

перевод Влад Гринчишин

Автор: UT (перевод Влад Гринчишин)

Автор публикации

не в сети 25 лет

TomDill

Комментарии: 0Публикации: 1Регистрация: 27-07-2001

(далее…)

]]> https://foxclub.ru/knowledgebase/generacziya-prg-fajlov-dlya-vozvrata-ustanovok/ Fri, 28 Aug 2020 11:32:17 +0000

Генерация PRG – файлов для возврата установок

Используем для сохранения состояний системы генерацию PRG - файла с программой возврата системы в прежнее состояние...

Автор: Evgeny

Автор публикации

не в сети 3 года

Maestro

Комментарии: 0Публикации: 5Регистрация: 14-08-2002

(далее…)

]]> https://foxclub.ru/knowledgebase/inkrementnyj-poisk-v-tablicze/ Fri, 28 Aug 2020 11:32:17 +0000

Инкрементный поиск в таблице.

Ничего визуального. Просто открываете таблицу и запускаете функцию с параметрами. Удобна для работы со справочниками. Максимум 5 полей. Ищет по любому, предварительно проиндексированному, полю. Основа взята из журнала Леса Пинтера еще для Дос. Для VFP перевел недавно, вроде глюков нет, хотя так трудно отделить программу от своих библиотечных модулей. Пишите если что...

Автор: Evgeny

Автор публикации

не в сети 3 года

Maestro

Комментарии: 0Публикации: 5Регистрация: 14-08-2002

(далее…)

]]> https://foxclub.ru/knowledgebase/klassy-ot-tas/ Fri, 28 Aug 2020 11:32:17 +0000

Классы от TAS.

Классы: Древовидного списка Календаря Меню Прогресс бара

Классы от TAS.

Подробности читайте в доке.
Скачать classtas.zip [142 Кб]

Автор: TAS

Автор публикации

не в сети 3 года

TAS

Комментарии: 0Публикации: 7Регистрация: 28-09-2000

(далее…)

]]> https://foxclub.ru/knowledgebase/progress-bar-2/ Fri, 28 Aug 2020 11:32:16 +0000

Progress Bar

Еще один вариант "Термометра". Можно просто запустить программу и посмотреть результат.

Progress Bar

 *=========================================================== *                   Пpимеp "теpмометpа" *===========================================================  * создание фоpмы ----------------------- public Frm_demo Frm_demo = createobject("DemoForm", "Frm_demo", 'Пpимеp "теpмометpа"', 10, 10, 170, 300) with Frm_demo   .AddObject("L_01", "DemoLabel", "", 20, 10)   .AddObject("Prb1", "ProgrBar", 50, 10, 30, 0)   .AddObject("L_02", "DemoLabel", "", 100, 10)   .AddObject("Prb2", "ProgrBar", 130, 10, 20, 0)   .Setall("Visible", .T.)   .Show(2) endwith  * обpаботка ---------------------------- maxval = 50 for tekval=1 to maxval   * отобpажение --------------   with Frm_demo     .L_01.Caption = "Обpабатывается документ: " + str(tekval, 2)     .Prb1.Say(tekval, maxval)     .L_02.Caption = "Осталось обpаботать: " + str(maxval-tekval, 2)     .Prb2.Say(maxval-tekval, maxval)   endwith    * обpаботка ----------------   wait window "Обpабатывается документ: " + str(tekval, 2) timeout 0.1 endfor  wait window "Обработка завершена. Нажмите " release Frm_demo  return  *=========================================================== *                           Form *=========================================================== define class DemoForm as Form   procedure Init (par_n, par_c, par_t, par_l, par_h, par_w)   with This     .Name    = par_n     .Caption = par_c     .Top     = par_t     .Left    = par_l     .Height  = par_h     .Width   = par_w     .FontName = "Arial"     .FontSize = 10   endwith   endproc enddefine  *=========================================================== *                          Label *=========================================================== define class DemoLabel as Label   AutoSize = .T.   procedure Init (par_c, par_t, par_l)   with This     .Caption = par_c     .Top     = par_t     .Left    = par_l     .Height  = 20     .FontName = Thisform.FontName     .FontSize = Thisform.FontSize     .FontBold = Thisform.FontBold   endwith   endproc enddefine  *=========================================================== *                       Progress Bar *=========================================================== define class ProgrBar as Container    BackStyle   = 0   BorderWidth = 1   SpecialEffect = 1    add object Term as Container with ;     BackStyle = 1, BorderWidth = 2, SpecialEffect = 0, ;     BackColor = RGB(0,255,255)    procedure Init (par_t, par_l, par_h, par_w)   * если par_w=0, то делается симметpичным в _фоpме_   with This     .Top     = par_t     .Left    = par_l     .Height  = par_h     .Width   = iif(par_w=0, Thisform.Width-.Left*2, par_w)      .Term.Top    = 3     .Term.Left   = 3     .Term.Height = .Height-6     .Term.Width  = 5   endwith   endproc    procedure Say (par_1, par_2)   with This     local i     if par_1																		]]>
					
									
											
					https://foxclub.ru/knowledgebase/graficheskoe-predstavlenie-dannyh-vfp-v-vide-diagramm-excel-universalnaya-forma/
					
                    					    
                    										    Fri, 28 Aug 2020 11:32:16 +0000
										
						
														
Графическое представление данных VFP в виде диаграмм Excel. Универсальная форма.
													
													
Многим разработчиком хотелось бы блеснуть перед пользователями своим искусством обращения с данными. И я не исключение. Поэтому и появилась эта форма, которая позволяет "легким движением руки" превратить столбики непонятных чисел в красивую и УПРАВЛЯЕМУЮ диаграмму. Для этого нужно написать десяток строк примитивного кода (см. Readme.txt)

Графическое представление данных VFP в виде диаграмм Excel. Универсальная форма.
 Уважаемые коллеги! 
 Данное решение не претендует на ранг гениальных или основополагающих. Это просто вариант решения наболевшей проблемы. В общем - смотрите сами. Я же буду благодарен за любые конструктивные предложения и замечания. 
 Jimmy.    
Автор: Дмитрий Орлов
Автор публикации

    

		
не в сети 25 лет
        

            Jimmy
        
    

    

        

            
				            
			        

        

			Комментарии: 0Публикации: 6Регистрация: 30-07-2001        
    
(далее…)
																		]]>
					
									
											
					https://foxclub.ru/knowledgebase/menedzher-zadach-versiya-3-1/
					
                    					    
                    										    Fri, 28 Aug 2020 11:32:16 +0000
										
						
														
Менеджер задач. Версия 3.1
													
													
Менеджер задач версия 3.1. Позволит Вам разобраться с Вашими проектами. Проекты одной задачи объеденит и ускорит доступ к ним, перекомпиляция всех проектов входящих в задачу нажатием одной кнопки. *Новое - ведение библиотеки кода. Можно вырезать код и запомнить его в библиотеке, затем использовать в другом месте. *Примечание - работает только под VFP v 7.0.

Автор: Перминов И.Э.
Автор публикации

    

		
не в сети 25 лет
        

            Перминов Игорь
        
    

    

        

            
				            
			        

        

			Комментарии: 0Публикации: 5Регистрация: 16-09-2001        
    
(далее…)
																		]]>
					
									
											
					https://foxclub.ru/knowledgebase/o-sistemnom-stile-programmirovaniya-ili-pochemu-nashi-pishut-ne-tak-kak-za-bugrom/
					
                    					    
                    										    Fri, 28 Aug 2020 11:32:16 +0000
										
						
														
О “системном” стиле программирования, или почему “наши” пишут не так, как “за бугром”
													
													
Спорные рассуждения "старого" разработчика после многих лет борьбы со средствами разработки и программирования (начиная с момента сжигания СМ-4 (разъемы 220в и сигналов ACLO и DCLO оказались одинаковыми!)и последущего ее восстановления своими силами). Для начинающих, которым интересен опыт пострадавших в неравной борьбе за надежный результат.

О "системном" стиле программирования, или почему "наши" пишут не так, как "за бугром" 
 Прошу не судить строго и придирчиво за наукообразный стиль изложения. Это лишь сформировавшаяся личная точка зрения автора, написанная в момент приступа пафоса после очередного акта борьбы с расползающимся хаосом. Как известно, каждый разработчик пытается нащупать свой "философский камень" в виде каких-то универсальных формул и правил, рожденных в длительном процессе наработки опыта. 
Скачать Part1.zip [51 Кб]   
Автор: Дм.Баянов
Автор публикации

    

		
не в сети 6 месяцев
        

            admin
        
    

    

        

            
				            
			        

        

			Комментарии: 1Публикации: 123Регистрация: 10-12-2000        
    
(далее…)
																		]]>
					
									
											
					https://foxclub.ru/knowledgebase/mysql-browser/
					
                    					    
                    										    Fri, 28 Aug 2020 11:32:16 +0000
										
						
														
MySQL Browser
													
													
Сервисная программа для работы с MySQL сервером через ODBC драйвера, с исходным кодом и кучей возможностей.

Автор: Alex Deer
Автор публикации

    

		
не в сети 2 месяца
        

            Joys
        
    

    

        

            
				            
			        

        

			Комментарии: 2Публикации: 177Регистрация: 25-06-2000        
    
(далее…)
																		]]>
					
									
											
					https://foxclub.ru/knowledgebase/igra-ej-poberegis/
					
                    					    
                    										    Fri, 28 Aug 2020 11:32:16 +0000
										
						
														
Игра Эй, поберегись!
													
													
Примерный аналог электронной игрушки Ну, погоди! Нужно помочь утенку в битве за урожай. А яичный синдром куриц-несушек постепенно нарастает...

Игра Эй, поберегись!
 В архиве лежит проект, вместе с ЕХЕ-файлом.   
Автор: HellRiser
Автор публикации

    

		
не в сети 25 лет
        

            Hel!Riser
        
    

    

        

            
				            
			        

        

			Комментарии: 1Публикации: 5Регистрация: 11-03-2001        
    
(далее…)
																		]]>
					
									
											
					https://foxclub.ru/knowledgebase/menedzhr-zadach/
					
                    					    
                    										    Fri, 28 Aug 2020 11:32:16 +0000
										
						
														
Менеджр задач
													
													
Менеджер задач поможет Вам разобраться с Вашими проектами, а так же объеденить различные проекты в одну задачу.

Автор: Перминов И.Э.
Автор публикации

    

		
не в сети 25 лет
        

            Перминов Игорь
        
    

    

        

            
				            
			        

        

			Комментарии: 0Публикации: 5Регистрация: 16-09-2001        
    
(далее…)
																		]]>
					
									
											
					https://foxclub.ru/knowledgebase/30-primerov-reshenij-dmitriya-bayanova/
					
                    					    
                    										    Fri, 28 Aug 2020 11:32:16 +0000
										
						
														
30 примеров решений Дмитрия Баянова
													
													
На 57 страницах описаны решения с комментариями и объяснениями. Исходный файл находится на www.dbrad32.narod.ru/dbsys/book1.zip

30 примеров решений Дмитрия Баянова 
 1. Создание класса Trigger button - Триггерная кнопка  
 2. Создание класса Ticker - Управляющий ползунок ScrollBar  
 3. Функции работы с массивами  
 4. Классы универсального поиска  
 5. Позиционирование на запись таблицы  
 6. Получение значения уникального идентификатора GUID (первичного ключа записи)  
 7. Организация выделенных (подсвеченных) записей в таблице  
 8. Быстрое выделение (поиск) записей в таблице  
 9. Вычисление логического номера записи  
 10. Нормализация индекса  
 11. Функция упорядочивания по убыванию  
 12. Масштабируемое изменение размеров окна с его объектами  
 13. Проблема унификации сетевого пути  
 14. Блокированные файлы и терминирование программы  
 15. Нелимитированная по длине макроподстановка  
 16. Вычисляемый макрос в тексте  
 17. Работа с текстами через массив  
 18. Рекурсивный интерпретатор конструкции If_ElseIf_Else_Endif  
 19. Рекурсивный интерпретатор макропроцедур с поддержкой DoWhile_EndDo и If_ElseIf_Else_Endif 
 20. Организация стека истории ключей и его хранение  
 21. Имитация технологии электронной таблицы  
 22. Редактирование буферной SQL выборки из большой таблицы  
 23. Многопользовательские семафорные блокировки  
 24. Задержка достоверности разделяемых данных  
 25. Построение трехмерной перекрестной таблицы  
 26. Построение расширенного словаря базы данных  
 27. Оптимальный состав компонент базового исполняющего ядра  
 28. Создание оптимального набора визуальных компонент редактирования данных БД  
 29. Определение многофункционального табличного интерфейса для    типовой работы с данными БД  
 30. Модель защиты от несанкционированного использования и распространения элементов ИС      
Автор: Дмитрий Баянов
Автор публикации

    

		
не в сети 6 месяцев
        

            admin
        
    

    

        

            
				            
			        

        

			Комментарии: 1Публикации: 123Регистрация: 10-12-2000        
    
(далее…)
																		]]>
					
									
											
					https://foxclub.ru/knowledgebase/generator-obektnogo-menyu-dlya-menu-designer/
					
                    					    
                    										    Fri, 28 Aug 2020 11:32:16 +0000
										
						
														
Генератор объектного меню для Menu Designer
													
													
Альтернативный генератор меню для VFP. Преобразует меню, созданное в Menu Designer к объектному виду. Теперь можно управлять видимостью пунктов меню, доступностью, устанвливать/ снимать пометки и т.д. Прилагается форма для тестирования. Подробное описание - в заголовке PRG файла.

Автор: Дмитрий Орлов
Автор публикации

    

		
не в сети 25 лет
        

            Jimmy
        
    

    

        

            
				            
			        

        

			Комментарии: 0Публикации: 6Регистрация: 30-07-2001        
    
(далее…)
																		]]>
					
									
											
					https://foxclub.ru/knowledgebase/registracziya-programmy-s-zapisyu-dannyh-v-sistemnyj-reestr/
					
                    					    
                    										    Fri, 28 Aug 2020 11:32:16 +0000
										
						
														
Регистрация программы с записью данных в системный реестр
													
													
Предлагаемый мною класс реализует самый элементарный (можно сказать, примитивный) механизм регистрации программы с чтением и записью необходимой информации в системный реестр. 
 Конечно, данный класс можно использовать и в "чистом" виде, но скорее его следует рассматривать как учебное пособие по работе с реестром на начальном этапе.
Не так давно, у меня возникла необходимость предусмотреть возможность регистрации моей собственной программы в системном реестре. 
 Фактически, вопрос стоял так: Как организовать запись и чтение собственной информации в системном реестре? 
 Естесственно, что первым делом я посмотрел примеры в Solution и нашел класс 
 "c:program filesmicrosoft visual studiomsdn9898vsa1033samplesvfp98classesregistry.prg" 
 Однако, "с налета" и без описания в нем оказалось крайне трудно разобраться. 
 Предлагаемый мною класс реализует самый элементарный (можно сказать, примитивный) механизм регистрации программы с чтением и записью необходимой информации в системный реестр. 
 Конечно, данный класс можно использовать и в "чистом" виде, но скорее его следует рассматривать как учебное пособие по работе с реестром на начальном этапе. 

 Механизм регистрации
  1. Считывается серийный номер диска
 2. Этот номер посылается разработчику программы
 3. На основании полученного номера, разработчик формирует регистрационный номер (в данном примере - это просто десятичный логарифм от серийного номера)
 4. Пользователь вводит полученный от разработчика регистрационный номер и может работать с программой.
 5. Серийный номер диска и полученный регистрационный номер записываются в системном реестре и проверяются при каждом запуске программы
 6. При повторных запусках окно ввода регистрационного номера не активизируется.
 По умолчанию, в разделе "HKEY_LOCAL_MACHINESOFTWARE" системного реестра будет сосздан подраздел "MyCompanyMyProgramm" и записаны данные в параметр "login" 
 Пример использования класса приведен в файле Main.prg   

Автор: Владимир Максимов
Автор публикации

    

		
не в сети 26 лет
        

            Владимир Максимов
        
    

    

        

            
				            
			        

        

			Комментарии: 0Публикации: 65Регистрация: 02-09-2000        
    
(далее…)
																		]]>
					
									
											
					https://foxclub.ru/knowledgebase/instrumenty-razrabotchika-dlya-visual-foxpro-6-0/
					
                    					    
                    										    Fri, 28 Aug 2020 11:32:16 +0000
										
						
														
Инструменты разработчика для Visual FoxPro 6.0
													
													
Набор утилит, для облегчения труда разработчика приложений на Visual FoxPro:  

Все мои проекты… вер.1.3
Поиск в проекте вер.3.1.
Сравнение файлов вер.3.7
Сравнение библиотек вер.2.5
 Статус: FreeWare

Инструменты разработчика для Visual FoxPro 6.0 
 Настоящий профессионал начинается с инструмента (ИМХО!). Это касается всех видов деятельности - от столяра до зубного врача, и программисты здесь не исключение. Именно эта нехитрая мысль, а также долгие поиски нужного проекта в проводнике или всех мест, где я имел неосторожность использовать “эту дурацкую функцию, которая почему-то глючит в очередном сервис-паке”, подвигли меня на изготовление (сначала для себя) нескольких простеньких инструментов, в той или иной степени решающих все эти проблемы. За несколько лет они обросли мяском, приобрели более-менее приличный вид и, что самое главное, сэкономили мне массу времени и сил. Теперь я готов предложить некоторые из них на суд широкой фокс-общественности и пусть народ скажет свое слово. 
 В пакет, представляемый здесь, входит четыре фокс-приложения: “Все мои проекты…”, “Поиск в проекте”, “Сравнение файлов” и “Сравнение библиотек и форм”. Смысл и назначение этих приложений понятны (я надеюсь) из названий, так что сильно распростра-няться на эту тему не буду. А если, что и останется непонятым, так на это есть e-mail. 
 Приложения представляют собой app-модули и вызваются прямо из командного окна. Обращение к инструментам описано в соотвествующих разделах. Для большего удобства вызов приложений можно вставить в главное меню Foxpro с помощью простенькой процедуры, запускаемой из config.fpw 
   
Автор: Олег Бляхеров
Автор публикации

    

		
не в сети 25 лет
        

            Олег Бляхеров
        
    

    

        

            
				            
			        

        

			Комментарии: 0Публикации: 8Регистрация: 23-04-2001        
    
(далее…)
																		]]>
					
									
											
					https://foxclub.ru/knowledgebase/ishodnye-teksty-proekta-generator-otchetov-dbrad32/
					
                    					    
                    										    Fri, 28 Aug 2020 11:32:16 +0000
										
						
														
Исходные тексты проекта “Генератор Отчетов DBRAD32″””
													
													
Выставлены полные исходные авторские тексты решений и проекта на www.dbrad32.narod.ru

Исходные тексты проекта "Генератор Отчетов DBRAD32"
 Выставлены полные исходные авторские тексты решений и проекта на www.dbrad32.narod.ru
Автор: Дмитрий Баянов
Автор публикации

    

		
не в сети 6 месяцев
        

            admin
        
    

    

        

            
				            
			        

        

			Комментарии: 1Публикации: 123Регистрация: 10-12-2000        
    
(далее…)
																		]]>
					
									
											
					https://foxclub.ru/knowledgebase/ishodnye-teksty-universalnogo-yadra-dbrad32/
					
                    					    
                    										    Fri, 28 Aug 2020 11:32:16 +0000
										
						
														
Исходные тексты Универсального Ядра DBRAD32
													
													
Выставлены полные исходные авторские тексты решений и проекта "DBRAD32 - Универсальное Ядро для приложений VFP"" на странице www.dbrad32.narod.ru.  "

Исходные тексты Универсального Ядра DBRAD32
 Выставлены полные исходные авторские тексты решений и проекта "DBRAD32 - Универсальное Ядро для приложений VFP" на странице www.dbrad32.narod.ru.
Автор: Дмитрий Баянов
Автор публикации

    

		
не в сети 6 месяцев
        

            admin
        
    

    

        

            
				            
			        

        

			Комментарии: 1Публикации: 123Регистрация: 10-12-2000        
    
(далее…)
																		]]>
					
									
											
					https://foxclub.ru/knowledgebase/ustranenie-soobshheniya-o-sintaksicheskoj-oshibke-pri-zapuske-menyu/
					
                    					    
                    										    Fri, 28 Aug 2020 11:32:16 +0000
										
						
														
Устранение сообщения о синтаксической ошибке при запуске меню
													
													
Если Вы создаете собственное меню, то в момент его запуска, как правило, выскакивает сообщение о синтаксической ошибке. Если его игнорировать, то дальнейшая работа программы идет без проблем. Я предлагаю несколько вариантов устранения данной ошибки.

Устранение сообщения о синтаксической ошибке при запуске меню
 Предлагаю несколько вариантов решения. 
 I) Глобальный 
 За генерацию меню (т.е. создание файла MPR на базе вашего файла MPX) отвечает программа GenMenu.prg. 
 Эта программа расположена в корневом каталоге VFP. Если Вы делали установку в директорию по умолчанию, то это директория "C:Program FilesMicrosoft Visual StudioVfp98" 
 Откройте файл GenMenu.prg на редактирование командой: 
 MODIFY COMMAND "c:program filesmicrosoft visual studiovfp98genmenu.prg" 
 Найдите в нем функцию  
 FUNCTION addkey 
 и закоментируйте в этой функции весь условный оператор, начинающийся с фразы: 
 IF !IsLeadByte(prompt) 
 Однако, оставьте незакоментированной в нем единственную строчку 
 STORE "" to m.cKeyname 
 Т.е. соответсвующий кусок программы должен выглядеть так: 
 *!* IF !IsLeadByte(prompt) 
 *!* STORE c_key_padhotkey_LOC + UPPER(LEFT(prompt,1)) TO m.cKeyname 
 *!* ELSE 
 STORE "" to m.cKeyname 
 *!* ENDIF 
 Сохраните и откомпилируйте измененный файл GenMenu.prg. 
 Все. Теперь Вам остается только перегенерить все Ваши меню. Сообщение о синтаксической ошибке больше возникать не будут. 
 II) Ловкость рук 
 Если Вы считаете, что MicroSoft не ошибается или не чуствуете в себе достаточной уверенности, чтобы исправлять не свои файлы, то Вам остается только каким-либо способом обмануть генератор меню: 
 а) Каждый пункт главной линейки меню начинать с цифры 
 б) Первым символом каждого пункта использовать латинскую букву похожую на русскую ("C","M","P" и т.п.) 
 в) Обязательно вручную назначать комбинацию горячих клавишь для каждого пунтка меню 
 III) Игнорирование сообщения об ошибке 
 Это совсем грубый способ. Перед каждым вызовом меню, следует включать собственный обработчик ошибок. Примерно так: 
 LOCAL lcOldError, lnErrorNumber 
 lcOldError = ON("Error") 
 ON ERROR lnErrorNumber = Error() 
 DO MyMenu.mpr 
 ON ERROR &lcOldError
Автор: Владимир Максимов
Автор публикации

    

		
не в сети 26 лет
        

            Владимир Максимов
        
    

    

        

            
				            
			        

        

			Комментарии: 0Публикации: 65Регистрация: 02-09-2000        
    
(далее…)
																		]]>
					
									
											
					https://foxclub.ru/knowledgebase/vosstanovlenie-bazy-dannyh-s-ispolzovaniem-arhivatora-winrar/
					
                    					    
                    										    Fri, 28 Aug 2020 11:32:16 +0000
										
						
														
Восстановление базы данных с использованием архиватора WinRAR.
													
													
Это решение является продолжением (или 2-й частью) решения по дублированию базы данных с использованием архиватора WinRAR.

Восстановление базы данных с использованием архиватора WinRAR.
 PROCEDURE RecoveBD 
 * ПРОЦЕДУРА ВОССТАНОВЛЕНИЯ БД 
    * делаем подготовку (определяем пути, собираем файлы и пр.) 
    LOCAL lcPathTarget && путь назначения 
    lcPathTarget = "" 
    * проверим на предмет задания файла-дубля БД 
    DO WHILE EMPTY(ALLTRIM(lcPathTarget)) 
     lcPathTarget = GETFILE("rar","","",0,"Найдите и задайте файл-дубль базы"+; 
                               " данных") && определяем путь  и имя файла для чтения 
     IF EMPTY(ALLTRIM(lcPathTarget )) THEN 
      IF MESSAGEBOX ("Не указан файл - дубль базы данных."+CHR(10)+; 
          "Повторить поиск файла?",4+32+0,"ВОПРОС") # 6; 
        THEN 
       DO MyExit && уходим 
      ENDIF 
     ENDIF 
    ENDDO 
    LOCAL lcArgument 
    lcArgument = " e " + lcPathTarget + " " + DataPath  && DataPath  - путь к 
                                                      * папке, куда все восстанавливается 
    * АРХИВИРУЕМ 
    *объявляем функцию api для отлавливания начала и завершения дублирования 
    DECLARE integer FindWindow IN Win32API string, string 
    LOCAL StartDateTime && время начала старта 
    LOCAL lcMessError && сообщение об ошибке 
    * Проверяем на предмет незанятости базы данных 
    LOCAL lcOldError 
    lcOldError = ON('Error') && запоминаем путь к старому обработчику ошибок 
    ON ERROR DO Zaglushka 
    LOCAL llZanjato 
    llZanjato = .T. 
    DO WHILE llZanjato && крутимся в цикле, пока не освободится БД 
     OPEN DATABASE KlassNar EXCLUSIVE 
     IF DBUSED('KlassNar') THEN && если база открылась, то работаем 
      llZanjato = .F. 
     ELSE 
      IF MESSAGEBOX("Кто-то работает с базой данных."+CHR(10)+; 
           "Восстановить базу данных невозможно."+CHR(10)+; 
           "Выгоните их всех!"+CHR(10)+CHR(10)+; 
           "Повторить попытку восстановления?",5+16+0,"ВОПРОС") = 4 THEN 
       llZanjato = .T. 
      ELSE 
       DO MyExit && уходим 
      ENDIF 
     ENDIF 
    ENDDO 
    * Резко закрываем активные базы и таблицы 
    CLOSE DATABASE ALL 
    lcMessError = myRun("WinRAR.exe",lcArgument) && архивация (или дублирование) 
    LOCAL ltDeltaTime && время ожидания, сек 
    ltDeltaTime = 60 
    StartDateTime = DATETIME() 
    *Ждем появления окна WinRAR или пока не истекло время ожидания 
    DO WHILE FindWindow(NULL,'WinRAR')=0 
     IF DATETIME() > StartDateTime + ltDeltaTime THEN && время ожидания появления окна 
                                                       * 60 сек 
      MESSAGEBOX("Истекло время ожидания запуска архиватора."+CHR(10)+; 
        "Восстановление не выполнено!"+CHR(10)+; 
        "Возможно не установлен архиватор WinRar.",0+16+0,"ОШИБКА") 
      DO MyExit && уходим 
     ENDIF 
    ENDDO 
    *Ждем завершения работы WinRAR или пока не истекло время ожидания 
    ltDeltaTime = 300 && 5 минут 
    StartDateTime = DATETIME() 
    LOCAL ltDeltaTime && время ожидания, сек 
    DO WHILE FindWindow(NULL,'WinRAR')#0 
     IF DATETIME() > StartDateTime + ltDeltaTime THEN 
      * запросим выход или еще подождем 2 минуты 
      IF MESSAGEBOX('Истекло время ожидания завершения восстановления.'+CHR(10)+; 
         'Подождать еще 2 минуты?'+CHR(10)+CHR(10)+; 
         'ПОЯСНЕНИЕ: Если восстановление завершилось пока Вы думали, все '+; 
         'равно нажмите "Да". '+; 
         'Нажатие "Нет" приводит к прекращению дальнейшей работы.'; 
         ,4+32+0,"ВОПРОС") = 6 THEN 
       StartDateTime = DATETIME() 
       ltDeltaTime = 120 && 2 минуты 
      ELSE 
       DO MyExit && уходим 
      ENDIF 
     ENDIF 
    ENDDO 
    ON ERROR &lcOldError && восстановить обработчик ошибок 
    * проверяем результат восстановления на ошибки 
    IF NOT EMPTY(ALLTRIM(lcMessError)) THEN 
     MESSAGEBOX ("Ошибка при восстановлении базы данных."+CHR(10)+; 
        "Восстановление не выполнено!"+CHR(10)+; 
        "Возможно не установлен архиватор WinRar.",0+16+0,"ОШИБКА") 
    ELSE 
     MESSAGEBOX("Восстановление базы данных завершено",0+64+0,"ИНФОРМАЦИЯ") 
    ENDIF 
   DO MyExit && уходим 
 ENDPROC 
 ************************************************************* 
 FUNCTION myRun 
 * Функция, которая ищет файл и запускает соответствующее приложение для этого файла 
 * С помощью данной функции можно запускать программы (например, WinRar) 
 LPARAMETERS cFile, cAtribut 
 LOCAL lcAtribut 
 * а передается ли атрибут для вызываемого файла? 
 IF PARAMETERS()																		]]>
					
									
											
					https://foxclub.ru/knowledgebase/odin-iz-variantov-reglamentnogo-dublirovaniya-bazy-dannyh-s-ispolzovaniem-arhivatora-winrar/
					
                    					    
                    										    Fri, 28 Aug 2020 11:32:15 +0000
										
						
														
Один из вариантов регламентного дублирования базы данных (с использованием архиватора WinRAR)
													
													
Представляю на Ваш суд один из способов защитного дублирования базы данных на случай потерь, для возможности последующего восстановления.     В моем варианте используется архиватор WinRAR. Аналогично могут быть использованы архиваторы pkzip или arj (может кто-то докопается и до WinZip).     Принята аксиома, что дублирование является обязательной процедурой, и нельзя позволить пользователю дальнейшую работу, пока не продублирована база данных.      Текст процедуры MyExit не приводится. Он такой, который используется Вами в головной процедуре при назначении On Shutdown.       В моем варианте не решен вопрос вылавливания ошибок при архивировании.      Приношу огромную благодарность коллегам, которые помогали мне своими консультациями в конференции клуба, а также в ФИДО - конференциях. Так что данное решение скорее является коллективным трудом.

Один из вариантов регламентного дублирования базы данных (с использованием архиватора WinRAR)
 PROCEDURE DublBD 
 * ПРОЦЕДУРА ДУБЛИРОВАНИЯ БД 
  SELECT 0 
  USE DatesDubl.dbf &&открываем таблицу с историей дублирования 
  GO BOTTOM 
  IF Date() > DatesDubl.dLastDubl + 14 THEN && время дублирования наступило? 
   IF MESSAGEBOX("Наступило время обязательного дублирования базы 
 данных."+CHR(10)+; 
   "Без дублирования работать дальше Вы не сможете."+CHR(10)+; 
   "Начать дублирование сейчас?.",; 
   4+64+0,"ИНФОРМАЦИЯ") = 6 THEN 
    * делаем подготовку (определяем пути, собираем файлы и пр.) 
    LOCAL lcListFilds && список дублируемых файлов 
    lcListFilds =    DataPath + "*.d?? "; 
          + DataPath + "*.cdx "; 
          + DataPath + "*.f?? "; 
          + DataPath + "*.tbk "; 
          + DataPath + "*.old" 
    LOCAL lcPathTarget && путь назначения 
    LOCAL Y, M, D 
    * генерируем имя файла 
    Y = ALLTRIM(STR(YEAR(DATE()))) && год 
    M = ALLTRIM(STR(MONTH(DATE())))   && месяц 
    IF LEN(M) StartDateTime + ltDeltaTime THEN 
      * запросим выход или еще подождем 2 минуты 
      IF MESSAGEBOX('Истекло время ожидания завершения дублирования.'+CHR(10)+; 
         'Подождать еще 2 минуты?'+CHR(10)+CHR(10)+; 
         'ПОЯСНЕНИЕ: Если дублирование завершилось пока Вы думали, все равно'+; 
         ' нажмите "Да". '+; 
         'Нажатие "Нет" приводит к прекращению дальнейшей работы.'; 
         ,4+32+0,"ВОПРОС") = 6 THEN 
       StartDateTime = DATETIME() 
       ltDeltaTime = 120 && 2 минуты 
      ELSE 
       DO MyExit && уходим 
      ENDIF 
     ENDIF 
    ENDDO 
    ON ERROR &lcOldError && восстановить обработчик ошибок 
    * проверяем результат дублирования на ошибки 
    IF NOT EMPTY(ALLTRIM(lcMessError)) THEN 
     MESSAGEBOX ("Ошибка при дублировании."+CHR(10)+; 
        "Дублирование не выполнено!"+CHR(10)+; 
        "Возможно не установлен архиватор WinRar.",0+16+0,"ОШИБКА") 
     DO MyExit && уходим 
    ELSE 
     * добавим дату сегодняшнего дублирования 
     SELECT 0 
     USE DatesDubl 
     APPEN BLANK 
     REPLACE DatesDubl.dLastDubl WITH DATE() 
     USE 
    ENDIF 
   ELSE 
    DO MyExit && клиент отказался дублировать! Его дело! Уходим 
   ENDIF 
  ELSE 
   SELECT DatesDubl && закрываем таблицу с историей дублирования. Она нам больше не нужна 
   USE 
  ENDIF 
 ENDPROC 
 ******************************************************************** 
 FUNCTION myRun 
 * Функция, которая ищет файл и запускает соответствующее приложение для 
 этого файла 
 * С помощью данной функции можно запускать программы (например, WinRar) 
 LPARAMETERS cFile, cAtribut 
 LOCAL lcAtribut 
 * а передается ли атрибут для вызываемого файла? 
 IF PARAMETERS()																		]]>
					
									
											
					https://foxclub.ru/knowledgebase/generator-otchetov-dbrad32-dlya-ms-word/
					
                    					    
                    										    Fri, 28 Aug 2020 11:32:16 +0000
										
						
														
Генератор отчетов DBRAD32 для MS Word.
													
													
Альтернативный генератор отчетов MsWord для приложений Visual FoxPro. Создает файлы RTF/HTML и грузит в Word. Условие выборки, группирование, сведение, макро в тексте Word, контекст VFP, составные отчеты, разделяемая работа в сети, обширный набор вспомогательных функций (от генератора GUID до конвертора сумм прописью), открыт для пользователя, примеры. Файлы можно скачать с www.dbrad32.narod.ru. Прилинковывается к вашему приложению в виде APP-файла. Для бесплатного использования.

Генератор отчетов DBRAD32 для MS Word.
 Файлы можно скачать с www.dbrad32.narod.ru. Размер упакованного набора с примерами - ок. 2мб.
Автор: Дмитрий Баянов
Автор публикации

    

		
не в сети 6 месяцев
        

            admin
        
    

    

        

            
				            
			        

        

			Комментарии: 1Публикации: 123Регистрация: 10-12-2000        
    
(далее…)
																		]]>
					
									
											
					https://foxclub.ru/knowledgebase/sredstvo-bystrogo-postroeniya-prilozhenij-vfp-s-universalnym-yadrom/
					
                    					    
                    										    Fri, 28 Aug 2020 11:32:16 +0000
										
						
														
Средство быстрого построения приложений VFP с универсальным ядром
													
													
CASE-средство, Universal Application Engine - UAE - Универсальное Ядро с системными функциями и встроенным генератором отчетов под MS Word позволяет сразу получать работающее приложение для Visual FoxPro. Статьи, описание, примеры, средства разработки и само ядро DBRAD32 для бесплатного использования размещены на www.dbrad32.narod.ru. ------------------------ ВНИМАНИЮ администратора ! Я, как автор, предоставляю Вам право на размещение на вашем сайте любых материалов, опубликованных на моей странице www.dbrad32.narod.ru.

Средство быстрого построения приложений VFP с универсальным ядром
 CASE-средство, Universal Application Engine - UAE - Универсальное Ядро с системными функциями и встроенным генератором отчетов под MS Word позволяет сразу получать работающее приложение для Visual FoxPro. Статьи, описание, примеры, средства разработки и само ядро DBRAD32 для бесплатного использования размещены на www.dbrad32.narod.ru.
Автор: Дмитрий Баянов
Автор публикации

    

		
не в сети 6 месяцев
        

            admin
        
    

    

        

            
				            
			        

        

			Комментарии: 1Публикации: 123Регистрация: 10-12-2000        
    
(далее…)
																		]]>
					
									
											
					https://foxclub.ru/knowledgebase/inkrementnyj-poisk-v-grid-da-i-ne-tolko/
					
                    					    
                    										    Fri, 28 Aug 2020 11:32:15 +0000
										
						
														
Инкрементный поиск в Grid (да и не только)
													
													
Возможность быстрого поиска по базе

Инкрементный поиск в Grid (да и не только)
 Посмотрев на бурные обсуждения проблемы быстрого поиска в Grid, я вспомнил, что сам когда-то делал нечто похожее в своем приложении. Это не класс, не объект (просто лень тратить время на оформление). А сама процедура проста до безобразия: 
 Метод KeyPress формы, в которой расположен Grid(List): 
 LPARAMETERS nKeyCode, nShiftAltCtrl 
 cValidString="abcdefghijklmnopqrstuvwxyzабвгдеёжзийклмнопрстуфхцчшщъыьэюя1234567890 '"+'!@#$%^&*()_+№;%:?*()/|,.[]{}-=-"' 
 if ATC(CHR(nKeyCode), cValidString)>0 
 	This.SearchString=This.SearchString+CHR(nKeyCode) && Добавляем введенный символ в переменную 
 	This.OLEControl1.Panels(2).Text=' Быстрый поиск: "'+This.SearchString+'" ' && Обновление строки подсказки 
 	=Seek(This.SearchString, "Abonenty", This.ColumnsArray(This.CurrentColumn)) && Поиск по текущей колонке 
 	If Found() 
 		This.Grid1.SetFocus 
 	endIf 
 	This.TimeOutTimer.Interval=3000 && Запуск таймера на очистку строки поиска через 3 секунды 
 	NoDefault 
 endIf 
 Несмотря на топорность решения это работает быстро, не требует упорядочивания набора данных по колонке поиска (хотя для удобства поиска рекомендуется его делать) и привязано не к объекту, а к таблице. Таким же образом я делал поиск и в List'е, и в TreeView.
Автор: Евгений Колмаков
Автор публикации

    

		
не в сети 25 лет
        

            Zheka
        
    

    

        

            
				            
			        

        

			Комментарии: 0Публикации: 1Регистрация: 21-06-2001        
    
(далее…)
																		]]>
					
									
											
					https://foxclub.ru/knowledgebase/parallelnyj-vyvod-fox-otcheta-v-dokument-word/
					
                    					    
                    										    Fri, 28 Aug 2020 11:32:15 +0000
										
						
														
Параллельный вывод Fox-отчета в документ Word.
													
													
Формирование Word документа параллельно работе foxpro  reporta.

Параллельный вывод Fox-отчета в документ Word.
 Идею одновременного  формирования документа Word с Foxpro отчетом мне подсказал Владимир Журавлев. И лень заставляет самого  чуть подумать 
 Не хочется заново перегребать данные чтоб приготовить Word документ. 
 Идея довольно проста 
 На каждое поле отчета навешиваем некий метод . 
 Например для самого тривиального случая у нас есть таблица с одним полем 
 Мы хотим вывести на предв. Просмотр и одновременно сформировать Ворд документ. 
 Итак действия: в отчете в BeforeOpenTables() создаем экземпляр Worda и сразу добавляем пустой документ 
 	oword=create('word.application') 
 	oword.documents.add() 
 затем в отчете обращаемся к методу rp(“field”) 
 который будет делать 2 операции 
 PROCE rp 
 lparameter fld 
 *вставляем значение в DOC 
 oword.Selection.TypeText(fld) 
 oword.Selection.insertafter(chr(13)) 
 *если хочется посмотреть как формируется word документ 
 	oword.visible=.t. 
 * иначе его можно показать в AfterCloseTables() 
      * Вставка в отчет 
        return  fld 
 Вот собственно и вся идея, получаем doc + результат работы report-а. 
 Для нормальных(любой сложности отчетов с группами и пр.) немного усложним. 
 Я сделал класс с 2-мя методами  
 Метод RP c 3-мя параметрами 
 lparameter fld,mycol,cr && 1- поле, 2- колво колонок в отчете,3 -признак добавления строки таблицы 
 * вставляем поле и перемещаемся на сл. ячейку 
     oword.Selection.TypeText(ch_fld) 
     oword.Selection.MoveRight 
 * Ниже добавление строчки по 3-му параметру=1 
     if cr=1 
     oword.Selection.InsertRowsBelow(1) 
     endif 
 oword.visible=.t. 
 * Вставка в отчет 
 return  fld 
 Метод Pg_setup для настройки параметров страницы Ворда. 
 para orient,top_m,bott_m,left_m,right_m  
 * orient- ориентация (1,0) 
 *  **_m- соотв.отступы 
 With oword.ActiveDocument.PageSetup 
         .LineNumbering.Active =.f. 
         .Orientation=orient && 0- портрет 
         .TopMargin=top_m && верхний 
         .BottomMargin =bott_m&& нижний отступ  
         .LeftMargin =left_m && левый 
         .RightMargin =right_m&& правый 
      *   .PageWidth =1188.7 &&-а3        840.6  &&-a4        
      *   .PageHeight = 840.6  &&-а3      594.3  && -а4        
 EndWith 
 Настройку страницы делаю сразу после добавления пустого документа в BeforeOpen…() 
 В репорте на каждое поле вешаю RP(“Поле”,”Кол.колонок”,признак 0или 1) 
 Такой подход позволяет готовить и отображатьпару Report-word.doc в самом разном сочетании 
 Мой вариант несколько сыроват, думаю кому интересно- доведут до ума. 
 В примере есть подробные комментарии. 
 Всем удачи, Дмитрий. 
       
Автор: Дмитрий Петров
Автор публикации

    

		
не в сети 6 месяцев
        

            admin
        
    

    

        

            
				            
			        

        

			Комментарии: 1Публикации: 123Регистрация: 10-12-2000        
    
(далее…)
																		]]>
					
									
											
					https://foxclub.ru/knowledgebase/zamorozka-stolbczov-v-grid/
					
                    					    
                    										    Fri, 28 Aug 2020 11:32:15 +0000
										
						
														
Заморозка столбцов в GRID
													
													
Замораживаем столбцы как EXCELе в приципе только общая идея, а каждый сам для себя навороты наделает

Заморозка столбцов в GRIDE
 в ИНИТЕ формы все описано, особенно долго я не тестировал, так ято не обессудьте за ошибки
  Автор: Василий (vasia_@rambler.ru)    
Автор: Василий
Автор публикации

    

		
не в сети 26 лет
        

            Василий
        
    

    

        

            
				            
			        

        

			Комментарии: 0Публикации: 1Регистрация: 19-10-2000        
    
(далее…)
																		]]>
					
									
											
					https://foxclub.ru/knowledgebase/obj2bmp-a-developers-tool/
					
                    					    
                    										    Fri, 28 Aug 2020 11:32:15 +0000
										
						
														
Obj2Bmp – A Developer’s Tool
													
													
Сохранение изображения формы или ее объектов в формате BMP 16,256 или 24 bit color. Описание внутри архива (англ.)

Автор: George Tasker
Автор публикации

    

		
не в сети 2 месяца
        

            Joys
        
    

    

        

            
				            
			        

        

			Комментарии: 2Публикации: 177Регистрация: 25-06-2000        
    
(далее…)
																		]]>
					
									
											
					https://foxclub.ru/knowledgebase/podsvetka-stroki-grid/
					
                    					    
                    										    Fri, 28 Aug 2020 11:32:15 +0000
										
						
														
Подсветка строки GRID
													
													
Много попадается вопросов на эту тему , особенно у новичков, хотя себя ветераном фокса тоже не считаю

Подсветка строки GRID
 В Init-event объекта Grid запишите  
 This.tag = STR(RECNO()) 
 THIS.setall("Dynamicbackcolor", ; 
        "IIF(str(RECNO())==This.tag,RGB(192,192,192), ; 
                          RGB(255,255,255))","Column") 
 В AfterRowColChange-event объекта Grid запишите  
 LPARAMETERS nColIndex 
 This.tag = STR(RECNO()) 
 THIS.Refresh() 

Автор: pit
Автор публикации

    

		
не в сети 26 лет
        

            pit
        
    

    

        

            
				            
			        

        

			Комментарии: 0Публикации: 1Регистрация: 17-09-2000        
    
(далее…)
																		]]>
					
									
											
					https://foxclub.ru/knowledgebase/kak-mozhno-podruzhit-vfp5-6-s-tts-netware-ili-indeksy-bolshe-ne-padayut/
					
                    					    
                    										    Fri, 28 Aug 2020 11:32:15 +0000
										
						
														
Как можно подружить VFP5/6 с TTS NetWare.Или индексы больше не падают.
													
													
Наверняка любой программист, пишущий на Visual FoxPro,  многопользовательские приложения сталкивался с проблемами падения индексов или порчи DBF файлов на файл сервере ...

Как можно подружить VFP5/6 с TTS NetWare.Или индексы больше не падают.
 Наверняка любой программист, пишущий на Visual FoxPro,  многопользовательские приложения сталкивался с проблемами падения индексов или порчи DBF файлов на файл сервере. 
 Используя библиотеку GPLIB MHSOFTWARE  http://www.mhsoftware.com/gplib.htm  Можно избежать этих проблем если не теоретически то практически навсегда. Для начала, правда,  необходимо установить 32 битового клиента от NOVELL. 
 Еще необходимо получить http://www.mhsoftware.com/bin/gp30.exe библиотеку. 
 Она имеет статус TRIAL. 
  У меня установка практически прошла без проблем.   Использую я VFP6 + SP4  Window 2000 pro Русский и 32 битовый Novell Client . 
  После установки выяснилось, в GPLIB нет места для VFP6, возможно в MHSOFTWARE не знали о выходе VFP6 и не добавили в пример обработку   Visual FoxPro 6.
 Легким движением исправляем эту нелепость в демонстрационном коде: 
 Смотрите самое начало модуля GPSTART.PRG 
 DO case 
 CASE version()="Visual FoxPro 03" 
 	nFoxVer=3 
 CASE version()="Visual FoxPro 05" 
 	nFoxVer=5 
 **** Я добавил только эти две строчки 
 CASE version()="Visual FoxPro 06" 
 	nFoxVer=5 
 **** Конец модификации 
 OTHERWISE 
 	do form ShowMsg with "FOX_VER" 
 	return .f. 
 ENDCASE 
 Демонстрационный код работает что дальше. 
 Для защиты своих  данных,  я использую несколько функций GPLIB. 
 N_TTSAvail() 		- Сообщает доступна ли TTS 
 N_TTSBegin() 		- Начало транзакции 
 N_TTSCommt() 		- Завершение транзакции 
 N_TTSRollB() 		- Откат транзакции 
 N_SetAttr( mFile, ”+T” ) 	- Установить флаг TTS на файл 
 N_SetAttr( mFile, ”-T” ) 	- Снять флаг TTS c файла 
 N_FileInfo(mFile)		- Получить информацию о файле на файлсервере NetWare 
 Этого списка функций достаточно, что бы забыть проблемы с падением индексов или таблиц. 
 Но для грамотного применения необходимы уточнения. К сожалению транзакционный буфер не так велик, как хотелось бы, поэтому приходится делать короткие транзакции. 
 На файлы необходимо установить флаг TTS. 
 Представим себе нам необходимо вести базу операций и менять сальдо по счетам.  
 У нас есть база операций TEST и база остатков на счетах SALDOTST.  
 При каждой логической операции нам необходимо добавлять запить в TEST и менять остаток на счете в базе SALDOTST.  В реальной жизни одна транзакция может менять гораздо больше количество файлов и добавлять записи в несколько таблиц.  
 Нам необходима целостность данных как логическая так и физическая.  
 Логическая целостность подразумевает списание со счета 1  зачисление на счет 2 и добавление в таблицу TEST записи 
 Физическая целостность, это когда таблицы или CDX не портятся при прерывании записи в них при потере питания или сетевого соединения. 
 SEEK СЧЕТ-1 
 Replace OSTATOK with OSTATOK - OUMMAOP  
 SEEK СЧЕТ 2 
 Replace OSTATOK with OSTATOK + OUMMAOP  
 INSERT INTO TEST from memvar 
 У нас получилось 3 шага, если представить что между шагом 1 и 2 произошел сбой, 
 что маловероятно, но возможно. Мы получим  не корректную информацию. 
 Со счета-1 деньги исчезли, но не появились на счете-2 и не попали в базу операций TEST. 
 	Теперь приведем пример как это избежать, применяя GPLIB.  
 Function trtest 
 Parameter mTranTyp 
 Private nTransNo,mCod 
 && 0 - одинокая проводка завершаем трнзакцию в модуле 
 && 1 - транзакция не завершена 
 &&     выходим 
 &&       - без разблокировки захваченых записей 
 &&       - без завершения транзакции 
 &&     удобно применять при массовых транзакциях 
 &&     следует только убедиться в достаточной длине транзакционного буфера 
 &&     не рекомендую работать в данном режиме при большом количестве вызовов с параметром 1 
 && 
 && 2 - завершаем транзакцию 
 &&     происходит только разблокировка и завершение транзакции 
 && 
 mCod = 0 
 If mTranTyp  2 
 	If mTYPBL = 1 
 * 1-й вариант 
 		If mTranTyp = 0 
 			mLock  = flock(mFile) && Блокируем ФАЙЛ на момент транзакции 
 		Endif 
 	Else 
 * 2-й вариант блокируем только записи с которыми работаем на момент транзакции 
 && В моем случае корректность при поиске гарантируется 
 && Работает значительно быстрее чем 1-й вариант 
 		Seek m.LSD 
 		If found() 
 			If abs(ISS) >= m.SUMMAOP 
 				mRECD = alltrim(str(recno())) 
 			Else 
 				mCod = 1 && Нехватка средств 
 			Endif 
 		Else 
 			Wait window "Не найден "+m.LSD 
 		Endif 
 		If mCod = 0 
 			Seek m.LSK 
 			If found() 
 				mRECK = alltrim(str(recno())) 
 			Else 
 				Wait window "Не найден  "+m.LSK 
 			Endif 
 			mLOCKRECDK = 	mRECD+","+mRECK 
 			If mTranTyp = 0 
 				mLock  = rlock( mLOCKRECDK , 'SALDOTST' ) 
 			Endif 
 		Endif 
 	Endif 
 	If mCod = 0 
 		If N_TTSAvail()  &&  
 			If mTranTyp = 0 
 				nResult =N_TTSBegin()	&& Начало транзакции 
 			Endif 
 			Select SALDOTST 
 			Seek m.LSD 
 			If found() 
 				Replace obd with obd + m.SUMMAOP 
 				If TYPLS = 1 && С активного 
 					Replace ISS with ISS - m.SUMMAOP 
 				Else && С пассивного 
 					Replace ISS with ISS - (m.SUMMAOP - m.SUMMAOP - m.SUMMAOP) 
 				Endif 
 				Replace userop with m.userop 
 			Endif 
 			Seek m.LSK 
 			If found() 
 				Replace obk  with obk + m.SUMMAOP 
 				If TYPLS = 1 && На  активный 
 					Replace ISS with ISS + m.SUMMAOP 
 				Else && На пассивный 
 					Replace ISS with ISS + (m.SUMMAOP - m.SUMMAOP - m.SUMMAOP) 
 				Endif 
 				Replace userop with m.userop 
 			Endif 
 && Операцию в базу операций 
 			Insert into TEST from memvar 
 			If mTranTyp = 0 
 				nResult=N_TTSCommt()	&& Конец транзакции 
 			Endif 
 		Else 
 			Wait window 'TTS was not available!' 
 		Endif 
 		If mTranTyp = 0 
 			Unlock all 
 		Endif 
 	Endif 
 Else 
 	nResult=N_TTSCommt()	&& Get the transaction number 
 	Unlock all 
 Endif 
 Return mCod 
 В примере четко видно, необходимо блокировать записи, которые мы меняем, до того как мы используем TTS. 
 Если в какой либо момент после объявления транзакции 	N_TTSBegin() 
 Происходит сбой, зависание сервера, зависание клиента или разрыв сети потеря питания 
 При запуске сервера, при соответствующей настройке NetWare, все незавершенные транзакции  откатятся. И таблицы с индексами примут те значения, которые были в них до начала транзакции, на которой произошел сбой.  
 Что собственно и требовалось.  
 Для работы TTS  необходимо установить флаг TTS на те файлы которые вы  
 хотите обрабатывать под эгидой TTS. 
 При этом это не только DBF таблицы но и CDX и FPT и вообще любые файлы, вы же можете использовать транзакционный механизм даже при операциях на низком уровне FOPEN FWRITE FCLOSE.  Все же  NetWare TTS замечательная штука! К сожалению, в любимой мной операционной системе NT и ее всех клонах  нет такой замечательной функции. 
 	Немого хотелось сказать о командах  VFP    
 BEGIN TRANSACTION   
 END TRANSACTION 
 ROLLBACK 
 Эти команды сильно облегчают страдания с падением таблиц и индексов 
 Но TTS NetWare надежней, чем эти встроенные команды. 
 Разумеется, если таблицы расположены на сервере NetWare.  
 С локальными таблицами, проблемы решать придется с менее надежными командами управления транзакциями VISUALFOXPRO. 
 Короткая  работающая программа. GTEST в архиве GTEST.ZIP 
 К данной статье прилагается. 
 После компиляции и запуска нажмите кнопку  СОЗДАТЬ ТЕСТОВУЮ БАЗУ 
 Проверьте баланс 
 Запустите ТЕСТ,  желательно с нескольких станций. 
 Во время работы теста попробуйте  выключить питание на клиентской машине, или просто выдернуть из сетевой карты  кабель,  у меня еще была возможность выключать питание на сервере!    
 Если TTS на NetWare  правильно настроен, то при перезагрузке сервера откат транзакций произойдет автоматически. Иначе вашему администратору придется на каждой зависшей транзакции отвечать на утомительные вопросы и что самое страшное,  при неверном ответе можно записать в данные те значения 
 которые  они имели  бы без применения TTS. Поэтому лучше установить флаг  
 Auto TTS Backout Flag = ON  
 В файле STARTUP.NCF. 
 Auto TTS Backout Flag: OFF  (задается лишь в STARTUP.NCF) 
   	Описание:     авто-отмена TTS при перезагрузке (пропуск подсказок) 
 В AUTOEXEC.NCF  на NetWare  посмотреть следующие настройки и при необходимости можно их ввести. 
 set tts abort dump flag = on 
 Maximum Transactions = 10000  
 TTS Abort Dump Flag: ON 
   Описание:  включает вывод данных отказанных транзакций  
  в файл регистрации 
 Maximum Transactions: 10000 
   Границы: 100 -- 10000 
   Описание:     максимальное число конкурентных транзакций в системе  
Автор: Зайцев Юрий Владимирович
Автор публикации

    

		
не в сети 2 месяца
        

            Joys
        
    

    

        

            
				            
			        

        

			Комментарии: 2Публикации: 177Регистрация: 25-06-2000        
    
(далее…)
																		]]>
					
									
											
					https://foxclub.ru/knowledgebase/imagen/
					
                    					    
                    										    Fri, 28 Aug 2020 11:32:15 +0000
										
						
														
ImageN
													
													
Этот ActiveX поможет тем, кто разрабатывает приложения с использованием различных типов графических изображений. Понимает практически все существующие графические фоматы: JPG,Progressive JPEG,TIF, G3/G4, TGA, BMP, PCX, WMF, PNG , AutoCAD 14 DXF, DWG. Есть примеры для VFP6 в т.ч и пример по работе с БД.

ImageN
  Этот ActiveX поможет тем, кто разрабатывает приложения с использованием различных типов графических изображений. 
 Понимает практически все существующие графические фоматы: 
 JPG,Progressive JPEG,TIF, G3/G4, TGA, BMP,PCX, WMF, PNG ,AutoCAD 14 DXF, DWG. 
 Есть примеры для VFP6 в т.ч и пример по работе с БД. 
Автор: Pegassus Software
Автор публикации

    

		
не в сети 2 месяца
        

            Joys
        
    

    

        

            
				            
			        

        

			Комментарии: 2Публикации: 177Регистрация: 25-06-2000        
    
(далее…)
																		]]>
					
									
											
					https://foxclub.ru/knowledgebase/poluchenie-spicka-vseh-zapushhennyh-prilozhenij/
					
                    					    
                    										    Fri, 28 Aug 2020 11:32:15 +0000
										
						
														
Получение спиcка всех запущенных приложений
													
													
Функция создает список всех запущенных приложений в Windows, которое имеют открытые окна (есть окно на taskbar). Или создает список приложений в названии окон которых содержится определенный текст.

Получение спсика всех запущенных приложений
 Иногда бывает нужно создать список приложений запущенных в данный момент. Средствами самого Foxpro это сделать трудно, т.к. часто у окон приложений заголовки динамические, постоянно изменяющиеся. Поэтому для создания такого списка используется API. 
 Приведенная функция работает в двух режимах: выводит все активные приложения или только те, в окнах которых содержится определенный текст. 
 ? IsWindEx('Microsoft Word') && выводит список всех запущенных Word'ов 
 ? IsWindEx('') && выводит список всех запущенный приложений 
 FUNCTION IsWindEx
 PARAMETERS WindowName      
      IsWindEx = .F. 
      SET LIBRARY TO foxtools.fll 
      * Register the Windows API functions that will be called 
      mGetWinTxt = RegFn("GetWindowText", "I@CI", "I") 
      mGetWindow = RegFn("GetWindow", "II", "I") 
      mIsWinVis =  RegFn("IsWindowVisible", "I", "I") 
      * Get the HWND (handle) to the main FoxPro window 
      foxhwnd = MAINHWND() 
      * Produce a list of all windows 
      hwndNext = CallFn(mGetWindow,foxhwnd,0) 
      DO WHILE hwndNext  0 
           IF (hwndnext  foxhwnd) .AND. ; 
                CallFn(mGetWindow,hwndnext,4) = 0 .AND. ; 
                CallFn(mIsWinVis,hwndnext)  0 
                Stuffer = SPACE(64) 
                x = CallFn(mGetWinTxt,hwndnext,@Stuffer,64) 
                * If a window name was specified, check to 
                * see if this is the specified window. If a 
                * window name was not specified, display the 
                * name of the window. 
                IF LEN(TRIM(WindowName)) = 0 
                     ? Stuffer 
                ELSE 
                     IF WindowName $ Stuffer 
                          IsWindEx = .T. 
                          EXIT 
                     ENDIF 
                ENDIF 
           ENDIF 
          hwndNext = CallFn(mGetWindow,hwndnext,2) 
         ENDDO 
      SET LIBRARY TO 
      IF LEN(TRIM(WindowName)) = 0 
           IsWindEx = .T. 
      ENDIF 
 RETURN IsWindEx
Автор: MS KB
Автор публикации

    

		
не в сети 2 месяца
        

            Joys
        
    

    

        

            
				            
			        

        

			Комментарии: 2Публикации: 177Регистрация: 25-06-2000        
    
(далее…)
																		]]>
					
									
											
					https://foxclub.ru/knowledgebase/delaem-dve-stroki-v-zagolovke-grid/
					
                    					    
                    										    Mon, 21 Nov 2022 09:20:43 +0000
										
						
														
Две строки в заголовке GRID
													
													
Бывает нужно сделать две строки в заголовке GRID: название колонки большое, а длина поля 3 знака. Вот тут-то и можно использовать класс NewHeader.
Скачайте класс NewHeader и включите его в свой проект. Затем создайте форму и поместите на нее GRID. 

GRID нужно привязать к какой-нибудь таблице, но это как-бы само-собой разумеется.
В событие init формы пишем следующий код:
  Set classlib to NewHeader  
  This.addObject('MyHeader','MyHeader',This.Grid1,50)  
  This.MyHeader.Visible=.T.  
  This.MyHeader.ScrollHeader()  

Обратите внимание на строку This.addObject('MyHeader','MyHeader',This.Grid1,50). В ней число 50 указывает высоту заголовка (header) в пикселях. То есть смотрите, какой у вас самый высокий заголовок в указывайте его высоту. Естественно, что высота заголовка для всех столбцов будет одинаковая. И к тому же строк можно делать и три, и четыре.
Далее ... в события AfterRowColChange и Scrolled объекта GRID нужно вставить код: ThisForm.MyHeader.ScrollHeader() Метод ScrollHeader() следит за скроллингом и обновлением заголовка.
Заключительный шаг - это удаление объекта MyHeader из GRIDа, иначе ваша форма не закроется. Для этого вставьте в событие Destroy формы код:
  ThisForm.MyHeader.GridObject = NULL   

Объект удалиться и форма успешно закроется. 
Автор: Неизвестно
Автор публикации

    

		
не в сети 6 месяцев
        

            admin
        
    

    

        

            
				            
			        

        

			Комментарии: 1Публикации: 123Регистрация: 10-12-2000        
    
(далее…)
																		]]>
					
									
											
					https://foxclub.ru/knowledgebase/kak-privyazat-tajmer-k-glavnomu-oknu-vfp/
					
                    					    
                    										    Fri, 28 Aug 2020 11:32:15 +0000
										
						
														
Как привязать таймер к главному окну VFP
													
													
Объект таймер появился в VFP3. Он может выполнять определенный код регулярно, через определенное время. Так же это невидимый компонент. Его легко поместить на фому, но как его поместить на главное окно VFP ?

Как привязать таймер к главному окну VFP
 Системная переменная _SCREEN содержит свойства управляющие главным окном VFP, которым можно управлять аналогично любой форме. 
 Следующий код ставит таймер на главное окно, аналогичный код может использовать для установки любого компонента на главное окно. 
 Нажмите F6 для удаление таймера. 
 * Для удаления объекта: 
    ON KEY LABEL F6 _SCREEN.RemoveObject('oTime') 
    * Активизация таймера: 
    _SCREEN.AddObject('oTime','MyTimer') 
    * Определение класса. Событие TIMER срабатывает каждую секунду, и отображается 
    * WAIT WINDOW 
    DEFINE CLASS MyTimer AS Timer 
       Interval= 1000 
       PROCEDURE Timer 
         WAIT WINDOW (TIME()) NOWAIT 
       ENDPROC 
    ENDDEFINE  

Автор: Microsoft KB
Автор публикации

    

		
не в сети 2 месяца
        

            Joys
        
    

    

        

            
				            
			        

        

			Комментарии: 2Публикации: 177Регистрация: 25-06-2000        
    
(далее…)
																		]]>
					
									
											
					https://foxclub.ru/knowledgebase/zagruzka-kursov-valyut-s-sajta-czb-rf/
					
                    					    
                    										    Fri, 28 Aug 2020 11:32:14 +0000
										
						
														
Загрузка курсов валют с сайта ЦБ РФ
													
													
Закачивает курсы всех доступных на сайте ЦБ РФ валют

Загрузка курсов валют с сайта ЦБ РФ
 По умолчанию закачивается с сайт ЦБ РФ (cbr.ru) 
 Более подробно о параметрах в .prg 
 Cur1 - имя курсора, куда сохраняются данные 
 Как работает: [code] set procedure to curs_currency data_f=ctod("09/01/2000") data_t=ctod("09/02/2000") do get_curs with data_f,data_t,"cur1" [/code]
Автор: Сергей Гринько
Автор публикации

    

		
не в сети 24 года
        

            grufos
        
    

    

        

            
				            
			        

        

			Комментарии: 0Публикации: 1Регистрация: 08-12-2001        
    
(далее…)
																		]]>
					
									
											
					https://foxclub.ru/knowledgebase/registracziya-i-udalenie-ocx-activex/
					
                    					    
                    										    Fri, 28 Aug 2020 11:32:15 +0000
										
						
														
Регистрация и удаление OCX/ActiveX
													
													
Регистрация и удаление компонентов Activex без regsrv32.exe

Регистрация и удаление OCX/ActiveX
 Регистрация OCX/ActiveX в системе без использования внешних приложений и т.д. Все только средствами API. 
 Как работает: 
 =ocxreg("c:windowssystemcomctl32.ocx") 
 =ocxunreg("c:windowssystemcomctl32.ocx")   
Автор: UT
Автор публикации

    

		
не в сети 2 месяца
        

            Joys
        
    

    

        

            
				            
			        

        

			Комментарии: 2Публикации: 177Регистрация: 25-06-2000        
    
(далее…)
																		]]>
					
									
											
					https://foxclub.ru/knowledgebase/znachenie-po-maske/
					
                    					    
                    										    Fri, 28 Aug 2020 11:32:15 +0000
										
						
														
Значение по маске
													
													
Возращает следующее значение по маске, если маска не совпадает возвращает первый код по маске

Значение по маске
 Пример: tcValue = "Сч 12767/15-05-99" 
 tcMask = "Сч ?????/%D-%M-%Y" 
 new_id=New_Mask_ID(tcValue,tcMask) 
 * Возвратит: "Сч 12768/15-05-99" 
Скачать mask_id.zip
Автор: Yanckin Andrey
Автор публикации

    

		
не в сети 2 месяца
        

            Joys
        
    

    

        

            
				            
			        

        

			Комментарии: 2Публикации: 177Регистрация: 25-06-2000        
    
(далее…)
																		]]>
					
									
											
					https://foxclub.ru/knowledgebase/proverka-parametra-files-v-config-sys/
					
                    					    
                    										    Fri, 28 Aug 2020 11:32:15 +0000
										
						
														
Проверка параметра FILES в CONFIG.SYS
													
													
Используется для проверки и корректировки параметра FILES в CONFIG.SYS. 
Проверяет параметр и корректирует его автоматически под ваши нужды или сообщает пользователю о том, что параметр не соответсвует нужному. 

 Использование: do ckconfig with 70 - проверка параметра FILES на соответсвие значению 70     
Автор: Jacqueline Elia
Автор публикации

    

		
не в сети 2 месяца
        

            Joys
        
    

    

        

            
				            
			        

        

			Комментарии: 2Публикации: 177Регистрация: 25-06-2000        
    
(далее…)
																		]]>
					
									
											
					https://foxclub.ru/knowledgebase/shifrovanie-tablicz/
					
                    					    
                    										    Fri, 28 Aug 2020 11:32:15 +0000
										
						
														
Шифрование таблиц
													
													
Шифрование/дешифрование таблицы (.dbf)

Шифрование таблиц
 Как работает: 
 Открываете таблицу или переходите в область с открытой таблицей и выполняете код: 
 securedata("ON") - для шифровки 
 securedata("OFF") - для дешифровки 
Скачать Secure.zip
Автор: John Harvey
Автор публикации

    

		
не в сети 2 месяца
        

            Joys
        
    

    

        

            
				            
			        

        

			Комментарии: 2Публикации: 177Регистрация: 25-06-2000        
    
(далее…)
																		]]>
					
									
											
					https://foxclub.ru/knowledgebase/perevod-polya-tipa-timestamp-ot-sql-server-v-stroku/
					
                    					    
                    										    Fri, 28 Aug 2020 11:32:15 +0000
										
						
														
Перевод поля типа timestamp (от SQL Server) в строку
													
													
Фукнция для перевода поля типа timestamp, которое вы получили от SQL Server в строку.

Перевод поля типа timestamp (от SQL Server) в строку
 Имя основной функции GetTimeStamp, а DecToHex вспомогательная, она переводит число из 10 в 16 систему счисления. 
 Если есть вопрсы то пишите : mr_doc11@mail.ru 
 Или icq: 79503410 
Скачать gts.zip
Автор: mr_doc
Автор публикации

    

		
не в сети 26 лет
        

            mr_doc
        
    

    

        

            
				            
			        

        

			Комментарии: 0Публикации: 1Регистрация: 08-09-2000        
    
(далее…)
																		]]>
					
									
											
					https://foxclub.ru/knowledgebase/povtornyj-zapusk-formy/
					
                    					    
                    										    Fri, 28 Aug 2020 11:32:14 +0000
										
						
														
Повторный запуск формы
													
													
Пример, показывающий как легко предотвратить запуск одной и той же формы два раза не делая форму модальной.
Вставьте приведенный код в событие Init формы: [code] LOCAL i, lcWindName, llRetVal  llRetVal = .T. i = 0 lcWindName = WCHILD("",0) && The "" must be a NULL or empty string  DO WHILE !EMPTY(lcWindName) IF lcWindName = UPPER(this.name) i = i + 1 IF i > 1 llRetVal = .F. EXIT ENDIF ENDIF lcWindName = WCHILD("",1) && The "" must be a NULL or empty string ENDDO  RETURN llRetVal  [/code]
Автор: KB
Автор публикации

    

		
не в сети 2 месяца
        

            Joys
        
    

    

        

            
				            
			        

        

			Комментарии: 2Публикации: 177Регистрация: 25-06-2000        
    
(далее…)
																		]]>
					
									
											
					https://foxclub.ru/knowledgebase/poisk-fajlov/
					
                    					    
                    										    Fri, 28 Aug 2020 11:32:14 +0000
										
						
														
Поиск файлов
													
													
Поиск файлов средствами Foxpro. Прогресс-бар, настраиваемое окно поиска ...

Поиск файлов
 Поиск по всем доступным дискам (A-Z) файла, указанного в параметрах. Возвращает строку вида [Drive]:[Path][Filename w/ extension] при поиске конкретного файла и курсор при поиске группы файлов (используя ? и *)
  Использование [code] set procedure to filesearch additive oFind = createobject("FileSearch") ? oFind.Search(cFileName,[cBarText],[bShowWindow],[bMoreInfo],[bCmdButtons]) [/code] [cBarText] заголовок окна поиска
 [bShowWindow] показывать окно поиска, по умолчанию .F.
 [bMoreInfo] показывать путь по которому в данный момент идет поиск, по умолчанию .F.
 [bCmdButtons] показывать кнопку прекращения поиска, по умолчанию .F.
  Пример: [code] set procedure to filesearch additive oFind = createobject("FileSearch") ? oFind.Search("win.com","win.com - ",.T.,.T.,.T.) && покажет c:windowswin.com [/code]
Автор: Ben Stack
Автор публикации

    

		
не в сети 2 месяца
        

            Joys
        
    

    

        

            
				            
			        

        

			Комментарии: 2Публикации: 177Регистрация: 25-06-2000        
    
(далее…)
																		]]>
					
									
											
					https://foxclub.ru/knowledgebase/migayushhij-tekst/
					
                    					    
                    										    Fri, 28 Aug 2020 11:32:14 +0000
										
						
														
Мигающий текст
													
													
В FoxPro версий 2.х для DOS, вы могли создавать мигающий текст на экране. Однако, это не срабатывает в Visual Foxpro. Эта статья показывает как создать мигающую Label на форме.

Мигающий текст
 Этот пример использует объект таймер для создания эффекта мигания объекта Label. 
 Создайте форму test.scx 
 Поместите объект Label на форму 
 Поместите таймер на форму. В событие Timer поместите следующий код: 
    THISFORM.Label1.Visible=! THISFORM.Label1.Visible  
 Установите свойство Interval таймера равным 1000 
 Запустите форму ...
Автор: Microsoft KB
Автор публикации

    

		
не в сети 2 месяца
        

            Joys
        
    

    

        

            
				            
			        

        

			Комментарии: 2Публикации: 177Регистрация: 25-06-2000        
    
(далее…)
																		]]>
					
									
											
					https://foxclub.ru/knowledgebase/otobrazhenie-check-boxes-v-otchete/
					
                    					    
                    										    Fri, 28 Aug 2020 11:32:14 +0000
										
						
														
Отображение Check Boxes в отчете
													
													
Отчеты Visual FoxPro  могут печатать данные из полей и переменных. Но так же возможно напечатать обычные "галочки" (check boxes). Эта статья предлагает два способа. Visual Foxpro 6.

Отображение Check Boxes в отчете
 Check boxes в отчетах предоставляют возможность легко показать логическую информацию, такую как ответы на вопросы типа "да-нет". Но Report Designer не включает в себя объект Check box. Однако, вы можете отобразить его используя два предлагаемых метода. 
 Метод 1: Использование двух изображений (bitmaps). 
 Одно изображение содержит check box выбранным, а другое невыбранным. 
 Теперь с помощью Picture/ActiveX Bound Control из Report Controls, помещаем первое изображение на отчет (обычно в раздел Detail). 
 В окне Report Picture, нажмите Print When. Затем отметье Remove Line if Blank, и введите условие при котором показывается изображение с выбранным Check box. 
 Повторите то же самое со вторым изображением, введите условие при котором показывается изображение с невыбранным Check box.  
 И поставьте второе изображение НА ТО ЖЕ САМОЕ место, что и первое. 
 Метод 2: Использование шрифта Wingdings 
 Поместите на отчет обычноле поле (Field Control) 
 Напишите следующий код в Expression: 
    IIF(<logical expression>,'x','o')  
 Нажмите OK. 
 Затем выделите это поле и измените его шрифт (меню Format-Font) на Wingdings 
Автор: Microsoft KB
Автор публикации

    

		
не в сети 2 месяца
        

            Joys
        
    

    

        

            
				            
			        

        

			Комментарии: 2Публикации: 177Регистрация: 25-06-2000        
    
(далее…)
																		]]>
					
									
											
					https://foxclub.ru/knowledgebase/animaczionnyj-gif-gif89-dll/
					
                    					    
                    										    Fri, 28 Aug 2020 11:32:14 +0000
										
						
														
Анимационный gif (gif89.dll)
													
													
Установка на форму анимационной картинки (gif). Используется gif89.dll

Анимационный gif (gif89.dll)
 Перед использованием этой dll вы должны зарегистрировать ее в системе. Из windowssystem используется regsrv32.exe: 
 regsrv32.exe gif89.dll 
 Теперь в VFP (меню Tools/Options/Controls) выделяем компонент gif89, который появится в библиотеке классов. Кидаем его на форму. 
 Свойства: 
 autostart (.t./.f.) - анимировать gif сразу после запуска формы 
 filename - имя gif-файла  
 speed - скорость анимации 
 Методы: 
 play - стартовать анимирование 
 stop - прекратить анимирование 
 Примечание: 
 Иногда компонент работает некорректно, если свойство autosize=.t. ... Следовательно его желательно установить в .f. 
 Если у вас есть красивые и практичные gifки (прогрес-бары, часики и т.д.) присылайте (iron@nsvisual.com) - они будут размещены здесь. 
Автор: -
Автор публикации

    

		
не в сети 2 месяца
        

            Joys
        
    

    

        

            
				            
			        

        

			Комментарии: 2Публикации: 177Регистрация: 25-06-2000        
    
(далее…)
																		]]>
					
									
											
					https://foxclub.ru/knowledgebase/transform-nestandartnye-vidy-form/
					
                    					    
                    										    Fri, 28 Aug 2020 11:32:14 +0000
										
						
														
TransForm – нестандартные виды форм
													
													
Создание форм в виде кругов, эллипсов, квадратов, прямоугольников, многоугольников, прозрачных форм.

TransForm - нестандартные виды форм
 Некоторое разнообразие интерфейса VFP ... позволяет изменять форму уже СУЩЕСТВУЮЩЕЙ формы на выбранную вами. Т.е. вы создаете обычную форму и в событие Init вставляете код конвертации формы. 
 Создание формы в виде эллипса 
 SetFormElliptic (toFormRef, tnx, tny) 
 Параметры: 
 toFormRef - название формы для конвертирования 
 tnx - нижняя правая X-координата прямоугольника в который вписан эллипс 
 tny - нижняя правая Y-координата прямоугольника в который вписан эллипс 
 Возвращаемые значения: 
 .T. если удачно; иначе .F. 
 Пример: 
 oformtrans = newobject('cusformtransformer','frmtrans') 
 oformtrans.SetFormElliptic(THIS, 100, 200) 
 Создание прозрачной формы, т.е. все объекты на форме как бы "висят" сами по себе. Заголовок формы остается видимым. 
 SetFormTransparent (toFormRef) 
 Параметры: 
 toFormRef - название формы для конвертирования 
 Возвращаемые значения 
 .T. если удачно; иначе .F. 
 Пример 
 oformtrans = newobject('cusformtransformer','frmtrans') 
 oformtrans.SetFormTransparent (THIS) 
 Создание многоугольной формы 
 SetFormUDF (toFormRef, tapoints) 
 Параметры: 
 toFormRef - название формы для конвертирования 
 tapoints - двумерный массив с координатами  
 Возвращаемые значения 
 .T. если удачно; иначе .F. 
 Пример 
 oformtrans = newobject('cusformtransformer','frmtrans') 
 local array lapoints[9,2] 
 lapoints[1,1] = 0 
 lapoints[1,2] = 0 
 lapoints[2,1] = 10 
 lapoints[2,2] = 5 
 lapoints[3,1] = 100 
 lapoints[3,2] = 50 
 lapoints[4,1] = 200 
 lapoints[4,2] = 75 
 lapoints[5,1] = 60 
 lapoints[5,2] = 100 
 lapoints[6,1] = 300 
 lapoints[6,2] = 10 
 lapoints[7,1] = 250 
 lapoints[7,2] = 35 
 lapoints[8,1] = 10 
 lapoints[8,2] = 300 
 lapoints[9,1] = 25 
 lapoints[9,2] = 100 
 oformtrans.SetFormUDF (THIS, @lapoints) 
 В прилагаемом архиве лежит чуть более подробная документация на английском языке ... Удачи !       
Автор: (c) Universalthread
Автор публикации

    

		
не в сети 2 месяца
        

            Joys
        
    

    

        

            
				            
			        

        

			Комментарии: 2Публикации: 177Регистрация: 25-06-2000        
    
(далее…)
																		]]>
					
									
											
					https://foxclub.ru/knowledgebase/opredelenie-dostupnyh-v-sisteme-diskov/
					
                    					    
                    										    Fri, 28 Aug 2020 11:32:14 +0000
										
						
														
Определение доступных в системе дисков
													
													
Как в VFP 5-6 определить какие в настоящий момент диски доступны (A:,C:,D:,H:,L: например...) и их свойства (removable)

Определение доступных в системе дисков
 FUNCTION logicdr 
   PARAMETER m_tip 
    * m_tip - ключ для получения ответа 
    * 1 - только список дисков 
    * 2 - список и тип диска 
    DIMENSION adrivenames[32],adrivetypes[7], aspdrive[32] 
    adrivenames[1]='A:' 
    adrivenames[2]='B:' 
    adrivenames[3]='C:' 
    adrivenames[4]='D:' 
    adrivenames[5]='E:' 
    adrivenames[6]='F:' 
    adrivenames[7]='G:' 
    adrivenames[8]='H:' 
    adrivenames[9]='I:' 
    adrivenames[10]='J:' 
    adrivenames[11]='K:' 
    adrivenames[12]='L:' 
    adrivenames[13]='M:' 
    adrivenames[14]='N:' 
    adrivenames[15]='O:' 
    adrivenames[16]='P:' 
    adrivenames[17]='Q:' 
    adrivenames[18]='R:' 
    adrivenames[19]='S:' 
    adrivenames[20]='T:' 
    adrivenames[21]='U:' 
    adrivenames[22]='V:' 
    adrivenames[23]='W:' 
    adrivenames[24]='X:' 
    adrivenames[25]='Y:' 
    adrivenames[26]='Z:' 
    adrivetypes[1]='Unknown type' 
    adrivetypes[2]='Basic type' 
    adrivetypes[3]='floppy' 
    adrivetypes[4]='hard-DISK' 
    adrivetypes[5]='net-DISK' 
    adrivetypes[6]='CD-ROM' 
    adrivetypes[7]='RAM - DISK' 
    DECLARE INTEGER GetLogicalDrives IN Win32API 
    DECLARE INTEGER GetDriveType IN Win32API STRING @ 
    ibitmask=getlogicaldrives() 
    ? 'Имеющиеся в системе дисковые устройства:' 
    * в массиве   aspdrive[jj] получаем список доступных дисков 
    jj=0 
    FOR i=0 TO 25 
       IF BITTEST(ibitmask,i) 
          IF TYPE(adrivenames[I+1])#"L" 
             jj=jj+1 
             DO CASE 
   CASE m_tip=1 
      aspdrive[jj] = adrivenames[I+1] 
   CASE m_tip=2 
      aspdrive[jj] = adrivenames[I+1]+' - '; 
      + adrivetypes[GetDriveType(aDriveNames[I + 1]) + 1] 
             ENDCASE 
          ENDIF 
         *  ? adrivenames[I+1]+' - '+adrivetypes[GetDriveType(aDriveNames[I+1])+1] 
       ENDIF 
    ENDFOR 
    CLEAR DLLS 
    * получаем список подключенных дисков 
    mspisok=" " 
    FOR kk=1 TO jj 
       DO CASE 
          CASE m_tip=1 
             mspisok=mspisok+aspdrive[kk]+SPACE(1) 
          CASE m_tip=2 
             mspisok=mspisok+aspdrive[kk]+","+SPACE(1) 
       ENDCASE 
    ENDFOR 
    RETURN mspisok 
 Ей надо передать два параметра буфер под строку и размер этого буфера А вернет она целое число (что значит - не помню) 
 DWORD GetLogicalDriveString(DWORD nBufferLetgth, LPTSTR lpBuffer) 
 т.е DECLARE INTEGER GetLogicalDriceString in win32api as DS INTEGER 
 Size, STRING @ DriveString 
 DriveString=SPACE(200) 
 DS(200,DriveString) 
 Пролучишь в DS строку, где диски разделены нулевым символом и сама строка им заканчивается т.е что-то вроде "A:"+CHR(0)+"C:"+CHR(0)+"D:"+CHR(0)+CHR(0) 
 Может надо будет вызывать как DS(200,@DriveString) т.е может нужна ссылка на ссылку. 
 Подробности смотри в Win32 SDK. 
 Best regards,  Alexander 
 mailto:avm@sci.yakutia.ru 
Автор: Alexander
Автор публикации

    

		
не в сети 6 месяцев
        

            admin
        
    

    

        

            
				            
			        

        

			Комментарии: 1Публикации: 123Регистрация: 10-12-2000        
    
(далее…)
																		]]>
					
									
											
					https://foxclub.ru/knowledgebase/proczedura-registraczii-oshibok/
					
                    					    
                    										    Fri, 28 Aug 2020 11:32:14 +0000
										
						
														
Процедура регистрации ошибок
													
													
Регистрация ошибок происходящих в программе и сохранение результата в текстовом файле

Процедура регистрации ошибок
 Вызов процедуры 
 ON ERROR DO errhand WITH ERROR( ), MESSAGE( ), MESSAGE(1), PROGRAM( ), LINENO( ) 
 Тело процедуры 
 Результат выводится в текстовый файл  out_err.txt и окно ошибок, 
 PROCEDURE errhand 
     PARAMETER merror, MESS, mess1, mprog, mlineno 
     IF FILE("out_err.txt")  			&& определяем есть ли файл для записи ошибок 
         gnerrorfile=FOPEN('out_err.txt',12) 
     ELSE 
         gnerrorfile = FCREATE('out_err.txt')  		&& If not create it 
     ENDIF 
        =  FSEEK(gnerrorfile, 0, 2)         		&& указатель записи на конец файла 
 * пишем в конец файла данные об ошибке 
     = FPUTS(gnerrorfile,"===================================") 
     = FPUTS(gnerrorfile, DTOC(DATE()) + "  "+TIME()) 
     error1 = 'Error number: ' + ALLTRIM(STR(merror)) 
     = FPUTS(gnerrorfile,  error1) 
     = FPUTS(gnerrorfile,   'Error message: ' + MESS) 
     = FPUTS(gnerrorfile,  'Line of code with error: ' + mess1) 
     = FPUTS(gnerrorfile,  'Line number of error: ' + LTRIM(STR(mlineno))) 
     = FPUTS(gnerrorfile, 'Program with error: ' + mprog) 
     = FFLUSH(gnerrorfile) 
 *!*	    Выводим сообщение на экран 
     ? CHR(7) 
     m_11 = error1 +chr(13)+; 
      'Error message: ' + MESS +chr(13) + ; 
      'Line of code with error: ' + mess1 +chr(13)+ ; 
      'Line number of error: ' + LTRIM(STR(mlineno)) + chr(13)+ ; 
      'Program with error: ' + mprog 
     =FCLOSE(gnerrorfile) 
     m_bb=MESSAGEBOX(m_11, 1, dflabel) 
     DO CASE 
         CASE m_bb = 1 
         * нет действий  
         CASE m_bb = 2 
             CANCEL 
             clea all 
     ENDCASE 
     RETURN 
 A.Пинигин, СБОРНИК прибамбасов для VFP по материалам конференций, литературы и собственных разработок.  г. Рига E-mail: apinigin@olainfarm.lv
Автор: A.Пинигин
Автор публикации

    

		
не в сети 2 месяца
        

            Joys
        
    

    

        

            
				            
			        

        

			Комментарии: 2Публикации: 177Регистрация: 25-06-2000        
    
(далее…)
																		]]>
					
									
											
					https://foxclub.ru/knowledgebase/kak-mozhno-proverit-est-li-disketa-v-floppike/
					
                    					    
                    										    Fri, 28 Aug 2020 11:32:14 +0000
										
						
														
Как можно проверить, есть ли дискета в флоппике
													
													
Как можно проверить, есть ли дискета в флоппике без перехвата ошибок и их вывода 😉

Как можно проверить, есть ли дискета в флоппике
  Все намного проще, чем ты думаешь.. 
 if diskspace('a:')=-1 
       =messagebox('Всавьте дискету в дисковод A:') 
 endif 
 Если сомневаешься, что флоппи навешанно именно на A: можно применить апишную GetDriveType, (GetDriveType) которая должна вернуть 2 внезависимости если ли дискета в дисководе или нет. 
 В FPD2.6 не работает 
 A.Пинигин, СБОРНИК прибамбасов для VFP по материалам конференций, литературы и собственных разработок.  г. Рига E-mail: apinigin@olainfarm.lv
Автор: A.Пинигин
Автор публикации

    

		
не в сети 2 месяца
        

            Joys
        
    

    

        

            
				            
			        

        

			Комментарии: 2Публикации: 177Регистрация: 25-06-2000        
    
(далее…)
																		]]>
					
									
											
					https://foxclub.ru/knowledgebase/kak-v-vfp-5-uznat-imya-tekushhego-po-umolchaniyu-printera/
					
                    					    
                    										    Fri, 28 Aug 2020 11:32:14 +0000
										
						
														
Как в VFP 5 узнать имя текущего (по умолчанию) принтера?
													
													
Как в VFP 5 узнать имя текущего (по умолчанию) принтера?

Как в VFP 5 узнать имя текущего (по умолчанию) принтера?
 Информацию о текущем принтере можно узнать с помощью функции PRINTERS(ArrayName). Установку драйвера принтера можно проверить функцией PRINTSTATUS(). Вызвать диалог установок принтера можно функцией GETPRINTER(). 
 uprfin@adm.yar.ru 
 A.Пинигин, СБОРНИК прибамбасов для VFP по материалам конференций, литературы и собственных разработок.  г. Рига E-mail: apinigin@olainfarm.lv      
Автор: A.Пинигин
Автор публикации

    

		
не в сети 2 месяца
        

            Joys
        
    

    

        

            
				            
			        

        

			Комментарии: 2Публикации: 177Регистрация: 25-06-2000        
    
(далее…)
																		]]>
					
									
											
					https://foxclub.ru/knowledgebase/peredacha-po-protokolu-ftp/
					
                    					    
                    										    Fri, 28 Aug 2020 11:32:14 +0000
										
						
														
Передача по протоколу FTP
													
													
Передача по протоколу FTP с помощью стандартной утилиты ftp.exe

Передача по протоколу FTP
 Есть вариант, надежный и простой. Использует стандартную утилиту 
 FTP, входящую в состав Windows-9х. Работает в FPV и FPD. 
 ---------- Здесь пример программы ---------- 
 CLOSE ALL 
 CLEAR ALL 
 CLEAR 
 FileName="Test.txt" 
 SET CONSOLE OFF 
 SET PRINTER ON 
 SET PRINTER TO MyFile. 
 SET TEXTMERGE ON 
 open 12.46.62.8  <-- здесь Ваш IP-адрес 
 osipov            <-- здесь Ваше имя 
 my_passwd         <-- здесь Ваш пароль 
 cd /public/users/alexdata 
 ascii 
 get <<FileName>> 
 quit 
 SET PRINTER TO 
 SET PRINTER OFF 
 SET TEXTMERGE OFF 
 SET CONSOLE ON 
 ! FTP -s:MyFile -v -d >Nul 
 DELETE FILE MyFile 
 CLEAR 
 ---------- Конец примера ---------- 
 См. Также работу с функциями API   
 Думаю, особых пояснений здесь не требуется. Формируем текстовый файл, содержащий команды утилиты FTP и затем вызываем FTP с соответствующим списком параметров. 
 Так я "общаюсь" с UNIX'ом. Может и туповато, но зато работает на любой машине, где есть Windows-9x без всяких дополнительных штучек. 
 A.Пинигин, СБОРНИК прибамбасов для VFP по материалам конференций, литературы и собственных разработок.  г. Рига E-mail: apinigin@olainfarm.lv
Автор: A.Пинигин
Автор публикации

    

		
не в сети 2 месяца
        

            Joys
        
    

    

        

            
				            
			        

        

			Комментарии: 2Публикации: 177Регистрация: 25-06-2000        
    
(далее…)
																		]]>
					
									
											
					https://foxclub.ru/knowledgebase/kak-poluchit-dannye-iz-reestra/
					
                    					    
                    										    Fri, 28 Aug 2020 11:32:14 +0000
										
						
														
Как получить данные из реестра
													
													
Как получить данные из реестра, пример работы с реестром

Как получить данные из реестра
 Вот кусочек моей программы. Здесь я читаю из реестра параметры настройки 
 принтера с целью определить ориентацию страницы: книжная или альбомная, и 
 размер бумаги. 
 #define HKEY_LOCAL_MACHINE 0x80000002 
 #define KEY_READ 0x00020019 
 #define ERROR_SUCCESS 0 
 DECLARE INTEGER RegOpenKeyEx IN ADVAPI32; 
   INTEGER HKLM, STRING SubKey, INTEGER Dummy, INTEGER Access,ж 
   INTEGER @hKey 
 DECLARE INTEGER RegCloseKey IN ADVAPI32 INTEGER 
 DECLARE INTEGER RegQueryValueEx IN ADVAPI32; 
   INTEGER hKey, STRING ValueName, INTEGER Dummy, INTEGER Type,; 
   STRING Data, INTEGER @Size 
 * это ветвь реестра, в которой находится интересующий нас параметр 
 SubKey="SystemCurrentControlSetcontrolPrintPrinters"+PrinterName 
 * Открываем эту ветвь и получаем её handle 
 IF RegOpenKeyEx(HKEY_LOCAL_MACHINE,SubKey,0,KEY_READ,@hKey) != 
    ERROR_SUCCESS 
   MESSAGEBOX("Не удаётся получить параметры настройки принтера "+; 
              "из системного реестра.",16,"Печать") 
   RETURN 
   ENDIF 
 * "Default DevMode" - это название параметра, значение которого я хочу 
 * получить. Сначала определяем, сколько памяти нам нужно зарезервировать, 
 * чтобы принять этот параметер 
 nSize=0 
 RegQueryValueEx(hKey,"Default DevMode",0,0,0,@nSize) 
 * Резервируем память 
 DevMode=SPACE(nSize) 
 * Теперь считываем значение параметра 
 RegQueryValueEx(hKey,"Default DevMode",0,0,@DevMode,@nSize) 
 * Заканчиваем работать с реестром 
 RegCloseKey(hKey) 
 *  
 dmOrientation=ASC(SUBSTR(DevMode,45,1)) && 1 - книжная; 2 - альбомная 
 dmPaperSize=ASC(SUBSTR(DevMode,47,1))   && 8 - A3; 9 - A4 
 A.Пинигин, СБОРНИК прибамбасов для VFP по материалам конференций, литературы и собственных разработок.  г. Рига E-mail: apinigin@olainfarm.lv
Автор: A.Пинигин
Автор публикации

    

		
не в сети 2 месяца
        

            Joys
        
    

    

        

            
				            
			        

        

			Комментарии: 2Публикации: 177Регистрация: 25-06-2000        
    
(далее…)
																		]]>
					
									
											
					https://foxclub.ru/knowledgebase/reindeksacziya-tablicz-bazy-dannyh/
					
                    					    
                    										    Wed, 16 Jun 2021 17:02:18 +0000
										
						
														
Реиндексация таблиц базы данных
													
													
Реиндексация таблиц базы данных. Удобно тем, что не нужно реиндексировать каждую таблицу.

Реиндексация таблиц базы данных
CLOSE TABLES

FOR i = 1 to ADBOBJECTS(laTables, "Table")

IF !EMPTY(laTables[i])

IF !USED(laTables[i])

USE (laTables[i]) IN 0 EXCL

SELECT (laTables[i])

WAIT WINDOW NOWAIT REINDEXING_LOC + ;  

UPPER(ALLTRIM(laTables[i])) + ".DBF"  
REINDEX

ENDIF

ENDIF

ENDFOR

CLOSE TABLES

WAIT WINDOW NOWAIT DONE_LOC

#DEFINE OUTFILE "valdbc.txt"

CLOSE TABLES  
IF FILE(OUTFILE)

DELETE FILE OUTFILE

ENDIF  
this.WaitMode(.T.)

WAIT WINDOW NOWAIT VALIDATING_LOC

VALIDATE DATABASE TO FILE OUTFILE NOCONSOLE

WAIT CLEAR

this.WaitMode(.F.)  
MODIFY FILE OUTFILE NOMODIFY NOMENU  
DELETE FILE OUTFILE
A.Пинигин, СБОРНИК прибамбасов для VFP по материалам конференций, литературы и собственных разработок. г. Рига E-mail: apinigin@olainfarm.lv

Автор: A.Пинигин
Автор публикации

    

		
не в сети 2 месяца
        

            Joys
        
    

    

        

            
				            
			        

        

			Комментарии: 2Публикации: 177Регистрация: 25-06-2000        
    
(далее…)
																		]]>
					
									
											
					https://foxclub.ru/knowledgebase/kak-prosmotret-spisok-obektov-soderzhashhihsya-v-dataenvironment/
					
                    					    
                    										    Fri, 28 Aug 2020 11:32:14 +0000
										
						
														
Как просмотреть список обьектов, содержащихся в DataEnvironment
													
													
Как просмотреть список обьектов, содержащихся в DataEnvironment

Как просмотреть список обьектов, содержащихся в DataEnvironment 
 . Hо в свойства DataEnvironment не нашел свойств вроде Objects или Cursors, Relations. 
 В Click() фоpмы помести следующий код и щёлкни по ней, дальше думаю 
 поймёшь. 
 FOR i = AMEMBERS(anThisForm, ThisForm, 2) TO 1 STEP -1 
 IF UPPER( EVAL('ThisForm.' + anThisForm[i] + '.BaseClass') ) ='DATAENVIRONMENT' 
 FOR j = 1 TO AMEMBERS( anDE, EVAL('ThisForm.' + anThisForm[i] ), 2) 
 WAIT WINDOW 'ThisForm.' + anThisForm[i] + '.' + anDE[j] && Лови, вот он 
 ENDFOR 
 ENDIF 
 ENDFOR 
 A.Пинигин, СБОРНИК прибамбасов для VFP по материалам конференций, литературы и собственных разработок.  г. Рига E-mail: apinigin@olainfarm.lv
Автор: A.Пинигин
Автор публикации

    

		
не в сети 2 месяца
        

            Joys
        
    

    

        

            
				            
			        

        

			Комментарии: 2Публикации: 177Регистрация: 25-06-2000        
    
(далее…)
																		]]>
					
									
											
					https://foxclub.ru/knowledgebase/vstraivanie-v-prilozhenie-instrumetov-dlya-raboty-s-bd-ruchkami-i-dr/
					
                    					    
                    										    Fri, 28 Aug 2020 11:32:14 +0000
										
						
														
Встраивание в приложение инструметов для работы с БД ручками и др.
													
													
Изpедка возникает потpебность на компьютеpе заказчика поковыpять базу данных.  Для этого нужно либо таскать с собой полную сpеду фокса, либо сделать отдельную инстpументальную пpогpамму.  Я пpедпочел включить такие дополнительные инстpументальные функции в основную пpогpамму и запускать их паpаметpами командной стpоки ...

Встраивание в приложение инструметов для работы с БД ручками и др.
    Изpедка возникает потpебность на компьютеpе заказчика поковыpять базу данных.    Для этого нужно либо таскать с собой полную сpеду фокса, либо сделать отдельную инстpументальную пpогpамму.     Я пpедпочел включить такие дополнительные инстpументальные функции в основную пpогpамму и запускать их паpаметpами командной стpоки, для чего на днях (декабpь 1998) сооpудил нижеследующее.  Если пpиведенный пpимеp вставить в начало пpогpаммы, то она тепеpь, помимо своего пpямого назначения, сможет откликаться на команды:
    MYPROG.EXE /GTABLE.DBF  - вызов BROWSE для TABLE.DBF
    MYPROG.EXE /PFILE.TXT   - выполнение (макpоподстановкой) команд из
                              файла FILE.TXT  
 ************************************************************ *              Главная (начальная) пpоцедуpа ************************************************************     lparameters par1, par2, par3, par4, par5, par6, par7  * паpаметpы ------------------------------------------------ if !empty(par1)   local par_cmd   par_cmd = upper(left(par1,2))   do case   case par_cmd=="/G"  && бpаузеp -----------------     gmp_c_brow(substr(par1,3))    case par_cmd=="/P"  && командный файл ----------     gmp_c_prog(substr(par1,3))  * case par_cmd=="/?"  && и тому подобное --------- *   ... скажем вызов modify command для указанного файла...    otherwise           && ошибка ------------------     err_quit("Hевеpные паpаметpы командной стpоки")   endcase endif  * дальше пошла ваша пpогpамма ------------------------------ * do MyMainProg wait wind "Just main program running..."         return  *=========================================================== *              Для командной стpоки - Browse *===========================================================                procedure gmp_c_brow (f_name) gmp_c_begn() if !file(f_name)   err_quit("Hет файла "+f_name) endif use (f_name) if used()   keyboard "{Ctrl-F10}"    && :-)   browse endif cancel         return  *=========================================================== *              Для командной стpоки - Program *===========================================================                procedure gmp_c_prog (f_name) local f_hnd, f_str gmp_c_begn() ?"Выполнение команд из файла  " + f_name ? if !file(f_name)   err_quit("Hет файла "+f_name) endif f_hnd = fopen(f_name) if f_hnd																		]]>
					
									
											
					https://foxclub.ru/knowledgebase/opyt-perevoda-proekta-iz-foxpro-2-6-dos-v-vfp-6-0/
					
                    					    
                    										    Fri, 28 Aug 2020 11:32:14 +0000
										
						
														
Опыт перевода проекта из FoxPro 2.6 DOS в VFP 6.0
													
													
Опыт перевода проекта из FoxPro 2.6 DOS в VFP 6.0

Опыт перевода проекта из FoxPro 2.6 DOS в VFP 6.0
                              ОПЫТ ПЕРЕВОДА ПРОЕКТА 
                   из FoxPro 2.6 DOS в Visual FoxPro 6.0 
 Для чего я это пишу? 
 Чтение эхо-конференций и конференции Visual FoxPro Club показал, что, несмотря на существование современного средства разработки программ Visual FoxPro 6, многие продолжают программировать на устаревшем (морально и физически) средстве FoxPro 2.6 DOS. Причины различные, углубляться не буду. Но одна из причин, как мне кажется, инерция человеческого мышления, и неохота связываться с трудностями перехода на новое средство. А также кажущиеся огромные трудности. 
 Да, бесспорно, трудности есть. Особенно, когда это приходится преодолевать самостоятельно. По слухам, существует кое-какая литература, посвященная этой проблеме, но я не сталкивался. Преодолел эти трудности самостоятельно, и теперь возникло желание поделиться решениями. 
 Замечание Игоря Шанука. В MSDN есть раздел посвященный переводу проектов разработанных на более ранних версиях FoxPro: "Converting from Other Versions of FoxPro" -> "Converting from FoxPro 2.6" 
 Данные записки предназначены для тех, кто уже хочет, но еще не может, или для тех, кто ну никак не созреет к переходу на VFP 6.0. 
 Замечание! На самом деле, переход с 2.6 на VFP 6.0 не столь уж и труден. Во всяком случае, задача вполне преодолимая. VFP 6.0 декларирует поддержку всего, созданного в ранних версиях FoxPro. Хотя это и не совсем так, но это мелочи. 
 Ограничения. 
 Проект, который я переводил из 2.6 в 6.0, содержит только процедуры и свободные таблицы. То есть, отчеты, запросы, окна и т. п. запрограммированы ручками в процедурах (в файлах PRG). 
 Предполагается, что VFP 6.0 проинсталлирован и имеются исходные тексты проекта, который переводится. Инсталляция FoxPro 2.6 необязательна. 
 Порядок перевода. 
 1.     Создаем новую папку. 
 2.     Требуется устранить первую проблему отображения русских букв. Связано это с тем, что в 2.6 файлы в кодовой странице 866. 
 Решение может быть таким: создать новый проект в VFP 6.0, включить в него все PRG файлы, и в Projekt Info -> Files проставить всем файлам Code Page = 866 (Russian MS-DOS). Однако в этом случае, текст преобразованного PRG файла оставляет желать лучшего, потому что по непонятным причинам русский текст искажается (многие буквы не воспринимаются и заменяются различными никому не нужными и всем мешающими символами). 
 Я рекомендую следующее решение: 
 -     Открыть PRG файлы (можно последовательно) в WinWorde, указав кодировку – Кирилица (DOS). 
 -     Открытые файлы сохранить в новой папке как текстовые с расширением PRG, но в другом формате (Файл -> Сохранить как –> формат файла = только текст (*.txt) –> ответить ДА на запрос о преобразовании). В этом случае, PRG файлы сразу делаются в кодировке 1251 и русский текст корректен. 
 Замечание! Работа довольно кропотливая, но она стоит того. В противном случае, см. решение 1, описанное выше, Вам придется просматривать тексты PRG файлов и корректировать все надписи по-русски. Это гораздо больше работы. 
 Замечание Игоря Шанука. Тут на мой взгляд хорошо бы было уточнить этот момент.Я провел эксперимент: 
 1.     Создал новый файл проекта (в VFP) 
 2.     Добавил в него (вручную) нужные файлы 
 3.     Установил для файлов 866 кодовую страницу (до установки кодовой страницы файл не открывался) 
 После всех этих манипуляций русский текст в комментариях и сообщениях, которые предполагалось выдавать пользователю, нормально читался. 
 Замечание Игоря Шанука. Т.е. фактически подхода два: 
   a) предоставить FoxPro работать с файлами в исходной кодовой странице 
 (866), 
     b) либо предварительно перекодировать файлы в 1251. (В этом случае 
 можно написать несложную утилиту (на том же FoxPro) которая автоматизирует этот процесс). 
 4.     Требуется устранить вторую проблему отображения русских букв. Связано это с тем, что в 2.6 окна отображают русские буквы шрифтом по умолчанию, и может получиться греко-арабская абракадабра при выполнении проекта. 
 Для этого необходимо добавить в описание окон наименование [и размер] шрифта, например:  
 DEFINE WINDOW okno ; 
           FROM INT((SROW()-19)/2),INT((SCOL()-80)/2) ; 
           TO INT((SROW()-19)/2)+19,INT((SCOL()-80)/2)+79 ; 
           TITLE "РЕДАКТИРУЕМЫЕ РЕГИСТРАЦИОННЫЕ ДАННЫЕ" ; 
           NOFLOAT ; 
           NOCLOSE ; 
           NOMINIMIZE ; 
           DOUBLE ; 
           COLOR w+/bg,w+/b,gr/n,gr+/w,n+/w,w+/gr,bg+/bg,n+/n,b/bg,w/bg,+ ; 
           FONT 'Times New Roman', 10 
 5.     Заменить все литеральные константы дат типа {01.01.93} на {^1993-01-01}, т. е. -   {^ГГГГ-ММ-ДД}. 
 Замечание Игоря Шанука. Этого можно не делать, если в VFP установить SET STRICTDATE TO 0. Так же думаю, что полезно привести ссылку на раздел MSDN "Year 2000 Date Support" 
 6.     Добавить соответствующее SET CENTURE 
 7.     Удалить из новой папки все файлы с расширением FXP. Могут случайно попасться FXP файлы для FoxPro 2.6, которые очень сильно будут мешать. 
 8.     Создать новый файл проекта. Включить в него все необходимые PRG файлы и перекомпилировать проект (предполагается, что Вы знаете как включать файлы в проект и как перекомпилировать проект). 
 9.     ВСЕ! Проект можно запускать на выполнение. Однако, для дальнейшей хорошей работы, проект желательно все-таки перепроектировать, а именно – добавить формы, поиграть с размерами и фонтами окон, и т.п. 
 Примечание! Автор будет благодарен, если кто-нибудь дополнит эти скромные записки материалами по переводу из 2.6 в VFP отчетов, запросов и т.п. прибамбасов. 
Автор: ГВК
Автор публикации

    

		
не в сети 26 лет
        

            ГВК
        
    

    

        

            
				            
			        

        

			Комментарии: 0Публикации: 2Регистрация: 03-10-2000        
    
(далее…)
																		]]>
					
									
											
					https://foxclub.ru/knowledgebase/grid-ispolzovanie-goryachih-klavish-ctrl-c-ctrl-v-ctrl-x-dlya-zapisi-v-bufer-obmena/
					
                    					    
                    										    Fri, 28 Aug 2020 11:32:13 +0000
										
						
														
GRID. Использование горячих клавиш Ctrl+C, Ctrl+V, Ctrl+X для записи в буфер обмена.
													
													
В скомпилированном EXE-файле стандартные сочетания клавиш для работой с буфером обмена (ctrl+c,ctrl+v,ctrl+x) не работают. Как же работать с буфером обмена.

GRID. Использование горячих клавиш Ctrl+C, Ctrl+V, Ctrl+X для записи в буфер обмена. 
 Для EXE шника.  В режиме RUN-TIME работает и без этого. 
 Это только для текстового поля (Учесть что в _CLIPTEXT данные хранятся в текстовом формате) 
 Обмен ведется через системную переменную _CLIPTEXT. 
  В метод KeyPress объекта записывается: 
 DO CASE 
   CASE nkeycode=13 
     THIS.DBLCLICK 
   CASE nkeycode = 3 AND nshiftaltctrl = 2    && Ctrl+C 
     _CLIPTEXT =ALLTRIM(THIS.SELTEXT) 
   CASE nkeycode = 22 AND nshiftaltctrl = 2   && Ctrl+V 
        THIS.SELTEXT = _CLIPTEXT 
     THISFORM.REFRESH 
   CASE nkeycode = 24 AND nshiftaltctrl = 2   && Ctrl+X 
     _CLIPTEXT =ALLTRIM(THIS.SELTEXT) 
     THISFORM.REFRESH 
 ENDCASE 
 A.Пинигин, СБОРНИК прибамбасов для VFP по материалам конференций, литературы и собственных разработок.  г. Рига E-mail: apinigin@olainfarm.lv
Автор: A.Пинигин
Автор публикации

    

		
не в сети 2 месяца
        

            Joys
        
    

    

        

            
				            
			        

        

			Комментарии: 2Публикации: 177Регистрация: 25-06-2000        
    
(далее…)
																		]]>
					
									
											
					https://foxclub.ru/knowledgebase/kak-vstavit-novyj-obekt-v-grid-i-ubrat-staryj/
					
                    					    
                    										    Fri, 28 Aug 2020 11:32:13 +0000
										
						
														
Как вставить новый объект в GRID и убрать старый
													
													
Как вставить в столбцы GRID не только стандартный textbox, но и checkbox,spinner ... и как их потом удалить ...

Как вставить новый объект в GRID и убрать старый
 ·	Выбрать колонку, в которой вы хотите использовать другой элемент управления. 
 ·	Выбрать на панели инструментов FORM CONTROLS требуемый элемент управления и щелкнуть мышкой на выбранной колонке. Пусть вас не сиущает, что элемент управления не отобразился немедленно. 
 ·	Используя список объектов в окне PROPERTY, убедитесь, что выбранный элемент управления появился с отступом ниже выбранной колонки. Установите для элемента управления необходимые свойства. Например, еслимы будем отображать в форме данные таблицы INVOICES, то, очевидно, логическое поле paid, показывающее признгак оплаты счета, удобно отображать с помощью элемента управления CHECKBOX. Для этого объекта надо установить свойство CAPTION значение “ ” (пустая строка), а для свойства Sparce колонки значение .F.. 
 ·	Для колонки свойство CurrentControl следует установить равным наименованию используемого элемента упарвления. Вот теперь в колонке Grid вы увидите графическое отображение типа выбранного объекта 
 >Вопрос как убрать этот же CheckBox? 
 >Александр 
 Делается это так.  
 ·	По правой кнопке мыши вызываем окно Properties.  
 ·	Выбираем в нем объект, который нужно удалить.  
 ·	Не закрывая окна Properties, кликаем мышой по заголовку (!!!) окна Form Designer.  
 ·	Жмём клавишу Delete.  
 ·	Радуемся жизни и пьём пиво. 
 Прислал Кирилл. 
 "Cyrill Phomin" <cyrill@dci.mpei.ac.ru> 
 Organization: Moscow Power Engineering Institute 
 Date: Fri, 18 Dec 1998 21:32:19 +0300 
 A.Пинигин, СБОРНИК прибамбасов для VFP по материалам конференций, литературы и собственных разработок.  г. Рига E-mail: apinigin@olainfarm.lv
Автор: А.Пинигин
Автор публикации

    

		
не в сети 2 месяца
        

            Joys
        
    

    

        

            
				            
			        

        

			Комментарии: 2Публикации: 177Регистрация: 25-06-2000        
    
(далее…)
																		]]>
					
									
											
					https://foxclub.ru/knowledgebase/rabota-iz-vfp-s-excel-s-ispolzovaniem-ole/
					
                    					    
                    										    Fri, 28 Aug 2020 11:32:14 +0000
										
						
														
Работа из VFP с EXCEL с использованием OLE
													
													
Еще один пример работы с Excel из VFP

Работа из VFP с EXCEL с использованием OLE
 1 вариант 
 OLEOBJECT = CREATEOBJECT("EXCEL.Application") 
 OLEOBJECT.APPLICATION.VISIBLE = .T. 
 SELECT diction 
 EXPORT TO INFO XL5 
 OLEOBJECT.workbooks.OPEN("c:aarazrabcapcodsinfo.XLs") 
 m_Kol2=reccount()+3 
 m_str=alltrim(str(m_kol)) 
 m_str2=alltrim(str(m_kol2)) 
 c1="C"+m_str 
 d1="D"+m_str 
 e1="E"+m_str 
 f1="F"+m_str 
 g1="G"+m_str 
 h1="H"+m_str 
 i1="I"+m_str 
 c2="C"+m_str2 
 OLEOBJECT.RANGE(C1).SELECT 
 OLEOBJECT.RANGE(C1).VALUE = "Kapkodi/Trafiks/=" 
 OLEOBJECT.RANGE(D1).SELECT 
 OLEOBJECT.RANGE(D1).VALUE = m2kol   			&& общее количество капкодов 
 OLEOBJECT.RANGE(E1).SELECT 
 OLEOBJECT.RANGE(E1).VALUE = m_traf_pagr 
 ******************************************************************************** 
 2 вариант 
 LOCAL m_kol,m_kols 
 #DEFINE xlleft          1 
 #DEFINE xlcenter        3 
 #DEFINE xlright         5 
 #DEFINE xlcenteracrossselection 7 
 #DEFINE xlnone          1 
 #DEFINE xlthin          2 
 #DEFINE xlmedium        3 
 #DEFINE xlbottom        4 
 *!*	Делаем выборку данных из таблицы wrzakaz 
 DO CASE 
   CASE REPORT.filename = "zakaz_pr" 
     m_nr_zakaz =  wrzakaz0.nr_zakaz 
     SELECT REPORT 
     SET DELETED ON 
     DO qr_zakaz_pr.QPR 
     SELECT qr_zakaz_pr 
     *!*	    ALTER TABLE qr_zakaz_pr ADD COLUMN spis N(5) 
     SELECT qr_zakaz_pr 
     GO TOP 
     m_kol=0 
     DO WHILE !EOF() 
       m_kol=m_kol+10 
       *!*	      m_kols = STR(m_kol,4,0)+"0" 
       REPL spis WITH m_kol 
       SKIP 
     ENDDO 
     APPEND BLANK 
     REPL spis WITH 0 
     REPL tovar WITH "FAX - THE COORDINATION OF THE ORDER" 
     REPL coment WITH m_nr_zakaz 
     APPEND BLANK 
     REPL spis WITH 1 
     REPL tovar WITH Thisform.m_nos+space(6)+Thisform.m_tl1  && телефон 1 
     APPEND BLANK 
     REPL spis WITH 2 
     REPL tovar WITH Thisform.m_tl2   && телефон 2 
     APPEND BLANK 
     REPL spis WITH 3 
     REPL tovar WITH Thisform.m_fax   && fax 
     APPEND BLANK 
     REPL spis WITH 4 
     * количество записей в таблице до подписи 
     m_count0 = RECCOUNT() +2 
     APPEND BLANK 
     REPL spis WITH m_kol+1 
     APPEND BLANK 
     REPL spis WITH m_kol+1 
     REPL tovar WITH "Kind regards       "+Thisform.m_fam && подпись 
     APPEND BLANK 
     REPL spis WITH m_kol+1 
     REPL tovar WITH DTOC(DATE()) 
     * количество записей в таблице 
     m_count = RECCOUNT() +1 
     INDEX ON spis TAG spis 
     SET ORDER TO spis 
     EXPORT TO qr_zakaz_pr XL5 
     OLEOBJECT = CREATEOBJECT("EXCEL.Application") 
     OLEOBJECT.APPLICATION.VISIBLE = .T. 
     m_pathxls = m_curdir + 'qr_zakaz_pr.XLS' 
     OLEOBJECT.workbooks.OPEN(m_pathxls) 
     FOR bukva =  65 TO    70 
       m1 = [OLEOBJECT.RANGE(]+["]+CHR(bukva)+[6]+["]+[).SELECT] 
       m2 = [OLEOBJECT.COLUMNS(]+["]+CHR(bukva)+[:]+CHR(bukva)+["]+[).entirecolumn.autofit] 
       OLEOBJECT.RANGE("C6").VALUE = "Pal" 
       OLEOBJECT.RANGE("B6").VALUE = "The goods" 
       OLEOBJECT.RANGE("D6").VALUE = "Box" 
       OLEOBJECT.RANGE("E6").VALUE = "Cost of the goods for 1 box" 
       &m1 
       *!*	 .HorizontalAlignment = xlCenter 
       *!*	        .VerticalAlignment = xlBottom 
       OLEOBJECT.SELECTION.FONT.bold = .T. 
       OLEOBJECT.SELECTION.FONT.italic = .T. 
       OLEOBJECT.SELECTION.FONT.NAME = "Arial" 
       OLEOBJECT.SELECTION.FONT.SIZE  = 10 
       &m2 
     ENDFOR 
     * Выделение области и удаление значений 
     * чистка области в районе 
     OLEOBJECT.RANGE("C2:E5").SELECT 
     OLEOBJECT.SELECTION.clearcontents 
     * чистка области порядковых номеров 
     OLEOBJECT.RANGE("A1:G1").SELECT 
     OLEOBJECT.SELECTION.clearcontents 
     m_oblast = "G1:G"+ALLTRIM(STR(m_count,3,0)) 
     m_comand = [OLEOBJECT.RANGE("]+m_oblast+[").SELECT] 
     &m_comand 
     OLEOBJECT.SELECTION.clearcontents 
     * чистка области в районе подписи 
     m_oblast0 = "C"+ALLTRIM(STR(m_count0,3,0))+":"+[E]+ALLTRIM(STR(m_count,3,0)) 
     m_comand0 = [OLEOBJECT.RANGE("]+m_oblast0+[").SELECT] 
     &m_comand0 
     OLEOBJECT.SELECTION.clearcontents 
     * чистка области кода номенклатуры 
     m_oblast = "A1:A"+ALLTRIM(STR(m_count,3,0)) 
     m_comand = [OLEOBJECT.RANGE("]+m_oblast+[").SELECT] 
     &m_comand 
     OLEOBJECT.SELECTION.clearcontents 
     * Выравнивание по центру 
     OLEOBJECT.RANGE("B2").SELECT 
     OLEOBJECT.SELECTION.horizontalalignment =  xlcenter 
     OLEOBJECT.SELECTION.verticalalignment = xlbottom 
     OLEOBJECT.SELECTION.FONT.NAME = "Arial" 
     OLEOBJECT.SELECTION.FONT.SIZE  = 15 
     xljustify = -4150 
     OLEOBJECT.RANGE("B3:B5").SELECT 
     OLEOBJECT.SELECTION.horizontalalignment = xlright 
     *!*	        OLEOBJECT.SELECTION.VerticalAlignment = xlJustify 
     OLEOBJECT.RANGE("B2:E2").SELECT 
     OLEOBJECT.SELECTION.horizontalalignment = xlcenter 
     *!*	    OLEOBJECT.SELECTION.merge 
     OLEOBJECT.RANGE("B3:E3").SELECT 
     OLEOBJECT.SELECTION.horizontalalignment =  -4152 && прижать вправо 
     *!*	    OLEOBJECT.SELECTION.merge 
     OLEOBJECT.RANGE("B4:E4").SELECT 
     OLEOBJECT.SELECTION.horizontalalignment =  -4152 && прижать вправо 
     *!*	    OLEOBJECT.SELECTION.merge 
     OLEOBJECT.RANGE("B5:E5").SELECT 
     OLEOBJECT.SELECTION.horizontalalignment =  -4152 && прижать вправо 
     *!*	    OLEOBJECT.SELECTION.merge 
     OLEOBJECT.RANGE("F2").SELECT 
     OLEOBJECT.SELECTION.FONT.italic = .T. 
     OLEOBJECT.SELECTION.FONT.NAME = "Arial" 
     OLEOBJECT.SELECTION.FONT.SIZE  = 7 
     SELECT qr_zakaz_pr 
     USE 
     DELETE FILE qr_zakaz_pr.DBF 
     DELETE FILE qr_zakaz_pr.CDX 
 A.Пинигин, СБОРНИК прибамбасов для VFP по материалам конференций, литературы и собственных разработок.  г. Рига E-mail: apinigin@olainfarm.lv
Автор: А.Пинигин
Автор публикации

    

		
не в сети 2 месяца
        

            Joys
        
    

    

        

            
				            
			        

        

			Комментарии: 2Публикации: 177Регистрация: 25-06-2000        
    
(далее…)
																		]]>
					
									
											
					https://foxclub.ru/knowledgebase/sozdanie-otcheta-s-ispolzovaniem-excel/
					
                    					    
                    										    Fri, 28 Aug 2020 11:32:14 +0000
										
						
														
Создание отчета с использованием Excel
													
													
Пример работы с Excel: создание отчета. Использует excel.h

Создание отчета с использованием Excel
 Системные констаиты хранятся в файле excel.h  
 Делаем запись макроса макрорекордером Excel, делаем переопределение  логических констант true и false командами #DEFINE true .T.,  #DEFINE false .F. и исправляем отдельные команды 
 WITH SELECTION.BORDERS(xledgeleft) в вид  
 WITH .SELECTION.BORDERS(xledgeleft) 
 END WITH   в вид  ENDWITH 
 * Пример программы рисования таблицы 
 #include excel.h 
 #DEFINE true .T. 
 #DEFINE false .F. 
 #DEFINE m_fontsize 18 
 #DEFINE m_fontname "Times New Roman" 
 IF !USED ("rep2") 
   SELECT 0 
   USE rep2 
 ELSE 
   SELECT rep2 
 ENDIF 
 * получение последнего номера строки 
 m_rec_kol = RECCOUNT()+1 
 m_adrsum = m_rec_kol+1 
 m_d1 = ALLTRIM(STR(m_rec_kol)) 
 m_d2 = ALLTRIM(STR(m_adrsum)) 
 lcolderror = ON("ERROR") 
 ON ERROR o_excel = .NULL. 
 o_excel = GETOBJECT( , "Excel.application") 
 ON ERROR &lcolderror 
 IF ISNULL(o_excel) 
   EXPORT TO rep_trener XL5 
   m_file_xls = SYS(5)+CURDIR()+"rep_trener.XLs" 
   o_excel = CREATEOBJECT("EXCEL.Application") 
   o_excel.APPLICATION.VISIBLE = .T. 
   o_excel.workbooks.OPEN("&m_file_xls") 
 ELSE 
   m_box = MESSAGEBOX("Проверте не запущен ли файл REP_TRENER.XLS "+CHR(13)+; 
     " ", 0+32, "Предупреждение!") 
   RETURN 
 ENDIF 
 WITH o_excel 
   *************************************************** 
   *!*	  выделение области таблицы и рисование линий 
   *************************************************** 
   * выделение области 
   m_com = [.RANGE("A1:I]+m_d1+[").SELECT] 
   &m_com 
   ********************************************* 
   * рисование линий 
   ********************************************* 
   .SELECTION.BORDERS(xldiagonaldown).linestyle = xlnone 
   .SELECTION.BORDERS(xldiagonalup).linestyle = xlnone 
   WITH .SELECTION.BORDERS(xledgeleft) 
     .linestyle = xlcontinuous 
     .weight = xlthin 
     .colorindex = xlautomatic 
   ENDWITH 
   WITH .SELECTION.BORDERS(xledgetop) 
     .linestyle = xlcontinuous 
     .weight = xlthin 
     .colorindex = xlautomatic 
   ENDWITH 
   WITH .SELECTION.BORDERS(xledgebottom) 
     .linestyle = xlcontinuous 
     .weight = xlthin 
     .colorindex = xlautomatic 
   ENDWITH 
   WITH .SELECTION.BORDERS(xledgeright) 
     .linestyle = xlcontinuous 
     .weight = xlthin 
     .colorindex = xlautomatic 
   ENDWITH 
   WITH .SELECTION.BORDERS(xlinsidevertical) 
     .linestyle = xlcontinuous 
     .weight = xlthin 
     .colorindex = xlautomatic 
   ENDWITH 
   WITH .SELECTION.BORDERS(xlinsidehorizontal) 
     .linestyle = xlcontinuous 
     .weight = xlthin 
     .colorindex = xlautomatic 
   ENDWITH 
   ********************************************* 
   * автоматическое выравнивание 
   ********************************************* 
   .cells.SELECT 
   .SELECTION.COLUMNS.autofit 
   *!*	  суммирование EXCELом 
   m_range = [.RANGE("I]+m_d2+[").SELECT] 
   m_summir = [.activecell.VALUE ="=SUM(I2:I]+m_d1+[)"] 
   &m_range 
   &m_summir 
   ********************************************* 
   * убрать Грид линии 
   ********************************************* 
   .activewindow.displaygridlines = false 
   * смена заголоаков 
   .RANGE("I1").SELECT 
   .activecell.formular1c1 = "Cумма" 
   .RANGE("G1").SELECT 
   .activecell.formular1c1 = "Цена продукции" 
   .RANGE("F1").SELECT 
   .activecell.formular1c1 = " Цена склада " 
   * смена формата данных 
   .COLUMNS("I:I").SELECT 
   .SELECTION.numberformat = "0.00" 
   .RANGE("A1:I1").SELECT 
   WITH .SELECTION 
     .horizontalalignment = xlcenter 
     .verticalalignment = xlcenter 
     .wraptext = true 
     .ORIENTATION = 0 
     .shrinktofit = false 
     .mergecells = false 
   ENDWITH 
   ********************************************* 
   * центровка заголовка документа 
   ********************************************* 
   .RANGE("A1:I1").SELECT 
   .SELECTION.INSERT 
   .SELECTION.merge 
   WITH .SELECTION 
     .horizontalalignment = xlcenter 
     .verticalalignment = xlbottom 
     .wraptext = false 
     .ORIENTATION = 0 
     .shrinktofit = false 
     .mergecells = true 
   ENDWITH 
   *********************************************8 
   * заголовок всего документа 
   ********************************************* 
   .RANGE("A1").SELECT 
   .activecell.VALUE = " Заголовок таблицы " 
   * смена типа и размера и шрифта 
   .RANGE("A1").SELECT 
   WITH .SELECTION 
     .FONT.NAME = m_fontname 
     .FONT.SIZE = m_fontsize 
   ENDWITH 
   * .sheets(1).SELECT 
   .sheets.ADD 
   .sheets(1).SELECT 
   .sheets(1).NAME = "Тренер" 
   .sheets("rep_trener").SELECT 
   .sheets("rep_trener").NAME = "Тренер_222" 
   .RANGE("I10:I20").SELECT 
 ENDWITH 
 o_excel.APPLICATION.VISIBLE = .T. 
 oexlchart = CREATEOBJECT("EXCEL.CHART") 
 oexlchart.chartwizard(oexlchart.PARENT.sheets(2).RANGE("I10:I20") ,,,2) 
 * oexlchart.chartwizard(oexlchart.parent.sheets(2).RANGE("I10:I13") ,,,2) 
 oexlchart.APPLICATION.VISIBLE = .T. 
 A.Пинигин, СБОРНИК прибамбасов для VFP по материалам конференций, литературы и собственных разработок.  г. Рига E-mail: apinigin@olainfarm.lv
Автор: A.Пинигин
Автор публикации

    

		
не в сети 2 месяца
        

            Joys
        
    

    

        

            
				            
			        

        

			Комментарии: 2Публикации: 177Регистрация: 25-06-2000        
    
(далее…)
																		]]>
					
									
											
					https://foxclub.ru/knowledgebase/primer-raboty-s-word-ispolzovanie-ole/
					
                    					    
                    										    Fri, 28 Aug 2020 11:32:14 +0000
										
						
														
Пример работы с Word (использование OLE)
													
													
Небольшой пример работы с Word

Пример работы с Word (использование OLE)
 oWord = CreateObject("Word.Basic") 
 oWord = FileOpen ("C:Мои документыTest.doc")       && must be exist! 
 oWord.Insert("ля-ля") 
 oWord.InsertPara 
 oWord.AppShow 
 	Виктор Рыбаков 
         	Торговая Фирма "НЕВСКИЙ", С-Петербург 
 "Viktor A. Rybakov" <rybak@nevsky.spb.su> 
 A.Пинигин, СБОРНИК прибамбасов для VFP по материалам конференций, литературы и собственных разработок.  г. Рига E-mail: apinigin@olainfarm.lv
Автор: А.Пинигин
Автор публикации

    

		
не в сети 2 месяца
        

            Joys
        
    

    

        

            
				            
			        

        

			Комментарии: 2Публикации: 177Регистрация: 25-06-2000        
    
(далее…)
																		]]>
					
									
											
					https://foxclub.ru/knowledgebase/ispolzovanie-kalendarya-dlya-vybora-daty/
					
                    					    
                    										    Fri, 28 Aug 2020 11:32:10 +0000
										
						
														
Использование календаря для выбора даты
													
													
Этот календарь можно использовать для выбора и вставки даты в поля форм или просто выбора и использования где-то еще.

Использование календаря для выбора    даты
Этот календарь можно использовать для выбора и вставки даты в    поля форм или просто выбора и использования где-то еще. 
Как пользоваться ... Сперва скачайте      класс Календаря. В этом архиве лежат четыре файла: calendar.vcx,calendar.vct,getdatecalendar.scx,getdatecalendar.sct.      Пользоваться мы будем в основном формами (getdatecalendar.scx/sct). 
Создайте форму или prg-файл. Для использование календаря нужно      обязательно поставить SET DATE GERMAN. Теперь запускаем форму: do form getdatecalendar      to sel_date. В переменную sel_date попадает выбранная дата. И теперь вы можете      ее поместить в поле (replace),форму или использовать как-либо еще.
Пример вызова календаря:
*** sel_date.prg
     set date german
     do form getdatecalendar to sel_date
     ? sel_date

Автор: YuriWhite
Автор публикации

    

		
не в сети 26 лет
        

            YuriWhite
        
    

    

        

            
				            
			        

        

			Комментарии: 0Публикации: 3Регистрация: 02-09-2000        
    
(далее…)
																		]]>
					
									
											
					https://foxclub.ru/knowledgebase/sistemnye-utility/
					
                    					    
                    										    Fri, 28 Aug 2020 11:32:13 +0000
										
						
														
Системные утилиты
													
													
Библиотека функций оформленная в виде DLL, Описание в SystemUtils.H

Автор: YuriWhite
Автор публикации

    

		
не в сети 26 лет
        

            YuriWhite
        
    

    

        

            
				            
			        

        

			Комментарии: 0Публикации: 3Регистрация: 02-09-2000        
    
(далее…)
																		]]>
					
									
											
					https://foxclub.ru/knowledgebase/ustanovka-866-kodovoj-straniczy-na-otkrytyh-tabliczah/
					
                    					    
                    										    Fri, 28 Aug 2020 11:32:13 +0000
										
						
														
Установка 866 кодовой страницы на открытых таблицах
													
													
Устанавливает 866ую кодовую страницу на открытых таблицах. Очень помогает при работе VFP с данными клипперовских программ

Установка 866 кодовой страницы на открытых таблицах
 * Подключаем функцию 
 declare INTEGER SetCP866 in codecpTOOLS.DLL STRING FileName 
 * Устанавливаем 866-ую кодовую страницу, на таблице кот. уже открыта другим приложением 
 SetCP866("C:aaaprimer.dbf") 
 * Далее открываем таблицу как вы привыкли.
Скачать cpTools.zip
Автор: Прислал Евгений Ермак
Автор публикации

    

		
не в сети 2 месяца
        

            Joys
        
    

    

        

            
				            
			        

        

			Комментарии: 2Публикации: 177Регистрация: 25-06-2000        
    
(далее…)
																		]]>
					
									
											
					https://foxclub.ru/knowledgebase/grid-vydelenie-aktivnoj-stroki/
					
                    					    
                    										    Fri, 28 Aug 2020 11:32:13 +0000
										
						
														
GRID. Выделение активной строки
													
													
Выделение любым цветом активной строки в Grid

GRID. Выделение активной строки
 * В Grid вставляется в событие INIT 
 SELECT xxxxxxxxxx 
 THISFORM.nRecno = 1 
 IF RECNO()#0 
 THIS.SetAll("dynamicbackcolor", "IIF(RECNO() = THISFORM.nRecno, RGB(255,255,0), RGB(255,255,255))", "COLUMN") 
 ENDIF 
 * В событие AfterRowColChange 
 THISFORM.nRecno = RECNO() 
 THIS.Refresh 
 * В форму добавить новое Property nRecno и сделать его численным =1 
 A.Пинигин, СБОРНИК прибамбасов для VFP по материалам конференций, литературы и собственных разработок. HELP "PRIBAMBASI  for VFP on materials of conferences, literature and own development
Автор: A.Пинигин
Автор публикации

    

		
не в сети 2 месяца
        

            Joys
        
    

    

        

            
				            
			        

        

			Комментарии: 2Публикации: 177Регистрация: 25-06-2000        
    
(далее…)
																		]]>
					
									
											
					https://foxclub.ru/knowledgebase/cheredovanie-polos-v-grid/
					
                    					    
                    										    Fri, 28 Aug 2020 11:32:13 +0000
										
						
														
Чередование полос в Grid
													
													
В Гриде первая строка рисуется одним цветом, вторая другим и т.д.

Чередование полос в Grid
 * В Grid вставляется в событие INIT 
 THISFORM.grid1.SETALL("dynamicBackColor", "IIF(MOD(RECNO( ), 2)=0, RGB(255,255,255), RGB(234,234,234))", "Column") 
 THISFORM.grid1.SETALL("dynamicForeColor", "IIF(MOD(RECNO( ), 2)=0, RGB(0,0,0), RGB(255,0,0))", "Column") 
 A.Пинигин, СБОРНИК прибамбасов для VFP по материалам конференций, литературы и собственных разработок. HELP "PRIBAMBASI  for VFP on materials of conferences, literature and own development
Автор: A.Пинигин
Автор публикации

    

		
не в сети 2 месяца
        

            Joys
        
    

    

        

            
				            
			        

        

			Комментарии: 2Публикации: 177Регистрация: 25-06-2000        
    
(далее…)
																		]]>
					
									
											
					https://foxclub.ru/knowledgebase/vydelenie-v-gride-strok-v-zavisimosti-ot-uslovij-samoj-stroki/
					
                    					    
                    										    Fri, 28 Aug 2020 11:32:13 +0000
										
						
														
Выделение в GRIDе строк в зависимости от условий самой строки.
													
													
Выделение в GRIDе строк в зависимости от условий самой строки (полей таблицы).

Выделение в GRIDе строк в зависимости от условий самой строки.
 Структура кодировки поля  “CODE” таблицы “NOMENKL”  C(8) 
 Кодировка трехуровневая  
 1. Два разряда   01000000 - Фрукты, овощи           	Группа товара 
 2. Три разряда   01010000 - Тропические плоды   	Подгруппа товара 
 3. Три разряда	 01010001 -  Бананы 			Конкретный товар 
 * В Grid вставляется в событие INIT 
 ogrd = THISFORM.grid1 
 * установка цвета фона 
 ogrd.SETALL("dynamicbackcolor", "", "Column") 
 ogrd.SETALL("dynamicforecolor", "", "Column") 
 * установка жирного шрифта для подгруппы товара 
 ogrd.SETALL("dynamicFontBold",  "iif(substr(nomenkl.code,3,6)='000000', .t., .f.)", "Column") 
 * установка красного цвета для символов для группы товара, и подгруппы товара 
 ogrd.SETALL("dynamicforecolor",   "iif(substr(nomenkl.code,6,3)='000', rgb(255,0,0), rgb(0,0,0))", "Column") 
 THISFORM.grid1.REFRESH() 
 ogrd.REFRESH 
 Аналогично можно сделать STORNO в финансовых программах  
 Аналогично можно выделить втроки по какому-то условию 
 THIS.SETALL("dynamicBackColor", "IIF(sl_cust.sv_k=0, RGB(255,255,255), RGB(234,234,234))", "Column") 
 THIS.SETALL("dynamicForeColor", "IIF(RECNO() = THISFORM.nRecno, ; 
 RGB(255,0,0),RGB(0,0,0))", "Column") 
 LPARAMETERS nColIndex 
 THISFORM.nRecno = RECNO() 
 THIS.Refresh 
 A.Пинигин, СБОРНИК прибамбасов для VFP по материалам конференций, литературы и собственных разработок. HELP "PRIBAMBASI  for VFP on materials of conferences, literature and own development
Автор: A.Пинигин
Автор публикации

    

		
не в сети 2 месяца
        

            Joys
        
    

    

        

            
				            
			        

        

			Комментарии: 2Публикации: 177Регистрация: 25-06-2000        
    
(далее…)
																		]]>
					
									
											
					https://foxclub.ru/knowledgebase/calendar/
					
                    					    
                    										    Fri, 28 Aug 2020 11:32:13 +0000
										
						
														
Calendar
													
													
Те из Вас, кто читал мою предыдущую статью о CheckListBox, наверное помнят, что я не очень-то люблю использовать ActiveX. Поэтому когда меня "приспичило" применить объект для работы с датами,  ActiveX - DataTimerPicker я сразу отбросил ...

Calendar
 Те из Вас, кто читал мою предыдущую статью о CheckListBox, наверное помнят, 
 что я не очень-то люблю использовать ActiveX. Поэтому когда меня "приспичило" 
 применить объект для работы с датами,  ActiveX - DataTimerPicker я сразу отбросил,  
 хотя он действительно прост и красив. Я решил создать свой календарь(смотри cal.vcx). 
 Что из этого получилось можно посмотреть на форме SAMPLE. Опишу лишь некоторые моменты. 
 Объект имеет добавленые свойства  ControlSource и Value они аналогичны стандартным,  
 т.е. в ControlSource указывается имя переменной или поле таблицы, Value содержит значение. 
 Стоит заметить, что эти свойства можно найти на вкладке OTHER, а не на вкладке DATA, т.к. 
 эти свойства добавленные. 
 Также добавлены два метода OnActivate и OnDeactivate, которые происходят соответственно  
 при активизации календаря и его удалении.   
Скачать Calendar.zip
Автор: SpyFox
Автор публикации

    

		
не в сети 26 лет
        

            SpyFox
        
    

    

        

            
				            
			        

        

			Комментарии: 0Публикации: 4Регистрация: 07-09-2000        
    
(далее…)
																		]]>
					
									
											
					https://foxclub.ru/knowledgebase/zapusk-win32-prilozhenij-bez-run/
					
                    					    
                    										    Fri, 28 Aug 2020 11:32:10 +0000
										
						
														
Запуск win32-приложений без RUN
													
													
Иногда бывает нужно запустить какой-нибудь там блокнот (notepad) из Foxpro. Но делая это командой RUN вы непременно будете несколько секунд смотреть на никому-ненужное DOS-окно

Запуск win32-приложений без RUN
Иногда бывает нужно запустить какой-нибудь там блокнот (notepad)      из Foxpro. Но делая это командой RUN вы непременно будете несколько секунд      смотреть на никому-ненужное DOS-окно. Оно конечно исчезнет вскоре, но все-равно      неприятно ... Используя небольшой класс SHELLEXECUTE можно запускать приложения      цивилизованно. Пример: 
set classlib to sh_execute 
     oex=create('sh_execute')
     oex.shellexecute('notepad.exe',,,'c:autoexec.bat')
Скачать класс можно здесь.      Скачать ...

Автор: Неизвестно
Автор публикации

    

		
не в сети 2 месяца
        

            Joys
        
    

    

        

            
				            
			        

        

			Комментарии: 2Публикации: 177Регистрация: 25-06-2000        
    
(далее…)
																		]]>
					
									
											
					https://foxclub.ru/knowledgebase/bbreindexer/
					
                    					    
                    										    Fri, 28 Aug 2020 11:32:13 +0000
										
						
														
BBreindexer
													
													
Модификация нескольких аналогичных индексов в разных таблицах одной командой.

BBreindexer
 Модификация нескольких аналогичных индексов в разных таблицах одной командой. Работа со всеми параметрами индексов. Использует прилагаемый ActiveX, регистрируемый автоиатически при первом запуске. 
 Представлен в виде .app для VFP6, исходники прилагаются.
Скачать bbreindexer.zip
Автор: Bela Bodecs
Автор публикации

    

		
не в сети 2 месяца
        

            Joys
        
    

    

        

            
				            
			        

        

			Комментарии: 2Публикации: 177Регистрация: 25-06-2000        
    
(далее…)
																		]]>
					
									
											
					https://foxclub.ru/knowledgebase/ls-rasshirenie-komandy-list-structure/
					
                    					    
                    										    Fri, 28 Aug 2020 11:32:13 +0000
										
						
														
LS – расширение команды List Structure
													
													
Вывод на экран или на печать нормально отформатированной структуры таблицы, в отличие от непонятно какого форматирования команды List stru

LS - расширение команды List Structure
 Вывод на экран или на печать нормально отформатированной структуры таблицы, в отличие от непонятно какого форматирования команды List stru 
 Как использовать: 
 скопируйте ls.app в директорию вашего проекта 
 =ls(.t.) - вывод структуры на принтер 
 =ls(.f.) - вывод структуры на экран 
 Исходные коды прилагаеются ...
Скачать ls.zip
Автор: John Koziol
Автор публикации

    

		
не в сети 2 месяца
        

            Joys
        
    

    

        

            
				            
			        

        

			Комментарии: 2Публикации: 177Регистрация: 25-06-2000        
    
(далее…)
																		]]>
					
									
											
					https://foxclub.ru/knowledgebase/valyuty-mira/
					
                    					    
                    										    Fri, 28 Aug 2020 11:32:13 +0000
										
						
														
Валюты мира
													
													
DBF с большинстов валют мира: краткое обозначение, название валюты и государства

Валюты мира
 DBF с большинстов валют мира: краткое обозначение, название валюты и государства       
Автор: John Koziol
Автор публикации

    

		
не в сети 2 месяца
        

            Joys
        
    

    

        

            
				            
			        

        

			Комментарии: 2Публикации: 177Регистрация: 25-06-2000        
    
(далее…)
																		]]>
					
									
											
					https://foxclub.ru/knowledgebase/mdb2dbc/
					
                    					    
                    										    Fri, 28 Aug 2020 11:32:13 +0000
										
						
														
MDB2DBC
													
													
Конвертор БД Access->VFP

MDB2DBC
 Конвертор баз данных из Access (.mdb) в VFP (.dbc). Не работает с полями General. Требует VFP6 и Access 2000. 
 Представлен в виде .app       
Автор: John Koziol
Автор публикации

    

		
не в сети 2 месяца
        

            Joys
        
    

    

        

            
				            
			        

        

			Комментарии: 2Публикации: 177Регистрация: 25-06-2000        
    
(далее…)
																		]]>
					
									
											
					https://foxclub.ru/knowledgebase/dbutils/
					
                    					    
                    										    Sat, 05 Sep 2020 21:39:20 +0000
										
						
														
DBUtils
													
													
Утилита для работы с базами данных (.dbc): сравнение, синхронизация и т.д.

DBUtils
Утилита для работы с базами данных (.dbc): 

1. Сравнение двух баз данных и вывод отчета о структурных различиях 

2. Печать структуры по полям/таблицам: 

- по полям: печатает список всех полей встречаемых в БД и соответсвующих им таблиц 

- по таблицам: печатает список всех таблиц и полей в каждой таблице. 

3. Синхронизация двух БД 

4. Сравнение индексов двух БД 
Утилита используется для сохранения одинаковой структуры данных в копии разработчика и копиях клиентов. Или для документирования структуры БД. 
Программа представлена в виде скомпилированного exe. Исходный код прилагается.

Автор: Chad Lemmer
Автор публикации

    

		
не в сети 2 месяца
        

            Joys
        
    

    

        

            
				            
			        

        

			Комментарии: 2Публикации: 177Регистрация: 25-06-2000        
    
(далее…)
																		]]>
					
									
											
					https://foxclub.ru/knowledgebase/dbc2mdb-vfp-access-v-1-0/
					
                    					    
                    										    Fri, 28 Aug 2020 11:32:13 +0000
										
						
														
DBC2MDB (VFP->Access) v 1.0
													
													
Конвертор файлов баз данных VFP (.dbc) в MS Access (.mdb)

DBC2MDB (VFP->Access) v 1.0
 Конвертор файлов баз данных VFP (.dbc) в MS Access (.mdb). DBC2MDB работает точно так же, как и визарды в VFP: запускаете и выбираете по шагам файлы VFP и Access. Представлен в виде .app. Требует VFP6 и Access 2000. НЕ КОНВЕРТИРУЕТ поля General и Currency.       
Автор: John Koziol
Автор публикации

    

		
не в сети 2 месяца
        

            Joys
        
    

    

        

            
				            
			        

        

			Комментарии: 2Публикации: 177Регистрация: 25-06-2000        
    
(далее…)
																		]]>
					
									
											
					https://foxclub.ru/knowledgebase/serijnyj-nomer-hdd/
					
                    					    
                    										    Fri, 28 Aug 2020 11:32:13 +0000
										
						
														
Серийный номер HDD
													
													
Функция возвращает серийный номер HDD

Серийный номер HDD
 Функция возвращает серийный номер HDD, который присваивается жесткому диску при форматировании. Может служить простейшим элементом защиты программ.       
Автор: Benn Kjaer
Автор публикации

    

		
не в сети 2 месяца
        

            Joys
        
    

    

        

            
				            
			        

        

			Комментарии: 2Публикации: 177Регистрация: 25-06-2000        
    
(далее…)
																		]]>
					
									
											
					https://foxclub.ru/knowledgebase/pereklyuchenie-raskladki-klaviatury/
					
                    					    
                    										    Fri, 28 Aug 2020 11:32:13 +0000
										
						
														
Переключение раскладки клавиатуры
													
													
Пример работы с раскладкой клавиатуры (определение текущей, изменение)

Переключение раскладки клавиатуры
 Привет! 
 Посмотрите на индикатор-преключатель раскладки клавиатуры. 
 Три файла: проект, экран-пример и класс с объектом 
 Для использования достаточно просто бросить объект на форму. 
 Идея индикатора:  
 каждые 100 мс (свойство объекта таймера) опрашивается состояние 
 клавиатуры. Виндёвый индикатор использует перехват (HOOK) 
 процедуры переключения раскладки, подставляя свой код.  
 Средствами Фокса такие фокусы осуществить непросто. 
 Переключение раскладки производится и клавиатурой, и мышью,  
 и из программы. 
 Отлично работает. Торможения прог не наблюдалось. 
 Жду вопросов и предложений на fade___@imail.ru 
 До встреч в киберпространстве. 😉 
 						Fade...       
Автор: Fade
Автор публикации

    

		
не в сети 26 лет
        

            fade___
        
    

    

        

            
				            
			        

        

			Комментарии: 0Публикации: 1Регистрация: 10-09-2000        
    
(далее…)
																		]]>
					
									
											
					https://foxclub.ru/knowledgebase/poisk-v-grid/
					
                    					    
                    										    Fri, 28 Aug 2020 11:32:13 +0000
										
						
														
Поиск в Grid
													
													
В новостях от 15.09.2000 прочитал о возможностях поиска в Grid и решил поэкспериментировать. Класс работает великолепно, но вот ищет только с начала строки. Да и выводить искомое значение в Header наверное не всегда удобно. На основании своих прежних наработок, данных почерпнутых из статей журнала FoxTalk (русское издание)  и используя, информацию, полученную при анализе работы класса Ingrid, я подготовил класс, который возможно кому-то облегчит жизнь.

Поиск в Grid
 В новостях от 15.09.2000 прочитал о возможностях поиска в Grid и решил поэкспериментировать. Класс работает великолепно, но вот ищет только с начала строки. Да и выводить искомое значение в Header наверное не всегда удобно. На основании своих прежних наработок, данных почерпнутых из статей журнала FoxTalk (русское издание)  и используя, информацию, полученную при анализе работы класса Ingrid, я подготовил класс, который возможно кому-то облегчит жизнь. 
 Описание класса: 
 	Класс содержит два объекта:  текстовый:  “Intext” и контейнер “Ins” и создан средствами  VFP 5.0. Назначение производить поиск “Locate”в полях имеющих  типы “Numeric”, “Character” и “Date” c возможностью уточнения и продолжения. 
  Для нормальной работы класса необходимо выполнить следующие действия. 
 1. На форме создайте Property  ”St”. 
 2. Поместите контейнер “Ins” на форму имеющую объект “Grid”.(В случае, если “Grid” расположен на закладке “Page Frame”, поместите контейнер “Ins” на туже страницу, что и “Grid”). Высоту контейнера необходимо установить в ручную, ширину класс установит равной ширине колонки в “Grid”. 
 3. Удалите из колонок объекты “Text1” 
 4. Добавьте объект “Intext” в колонки “Grid”. 
 В случае, если Вы используете методы удаляемых текстовых объектов, скопируйте эти методы в методы объекта “Intext”. 
 При попытке ввода символов в активной ячейке “Grid”, класс форматирует контейнер “Ins” под активную колонку, делает его видимым и начинает поиск.Поиск по первому символу не производится. По нажатию комбинации “Ctrl+Enter”, класс выполняет “CONTINUE” на последнее введенное значение поиска. Работа класса была проверена на Pentium100/32mb справочник, скопированный в курсор, содержал 5500 записей. Нареканий у пользователей не было. 
 С уважением Vadim Hairetdinov. 
Скачать search.zip
Автор: Vadim Hairetdinov
Автор публикации

    

		
не в сети 2 месяца
        

            Joys
        
    

    

        

            
				            
			        

        

			Комментарии: 2Публикации: 177Регистрация: 25-06-2000        
    
(далее…)
																		]]>
					
									
											
					https://foxclub.ru/knowledgebase/chastota-proczessora/
					
                    					    
                    										    Fri, 28 Aug 2020 11:32:13 +0000
										
						
														
Частота процессора
													
													
Определение частоты процессора (Mhz)

Частота процессора
 CPUSPEED.DLL 
 Определение частоты процессора (Mhz) 
 Visual C++ исходный код прилагается 
 Тестировано на: 
   Intel Pentiun II, Pentium Celeron 
   AMD K6 
   (WinNT Wks, WinNT Server, Win98) 
 Пример использования: 
   Declare Integer GetCPUSpeed in cpuspeed 
   nspeed = GetCPUSpeed() 
   MessageBox('CPU Speed: '+str(nspeed)) 
 Код для свободного распространения 
 Ramon F. Jaquez 
 d.jaquez@codetel.net.do 
Скачать cpuspeed.zip
Автор: Ramon F. Jaquez
Автор публикации

    

		
не в сети 2 месяца
        

            Joys
        
    

    

        

            
				            
			        

        

			Комментарии: 2Публикации: 177Регистрация: 25-06-2000        
    
(далее…)
																		]]>
					
									
											
					https://foxclub.ru/knowledgebase/dbf2html/
					
                    					    
                    										    Fri, 28 Aug 2020 11:32:13 +0000
										
						
														
DBF2HTML
													
													
Вывод DBF в виде HTML-файла.

DBF2HTML
 Создает HTML-файл с заголовком (имя таблицы), и столбцами, соответсвующими столбцам таблицы. Запускать из области с открытой таблицей: 
 do dbftohtml with 'filename.htm' 
Автор: Andrus Moor
Автор публикации

    

		
не в сети 2 месяца
        

            Joys
        
    

    

        

            
				            
			        

        

			Комментарии: 2Публикации: 177Регистрация: 25-06-2000        
    
(далее…)
																		]]>
					
									
											
					https://foxclub.ru/knowledgebase/programma-dlya-dokumentaczii-tablicz-v-katalogebd-dirdbc/
					
                    					    
                    										    Fri, 28 Aug 2020 11:32:13 +0000
										
						
														
Программа для документации таблиц в каталоге(БД)-DIRDBC
													
													
Программа,направляющая в HTML-файл структуру всех таблиц в каталоге или в базе данных VFP (также структура VIEW) c выражениями для индексов, значений полей по умолчанию и т.п.    Требуется библиотека поддержки VFP6.

Программа для документации таблиц в каталоге(БД)-DIRDBC
 Программа,направляющая в HTML-файл структуру всех таблиц в каталоге или в базе данных VFP (также структура VIEW) c выражениями для индексов, значений полей по умолчанию и т.п.    Требуется библиотека поддержки VFP6.      
                                     С уважением.Алексей. 
Скачать dirdbc
Автор: Алексей
Автор публикации

    

		
не в сети 6 месяцев
        

            admin
        
    

    

        

            
				            
			        

        

			Комментарии: 1Публикации: 123Регистрация: 10-12-2000        
    
(далее…)
																		]]>
					
									
											
					https://foxclub.ru/knowledgebase/tochka-razdelitel-desyatyh-dolej-v-textbox-ah/
					
                    					    
                    										    Fri, 28 Aug 2020 11:32:13 +0000
										
						
														
Точка-разделитель десятых долей в textbox-ах
													
													
В текстовых полях на форме, где есть десятые доли не печатается разделяющая запятая с числовой клавиатуры, если активная раскладка русская. Как бороться ...

Точка-разделитель десятых в textboxах
 В текстовых полях на форме, где есть десятые доли не печатается разделяющая запятая с числовой клавиатуры, если активная раскладка русская. Если же текущая раскладка английская, то такой проблемы не возникает. В бухгалтерских программам (да и во всех других русскоязычных), где в большинстве своем используется русский язык, постоянно переключаться на английский язык неудобно. Есть несколько решений этой проблемы ... 
 1) самая простая ... точка есть рядом с правым шифтом, вполне работоспособная ... но ни один бухгалтер на такое не купится 😉 
 1.1) на WinNT4 такой проблемы нет в принципе, по крайней мере на Server 
 2) посложнее 😉 ... в сетах ставим set point to ',', теперь на русском языке разделитель печатается, но на английском не печатается ... если нет нужды переключаться с русского на английский, то вполне рабочий метод. Но иногда винды сами крутят активную раскладку как хотят, и этот метод не подходит ... 
 3) можно сделать новый класс на основе textbox, в котором в методе keypress заменять запятую на точку: 
 if nkeycode=44 
 keyb'.' 
 endif 
 метод годится, если вы только начали делать программу ... 
 4) если у вас уже есть готовая программа с сотнями текстбоксов и второй способ не подходит, то можно ПОСТОЯННО сделать активной РУССКУЮ раскладку и написать тот же set point to ','. Постоянно сделать активной раскладкой русскую можно с помощью winAPI ... на каждую форму ставим таймер, интервал по выбору, но что-то около .1 сек. в событий timer пишем: 
 DECLARE INTEGER LoadKeyboardLayout IN win32api STRING, INTEGER  
 =LOADKEYBOARDLAYOUT("00000419",1) && Ru  
 5) можно поменять файл kbdru.dll в виндах, но счас версий виндов раных как китайцев, поэтому что стоит у заказчика неизвестно. Да и корежить винды - нехорошо 🙂 и так сами чуть не падают ... 
 Ну вроде и все, что вспомнил и увидел 🙂 Если кто-нибудь знает как еще, пишите iron@serov.ru
Автор: Sergey
Автор публикации

    

		
не в сети 25 лет
        

            Pyresev
        
    

    

        

            
				            
			        

        

			Комментарии: 0Публикации: 1Регистрация: 27-05-2001        
    
(далее…)
																		]]>
					
									
											
					https://foxclub.ru/knowledgebase/rabota-s-serverami-pop3smtpimap/
					
                    					    
                    										    Fri, 28 Aug 2020 11:32:13 +0000
										
						
														
Работа с серверами POP3,SMTP,IMAP
													
													
ActiveX для работы с серверами POP3,SMTP,IMAP. Полное управление почтой: прием, посылка, удаление, печать ... Представлен в виде набора DLL-файлов.

Работа с серверами POP3,SMTP,IMAP
 ActiveX для работы с серверами POP3,SMTP,IMAP. Полное управление почтой: прием, посылка, удаление, печать ... Представлен в виде набора DLL-файлов.  
 Ниже показан пример, взятый из помощи к компоненту. Все достаточно просто и стабильно работает в VFP. 
 Файл справки прилагается к архиву компонента, можете разобраться во всем сами. Но позже, я планирую написать несколько примеров работы с компонентом для тех, кому лень разбираться 😉 
 Скачать сам компонент можно тут - Easymail Objects 
 Скачивайте, запускайте и у вас появится несколько новых .dll в системе. 
 Теперь о лицензии ... компонент поставляется как shareware и стоит 399$. Но для русских программистов 😉 есть LicenseKey ...  
 в нижеприведенном коде строка POP3.DemoMode=1 заменяется на: 
 POP3.DemoMode = 0 
 POP3.LicenseKey='iron/S18I500R1AX40C0Rb100' 
 ... и все работает ... лишь бы совесть не грызла 🙂 
 ------- 
 Procedure DisplayMail(strServer, strAccount, strPassword) 
   Private x, POP3 
   POP3 = CreateObject("EasyMail.POP3.5") 
   POP3.Account = strAccount 
   POP3.Password = strPassword 
   POP3.MailServer = strServer 
   POP3.DemoMode = 1 
 &&  POP3.DemoMode = 0 
 &&  POP3.LicenseKey='iron/S18I500R1AX40C0Rb100' 
   x = POP3.Connect() 
   If x  0 Then 
      return 
   EndIf 
   x = POP3.DownloadMessages(0) 
   POP3.Disconnect 
   If x  0 Then 
      return 
   EndIf 
   For Each Message In POP3.Messages 
      MessageBox("SUBJECT: " + Message.Subject, 0, "Message Found") 
   Next Message 
   Release POP3 
 EndProc 
 И запуск функции деается так:
 Do DisplayMail With "mail.yourdomain.com", "jdoe", "secret" 

Автор: Quiksoft Corp.
Автор публикации

    

		
не в сети 2 месяца
        

            Joys
        
    

    

        

            
				            
			        

        

			Комментарии: 2Публикации: 177Регистрация: 25-06-2000        
    
(далее…)
																		]]>
					
									
											
					https://foxclub.ru/knowledgebase/report-to-docrtfhtml-v1-36/
					
                    					    
                    										    Fri, 28 Aug 2020 11:32:10 +0000
										
						
														
Report to DOC,RTF,HTML v1.36
													
													
Чаще всего на вопрос "Как я могу экспортировать отчет в формат DOC" отвечали "никак". Visual Foxpro мог только печатать отчеты, выводить их на предпросмотр,выводить в текстовый файл

Report to DOC,RTF,HTML
Это краткое переведенное описание по использованию класса. Полное      описание в архиве вместе с самим классом. Скачать      его можно здесь ...
Введение
Чаще всего на вопрос "Как я могу экспортировать отчет в      формат DOC" отвечали "никак". Visual Foxpro мог только печатать      отчеты, выводить их на предпросмотр,выводить в текстовый файл. Но сегодня      очень важно переносить документы в офисные приложения и Интернет. FRX2WORD      позволяет разработчикам экспортировать существующие отчеты в Microsoft Office      97/2000 или HTML. 
Требования
- Visual Foxpro 6.0 Service Pack 3 
     - Microsoft Word 2000 (или Word 97, но не полная функциональность)
     - 64Mb RAM (32Mb минимум)
Использование
Для использования класса нужно класс msoexp.vcx добавить в ваш      проект. И он может быть вызван, как любой другой класс:
      oF2W=NEWOBJECT(“frx2word”,”msoexp”) 
     oF2W.SaveFolder=CURDIR() 
     oF2W.DOC_FileName=”Wordout.doc”
     nSuccess=oF2W.ReportForm(“MyReport”) 

Автор: John Koziol
Автор публикации

    

		
не в сети 2 месяца
        

            Joys
        
    

    

        

            
				            
			        

        

			Комментарии: 2Публикации: 177Регистрация: 25-06-2000        
    
(далее…)
																		]]>
					
									
											
					https://foxclub.ru/knowledgebase/pdm-dokumentirovanie-proekta-vfp/
					
                    					    
                    										    Fri, 28 Aug 2020 11:32:12 +0000
										
						
														
PDM – документирование проекта VFP
													
													
Создает полную HTML документацию вашего VFP проекта (.pjx)

Автор: Martin Haluza, Karel Kubicek
Автор публикации

    

		
не в сети 2 месяца
        

            Joys
        
    

    

        

            
				            
			        

        

			Комментарии: 2Публикации: 177Регистрация: 25-06-2000        
    
(далее…)
																		]]>
					
									
											
					https://foxclub.ru/knowledgebase/multi-pix-format/
					
                    					    
                    										    Fri, 28 Aug 2020 11:32:12 +0000
										
						
														
Multi Pix Format
													
													
Данный OCX поможет пользователям VFP 3(5) размещать на формах рисунки различных форматов.

Автор: Неизвестно
Автор публикации

    

		
не в сети 2 месяца
        

            Joys
        
    

    

        

            
				            
			        

        

			Комментарии: 2Публикации: 177Регистрация: 25-06-2000        
    
(далее…)
																		]]>
					
									
											
					https://foxclub.ru/knowledgebase/postroitel-grid/
					
                    					    
                    										    Fri, 28 Aug 2020 11:32:12 +0000
										
						
														
Построитель Grid
													
													
Используется в паре со стандартным построителем. Возможности: изменение цвета, фонта, заголовков столбцов и т.д.
 Как работает:
 На форме выделяете Grid, переходите в Command Windows и запускаете форму (do form grdbuila)

Автор: Gorald Santerre
Автор публикации

    

		
не в сети 2 месяца
        

            Joys
        
    

    

        

            
				            
			        

        

			Комментарии: 2Публикации: 177Регистрация: 25-06-2000        
    
(далее…)
																		]]>
					
									
											
					https://foxclub.ru/knowledgebase/run-and-wait/
					
                    					    
                    										    Fri, 28 Aug 2020 11:32:12 +0000
										
						
														
Run And Wait
													
													
tools.dll библиотека WinApi Это еще один вариант запуска приложений из VFP. Для этого вам надо только объявить функцию DECLARE Integer RunAndWait in Tools String, Integer В качестве параметров в функцию передаются строка запускаемого приложения и число- вариант запуска. Подробнее читайте в файле Readme.txt

Автор: Неизвестно
Автор публикации

    

		
не в сети 2 месяца
        

            Joys
        
    

    

        

            
				            
			        

        

			Комментарии: 2Публикации: 177Регистрация: 25-06-2000        
    
(далее…)
																		]]>
					
									
											
					https://foxclub.ru/knowledgebase/konstanty-ms-office/
					
                    					    
                    										    Fri, 28 Aug 2020 11:32:12 +0000
										
						
														
Константы MS Office
													
													
Внутри архива находятся файлы заголовков приложений MS Office 97 (MS Word, Excel, Outlook)

Автор: Неизвестно
Автор публикации

    

		
не в сети 2 месяца
        

            Joys
        
    

    

        

            
				            
			        

        

			Комментарии: 2Публикации: 177Регистрация: 25-06-2000        
    
(далее…)
																		]]>
					
									
											
					https://foxclub.ru/knowledgebase/zapushheno-li-prilozhenie/
					
                    					    
                    										    Fri, 28 Aug 2020 11:32:12 +0000
										
						
														
Запущено-ли приложение ?
													
													
Функция is_run32 была написана в свете проблем определения активности приложения. Конечно существует API функция FindWindow, которая как раз для этого и служит, но у нее есть большие недоработки.

Запущено-ли приложение ?
 Функция is_run32 была написана в свете проблем определения активности приложения. Конечно существует API функция FindWindow, которая как раз для этого и служит, но у нее есть большие недоработки. 
 Вообще,FindWind служит для определения активности окна, а не приложения, но это понятия достаточно близкие, поэтому она используется и для определения активности окна, и для определения активности приложения. 
 Но FindWindows требует указания полного заголовка окна или имени класса. А множество приложений имеют динамический заголовок (например отражающий имя открытого файла). И ко всему прочему, эта функция чувствительна к регистру. Имя класса также определеяется нелегко: функция API GetClassName требует указания хэндла (handle) окна, который может меняться. 
 Is_run32 использует функции API для своей работы. Если приложение запущено, то функция возвращает хэндл окна. Если приложение не запущено, то функция возвращает ноль.  
 Как использовать: 
 Is_run32 работает только с 32-битными приложениями Windows. Для ее использования, просто передайте известную часть заголовка окна в функцию: 
 handle=Is_run32('word') 
 **** IS_RUN32.prg 
 LPARAMETER pctitle 
 DECLARE INTEGER GetActiveWindow IN Win32API 
 DECLARE INTEGER GetWindow IN Win32API; 
 INTEGER hwnd, INTEGER dflag 
 DECLARE INTEGER GetWindowText IN Win32API ; 
 INTEGER hwnd, STRING @lptstr, INTEGER cbmax 
 LOCAL lnhwnd, lnnext, lldone, lctitle_bar, lcsearchfor,; 
 lntext_len 
 lcsearchfor = UPPER(ALLTRIM(pctitle)) 
 lnhwnd = GetActiveWindow() 
 lnnext = 2 
 lldone = .F. 
 lctitle_bar = "" 
  DO WHILE NOT lldone 
   IF NOT EMPTY(lnhwnd) 
   lctitle_bar = SPACE(200) + CHR(0) 
   lntext_len = GetWindowText(lnhwnd, @lctitle_bar, 200) 
   lctitle_bar = UPPER(LEFT(lctitle_bar, lntext_len)) 
   lldone = (lcsearchfor $ lctitle_bar) 
    IF NOT lldone 
    lnhwnd = GetWindow(lnhwnd, lnnext) 
    ENDIF 
   ELSE 
   lldone = .T. 
   ENDIF 
  ENDDO 
 RETURN lnhwnd 

Автор: VFC
Автор публикации

    

		
не в сети 2 месяца
        

            Joys
        
    

    

        

            
				            
			        

        

			Комментарии: 2Публикации: 177Регистрация: 25-06-2000        
    
(далее…)
																		]]>
					
									
											
					https://foxclub.ru/knowledgebase/runtime-ili-obolochka-foxpro/
					
                    					    
                    										    Fri, 28 Aug 2020 11:32:12 +0000
										
						
														
Runtime или оболочка Foxpro ?
													
													
Иногда бывает нужным проверить, работает-ли программа под оболочкой Foxpro или под runtime-библиотеками. Чаще всего при использовании read events (при разработке она иногда мешает).

Runtime или оболочка Foxpro ? 
 Иногда бывает нужным проверить, работает-ли программа под оболочкой Foxpro или под runtime-библиотеками. Чаще всего при использовании read events (при разработке она иногда мешает).  
 IF "Support"$VERSION(1)  
 read events && работаем в runtime-режиме 
 ENDIF  

Автор: VFC
Автор публикации

    

		
не в сети 2 месяца
        

            Joys
        
    

    

        

            
				            
			        

        

			Комментарии: 2Публикации: 177Регистрация: 25-06-2000        
    
(далее…)
																		]]>
					
									
											
					https://foxclub.ru/knowledgebase/poluchenie-po-date-kolichestva-dnej-v-mesyacze-godu-i-pervogo-dnya-nedeli-mesyacza/
					
                    					    
                    										    Fri, 28 Aug 2020 11:32:12 +0000
										
						
														
Получение по дате количества дней в месяце, году и первого дня недели месяца
													
													
Функции получения из переменной типа date количества дней в месяце (288-31), году (365,366) и первого дня недели месяца.

Получение по дате количества дней в месяце, году и первого дня недели месяца 
 Получение первого дня недели месяца: 
 Используется функция DoW ... 
 first_day=DoW(PDInputDate + 1 - Day(PDInputDate)) 
 PDInputDate - передаваемая дата ( например date() или ctod('01.01.2000') ) 
 Возвращаемое значение first_day может принимать следующие значения: 
 1- воскресенье 
 2- понедельник 
 3-вторник 
 4-среда 
 5-четверг 
 6-пятница 
 7-суббота 
 Такая неделя принята в США и отличается от нашей. 
 Получение количества дней в месяце: 
 num_days=Day(GoMonth(PDInput, 1) - Day(GoMonth(PDInput, 1)))  
 PDInput - передаваемая дата ( например date() или ctod('01.01.2000') )  
 num_days - количество дней в месяце 
 Получение количества дней в году: 
 PDInput_tmp = GoMonth(PDInput, 2 - Month(PDInput)) 
 num_days=337 + Day(GoMonth(PDInput_tmp, 1) - Day(GoMonth(PDInput_tmp, 1)))  
 PDInput - передаваемая дата ( например date() или ctod('01.01.2000') )  
 num_days - количество дней в месяце  

Автор: VFC
Автор публикации

    

		
не в сети 2 месяца
        

            Joys
        
    

    

        

            
				            
			        

        

			Комментарии: 2Публикации: 177Регистрация: 25-06-2000        
    
(далее…)
																		]]>
					
									
											
					https://foxclub.ru/knowledgebase/biblioteka-mstbut/
					
                    					    
                    										    Fri, 28 Aug 2020 11:32:12 +0000
										
						
														
БИБЛИОТЕКА MSTBUT
													
													
Одним из первых желаний при переходе на VFP5 и WINDOWS 95 было создать  опухающие кнопки при наведении на них курсора мыши. На конференциях Было достаточно примеров и подходов, чтобы сравнить и выбрать что-то более или менее подходящее.

БИБЛИОТЕКА MSTBUT
 Created by SpyFox 
 Одним из первых желаний при переходе на VFP5 и WINDOWS 95 было создать  
 опухающие кнопки при наведении на них курсора мыши. На конференциях Было 
 достаточно примеров и подходов, чтобы сравнить и выбрать что-то более или 
 менее подходящее. Но одной из основных причин, по которым мне не подходили 
 имеющиеся варианты, это то, что для каждого состояния кнопки было необходимо 
 создавать картинку. Т.е. для кнопки по умолчанию, активной кнопки и кнопки  
 недоступной. Ну рисунок для активной кнопки можно отбросить и обойтись без 
 неuj, а вот без рисунка для недоступной кнопки никак не получиться нормального 
 вида программы.  
 После долгих поисков я нашел способ обходиться одной картинкой и изюминка моего 
 подхода вот в чем. 
 Все мы знаем, что рисунок на стандартном объекте COMMANDBUTTON в зависимости от 
 значения свойства ENABLED принимает тот или иной вид, т.е показывает доступна  
 кнопка или нет. Вот я и решил это использовать.  
 Класс COOLBUTTON я создал на основе класса CONTROL, куда и замаскировал объект 
 COMMANDBUTTON, т.е. использовал этот объект как картинку. Правда при этом пришлось 
 пожертвовать тем, что нельзя изменять цвет кнопки и вставлять надпись. 
 После того, как я создал такую кнопку, мне захотелось создать и опухающую кнопку 
 со списком. 
 Класс COOLCOMBO я тоже решил создать на основе класса CONTROL, а в нем разместить 
 две готовые кнопки из класса COOLBUTTON. Правда здесь начались проблемы. Дело в том, 
 что из методов одной кнопки как бы не существовало другой, вследствии чего мне пришлось 
 снять с рабочих методов типа HIDEFOCUS, SHOWFOCUS и т.д. атрибут HIDDEN и установить - 
 PUBLIC.  
 Хотя я и оставил возможность устанавливать картинку для активной кнопки, пользоваться  
 этой возможнотью или нет - решать вам. 
 Хотя по-моему получилось достаточно удачно, не обошлось и без проблем. 
 Проблемы состоят в следующем: 
 1. Мне эта проблема до сих пор непонятна, если может кто объяснить, буду очень признателен. 
    Суть ее вот в чем. Если в форму AS TOP LEVEL встроить TOOLBAR, а на TOOLBAR разместить 
    кнопку COOLBUTTON и в метод CLICK написать код для завершения работы этой формы, то VFP 
    "зависает" или невозможно убрать форму с экрана. Поэтому я использую следующий код, 
    в метод CLICK вписываю KEYBOARD{"ALT+F4"}. При run-time это работает, под оболочкой  
    возможно "зависание". 
 2. Класс COOLCOMBO нормально будет работать только на TOOLBAR, который встроен в форму  
    AS TOP LEVEL. Если его встроить в TOOLBAR на основном окне, то меню будет выводиться  
    в активной форме, а не возле кнопки, как это расчитано. (Думаю эта проблема в дальнейшем 
    разрешиться). 
 3. Есть и другие проблемы, но они так сильно не бросаются в глаза и не всегда проявляются.  
 Для запуска примера запустите программу MAIN.PRG. 
 ******************************************************************************************  
 Думаю, что вы не сильно будете судить мое творение, так как я не прошу ничего взамен и  
 никак не могу вас заставить использовать эти наработки. Может быть кому-то они покажутся 
 очень даже ничего, а кого-то просто стошнить, так или иначе выставляю это на показ от всей 
 души и поздравляю с Наступающим Новым Годом Вас и Ваших близких. 
 28.12.2000 г. 
 ******************************************************************************************  
 Библиотека MSTBUT.VCX 
 VFP6+SP3 
 ******************************************************************************************  
 Основные объекты 
 ******************************************************************************************  
 1. COOLBUTTON - кнопка 
 2. COOLCOMBO  - кнопка с выпадающим меню 
 3. COOLSEPARATOR - разделитель между кнопками 
 ******************************************************************************************  
 Вспомогательные объекты 
 ******************************************************************************************  
 1. BUTTIMER   - таймер, запускающийся при активизации кнопки. 
 2. COOLSHAPE  - объект, вставляющийся вместе COOLSEPARATOR 
 КЛАСС COOLBUTTON 
 ******************************************************************************************  
 У класса COOLBUTTON есть следующие дополнительные свойства. 
 1. ACTIVEPICTURE  - содержит имя картинки, которая отображается на кнопке, 
 			 при наведении курсора мыши. 
 2. DEFAULTPICTURE - содержит имя картинки, которая отображается по умолчанию. 
 3. CHECKTYPE	  - при установке этого свойства в .T., кнопка работает как CHECKBOX. 
 4. VALUE	  - свойство актуально при значении CHECKTYPE=.T., и определяет  
                 	в каком положении находится кнопка (вдавленная или нет). 
 5. TOOLTIPTEXT    - содержит текст всплывающей подсказки. 
 Свойства CMDCAPTION и CMDFONTNAME пока не работают 
 ******************************************************************************************  
 Следует заметить, во внутреннм механизме кнопки задействовоаны следующие методы. 
 Init, MouseMove, MouseDown, MouseUp, а также другие дополнительные методы. Поэтому 
 не забывайте при использовании этих методов вставлять строку DODEFAULT(). 
 ******************************************************************************************* 
 Обработка ошибок отсутствует. 
 ******************************************************************************************  
 КЛАСС COOLCOMBO 
 ******************************************************************************************  
 У класса COOLCOMBO есть следующие дополнительные свойства. 
 1. ACTIVEPICTURE  - содержит имя картинки, которая отображается на кнопке, 
 			 при наведении курсора мыши. 
 2. DEFAULTPICTURE - содержит имя картинки, которая отображается по умолчанию. 
 3. TOOLTIPTEXT    - содержит текст всплывающей подсказки. 
 Свойства CMDCAPTION пока не работает 
 Помимо основных методов класса добавлены следующие: 
 1. ONCREATEMENU   - вызывается при нажатии на кнопку COMBO, в качестве параметра 
 		         передается имя POPUP-меню. В данном методе необходимо  
 			 написать код создания выводимого меню. Для большей ясности 
 			 смотрите код примера. 
 2. ONSELECTIONMENU- вызывается при выборе пункта меню. В качестве параметра передается 
     			 номер выбранного пункта меню. 
 ******************************************************************************************  
 Следует заметить, во внутреннм механизме кнопки задействовоаны следующие методы. 
 Init, MouseMove, MouseDown, MouseUp, а также другие дополнительные методы. Поэтому 
 не забывайте при использовании этих методов вставлять строку DODEFAULT(). 
 ******************************************************************************************* 
 Обработка ошибок отсутствует. 
 ******************************************************************************************  
Скачать дополнителный файл
Автор: SpyFox
Автор публикации

    

		
не в сети 26 лет
        

            SpyFox
        
    

    

        

            
				            
			        

        

			Комментарии: 0Публикации: 4Регистрация: 07-09-2000        
    
(далее…)
																		]]>
					
									
											
					https://foxclub.ru/knowledgebase/installyator-gksetup/
					
                    					    
                    										    Fri, 28 Aug 2020 11:32:11 +0000
										
						
														
Инсталлятор GkSetup
													
													
Бесплатный инсталлятор с поддержкой различных языков. Возможности намного превышают "родной" Foxpro инсталлятор. Достаточно сильное сжатие приложения.

Автор: Gero Khan
Автор публикации

    

		
не в сети 2 месяца
        

            Joys
        
    

    

        

            
				            
			        

        

			Комментарии: 2Публикации: 177Регистрация: 25-06-2000        
    
(далее…)
																		]]>
					
									
											
					https://foxclub.ru/knowledgebase/windows-sript-host-reference/
					
                    					    
                    										    Fri, 28 Aug 2020 11:32:12 +0000
										
						
														
Windows Sript Host Reference
													
													
Файл справки на ActiveX Wscript. Многие используют Wscript.Shell для запуска приложений. Но возможности Windows Script Shell не ограничены только этим.

Автор: MS
Автор публикации

    

		
не в сети 2 месяца
        

            Joys
        
    

    

        

            
				            
			        

        

			Комментарии: 2Публикации: 177Регистрация: 25-06-2000        
    
(далее…)
																		]]>
					
									
											
					https://foxclub.ru/knowledgebase/vybor-fajlov/
					
                    					    
                    										    Fri, 28 Aug 2020 11:32:10 +0000
										
						
														
Выбор файлов
													
													
Немного истории: Почему сделал компонент? Захотелось стартовую форму приложений сделать как при запуске Visual Basic. Стандартный ActiveX - CommonDialog не позволяет иметь окно для выбора файла на многостраничной вкладке, а этого так хочется

Выбор файлов
 Поддержка создания и переименования каталогов. В архиве - класс      и пара примеров. Пользоваться просто. Кидаешь на форму, заполняешь свойство      FilterFile например, Файл BMP (*.bmp),Файл ICO (*.ico) и пользуешься. Версия      для VFP6.0 
В будущем поддержка сети. Сейчас пока определяются подключенные      сетевые диски. Если что не пойдет - жду писем. 
Немного истории: Почему сделал компонент? Захотелось стартовую    форму приложений сделать как при запуске Visual Basic. Стандартный ActiveX -    CommonDialog не позволяет иметь окно для выбора файла на многостраничной вкладке,    а этого так хочется :)) Планы: сделать что-то похожее на GETDIR() (зачем? -    см. выше) И все бе привлечения сторонних ActiveX. 

Сергей Титов.

Автор: Сергей Титов
Автор публикации

    

		
не в сети 6 месяцев
        

            admin
        
    

    

        

            
				            
			        

        

			Комментарии: 1Публикации: 123Регистрация: 10-12-2000        
    
(далее…)
																		]]>
					
									
											
					https://foxclub.ru/knowledgebase/avtomaticheskoe-izmenenie-razmerov-obektov-pri-izmenenii-razmerov-formy/
					
                    					    
                    										    Fri, 28 Aug 2020 11:32:10 +0000
										
						
														
Автоматическое изменение размеров объектов при изменении размеров формы
													
													
Используется для автоматического изменения размеров объектов на форме при изменении размеров формы. Вы не должны ничего менять в вашей форме.Только лишь поместите класс на форму, запустите ее,изменяйте размер и увидите, что получится

Автоматическое изменение размеров    объектов при изменении размеров формы
Vresize.vcx содержит только один класс 'vresizer'. Он используется    для автоматического изменения размеров объектов на форме при изменении размеров    формы. Вы не должны ничего менять в вашей форме.Только лишь поместите класс    на форму, запустите ее,изменяйте размер и увидите, что получится. 
Известные ограничения: нет поддержки фонтов с дикретными размерами.
Копирайты и гарантии: распространяется as is и без гарантий. 


Автор: Неизвестно
Автор публикации

    

		
не в сети 6 месяцев
        

            admin
        
    

    

        

            
				            
			        

        

			Комментарии: 1Публикации: 123Регистрация: 10-12-2000        
    
(далее…)
																		]]>
					
									
											
					https://foxclub.ru/knowledgebase/rasshirennoe-menyu/
					
                    					    
                    										    Fri, 28 Aug 2020 11:32:10 +0000
										
						
														
Расширенное меню
													
													
В Foxpro всегда не хватало мелких интерфейсных и функциональных возможностей, как например в Delphi. К примеру, нельзя почти никак изменять параметры системного меню, кнопок и других объектов. Но сейчас появился пакет MenuLib для VFP6, с которым добавление всяких приятных мелочей в СИСТЕМНОЕ МЕНЮ становится делом элементарным.

Расширенное меню    
 В Foxpro всегда не хватало мелких интерфейсных и функциональных возможностей,      как например в Delphi. К примеру, нельзя почти никак изменять параметры системного      меню, кнопок и других объектов. Но сейчас появился пакет MenuLib для VFP6,      с которым добавление всяких приятных мелочей в СИСТЕМНОЕ МЕНЮ становится делом      элементарным.    
Пункты меню можно делать как checkbox, невидимыми, менять их порядок и название      и все это можно делать ДИНАМИЧЕСКИ, т.е. в процессе работы программы. Но сперва      можно ознакомиться с демкой.    
Перед тем как все это читать и пробовать, Вам нужно скачать      библиотеки для работы с усовершенствованным меню. (menulib6.zip).      И еще ... здесь краткое, ознакомительное описание библиотеки, а подробное      вы найдете внутри архива, но на английском.    
Запуск демки     
Для запуска демки,    
1) Разархивируйте архив в новую директорию
     2) Запустите VFP
     3) Перейдите в директорию, которую создали 
     4) Запустите демку :- DO MENUDEMO 
     5) FILE -> EXIT    
Ну а теперь, как это делать.    
1. Создаем каркас меню в родном конструкторе меню от VFP. 
     2. Запускаем bldmenu.prg с указанием созданного меню ( do bldmenu with 'mainmenu')
     3. А теперь добавляем новые свойства. И на этом поподробнее.    
Добавление новых свойств в меню.    
 VFP у нас вещь объектно-ориентированная и как следствие меню является объектом.      И значит, обращаемся к нему, как к объекту.    
Пример:
     _screen.menu.file.enabled=.f. 
     
     _screen.menu - обращение к меню 
     file - название пункта меню 
     enabled - всем известное свойство    
 Чтобы обратиться к вертикальному подменю указываем так:    
 _screen.menu.file.print.enabled=.f.     
Для добавления в меню новых пунктов используется следующий код: _SCREEN.Menu.AddObject("File","menupad")      && добавления пункта меню File    
 По умолчанию, выводимое на экран название (caption) точно такое же, как      и имя пункта меню. Так же при создании, пункт меню получается невидимым. Чтобы      отобразить его используйте код: 
     _SCREEN.Menu.File.Visible = .T.     
Для добавления подменю в меню, используйте код: 
     _SCREEN.Menu.File.AddObject("Open","menupad")
     _SCREEN.Menu.File.AddObject("Close","menupad") _SCREEN.Menu.File.AddObject("Spacer1","menupad")      
     _SCREEN.Menu.File.Spacer1.Caption = "-"
     _SCREEN.Menu.File.AddObject("Exit","menupad")     
И делаем их видимыми:    
 _SCREEN.Menu.File.Open.Visible = .t.
     _SCREEN.Menu.File.Close.Visible = .t.
     _SCREEN.Menu.File.Spacer1.Visible = .t. 
     _SCREEN.Menu.File.Exit.Visible = .t.     
Так же можно добавлять подменю в подменю: 
     _SCREEN.Menu.File.Open.AddObject("Text","menupad") _SCREEN.Menu.File.Open.AddObject("Picture","menupad")          
Свойства пунктов меню    
 Caption 
     Описание: Используется для показа названия меню (caption) 
     Тип: Character    
 Пример:
     _screen.Menu.Edit.Copy.Caption = "Copy" 
     _screen.Menu.Edit.Sep1.Caption = "-" && разделительная линия     
Message
      Описание: Используется для вывода сообщения в статусную строку 
     Тип: Character    
 Пример: 
     _screen.Menu.Edit.Copy.Message = "Used to copy text"     
Enabled
     Описание: Определяет доступен или недоступен пункт меню 
     Тип: Logical.    
Пример:
     _SCREEN.Menu.File.Open.Enabled = .f.    
 Checked
     Описание: Определяет выбран-ли пункт меню (check box)
     Тип: Logical.    
 Пример:
     _SCREEN.Menu.File.Changed.Checked = .t.    
Command
     Описание: Определяет команду VFP для выполнения 
     Тип: Character.    
 Пример: 
     _SCREEN.Menu.File.Exit.Command = "CLEAR EVENTS" 
     _SCREEN.Menu.Report.Detls.Command = "DO DetRpt WITH THIS"     
Position
     Описание: Порядковый номер в меню
     Тип: Numeric    
 Пример:
     _SCREEN.Menu.File.Exit.Position = _MLAST 
     _SCREEN.Menu.File.Open.Position = _MFIRST 
     _SCREEN.Menu.File.Close.Position = 2     
К этому я бы хотел добавить, что удобнее делать так:    
- создаем обычное VFP-меню
     - создаем prg-файл, в котором будут лежать команды усовершенствования меню      (menu.prg)
     - и из главной программы можно запускать уже этот файл (do menu.prg)    
Все 
Автор: Неизвестно
Автор публикации

    

		
не в сети 6 месяцев
        

            admin
        
    

    

        

            
				            
			        

        

			Комментарии: 1Публикации: 123Регистрация: 10-12-2000        
    
(далее…)
																		]]>
					
									
											
					https://foxclub.ru/knowledgebase/animirovannaya-ikonka/
					
                    					    
                    										    Fri, 28 Aug 2020 11:32:10 +0000
										
						
														
Анимированная иконка
													
													
Анимированная, причем не просто иконка, а та, что в левом верхнем углу формы. Применение этого класса очень удобно, если вы хотите показать, что ваша программа не повисла,а ведет какие-то свои подсчеты и просто не трогает хард - раз иконка анимируется, значит мы еще живы

 Анимированная иконка
Анимированная, причем не просто иконка, а та, что в левом верхнем углу формы.    Применение этого класса очень удобно, если вы хотите показать, что ваша программа    не повисла,а ведет какие-то свои подсчеты и просто не трогает хард - раз иконка    анимируется, значит мы еще живы. 
 Скачайте класс ... 
Теперь выберите место в программе перед каким-нибудь больним вычислением или    поиском и вставьте нижеследующий код ... 
&& Классу необходимо передать массив, содержащий названия файлов-иконок: 
 LOCAL laIconList
   DIMENSION laIconList[4]
   laIconList[1]="icon01.ico"
   laIconList[2]="icon02.ico"
   laIconList[3]="icon03.ico"
   laIconList[4]="icon04.ico" 
&& Теперь нужно программа создать объект таймера: 
 SET CLASSLIB TO animate
   THISFORM.ADDOBJECT("tmrIcon","animicon",@laIconList) 
&& И наконец, вам нужно активизировать таймер путем установки интервала: 
 THISFORM.tmrIcon.Interval=500 && пол-секунды 
&& Вот и все 🙂 
Автор: Неизвестно
Автор публикации

    

		
не в сети 6 месяцев
        

            admin
        
    

    

        

            
				            
			        

        

			Комментарии: 1Публикации: 123Регистрация: 10-12-2000        
    
(далее…)
																		]]>
					
									
											
					https://foxclub.ru/knowledgebase/shifrovanie-dannyh/
					
                    					    
                    										    Fri, 28 Aug 2020 11:32:10 +0000
										
						
														
Шифрование данных
													
													
Классический тип шифрования полей в таблице. Возможность шифровать сразу несколько полей и изменения ключа шифрования.

Шифрование данных 
 Еще один класс для шифрования полей таблицы. Его автор - Игорь. Классический    принцип работы, т.е. есть команда шифровки поля и дешифровки. 
Как использовать: 
Подключаете класс к проекту, ставите экземпляр класса на форму
   При открытии таблицы (или при другом событии, как вам будет нужно) вызываете    метод to_tablecode объекта enciphering1 с параметрами: алиас таблицы,    поле(или несколько через запятую), признак шифрования (COD,DECOD) 
thisform.enciphering1.to_tablecode("Table1","pole1","DECOD")
   или
   thisform.enciphering1.to_tablecode("Table1","pole1","COD") 
Но перед этим вы должны установить в свойство keyword объекта enciphering1    ключ шифра - любую текстовую строку (цифры лучше не использовать) 
thisform.enciphering1.keyword="hfTb" 
Скачать класс ...
Автор: Игорь
Автор публикации

    

		
не в сети 6 месяцев
        

            admin
        
    

    

        

            
				            
			        

        

			Комментарии: 1Публикации: 123Регистрация: 10-12-2000        
    
(далее…)
																		]]>
					
									
											
					https://foxclub.ru/knowledgebase/pechat-otchetov/
					
                    					    
                    										    Fri, 28 Aug 2020 11:32:10 +0000
										
						
														
Печать отчетов
													
													
Русифицированная версия REPORT ... PROMPT. Есть количество копий , предпросмотр , выбор принтера, печать в файл , печать заголовка , выбор страницы или диапазона страниц для печати.

Печать отчетов
Класс Владимира (Torzhok) для печати отчетов. Русифицированная    версия REPORT ... PROMPT. Есть количество копий , предпросмотр , выбор принтера    , печать в файл , печать заголовка , выбор страницы или диапазона страниц для    печати. 
В свете проблем работы отчетов с параметром PROMPT его использование    избавляет от многих проблем.
Пример использования:
PRN_REP=NEWOBJECT("setting_print","my_print")
   prn_rep.reportname="vedfiz" 
   Prn_rep.Visible=.T. 
   Prn_rep.Show


Автор: Torzhok
Автор публикации

    

		
не в сети 2 месяца
        

            Joys
        
    

    

        

            
				            
			        

        

			Комментарии: 2Публикации: 177Регистрация: 25-06-2000        
    
(далее…)
																		]]>
					
									
											
					https://foxclub.ru/knowledgebase/3d-obekty/
					
                    					    
                    										    Fri, 28 Aug 2020 11:32:10 +0000
										
						
														
3D-объекты
													
													
Класс ww3d используется для создания текстовых полей с тенью, надписей (Label) с тенью, объемных геометрических фигур (Shape) и их же с тенью 🙂

3D-объекты
 Класс ww3d используется для создания текстовых полей с тенью, надписей    (Label) с тенью, объемных геометрических фигур (Shape) и их же с тенью 🙂 
 
   Как работает:
Как обычно ;): класс (vcx) подключается в проект и его объекты вставляются    в форму
Свойства объектов:
cshadowcolor - цвет тени, по умолчанию серый (128,128,128). Применим    к объектам Shadowbox, Shadoweditbox, Shadowtextbox, ShadowLabel
noffset - размер тени. Применим к объектам Shadowbox, Shadoweditbox,    Shadowtextbox, ShadowLabel
lraised - показывает вдавленность (.F.) или выпуклость (.T.) Box3D
Скачать класс

Автор: UT
Автор публикации

    

		
не в сети 2 месяца
        

            Joys
        
    

    

        

            
				            
			        

        

			Комментарии: 2Публикации: 177Регистрация: 25-06-2000        
    
(далее…)
																		]]>
					
									
											
					https://foxclub.ru/knowledgebase/ftp-klient/
					
                    					    
                    										    Fri, 28 Aug 2020 11:32:11 +0000
										
						
														
FTP-клиент
													
													
Этот код написан как класс Visual Foxpro. FTP Class предоставляет набор функций, которые позволяют вам работать с FTP-серверами. Для его работы необходима библиотека wininet.dll, которая поставляется с IE 4.0 и выше.

FTP-клиент
Обзор  
Этот код написан как класс Visual Foxpro. FTP Class предоставляет набор функций,    которые позволяют вам работать с FTP-серверами. Для его работы необходима библиотека    wininet.dll, которая поставляется с IE 4.0 и выше.  
 Как работает  
Для работы с классом вам нужно подключить к вашей программе FTP.PRG:  
 Set Procedure To ftp.prg Additive  
Следующая строка создаст экземпляр класса:  
 sz_ftp = createobject('ftp_service')  
Теперь использовать класс вы можете через переменную sz_ftp  
Пример открытия соединения с FTP-сервром:  
sz_ftp.OpenInternet("user", "password", "ftpaddress", "port")   
Обычно во всех FTP-серверах испольузется порт 21.  
Команды для работы  
Здесь приведены лишь основные команды, доступные в этом классе. Хотя скорее    всего этими командами вы и ограничитесь в своей работе. Тем не менее остальные    - приведены в прилагаемом doc-файле в архиве.
OpenInternet ( Установить    соединение с сервером)
                            
Синтаксис:
                                   
OpenInternet (
               char UserName, 
               	char UserPassword, 
               char FTP Address, 
               char FTP Port
               )
                             
Параметры:
	UserName 	- имя пользователя (ANONYMOUS на общедоступные            сервера) 
           UserPassword	- пароль
           FTP Address 	- адрес FTP-сервера
           FTP Port	- порт FTP-сервера (обычно 21)
Возвращаемое значение:
                                   
Возвращаемое значение .T. , если функция успешно                соеденилась с сервером, иначе .F.
                             
 
                          
	CloseInternet (закрыть соединение)
                            
Синтаксис:
	CloseInternet ( )
Параметры:
	None
Возвращаемое значение:
                                   
Nothing
                             
 
                          
	GetFtpFile (скачать файл)
                             
Синтаксис:
                                   
GetFtpFile (
               char RemoteFile, 
               	char LocalFile, 
               logical FailifExist 
               )
                             
Параметры:
	RemoteFile 	- имя и путь файла на FTP-сервере            для скачивания с него.
	LocalFile 	- имя и путь файла на локальном компьютере
	FailifExist	- .T. прекращения скачивания, если            файл с таким именем уже есть на локальном компьютере, .F. - перезаписать            файл 
Возвращаемое значение:
                                   
Возвращаемое значение .T. если успешно скачано
               Возвращаемое значение .F. если ошикбка
                             
 
                          
	PutFtpFile (закачать файл на FTP-сервер)
                             
Синтаксис:
                                   
PutFtpFile (
               char RemoteFile, 
               	char LocalFile
               )
                             
Параметры:
	RemoteFile 	- путь и имя файла на FTP-сервере
	LocalFile	- локальное имя файла
Возвращаемое значение:
                                   
Возвращаемое значение .T. если успешно
               Возвращаемое значение .F. если неуспешно
                             
 
                          
	DeleteFtpFile (удалить файл)
                             
Синтаксис:
                                   
DeleteFtpFile (
               Char RemoteFile
               )
                             
Параметры:
	RemoteFile 	- имя и путь файла на FTP-сервере
Возвращаемое значение:
                                   
Возвращаемое значение .T. если файл удален
               Возвращаемое значение .F. если не удален
                             
 
                          
	RenameFtpFile (переименовать файл)
                            
Синтаксис:
                                   
RenameFtpFile ( 
               char OldName,
               char NewName
               )
                             
Параметры:
	OldName	- текущее имя файла
	NewName	- новое имя файла
Возвращаемое значение:
                                   
Возвращаемое значение .T. если успешно
               Возвращаемое значение .F. если неуспешно
                             
 
                 
	CreateFtpDirectory (создать директорию)
                             
Синтаксис:
                                   
CreateFtpDirectory (
               char Directory 
               )
                             
Параметры:
	Directory	- имя директории
Возвращаемое значение:
                                   
Возвращаемое значение .T.если успешно
               Возвращаемое значение .F. если неуспешно
                             
	
                 
RemoveFtpDirectory (удалить директорию)
                             
Синтаксис:
                                   
RemoveFtpDirectory (
               char Directory 
               )
                             
Параметры:
	Directory	- имя директории
Возвращаемое значение:
                                   
Возвращаемое значение .T. если успешно
               Возвращаемое значение .F. если неуспешно
                             
 
                          
	ChangeFtpDirectory (сменить текущую директорию)
                             
Синтаксис:
                                   
ChangeFtpDirectory (
               char Path 
               )
                             
Параметры:
	Path	 	- путь
Возвращаемое значение:
                                   
Возвращаемое значение .T. если успешно
               Возвращаемое значение .F. если неуспешно
                             
 
                 
Скачать класс 	

Автор: Неизвестно
Автор публикации

    

		
не в сети 2 месяца
        

            Joys
        
    

    

        

            
				            
			        

        

			Комментарии: 2Публикации: 177Регистрация: 25-06-2000        
    
(далее…)
																		]]>
					
									
											
					https://foxclub.ru/knowledgebase/inkrementnyj-poisk-v-grid/
					
                    					    
                    										    Fri, 28 Aug 2020 11:32:11 +0000
										
						
														
Инкрементный поиск в GRID
													
													
Удобный поиск в GRID. Встаете на нужное поле, набираете ключевую фразу и по мере набора курсор переходит на нужную запись.

Инкрементный поиск в    GRID
Установив этот класс в свой Грид, вы сможете без проблем сделать поиск по Гриду.    Устанавливается просто. Добавьте класс в проект. Создайте форму, поставьте на    нее Грид. Теперь с помощью Билдера или сами укажите поля, которые будут в гриде.    Нажимаем правой кнопкой мыши на Грид, затем Edit, выбираем в панели инструментов    класс ingrid и кидаем его на нужное поле в гриде (тут главно не кинуть на header,    нужно на текстовое поле). Ищем в свойствах колонки (column) CurrentControl и    меняем его с text на ingrid. Все. В архиве есть пример работы с классом. 
Скачать класс 
 
Автор: Русификация Leon Tauscheff
Автор публикации

    

		
не в сети 2 месяца
        

            Joys
        
    

    

        

            
				            
			        

        

			Комментарии: 2Публикации: 177Регистрация: 25-06-2000        
    
(далее…)
																		]]>
					
									
											
					https://foxclub.ru/knowledgebase/gsal/
					
                    					    
                    										    Fri, 28 Aug 2020 11:32:11 +0000
										
						
														
GSAL
													
													
Класс предназначен для сохранения и восстановления порядка следования и размеров колонок Grid`a.

Gsal
   Андрей Подоплелов pan@sgtrk.e-burg.ru
    
Класс предназначен для сохранения и восстановления порядка следования    и размеров колонок Grid`a. Для восстановления размеров в методе Init формы следует    вызвать следующий метод класса -- Thisform.gsal1.setsize(), для сохранения размеров    в методе Destroy форму надо вызвать метод класса Thisform.gsal1.savegrid().  
Название Grid`a записывается в переменной gsal._grid. Послабления    в вызове не предусмотрены, но если очень хочется, то можно создать класс формы    с уложенным на него классом и Grid`ом. Данные о размерах и положении колонок    сохраняются в отдельной таблице, название которой указано в переменной gsal._table.    При ее отсутствии она создается автоматически, как свободная таблица.  
Скачать класс
Автор: Андрей Подоплелов 																		]]>
					
									
											
					https://foxclub.ru/knowledgebase/wsal/
					
                    					    
                    										    Fri, 28 Aug 2020 13:10:28 +0000
										
						
														
Сохранения и восстановления положения и размеров окна
													
													

Класс предназначен для сохранения и восстановления положения и размеров окна по требованию.
Для использования достаточно положить его на форму и в методе Init форму вызвать метод класса -- Thisform.wsal1.setposition(). Если лень писать это каждый раз или нет потребности сохранять или не сохранять положение окна в зависимости от каких либо настроек, можно в методе Init класса написать следующую строку -- This.setposition(), тогда все будет делаться автоматически. Данные о габаритах и положении сохраняются в отдельной таблице, название которой указано в переменной wsal._table. При ее отсутствии она создается автоматически, как свободная таблица.
Свойство _cut отвечает за подгонку окна под размер экрана, по умолчанию выключено.
Свойство _needsave отвечает за сохранение размеров и положения формы, по умолчанию включено.
У метода setposition есть необязательный параметр (текстовая строка) -- под каким именем восстанавливать и сохранять информацию о форме.


Автор: Андрей Подоплелов pan@sgtrk.e-burg.ru
Автор публикации

    

		
не в сети 2 месяца
        

            Joys
        
    

    

        

            
				            
			        

        

			Комментарии: 2Публикации: 177Регистрация: 25-06-2000        
    
(далее…)
																		]]>
					
									
											
					https://foxclub.ru/knowledgebase/klass-dlya-raboty-so-strukturami-winapi/
					
                    					    
                    										    Fri, 28 Aug 2020 11:32:11 +0000
										
						
														
Класс для работы со структурами WINAPI
													
													
На сегодняшний день, как бы ни ругали FoxPro,сколько бы не говорили о его кончине, он тем не менее развивается и совершенствуется. У него существует еще много приверженцев и поклонников, появляются новые. FoxPro по-прежнему остается одним из лучших для работы с базами данных.

Класс    для работы со структурами WINAPI.
    
На сегодняшний день, как бы ни ругали FoxPro,сколько    бы не говорили о его кончине, он тем не менее развивается и совершенствуется.    У него существует еще много приверженцев и поклонников, появляются новые. FoxPro    по-прежнему остается одним из лучших для работы с базами данных. Тем более,    что на сегодняшний день с помощью вызова функций API Windows, мы можем придать    своим приложениям ту или иную стандартную функциональность. Единственная проблема    в том, что при вызове той или иной функции API, в качестве параметров, нужен    указатель на структуру, а сам FoxPro, не может полноценно работать со структурами,    как это сделано в VB, VC, Delphi, поэтому приходиться идти на всякие ухищрения    или делать так, как рекомендуется файле помощи.
Вот как показан пример работы со структурами    в файле помощи.
    
Системная функция Windows GetSystemTime(    ) требует в качестве параметра указатель на структуру, состоящую из восьми слов    (WORD), указывающих год, месяц, день, и так далее. 
Структура определена таким образом:
typedef struct _SYSTEMTIME { 
   WORD wYear ;
   WORD wMonth ;
   WORD wDayOfWeek ;
   WORD wDay ;
   WORD wHour ;
   WORD wMinute ;
   WORD wSecond ;
   WORD wMilliseconds ;
   } SYSTEMTIME
Вот так будет выглядет код на FoxPro:
**************************************************************
DECLARE INTEGER GetSystemTime IN win32api    STRING @
   cBuff=SPACE(16)
   =GetSystemTime(@cBuff)
   tYear = ALLTRIM(STR(ASC(SUBSTR(cBuff,2))    * ; 
   256 + ASC(SUBSTR(cBuff,1))))
   tMonth = ALLTRIM(STR(ASC(SUBSTR(cBuff,4))    * ; 
   256 + ASC(SUBSTR(cBuff,3))))
   tDOW = ALLTRIM(STR(ASC(SUBSTR(cBuff,6))    * ; 
   256 + ASC(SUBSTR(cBuff,5))))
*************************************************************
Т.е. мы создаем переменную cBuff , а так    как наша структуры занимает 8 слов (WORD) или 16 байт (BYTE), мы ее заполняем    столькими же пробелами. Затем вызываем функцию GetSystemTime(), обратите внимание,    на знак @ перед cBuff, это значит, что мы передаем переменную по ссылке, т.е.    в ней и возвратиться результат, а затем разбираем строку.
    
Вот этот самый момент, формирование или разбор    строки, и является самым не удобным при работе со структурами из FoxPro. Столкнувшись    с этой проблемой я написал простенький класс, который не претендует на оригинальность,    но может помочь в этом деле, а кого-то и подтолкнуть на написание действительно    оригинального и полнофункционального класса, хотя я почему то уверен, что в    версии 7.0 Microsoft сделает более развитой работу со структурами.
    
Класс называется STRUCTURE и находится в    библиотеке MSTSTRUC.PRG.
Он имеет один public-метод SizeOf(), который    возвращает длину структуры. Этот метод полезен в тех функциях, где нужен необходимо    передать размер структуры в качестве параметра или в составе структуры.
Так же есть public-свойство StructureString.    При обращении к этому свойству формируется строка со структурой, а при присвоении    ему какого-либо значения произойдет разбор строки и свойства структуры заполняться    данными.
Вот как будет выглядеть вышеприведенной код    при использовании моего класса:
-------------------------------------
#DEFINE _SYSTEMTIME "WORD wYear;"+;
   "WORD wMonth;"+;
   "WORD wDayOfWeek;"+;
   "WORD wDay;"+;
   "WORD wHour;"+;
   "WORD wMinute;"+;
   "WORD wSecond;"+;
   "WORD wMillisecond;"
   DECLARE INTEGER GetSystemTime IN win32api    STRING @
   oTimeStruc=newobject("STRUCTURE","MSTSTRUC.PRG","",_SYSTEMTIME)
   cBuff=oTimeStruc.StructureString
   =GetSystemTime(@cBuff)
   oTimeStruc.StructureString=cBuff
   tYear =oTimeStruc.wYear
   tMonth =oTimeStruc.wMonth
   tDow =oTimeStruc.wDayOfWeek
----------------------------------
В настоящий момент возможна работа со следующими    типами: BYTE, WORD,DWORD,CHAR, STRING. Но не будет сложным задать и другие типы.
    
Вот еще один пример
#DEFINE _MEMORYSTATUS ;
   "DWORD dwLength;"+;
   "DWORD dwMemoryLoad;"+; &&    // percent of memory in use 
   "DWORD dwTotalPhys;"+; 	&&    // bytes of physical memory 
   "DWORD dwAvailPhys;"+; 	&&    // free physical memory bytes 
   "DWORD dwTotalPageFile;"+; &&    // bytes of paging file 
   "DWORD dwAvailPageFile;"+; &&    // free bytes of paging file 
   "DWORD dwTotalVirtual;"+; &&    // user bytes of address space 
   "DWORD dwAvailVirtual;"	&&    // free user bytes 
   DECLARE INTEGER GlobalMemoryStatus    IN WIN32API STRING @lpBuffer
   oMemoryStatus=NEWOBJECT("STRUCTURE","MSTSTRUC.PRG","",_MEMORYSTATUS)
   oMemoryStatus.dwLength=oMemoryStatus.SizeOf()
   oMemory=omemoryStatus.StructureString
   lnRet=GlobalMemoryStatus(@oMemory)
   oMemoryStatus.StructureString=oMemory
   clear
? "Информация о памяти"
   ? "---------------------------------------------------"
   ? "Всего физической памяти "+str(oMemoryStatus.dwTotalPhys/1024/1024)+"MB"
   ? " Свободно "+str(oMemoryStatus.dwAvailPhys/1024/1024)+"MB"
   ? " Использовано "+str(omemoryStatus.dwMemoryLoad)+"%"
   ? "---------------------------------------------------"
   ? " Всего виртуальной памяти "+str(oMemoryStatus.dwTotalVirtual/1024/1024)+"MB"
   ? "Использовано виртуфльной памяти    "+str(oMemoryStatus.dwAvailVirtual/1024/1024)+"MB"
   ?
Я надеюсь, что это поможет вам болле полно    работать с функциями API. Буду рад услышать ваши отзывы, не обязательно только    хорошие.
------------------------------------------------------------
SpyFox

Автор: SpyFox
Автор публикации

    

		
не в сети 26 лет
        

            SpyFox
        
    

    

        

            
				            
			        

        

			Комментарии: 0Публикации: 4Регистрация: 07-09-2000        
    
(далее…)
																		]]>
					
									
											
					https://foxclub.ru/knowledgebase/progress-bar/
					
                    					    
                    										    Fri, 28 Aug 2020 11:32:11 +0000
										
						
														
Progress bar
													
													
Класс отображает progress bar. Неограниченный максимум.

Progress    bar
    
 
Для использования класса сначала выполните метод calc с параметром, равным    максимальному значению для определения переменных, а затем используйте метод    update для изменения значения progress bar. Пример в архиве ...
Скачать ...

Автор: Михаил Дунькин
Автор публикации

    

		
не в сети 2 месяца
        

            Joys
        
    

    

        

            
				            
			        

        

			Комментарии: 2Публикации: 177Регистрация: 25-06-2000        
    
(далее…)
																		]]>
					
									
											
					https://foxclub.ru/knowledgebase/propis/
					
                    					    
                    										    Fri, 28 Aug 2020 11:32:11 +0000
										
						
														
Propis
													
													
Еще один способ преобразования числа в строку с рублями и копейками, но в виде класса.

Класс    propis
    
Класс propis - превращает денежную сумму вида 1112.56 в строку типа Одна тысяча    сто двенадцать рублей 56 копеек. 
Свойство stroka возвращает искомую строку, в свойство su записывается преобразуемая    сумма, метод propis производит преобразование. Сумма может быть от 1 копейки    до 999 999 999.99 рублей. Пример прилагается. 
Скачать ...
С уважением, Михаил Дунькин
    dounkin@yahoo.com

Автор: Михаил Дунькин
Автор публикации

    

		
не в сети 2 месяца
        

            Joys
        
    

    

        

            
				            
			        

        

			Комментарии: 2Публикации: 177Регистрация: 25-06-2000        
    
(далее…)
																		]]>
					
									
											
					https://foxclub.ru/knowledgebase/checklist/
					
                    					    
                    										    Fri, 28 Aug 2020 11:32:11 +0000
										
						
														
CheckList
													
													
Наверное многие сталкивались с проблемой, когда нужно показать список для выбора каких-либо позиций или высветить список сотрудников или товаров, где необходимо было отметить те или иные позиции. Наверняка многие использовали для этого объект GRID или ActiveX. Но я принципиально отказываюсь от использования ...

CheckList 
 Наверное многие сталкивались с проблемой, когда нужно показать список для выбора каких-либо позиций или высветить список сотрудников или товаров, где необходимо было отметить те или иные позиции. Наверняка многие использовали для этого объект GRID или ActiveX. Но я принципиально отказываюсь от использования GRID, несмотря на то, что этот объект и обладает очень большими возможностями, в нем заложено столько же и всяких непредсказуемых моментов, которые неизвестно когда вылетят.От ActiveX - объектов я стараюсь также отказываться, когда это возможно, хотя и использую их в некоторых случаях.  
 Так вот, когда у меня возникла потребность в таком списке, то я решил использовать для этого объект LISTBOX, создав на основе его класс CHEKCLISTBOX, добавил в него несколько свойств и методов. Для отображения меток я использовал картинки BMP, вставляемые для каждой строки. Чтобы посмотреть как это работает, запустите форму SAMPLE. 
 В класс, в дополнении к базовому классу, добавлены следующие свойства: 
  CheckBMP- содержит имя файла с картинкой для отмеченых строк; 
 UNCheckBMP - содержит имя файла с картинкой для не отмеченных строк. 
 Также добавлены следующие методы: 
 AddMethod - метод добавляет строки, передаются следующие параметры - 
 tlCheck - Содержит .T., если строка должна быть отмечена и наборот  tcCol1, tcCol2, tcCol3, tcCol4 -значения четырех столбцов, если они определены.  Checked - принимает в качестве параметра номер строки и возвращает .T. если она отмечена. SetCheck - принимает в качестве параметра номер строки и устанавливает на нее метку. 
 UNSetCheck - принимает в качестве параметра номер строки и снимает с нее метку. 
 RET_COL_VAL - принимает в качестве параметра номер строки и номер колонки и возвращается ее значение. 
 Также используются стандартные методы Click, DblClick, RightClick, поэтому при их использовании необходимо вписывать в них dodefault(). При нажатии правой кнопки выводиться меню. Следует также заметить, что для выбора, т.е. отметки строки или ее снятия мышью можно использовать два варианта: сделать двойной клик на строке или щелкнуть один раз на картинке. Надеюсь, что это кому-то пригодиться.  

Автор: SpyFox
Автор публикации

    

		
не в сети 26 лет
        

            SpyFox
        
    

    

        

            
				            
			        

        

			Комментарии: 0Публикации: 4Регистрация: 07-09-2000        
    
(далее…)
																		]]>
					
									
											
					https://foxclub.ru/knowledgebase/dbf-structure-fixer-3-15/
					
                    					    
                    										    Fri, 28 Aug 2020 11:32:11 +0000
										
						
														
DBF Structure Fixer 3.15
													
													
DBF Structure Fixer - свободно распространяемая утилита, работающая из командной строки, которая анализирует и восстанавливает dbf-файлы от dBase III/III+/IV,dBase for Windows,Visual dBase,FoxBASE+,Foxpro 3.0/5.0. Работет так: запускается с ключем /s на пока еще неповрежденном dbf. Данные о файле сохраняются для последующего восстановления, когда ваши dbfы накроются. Вы можете запускать утилиту из autoexec.bat для автоматической проверки и восстановления dbfов. DBF Structure fixer создает log-файлы и вы можете посмотреть, что произошло с dbfами. Утилита не восстанавливает индексы и другие файлы, кроме dbf. Следовательно вам нужно будет после восстановления сделать переиндексацию, если есть индексы.

Автор: Неизвестно
Автор публикации

    

		
не в сети 2 месяца
        

            Joys
        
    

    

        

            
				            
			        

        

			Комментарии: 2Публикации: 177Регистрация: 25-06-2000        
    
(далее…)
																		]]>
					
									
											
					https://foxclub.ru/knowledgebase/podderzhka-russkogo-yazyka-v-gksetup/
					
                    					    
                    										    Fri, 28 Aug 2020 11:32:11 +0000
										
						
														
Поддержка русского языка в GkSetup
													
													
Библиотека поддержки русского языка в инсталляторе GKSetup.

Автор: Неизвестно
Автор публикации

    

		
не в сети 2 месяца
        

            Joys
        
    

    

        

            
				            
			        

        

			Комментарии: 2Публикации: 177Регистрация: 25-06-2000        
    
(далее…)
																		]]>
					
									
											
					https://foxclub.ru/knowledgebase/dekompilyator-refox-7/
					
                    					    
                    										    Fri, 28 Aug 2020 11:32:11 +0000
										
						
														
Декомпилятор ReFox 7
													
													
Популярный декомпилятор для Foxpro. Есть возможность шифрования своего приложения от декомпиляции

Автор: Неизвестно
Автор публикации

    

		
не в сети 2 месяца
        

            Joys
        
    

    

        

            
				            
			        

        

			Комментарии: 2Публикации: 177Регистрация: 25-06-2000        
    
(далее…)
																		]]>
					
									
											
					https://foxclub.ru/knowledgebase/aspack/
					
                    					    
                    										    Fri, 28 Aug 2020 11:32:11 +0000
										
						
														
ASPack
													
													
Программа, сжимающая EXE и DLL файлы. Степень сжатия от 30 процентов первоначального размера.

Автор: Неизвестно
Автор публикации

    

		
не в сети 2 месяца
        

            Joys
        
    

    

        

            
				            
			        

        

			Комментарии: 2Публикации: 177Регистрация: 25-06-2000        
    
(далее…)
																		]]>
					
									
											
					https://foxclub.ru/knowledgebase/stru-prg/
					
                    					    
                    										    Fri, 28 Aug 2020 11:32:11 +0000
										
						
														
Stru.prg
													
													
Утилита записи структуры dbf-файла и его индексов в текстовый файл

Автор: Неизвестно
Автор публикации

    

		
не в сети 2 месяца
        

            Joys
        
    

    

        

            
				            
			        

        

			Комментарии: 2Публикации: 177Регистрация: 25-06-2000        
    
(далее…)
																		]]>
					
									
											
					https://foxclub.ru/knowledgebase/sscommand/
					
                    					    
                    										    Fri, 28 Aug 2020 11:32:11 +0000
										
						
														
SSCommand
													
													
Программа, эмулирующая Command-окно Foxpro. Пригодится для тех, кому приходится выезжать к заказчикам. Все основные команды для правки баз, форм, отчетов.

Автор: Неизвестно
Автор публикации

    

		
не в сети 2 месяца
        

            Joys
        
    

    

        

            
				            
			        

        

			Комментарии: 2Публикации: 177Регистрация: 25-06-2000        
    
(далее…)
																		]]>
					
									
											
					https://foxclub.ru/knowledgebase/vfpview/
					
                    					    
                    										    Fri, 28 Aug 2020 11:32:11 +0000
										
						
														
VFPVIEW
													
													
Программа для просмотра таблиц от DBase и Foxpro всех версий. Включает возможности исправления заголовков. выдачи информации о типе dbf-файла (DBASE или Foxpro + версии) , кодовую страницу, размер. Просмотр memo-полей, поддержка всех кодовых страниц

Автор: Неизвестно
Автор публикации

    

		
не в сети 2 месяца
        

            Joys
        
    

    

        

            
				            
			        

        

			Комментарии: 2Публикации: 177Регистрация: 25-06-2000        
    
(далее…)
																		]]>
					
									
											
					https://foxclub.ru/knowledgebase/foxview/
					
                    					    
                    										    Fri, 28 Aug 2020 11:32:11 +0000
										
						
														
FOXVIEW
													
													
Просмотр и изменение таблиц, выполнение основных команд Foxpro. Требуется среда поддержки VFP

Автор: Василий Фурсов
Автор публикации

    

		
не в сети 2 месяца
        

            Joys
        
    

    

        

            
				            
			        

        

			Комментарии: 2Публикации: 177Регистрация: 25-06-2000        
    
(далее…)
																		]]>
					
									
											
					https://foxclub.ru/knowledgebase/bv/
					
                    					    
                    										    Fri, 28 Aug 2020 11:32:11 +0000
										
						
														
BV
													
													
Русский просмотрщик/редактор таблиц. Очень много различных функций. Написан на VFP6

Автор: Александр Одинец
Автор публикации

    

		
не в сети 2 месяца
        

            Joys
        
    

    

        

            
				            
			        

        

			Комментарии: 2Публикации: 177Регистрация: 25-06-2000        
    
(далее…)
																		]]>
					
									
											
					https://foxclub.ru/knowledgebase/vosstanovlenie-dbf-fajlov/
					
                    					    
                    										    Fri, 28 Aug 2020 11:32:11 +0000
										
						
														
Восстановление dbf-файлов
													
													
SALVDBF был написан, потому что иногда, особенно при работе в сети, заголовок dbf-файла повреждается. И когда FOXPRO пытается открыть его, происходит ошибка "NOT A DATABASE FILE". Эта утилита восстанавливает как можно больше записей dbf-файла.

Автор: Неизвестно
Автор публикации

    

		
не в сети 2 месяца
        

            Joys
        
    

    

        

            
				            
			        

        

			Комментарии: 2Публикации: 177Регистрация: 25-06-2000        
    
(далее…)
																		]]>
					
									
											
					https://foxclub.ru/knowledgebase/intellisensex/
					
                    					    
                    										    Fri, 28 Aug 2020 11:32:11 +0000
										
						
														
IntelliSenseX
													
													
Реализация части технологии IntelliSense для VFP6. Эта версия показывает все переменные, которые определены в данном методе или процедуре. 
 Как работает: просто запустите ее в среде Foxpro, для закрытия запустите ее еще раз передав параметр "QUIT".
 Теперь при редактировании когда жмете ALT+I - появляется меню со всеми определенными переменными (следует учесть, что под определенными понимаются указанные в PUBLIC,LOCAL и т.д.)

Автор: Christof Lange
Автор публикации

    

		
не в сети 2 месяца
        

            Joys
        
    

    

        

            
				            
			        

        

			Комментарии: 2Публикации: 177Регистрация: 25-06-2000        
    
(далее…)
																		]]>
					
									
											
					https://foxclub.ru/knowledgebase/planirovshhik-zadach/
					
                    					    
                    										    Fri, 28 Aug 2020 11:32:12 +0000
										
						
														
Планировщик задач
													
													
Планировщик задач (запуска программ и т.д.). Настраивается по времени, просмотр списка задач и т.д. Возможность работы как COM-объекта.

Автор: BB
Автор публикации

    

		
не в сети 2 месяца
        

            Joys
        
    

    

        

            
				            
			        

        

			Комментарии: 2Публикации: 177Регистрация: 25-06-2000        
    
(далее…)
																		]]>
					
									
											
					https://foxclub.ru/knowledgebase/chtenie-informaczii-iz-exe-fajla/
					
                    					    
                    										    Fri, 28 Aug 2020 11:32:12 +0000
										
						
														
Чтение информации из EXE файла
													
													
Может применяться в качестве дополнительных функций в приложениях, выяснения версий exe-файлов.
Чтение информации    из EXE файла (например, Copyright) 
       

 Этот пример показывает использование      библиотеки FOXTOOLS.FLL. С помощью этой простой программы можно читать информацию      из EXE-файла, ту информацию, которую показывает Windows 95, на станице Свойства      (автор, Copyright и др.)
     * Example of getting exe file info
     LOCAL lcLibName
     lcLibName = HOME()+"FOXTOOLS.FLL"
     SET LIBRARY TO (lcLibName) ADDITIVE 
     DIMENSION laVersionInfo[16] =GetFileVersion("MyEXE.exe",@laVersionInfo)
     DISPLAY MEMO LIKE laVersionInfo 
Автор: Иван Ник
Автор публикации

    

		
не в сети 2 месяца
        

            Joys
        
    

    

        

            
				            
			        

        

			Комментарии: 2Публикации: 177Регистрация: 25-06-2000        
    
(далее…)
																		]]>
					
									
											
					https://foxclub.ru/knowledgebase/udalennoe-soedinenie-s-setyu-naprimer-s-provajderom-internet/
					
                    					    
                    										    Fri, 28 Aug 2020 11:32:12 +0000
										
						
														
Удаленное соединение с сетью (например, с провайдером Интернет)
													
													
Часто бывает необходимым произвести соединение с сетью, используя контроллер удаленного доступа. Именно это и делает приведенная ниже программа. Кстати, это хороший пример использования DLL
Часто бывает необходимым произвести соединение с сетью, используя контроллер удаленного доступа. Именно это и делает приведенная ниже программа. Кстати, это хороший пример использования DLL. Пример взят из книги "Эффективная работа с СУБД" А. Горева и Р. Ахаяна. [code]  PROCEDURE RemoteNet ************************************************************* * Activate Remote network connection * by Andrey Gorev (from the book "Database managment system") *------------------------------------------------------------ * NOTES: * Connection must be present! * At this example is has name "Darial" * My own login is "alef" * and my own password... hmm... I don't say it! *************************************************************  declare integer RasDial in rasapi32 ; string DialExtetions, ; string cPhoneboolfile, ; string @ cParameters, ; integer nCallBack, ; string cCallBack, ; string @ nConnHandle  nConnHandle = chr(0)+chr(0)+chr(0)+chr(0)  *-- Replace your values here cConnName = "Darial" && Your connection here! cPhone = "500750" && Phone number of ISP cUserName = "alef" && Login name cPassWord = "" && Password here! cDomain = "" && Domain name  cParam = chr(28)+chr(4)+chr(0)+chr(0)+; padr(cConnName+chr(0), 256+1)+; padr(chr(0), 128+1)+; padr(chr(0), 128+1)+; padr(cUserName+chr(0), 256+1)+; padr(cPassword+chr(0), 256+1)+; padr(cDomain+chr(0), 15+1)+" "  nRes = RasDial(NULL, NULL, @cParam, 0, NULL, @nConnHandle)  [/code]
Автор: А. Горев l
Автор публикации

    

		
не в сети 2 месяца
        

            Joys
        
    

    

        

            
				            
			        

        

			Комментарии: 2Публикации: 177Регистрация: 25-06-2000        
    
(далее…)
																		]]>
					
									
											
					https://foxclub.ru/knowledgebase/poisk-dubliruyushhihsya-zapisej-v-tablicze/
					
                    					    
                    										    Mon, 31 Aug 2020 06:50:27 +0000
										
						
														
Поиск дублирующихся записей в таблице
													
													

Чтобы показать дублирующиеся записи, можно использовать SQL-запрос показанный ниже. В результате получится курсор содержащий каждую группу дублирующихся записей, показанную один раз и количество повторений в таблице этой записи.
  SELECT field1,field2, COUNT(*) AS dups FROM table GROUP BY field1,field2,;
  
  HAVING COUNT(*)>1 INTO CURSOR whatever  



Автор публикации

    

		
не в сети 2 месяца
        

            Joys
        
    

    

        

            
				            
			        

        

			Комментарии: 2Публикации: 177Регистрация: 25-06-2000        
    
(далее…)
																		]]>
					
									
											
					https://foxclub.ru/knowledgebase/zvuk/
					
                    					    
                    										    Fri, 28 Aug 2020 11:32:12 +0000
										
						
														
Звук
													
													
Это исключительно Visual FoxPro-шная функция. Своим рождением она обязана, во-первых, тому, что Visual FoxPro работает со звуковыми файлами и, во-вторых, моей лени писать каждый раз самостоятельный вызов звукового файла
Звук    

 Это исключительно Visual FoxPro-шная функция.      Своим рождением она обязана, во-первых, тому, что Visual FoxPro работает со      звуковыми файлами и, во-вторых, моей лени писать каждый раз самостоятельный      вызов звукового файла. А так достаточно указать do sound with имя.wav .     
Procedure SOUND
     Parameter soundF
   if file(SoundF)
     SET BELL TO &SoundF, 0
     ?? CHR(7)
     SET BELL TO 
     endif 
Автор: Неизвестно
Автор публикации

    

		
не в сети 2 месяца
        

            Joys
        
    

    

        

            
				            
			        

        

			Комментарии: 2Публикации: 177Регистрация: 25-06-2000        
    
(далее…)
																		]]>
					
									
											
					https://foxclub.ru/knowledgebase/ole-rabota-s-ms-word-i-ie/
					
                    					    
                    										    Fri, 28 Aug 2020 11:32:12 +0000
										
						
														
OLE: работа с MS Word и IE
													
													
Мы не будем здесь влезать в дебри OLE, его сути и различных тонкостей и отличий от аналогичных технологий. OLE есть OLE и применять его иногда бывает очень полезно. Что же он дает ?

Часть 1.Работа с Word
  Мы не будем здесь влезать в дебри OLE, его сути и различных тонкостей и отличий от аналогичных технологий. OLE есть OLE и применять его иногда бывает очень полезно. Что же он дает ? Последнне время, большая часть софтверных компаний (по-крайней мере Microsoft) пишут свои приложения как OLE-объекты. Следовательно, мы можем из Foxpro полностью управлять работой таких программ. К таким программам относятся Word, Excel и другие из MS Office, так же Outlook Express и много других. Достаточно хорошо, что можно легко ввести данные в фокспрошную программу, там их обработать, сделать отчет в формате MS Word и отдать начальнику. Так как Word является намного более используемой программой, с него и начнем.
  Перед началом работы с ЛЮБЫМ OLE объектом его сначала нужно проиницилизировать. Для Wordа это выглядит следующим образом: [code] oword=create('word.application') oword.documents.add() [/code] Здесь происходит загрузка Word в память и создание нового(пустого) документа. Теперь можно указать заголовок окна Wordа: [code] oword.caption='Word97 Test' [/code] В принципе, можно и не указывать заголовок окна, но возможность такая есть. Это была обязательная часть кода (исключая заголовок) для работы с Wordом. Теперь будем работать непосредственно с созданным документом. Для вставки текста в документ используется метод INSERTAFTER(text), где text - необходимый для вставки текст 😉
  Пример вствки текста в документ: [code] oword.Selection.insertafter(chr(13)) && вставляем ENTER oword.Selection.insertafter('DATE: ') oword.Selection.insertafter(date()) && ... и текущую дату [/code]  Точно также можно вставлять несколько ENTERов (отделяя блоки текста) [code] FOR i = 1 to 3 oword.Selection.insertafter(chr(13)) ENDFOR  [/code] И сразу вставлять текст и перевод курсора на следующую строку: [code] oword.selection.insertafter('Thank you,'+chr(13)) [/code] Также можно вставлять разделительные полосы: [code] oword.selection.insertafter(repl('_',25))[/code]  И осталось только снять выделение с введенного текста: [code] END=oword.activedocument.Bookmarks("ENDOFDOC").select[/code]  Теперь придадим форму самому окну Wordа и сделаем его видимым: [code] oword.top = 1 oword.left = 1 oword.width = 500 oword.height = 450 oword.visible= .t.  [/code]  
Урок 2. Работа с IE.
 Теперь по аналогии работы с Word, мы нмного поуправляем Internet Explorerом. Вообще, чтобы управлять любым OLE объектом достаточно просто узнать все его совйства и методы, но для этого нужно уметь владеть мало-мальским отладчиком (хотя бы отладчиком от фокспро). Для IE есть несколько следующих методов: переход на нужную страницу и заполнение форм.
  Попробуем сделать небольшой пример работы с IE.
  Сначала нужно определить запущем-ли уже браузер из нашего примера, для этого проверяется определена-ли переменная oie, если нет, то определяем ее как ссылку на объект IE.
 [code] IF type ('oie')='U' PUBLIC oie oie=createobject('internetexplorer.application') ENDIF [/code] Теперь с помощью метода Navigate переходим на страничку поиска людей в Yahoo! [code] oie.navigate('http://www.yahoo.com/search/people') [/code] Делаем небольшую паузу, чтобы бровзер открыл сайт. Если в работе программы будут ошибки из-за медленного Интернет-соединения, то это время нужно увеличть. [code] lntime=seconds() DO while seconds()-lntime< 6 ENDDO [/code] Теперь делаем окно IE видимым и заполняем форму.  [code] oie.visible= .t. [/code]  Нижеследующие обращения к IE весьма напоминают синтаксис JavaScript, и вы можете почерпнув оттуда свойства сделать с IE что-нибудь ужасное ;-). А что происходит тут: идет обращение(заполнение) полей формы forms(1) значениями имени, фамилии и т.д., где firstname - поле имя и т.п. [code] oie.document.script.window.document.forms(1).firstname.value = "john"  oie.document.script.window.document.forms(1).lastname.value = "harvey" oie.document.script.window.document.forms(1).city.value = "memphis"  oie.document.script.window.document.forms(1).state.value = "tn" oie.document.script.window.document.forms(1).submit()  [/code] Ну а последняя строка кода "нажимает" на кнопку отправить. Вы можете ее временно убрать, чтобы посмотреть как заполняются поля формы. 
Автор: Неизвестно
Автор публикации

    

		
не в сети 2 месяца
        

            Joys
        
    

    

        

            
				            
			        

        

			Комментарии: 2Публикации: 177Регистрация: 25-06-2000        
    
(далее…)
																		]]>
					
									
											
					https://foxclub.ru/knowledgebase/informacziya-o-bmp-kartinke/
					
                    					    
                    										    Fri, 28 Aug 2020 11:32:12 +0000
										
						
														
Информация о BMP-картинке
													
													
Иногда бывает нужным получить размеры BMP-файла, перед тем как занести его в базу данных. У меня такая возможность понадобилась один раз в программе "учета" кадров.

Информация о BMP-картинке
Иногда бывает нужным получить размеры BMP-файла, перед тем как занести его      в базу данных. У меня такая возможность понадобилась один раз в программе      "учета" кадров: перед тем как занести фотографию работника в базу      (это не только у америнканцев такие программы с фотографиями 😉 приходится      проверять ее размеры, иначе кто-нибудь занесет "нужную" картинку,      которая порешит всю форму. А больше я и не знаю зачем это нужно. Для этого      используется небольшая функция bmpinfo. В принципе, там нет ничего сложного,      но тем не менее. Перед тем как вызывать функцию нужно обязательно проинилизировать      переменные: LNHeight (высота в пикселях), LNWidth (ширина в      пикселях), LNColors (количество цветов ). Делается это командой:
     Store 0 To LNHeight, LNWidth, LNColors.  
     Затем вызываете функцию, указав в качестве параметра имя BMP-файла: =BMPInfo("Drive:DirFileName.bmp")
     Теперь значения высоты, ширины и количества цветов находятся в соответсвующих      переменных. 
Скачать BMPINFO

Автор: Неизвестно
Автор публикации

    

		
не в сети 2 месяца
        

            Joys
        
    

    

        

            
				            
			        

        

			Комментарии: 2Публикации: 177Регистрация: 25-06-2000        
    
(далее…)
																		]]>
					
									
											
					https://foxclub.ru/knowledgebase/perezagruzka-dannyh-iz-raznyh-katalogov/
					
                    					    
                    										    Fri, 28 Aug 2020 11:32:12 +0000
										
						
														
Перезагрузка данных из разных каталогов
													
													
Если Вам приходится часто перегружать в программе данные из разных каталогов и Вы еще не решили как это сделать то данный код для Вас


Перезагрузка данных из разных каталогов
       Димон (impekt@sci.smolensk.ru)
       
Если Вам приходится часто перегружать в программе данные из разных каталогов        и Вы еще не решили как это сделать то данный код для Вас. Для работы необходимо        вставить код, в DataEnvironment.BeforeOpenTable и перед этим создать        глобальную переменную "Рабочий_каталог", со слешем на конце в которой        прописать путь к данным, например:
C:MyProgaData1999
 После этого при открытии таблиц в DataEnvironment данные будут браться        из указанного выше каталога. Для перезагрузки данных не надо закрывать форму.        Достаточно сделать следующие действия.
 ThisForm.DataEnvironment.CloseTables
       Рабочий_Каталог= 'C:MyProgaData2000' 
       ThisForm.DataEnvironment.OpenTables 
**** Код процедуры перезагрузки
AMEMBERS(la_Cursors,ThisForm.DataEnvironment,2) 
     WITH ThisForm.DataEnvironment 
     FOR ln_Cot=1 TO ALEN(la_Cursors,1)
     lc_Cursor=la_Cursors(ln_Cot) 
     IF .&lc_Cursor..BaseClass = 'Cursor' 
     IF NOT '' $ .&lc_Cursor..CursorSource lc_Table=SUBSTR(.&lc_Cursor..DataBase,RAT('',.&lc_Cursor..DataBase)+1,;      
     LEN(.&lc_Cursor..DataBase)-RAT('',.&lc_Cursor..DataBase)) .&lc_Cursor..DataBase=РАБОЧИЙ_КАТАЛОГ+lc_Table      
     ELSE
     lc_Table=SUBSTR(.&lc_Cursor..CursorSource,RAT('',.&lc_Cursor..CursorSource)+1,;      LEN(.&lc_Cursor..CursorSource)-RAT('',.&lc_Cursor..CursorSource)) .&lc_Cursor..CursorSource=РАБОЧИЙ_КАТАЛОГ+lc_Table
     ENDIF 
     ENDIF
     ENDFOR 
     ENDWITH 


Автор: Димон
Автор публикации

    

		
не в сети 2 месяца
        

            Joys
        
    

    

        

            
				            
			        

        

			Комментарии: 2Публикации: 177Регистрация: 25-06-2000        
    
(далее…)
																		]]>
					
									
											
					https://foxclub.ru/knowledgebase/byutifikator-form/
					
                    					    
                    										    Thu, 01 Feb 2024 03:07:27 +0000
										
						
														
Бьютификатор форм
													
													
Что же это вообще такое ? 😉 А это просто "приглаживание"

  всех объектов на форме. То есть унификация фонта, центровки и т.д. Конечно для

  этого можно использовать классы, но не всегда это делается, или если к вам попала

  программа без использования классов. И вы в один момент сделаете эту форму красивой:

  с красивыми фонтами, без лишних кнопочек и вообще как вам захочется.
Вот пример такой программы 
Как работает:

   Открываете форму, переходите в Command window и запускаете процедуру

  (do format) 
    
    
 * Format.PRG   
 * c Пирожков В.В. 1997, 10.04.1997 14:00  
  #define C_FONTNAME	"=_FONTNAME"  
  #define C_FONTSIZE	8  
    
  Private array tmp[1]  
  local i, k, j, n, m.OldErrorHandler, m.nError  
  m.OldErrorHandler=ON("ERROR")  
  ON Error Store Error() to m.nError  
    
  k=ASELOBJ(tmp)  
  if k > 0  
  	for i=1 to k  
  		if vartype(tmp[i])='O'  
  			FormatEx(tmp[i])  
  		endif  
  	next  
  else  
  	k=ASELOBJ(tmp,1)  
  	if k > 0 and not tmp[1].Comment='Formatted'  
  		with tmp[1]  
 			* Make Dialog Window  
    
  			.AutoCenter=.T.  
  			.FontName=C_FONTNAME  
  			.FontSize=C_FONTSIZE  
  			.BorderStyle=2  
  			.MinButton=.F.  
  			.MaxButton=.F.  
  			.DeskTop=.T.  
  			.WindowType=1  
  			.Icon=["_SCREEN.Icon"]  
  		endwith  
  	endif  
  endif  
  on Error &OldErrorHandler  
    
  Procedure FormatEx( oObj )  
 *  
 * Процедура опрашивает базовые классы объекта  
 * и для известных ей устанавливает   
 * ИМЯ ФОНТА  
 * РАЗМЕР ФОНТА  
 * и прочие параметры для разных типов классов  
 *   
 * Для объектов контейнеров опрашивает все   
 * дочерние ( сыновние ? ) объекты и запускает  
 * сама себя для всех встреченных объектов  
 *  
  if vartype( oObj ) # 'O'  
  	Return .F.  
  endif  
    
  local j, n  
  with oObj  
  	FormatFont()  
  	do case  
  	case .BaseClass="CommandButton"  
  		.Height=24  
  		.Width=80  
  	case .BaseClass='TextBox'  
  		.Margin=1  
  		.Height=20  
  	case .BaseClass='EditBox'  
  		.Margin=1  
  	case .BaseClass='Label'  
  		.AutoSize=.T.  
  		.BackStyle=0  
  	case .BaseClass='OptionButton'  
  		.AutoSize=.T.  
  	case .BaseClass='CheckBox'  
  		.AutoSize=.T.  
  	case .BaseClass='Shape'  
  		.SpecialEffect=iif(.SpecialEffect=1,0,.SpecialEffect)  
  	case .BaseClass='ListBox'  
 		* Пока нечего добавить к списку  
  	case .BaseClass='ComboBox'  
  		.Margin=1  
 		* Пока нечего добавить в раскрывающемуся списку  
  	case .BaseClass='PageFrame'  
  		.TabStyle=1  
  		for j=1 to .PageCount  
  			FormatEx(.Pages(j))  
  		next  
  	case Inlist(.BaseClass,'Container','OptionGroup','Page','Column')  
  		if .BaseClass='Container'  
  			.SpecialEffect=iif(.SpecialEffect=2,0,.SpecialEffect)  
  		endif  
  		if .ControlCount > 0  
  			for n=1 to .ControlCount  
  				FormatEx(.Controls(n))  
  			next  
  		endif  
  	case InList(.BaseClass,'CommandGroup')  
  		if .ButtonCount > 0  
  			for n=1 to .ButtonCount  
  				FormatEx(.Buttons(n))  
  			next  
  		endif  
  	case .BaseClass='Grid'  
  		.AllowRowSizing=.F.  
  		.AllowHeaderSizing=.F.  
  		.DeleteMark=.F.  
  		.RecordMark=.F.  
  		.SplitBar=.F.  
  		if .ColumnCount > 0  
  			for n=1 to .ColumnCount  
  				FormatEx(.Columns(n))  
  			next  
  		endif  
  	case .BaseClass='Header'  
  		.Alignment=2  
  	endcase  
  endwith  
    
  Procedure FormatFont  
 *  
 * Установить фонт для текущего объекта,  
 * если он к него есть.  
 *  
  if type('.FontName')='C'  
  	.FontName=C_FONTNAME  
  	.FontSize=C_FONTSIZE  
  endif  
    
  Procedure FormatError( nError )  
  Return  
    

Автор публикации

    

		
не в сети 22 года
        

            piva
        
    

    

        

            
				            
			        

        

			Комментарии: 1Публикации: 11Регистрация: 24-03-2004        
    
(далее…)
																		]]>
					
									
											
					https://foxclub.ru/knowledgebase/osnovy-yazyka-visual-foxpro/
					
                    					    
                    										    Tue, 08 Nov 2022 12:35:23 +0000
										
						
														
Основы языка Visual FoxPro
													
													
Язык VFP это сильно дополненный и расширенный язык xBase. В Visual FoxPro язык программирования объектно-ориентированный, то есть базовой конструкцией языка является понятие класса. Исходный же вариант xBase это чистейший структурный язык, с базовым понятием процедур и функций. Таким образом, современный язык программирования Visual FoxPro допускает совмещать как и программирование "по старинке" описанием массы процедур, так и в стиле ООП, создавая сложную иерархию классов.
Разумный же выбор стиля программирования сделает Ваши программы читабельными, легкими для понимания, с другой стороны, позволит Вам быстро создавать мощные приложения. Как уже говорилось, язык Visual FoxPro сильно перегружен языковыми конструкциями, стандартными функциями и операторами. Это сделано из-за соображений совместимости со старыми версиями FoxPro. Дать полное описание всех конструкций языка представляется невозможным из-за огромного количества материала. Поэтому мы отсылаем читателя к Visual FoxPro Online Documentation справочной базе данных по программированию VFP. Размер этой базы данных около 80 Mb, и ее можно установить при установке самого VFP себе на жесткий диск или же оставить на оригинальном CD-диске. Здесь же мы будем стараться приводить описания только тех языковых конструкций, которые потребуются нам для более полного изложения материала. Если в приводимых программах Вы встретите незнакомую функцию или оператор, попробуйте найти его описание в Visual FoxPro Online Documentation, в крайнем случае, напишите мне, и я обязательно подробно про него расскажу.
Итак, здесь рассматриваются:
1. Понятие типов данных и массивов

2. Венгерская нотация

3. Понятие программной единицы (процедуры) и их типы

4. Операторы

5. Организация процедур и функций

6. Циклы и условные операторы

7. Реакция на события

9. Форма элемент Вашего приложения
Понятие типов данных и массивов
Типы данных.
Если Вы уже имели какой-то опыт в программировании, Вам не нужно особенно объяснять что такое типы данных и с чем их едят. Если же Вы понятия не имеете о данных и об их типах, внимательно прочитайте этот раздел. Здесь же мы рассмотрим основные особенности типов данных в VFP.
Первое, что отличает VFP от других языков программирования, это то, что в VFP все переменные динамические с неявным объявлением типа. То есть, Вы всегда можете создать переменную, некоторое время ее использовать и потом удалить. При создании переменная всегда имеет тип logical со значением false и тип ее фиксируется (определяется) при первом присваивании переменной какого-либо значения. То есть, при первом присваивании переменная меняет свой тип на тип присваиваемых ей данных. Изменить свой тип переменная может только один раз, при первом присваивании. Переменные могут быть следующих типов:
Logical: Логический тип, возможные значения .T. или .F. Точки обязательны это наследство старого языка xBase
Numeric (float): Числовой с плавающей точкой
Character (string): Строковый - строка символов. Раньше максимальная длина строки была равна 255 символов, теперь 64 Kb.
Date: Дата. Значение определяется как дата с установленным разделителем в установленном формате в {} скобках. Например, по умолчанию, {12/31/99}. Более подробно см. команду определения типа даты SET DATE.
DateTime: Дата и время. Тоже что и дата, но хранит также и время. Более подробно мы рассмотрим этот тип позже.
Object: Тип-объект. Переменная такого типа хранит или ссылку на объект или значение NULL В этой таблице перечислены наиболее часто используемые типы.
Кроме того, в некоторых случаях, могут создаваться переменные с любым типом данных, разрешенном в таблицах, то есть, например, memo, general и др. (См. команды SCATTER и GATHER).
Кроме определения типа весьма важным является и определения области действия переменной. В VFP наиболее часто используются переменные глобальные, частные и локальные. Кроме того, есть еще региональные и некоторые другие, но мы заострим внимание только на первых трех типах области действия.
Объявление типа области действия переменной производится ниже указанными командами. Внимание! Объявление типа области действия переменной всегда должно предшествовать ее первому присваиванию! По умолчанию, переменные без объявления области действия становятся частными (приватными) о чем более подробно будет сказано чуть ниже.
Глобальные переменные объявляются командой PUBLIC и существуют в течение выполнения всей программы или всего приложения. При отладке (в среде VFP) глобальные переменные существуют в течение всего сеанса работы с VFP, пока они не будут явно удалены из памяти. Пример объявления глобальных переменных:
PUBLIC gcMyName, gdCurrentDate gcMyName = Иван Никитин gdCurrentDate = date()
Частные переменные (приватные) существуют в течение выполнения текущего программного модуля и доступны во всех вызываемых им модулях. Эти переменные автоматически удаляются из памяти при окончании выполнения модуля, в котором они были объявлены и созданы. Такой тип области действия получают все необъявленные явно переменные, кроме массивов. По умолчанию, массивы становятся глобальными. Явно объявить этот тип области действия можно командой PRIVATE.
Локальные переменные существуют и доступны только в том модуле, в котором они объявлены. Эти переменные объявляются командой LOCAL и удаляются из памяти автоматически при завершении выполнения программного модуля. Как мы уже говорили, в VFP все переменные динамические.
Как мы убедились, VFP очень бережно работает с памятью, создавая переменные частными по умолчанию и удаляя их из памяти при завершении модуля, в котором они были созданы. Иногда, правда, приходятся самим удалить переменные. Это можно сделать командой RELEASE. Как мы отмечали выше, переменные не могут менять свой тип. Но, используя удаление переменной из памяти, можно создавать такую же переменную, но с другим типом. Я не представляю себе, для чего это нужно реально, но все же вот пример, как это сделать (После символов && - примечания): PUBLIC gMultiTypeVar && Это глобальная переменная


gMultiTypeVar = 1.00 && Ее тип числовойRelease gMultiTypeVar

gMultiTypeVar = "Hello" && Теперь это строка

Release gMultiTypeVar

gMultiTypeVar = {01/01/2000} && А сейчас - дата
Венгерская нотация
В Вашем приложении могут быть сотни и тысячи переменных. Чтобы избежать путаницы и долгих размышлений при отладке программы типа: "A[i,j] что за массив и чего он здесь вообще делает?" была предложена и успешно используется стройная система именования переменных и других объектов программы.
По родине предложившего эту систему программиста она названа Венгерская нотация. Система именования очень проста. Прилагаемо к VFP, имя переменной начинается с 2-х буквенного префикса, 1-я буква которого область действия переменной, 2-я буква ее тип. То есть:
lc - (local character) локальная символьная

ld - (local date) локальная типа дата

gn - (global numeric) глобальная числовая

ga - (global array) глобальный массив и так далее.
Кроме того, желательно все объекты и классы также объявлять согласно венгерской нотации, но об этом позже. Само имя переменной должно быть максимально информативным. Например, хорошо объявленные переменные:
ldCurrentDate

gaMyCustomers

gnAppVersion
Всячески следует избегать имен переменных типа A[i,j], K1, L2 R0 и т.п. так часто приводимых в старых учебниках по программированию. Единственным исключением, пожалуй, являются переменные циклов I и J. Это "вечные" имена для создания циклов.
Понятие программной единицы (процедуры) и их типы
Как мы уже говорили, Ваше приложение состоит из какого-то определенного набора программных единиц, или модулей (этот термин авторский, "чистого" понятия модуля в VFP нет). В VFP есть несколько типов программных единиц. На наш взгляд все исполняемые программные единицы в VFP можно отнести к двум большим группам:
Программные единицы

Формы
В отличие от старых версий FoxPro, VFP имеет понятие формы определенного описания окна (формы), которое может самостоятельно исполнятся. В старых версиях FoxPro существовало понятие Экрана (screen).Это не одно и то же, что и форма.
Экран в FoxPro просто способ визуального построения окна, который в дальнейшем в любом случае переводился в исполняемую программу, строящую это окно (файл SPR). Форма же по своей сути является описанием класса окна, который при исполнении порождает объект, готовый к работе (см. ООП).
Таким образом, в отличие от экранов FoxPro форма может быть самостоятельно исполнена без генерации программного модуля. Более подробно мы рассмотрим формы позже, а пока перейдем к другой группе программных единиц.
Любая программная единица это набор операторов VFP, выполнение которых приводит к желаемому результату. В зависимости от назначения и способа построения программные единицы делятся на следующие группы:
Программы и процедуры

Процедурные файлы и описание классов

Функции, определенные пользователем (UDF)

Хранимые процедуры и триггеры

Программы запросов

Программы меню
Четкого различия на уровне операторов между всеми этими группами нет. Просто они по разному строятся (например, запросы и меню стоятся автоматически), и соответственно имеют разное назначение. Здесь мы пока не приводим подробное описание каждой группы, лишь обозначим общую идеологию этого построения и типы файлов, в которых сохраняются эти программные единицы. Любая программная единица хранится в файле. Стандартным расширением для такого файла является расширение PRG. При выполнении или при построении проекта этот файл компилируется в p-код и затем выполняется. Компиляция проходит очень быстро и обычно пользователь VFP даже не замечает время, потраченное VFP на компиляцию при выполнении. Соответственно, при выполнении построенного проекта компиляция уже не нужна, так как проект строится на основе уже скомпилированных модулей.
Наборы готовых "кирпичиков" процедур можно объединять в файлы (об этом см. ниже), что дает нам процедурные файлы. Кроме того, есть большой класс програмных элементов, именуемый User defined function (UDF), но об этом ниже.
Хранимые процедуры это такие же наборы процедур, хранимых в базе данных. Об этом см. раздел "Понятие базы данных". Программы запросов и программы меню строятся автоматически и соответственно имеют расширения QPR и MPR. Как правило, Вам не нужно их менять или править. Более подробно об этом мы рассмотрим в разделах применение RQBE и Построение меню.
Операторы
Операторы это элементарные командные единицы Вашей программы. При работе с VFP, Вам доступно окно Command, позволяющее выполнять эти команды поодиночке, в принципе, последовательное выполнение операторов и есть работа Вашего приложения. Конечно же, на практике дело обстоит несколько сложнее, так как мы имеем дело с системой, управляемой событиями, но в первом приближении, можно представить дело именно так: "Ваше приложение представляет набор некоторых, команд, выполнение которых и есть работа Вашего приложения".
Операторы (команды) VFP могут быть как простыми, так и очень сложными и длинными, равно как и команда, выполняемая оператором, может быть простой, а может быть и весьма сложной и емкой. Конечно же, здесь мы не ставим перед собой цель подробно объяснить все команды VFP, для этого у нас попросту нет ни времени, ни сил, ни объема, и, в конце концов, для этого существует Help (справочная информация), но несколько простых оператором мы рассмотрим.
Итак, оператором в VFP считается одна строка программы. Пустые строки игнорируются. Если оператор не умещается на одной строке, или программисту кажется более наглядным разместить один оператор на нескольких строках, то это можно сделать, поставив в конце строки, которую требуется продолжить символ "точка с запятой", например, здесь приведен один оператор:
SELECT ;

Name, Address ;

FROM Customers ;

INTO TABLE Forieners ;

WHERE not Country = Россия
Организация процедур и функций
Процедуры и программы по сути своей одно и тоже. Обычно процедура начинается ключевым словом PROCEDURE, что показывает компилятору что это и есть процедура. Заканчивается процедура словом RETURN, что завершает выполнение процедуры и возвращает управление в вызываемую программу. Обычно имя процедуры и имя файла, в котором она хранится, совпадают. Однако, можно с одном файле разместить несколько процедур, что даст нам процедурный файл. Особой разницы, как хранить процедуры вместе или врозь, в отдельных файлах, нет.
При построении проекта они все равно будут объединены в файл приложения, поэтому мы рекомендуем оформлять разные процедуры разными файлами, так легче с ними работать. Процедура может быть вызвана из любого места программы или другой процедуры, выполниться и вернуться в вызывающую программу.
Самая верхняя процедура обычно называется главной (стартовой) программой и, собственно, и есть основной единицей Вашего приложения (хотя это и необязательно, как мы покажем ниже). При вызовах процедуры может случиться так, что какая-то процедура (или функция) вызывает саму себя. Это называется рекурсией. С рекурсией в VFP следует обращаться крайне осторожно. VFP поддерживает до 128 рекурсивных вызовов, не более, поэтому мы настоятельно рекомендуем не пользоваться рекурсивными вызовами.
Процедура может принимать при ее вызове параметры от вызывающей программы. Параметры могут объявляться как частные переменные (ключевое слово PARAMETERS) или как локальные переменные (ключевое слово LPARAMETERS). Как именно объявлять параметры дело Вашего вкуса. Число передаваемых параметров может быть меньше, чем число объявленных параметров. В этом случае "лишние" параметры процедуры инициализируются в значение false (.F.). Пример оформления процедуры:
  Procedure MyProc
  
  parameter nScope
  
  ? "Число pi="+str(nScope)
  
  return  

Соответственно вызов этой процедуры выглядит так:
  Do MyProc with 3.14  

Программа, дойдя до оператора Do MyProc, произведет поиск файла myproc.prg (или откомпилированного myproc.fxp) и произведет вызов этой процедуры. При вызове переменной-параметру nScope будет передано значение 3.14, и начнет исполняться процедура, пока не будет достигнут конец файла myproc.prg или не будет встречен оператор RETURN. При этом управление будет передано на следующий оператор после Do MyProc.
Наборы процедур можно хранить в одном файле, что дает нам процедурный файл. В этом случае вызов выглядит так:
Do MyProc with 3.14 in MyProcFile,
где MyProcFile имя процедурного файла.
Функции очень похожи на процедуры, за исключением двух ключевых моментов:
Функции могут вызываться из выражения, а не только прямым вызовом DO;

Функции могут возвращать результат своей работы;
То есть, можно сказать и так, если процедура что-то выполняет, то функция что-то вычисляет и сообщает об этом вызывающей программе. Конечно же, это деление весьма условно, и, как мы убедимся, более удобно использовать функции.
Итак, функция начинается ключевым словом FUNCTION и завершается словом RETURN. После RETURN обычно следует переменная или выражение, которое будет возвращено вызывающей программе. Если это выражение отсутствует или отсутствует само ключевое слово RETURN, то предполагается возврат логического выражения .T. (истина).
Пример функции, которая вычисляет что-то:
  FUNCTION MyFUNC  
  PARAMETER X, Y, Z  
  LOCAL Result  
  Result=x+y+z  
  RETURN Result  

Вызов этой функции может быть таким:
MyVar = MyFunc(MyParam1, MyParam2, MyParam3)
или таким:
Something = MyFunc(Param1) + MyFunc(Param2)
или даже так:
=MyFunc()
Как видно, во втором и третьем случае число передаваемых в функцию параметров меньше, чем объявлено в самой функции. Это не ошибка, "лишние" параметры принимаются как переменные логического типа со значением .F. (ложно). Этот момент следует учитывать,
Число переданных параметров в функции всегда можно узнать с помощью функции PARAMETERS(), или проверить параметры функцией EMPTY(), которая вернет .T., если выражение, переданное в нее, является пустым (то есть, .F. или пустая строка или 0 или пустая дата или NULL)
В последнем примере видно как функция вызывается без фиксации возвращаемого результата (кстати говоря, тут и сам знак = не нужен, но так читабельнее). То есть в этом случае, возвращаемый результат нигде не сохраняется. В этом случае, функция ведет себя как типичная процедура, выполняя что-то, а не вычисляя. Кстати, большинство функциональных возможностей VFP реализовано именно как функции.
Далее мы увидим, что методы классов тоже реализуются именно как функции. Функции, определенные Вами, в VFP называются User Defined Function, то есть функции, определенные пользователем. UDF это очень мощный инструмент структурного программирования.
Циклы и условные операторы
Если Вы знакомы со структурным программированием, то Вам особенно не нужно объяснять, что такое циклы и условные операторы. Но все же вкратце на этом остановимся.
Условный оператор позволяет выполнять тот или иной блок программы в зависимости от какого-то условия:
IF lExpression <часть кода 1> ELSE <часть кода 2>

ENDIF
lExpression любое логическое выражение. Если оно истинно, то выполняется "часть кода 1", иначе "часть кода 2". В VFP существует масса функций, результат которых является логическим и поэтому может использоваться в этой конструкции.
Циклы позволяют выполнить какую либо часть кода несколько раз. Соответственно, в VFP существуют несколько видов циклов:
Циклы с предусловием

Циклы перечисления

Циклы "для каждого"
Циклов с послесловием, таких как Паскалевский цикл repeat until, в VFP нет. Но, при желании, их можно легко реализовать. Циклы с предусловием это циклы, выполняющиеся до тех пор, пока условие выполнения истинно. Проверка условия происходит перед очередным циклом, отсюда и название.
Такой цикл строится такой конструкцией :
DO WHILE lExpression

<операторы тело цикла>

ENDDO
Цикл перечисления это цикл, в котором происходит последовательное наращивание (или уменьшение) какого либо значения, то есть его перечисление.
Типичный цикл перечисления:
FOR I = nMin TO nMax STEP nStep

<операторы тело цикла>

ENDFOR
В этом случае, происходит последовательное увеличение переменной цикла (в данном примере I) от минимального значения nMin, до максимального nMax, с шагом приращения nStep.
Циклы "для каждого" очень удобно использовать для последовательного просмотра массивов или коллекций (о них мы поговорим позже). В этом случае, произойдет выполнение операторов цикла для каждого элемента этого массива или коллекции:
Приведем два примера использования этого цикла. Первый пример создается массив и затем последовательно выводятся его элементы оператором (?) :
  DIMENSION cMyArray(3)  
  cMyArray[1] = 'A'  
  cMyArray[2] = 'B'  
  cMyArray[3] = 'C'  
  FOR EACH cMyVar IN cMyArray  
  ? cMyVar  
  ENDFOR  

В следующем примере с помощью OLE Automation создается объект книги Excel и последовательно выводятся имена листов этой книги:
  oExcel = CREATE("Excel.Application")  
  oExcel.Workbooks.ADD  
  FOR EACH oMyVar IN oExcel.sheets  
  ? oMyVar.name  
  ENDFOR  

Во всех циклах можно прервать выполнение цикла оператором EXIT или прекратить выполнение текущей итерации (перейти на следующую итерацию) с помощью команды LOOP.
Реакция на события
Как мы уже отмечали, VFP реализует систему, управляемую событиями. Поговорим об этом более подробно. Первые языки программирования и первые подходы к программированию реализовали модель, управляемую данными. То есть программа чего-то там обрабатывала, и в зависимости от данных (исходных, вычисленных, сохраненных и проч.) выполняла тот или иной свой блок.
Характерным отличием такой модели является наличие алгоритма обработки, то есть четкой схемы, показывающей работу программы. К сожалению (или к счастью?) мир устроен по-другому. Динамичное развитие ситуации невозможно представить в виде законченных схем, блоков готовых решений. Мы не знаем, что случится через секунду или через минуту, мы также не знаем когда вообще что-нибудь случится. И, соответственно, мы не можем получить законченный алгоритм обработки.
Таким образом, мы приходим к понятию события. Событие это некоторое изменение окружающего нас мира. Событием может быть все что угодно, например (применимо к компьютеру), пользователь передвинул мышку, нажал кнопку, модем получил очередной байт или блок байтов, кто-то ломится к нам по сети, прошло столько-то секунд после какой-то команды и прочее.
Соответственно, суть системы управляемой событиями это описание реакции системы на определенные события. Нетрудно видеть, что алгоритма здесь нет, потому что мы не можем предсказать события. Мы можем лишь заявить следующее: "В случае того-то и того-то система поведет себя так-то и так-то". Таким образом, программирование системы заключается в описании реакции на события. Это очень важный момент в понимании подобных систем. Основное отличие от обычных подходов в том, что мы описываем только те события, которые нас интересуют, оставляя для остальных стандартную (ранее описанную) реакцию. То есть, если при создании обычных программ, Вы были обязаны описать все функциональные блоки Вашей программы, то в данном случае, Вы описываете лишь то, что отличает Вашу программу от стандартного поведения системы, как бы говоря: "А в остальном веди себя, как и прежде".
Кто и как расписал это "прежде" сейчас Вас не интересует, главное то, что программа может себя вести стандартным образом, пусть даже никак, весь пустая реакция это тоже реакция. Наиболее полно система, управляемая событиями, реализуется в объектной модели программирования, и мы рассмотрим ее позже, но в VFP есть еще несколько способов управлением реакцией на события. Первое, что необходимо знать, это понятие обработчика событий. Когда Вы отлаживаете Ваше приложение в среде VFP, или просто экспериментируете с VFP, Вам об этом заботиться не надо, так как сам VFP уже имеет свой обработчик событий, другое дело, когда стартует Ваше уже законченное приложение. Вы должны включить его при старте и выключить при окончании работы Вашего приложения. При всей своей сложности это делается весьма просто:
* Старт <инициализация Вашего приложения>

READ EVENTS

* Завершение

CLEAR EVENTS
И все. Где именно это размещать мы покажем позже. А пока просто примите это к сведению.
Наиболее ярким примером средств управления событиями, за исключением классов, пожалуй, является меню VFP. Система программирования VFP является весьма мощной, настолько, что Вы всегда можете не просто создать меню в своем приложении, но и изменить, дополнить или кардинальным способом поменять меню самого VFP. Это делается с помощью команд управления меню, которых довольно много. Однако, к счастью, концепция RAD, и именно построитель меню позволяет Вам создать сложное, полнофункциональное меню, вообще не прибегая к написанию кода. Сам процесс построения меню мы рассмотрим позже, здесь лишь отметим, что его результатом обычно является полученная программа (файл с расширением *.MPR) , которая будучи однократно запущенной, довольно быстро завершит свое выполнение и начнет отслеживать события (мышку, горячие клавиши) как обычное Windows-меню.
Кроме этого примера, можно привести команды VFP ON :
ON KEY LABEL - отслеживает нажатия на клавиши или мышь

ON ERROR - отслеживает ошибки выполнения
Попробуйте следующее. В среде VFP в командном окне введите строку:
On error MessageBox( Ошибка! )
После чего, до тех пор, пока вы не отключите это отслеживание, вместо сообщения об ошибке будет окно с Вашим сообщением (MessageBox). Это же будет происходить и в Ваших программах (об исключениях мы поговорим позже). Вот хороший пример использования такого отслеживания.
Функция LocFile() возвращает имя выбранного пользователем файла, но если пользователь отказывается от выбора, то происходит ошибка. Попробуем ее отследить:
  local lcSelectedFile, llError, lcOnError  
  llError = .F.  
  lcOnError = ON("ERROR")  
  On Error llError = .T.  
  lcSelectedFile = locfile("readme.txt", "txt, me", "Файл")  
  On Error &lcOnError  
  if llError MessageBox("Файл не выбран")  
  else  
  Modify file (lcSelectedFile)  
  endIf  

Комментарии к примеру: В переменной lcSelectedFile сохраняется полное имя выбранного файла, переменная llError сначала устанавливается в .F. и, в случае ошибки в .T., lcOnError сохраняет предыдущую установку ON ERROR, которая считывается функцией ON( ERROR ), восстанавливается установка макроподстановкой &lcOnError, файл открывается с помощью команды Modify file (lcSelectedFile). И еще комментарий, не нужно принимать этот пример в качестве оптимального решения. На самом деле все можно сделать куда более элегантнее, это всего лишь пример перехвата ошибки (реакции на ошибку) в процессе выполнения программы.
Форма элемент Вашего приложения
Форма это не программа. В старых версиях FoxPro существовало понятие экрана, то есть программы, строящей какое либо окно, набор окон или оформление экрана со всеми элементами управления. Такие программы автоматически создавались при построении проекта или с помощью команды Generate в меню. В любом случае, после изменения в образе этого экрана, Вы должны были снова сгенерировать экранную программу (файл SPR), чтобы изменения вступили в силу. Как уже отмечалось выше, Visual FoxPro это объектно-ориентированная среда, и здесь уже появляется понятие формы.
Форма это класс, позволяющий породить объект (окно, набор окон, панель управления), который начинает немедленно существовать (выполнятся, если угодно). В отличие от экранов, форма может быть запущена (выполнена) без дополнительной генерации программы, с помощью команды: DO FORM 
Соответственно, одна форма (класс) может породить несколько экземпляров (объектов), каждый из которых существует своей жизнью.
 
Формы это очень мощный инструмент инкапсуляции функциональных возможностей вашего приложения. Мы отдельно и подробно рассмотрим процесс построения форм и их использования в Вашем проекте, а пока просто немного информации для общего развития.
Итак, форма это не программа, а класс. Класс формы хранится в файле с расширением SCX (SCT дополнительный файл). Экземпляр формы создается командой DO FORM, при этом, соответственно выполняются события (методы) формы, которые возникают при ее загрузке. При выполнении формы (если это не указана специально) создается объектная переменная. Этим процессом можно управлять, указывая имя переменной в команде DO FORM:
* Объявим переменную для формы

public goMyForm

* Запустим форму, в переменной будет создан объект

DO FORM MyForm.scx NAME goMyForm

* а теперь закроем форму, обращаясь к ее методу

goMyForm.Release
Иван Никитин
Автор публикации

    

		
не в сети 6 месяцев
        

            admin
        
    

    

        

            
				            
			        

        

			Комментарии: 1Публикации: 123Регистрация: 10-12-2000        
    
(далее…)
																		]]>
					
									
											
					https://foxclub.ru/knowledgebase/arhivirovanie-dannyh-v-prilozheniyah-na-ms-visual-foxpro/
					
                    					    
                    										    Fri, 28 Aug 2020 11:32:10 +0000
										
						
														
Архивирование данных в приложениях на MS Visual FoxPro
													
													


Предистория
Под созданием архивов подразумевается создание копий баз данных, таблиц, индексов и прочих файлов в сжатом виде. Использование консольных архиваторов типа PKZIP и PKUNZIP раздражает открытием окна сессии MSDOS. Хотелось найти что-нибудь 32-разрядное. В Инете предлагается некоторое количество подобных решений, например:
BigSpeedZip DLL - the faster and the smallest compression libraryВсе они SHAREWARE или EVALUATION. А хочется бесплатного... Тут и вспомнился GNU Project - Free Software Foundation (FSF), где обнаружилась библиотека ZLIB версии 1.13. В том числе и для Windows в самых разных видах:
 
The 16 bits DLL of ZLib 1.13 The 16 bits import library for the DLL of ZLib 1.13  The 32 bits DLL of ZLib 1.13 The 32 bits import library for the DLL of ZLib 1.13 The 32 bits static library of ZLib 1.13 for Visual C++ The 32 bits import library for the DLL of ZLib 1.13 for Borland C++  The 32 bits DLL of ZLib 1.13 for WinNT on Dec Alpha The 32 bits import library for the DLL of ZLib 1.13 for WinNT on Dec Alpha The 32 bits static library of ZLib 1.13 for Visual C++ for WinNT on Dec Alpha
Для нашей задачки подходит третья в списке. Творчески переработав файл ZLIB.H получаем программку для VFP, регистрирующую некоторые функции из ZLIB.DLL
 
DECLARE INTEGER gzopen IN zlib STRING cPath, STRING cMode DECLARE INTEGER gzread IN zlib INTEGER iFileID, STRING @cBuffer, LONG lLength DECLARE INTEGER gzwrite IN zlib INTEGER iFileID, STRING @cBuffer, LONG lLength DECLARE INTEGER gzeof IN zlib INTEGER iFileID DECLARE INTEGER gzclose IN zlib INTEGER iFileID
Этого набора вполне достаточно, чтобы написать функции ZipFile и UnzipFile для компрессии/декомпресии отдельного файла. Никаких ZIP-архивов... Что, впрочем, понятно, если вспомнить о UNIX происхождении библиотеки. Ну и ладно... Вот только как именовать получающиеся сжатые файлы? Если следовать принципам UNIX, то нужно просто к исходному имени файла добавить еще одно расширение - GZ, то есть
 
MAIN.DBF --> MAIN.DBF.GZ
Вопрос только в том, чтобы Windows "переварила" такое издевательство... Пробуем и убеждаемся, что Windows не только спокойно относится к таким именам файлов, но и правильно интерпретирует их. То есть под расширением фала понимается именно GZ, а не DBF.GZ. К тому же при установленном WinZip эти файлы отображаются в виде иконок архива и открываются с легкостью.
Теперь пишем функции ZipDir и UnzipDir, добавляем простенький индикатор типа ProgressBar и оформляем все это в виде библиотеки VCX.
Как пользоваться всем этим?

Скачиваем архив zlib.zip
Копируем 32-разрядную ZLIB.DLL в папку WindowsSystem (или WinNTSystem32)
Помещаем ZLIB.VCX и ZLIB.VCT в папку с проектом
Открываем VFP и указываем путь к библиотеке
 SET CLASSLIB TO <path>ZLIB.VCX ADDITIVE

Создаем объект
 z=CreateObject("zlib")

Пользуемся им с помощью методов ZipFile, UnzipFile, ZipDir, UnzipDir. Синтаксис смотри ниже.
Удаляем объект
 RELEASE z


Синтаксис методов класса ZLIB
Object.ZipFile(cSrcFile,cDestFile)

Object.UnzipFile(cSrcFile,cDestFile)
cSrcFile - исходный файл

cDestFile - сжатый файл
Возвращают результат .T. если все хорошо, или .F. в противном случае
Обе функции ничего не производят с именами файлов, поэтому исходный и сжатый файлы должны быть разными. Рекомендуется сжатым файлам назначать расширение GZ.
Object.ZipDir(cSrcPath,cDestPath)
cSrcFile - путь к папке с файлами

cDestFile - путь к папке куда помещаются сжатые файлы
Возвращает число обработанных файлов если все хорошо, или -1 в противном случае
Функция обрабатывает файлы с атрибутом A по маске *.*

Сжатые файлы имеют расширение GZ, а первая точка меняется на подчеркивание (из соображений совместимости). Например
 
 MAIN.DBF --> MAIN_DBF.GZ
 
Object.UnzipDir(cSrcPath,cDestPath)
cSrcFile - путь к папке со сжатыми файлами

cDestFile - путь к папке куда помещаются распакованные файлы
Возвращает число обработанных файлов если все хорошо, или -1 в противном случае
Функция обрабатывает файлы с атрибутом A по маске *.GZ

У конечных файлов удаляется расширение GZ и подчеркивание меняется на точку, то есть возвращается исходное расширение.

 Автор: Илья Тепликов

E-mail: itp@karelia.ru 



Автор публикации

    

		
не в сети 6 месяцев
        

            admin
        
    

    

        

            
				            
			        

        

			Комментарии: 1Публикации: 123Регистрация: 10-12-2000        
    
(далее…)
																		]]>