Sub Activity_Create(FirstTime As Boolean)
If FirstTime Then
' If File.Exists(File.DirInternal, "AttendG3.db") = True Then
' File.Delete(File.DirInternal, "AttendG3.db") ' only for testing, removes the database
' End If
'check if the database already exists
If File.Exists(File.DirInternal, "AttendG3.db") = False Then
File.Copy(File.DirAssets, "AttendG3.db", File.DirInternal, "AttendG3.db")
End If
If File.Exists(Starter.SourceFolder, "AttendG3.db") = False Then
File.Copy(File.DirInternal, "AttendG3.db", Starter.SourceFolder, "AttendG3.db")
End If
SQL_Data.Initialize(Starter.SourceFolder, "AttendG3.db", True)
End If
'Do not forget to load the layout file created with the visual designer. For example:
End Sub