Отправлено: 30.12.21 16:23. Заголовок: HWGUI Browse как добавлять, удалять, редактировать записи?

Такой код:

цитата:

proc Spr_sm LOCAL oBrw use sm INIT DIALOG oModDlg TITLE "Справочник" AT 0,0 SIZE 400,300 @ 20,10 BROWSE oBrw DATABASE SIZE 350,250; STYLE WS_BORDER + WS_VSCROLL + WS_HSCROLL Add column FieldBlock('Nom') to oBrw Header "Номер" Length 7 justify Line DT_LEFT Add column FieldBlock('Nsm') to oBrw Header "Начало" Length 15 justify Line DT_LEFT Add column FieldBlock('Ksm') to oBrw Header "Конец" Length 15 justify Line DT_LEFT ACTIVATE DIALOG oModDlg close database Return Nil

отображает указанную БД. Подскажите пожалуйста пример где операции с БД.

 Отправлено: 10.01.22 12:23. Заголовок: Например, samples/db..

Например, samples/dbview.prg, utils/dbc.
Хотя, действительно, простых и коротких примеров явно не хватает. Добавлю в ближайшее время в tutor.
Ну, а если в двух словах, есть "автоматическое" редактирование - в той же ячейке, где поле отображается, по щелчку или ENTER - для этого в объявлении browse ставится опция autoedit - для всех колонок (или потом устанавливается oBrw:lAutoEdit := .T.) или в add column опция editable (или oColumn:lEditable := .T.). Есть "автоматическое" добавление - при нажатии стрелки вниз на последней записи - включается добавлением опции append в объявлении browse (или oBrw:lAppable := .T.). А можно на пункт меню или горячую клавишу "повесить" вызов диалога для редактирования/добавления записи. Редактирование логично "повесить" на bEnter (oBrw:bEnter := {|...) - кодоблок, который вызывается при нажатии ENTER или двойном щелчке по записи. Удаления "автоматического" нет, надо "вешать" на пункт меню или горячую клавишу.