Името на таблицата на променливата база данни е Text
Главен прозорец на събитието. Създаден()
Име на таблица в база данни = "mytable"
Крайно събитие
Бутон за събитие 4. Кликна ()
Ако файлът съществува (вземете пътя към картата памет > "/mydata.db") = false
Създайте база данни (вземете пътя към картата () > "/mydata.db")
Изскачащ прозорец ("Създаване на база данни успешно!") )
Край ако
Отвори базата данни (вземи пътя към картата() > "/mydata.db") '!! Базата данни трябва да бъде отворена преди извършване на каквато и да е операция с базата данни
Изскачащ прозорец ("Отвори базата данни успешно!") )
Крайно събитие
Бутон за събитие 1. Кликна ()
Ако съществува табела с данни (име на таблица в базата данни) = невярно
'CREATE TABLE ' & Име на таблица на база данни & "(id текст, текст на стойност)") 'Създайте таблица с данни с две колони, първата колона е id, а втората е стойност
Създайте таблица с данни (име на таблица с база данни, "id text, value text")
Ако искаш да създадеш самоувеличаващо се id поле, можеш да напишеш Create Data Table (име на таблица с база данни, "id integer PRIMARY KEY, value text")
Изскачащ прозорец ("Създаване на технически лист успешно!") )
В противен случай
Изскачащ прозорец ("Техническият лист вече съществува!") )
Край ако
Крайно събитие
Бутон за събитие 2. Кликна ()
' Изпълнение на база данни ("INSERT INTO " & Име на таблицата на базата данни и "VALUES ('1','zhangshang@163.com')") 'Вмъкнете записи
' Изпълнение на база данни ("INSERT INTO " & Име на таблицата на базата данни и " СТОЙНОСТИ ('2','1234567@qq.com')")
' Изпълнение на база данни ("INSERT INTO" и име на таблица на база данни и "СТОЙНОСТИ ('3','Lisi@126.com')")
' Изпълнение на база данни ("INSERT INTO " & Име на таблица на база данни & " СТОЙНОСТИ ('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 (име на таблица в базата данни, "'" и редактиране 1.content & "','" & edit box 2.content & "'")
Изскачащ прозорец ("Вмъкване успешно!") )
Крайно събитие
Бутон за събитие 3. Кликна ()
'Редактиране на поле 1.Съдържание = заявка към базата данни ("SELECT * FROM" & име на таблицата на базата данни & " WHERE id='1'"","-","\n") 'Query id='1' за записа, децата на всеки запис са разделени с -, а записите са разделени с прекъсвания на редове
'Кутия за редактиране 1.Съдържание = условна заявка (име на таблица в базата данни, "id='1'", "-", "\n")
Ако изтриете началото и края на празното поле (редактиране на поле 2.content) = "" тогава
Изскачащ прозорец ("Моля, въведете критерии за заявка")
Изход
Край ако
Кутия за редакция 1.Съдържание = условна заявка (име на таблицата в базата данни,"id='" > изтриване на първите и последните интервали (редактиране на кутия 2.content) > "'","-","\n)
Изскачащ прозорец ("Заявката успешна!") )
Крайно събитие
Бутон за събитие 6. Кликна ()
'Изпълнение на база данни ('UPDATE' & име на таблица > 'SET стойност='Това е модифицираната стойност' 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. Кликна ()
'ИЗПЪЛНЕНИЕ НА БАЗАТА ДАННИ' ("DROP TABLE" > име на таблицата на базата данни) изтрива цялата таблица на базата данни
Изтриване на таблица с данни (име на таблица на база данни)
Изскачащ прозорец ("Изтрий таблицата на базата данни успешно!") )
Крайно събитие
Бутон за събитие 8. Кликна ()
Изскачащ прозорец ("Общ брой записи:" > Брой записи (име на таблица в базата данни) > "Елементи")
Крайно събитие
Бутон за събитие 9. Кликна ()
'Редактиране на поле 1.Съдържание = заявка към база данни ("SELECT * FROM" > име на таблицата > "WHERE стойност LIKE '%163.com'","-","\n") 'Запитване на всички записи със стойности, завършващи на '163.com'
Кутия за редакция 1. Съдържание = условна заявка (име на таблицата на базата данни, "стойност КАТО '%163.com'", "-", "\n")
Изскачащ прозорец ("Заявката успешна!") )
Крайно събитие
Бутон за събитие 10. Кликна ()
'Редактиране на поле 1.Съдържание = заявка към база данни ("SELECT * FROM" > име на таблицата на базата данни и "LIMIT 0,3","-","\n") 'Заявка за 3 записа, започвайки от 0 (1).
Кутия за редакция 1. Съдържание = Заявка за обхват (име на таблица в база данни, 0, 3, "-", "\n")
Изскачащ прозорец ("Заявката успешна!") )
Крайно събитие
Бутон за събитие 11. Кликна ()
Затворете базата данни() '!! Затворете базата данни в края на програмата
Крайна процедура ()
Крайно събитие |
[Копирай линк]
Публикувано в 4.01.2018 г. 21:16:38 ч.
|
Публикувано в 4.06.2017 г. 8:49:09 ч.
