Название таблицы базы данных переменных — Text
Главное окно события. Создано()
Имя таблицы базы данных = «mytable»
Финальное событие
Кнопка события 4. Нажат ()
Если файл существует (возьмите путь к карте памяти > "/mydata.db") = false
Создайте базу данных (выберите путь карты () > "/mydata.db")
Всплывающее окно («Создание базы данных успешно!») )
Конец если.
Откройте базу данных (выберите путь к карте() > "/mydata.db") '!! База данных должна быть открыта перед выполнением любых операций с базой данных
Всплывающее окно («Открыть базу данных успешно!») )
Финальное событие
Кнопка события 1. Нажат ()
Если существует таблица данных (название таблицы базы данных) = false
'CREATE TABLE' & название таблицы базы данных & "(id text, value text)") 'Создайте таблицу данных с двумя столбцами, первый столбец — id, второй — value
Создать таблицу данных (название таблицы базы данных, «id text, value text»)
Если вы хотите создать самоувеличивающееся поле идентификатора, вы можете написать Create Data Table (название таблицы базы данных, «id integer PRIMARY KEY, value text»)
Всплывающее окно («Создание технического листа успешно!») )
В противном случае
Всплывающее окно («Даташит уже существует!») )
Конец если.
Финальное событие
Кнопка события 2. Нажат ()
' Выполнение базы данных ("INSERT INTO " & Name Database Table & "VALUES ('1','zhangshang@163.com')") 'Вставить записи
' Выполнение базы данных ("INSERT INTO " & Name Database Table & " VALUES ('2','1234567@qq.com')")
' Выполнение базы данных ("INSERT INTO" & Name Database Table & "VALUES ('3','Lisi@126.com')")
' Выполнение базы данных ("INSERT INTO " & Name таблицы базы данных & " ЗНАЧЕНИЯ ('4','Wangwu@163.com')")
Вставить запись (название таблицы базы данных, "'1','zhangshang@163.com'")
Вставьте запись (название таблицы базы данных, "'2','1234567@qq.com'")
Вставьте запись (название таблицы базы данных, "'3','Lisi@126.com'")
Вставить запись (название таблицы базы данных, «'4','Wangwu@163.com'»)
«Если id — это самоувеличивающееся поле, оно должно записываться как следующая запись Insert (название таблицы базы данных, 'null,'Wangwu@163.com'»)
Чтобы вставить содержимое редактирования, вы можете написать так: Вставить запись (название таблицы базы данных, "'" и редактировать поле 1.content & "','" & редактировать поле 2.content & "'")
Всплывающее окно («Вставка успешна!») )
Финальное событие
Кнопка события 3. Нажат ()
'Редактировать поле 1.Content = запрос к базе данных ("SELECT * FROM" & название таблицы базы данных & " WHERE id='1'","-","\n") 'Query id='1' для записи, дочерние значения каждой записи разделены -, а записи разделены разрывами строк
'Редактировать поле 1.Content = условный запрос (имя таблицы базы данных, "id='1'", "-", "\n")
Если удалить начало и конец пустого поля (редактировать поле 2.content) = "" то
Всплывающее окно («Пожалуйста, введите критерии запроса»)
Выход
Конец если.
Редактировать поле 1.Content = условный запрос (название таблицы базы данных, "id='" > удаление первых и последних пробелов (редактировать блок 2.content) > "'","-","\n)
Всплывающее окно («Запрос успешен!») )
Финальное событие
Кнопка события 6. Нажат ()
'Выполнение базы данных ('UPDATE' & название таблицы базы данных > 'SET value='Это изменённое значение' WHERE id='1'") 'Modify id='1' для этой записи
Изменить запись (название таблицы базы данных, "value='Это изменённое значение'", "id='1'")
Всплывающее окно («Успешно изменено!») )
Финальное событие
Кнопка события 5. Нажат ()
'DELETE FROM' ("DELETE FROM" & название таблицы базы данных & " WHERE id='1'") 'delete the record id='1'
Удалить запись (название таблицы базы данных, "id='1'")
Всплывающее окно («Удалено успешно!») )
Финальное событие
Кнопка события 7. Нажат ()
'DATABASE EXECUTION' ("DROP TABLE" > название таблицы базы данных) удаляет всю таблицу базы данных
Удаление таблицы данных (название таблицы базы данных)
Всплывающее окно («Удалить таблицу базы данных успешно!») )
Финальное событие
Кнопка события 8. Нажат ()
Всплывающее окно ("Общее количество записей:" > Количество записей (название таблицы базы данных) > "Элементы")
Финальное событие
Кнопка события 9. Нажат ()
'Редактировать поле 1.Content = запрос к базе данных ("SELECT * FROM" > название таблицы базы данных > "ГДЕ значение LIKE '%163.com'","-","\n") 'Запросить все записи со значениями, заканчивающимися на '163.com'
Редактирование пункта 1. Содержимое = условный запрос (название таблицы базы данных, «значение ПОХОЖЕ на '%163.com'», «-», «\n»)
Всплывающее окно («Запрос успешен!») )
Финальное событие
Кнопка события 10. Нажат ()
'Редактировать поле 1.Content = запрос к базе данных ("SELECT * FROM" > название таблицы базы данных и "LIMIT 0,3","-","\n") 'Запросить 3 записи, начиная с 0 (1).
Редактирование 1. Содержимое = Запрос по области (название таблицы базы данных, 0, 3, "-", "\n")
Всплывающее окно («Запрос успешен!») )
Финальное событие
Кнопка события 11. Нажат ()
Закрыть базу данных() '!! Закройте базу данных в конце программы
Процедура завершения ()
Финальное событие |
[Скопировать ссылку]
Опубликовано 04.01.2018 21:16:38
|
Опубликовано 04.06.2017 8:49:09
