Použití Data Environment Designeru ve VB 6.0

Mazání záznamů

Pro mazání záznamů nepotřebujeme žádný speciální formulář, kód zapíšeme přímo do hlavního formuláře na událost Click na toolbaru. Je vhodné zavolat pouze potvrzovací dialog pro tuto akci. 

 

 

Takže kód pro mazání je následující (přidejte ho na tlačítko pro mazání v toolbaru):

 

If Seznam.ListItems.Count > 0 Then
   If MsgBox("Opravdu si přejete tento záznam smazat ?", vbQuestion + vbYesNo, "Dotaz") = vbYes Then
      De.rssSeznam.MoveFirst
      De.rssSeznam.Find "Cislo = '" + Seznam.SelectedItem.SubItems(2) + "'"
      De.rssSeznam.Delete adAffectCurrent
      De.rssSeznam.Close
      De.rssSeznam.Open

      Pozice = Seznam.SelectedItem.Index
      Seznam.ListItems.Remove Seznam.SelectedItem.Index
      If Pozice > 1 Then
         Pozice = Pozice - 1
         Seznam.SelectedItem = Seznam.ListItems(Pozice)
         Seznam.SelectedItem.EnsureVisible
      Else
        If Seznam.ListItems.Count > 0 Then
             Seznam.SelectedItem = Seznam.ListItems(1)
             Seznam.SelectedItem.EnsureVisible
       End If
     End If
   End If
End If

Nejprve se ujistíme, že počet položek v seznamu není nulový. Pak zobrazíme dotaz, a pokud uživatel odpoví Ano, najdeme záznam v tabulce a odstraníme ho. Pak si uložíme pozici v seznamu, položku smažeme a spočítáme novou pozici ukazatele v seznamu.

 Další Zpět

Autor: The Bozena