Ime tabele spremenljivk v bazi podatkov je Text
Glavno okno dogodka. Created()
Ime tabele baze podatkov = "Mytable"
Zaključni dogodek
Gumb za dogodek 4. Kliknil ()
Če datoteka obstaja (vzemite pot pomnilniške kartice() > "/mydata.db") = napačno
Ustvarite bazo podatkov (izberite pot kartice () > "/mydata.db")
Pojavno okno (»Ustvarjanje baze podatkov uspešno!«) )
Konec, če
Odpri bazo podatkov (vzemi card path() > "/mydata.db") '!! Baza podatkov mora biti odprta pred izvajanjem kakršnihkoli operacij v bazi podatkov
Pojavno okno (»Odpri bazo podatkov uspešno!«) )
Zaključni dogodek
Gumb za dogodek 1. Kliknil ()
Če podatkovna tabela obstaja (ime podatkovne tabele) = napačno
'USTVARI TABELO' & Ime tabele baze podatkov & "(id besedilo, vrednost besedilo)") 'Ustvari podatkovno tabelo z dvema stolpcema, prvi stolpec je id, drugi stolpec pa vrednost
Ustvarite podatkovno tabelo (ime podatkovne tabele, "id besedilo, vrednost besedilo")
Če želite ustvariti polje za samopovečevanje id, lahko napišete Create Data Table (ime tabele baze podatkov, "id celo število PRIMARNI KLJUČ, vrednost besedila")
Pojavno okno (»Ustvari podatkovni list uspešen!«) )
V nasprotnem primeru
Pojavno okno (»Podatkovni list že obstaja!«) )
Konec, če
Zaključni dogodek
Gumb za dogodek 2. Kliknil ()
' Izvajanje podatkovne baze ("INSERT INTO " & Database Table Name & "VALUES ('1','zhangshang@163.com')") 'Vstavi zapise
' Izvajanje baze podatkov ("VSTAVI V " & Ime tabele baze podatkov & " VALUES ('2','1234567@qq.com')")
' Izvajanje podatkovne baze (»VSTAVI INTO« & Ime tabele baze podatkov & »VREDNOSTI ('3','Lisi@126.com')«)
' Izvajanje podatkovne baze ("INSERT INTO " & Ime tabele baze podatkov & " VALUES ('4','Wangwu@163.com')")
Vstavi zapis (ime podatkovne tabele, "'1','zhangshang@163.com'")
Vstavi zapis (ime podatkovne tabele, "'2','1234567@qq.com'")
Vstavi zapis (ime tabele v bazi podatkov, "'3','Lisi@126.com'")
Vstavi zapis (ime tabele v bazi podatkov, "'4','Wangwu@163.com'")
'Če je id samoinkrementirajoče polje, bi ga morali zapisati takole: Vstavi zapis (ime tabele baze podatkov, 'null,'Wangwu@163.com'")
Za vstavljanje vsebine urejevalnega polja lahko napišete takole: Vstavi zapis (ime tabele v bazi podatkov, "'" in polje za urejanje 1.vsebina & "','" & polje za urejanje 2.vsebina & "'")
Pojavno okno (»Vstavljanje uspešno!«) )
Zaključni dogodek
Gumb za dogodek 3. Kliknil ()
'Uredi polje 1.Vsebina = poizvedba baze podatkov ("IZBERI * IZ" & ime tabele baze podatkov & " KJER id='1'","-",","\n") 'Poizvedba id='1' za zapis, otroci vsakega zapisa so ločeni z -, zapisi pa so ločeni s prelomi vrstic
'Uredi polje 1.Vsebina = pogojna poizvedba (ime tabele baze podatkov, "id='1'", "-", "\n")
Če izbrišete začetek in konec praznega polja (uredi polje 2.vsebina) = "" potem
Pojavno okno ("Prosimo, vnesite kriterije poizvedbe")
Izhod
Konec, če
Uredi polje 1.Vsebina = pogojna poizvedba (ime tabele baze podatkov, "id='" > izbriši prvi in zadnji presledek (uredi polje 2.vsebina) > "'","-","\n)
Pojavno okno (»Poizvedba uspešna!«) )
Zaključni dogodek
Gumb za dogodek 6. Kliknil ()
'Izvajanje podatkovne baze ('UPDATE' & ime tabele baze podatkov > 'SET value='To je spremenjena vrednost' KJER id='1'") 'Modify id='1' za ta zapis
Spremenite zapis (ime tabele baze podatkov, "value='This is the modified value'", "id='1'")
Pojavno okno (»Uspešno spremenjeno!«) )
Zaključni dogodek
Gumb za dogodek 5. Kliknil ()
'DELETE FROM' ("DELETE FROM" & ime tabele baze podatkov & " WHERE id='1'") 'delete the record id='1'
Delete record (ime tabele baze podatkov, "id='1'")
Pojavno okno (»Uspešno izbrisano!«) )
Zaključni dogodek
Gumb za dogodek 7. Kliknil ()
'IZVAJANJE PODATKOVNE BAZE' (»DROP TABLE« > ime tabele podatkovne baze) izbriše celotno tabelo baze podatkov
Brisanje podatkovne tabele (ime podatkovne tabele)
Pojavno okno (»Brisanje tabele baze podatkov uspešno!«) )
Zaključni dogodek
Gumb za dogodek 8. Kliknil ()
Pojavno okno ("Skupno število zapisov:" > Število zapisov (ime tabele baze podatkov) > "Elementi")
Zaključni dogodek
Gumb za dogodek 9. Kliknil ()
'Uredi polje 1.Vsebina = poizvedba v bazi podatkov ("SELECT * FROM" > ime tabele baze > "WHERE vrednost KOT '%163.com'","-","\n") 'Poizvedba vseh zapisov z vrednostmi, ki se končajo na '163.com'
Uredniško polje 1. Vsebina = pogojna poizvedba (ime tabele baze podatkov, "value LIKE '%163.com'", "-", "\n")
Pojavno okno (»Poizvedba uspešna!«) )
Zaključni dogodek
Gumb za dogodek 10. Kliknil ()
'Uredi polje 1.Vsebina = poizvedba baze podatkov ("SELECT * FROM" > ime tabele baze podatkov in "LIMIT 0,3","-","\n") 'Poizvedba 3 zapise, ki se začnejo z 0 (1).
Uredniško polje 1. Vsebina = Poizvedba obsega (ime tabele baze podatkov, 0, 3, "-", "\n")
Pojavno okno (»Poizvedba uspešna!«) )
Zaključni dogodek
Gumb za dogodek 11. Kliknil ()
Zapri bazo podatkov() '!! Na koncu programa zaprete bazo podatkov
Končni postopek ()
Zaključni dogodek |
[Kopiraj povezavo]
Objavljeno na 4. 01. 2018 21:16:38
|
Objavljeno na 4. 06. 2017 08:49:09
