Форум » GUI » HWGUI Browse как добавлять, удалять, редактировать записи? » Ответить
HWGUI Browse как добавлять, удалять, редактировать записи?
azoo: Такой код: [quote] 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 [/quote] отображает указанную БД. Подскажите пожалуйста пример где операции с БД.
Ответов - 1
alkresin: Например, 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 или двойном щелчке по записи. Удаления "автоматического" нет, надо "вешать" на пункт меню или горячую клавишу.
полная версия страницы