رفتن به مطلب
  • 0

مشکل در آپدیت و خواندن دیتابیس


matinmatin79

سوال

سلام و خسته نباشید خدمت دوستان

من یه برنامه نوشتم که می خوام رنگ اکتیویتی رو از دیتابیس بخونه ، و همچنین کاربر با کلیک روی گزینه های اسپینر بتونه رنگ اکتیوتی رو عوض کنه و وقتی که عوض کرد تو دیتابیس رنگ آپدیت بشه

این کد من هست از اول تا آخر این اکتیوتی. برنامه به خوبی اجرا میشه اما تا به این اکتیوتی میرسه بر می گرده به اکتیوتی اول یا به اصطلاح برنامه رفرش میشه

لطفا کمک کنید
 
این هم کد اکتیوتی first_option
 
#Region  Activity Attributes 
#FullScreen: False
#IncludeTitle: True
#End Region
 
Sub Process_Globals
Dim sql1 As SQL
Dim a1 As Char
Dim cur1 As Cursor
End Sub
 
Sub Globals
Private Spinner1 As Spinner
End Sub
 
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("first_option")
 
If File.Exists(File.DirInternal,"start1.db") = False Then
File.Copy(File.DirAssets,"start1.db",File.DirInternal,"start1.db")
End If
 
If sql1.IsInitialized=False Then
sql1.Initialize(File.DirInternal,"start1.db",True)
End If
 
cur1 = sql1.ExecQuery("SELECT * from app_color")
 
a1 = cur1.GetString("app_color")
 
If a1 = "#EF5350" Then
Activity.Color = HEX("#EF5350")
End If
 
If a1 = "#EF5350" Then
Activity.Color = HEX("#EC407A")
End If
 
If a1 = "#EF5350" Then
Activity.Color = HEX("#AB47BC")
End If
If a1 = "#EF5350" Then
Activity.Color = HEX("#7E57C2")
End If
If a1 = "#EF5350" Then
Activity.Color = HEX("#3F51B5")
End If
If a1 = "#EF5350" Then
Activity.Color = HEX("#2196F3")
End If
If a1 = "#EF5350" Then
Activity.Color = HEX("#039BE5")
End If
If a1 = "#EF5350" Then
Activity.Color = HEX("#00ACC1")
End If
If a1 = "#EF5350" Then
Activity.Color = HEX("#009688")
End If
If a1 = "#EF5350" Then
Activity.Color = HEX("#4CAF50")
End If
If a1 = "#EF5350" Then
Activity.Color = HEX("#9CCC65")
End If
If a1 = "#EF5350" Then
Activity.Color = HEX("#D4E157")
End If
If a1 = "#EF5350" Then
Activity.Color = HEX("#FFEB3B")
 
End If
If a1 = "#EF5350" Then
Activity.Color = HEX("#FFC107")
 
End If
If a1 = "#EF5350" Then
Activity.Color = HEX("#FFA726")
 
End If
If a1 = "#EF5350" Then
Activity.Color = HEX("#FF5722")
 
End If
If a1 = "#EF5350" Then
Activity.Color = HEX("#795548")
 
End If
 
Spinner1.Add("قرمز")
Spinner1.Add("صورتی")
Spinner1.Add("بنفش")
Spinner1.Add("بنفش تیره")
Spinner1.Add("نیلی")
Spinner1.Add("آبی")
Spinner1.Add("آبی روشن")
Spinner1.Add("فیروزه ای")
Spinner1.Add("سبز تیره")
Spinner1.Add("سبز چمنی")
Spinner1.Add("سبز روشن")
Spinner1.Add("لیمویی")
Spinner1.Add("زرد")
Spinner1.Add("کهربایی")
Spinner1.Add("نارنجی")
Spinner1.Add("نارنجی تیره")
Spinner1.Add("قهوه ای")
 
 
 
 
 
End Sub
 
Sub Activity_Resume
 
End Sub
 
Sub Activity_Pause (UserClosed As Boolean)
 
End Sub
 
 
 
Sub Spinner1_ItemClick (Position As Int, Value As Object)
If Position = 0 Then
sql1.ExecNonQuery(" UPDATE start SET app_color = '#EF5350' ")
End If
If Position = 1 Then
sql1.ExecNonQuery(" UPDATE start SET app_color = '#EC407A' ")
End If
If Position = 2 Then
sql1.ExecNonQuery(" UPDATE start SET app_color = '#AB47BC' ")
End If
If Position = 3 Then
sql1.ExecNonQuery(" UPDATE start SET app_color = '#7E57C2' ")
End If
If Position = 4 Then
sql1.ExecNonQuery(" UPDATE start SET app_color = '#3F51B5' ")
End If
If Position = 5 Then
sql1.ExecNonQuery(" UPDATE start SET app_color = '#2196F3' ")
End If
If Position = 6 Then
sql1.ExecNonQuery(" UPDATE start SET app_color = '#039BE5' ")
End If
If Position = 7 Then
sql1.ExecNonQuery(" UPDATE start SET app_color = '#00ACC1' ")
End If
If Position = 8 Then
sql1.ExecNonQuery(" UPDATE start SET app_color = '#009688' ")
End If
If Position = 9 Then
sql1.ExecNonQuery(" UPDATE start SET app_color = '#4CAF50' ")
End If
If Position = 10 Then
sql1.ExecNonQuery(" UPDATE start SET app_color = '#9CCC65' ")
End If
If Position = 11 Then
sql1.ExecNonQuery(" UPDATE start SET app_color = '#D4E157' ")
End If
If Position = 12 Then
sql1.ExecNonQuery(" UPDATE start SET app_color = '#FFEB3B' ")
End If
If Position = 13 Then
sql1.ExecNonQuery(" UPDATE start SET app_color = '#FFC107' ")
End If
If Position = 14 Then
sql1.ExecNonQuery(" UPDATE start SET app_color = '#FFA726' ")
End If
If Position = 15 Then
sql1.ExecNonQuery(" UPDATE start SET app_color = '#FF5722' ")
End If
If Position = 16 Then
sql1.ExecNonQuery(" UPDATE start SET app_color = '#795548' ")
End If
End Sub
 
Sub HEX(Code As String) As Int
Dim jo As JavaObject
jo.InitializeContext
Return jo.RunMethod("HEX", Array As Object(Code))
End Sub
#if java
import android.graphics.Color;
 
public int HEX(String Code){
return Color.parseColor(Code);
}
#end if

لینک ارسال
به اشتراک گذاری در سایت های دیگر

0 پاسخ به این سوال تاکنون داده شده است

ارسال های توصیه شده

هنوز برای این سوال پاسخی ارسال نشده است

بایگانی شده

این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.

مهمان
این موضوع برای عدم ارسال قفل گردیده است.
  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...