Der Name der variablen Datenbanktabelle ist Text
Hauptfenster des Events. Created()
Datenbanktabellenname = "mytable"
Endereignis
Ereignis-Button 4. Klickt ()
Wenn die Datei existiert (nehmen Sie den Speicherkartenpfad() > "/mydata.db") = falsch
Erstellen Sie eine Datenbank (nehmen Sie den Kartenpfad () > "/mydata.db")
Ein Pop-up-Prompt ("Datenbank erstellen, erfolgreich!") )
Ende Wenn
Öffne die Datenbank (nimm den Kartenpfad > "/mydata.db") '!! Die Datenbank muss geöffnet werden, bevor irgendwelche Datenbankoperationen durchgeführt werden
Ein Pop-up-Prompt ("Datenbank öffnen erfolgreich!") )
Endereignis
Ereignis-Button 1. Klickt ()
Wenn die Datentabelle existiert (Datenbanktabellenname) = falsch
'TABELLE ERSTELLEN' & Datenbanktabellenname & "(id text, value text)") 'Erstellen Sie eine Datentabelle mit zwei Spalten, die erste Spalte ist id und die zweite Spalte ist value
Erstellen Sie eine Datentabelle (Datenbanktabellenname, "id-Text, Werttext")
Wenn du ein selbstinkrementierendes id-Feld erstellen möchtest, kannst du Create Data Table schreiben (Datenbanktabellenname, "id integer PRIMARY KEY, Value text")
Ein Pop-up-Prompt ("Datenblatt erstellen, erfolgreich!") )
Ansonsten
Ein Pop-up-Prompt ("Das Datenblatt existiert bereits!") )
Ende Wenn
Endereignis
Ereignis-Button 2. Klickt ()
' Datenbankausführung ("INSERT INTO " & Datenbanktabellenname & "VALUES ('1','zhangshang@163.com')") 'Datensätze einfügen
' Datenbankausführung ("INSERT INTO " & Datenbanktabellenname & " VALUES ('2','1234567@qq.com')")
' Datenbankausführung ("INSERT INTO" & Datenbanktabellenname & "VALUES ('3','Lisi@126.com')")
' Datenbankausführung ("INSERT INTO " & Datenbanktabellenname & " VALUES ('4','Wangwu@163.com')")
Datensatz einfügen (Datenbank-Tabellenname, "'1','zhangshang@163.com'")
Datensatz einfügen (Datenbanktabellenname, "'2','1234567@qq.com'")
Datensatz einfügen (Datenbanktabellen-Name, "'3','Lisi@126.com'")
Datensatz einfügen (Datenbanktabellen-Name, "'4','Wangwu@163.com'")
'Wenn id ein selbst-inkrementierendes Feld ist, sollte es so geschrieben werden: Einfügender Datensatz (Datenbanktabellenname, 'null,'Wangwu@163.com''")
Um den Inhalt des Bearbeitungsfelds einzufügen, können Sie so schreiben: Datensatz einfügen (Datenbanktabellenname, "'" & Bearbeitungsfeld 1.Inhalt & "','" & Bearbeitungsfeld 2.Inhalt & "'")
Ein Pop-up-Prompt ("Einfügung erfolgreich!") )
Endereignis
Ereignis-Button 3. Klickt ()
'Bearbeitungsfeld 1.Inhalt = Datenbankanfrage ("AUSWÄHLEN * VON" & Datenbanktabellenname & " WO id='1'","-","\n") 'Abfrage-id='1' Für den Datensatz werden die Kinder jedes Datensatzes durch -, und die Datensätze durch Zeilenumbrüche getrennt
'Bearbeitungsfeld 1.Inhalt = bedingte Abfrage (Datenbanktabellen-Name, "id='1'", "-", "\n")
Wenn den Anfang und das Ende des Feldes gelöscht werden (Bearbeitungsfeld 2.content) = "" dann
Pop-up-Prompt ("Bitte geben Sie die Abfragekriterien ein")
Ausgang
Ende Wenn
Bearbeitungsfenster 1.Inhalt = bedingte Abfrage (Datenbanktabellenname, "id='" > löschen Sie das erste und letzte Leerzeichen (Bearbeitungsfeld 2.Inhalt) > "'","-","\n")
Ein Pop-up-Prompt ("Anfrage erfolgreich!") )
Endereignis
Ereignis-Button 6. Klickt ()
'Datenbankausführung ('UPDATE' & Datenbanktabellenname > 'SET value='Dies ist der modifizierte Wert' WO id='1'") 'Modify id='1' für diesen Datensatz
Ändern Sie den Datensatz (Datenbanktabellenname, "value='Dies ist der modifizierte Wert'", "id='1'")
Ein Pop-up-Prompt ("Erfolgreich modifiziert!") )
Endereignis
Ereignis-Button 5. Geklickt ()
'DELETE FROM' ("DELETE FROM" & Datenbanktabellenname & " WHERE id='1'") 'delete the record id='1'
Datensatz löschen (Datenbanktabellenname, "id='1'")
Ein Pop-up-Prompt ("Gelöscht erfolgreich!") )
Endereignis
Ereignis-Button 7. Klickt ()
'DATENBANKAUSFÜHRUNG' ("DROP TABLE" > Datenbanktabellenname) löscht die gesamte Datenbanktabelle
Löschen einer Datentabelle (Name der Datenbanktabelle)
Ein Pop-up-Prompt ("Datenbanktabelle löschen erfolgreich!") )
Endereignis
Ereignis-Button 8. Geklickt ()
Pop-up-Aufforderung ("Gesamtzahl der Datensätze:" > Anzahl der Datensätze (Datenbanktabellenname) > "Artikel")
Endereignis
Ereignis-Button 9. Klickt ()
'Bearbeitungsfeld 1.Inhalt = Datenbankanfrage ("AUSWÄHLEN * VON" > Datenbanktabellenname > "WO Wert WIE '%163.com'","-","\n") 'Abfrage aller Datensätze mit Werten, die auf '163.com' enden'
Bearbeitungsfeld 1. Inhalt = bedingte Abfrage (Datenbanktabellen-Name, "Wert LIKE '%163.com'", "-", "\n")
Ein Pop-up-Prompt ("Anfrage erfolgreich!") )
Endereignis
Ereignis-Button 10. Geklickt ()
'Bearbeitungsfeld 1.Inhalt = Datenbankanfrage ("AUSWÄHLEN * VON" > Datenbanktabellenname & "LIMIT 0,3","-","\n") 'Abfrage 3 Datensätze ab 0 (1).
Bearbeitungsfeld 1. Inhalt = Scope-Abfrage (Datenbanktabellenname, 0, 3, "-", "\n")
Ein Pop-up-Prompt ("Anfrage erfolgreich!") )
Endereignis
Ereignis-Button 11. Geklickt ()
Schließen Sie die Datenbank() '!! Schließen Sie die Datenbank am Ende des Programms
Endprozedur ()
Endereignis |
[Link kopieren]
Veröffentlicht am 04.01.2018 21:16:38
|
Veröffentlicht am 04.06.2017 08:49:09
