Tabellens navn på variabledatabasen er Tekst
Begivenhedens hovedvindue. Skabt()
Databasetabelnavn = "Mytable"
Slutbegivenhed
Begivenhedsknap 4. Klikkede ()
Hvis filen eksisterer (tag hukommelseskortets sti() > "/mydata.db") = falsk
Opret en database (tag kortstien () > "/mydata.db")
En pop-up-prompt ("Opret database succesfuldt!") )
Slut Hvis
Åbn databasen (tag kortstien() > "/mydata.db") '!! Databasen skal åbnes, før nogen databaseoperationer udføres
En pop-up-prompt ("Åbn database succesfuldt!") )
Slutbegivenhed
Begivenhedsknap 1. Klikkede ()
Hvis datatabellen eksisterer (databasetabelnavn) = falsk
'CREATE TABLE' & Databasetabelnavn & "(id text, value text)") 'Opret en datatabel med to kolonner, den første kolonne er id og den anden kolonne er value
Opret en datatabel (databasetabelnavn, "id-tekst, værditekst")
Hvis du vil oprette et selvinkrementerende id-felt, kan du skrive Opret Datatabel (databasetabelnavn, "id heltal PRIMARY KEY, værditekst")
En pop-up-prompt ("Opret datasheet succesfuldt!") )
Ellers
En pop-up-prompt ("Databladet eksisterer allerede!") )
Slut Hvis
Slutbegivenhed
Begivenhedsknap 2. Klikkede på ()
' Databaseudførelse ("INSERT INTO " & Database Table Name & "VALUES ('1','zhangshang@163.com')") 'Indsæt poster
' Databaseudførelse ("INSERT INTO " & Database Table Name & " VALUES ('2','1234567@qq.com')")
' Databaseudførelse ("INDSÆT INTO" & Databasetabelnavn & "VÆRDIER ('3','Lisi@126.com')")
' Databaseudførelse ("INDSÆT IND " & Databasetabelnavn & " VÆRDIER ('4','Wangwu@163.com')")
Indsæt post (databasetabelnavn, "'1','zhangshang@163.com'")
Indsæt post (databasetabelnavn, "'2','1234567@qq.com'")
Indsæt post (databasetabelnavn, "'3','Lisi@126.com'")
Indsæt post (databasetabelnavn, "'4','Wangwu@163.com'")
'Hvis id er et selv-inkrementerende felt, skal det skrives sådan her: Indsæt post (databasetabelnavn, 'null,'Wangwu@163.com''")
For at indsætte indholdet af redigeringsboksen kan du skrive sådan her: Indsæt post (databasetabelnavn, "'" & redigeringsboks 1.indhold & "','" & redigeringsboks 2.indhold & "'")
En pop-up-prompt ("Indsættelse vellykket!") )
Slutbegivenhed
Begivenhedsknap 3. Klikkede på ()
'Redigeringsboks 1.Content = databaseforespørgsel ("VÆLG * FRA" & databasetabelnavn & " HVOR id='1'","-","\n") 'Forespørgselsid='1' for posten adskilles børnene af hver post med -, og posterne adskilles af linjeskift
'Redigeringsboks 1.Content = betinget forespørgsel (databasetabelnavn, "id='1'", "-", "\n")
Hvis slet begyndelsen og slutningen af det tomme (redigeringsboks 2.indhold) = "" så
Pop-up-prompt ("Indtast venligst forespørgselskriterier")
Udgang
Slut Hvis
Redigeringsboks 1.Content = betinget forespørgsel (databasetabelnavn,"id='" > slet første og sidste mellemrum (redigeringsboks 2.indhold) > "'","-","\n")
En pop-up-prompt ("Forespørgsel succesfuldt!") )
Slutbegivenhed
Begivenhedsknap 6. Klikkede på ()
'Databaseudførelse ('UPDATE' & databasetabelnavn > 'SET value='Dette er den ændrede værdi' HVOR id='1'") 'Ændr id='1' for den post
Ændr posten (databasetabelnavn, "value='This is the modified value'", "id='1'")
En pop-up prompt ("Modificeret med succes!") )
Slutbegivenhed
Begivenhedsknap 5. Klikkede ()
'DELETE FROM' ("DELETE FROM" & databasetabelnavn & " WHERE id='1'") 'delete the record id='1'
Slet post (databasetabelnavn, "id='1'")
En pop-up-prompt ("Slettet succesfuldt!") )
Slutbegivenhed
Begivenhedsknap 7. Klikkede ()
'DATABASE EXECUTION' ("DROP TABLE" > databasetabelnavn) sletter hele databasetabellen
Sletning af en datatabel (databasetabelnavn)
En pop-up-prompt ("Slet databasetabel succesfuldt!") )
Slutbegivenhed
Begivenhedsknap 8. Klikkede på ()
Pop-up-prompt ("Samlet antal poster:" > Antal poster (databasetabelnavn) > "Elementer")
Slutbegivenhed
Begivenhedsknap 9. Klikkede ()
'Redigeringsboks 1.Content = databaseforespørgsel ("VÆLG * FRA" > databasetabelnavn > "HVOR værdi SOM '%163.com'","-","\n") 'Forespørg alle poster med værdier, der ender på '163.com'
Redigeringsboks 1. Indhold = betinget forespørgsel (databasetabelnavn, "værdi SOM '%163.com'", "-", "\n")
En pop-up-prompt ("Forespørgsel succesfuldt!") )
Slutbegivenhed
Begivenhedsknap 10. Klikkede ()
'Redigeringsboks 1.Content = databaseforespørgsel ("VÆLG * FRA" > databasetabelnavn & "LIMIT 0,3","-","\n") 'Forespørgsel 3 poster startende fra 0 (1).
Redigeringsboks 1. Indhold = Scope-forespørgsel (databasetabelnavn, 0, 3, "-", "\n")
En pop-up-prompt ("Forespørgsel succesfuldt!") )
Slutbegivenhed
Begivenhedsknap 11. Klikkede på ()
Luk databasen() '!! Luk databasen i slutningen af programmet
Slutprocedure ()
Slutbegivenhed |
[Kopier link]
Opslået på 04/01/2018 21.16.38
|
Opslået på 04/06/2017 08.49.09
