Muutuja andmebaasitabeli nimi on Text
Ürituse peamine aken. Loodud()
andmebaasi tabeli nimi = "mytable"
Lõppsündmus
Sündmuse nupp 4. Klõpsatud ()
Kui fail eksisteerib (võta mälukaardi tee() > "/mydata.db") = false
Loo andmebaas (võta kaarditee () > "/mydata.db")
Hüpikakna käsk ("Loo andmebaas edukas!") )
Lõpp Kui
Ava andmebaas (võta kaardi tee() > "/mydata.db") '!! Andmebaas tuleb enne igasuguste andmebaasitoimingute sooritamist avada
Hüpikakna prompt ("Ava andmebaas edukas!") )
Lõppsündmus
Sündmuse nupp 1. Klõpsasin ()
Kui andmetabel eksisteerib (andmebaasitabeli nimi) = vale
'LOO TABEL' & Andmebaasi tabeli nimi & "(id tekst, väärtustekst)") 'Loo andmetabel kahe veeruga, esimene veerg on id ja teine veerg väärtus
Loo andmetabel (andmebaasitabeli nimi, "id-tekst, väärtustekst")
Kui soovid luua isekasvava id-välja, võid kirjutada Create Data Table (andmebaasi tabeli nimi, "id täisarv PRIMARY KEY, väärtustekst")
Hüpikakna ülesanne ("Loo andmeleht edukas!") )
Muidu
Hüpikakena prompt ("Andmeleht on juba olemas!") )
Lõpp Kui
Lõppsündmus
Sündmuse nupp 2. Klõpsatud ()
' Andmebaasi täitmine ("INSERT INTO " & Database Table Name & "VALUES ('1','zhangshang@163.com')") 'Kirjete sisestamine
' Andmebaasi täitmine ("INSERT INTO " & Database Table Name & " VALUES ('2','1234567@qq.com')")
' Andmebaasi täitmine ("INSERT INTO" & Database Table Name & "VALUES ('3','Lisi@126.com')")
' Andmebaasi täitmine ("INSERT INTO " & Database Table Name & " VALUES ('4','Wangwu@163.com')")
Sisesta kirje (andmebaasi tabeli nimi, "'1','zhangshang@163.com'")
Kirje sisestamine (andmebaasi tabeli nimi, "'2','1234567@qq.com'")
Sisesta kirje (andmebaasi tabeli nimi, "'3','Lisi@126.com'")
Sisesta kirje (andmebaasi tabeli nimi, "'4','Wangwu@163.com'")
'Kui id on isekasvav väli, peaks see olema kirjutatud nagu see Insert kirje (andmebaasi tabeli nimi, 'null,'Wangwu@163.com'")
Redigeerimiskasti sisu sisestamiseks võid kirjutada nii: Sisesta kirje (andmebaasi tabeli nimi "'" & redigeerimiskast 1.sisu & "','" ja redigeerimiskast 2.sisu & "'")
Hüpikakna käsk ("Sisestamine õnnestus!") )
Lõppsündmus
Sündmuse nupp 3. Klõpsatud ()
'Edit box 1.Content = database query("SELECT * FROM" & database table name & " WHERE id='1'","-","\n") 'Query id='1' kirje jaoks, iga kirje lapsed on eraldatud -ga ning kirjed on eraldatud reavahedega
'Edit box 1.Content = tingimuslik päring (andmebaasi tabeli nimi, "id='1'", "-", "\n")
Kui kustutada tühja algus ja lõpp (redigeerimiskast 2.content) = "" siis
Hüpikakna küsimus ("Palun sisesta päringukriteeriumid")
Väljumine
Lõpp Kui
Redigeerimiskast 1.Content = tingimuslik päring (andmebaasi tabeli nimi,"id='" > kustuta esimene ja viimane tühiku (edit box 2.content) > "'","-","\n")
Hüpikakna prompt ("Päring õnnestus!") )
Lõppsündmus
Sündmuse nupp 6. Klõpsatud ()
'Andmebaasi täitmine ('UPDATE' & andmebaasi tabeli nimi > 'SET value='See on muudetud väärtus' KUS id='1'") 'Muuda id='1' selle kirje jaoks
Muuda kirjet (andmebaasitabeli nimi, "value='This is the modified value'", "id='1'")
Hüpikakena prompt ("Muudetud edukalt!") )
Lõppsündmus
Sündmuse nupp 5. Klõpsatud ()
'KUSTUTA' ("KUSTUTA" & andmebaasi tabeli nimi & "KUS id='1'") 'kustuta kirje id='1'
Kirje kustutamine (andmebaasitabeli nimi, "id='1'")
Hüpikakena prompt ("Kustutatud õnnestus!") )
Lõppsündmus
Sündmuse nupp 7. Klõpsatud ()
'ANDMEBAASI TÄITMINE' ("DROP TABLE" > andmebaasitabeli nimi) kustutab kogu andmebaasitabeli
Andmetabeli kustutamine (andmebaasi tabeli nimi)
Hüpikakna prompt ("Kustuta andmebaasitabel edukas!") )
Lõppsündmus
Sündmuse nupp 8. Klõpsatud ()
Hüpikakna prompt ("Kirjete koguarv:" > Kirjete arv (andmebaasi tabeli nimi) > "Esemed")
Lõppsündmus
Sündmuse nupp 9. Klõpsatud ()
'Edit box 1.Content = database query("SELECT * FROM" > andmebaasi tabeli nimi > "WHERE väärtus NAGU '%163.com'","-","\n") 'Päring kõik kirjed, mille väärtused lõpevad '163.com'
Muudatuskast 1. Sisu = tingimuslik päring (andmebaasi tabeli nimi, "väärtus LIKE '%163.com'", "-", "\n")
Hüpikakna prompt ("Päring õnnestus!") )
Lõppsündmus
Sündmuse nupp 10. Klõpsatud ()
'Edit box 1.Content = database query("SELECT * FROM" > andmebaasi tabeli nimi & "LIMIT 0,3","-","\n") 'Päring 3 kirjed alates 0 (1).
Muudatuskast 1. Sisu = Ulatuspäring (andmebaasi tabeli nimi, 0, 3, "-", "\n")
Hüpikakna prompt ("Päring õnnestus!") )
Lõppsündmus
Sündmuse nupp 11. Klõpsasin ()
Sulge andmebaas() '!! Sulge andmebaas programmi lõpus
Lõppprotseduur ()
Lõppsündmus |
[Kopeeri link]
Postitatud 04.01.2018 21:16:38
|
Postitatud 04.06.2017 08:49:09
