Sub Activity_Create(FirstTime As Boolean)
Log("created")
Private DvId As Object
DvId = SQLTbl.ExecQuerySingleResult("SELECT DEV_ID from M_DEV_ID")
If DvId = Null Then
Activity.LoadLayout("lyAgreement")
Else
btnAgree_Click
End If
End Sub
Sub btnAgree_Click
Private DvId As Object
DvId = SQLTbl.ExecQuerySingleResult("SELECT DEV_ID from M_DEV_ID")
If DvId = Null Then
Private Id as int
Id = GetDevId
SQLTbl.ExecNonQuery2("INSERT INTO M_DEV_ID(DEV_ID) VALUES (?)", Array As Object(ID))
End If
Activity.Finish
StartActivity(modMain)
End Sub