T EOF () EOF () BOTTOM
ЕNDIF. Refresh. Buttons
* Previous IF NOT BOF () - 1BОF () TOP
ЕNDIF.Refresh:. Buttons
А.2 Код, пов'язаний з подією Click кнопки В«ПошукВ»
LastRecordNo = RECNO () KEY LABEL ENTER KEYBOARD CHR (23) KEY LABEL RIGHTMOUSE KEYBOARD CHR (23) NOMODIFY NOAPPENDKEY LABEL ENTER KEY LABEL RIGHTMOUSELASTKEY () = 27 (THISFORM.LastRecordNo). Refresh. Buttons
А.3 Код, пов'язаний з подією Click кнопки В«ЗмінитиВ»
Editing =. T.. EnableAll. ButtonsOff.cmdSave.Enabled =. T.. cmdCanc.Enabled =. T.. txtCustCode.Enabled =. F. . TxtLastName.SetFocus
А.4 Код, пов'язаний з подією Click кнопки В«ДодатиВ»
THISFORM.LastRecordNo = RECNO (). Adding =. T.BLANK.Refresh =. T.. Enableall. Buttonsoff.cmdSave.Enabled =. T.. cmdCanc.Enabled =. T. . TxtCustCode.SetFocus
А.5 Код, пов'язаний з подією Click кнопки В«ЗберегтиВ»
= TableUpdate () =. F. . Adding =. F. . DisableAll.ButtonsOn. Buttons. CmdSave.Enabled =. F. . CmdCanc.Enabled =. F. . CmdNext.SetFocus
А.6 Код, пов'язаний з подією Click кнопки В«СкасуватиВ»
= TableRevert () THISFORM.Adding (THISFORM.LastRecordNo p align="justify"> А.7 Код, пов'язаний з подією Click кнопки "Видалити"
IF MESSAGEBOX ("Видалити цю запис", 4 + 32 + 256) = 6
DELETE NEXT 1DELETED ONTOP.Refresh
А.8 Код, пов'язаний з подією Click кнопки В«ВихідВ»
RELEASE THISFORM
Опис форми
При створенні форми використовувалися компоненти: Label, TextBox, Command. Кожна кнопка Command має подія Сlick. Обробники подій Click для кнопок представлені в Додатку А.
