Sub Activity_Create(FirstTime As Boolean)
ProgressDialogShow("Building Database")
SQL.Initialize(File.DirInternal, "WDOrders.db", True)
CreateTables
Sub CreateTables(TableName As String)
SQL.ExecNonQuery("CREATE TABLE PicturesLink (CatNum INTEGER,PageNum INTEGER,DirName TEXT,Picture TEXT,ProductName TEXT)")
SQL.ExecNonQuery("CREATE TABLE Customers (CustCode TEXT , CustName TEXT, Address TEXT, Suburb TEXT, Phone TEXT)")
SQL.ExecNonQuery("CREATE TABLE Orders (Date TEXT, CustCode TEXT,ProdCode TEXT,Qty INTEGER,Cost SINGLE,Sent INTEGER)")
SQL.ExecNonQuery("CREATE TABLE Products (ProdCode TEXT,Description TEXT,Price1 SINGLE,Price2 SINGLE,Qis INT,Moq INT,Roq INT)")
.....
.....