Nazwa tabeli zmiennej to Text
Okno główne wydarzenia. Created()
Nazwa tabeli bazy danych = "mytable"
Wydarzenie końcowe
Przycisk zdarzenia 4. Kliknięto ()
Jeśli plik istnieje (weź ścieżkę karty pamięci() > "/mydata.db") = fałszywe
Stwórz bazę danych (wybierz ścieżkę kart () > "/mydata.db")
Wyskakujące okienko ("Utworzenie bazy danych pomyślnie!") )
Koniec Jeśli
Otwórz bazę danych (wybierz ścieżkę karty() > "/mydata.db") '!! Baza danych musi zostać otwarta przed wykonaniem jakichkolwiek operacji w bazie danych
Wyskakujące okienko ("Otwarta baza danych udana!") )
Wydarzenie końcowe
Przycisk zdarzenia 1. Kliknięto ()
Jeśli tabela danych istnieje (nazwa tabeli bazy danych) = fałszywe
'CREATE TABLE' & Nazwa tabeli bazy danych & "(id text, value text)") 'Utwórz tabelę danych z dwoma kolumnami, pierwsza kolumna to id, a druga to value
Utwórz tabelę danych (nazwa tabeli bazy danych, "id text, value text")
Jeśli chcesz utworzyć pole samoprzyrastające id, możesz zapisać Tabelę Danych Utwor (nazwa tabeli bazy danych, "id integer PRIMARY KEY, value text")
Wyskakujące okienko ("Stwórz arkusz danych pomyślnie!") )
Poza tym
Wyskakujące okienko ("Karta katalogowa już istnieje!") )
Koniec Jeśli
Wydarzenie końcowe
Przycisk wydarzenia 2. Kliknięto ()
' Wykonanie bazy danych ("INSERT INTO " & Nazwa tabeli bazy danych & "VALUES ('1','zhangshang@163.com')") 'Wstaw rekordy
' Wykonanie bazy danych ("INSERT INTO " & Nazwa tabeli bazy danych & " WARTOŚCI ('2','1234567@qq.com')")
' Wykonanie bazy danych ("INSERT INTO" & Nazwa tabeli bazy danych & "WARTOŚCI ('3','Lisi@126.com')")
' Wykonanie bazy danych ("WSTAW DO " & Nazwa tabeli bazy danych & " WARTOŚCI ('4','Wangwu@163.com')")
Wstaw rekord (nazwa tabeli bazy danych, "'1','zhangshang@163.com'")
Wstaw rekord (nazwa tabeli bazy danych, "'2','1234567@qq.com'")
Wstaw rekord (nazwa tabeli bazy danych, "'3','Lisi@126.com'")
Wstaw rekord (nazwa tabeli bazy danych, "'4','Wangwu@163.com'")
'Jeśli id jest polem samoprzyrastającym, powinno być zapisane w ten sposób Wstaw rekord (nazwa tabeli bazy, 'null,'Wangwu@163.com'")
Aby wstawić zawartość pola edycji, możesz napisać tak: Wstaw rekord (nazwa tabeli bazy danych, "'" i pole edycji 1.content & "','" & pole edycji 2.content & "'")
Wyskakujące okienko ("Wstawienie zakończone!") )
Wydarzenie końcowe
Przycisk wydarzenia 3. Kliknięto ()
'Edytuj pole 1. Zawartość = zapytanie bazy danych("WYBIERZ * FROM" & nazwa tabeli bazy danych & " GDZIE id='1'","-",","\n") 'Zapytanie id='1' dla rekordu, dzieci każdego rekordu są rozdzielone przez -, a rekordy oddzielone podziałami wierszy
'Pole edycji 1.Content = zapytanie warunkowe (nazwa tabeli bazy danych, "id='1'", "-", "\n")
Jeśli usuniesz początek i koniec pustego pola (edytuj pole 2.content) = "" to
Pojawia się wyskakujące okienko ("Proszę wpisać kryteria zapytania")
Wyjście
Koniec Jeśli
Pole edycji 1.Treść = zapytanie warunkowe (nazwa tabeli bazy danych, "id='" > usuń pierwsze i ostatnie space (pole edycji 2.treść) > "'","-","\n)
Wyskakujące okienko ("Zapytanie zakończone!") )
Wydarzenie końcowe
Przycisk wydarzenia 6. Kliknięto ()
'Wykonanie bazy danych ('UPDATE' & nazwa tabeli bazy danych > 'SET value='This is the modified value' WHERE id='1'") 'Modify id='1' dla tego rekordu
Zmodyfikuj rekord (nazwa tabeli bazy danych, "value='This is the modified value'", "id='1'")
Wyskakujące okienko ("Poprawnie zmodyfikowane!") )
Wydarzenie końcowe
Przycisk zdarzenia 5. Kliknięto ()
'DELETE FROM' ("DELETE FROM" & nazwa tabeli bazy danych & " WHERE id='1'") 'usuń identyfikator rekordu='1'
Delete record (nazwa tabeli bazy danych, "id='1'")
Wyskakujące okienko ("Usunięte udane!") )
Wydarzenie końcowe
Przycisk wydarzenia 7. Kliknięto ()
"WYKONYWANIE BAZY DANYCH" ("DROP TABLE" > nazwa tabeli bazy danych) usuwa całą tabelę bazy danych
Usuwanie tabeli danych (nazwa tabeli bazy danych)
Wyskakujące okienko ("Usuń tabelę bazy danych pomyślnie!") )
Wydarzenie końcowe
Przycisk wydarzenia 8. Kliknięto ()
Prompt wyskakujący ("Całkowita liczba rekordów:" > Liczba rekordów (nazwa tabeli bazy danych) > "Elementy")
Wydarzenie końcowe
Przycisk wydarzenia 9. Kliknięto ()
'Edytuj pole 1.Content = database query("SELECT * FROM" > nazwa tabeli bazy danych > "WHERE, NA przykład '%163.com'","-","\n") 'Zapytaj wszystkie rekordy o wartościach kończących się na '163.com'
Pole edycji 1. Treść = zapytanie warunkowe (nazwa tabeli bazy danych, "value LIKE '%163.com'", "-", "\n")
Wyskakujące okienko ("Zapytanie zakończone!") )
Wydarzenie końcowe
Przycisk zdarzenia 10. Kliknięto ()
'Edytuj pole 1.Zawartość = zapytanie bazy danych("WYBIERZ * FROM" > nazwę tabeli bazy danych & "LIMIT 0,3","-","\n") 'Zapytanie o 3 rekordy zaczynające się od 0 (1).
Pole edycji 1. Treść = Zapytanie zakresu (nazwa tabeli bazy danych, 0, 3, "-", "\n")
Wyskakujące okienko ("Zapytanie zakończone!") )
Wydarzenie końcowe
Przycisk zdarzenia 11. Kliknięto ()
Zamknij bazę danych() '!! Zamknij bazę danych na końcu programu
Procedura końcowa ()
Wydarzenie końcowe |
[Skopiuj link]
Opublikowano 04.01.2018 21:16:38
|
Opublikowano 04.06.2017 08:49:09
