Numele tabelului bazei de date variabile este Text
Fereastra principală a evenimentului. Creat()
Numele tabelului bazei de date = "Mytable"
Evenimentul final
Butonul evenimentului 4. Apăsat ()
Dacă fișierul există (luați calea cardului de memorie > "/mydata.db") = fals
Creează o bază de date (ia calea cardului () > "/mydata.db")
Un prompt pop-up ("Creează baza de date cu succes!") )
Sfârșit dacă
Deschide baza de date (ia calea cardului() > "/mydata.db") '!! Baza de date trebuie deschisă înainte de a efectua orice operațiune în baza de date
Un prompt pop-up ("Deschide baza de date cu succes!") )
Evenimentul final
Butonul evenimentului 1. Apăsat ()
Dacă tabelul de date există (numele tabelului bazei de date) = fals
'CREATE TABLE' & Tabelul bazei de date & "(text id, text value)") 'Creează un tabel de date cu două coloane, prima coloană este id, iar a doua coloană este valoarea
Creează un tabel de date (numele tabelului bazei de date, "text id, text de valoare")
Dacă vrei să creezi un câmp id auto-incrementant, poți scrie Create Data Table (numele tabelului bazei de date, "id integer PRIMARY KEY, text de valoare")
Un prompt pop-up ("Creează fișa tehnică reușită!") )
Altfel
Un prompt pop-up ("Fișa tehnică există deja!") )
Sfârșit dacă
Evenimentul final
Butonul evenimentului 2. Apăsat ()
' Execuția bazei de date ("INSERT INTO " & Numele tabelului bazei de date & "VALUES ('1','zhangshang@163.com')") 'Inserați înregistrări
' Execuția bazei de date ("INSERT INTO " & Numele tabelului bazei de date & " VALORI ('2','1234567@qq.com')")
' Execuția bazei de date ("INSERT INTO" & Numele tabelului bazei de date & "VALORI ('3','Lisi@126.com')")
' Execuția bazei de date ("INSERT IN " & Numele tabelului bazei de date & " VALORI ('4','Wangwu@163.com')")
Insert record (numele tabelului bazei de date, "'1','zhangshang@163.com'")
Insert record (numele tabelului bazei de date, "'2','1234567@qq.com'")
Insert record (numele tabelului bazei de date, "'3','Lisi@126.com'")
Insert record (numele tabelului de baze de date, "'4','Wangwu@163.com'")
"Dacă id este un câmp auto-incrementant, ar trebui scris astfel: Inserează înregistrarea (numele tabelului bazei de date, 'null,'Wangwu@163.com'")
Pentru a insera conținutul căsuței de editare, poți scrie astfel: Insert record (numele tabelului bazei de date, "'" & editare box 1.content & "','" & edit box 2.content & "'")
Un prompt pop-up ("Inserare reușită!") )
Evenimentul final
Butonul de eveniment 3. Apăsat ()
'Casetă de editare 1.Content = interogare de bază de date("SELECT * FROM" & numele tabelului bazei de date & " WHERE id='1'","-","\n") 'Query id='1' pentru înregistrare, copiii fiecărei înregistrări sunt separați de -, iar înregistrările sunt separate prin sărituri de linie
'Editează caseta 1.Content = interogare condiționată (numele tabelului bazei de date, "id='1'", "-", "\n")
Dacă ștergi începutul și sfârșitul spațiului gol (editare căsuța 2.content) = "" atunci
Prompt pop-up ("Vă rugăm să introduceți criteriile de interogare")
Ieșire
Sfârșit dacă
Caseta de editare 1.Content = interogare condiționată (numele tabelului bazei de date, "id='" > șterge primul și ultimul spațiu (editare caseta 2.content) > "'","-","\n")
Un prompt pop-up ("Interogare reușită!") )
Evenimentul final
Butonul evenimentului 6. Apăsat ()
'Execuția bazei de date ('UPDATE' & numele tabelului bazei de date > 'SET value='Aceasta este valoarea modificată' WHERE id='1'") 'Modify id='1' pentru acea înregistrare
Modifică înregistrarea (numele tabelului bazei de date, "value='This is the modified value'", "id='1'")
Un prompt pop-up ("Modificat cu succes!") )
Evenimentul final
Butonul evenimentului 5. Apăsat ()
'ȘTERGE DIN' ("ȘTERGE DIN" & numele tabelului bazei de date & " UNDE id='1'") 'șterge idul de înregistrare='1'
Șterge înregistrarea (numele tabelului bazei de date, "id='1'")
Un prompt pop-up ("Șters cu succes!") )
Evenimentul final
Butonul de eveniment 7. Apăsat ()
"EXECUTAREA BAZEI DE DATE" ("DROP TABLE" > numele tabelului bazei de date) șterge întreaga tabelă de baze de date
Ștergerea unui tabel de date (numele tabelului bazei de date)
Un prompt pop-up ("Șterge tabelul bazei de date cu succes!") )
Evenimentul final
Butonul evenimentului 8. Apăsat ()
Prompt pop-up ("Număr total de înregistrări:" > Număr de înregistrări (numele tabelului bazei de date) > "Elemente")
Evenimentul final
Butonul evenimentului 9. Apăsat ()
'Editează caseta 1.Content = interogare bazei de date("SELECT * FROM" > numele tabelului bazei de date > "UNDE valoare PRECUM '%163.com'","-","\n") 'Interoghează toate înregistrările cu valori care se termină cu '163.com'
Editare căsuță 1. Content = interogare condiționată (numele tabelului bazei de date, "valoare CA '%163.com'", "-", "\n")
Un prompt pop-up ("Interogare reușită!") )
Evenimentul final
Butonul evenimentului 10. Apăsat ()
"Editează caseta 1. Conținut = interogare bază de date("SELECT * FROM" > numele tabelului bazei de date & "LIMIT 0,3","-","\n") 'Interoghează 3 înregistrări începând de la 0 (1).
Editare casetă 1. Conținut = Interogare de scop (numele tabelului bazei de date, 0, 3, "-", "\n")
Un prompt pop-up ("Interogare reușită!") )
Evenimentul final
Butonul evenimentului 11. Apăsat ()
Închide baza de date() '!! Închide baza de date la finalul programului
Procedura de sfârșit ()
Evenimentul final |
[Copiază linkul]
Postat pe 04.01.2018 21:16:38
|
Postat pe 04.06.2017 08:49:09
