Nama tabel database variabel adalah Teks Jendela Utama Acara. Dibuat() nama tabel database = "mytable" Akhir Acara
Tombol acara 4. Diklik () Jika file ada (ambil path kartu memori() > "/mydata.db") = false Buat database (ambil jalur kartu () > "/mydata.db") Prompt pop-up ("Buat database berhasil!") ) Akhiri Jika Buka database (ambil jalur kartu() > "/mydata.db") '!! Database harus dibuka sebelum melakukan operasi database apa pun Perintah pop-up ("Buka database berhasil!") ) Akhir Acara
Tombol peristiwa 1. Diklik () Jika tabel data ada (nama tabel database) = false 'CREATE TABLE' & Nama tabel database & "(id text,value text)") 'Buat tabel data dengan dua kolom, kolom pertama adalah id dan kolom kedua adalah nilai Membuat tabel data (nama tabel database, "teks id, teks nilai") Jika Anda ingin membuat bidang id yang bertambah sendiri, Anda dapat menulis Buat Tabel Data (nama tabel database, "bilangan bulat id PRIMARY KEY, teks nilai") Perintah pop-up ("Buat lembar data berhasil!") ) Jika tidak, Prompt pop-up ("Lembar data sudah ada!") ) Akhiri Jika Akhir Acara
Tombol acara 2. Diklik () ' Eksekusi Database ("INSERT INTO " & Nama Tabel Database & "VALUES ('1','zhangshang@163.com')") 'Sisipkan catatan ' Eksekusi Database ("INSERT INTO " & Database Table Name & " VALUES ('2','1234567@qq.com')") ' Eksekusi Database ("INSERT INTO" & Nama Tabel Database & "VALUES ('3','Lisi@126.com')") ' Eksekusi Database ("INSERT INTO " & Nama Tabel Database & " VALUES ('4','Wangwu@163.com')") Sisipkan rekaman (nama tabel database, "'1','zhangshang@163.com'") Sisipkan rekaman (nama tabel database, "'2','1234567@qq.com'") Sisipkan rekaman (nama tabel database, "'3','Lisi@126.com'") Sisipkan rekaman (nama tabel database, "'4','Wangwu@163.com'") 'Jika id adalah bidang yang bertambah sendiri, itu harus ditulis seperti ini Sisipkan catatan (nama tabel database, 'null,'Wangwu@163.com'") Untuk memasukkan isi kotak edit, Anda dapat menulis seperti ini: Sisipkan catatan (nama tabel database, "'" & edit kotak 1.content & "','" & edit kotak 2.content & "'") Prompt pop-up ("Penyisipan berhasil!") ) Akhir Acara
Tombol acara 3. Diklik () 'Edit box 1.Content = database query("SELECT * FROM" & database table name & " WHERE id='1'","-","\n") 'Query id='1' untuk catatan, turunan dari setiap catatan dipisahkan oleh -, dan catatan dipisahkan oleh jeda baris 'Edit kotak 1.Content = kueri bersyarat (nama tabel database, "id='1'", "-", "\n") Jika hapus awal dan akhir kosong (edit box 2.content) = "" maka Prompt pop-up ("Silakan masukkan kriteria kueri") Keluar Akhiri Jika Edit kotak 1.Content = conditional query(nama tabel database,"id='" > menghapus spasi pertama dan terakhir (edit box 2.content) > "'","-","\n") Prompt pop-up ("Kueri berhasil!") ) Akhir Acara
Tombol Acara 6. Diklik () 'Eksekusi database ('UPDATE' & nama tabel database > 'SET value='Ini adalah nilai yang dimodifikasi' WHERE id='1'") 'Ubah id='1' untuk catatan itu Ubah rekaman (nama tabel database, "value='Ini adalah nilai yang dimodifikasi'", "id='1'") Prompt pop-up ("Berhasil dimodifikasi!") ) Akhir Acara
Tombol acara 5. Diklik () 'HAPUS DARI' ("HAPUS DARI" & nama tabel database & " WHERE id='1'") 'hapus catatan id='1' Hapus rekaman (nama tabel database, "id='1'") Prompt pop-up ("Dihapus berhasil!") ) Akhir Acara
Tombol Peristiwa 7. Diklik () 'EKSEKUSI DATABASE' ("DROP TABLE" > nama tabel database) menghapus seluruh tabel database Menghapus Tabel Data (Nama Tabel Database) Prompt pop-up ("Hapus tabel database berhasil!") ) Akhir Acara
Tombol Acara 8. Diklik () Prompt pop-up ("Jumlah total catatan:" > Jumlah rekaman (nama tabel database) > "Item") Akhir Acara
Tombol acara 9. Diklik () 'Edit box 1.Content = database query("SELECT * FROM" > nama tabel database > "WHERE value LIKE '%163.com'","-","\n") 'Kueri semua rekaman dengan nilai yang diakhiri dengan '163.com' Edit kotak 1. Konten = kueri bersyarat (nama tabel database, "nilai LIKE '%163.com'", "-", "\n") Prompt pop-up ("Kueri berhasil!") ) Akhir Acara
Tombol peristiwa 10. Diklik () 'Edit box 1.Content = database query("SELECT * FROM" > nama tabel database & "LIMIT 0,3","-","\n") 'Kueri 3 catatan mulai dari 0 (1). Kotak edit 1. Konten = Kueri cakupan (nama tabel database, 0, 3, "-", "\n") Prompt pop-up ("Kueri berhasil!") ) Akhir Acara
Tombol acara 11. Diklik () Tutup database() '!! Tutup database di akhir program Prosedur Akhir () Akhir Acara |