Il nome della tabella del database variabile è Text
Finestra principale dell'evento. Creato()
Nome della tabella del database = "mytable"
Evento finale
Pulsante evento 4. Cliccato ()
Se il file esiste (prendi il percorso della scheda di memoria() > "/mydata.db") = falso
Crea un database (prendi il percorso della carta () > "/mydata.db")
Un prompt pop-up ("Crea database riuscito!") )
Fine se
Apri il database (scegli il percorso della scheda() > "/mydata.db") '!! Il database deve essere aperto prima di eseguire qualsiasi operazione nel database
Un prompt pop-up ("Apri database con successo!") )
Evento finale
Pulsante evento 1. Cliccato ()
Se la tabella dati esiste (nome della tabella del database) = falso
'CREATE TABLE' & Nome tabella Database & "(testo id, testo valore)") 'Crea una tabella dati con due colonne, la prima colonna è id e la seconda colonna è valore
Crea una tabella dati (nome della tabella del database, "testo id, testo dei valori")
Se vuoi creare un campo id auto-incrementante, puoi scrivere Create Data Table (nome tabella database, "id integer PRIMARY KEY, value text")
Un prompt pop-up ("Crea scheda tecnica riuscita a funzionare!") )
Altrimenti
Un prompt pop-up ("Il datasheet esiste già!") )
Fine se
Evento finale
Pulsante evento 2. Cliccato ()
' Esecuzione del database ("INSERISCI IN " & Nome Tabella del Database & "VALORI ('1','zhangshang@163.com')") 'Inserisci record
' Esecuzione del database ("INSERT INTO " & Nome della tabella del database & " VALORI ('2','1234567@qq.com')")
' Esecuzione del database ("INSERISCI IN" & Nome Tabella del Database & "VALORI ('3','Lisi@126.com')")
' Esecuzione del database ("INSERIRE IN " & Nome Tabella del Database & " VALORI ('4','Wangwu@163.com')")
Inserisci record (nome della tabella del database, "'1','zhangshang@163.com'")
Inserisci record (nome della tabella del database, "'2','1234567@qq.com'")
Inserisci record (nome della tabella del database, "'3','Lisi@126.com'")
Inserisci record (nome della tabella del database, "'4','Wangwu@163.com'")
'Se id è un campo auto-incrementante, dovrebbe essere scritto come questo Inserisci record (nome tabella del database, 'null,'Wangwu@163.com'")
Per inserire il contenuto della casella di modifica, puoi scrivere così: Inserisci record (nome della tabella del database, "'" & modifica casella 1.content & "','" & modifica casella 2.content & "'")
Un prompt pop-up ("Inserimento riuscito!") )
Evento finale
Pulsante evento 3. Cliccato ()
'Modifica casella 1.Contenuto = query database("SELECT * FROM" & nome tabella database & " WHERE id='1'","-","\n") 'Query id='1' per il record, i figli di ogni record sono separati da -, e i record sono separati da interruzioni di riga
'Modifica casella 1.Contenuto = query condizionata (nome tabella database, "id='1'", "-", "\n")
Se elimini l'inizio e la fine del blank (riquadro di modifica 2.content) = "" allora
Prompt pop-up ("Si prega di inserire i criteri di query")
Uscita
Fine se
Modifica casella 1.Content = query condizionata (nome tabella database,"id='" > elimina il primo e l'ultimo spazio (modifica riquadro 2.content) > "'","-","\n")
Un prompt pop-up ("Query riuscita!") )
Evento finale
Pulsante evento 6. Cliccato ()
'Esecuzione database ('UPDATE' & nome tabella database > 'SET valore='Questo è il valore modificato' DOVE id='1'") 'Modifica id='1' per quel record
Modifica il record (nome della tabella del database, "value='This is the modified value'", "id='1'")
Un prompt pop-up ("Modificato con successo!") )
Evento finale
Pulsante evento 5. Cliccato ()
'ELIMINA DA' ("ELIMINA DA" & nome della tabella database & " DOVE id='1'") 'elimina il record id='1'
Delete record (nome della tabella database, "id='1'")
Un prompt pop-up ("Eliminato con successo!") )
Evento finale
Pulsante evento 7. Cliccato ()
'ESECUZIONE DEL DATABASE' ('DROP TABLE' > nome della tabella del database) elimina l'intera tabella del database
Eliminazione di una tabella dati (nome tabella del database)
Un prompt pop-up ("Cancella tabella del database riuscita a funzionare!") )
Evento finale
Pulsante evento 8. Cliccato ()
Prompt pop-up ("Numero totale di record:" > Numero di record (nome della tabella del database) > "Elementi")
Evento finale
Pulsante evento 9. Cliccato ()
'Modifica casella 1.Content = query database("SELECT * FROM" > nome della tabella database > "DOVE valore COME '%163.com'","-","\n") 'Interroga tutti i record con valori che terminano in '163.com'
Riquadro di modifica 1. Content = query condizionale (nome tabella del database, "valore LIKE '%163.com'", "-", "\n")
Un prompt pop-up ("Query riuscita!") )
Evento finale
Pulsante evento 10. Cliccato ()
'Modifica casella 1.Contenuto = query database("SELECT * FROM" > nome della tabella database & "LIMIT 0,3","-","\n") 'Interroga 3 record a partire da 0 (1).
Riquadro di modifica 1. Contenuto = Query di ambito (nome tabella database, 0, 3, "-", "\n")
Un prompt pop-up ("Query riuscita!") )
Evento finale
Pulsante evento 11. Cliccato ()
Chiudi il database() '!! Chiudi il database alla fine del programma
Procedura finale ()
Evento finale |
[Copiato link]
Pubblicato su 04/01/2018 21:16:38
|
Pubblicato su 04/06/2017 08:49:09
