O nome da tabela do banco de dados variável é Texto
Janela Principal do Evento. Created()
Nome da tabela do banco de dados = "Mytable"
Evento Final
Botão do evento 4. Clicado ()
Se o arquivo existir (pegue o caminho do cartão de memória() > "/mydata.db") = falso
Crie um banco de dados (pegue o caminho do cartão () > "/mydata.db")
Um prompt pop-up ("Criar banco de dados bem-sucedido!") )
Fim Se
Abra o banco de dados (pegue o caminho do cartão() > "/mydata.db") '!! O banco de dados deve ser aberto antes de realizar qualquer operação de banco de dados
Um prompt pop-up ("Abrir banco de dados bem-sucedido!") )
Evento Final
Botão do evento 1. Clicado ()
Se a tabela de dados existir (nome da tabela do banco de dados) = falso
'CRIAR TABELA' & Nome da tabela do banco de dados & "(texto id, texto do valor)") 'Crie uma tabela de dados com duas colunas, a primeira coluna é id e a segunda coluna é valor
Crie uma tabela de dados (nome da tabela do banco de dados, "texto id, texto de valor")
Se você quiser criar um campo id auto-incrementante, pode escrever Create Data Table (nome da tabela de banco de dados, "id integer PRIMARY KEY, value text")
Um prompt pop-up ("Criar ficha de dados bem-sucedida!") )
Caso contrário
Um prompt pop-up ("A ficha de dados já existe!") )
Fim Se
Evento Final
Botão do evento 2. Clicado ()
' Execução de Banco de Dados ("INSERT INTO " & Nome da Tabela de Banco & "VALUES ('1','zhangshang@163.com')") 'Inserir registros
' Execução do Banco de Dados ("INSERT INTO " & Nome da Tabela do Banco de Dados & " VALORES ('2','1234567@qq.com')")
' Execução do Banco de Dados ("INSERT INTO" & Nome da Tabela do Banco de Dados & "VALORES ('3','Lisi@126.com')")
' Execução do Banco de Dados ("INSERIR EM " & Nome da Tabela do Banco de Dados & " VALORES ('4','Wangwu@163.com')")
Inserir registro (nome da tabela do banco de dados, "'1','zhangshang@163.com'")
Inserir registro (nome da tabela do banco de dados, "'2','1234567@qq.com'")
Inserir registro (nome da tabela do banco de dados, "'3','Lisi@126.com'")
Inserir registro (nome da tabela do banco de dados, "'4','Wangwu@163.com'")
'Se id for um campo auto-incrementante, ele deve ser escrito assim: Inserir registro (nome da tabela do banco de dados, 'null,'Wangwu@163.com'")
Para inserir o conteúdo da caixa de edição, você pode escrever assim: Inserir registro (nome da tabela do banco de dados, "'" & editar caixa 1.conteúdo & "','" & editar caixa 2.conteúdo & "'")
Um prompt pop-up ("Inserção bem-sucedida!") )
Evento Final
Botão do evento 3. Clicado ()
'Editar caixa 1.Conteúdo = consulta de banco de dados("SELECT * FROM" & nome da tabela do banco de dados & " WHERE id='1'","-","\n") 'Query id='1' para o registro, os filhos de cada registro são separados por -, e os registros são separados por quebras de linha
'Editar caixa 1.Content = consulta condicional (nome da tabela do banco de dados, "id='1'", "-", "\n")
Se apagar o início e o fim do espaço em branco (caixa de edição 2.content) = "" então
Prompt pop-up ("Por favor, insira critérios de consulta")
Saída
Fim Se
Caixa de edição 1.Content = consulta condicional (nome da tabela do banco de dados,"id='" > exclua o primeiro e o último espaço (caixa de edição 2.content) > "'","-","\n")
Um prompt pop-up ("Consulta bem-sucedida!") )
Evento Final
Botão do evento 6. Clicado ()
'Execução do banco de dados ('UPDATE' & nome da tabela do banco de dados > 'SET valor='Este é o valor modificado' ONDE id='1'") 'Modificar id='1' para esse registro
Modificar o registro (nome da tabela do banco de dados, "value='This is the modified value'", "id='1'")
Um prompt pop-up ("Modificado com sucesso!") )
Evento Final
Botão do evento 5. Clicado ()
'DELETE FROM' ("DELETE FROM" & nome da tabela do banco de dados & " WHERE id='1'") 'delete the record id='1'
Registro de exclusão (nome da tabela do banco de dados, "id='1'")
Um prompt pop-up ("Excluído com sucesso!") )
Evento Final
Botão do evento 7. Clicado ()
'EXECUÇÃO DE BANCO DE DADOS' ('DROP TABLE' > nome da tabela de banco de dados) exclui toda a tabela de banco de dados
Excluindo uma Tabela de Dados (Nome da Tabela do Banco de Dados)
Um prompt pop-up ("Excluir tabela de banco de dados bem-sucedida!") )
Evento Final
Botão do evento 8. Clicado ()
Prompt pop-up ("Número total de registros:" > Número de registros (nome da tabela do banco de dados) > "Itens")
Evento Final
Botão 9 do evento. Clicado ()
'Editar caixa 1.Content = consulta de banco de dados("SELECT * FROM" > nome da tabela de banco de dados > "WHERE valor COMO '%163.com'","-","\n") 'Consultar todos os registros com valores terminando em '163.com'
Caixa de edição 1. Content = consulta condicional (nome da tabela do banco de dados, "valor LIKE '%163.com'", "-", "\n")
Um prompt pop-up ("Consulta bem-sucedida!") )
Evento Final
Botão do evento 10. Clicado ()
'Editar caixa 1.Conteúdo = consulta de banco de dados("SELECT * FROM" > nome da tabela do banco de dados & "LIMIT 0,3","-","\n") 'Consultar 3 registros começando de 0 (1).
Caixa de edição 1. Conteúdo = consulta de escopo (nome da tabela do banco de dados, 0, 3, "-", "\n")
Um prompt pop-up ("Consulta bem-sucedida!") )
Evento Final
Botão de evento 11. Clicado ()
Feche o banco de dados()'!! Feche o banco de dados ao final do programa
Procedimento Terminal ()
Evento Final |
[Copiar link]
Publicado em 04/01/2018 21:16:38
|
Publicado em 04/06/2017 08:49:09
