Název tabulky proměnné v databázi je Text
Hlavní okno události. Created()
Název databázové tabulky = "Mytable"
Závěrečná událost
Tlačítko události 4. Klikl jsem na ()
Pokud soubor existuje (vezměte cestu paměťové karty () > "/mydata.db") = false
Vytvořte databázi (použijte cestu karty () > "/mydata.db")
Vyskakovací výzva ("Vytvořit databázi úspěšně!") )
Konec pokud
Otevřete databázi (vezměte kartu cestu() > "/mydata.db") '!! Databáze musí být otevřena před provedením jakýchkoli databázových operací
Vyskakovací výzva ("Otevřená databáze úspěšná!") )
Závěrečná událost
Tlačítko události 1. Kliklo ()
Pokud datová tabulka existuje (název databázové tabulky) = false
'VYTVOŘIT TABULKU' & Název databázové tabulky & "(id text, value text)") 'Vytvořit datovou tabulku se dvěma sloupci, první sloupec je id a druhý sloupec je hodnota
Vytvořte datovou tabulku (název databázové tabulky, "id text, value text")
Pokud chcete vytvořit pole s vlastním přírůstkem ID, můžete napsat Create Data Table (název databázové tabulky, "id integer PRIMARY KEY, value text")
Vyskakovací výzva ("Vytvořit datasheet úspěšně!") )
Jinak
Vyskakovací výzva ("Datasheet už existuje!") )
Konec pokud
Závěrečná událost
Tlačítko události 2. Kliklo na ()
' Spuštění databáze ("VLOŽIT DO " & Název databázové tabulky & "VALUES ('1','zhangshang@163.com')") 'Vložit záznamy
' Spuštění databáze ("VLOŽIT DO " & název databázové tabulky & " VALUES ('2','1234567@qq.com')")
' Spuštění databáze ("INSERT INTO" & Název databázové tabulky & "VALUES ('3','Lisi@126.com')")
' Spuštění databáze ("VLOŽIT DO " & název databázové tabulky & " VALUES ('4','Wangwu@163.com')")
Vložit záznam (název databázové tabulky, "'1','zhangshang@163.com'")
Vložit záznam (název databázové tabulky, "'2','1234567@qq.com'")
Vložit záznam (název databázové tabulky, "'3','Lisi@126.com'")
Vložit záznam (název databázové tabulky, "'4','Wangwu@163.com'")
'Pokud je id pole samozvyšující se, mělo by být zapsáno takto Insert record (název databázové tabulky, 'null,'Wangwu@163.com'")
Pro vložení obsahu editačního pole můžete napsat takto: Vložit záznam (název databázové tabulky, "'" & edit box 1.content & "','" & edit box 2.content & "'")
Vyskakovací výzva ("Vložení úspěšné!") )
Závěrečná událost
Tlačítko události 3. Klikl jsem na ()
'Edit box 1.Content = database query("SELECT * FROM" & database table name & " WHERE id='1'","-",","\n") 'Query id='1' pro záznam, děti každého záznamu jsou odděleny -, a záznamy jsou odděleny řádky
'Edit box 1.Content = conditional query (název databázové tabulky, "id='1'", "-", "\n")
Pokud smažete začátek a konec prázdného pole (edit box 2.content) = "" pak
Vyskakovací výzva ("Zadejte prosím kritéria dotazu")
Východ
Konec pokud
Editační pole 1.Content = podmíněný dotaz (název databázové tabulky,"id='" > smažte první a poslední řádky (edit box 2.content) > "'","-","\n")
Vyskakovací výzva ("Dotaz úspěšný!") )
Závěrečná událost
Tlačítko události 6. Klikl jsem na ()
'Spuštění databáze ('UPDATE' & název databázové tabulky > 'SET value='Toto je modifikovaná hodnota' KDE id='1'") 'Modify id='1' pro tento záznam
Upravte záznam (název databázové tabulky, "value='Toto je upravená hodnota'", "id='1'")
Vyskakovací výzva ("Úspěšně upraveno!") )
Závěrečná událost
Tlačítko události 5. Kliknulo ()
'DELETE FROM' ("DELETE FROM" & název databázové tabulky & " WHERE id='1'") 'delete the record id='1'
Delete record (název databázové tabulky, "id='1'")
Vyskakovací výzva ("Smazáno úspěšně!") )
Závěrečná událost
Tlačítko události 7. Kliklo ()
'SPUŠTĚNÍ DATABÁZE' ("DROP TABLE" > název databázové tabulky) smaže celou databázovou tabulku
Mazání datové tabulky (název databázové tabulky)
Vyskakovací výzva ("Smazat databázovou tabulku úspěšně!") )
Závěrečná událost
Tlačítko události 8. Kliklo ()
Vyskakovací výzva ("Celkový počet záznamů:" > Počet záznamů (název databázové tabulky) > "Položky")
Závěrečná událost
Tlačítko události 9. Klikl jsem na ()
'Edit box 1.Content = database query("SELECT * FROM" > název databázové tabulky > "WHERE value LIKE '%163.com'","-","\n") 'Dotazujte všechny záznamy s hodnotami končícími na '163.com'
Editační pole 1. Obsah = podmíněný dotaz (název databázové tabulky, "value LIKE '%163.com'", "-", "\n")
Vyskakovací výzva ("Dotaz úspěšný!") )
Závěrečná událost
Tlačítko události 10. Klikl jsem ()
'Edit box 1.Content = database query("SELECT * FROM" > název databázové tabulky & "LIMIT 0,3","-","\n") 'Dotazujte 3 záznamy začínající od 0 (1).
Editační pole 1. Obsah = dotaz rozsahu (název databázové tabulky, 0, 3, "-", "\n")
Vyskakovací výzva ("Dotaz úspěšný!") )
Závěrečná událost
Tlačítko události 11. Kliklo ()
Zavřít databázi() '!! Na konci programu uzavřete databázi
Konec procedury ()
Závěrečná událost |
[Kopírovat odkaz]
Zveřejněno 04.01.2018 21:16:38
|
Zveřejněno 04.06.2017 8:49:09
