Форум » GUI » Помогите с Browse » Ответить
Помогите с Browse
VictorHR: В общем есть часть программы, застыл на открытее базы. При чем выдаёт разные ошибки, которые не помогаю при исправлении(( Помогите пожалуйста решить проблему с открытием базы и редактированием её. База создается способом ввода месяца и года(год начиная 2014,заканчивая 2030), "Робота за данными -> ввод данных". а редактировать её нужно через "Работа с данными -> Корректировка". Пожалуйста помогите. Скачать исходник
Ответов - 8
Dima: Перенес тему сюда
Haz: VictorHR пишет: Пожалуйста помогите. посмотрел исходник есть маленькое замечание 1) Вы используете стандартный бровс из минигуи , который предполагает параметр WORKAREA - это имя рабочей области УЖЕ открытой базы . т.е. перед DefBrowse нужна команда USE ( cFile ) NEW ALIAS "ZZZ" тогда в самом DefBrowse ... DEFINE BRIOWSE ... ... WORKAREA "ZZZ" ... END BROWSE 2. Loadfields - вообще не отсюда , это касается TSBROWSE нужно этот вызов выкинуть из программы
VictorHR: Спасибо огромное, сейчас попробую
VictorHR: Появилась другая проблема( Вот часть кода 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 может что не так делаю?
VictorHR: ошибка к стати в этой строчке USE ( cFile ) NEW ALIAS ZZZ
ММК: VictorHR пишет: ошибка к стати в этой строчке USE ( cFile ) NEW ALIAS ZZZ USE &cFile NEW ALIAS ZZZ
Haz: 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
VictorHR: Огромнейшее спасибо, я готов прыгать от радости, я с этим с прошлой недели мучаюсь, не мог сделать. СПАСИБО!
полная версия страницы