Option Explicit

Dim inCol As Integer    ' Текущие редактируемая колонка
Dim inRow As Integer    '         редактируемая строка в таблице
Dim nOperMax As Integer  ' Номер последней операции в БД

'===================================
' Обработчик загрузки формы
Private Sub Form_Load()
    clearGrid       ' Очистить таблицу
    With Me.MSFlexGrid  ' Сформировать "шапку" таблицы
        .Cols =  2 
        .Row =  0 
        .Col =  1 
        .Text = "Наименование"
        .Row =  1 
    End With
    
    Dim rs As rdoResultset
    Dim i As Integer
    Dim SQL As String
    
    SQL = "SELECT * FROM Oper ORDER BY OperId"
    Set rs = dbCn.OpenResultset(SQL)
    
    i =  1 
    With Me.MSFlexGrid
        Do While Not rs.EOF
            .Row = i
            .Col =  0 
            .Text = rs!operId
            nOperMax = i -  1 
            .Col =  1 
            .Text = rs!operName
            rs.MoveNext
            .Rows = .Rows +  1 
            i = i +  1 
        Loop
    End With
    rs.Close
End Sub

'==================================
' Очистка таблицы
Private Sub clearGrid()
    inCol =  0 
    inRow =  0 
    With Me.MSFlexGrid
        .Rows =  1    ' Это нужно чтобы удалить все строки из таблицы
        .Rows =  2    ' А теперь как положено нижняя строка пустая
        .Col =  0 
        .Text =  1 
    End With
    Me.txtCol.Visible = False
 End Sub

'===============================================
' Обработчик изменения размера формы
' Выравнивает размер таблицы и колонок в таблице
Private Sub Form_Resize()
    Dim h As Integer
    Dim w As Integer
    If Me.Height <  820  Or Me.Width <  120  Then Exit Sub
    h = Me.Height -  800      ' Установить размер таблицы во всю форму
    w = Me.Width -  100 
    With Me.MSFlexGrid
        .Height = h
        .Width = w
        .ColWidth( 0 ) =  300 
        w = w -  400 
        If w >  800  Then
            .ColWidth( 1 ) = w   ' Плавающий размер колонки с наименованием 80%
        End If
    End With
End Sub

'===========================================
' Обработчик выбора мышью ячейки в таблице
Private Sub MSFlexGrid_Click()
    Dim c As Integer    ' Номер колонки таблицы
    Dim r As Integer    ' Номер строки в таблице
    With Me.MSFlexGrid
        c = .Col
        r = .Row
        If c <  1  Or r <  1  Then
            Me.txtCol.Visible = False
            .SetFocus
            Exit Sub
        End If
        If Me.txtCol.Visible Then   ' Если поле для ввода уже видимо то сохранить данные в ячейку таблицы
            .Col = inCol
            .Row = inRow
            .Text = Me.txtCol
            .Col = c
            .Row = r
        Else
            Me.txtCol.Visible = True
        End If
        
'  Загрузить в поле для ввода значение из выбранной ячейки
'  и установить размер поля соответствующий выбранной ячейке
        inCol = c
        inRow = r
        Me.txtCol.Text = .Text
        Me.txtCol.Top = .CellTop -  30 
        Me.txtCol.Left = .CellLeft
        Me.txtCol.Width = .CellWidth
        Me.txtCol.Height = .CellHeight
        
        Me.txtCol.SetFocus
    End With
End Sub

'=============================================================
' Обработчик нажатия клавиши в поле ввода для ячейки в таблице
Private Sub txtCol_KeyPress(KeyAscii As Integer)
    If KeyAscii = vbKeyReturn Then      ' Если нажата кнопка Enter
        If Me.MSFlexGrid.Col =  1  Then   ' Если был ввод в последней колонке
                                        ' Добавить строку
            Me.MSFlexGrid.Rows = Me.MSFlexGrid.Rows +  1 
            Me.MSFlexGrid.Row = Me.MSFlexGrid.Rows -  1 
            Me.MSFlexGrid.Col =  0 
            Me.MSFlexGrid.Text = Me.MSFlexGrid.Row
        
            Me.MSFlexGrid.Col =  1 

            MSFlexGrid_Click
        ElseIf Me.MSFlexGrid.Col >  0  Then  ' Если это не последняя колонка то начать редактировать следующую
            Me.MSFlexGrid.Col = Me.MSFlexGrid.Col +  1 
            MSFlexGrid_Click
        End If
    ElseIf KeyAscii = vbKeyEscape Then   ' Если нажата Esc то прекратить режим корректировки
        Me.txtCol.Visible = False
        Me.MSFlexGrid.SetFocus
    End If
End Sub
'==================================
' Метод сохранения в БД
Public Function Save()
    Dim SQL As String
    Dim i As Integer
    dbCn.BeginTrans
    With Me.MSFlexGrid
        For i =  1  To nOperMax       ' цикл обновления данных
            .row = i
            .col =  1 
            SQL = "UPDATE Oper SET OperName='" & strPrep(.Text) & "' WHERE OperName<>'" & strPrep(.Text) & "'"
            .col =  0 
            SQL = SQL & " AND categoryId=" & .Text
            execSQL (SQL)
        Next
        For i = nOperMax +  1  To .Rows -  2      ' цикл вставки
            .row = i
            .col =  1 
            If Trim(.Text) <> "" Then
                SQL = "INSERT INTO Oper (operName) VALUES('" & strPrep(.Text) & "')"
                execSQL (SQL)
            End If
        Next
    End With
    dbCn.CommitTrans
    loadRef
    Save = True
End Function