B4A=true
Group=Class
ModulesStructureVersion=1
Type=Class
Version=11.8
@EndOfDesignText@

private Sub Class_Globals
    
	Private sqlFav As SQL
	Private sqlSB As SQL
	Private sqlSB2 As SQL
  
	Private rs As ResultSet
  
End Sub

Public Sub Initialize
	
 	If sqlFav.IsInitialized=False Then
		sqlFav.Initialize(File.DirInternal ,"fav.db",True)
	End If
 
	If sqlSB.IsInitialized=False Then
		sqlSB.Initialize(File.DirInternal ,"quransooreh.db",True)
	End If
 
	If sqlSB2.IsInitialized=False Then
		sqlSB2.Initialize(File.DirInternal ,"prv_note_book.db",True)
	End If
 

End Sub

Public Sub addDBs
	addDefaultIphone
	deletePDFBook
 End Sub
 
  
Private Sub deletePDFBook
	
 	Dim list As List
	list.Initialize
	
	list.Add(1)
	list.Add(5)
	
	For i = 0 To list.Size-1
		File.Delete(File.DirInternal,"abtahi/Book/"&list.Get(i)&".pdf")
	Next
	
End Sub
 
Private Sub addDefaultIphone
 	
	Dim qry As String

	Try
		qry="select id from fav_matn"
		sqlFav.ExecQuerySingleResult(qry)
	Catch
		qry="CREATE TABLE fav_matn(id	INTEGER PRIMARY KEY AUTOINCREMENT,onvan  TEXT,date_ghamari  TEXT,date_shamsi  TEXT,id_matn  INTEGER)"
		sqlFav.ExecNonQuery(qry)
	End Try
	
	 
	Try
		qry="select type3 from fav_matn LIMIT 1"
		sqlFav.ExecQuerySingleResult(qry)
	Catch
		qry="ALTER TABLE fav_matn ADD COLUMN type3 TEXT DEFAULT '1' "
		sqlFav.ExecNonQuery(qry)
	End Try

   
	Try
		qry="select id_year from fav_matn LIMIT 1"
		sqlFav.ExecQuerySingleResult(qry)
	Catch
		qry="ALTER TABLE fav_matn ADD COLUMN id_year TEXT DEFAULT '1' "
		sqlFav.ExecNonQuery(qry)
	End Try

   	
	Try
		qry="select type4 from fav_matn LIMIT 1"
		sqlFav.ExecQuerySingleResult(qry)
	Catch
		qry="ALTER TABLE fav_matn ADD COLUMN type4 TEXT DEFAULT '1' "
		sqlFav.ExecNonQuery(qry)
	End Try

	Try
		qry="select lang from favebook LIMIT 1"
		sqlFav.ExecQuerySingleResult(qry)
	Catch
		qry="ALTER TABLE favebook ADD COLUMN lang TEXT DEFAULT '1' "
		sqlFav.ExecNonQuery(qry)
	End Try

	Try
		qry="select lang from favebook LIMIT 1"
		sqlFav.ExecQuerySingleResult(qry)
	Catch
		qry="ALTER TABLE favebook ADD COLUMN lang TEXT DEFAULT '1' "
		sqlFav.ExecNonQuery(qry)
	End Try

	Dim ennameBook As String
	
	rs = sqlSB.ExecQuery("SELECT idindex from book")
	Do While rs.NextRow
		
		ennameBook = "bardasht_"&rs.GetString("idindex")
		
		Try
			qry="select id from '"&ennameBook&"'"
			sqlSB2.ExecQuerySingleResult(qry)
		Catch
			qry="CREATE TABLE '"&ennameBook&"'(id	INTEGER PRIMARY KEY AUTOINCREMENT,bar  TEXT,ayeh  INTEGER)"
			sqlSB2.ExecNonQuery(qry)
		End Try
  		
	Loop : rs.Close
	

'    	********NEW**********

	Try
		qry="select id from fav_qais"
		sqlFav.ExecQuerySingleResult(qry)
	Catch
		qry="CREATE TABLE fav_qais(id	INTEGER PRIMARY KEY AUTOINCREMENT,id_zirmagmoeh  INTEGER,matn  TEXT,types  INTEGER,pos  INTEGER,id_magmoeh  INTEGER,name_magmoeh  TEXT)"
		sqlFav.ExecNonQuery(qry)
	End Try
	 
 
	Try
		qry="select id from fav_bio"
		sqlFav.ExecQuerySingleResult(qry)
	Catch
		qry="CREATE TABLE fav_bio(id	INTEGER PRIMARY KEY AUTOINCREMENT,nameBialogy  TEXT,type3  INTEGER,idBialogy  INTEGER)"
		sqlFav.ExecNonQuery(qry)
	End Try
	

	Try
		qry="select id from fav_mot2"
		sqlFav.ExecQuerySingleResult(qry)
	Catch
		qry="CREATE TABLE fav_mot2(id	INTEGER PRIMARY KEY AUTOINCREMENT,name  TEXT,whichType  INTEGER,picType  TEXT,idMt  INTEGER,idMt2  INTEGER)"
		sqlFav.ExecNonQuery(qry)
	End Try

End Sub