* 1) У меня есть порядковый номер - (он же номер заказа)
* 2) Когда добавляется новая запись - Изменяться он не может
* 3) Когда я удаляю запись - она только помечается на удаление
* 4) Потом новую запись у меня появляется с номером на единицу больше от удаленной
* 5) Я удалил, но по факту она считается

*~~~~~~~~~~~~~~~~~~~~~~~~~~~*
 WITH CREATEOBJECT("Form_1")
  	.show(1)
 ENDWITH

*~~~~~~~~~~~~~~~~~~~~~~~~~~~*
 DEFINE CLASS Form_1 AS Form
    AutoCenter = .T.
  	Height     =  400
  	Width      =  500
  	Caption    = "Form_1"
  	Name       = "Form_1"
    BackColor  = RGB(245,243,222)

PROCEDURE load &&=================================&&
  CREATE TABLE  Table_1 (Nom N(4), Data_ D(8), Name_ C(15)) 
    INSERT INTO Table_1 VALUES ( 1, DATE()   , 'Заказ №1')
    INSERT INTO Table_1 VALUES ( 2, DATE()+10, 'Заказ №2')
    INSERT INTO Table_1 VALUES ( 3, DATE()+15, 'Заказ №3')
    INSERT INTO Table_1 VALUES ( 4, DATE()+20, 'Заказ №4')
    INSERT INTO Table_1 VALUES ( 5, DATE()+25, 'Заказ №5')
    INSERT INTO Table_1 VALUES ( 6, DATE()+30, 'Заказ №6')
    GO TOP
ENDPROC

PROCEDURE Init &&=================================&&
  This.AddObject('Grid_1','Grid') && GRID
  WITH This.Grid_1
   .Height = 350
   .Width  = 480
   .Top          =  10
   .Left         =  10
   .Visible      = .T. 
   .DeleteMark   = .F.
   .RecordMark   = .F.
   .ReadOnly     = .T.
   .ScrollBars   =  2
   .ColumnCount  =  3
   .HeaderHeight =  0
   .RecordSource = ''
   .RecordSource = 'Table_1'
   .column1.ControlSource = 'Nom'
   .column2.ControlSource = 'Data_'
   .column3.ControlSource = 'Name_'
   .column1.width = 100
   .column2.width = 100
   .column3.width = 100
   .column1.Resizable = .F.
   .column2.Resizable = .F.
   .column3.Resizable = .F.
   .column1.Alignment = 2
   .column2.Alignment = 2
   .column3.Alignment = 2
ENDWITH

*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~* CommandButton 1
 ThisForm.AddObject('com_1','CommandButton_1')
 WITH ThisForm.com_1
     .Caption = 'Удалить'
     .Visible  = .T. 
     .TOP      = 370
     .LEFT     = 145
     .Height   = 20
     .Width    = 100
 ENDWITH
*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~* CommandButton 2
 ThisForm.AddObject('com_2','CommandButton_2')
 WITH ThisForm.com_2
     .Caption = 'Добавить'
     .Visible  = .T. 
     .TOP      = 370
     .LEFT     = 255
     .Height   = 20
     .Width    = 100
 ENDWITH

ENDPROC
ENDDEFINE

*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*
 DEFINE CLASS CommandButton_1 as CommandButton
  PROCEDURE click

	  nAnswer = MESSAGEBOX('Удалить?', 4+256, 'Внимание!')
    IF nAnswer=6
    SELECT Table_1
    IF !EOF()
    
       DELETE
       CLOSE DATABASES
       USE Table_1
       PACK
    
    WITH Thisform.Grid_1
    .RecordSource = ''
    .RecordSource = 'Table_1'
    .column1.ControlSource = 'Nom'
    .column2.ControlSource = 'Data_'
    .column3.ControlSource = 'Name_'
    .column1.width = 100
    .column2.width = 100
    .column3.width = 100
    .column1.Resizable = .F.
    .column2.Resizable = .F.
    .column3.Resizable = .F.
    .column1.Alignment = 2
    .column2.Alignment = 2
    .column3.Alignment = 2
    ENDWITH
    ELSE    
    WAIT 'STOP!' WINDOW NOWAIT
    ENDIF
    ThisForm.Refresh
    ENDIF

  ENDPROC
 ENDDEFINE

*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*
 DEFINE CLASS CommandButton_2 as CommandButton
  PROCEDURE click
  
   SELECT Table_1
   CALCULATE max(nom) TO nn                              
   INSERT INTO Table_1 VALUES (nn+1, DATE(), '')
   ThisForm.Grid_1.Column3.SetFocus
   ThisForm.Refresh
  
  ENDPROC
 ENDDEFINE