<< Click to Display Table of Contents >> Navigation: Apollo API Listing > sx_Delete |
Declare Sub sx_Delete Lib "Apollo9.dll" ()
VOID FAR PASCAL sx_Delete (VOID);
Flags the current record for deletion. If sx_SetDeleted has been set to True, the record will become invisible to record movement functions (except for sx_Go).
Sub bDelete_Click ()
Dim iRetVal As Integer
iRetVal = MsgBox("Confirm Delete", 52)
If iRetVal = 6 Then
sx_Delete
End If
End Sub
// delete the current record
void CNamesForm::OnButtonDelete()
{
// confirm deletion via message box
if (AfxMessageBox((LPSTR) "Confirm delete", MB_YESNO) == IDYES)
{
sx_Delete();
// gotop and refresh the browse
m_sdebrowse->SetNumProperty("Action", BRW_ACT_GOTOP);
}
m_sdebrowse->SetFocus();
}