Mainīgā datu bāzes tabulas nosaukums ir Teksts
Notikuma galvenais logs. Izveidots()
Datu bāzes tabulas nosaukums = "MyTable"
Pasākuma beigas
Notikuma poga 4. Noklikšķināja ()
Ja fails pastāv (ņemiet atmiņas kartes ceļu () > "/mydata.db") = false
Datu bāzes izveide (izvēlieties kartes ceļu () > "/mydata.db")
Uznirstošā uzvedne ("Izveidot datu bāzi veiksmīgi!") )
Beigt, ja
Atveriet datu bāzi (izvēlieties kartes ceļu() > "/mydata.db") '!! Datu bāze ir jāatver pirms jebkādu datu bāzes darbību veikšanas
Uznirstošā uzvedne ("Atvērt datu bāzi veiksmīgi!") )
Pasākuma beigas
Notikuma poga 1. Noklikšķināja ()
Ja datu tabula pastāv (datu bāzes tabulas nosaukums) = false
'CREATE TABLE ' & Datu bāzes tabulas nosaukums & "(id teksts,vērtības teksts)") 'Izveidojiet datu tabulu ar divām kolonnām, pirmā kolonna ir id un otrā kolonna ir value
Datu tabulas izveide (datu bāzes tabulas nosaukums, "ID teksts, vērtības teksts")
Ja vēlaties izveidot pašpalielinošu id lauku, varat rakstīt Izveidot datu tabulu (datu bāzes tabulas nosaukums, "id vesels skaitlis PRIMARY KEY, vērtības teksts")
Uznirstošā uzvedne ("Izveidot datu lapu veiksmīgi!") )
Citādi
Uznirstošā uzvedne ("Datu lapa jau pastāv!") )
Beigt, ja
Pasākuma beigas
Notikuma poga 2. Noklikšķināja ()
' Datu bāzes izpilde ("INSERT INTO " & Datu bāzes tabulas nosaukums & "VALUES ('1','zhangshang@163.com')") 'Ievietot ierakstus
' Datu bāzes izpilde ("INSERT INTO " & Datu bāzes tabulas nosaukums & " VALUES ('2','1234567@qq.com')")
' Datu bāzes izpilde ("INSERT INTO" & Datu bāzes tabulas nosaukums & "VALUES ('3','Lisi@126.com')")
' Datu bāzes izpilde ("INSERT INTO " & Datu bāzes tabulas nosaukums & " VALUES ('4','Wangwu@163.com')")
Ievietot ierakstu (datu bāzes tabulas nosaukums, "'1','zhangshang@163.com'")
Ievietot ierakstu (datu bāzes tabulas nosaukums, "'2','1234567@qq.com")
Ievietot ierakstu (datu bāzes tabulas nosaukums, "'3','Lisi@126.com")
Ievietot ierakstu (datu bāzes tabulas nosaukums, "'4','Wangwu@163.com")
'Ja id ir pašpalielinošs lauks, tas jāraksta šādi Ievietot ierakstu (datu bāzes tabulas nosaukums 'null,'Wangwu@163.com'")
Lai ievietotu rediģēšanas lodziņa saturu, varat rakstīt šādi: Ievietot ierakstu (datu bāzes tabulas nosaukums, "'" & rediģēt lodziņu 1.saturs & "','" & rediģēt lodziņu 2.saturs & "'")
Uznirstošā uzvedne ("Ievietošana veiksmīga!") )
Pasākuma beigas
Notikuma poga 3. Noklikšķināja ()
'Rediģēšanas lodziņš 1.Content = datu bāzes vaicājums("SELECT * FROM" & datu bāzes tabulas nosaukums & " WHERE id='1'","-","\n") 'Vaicājuma id='1' ierakstam, katra ieraksta bērni tiek atdalīti ar -, un ieraksti tiek atdalīti ar rindiņu pārtraukumiem
'Rediģēt lodziņu 1.Content = nosacītais vaicājums (datu bāzes tabulas nosaukums, "id='1'", "-", "\n")
Ja izdzēsiet tukšuma sākumu un beigas (rediģēt lodziņu 2.content) = "", tad
Uznirstošā uzvedne ("Lūdzu, ievadiet vaicājuma kritērijus")
Iziet
Beigt, ja
Rediģēšanas lodziņš 1.Content = conditional query(datu bāzes tabulas nosaukums,"id='" > izdzēst pirmo un pēdējo atstarpi (rediģēt lodziņu 2.content) > "'","-","\n")
Uznirstošā uzvedne ("Vaicājums veiksmīgs!") )
Pasākuma beigas
Notikuma poga 6. Noklikšķināja ()
'Datu bāzes izpilde ('UPDATE' & datu bāzes tabulas nosaukums > 'SET value='Šī ir modificētā vērtība' WHERE id='1'") 'Modificēt id='1' šim ierakstam
Modificēt ierakstu (datu bāzes tabulas nosaukums, "value='Šī ir modificētā vērtība'", "id='1'")
Uznirstošā uzvedne ("Veiksmīgi modificēts!") )
Pasākuma beigas
Notikuma poga 5. Noklikšķināja ()
'DELETE FROM' ("DELETE FROM" & datu bāzes tabulas nosaukums & " WHERE id='1'") 'delete the record id='1'
Dzēst ierakstu (datu bāzes tabulas nosaukums, "id='1'")
Uznirstošā uzvedne ("Izdzēsts veiksmīgi!") )
Pasākuma beigas
Notikuma poga 7. Noklikšķināja ()
'DATU BĀZES IZPILDE' ("NOLAIŽAMĀ TABULA" > datu bāzes tabulas nosaukums) izdzēš visu datu bāzes tabulu
Datu tabulas dzēšana (datu bāzes tabulas nosaukums)
Uznirstošā uzvedne ("Dzēst datu bāzes tabulu veiksmīgi!") )
Pasākuma beigas
Notikuma poga 8. Noklikšķināja ()
Uznirstošā uzvedne ("Kopējais ierakstu skaits:" > Ierakstu skaits (datu bāzes tabulas nosaukums) > "Vienumi")
Pasākuma beigas
Notikuma poga 9. Noklikšķināja ()
'Rediģēšanas lodziņš 1.Content = datu bāzes vaicājums ("SELECT * FROM" > datu bāzes tabulas nosaukums > "WHERE vērtība LIKE '%163.com'","-","\n") 'Vaicāt visus ierakstus ar vērtībām, kas beidzas ar '163.com'
Rediģēšanas lodziņš 1. Saturs = nosacītais vaicājums (datu bāzes tabulas nosaukums, "vērtība LIKE '%163.com'", "-", "\n")
Uznirstošā uzvedne ("Vaicājums veiksmīgs!") )
Pasākuma beigas
Notikuma poga 10. Noklikšķināja ()
'Rediģēt lodziņu 1.Content = datu bāzes vaicājums ("SELECT * FROM" > datu bāzes tabulas nosaukums & "LIMIT 0,3","-","\n") 'Vaicājuma 3 ieraksti, sākot no 0 (1).
Rediģēšanas lodziņš 1. Saturs = Tvēruma vaicājums (datu bāzes tabulas nosaukums, 0, 3, "-", "\n")
Uznirstošā uzvedne ("Vaicājums veiksmīgs!") )
Pasākuma beigas
Notikuma poga 11. Noklikšķināja ()
Aizvērt database() '!! Aizveriet datu bāzi programmas beigās
Beigu procedūra ()
Pasākuma beigas |
[Kopēt saiti]
Publicēts 04.01.2018 21:16:38
|
Publicēts 04.06.2017 08:49:09
