Tabellnavnet på variabeldatabasen er Text
Hovedvindu for arrangementet. Skapt()
databasetabellnavn = "mytable"
Slutthendelse
Hendelsesknapp 4. Klikket ()
Hvis filen eksisterer (ta minnekortets path() > "/mydata.db") = feil
Opprett en database (ta kortbanen () > "/mydata.db")
En popup-prompt ("Opprett database vellykket!") )
Slutt hvis
Åpne databasen (ta kortbanen() > "/mydata.db") '!! Databasen må åpnes før noen databaseoperasjoner utføres
En pop-up-prompt ("Åpne database vellykket!") )
Slutthendelse
Hendelsesknapp 1. Klikket ()
Hvis datatabellen eksisterer (databasetabellens navn) = falsk
'OPPRETT TABELL' & Databasetabellnavn & "(id tekst, verditekst)") 'Lag en datatabell med to kolonner, den første kolonnen er id og den andre kolonnen er verdi
Lag en datatabell (databasetabellnavn, "id-tekst, verditekst")
Hvis du vil lage et selvinkrementerende id-felt, kan du skrive Create Data Table (databasetabellnavn, "id heltall PRIMARY KEY, verditekst")
En pop-up-prompt ("Opprett datablad vellykket!") )
Ellers
En pop-up-prompt ("Databladet eksisterer allerede!") )
Slutt hvis
Slutthendelse
Hendelsesknapp 2. Klikket ()
' Databaseutførelse ("INSERT INTO " & Database Table Name & "VALUES ('1','zhangshang@163.com')") 'Sett inn poster
' Databaseutførelse ("INSERT INTO " & Database Table Name & " VALUES ('2','1234567@qq.com')")
' Databaseutførelse ("SETT inn INN" & Databasetabellnavn & "VERDIER ('3','Lisi@126.com')")
' Databaseutførelse ("INSERT INTO " & Database Table Name & " VALUES ('4','Wangwu@163.com')")
Sett inn post (databasetabellnavn, "'1','zhangshang@163.com'")
Sett inn post (databasetabellnavn, "'2','1234567@qq.com'")
Sett inn post (databasetabellnavn, "'3','Lisi@126.com'")
Sett inn post (databasetabellnavn, "'4','Wangwu@163.com'")
'Hvis id er et selvinkrementerende felt, skal det skrives slik: Sett inn post (databasetabellnavn, 'null,'Wangwu@163.com''")
For å sette inn innholdet i redigeringsboksen kan du skrive slik: Sett inn post (databasetabellnavn, "'" & redigeringsboks 1.innhold & "','" & redigeringsboks 2.innhold & "'")
En pop-up-prompt ("Innsetting vellykket!") )
Slutthendelse
Hendelsesknapp 3. Klikket ()
'Redigeringsboks 1.Content = databasespørring ("SELECT * FROM" & databasetabellnavn & " WHERE id='1'","-","\n") 'Query id='1' for posten er barna til hver post adskilt med -, og postene er adskilt med linjeskift
'Redigeringsboks 1.Content = betinget spørring (databasetabellnavn, "id='1'", "-", "\n")
Hvis sletter begynnelsen og slutten av det tomme (redigeringsboks 2.innhold) = "" så
Pop-up-prompt ("Vennligst skriv inn søkekriterier")
Utgang
Slutt hvis
Redigeringsboks 1.Innhold = betinget spørring (databasetabellnavn, "id='" > slett første og siste mellomrom (redigeringsboks 2.innhold) > "'","-","\n")
En pop-up-prompt ("Søk vellykket!") )
Slutthendelse
Hendelsesknapp 6. Klikket ()
'Databaseutførelse ('UPDATE' og databasetabellnavn > 'SET value='Dette er den modifiserte verdien' HVOR id='1'") 'Endre id='1' for den posten
Endre posten (databasetabellnavn, "value='Dette er den endrede verdien'", "id='1'")
En pop-up-prompt ("Modifisert med suksess!") )
Slutthendelse
Hendelsesknapp 5. Klikket på ()
'DELETE FROM' ("DELETE FROM" & databasetabellnavn & " WHERE id='1'") 'delete the record id='1'
Slett post (databasetabellnavn, "id='1'")
En pop-up-prompt ("Slettet vellykket!") )
Slutthendelse
Hendelsesknapp 7. Klikket ()
'DATABASE EXECUTION' ("DROP TABLE" > databasetabellnavn) sletter hele databasetabellen
Sletting av en datatabell (databasetabellnavn)
En popup-prompt ("Slett databasetabell vellykket!") )
Slutthendelse
Hendelsesknapp 8. Klikket ()
Pop-up-prompt ("Totalt antall poster:" > Antall poster (databasetabellnavn) > "Elementer")
Slutthendelse
Hendelsesknapp 9. Klikket ()
'Redigeringsboks 1.Content = databaseforespørsel ("VELG * FRA" > databasetabellens navn > "HVOR verdi SOM '%163.com'","-","\n") 'Spør alle poster med verdier som ender på '163.com'
Redigeringsboks 1. Innhold = betinget spørring (databasetabellnavn, "verdi LIKE '%163.com'", "-", "\n")
En pop-up-prompt ("Søk vellykket!") )
Slutthendelse
Hendelsesknapp 10. Klikket ()
'Redigeringsboks 1.Content = databasespørring ("SELECT * FROM" > databasetabellnavn & "LIMIT 0,3","-","\n") 'Søk 3 poster som starter fra 0 (1).
Redigeringsboks 1. Innhold = Omfangsspørring (databasetabellnavn, 0, 3, "-", "\n")
En pop-up-prompt ("Søk vellykket!") )
Slutthendelse
Hendelsesknapp 11. Klikket ()
Lukk databasen() '!! Lukk databasen på slutten av programmet
Avsluttende prosedyre ()
Slutthendelse |
[Kopier lenke]
Publisert på 04.01.2018 21:16:38
|
Publisert på 04.06.2017 08:49:09
