Отправлено: 22.09.14 16:39. Заголовок: Помогите с Browse

В общем есть часть программы, застыл на открытее базы. При чем выдаёт разные ошибки, которые не помогаю при исправлении(( Помогите пожалуйста решить проблему с открытием базы и редактированием её. База создается способом ввода месяца и года(год начиная 2014,заканчивая 2030), "Робота за данными -> ввод данных". а редактировать её нужно через "Работа с данными -> Корректировка". Пожалуйста помогите.
Скачать исходник

 Отправлено: 22.09.14 18:20. Заголовок: Перенес тему сюда..

Перенес тему сюда

 Отправлено: 22.09.14 19:51. Заголовок: VictorHR пишет: Пож..

VictorHR пишет:

цитата:

Пожалуйста помогите.

посмотрел исходник есть маленькое замечание
1) Вы используете стандартный бровс из минигуи , который предполагает параметр WORKAREA - это имя рабочей области УЖЕ открытой базы . т.е. перед DefBrowse
нужна команда USE ( cFile ) NEW ALIAS "ZZZ"
тогда в самом DefBrowse ...
DEFINE BRIOWSE
...
...
WORKAREA "ZZZ"
...
END BROWSE

2. Loadfields - вообще не отсюда , это касается TSBROWSE
нужно этот вызов выкинуть из программы

 Отправлено: 23.09.14 08:26. Заголовок: Спасибо огромное, се..

Спасибо огромное, сейчас попробую

 Отправлено: 23.09.14 09:26. Заголовок: Появилась другая про..

Появилась другая проблема(

Вот часть кода
MEMVAR cFile
....
....
....
cFile := GetFile("DATABASES\" + "_*.dbf")
if !empty(cFile)
defbrowse(cFile)
endif
....
....
....
Procedure defbrowse(cFile)
use
clearmenu()
buildhelp()


USE ( cFile ) NEW ALIAS ZZZ

DEFINE BROWSE EdtBrws
ROW 35
COL 130
PARENT Form1
WIDTH 500
HEIGHT 560
HEADERS { 'Произведение' , 'Смесь' , 'Свойство' , 'Значение' , 'Бетчи' }
WIDTHS { 50 , 150 , 150 , 50 }
FIELDS { '(cFile)->Proizv' , '(cFile)->Smes' , '(cFile)->Svoistvo' , '(cFile)->Znach' , '(cFile)->Betch' }
WORKAREA ZZZ
VALUE 1
ONDBLCLICK MsgInfo ('Сейчас вам доступен режим ПРОСМОТРА','#OOPS! ЧТО ТО ПОШЛО НЕ ТАК')
ALLOWEDIT .F.
ALLOWDELETE .F.
ALLOWAPPEND .F.
LOCK .T.
END BROWSE

Form1.EdtBrws.Refresh
Form1.EdtBrws.SetFocus()

Выдает ошибку что Переменная CFILE не существует. Я новичок в Harbour MiniGui может что не так делаю?

 Отправлено: 23.09.14 10:52. Заголовок: ошибка к стати в это..

ошибка к стати в этой строчке USE ( cFile ) NEW ALIAS ZZZ

 Отправлено: 23.09.14 13:12. Заголовок: VictorHR пишет: оши..

VictorHR пишет:

цитата:

ошибка к стати в этой строчке USE ( cFile ) NEW ALIAS ZZZ

USE &cFile NEW ALIAS ZZZ

 Отправлено: 23.09.14 13:14. Заголовок: VictorHR пишет: USE..

VictorHR пишет:

цитата:

USE ( cFile ) NEW ALIAS ZZZ

ALIAS - строковое имя , попробуйте так

USE ( cFile ) NEW ALIAS "ZZZ"

и далее

WORKAREA ZZZ


PS. вот это работает - проверял

use (cBase ) ALIAS "ZZZ"
clearmenu()
buildhelp()

DEFINE BROWSE EdtBrws
ROW 35
COL 130
PARENT Form1
WIDTH 500
HEIGHT 560
HEADERS { 'Произведение' , 'Смесь' , 'Свойство' , 'Значение' , 'Бетчи' }
WIDTHS { 50 , 150 , 150 , 50 }
FIELDS { 'zzz->Proizv' , 'zzz->Smes' , 'zzz->Svoistvo' , 'zzz->Znach' , 'zzz->Betch' }
VALUE 1
ONDBLCLICK MsgInfo ('Сейчас вам доступен режим ПРОСМОТРА','#OOPS! ЧТО ТО ПОШЛО НЕ ТАК')
WORKAREA ZZZ
ALLOWEDIT .F.
ALLOWDELETE .F.
ALLOWAPPEND .F.
LOCK .T.
END BROWSE

 Отправлено: 23.09.14 14:37. Заголовок: Огромнейшее спасибо,..

Огромнейшее спасибо, я готов прыгать от радости, я с этим с прошлой недели мучаюсь, не мог сделать. СПАСИБО!