A változó adatbázis táblanév a Text
Esemény főablaka. Létrehozva()
adatbázis tábla név = "mytable"
Esemény vége
4. esemény gomb. Kattintva ()
Ha a fájl létezik (vegyük a memóriakártya path() > "/mydata.db") = hamis
Hozz létre egy adatbázist (vedd a kártyaútvonalat () > "/mydata.db")
Egy felugró prompt ("Adatbázis létrehozása sikeres!") )
Vége Ha
Nyisd meg az adatbázist (vedd a kártyaútvonal() > "/mydata.db") '!! Az adatbázist minden adatbázis-művelet végrehajtása előtt ki kell nyitni
Egy felugró prompt ("Adatbázis megnyitása sikeres!") )
Esemény vége
Esemény gomb 1. Kattintva ()
Ha létezik az adattábla (adatbázis tábla neve) = hamis
'CREATE TABLE' & Database tábla név & "(id szöveg,érték szöveg)") 'Hozzon létre egy adattáblát két oszlopból, az első oszlop az id, a második oszlop az érték
Hozz létre egy adattáblát (adatbázis tábla neve, "azonosító szöveg, érték szöveg")
Ha önmagát növelő azonosító mezőt szeretnél létrehozni, írhatod Adat-táblázat létrehozását (adatbázis tábla neve, "id integer PRIMARY KEY, érték szöveg")
Egy felugró prompt ("Adatlap létrehozása sikeres!") )
Egyébként
Egy felugró prompt ("Az adatlap már létezik!") )
Vége Ha
Esemény vége
Esemény gomb 2. Kattintva ()
' Adatbázis végrehajtás ("INSERT INTO " & Database Table Name & "VALUES ('1','zhangshang@163.com')") 'Bejegyzések beszedése
' Adatbázis végrehajtás ("INSERT INTO " & Database Table Name & " VALUES ('2','1234567@qq.com')")
' Adatbázis végrehajtása ("INSERT INTO" & Database Table Name & "VALUES ('3','Lisi@126.com')")
' Adatbázis végrehajtás ("INSERT INTO " & Database Table Name & " VALUES ('4','Wangwu@163.com')")
Bejegyzés bekerülése (adatbázis tábla neve, "'1','zhangshang@163.com'")
Bejegyzés beadása (adatbázis tábla neve, "'2','1234567@qq.com'")
Bejegyzés beadása (adatbázis tábla neve, "'3','Lisi@126.com'")
Bejegyzés beszedése (adatbázis tábla neve, "'4','Wangwu@163.com'")
'Ha az id önnövegező mező, akkor ezt úgy kell írni, mint ez a Insert rekord (adatbázis tábla neve, 'null,'Wangwu@163.com'")
A szerkesztési doboz tartalmának beillesztéséhez így írhatsz: Insert record (database table name, "'" & edit box 1.content & "','" & edit box 2.content & "'")
Egy felugró prompt ("Sikeres behelyezés!") )
Esemény vége
Esemény gomb 3. Kattintva ()
'Szerkesztés doboz 1.Content = database query("SELECT * FROM" & database table name & " WHERE id='1'","-","\n") 'Query id='1' a rekordhoz, az egyes rekordok gyermekei --vel vannak elválasztva, és a rekordokat sortörések választják el
'Szerkesztési doboz 1.Content = feltételes lekérdezés (adatbázis tábla neve, "id='1'", "-", "\n")
Ha törlöd az üres rész elejét és végét (szerkesztési doboz 2.content) = ""
Felugró felhívás ("Kérjük, írja meg a lekérdezési kritériumokat")
Kijárat
Vége Ha
Szerkesztés doboz 1.Content = feltételes lekérdezés (adatbázis tábla név,"id='" > töröld az első és utolsó szóközet (szerkesztési doboz 2.content) > "'","-","\n)
Egy felugró prompt ("Lekérdezés sikeres!") )
Esemény vége
Esemény gomb 6. Kattintva ()
'Adatbázis végrehajtása ('UPDATE' & adatbázistábla neve > 'SET value='Ez a módosított érték' WHERE id='1'") 'Módosít id='1' ehhez a rekordhoz
Módosítsd a rekordot (adatbázis tábla neve, "value='Ez a módosított érték'", "id='1'")
Egy felugró prompt ("Sikeresen módosítva!") )
Esemény vége
Esemény gomb 5. Kattintott ()
'DELETE FROM' ("DELETE FROM" & database table name & " WHERE id='1'") 'töröld a rekord id='1'
Törlés rekordja (adatbázis tábla neve, "id='1'")
Egy felugró prompt ("Törölve sikerült!") )
Esemény vége
Esemény gomb 7. Kattintva ()
'DATABASE EXECUTION' ("DROP TABLE" > adatbázistábla név) törli az egész adatbázis táblát
Adattábla törlése (adatbázis tábla neve)
Egy felugró prompt ("Adatbázis táblát törölve sikerült!") )
Esemény vége
Esemény gomb 8. Kattintva ()
Felugró prompt ("Összes rekordszám:" > Rekordok száma (adatbázis tábla neve) > "Elemek")
Esemény vége
Esemény gomb 9. Kattintva ()
'Szerkesztési doboz 1.Content = database query("SELECT * FROM" > adatbázistábla név > "WHERE érték, mint '%163.com'","-","\n") 'Kérdezd le az összes olyan rekordot, amelynek értéke '163.com--re végződik'
Szerkesztési doboz 1. Tartalom = feltételes lekérdezés (adatbázis tábla neve, "érték LIKE '%163.com'", "-", "\n")
Egy felugró prompt ("Lekérdezés sikeres!") )
Esemény vége
Esemény gomb 10. Kattintva ()
'Szerkesztés doboz 1.Content = database query("SELECT * FROM" > adatbázis tábla név & "LIMIT 0,3","-","\n") 'Lekérdezés 3 rekord 0 (1)-től kezdődően.
Szerkesztési doboz 1. Tartalom = Scope lekérdezés (adatbázis tábla neve, 0, 3, "-", "\n")
Egy felugró prompt ("Lekérdezés sikeres!") )
Esemény vége
Esemény gomb 11. Kattintva ()
Zárd be az adatbázist() '!! A program végén zárja be az adatbázist
Zárási eljárás ()
Esemény vége |
[Linket másol]
Közzétéve 2018. 01. 04. 21:16:38
|
Közzétéve 2017. 06. 04. 8:49:09
