Dima T[Это ж отстало-ущербное процедурное программирование

Не спешите.
Надо сначала найти этот алиас.

ООП не означает наличие аллергии на процедурное программирование.
В фоксе ведь предусмотрено SET PROCEDURE TO, которым мы можем подключить (и подключаем) глобальный процедурный модуль mainutil.prg
А там мы можем на законных основаниях тоже глобально разместить эту процедуру DoSQLEXec().
И т.п., если возникнет в этом необходимость.

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

RAZ_DVA_TRI
Вы не могли бы разместить здесь полностью этот свой код с картинки.

PaulWist

Давайте сначала найдем этот алиас.
Он появился?

PaulWistsg12PaulWist

Давайте сначала найдем этот алиас.
Он появился?

Вы тестовый код-то запускали?

Нет. Я вам вполне доверяю.
Наоборот, у меня интерес, чтобы вы (и не только вы) нашли как можно больше ошибок и недоработок.

Dima TЧего делать будем?

Если честно, то я и сам сомневаюсь, насколько целесообразно загонять хендл сервера в goSet - уж больно он перегружен параметрами и процедурами, которые с ними работают.

PaulWist

Переход на избитые темы типа "СамТыКто" и "КтоТытакой" не является аргументом в таких вопросах.

Такой класс имеется в поставке VFP9, находится в FFC-dataquery.vcx-execsp, вполне доступен. Он тоже глобальный и перетаскивается мышкой на формы.

Я немного просмотрел материалы по этому вопросу. Проблема вами изложена достаточно четко, но она неоднозначна.
Во избежание казусов возможным решением является передача в процедуру goServer.DoSQLExec() как параметров DS или THISFORM, с последуюющей обработкой сессии. Т.е. примерно так, как на картинке несколькими постами выше.

Еше один глобальный класс на основе Custom.
Создайте его под именем _mediator в новой библиотеке _custobj.vcx. Добавьте в него эту процедуру DoSQLExec(). Затем откройте свою форму и мышкой добавьте туда этот объект под именем oMediator.
Тогда строка вызова из кнопки примет вид THISFORM.oMediator.DoSQLExec().

Как видите, решений достаточно и нет необходимости в вашем классе.

Sergey Ch

Вернемся к теме.
Вопрос: Что означает "правильно спроектированное приложение"?
Мое мнение - этот термин в Фоксе игнорируется и под этим понятием почти каждый понимает свое творчество.

RAZ_DVA_TRIsg12RAZ_DVA_TRI
Вы не могли бы разместить здесь полностью этот свой код с картинки.

тама

Спасибо. Емкое решение.

PaulWist
Вот еще код установки DS из поставки VFP9:

LOCAL liSession
liSession = SET("DATASESSION")
DO CASE
CASE VARTYPE(_SCREEN.ACTIVEFORM.DATASESSIONID) = "N" AND liSession # _SCREEN.ACTIVEFORM.DATASESSIONID
SET DATASESSION TO (_SCREEN.ACTIVEFORM.DATASESSIONID)

CASE VARTYPE(_SCREEN.ACTIVEFORM.PARENT.DATASESSIONID) = "N" AND liSession # _SCREEN.ACTIVEFORM.PARENT.DATASESSIONID
SET DATASESSION TO (_SCREEN.ACTIVEFORM.PARENT.DATASESSIONID)
OTHERWISE
* we're in the right datasession already
ENDCASE

Dima Tsg12Вопрос: Что означает "правильно спроектированное приложение"?
Мое мнение - этот термин в Фоксе игнорируется и под этим понятием почти каждый понимает свое творчество.
И как много "творчества" было проанализировано для столь серьезного заявления? Какая была репрезентативность выборки?

и неплохо было бы услышать с чем сравнивалось, т.е. что подразумевается под словами "Мое мнение".

Почему же вы так высокомерно ставите слово "творчество" в кавычки, скромностью вас не попрекнешь.

Я просматриваю и изучаю почти все, что более-менее связано с этой тематикой.
Что и вам уже советовал, чтобы не выдумывали новые теории.
Могу сказать, что отдельных решений очень много хороших, и по отдельности большинство вопросов было решено еще лет пять назад.
Но все они канули в пустоту из-за отсутствии в фОксе концепции программирования - некуда внедрять, у каждого свой паровоз.

Сравнивать - хотя бы здесь, с мнением поочередных ГУРУ.
Аргументов мизер, в основном абстрактный треп с передергиванием понятий.
Не говоря уже об основном козыре - примитивных комментариях моей личности.
Даже на примере вашего учебного SQLEXEC-чудо класса это видно.

Если вы опять рветесь "мериться", могу разнообразить.

К примеру, тот сайт, с которого вы так гордо сумели скопировать один пример, у меня почти весь давно уже находится в черновом классе.
Сумеете перевести хотя бы одну статью - покажу как это делается.

Или вот вам начало кода универсального объекта oWinapi, работающего с winapi-функциями непосредственно в формате из MSDN.
DO CASE
CASE tcCase == 'Fun'
lcString = THIS.DoEx('List','Fun',tcName)
IF EMPTY(lcString)
MESSAGEBOX('Ошибка ввода. Функция не определена.')
RETURN .F.
ENDIF
THIS.DoEx('Object','Fun',lcNameObj)

WITH goWinapi
lcFile = GETWORDNUM(lcString,2,'~')
lcError = GETWORDNUM(lcString,3,'~')
lcResult = GETWORDNUM(lcString,4,'~')
lcReturn = GETWORDNUM(lcString,5,'~')
lcString = GETWORDNUM(lcString,7,'~')

lcDeclare = GETWORDNUM(lcString,1,'(')
lcDeclare = THIS.DoEx('Type','Declare',lcDeclare)

lcString = GETWORDNUM(GETWORDNUM(lcString,2,'('),1,')')
THIS.DoEx('Type','Fun',lcString)
lcStr = ''
FOR i = 1 TO ALEN(.aWinapi,1)
lcStr = lcStr + ',' + .aWinapi[1,1] + ' ' + IIF(.aWinapi[1,3],'@','') + ' ' + .aWinapi[1,2]
ENDFOR

lcDeclare = lcDeclare + ' IN ' + lcFile + ' AS ' + 'w_' + tcName + ' ' + SUBSTR(lcStr,2)
DECLARE &lcDeclare

lcStr = ''
FOR i = 1 TO ALEN(.aWinapi,1)
lcStr = lcStr + ',' + IIF(.aWinapi[1,3],'@','') + 'tuParam' + ALLTRIM(STR(i))
ENDFOR
lcStr = 'w_' + tcName + '(' + SUBSTR(lcStr,2) + ')'
luResult = &lcStr

IF !EMPTY(lcError) AND !EMPTY(lcResult) AND EVALUATE(lcResult)
THIS.DoError(lcError,lcResult)
ENDIF
CLEAR DLLS &lcAlias
ENDWITH

RELEASE goWinapi
RETURN EVALUATE(lcReturn)

И тут же следует подтверждение ПустоТрепа, даже попытка разнообразить не помогла.
Очень уж кому-то хочется, чтобы я его к гуру причислил.

ВладимирМ

И как вы мне прикажете воспринимать теперь эти ваши психологические опыты?
Детсад какой-то - дубы, сосны, колобка только не хватает.