Назва таблиці змінної бази даних — Text
Головне вікно події. Створено()
Назва таблиці бази даних = "MyTable"
Фінальна подія
Кнопка події 4. Натиснуто ()
Якщо файл існує (візьміть шлях до карти пам'яті > "/mydata.db") = false
Створіть базу даних (візьміть шлях картки () > "/mydata.db")
Спливаюче вікно («Створити базу даних успішно!») )
Кінець якби
Відкрийте базу даних (візьміть шлях до картки() > "/mydata.db") '!! База даних має бути відкрита перед виконанням будь-яких операцій з базою даних
Спливаюче вікно («Відкриття бази даних успішно!») )
Фінальна подія
Кнопка події 1. Натиснуто ()
Якщо існує таблиця даних (назва таблиці бази даних) = false
'CREATE TABLE' & назва таблиці бази даних & "(id text, value text)") 'Створіть таблицю даних із двома стовпцями, перший стовпець — id, а другий — значення
Створіть таблицю даних (назва таблиці бази даних, «id text, value text»)
Якщо ви хочете створити поле ідентифікатора з самоінкрементацією, ви можете написати Create Data Table (назва таблиці бази даних, "id integer PRIMARY KEY, value text")
Спливаюче вікно («Створити технічний лист успішно!») )
Інакше
Спливаюче вікно («Технічний лист уже існує!») )
Кінець якби
Фінальна подія
Кнопка події 2. Натиснуто ()
' Виконання бази даних ("INSERT INTO " & назва таблиці бази даних & "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 " & Database Table Name & " VALUES ('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'")
Щоб вставити вміст редагувального поля, можна написати так: Insert record (назва таблиці бази даних, "'" & edit box 1.content & "','" & edit box 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='Це змінене значення' ДЕ id='1'") 'Змінити id='1' для цього запису
Модифікувати запис (назва таблиці бази даних, "value='Це змінене значення'", "id='1'")
Спливаюче вікно («Успішно змінено!») )
Фінальна подія
Кнопка події 5. Натиснуто ()
'ВИДАЛИТИ З' ("ВИДАЛИТИ З" & назва таблиці бази даних & " WHERE id='1'") 'видалити ідентифікатор запису='1'
Видалити запис (назва таблиці бази даних, "id='1'")
Спливаюче вікно («Видалено успішно!») )
Фінальна подія
Кнопка події 7. Натиснуто ()
'ВИКОНАННЯ БАЗИ ДАНИХ' ("DROP TABLE" > назва таблиці бази даних) видаляє всю таблицю бази даних
Видалення таблиці даних (назва таблиці бази даних)
Спливаюче вікно («Видалити таблицю бази даних успішно!») )
Фінальна подія
Кнопка події 8. Натиснуто ()
Спливаюче вікно («Загальна кількість записів:» > Кількість записів (назва таблиці бази даних) > «Елементи»)
Фінальна подія
Кнопка події 9. Натиснуто ()
'Редагувати поле 1.Content = запит до бази даних("SELECT * FROM" > назву таблиці бази даних > "WHERE значення 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 08:49:09
