ExcluiItemMemo

Deleta um item memo especificado de um determinado arquivo.

ExcluiItemMemo (char *arq, char *item)

Sub cmd_delete_Click ()

Dim buffer As String * 8

ReDim items(2) As itens

‘posiciona no registro

items(0).item = "dept_name"

items(1).item = ""

result = LePorChavePrimaria("dept", Mid(list_depart.List(list_depart.ListIndex), 1,

                                                     6), items(0), buffer)

frm_edit.MousePointer = 11

‘Exclui arquivo de descrição do departamento no banco

result = ExcluiItemMemo("dept", "dept_desc")

‘Exclui arquivo musica do departamento no banco

result = ExcluiItemMemo("dept", "dept_music")

‘Exclui registro do departmento no banco

result = ExcluiRegistro("dept")

‘reset listbox

list_depart.Clear

Call reset_list

frm_edit.MousePointer = 0

End Sub