cheveguerra/Kelloggs_v4
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Kelloggs_v4.git synced 2026-04-20 03:29:14 +00:00
Code Issues Packages Projects Releases Wiki Activity

...

Browse Source
This commit is contained in:
Jose Alberto Guerra Ugalde
2024-05-25 01:37:20 -06:00
parent 4c32c16129
commit 067fbf63c4
3 changed files with 7 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
B4A/B4XMainPage.bas
View File

@@ -449,6 +449,7 @@ End Sub
Sub Entrar_Click
DateTime.DateFormat = "yyyyMMdd"
user.Text = user.Text.Trim
If user.Text = "KMTSKLL1" Then
Starter.skmt.ExecNonQuery("delete from usuarioa")
Starter.skmt.ExecNonQuery2("INSERT INTO USUARIOA VALUES (?,?,?)", Array As Object(user.Text, pass.Text, DateTime.Date(DateTime.Now)))