Автор | Сообщение |
|
| |
Пост N: 1
Зарегистрирован: 22.09.14
|
|
Отправлено: 22.09.14 16:39. Заголовок: Помогите с Browse
В общем есть часть программы, застыл на открытее базы. При чем выдаёт разные ошибки, которые не помогаю при исправлении(( Помогите пожалуйста решить проблему с открытием базы и редактированием её. База создается способом ввода месяца и года(год начиная 2014,заканчивая 2030), "Робота за данными -> ввод данных". а редактировать её нужно через "Работа с данными -> Корректировка". Пожалуйста помогите. Скачать исходник
|
|
|
Новых ответов нет
[см. все]
|
|
|
| |
Пост N: 4217
Зарегистрирован: 17.05.05
|
|
Отправлено: 22.09.14 18:20. Заголовок: Перенес тему сюда..
Перенес тему сюда
|
|
|
|
| |
Пост N: 319
Зарегистрирован: 20.02.11
|
|
Отправлено: 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 нужно этот вызов выкинуть из программы
|
|
|
|
| |
Пост N: 2
Зарегистрирован: 22.09.14
|
|
Отправлено: 23.09.14 08:26. Заголовок: Спасибо огромное, се..
Спасибо огромное, сейчас попробую
|
|
|
|
| |
Пост N: 3
Зарегистрирован: 22.09.14
|
|
Отправлено: 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 может что не так делаю?
|
|
|
|
| |
Пост N: 4
Зарегистрирован: 22.09.14
|
|
Отправлено: 23.09.14 10:52. Заголовок: ошибка к стати в это..
ошибка к стати в этой строчке USE ( cFile ) NEW ALIAS ZZZ
|
|
|
|
| постоянный участник
|
Пост N: 171
Зарегистрирован: 29.05.10
|
|
Отправлено: 23.09.14 13:12. Заголовок: VictorHR пишет: оши..
VictorHR пишет: цитата: | ошибка к стати в этой строчке USE ( cFile ) NEW ALIAS ZZZ |
| USE &cFile NEW ALIAS ZZZ
|
|
|
|
| |
Пост N: 320
Зарегистрирован: 20.02.11
|
|
Отправлено: 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
|
|
|
|
| |
Пост N: 5
Зарегистрирован: 22.09.14
|
|
Отправлено: 23.09.14 14:37. Заголовок: Огромнейшее спасибо,..
Огромнейшее спасибо, я готов прыгать от радости, я с этим с прошлой недели мучаюсь, не мог сделать. СПАСИБО!
|
|
|
|