On-line: гостей 3. Всего: 3 [подробнее..]
АвторСообщение
постоянный участник




Пост N: 7216
Зарегистрирован: 12.09.06
ссылка на сообщение  Отправлено: 02.02.22 10:54. Заголовок: TsbViewer() для просмотра базы


В новой версии МиниГуи - 22.01 (Update 1)
есть показ/редактирование в любом месте кода содержимого dbf-файла.

Пример кода:
   SET FONT TO "DejaVu Sans Mono", 13  // фонты построения в таблице берутся от этого фонта 
USE custom.dbf
TsbViewer()
Или так:
 
SET FONT TO "DejaVu Sans Mono", 13 // фонты построения в таблице берутся от этого фонта
cAls := "TEST_CALC"
cDbf := GetStartUpFolder() + '\_Ru866.dbf'
cCodePage := "RU866"
USE (cDbf) ALIAS (cAls) CODEPAGE cCodePage NEW EXCLUSIVE

aTsbPar := { cAls, cCodePage, "Точка проверки(3)!" }
aWinPar := {}
TsbViewer( aTsbPar, aWinPar) // окно с таблицей

Или так:
 
aTsbPar := { cAls, cCodePage, "Точка проверки(3)!" }
aWinPar := { "NOWAIT", "", nY, nX, nW, nH, lCenter, RED }
//aWinPar := { "WAIT", "", , , , , , RED }
TsbViewer( aTsbPar, aWinPar) // окно с таблицей

Существует более продвинутый показ/редактирование базы для пользователя:
   SET FONT TO "DejaVu Sans Mono", 13  // фонты построения в таблице берутся от этого фонта 
oWin := CreateDataWin(1) // параметры окна
oUse := CreateDateDbf(GetStartUpFolder(),'_Ru866.dbf',"RU_LIST","RU866",.T.)
oIndx := CreateDateIndex(1,oUse,GetStartUpFolder()) // создать индексы
oIndx:nSetOrder := 2 // переключиться на ордер индекса
oMenu := CreateDateMenu( {99,1,2,3,4} ) // события // меню-кнопки окна
oTsbW := CreateDateTsb(oUse,oUse:cCodePage,"Checkpoint (1) !",oWin) // параметры ТСБ
aEvent := {} // события на окне, вызов функций
AAdd( aEvent, {99, {|ow| myExit(ow) }} ) // выход
AAdd( aEvent, { 1, {|ow| myBtn1(ow) }} ) // кнопка 1
AAdd( aEvent, { 2, {|ow| myBtn2(ow) }} ) // кнопка 2
AAdd( aEvent, { 3, {|ow| myBtn3(ow) }} ) // кнопка 3
AAdd( aEvent, { 4, {|ow| myBtn4(ow) }} ) // кнопка 4

TsbObjViewer(oWin, oUse, oIndx, oMenu, oTsbW, aEvent) // окно с таблицей

Кол-во кнопок для таблицы задаётся в CreateDateMenu(смотреть demo2.prg)
На каждую кнопку назначается событие, к которому потом привязывается функция обработки.
Местонахождение кнопок тоже задаётся в CreateDateMenu(), примерно так:
   oMenu:nPosWin   := 3         // 1-TopWindow, 2-BottomWindow, 3-LeftWindow, 4-RightWindow 
oMenu:nHAlign := DT_LEFT // горизонтальные кнопки: 0-LEFT, 1-CENTER, 2-RIGHT
oMenu:nVAlign := DT_TOP // вертикальные кнопки: 0-TOP , 1-CENTER, 2-BOTTOM
oMenu:aCaption := { "Выход", "База", "Авторы" }
.........

Далее смотреть примеры - MiniGUI\SAMPLES\Advanced\Tsb_Viewer

Порядок подключения к своей программе:
1) собрать библиотеку \MiniGUI\SAMPLES\Advanced\Tsb_Viewer\Lib\tsbviewer.hbp
2) скопировать файл \MiniGUI\SAMPLES\Advanced\Tsb_Viewer\TsbViewer.lib в папку \MiniGUI\Lib
3) добавить в свой проект - строку -lTsbViewer

Спасибо: 0 
ПрофильЦитата Ответить
Ответов - 3 [только новые]


постоянный участник




Пост N: 7217
Зарегистрирован: 12.09.06
ссылка на сообщение  Отправлено: 02.02.22 11:05. Заголовок: Есть меню для работы..


Есть меню для работы с dbf-файлом:



Что нужно для постоянной работы - пишите, можно добавить.

Спасибо: 0 
ПрофильЦитата Ответить
постоянный участник




Пост N: 7218
Зарегистрирован: 12.09.06
ссылка на сообщение  Отправлено: 02.02.22 11:08. Заголовок: По клику на колонке ..


По клику на колонке можно установить фильтр на эту колону как в Экселе.
Можно несколько фильтров по нескольким колонкам.



Спасибо: 0 
ПрофильЦитата Ответить
moderator




Пост N: 2008
Зарегистрирован: 11.02.10
ссылка на сообщение  Отправлено: 10.02.22 17:25. Заголовок: Andrey пишет: показ..


Andrey пишет:

 цитата:
показ/редактирование в любом месте кода содержимого dbf-файла


Спасибо, Андрей!

Спасибо: 0 
ПрофильЦитата Ответить
Ответ:
1 2 3 4 5 6 7 8 9
большой шрифт малый шрифт надстрочный подстрочный заголовок большой заголовок видео с youtube.com картинка из интернета картинка с компьютера ссылка файл с компьютера русская клавиатура транслитератор  цитата  кавычки моноширинный шрифт моноширинный шрифт горизонтальная линия отступ точка LI бегущая строка оффтопик свернутый текст

показывать это сообщение только модераторам
не делать ссылки активными
Имя, пароль:      зарегистрироваться    
Тему читают:
- участник сейчас на форуме
- участник вне форума
Все даты в формате GMT  3 час. Хитов сегодня: 88
Права: смайлы да, картинки да, шрифты да, голосования нет
аватары да, автозамена ссылок вкл, премодерация откл, правка нет