SET DELETED ON

SELECT <My_table>
PACK
* Окончательно удаляет все записи, помеченные на удаление
* в текущей таблице

LOCAL o_prim as Form
o_prim = CREATEOBJECT("prim1")
o_prim.Show()
READ EVENTS

DEFINE CLASS prim1 AS form

	Height =  240 
	Width =  200 
	DoCreate = .T.
	AutoCenter = .T.
	Caption = "Пример"
	Name = "Form1"

	ADD OBJECT cmd_add AS commandbutton WITH ;
		Top =  4 , ;
		Left =  11 , ;
		Height =  27 , ;
		Width =  31 , ;
		Caption = "Add", ;
		StatusBarText = "Добавить", ;
		TabIndex =  1 , ;
		ToolTipText = "Добавить", ;
		Name = "Cmd_add"

	ADD OBJECT cmd_edit AS commandbutton WITH ;
		Top =  4 , ;
		Left =  42 , ;
		Height =  27 , ;
		Width =  31 , ;
		Caption = "Edit", ;
		StatusBarText = "Редактировать", ;
		TabIndex =  2 , ;
		ToolTipText = "Редактировать", ;
		Name = "Cmd_edit"

	ADD OBJECT cmd_del AS commandbutton WITH ;
		Top =  4 , ;
		Left =  73 , ;
		Height =  27 , ;
		Width =  29 , ;
		Caption = "Del", ;
		StatusBarText = "Удалить текущий", ;
		TabIndex =  3 , ;
		ToolTipText = "Удалить текущий", ;
		Name = "Cmd_del"

	ADD OBJECT cmd_quit AS commandbutton WITH ;
		Top =  4 , ;
		Left =  152 , ;
		Height =  27 , ;
		Width =  41 , ;
		Cancel = .T., ;
		Caption = "Close", ;
		StatusBarText = "Закрыть", ;
		TabIndex =  4 , ;
		ToolTipText = "Закрыть", ;
		Name = "Cmd_quit"

	ADD OBJECT shape2 AS shape WITH ;
		Top =  4 , ;
		Left =  6 , ;
		Height =  0 , ;
		Width =  190 , ;
		BackStyle =  0 , ;
		SpecialEffect =  0 , ;
		Name = "Shape2"

	ADD OBJECT shape6 AS shape WITH ;
		Top =  32 , ;
		Left =  6 , ;
		Height =  0 , ;
		Width =  190 , ;
		BackStyle =  0 , ;
		SpecialEffect =  0 , ;
		Name = "Shape6"

	ADD OBJECT shape7 AS shape WITH ;
		Top =  3 , ;
		Left =  4 , ;
		Height =  30 , ;
		Width =  5 , ;
		BackStyle =  0 , ;
		SpecialEffect =  0 , ;
		Name = "Shape7"

	ADD OBJECT shape8 AS shape WITH ;
		Top =  4 , ;
		Left =  196 , ;
		Height =  28 , ;
		Width =  0 , ;
		BackStyle =  0 , ;
		SpecialEffect =  0 , ;
		Name = "Shape8"

	ADD OBJECT grid1 AS grid WITH ;
		DeleteMark = .F., ;
		Height =  199 , ;
		Left =  6 , ;
		ReadOnly = .T., ;
		RecordSource = "My_cur1", ;
		TabIndex =  5 , ;
		Top =  36 , ;
		Width =  188 , ;
		Name = "Grid1"

	PROCEDURE Unload
		USE IN My_cur1
		CLEAR EVENTS
	ENDPROC

	PROCEDURE Load
		CREATE CURSOR My_cur1 ;
		  (n_recno I, c_name C( 10 ))

		FOR i= 1  TO  10 
		  INSERT INTO My_cur1 ;
		      (n_recno, c_name);
		    VALUES ;
		      (i, SYS( 2015 ))
		ENDFOR
		GO TOP IN My_cur1
	ENDPROC

	PROCEDURE Activate
		IF !EOF("My_cur1")
		  THIS.Cmd_edit.Enabled = .T.
		  THIS.Cmd_del.Enabled  = .T.
		ELSE
		  THIS.Cmd_edit.Enabled = .F.
		  THIS.Cmd_del.Enabled  = .F.
		ENDIF
	ENDPROC

	PROCEDURE Init
		IF !EOF("My_cur1")
		  THIS.Grid1.SetFocus()
		ENDIF
	ENDPROC

	PROCEDURE cmd_quit.Click
		THISFORM.Release()
	ENDPROC

ENDDEFINE

	PROCEDURE Load
		CREATE CURSOR My_cur1 ;
		  (n_recno I, c_name C( 10 ))

*		FOR i= 1  TO  10 
*		  INSERT INTO My_cur1 ;
*		      (n_recno, c_name);
*		    VALUES ;
*		      (i, SYS( 2015 ))
*		ENDFOR
*		GO TOP IN My_cur1
	ENDPROC

DO FORM form2.scx