فراخوانی دیتابیسی با bottom

[mohamad9204 19]

سلام دوستان

من یه اکتیویتی تعریف کردم با 10تا دکمه 5 تا ماله متن 5 تا ماله فیلم

روبه روی هم هم هستند

میخواستم ببینم با چه کدی میتوننم دیتابیس رو فرا خونی کنم که با کلیک روی هر دکمه متن مربوط به اون در یک اکتیویتی جدا نمایش داده شده باشه

لطفا اگه امکانش هست با کد توضیح بدید

لیست ویو نمیخوام فقط دکمه

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

پیشاپیش ازتون ممنونم

[mohamad9204 19]

اقا واقعا شرمندم بازم نتونستم

سورسو میزارم ببینید

[alirezakazemizaroomi 437]

کدهات اینطوری تغیربده:

 

Sub Process_Globals
Dim sql1 As SQL
Dim parts() As String
End Sub


Sub Globals
Dim Cur1 As Cursor
Private ButtonFilm As Button
Private ButtonText As Button
Private Panel1 As Panel
Private ScrollView1 As ScrollView
Dim p As Panel
Dim Stopint As Int=5%y
End Sub


Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("scv")
If File.Exists(File.DirInternal,"film1.db")=False Then
File.Copy(File.DirAssets,"film1.db",File.DirInternal,"film1.db")
End If
    sql1.Initialize(File.DirInternal,"film1.db",False)
    Cur1=sql1.ExecQuery("SELECT * From tbl33")
    For i=0 To Cur1.RowCount-1
    Cur1.Position=i
    Dim p As Panel
    p.Initialize("p")
Dim Stopint As Int=5%y
    ScrollView1.Panel.AddView(p,0,Stopint,100%x,100%Y)
    Stopint=Stopint+105dip
    p.LoadLayout("pnl")
Panel1.Tag=Cur1.GetString("matn")
ButtonText.text=Cur1.GetString("matn")
 ButtonText.tag = Cur1.GetString("matn") & "#" & Cur1.GetString("fasl") 
Next
End Sub


Sub ButtonText_Click
Dim ad As Button
ad = Sender
    Dim parts() As String = Regex.split("#",ad.tag)
    StartActivity(matn)
End Sub

بعد تودیتابیستم برو قسمت دیزاین تیبل وid رو قفل کن.

[alirezakazemizaroomi 437]

سلام دوستان

من یه اکتیویتی تعریف کردم با 10تا دکمه 5 تا ماله متن 5 تا ماله فیلم

روبه روی هم هم هستند

میخواستم ببینم با چه کدی میتوننم دیتابیس رو فرا خونی کنم که با کلیک روی هر دکمه متن مربوط به اون در یک اکتیویتی جدا نمایش داده شده باشه

لطفا اگه امکانش هست با کد توضیح بدید

لیست ویو نمیخوام فقط دکمه

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

پیشاپیش ازتون ممنونم

سلام

تو اکتیویتی main این کدههارو بنویس:

If File.Exists(File.DirInternal,"film.db")=False Then
File.Copy(File.DirAssets,"film.db",File.DirInternal,"film.db")
End If
    sql1.Initialize(File.DirInternal,"film.db",False)
    Cur1=sql1.ExecQuery("SELECT * From tbl33 ORDER BY ID DESC")
    For i=0 To Cur1.RowCount-1
    Cur1.Position=i
Button1.Text=Cur1.GetString("name")
   Button1.tag = Cur1.GetString("text") & "#" & Cur1.GetString("name")
Next

Sub Button1_Click
Dim ad As Button
ad = Sender
    Dim parts() As String = Regex.split("#",ad.tag)
    StartActivity(matn)
End Sub

 

 

تو اکتیویتی matn  این کدو بنویس:

Label1 همون لیبلی که متنتو نشون میده.

Label1.text=Main.parts(0)

[mohamad9204 19]

اقا ابن خطا رو میده 

در ضمن برای چهار دکمه بعدی همون کد رو اضافه کنم

s3.picofile.com/file/8210631376/Capture.PNG

[alirezakazemizaroomi 437]

ببین 

تو لایوت scv یه ScrollView تعریف کن بعد تو لایوت pnl یه پنل تعریف کن وداخل پنل اون دوتا دکمه ای که گفتی که یکی برای متن یکی برای فیلم؛رو تعریف کن.

تو اکتیویتی main این کدههارو بنویس:

Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("scv")
If File.Exists(File.DirInternal,"film.db")=False Then
File.Copy(File.DirAssets,"film.db",File.DirInternal,"film.db")
End If
    sql1.Initialize(File.DirInternal,"film.db",False)
    Cur1=sql1.ExecQuery("SELECT * From tbl33 ORDER BY ID DESC")
    For i=0 To Cur1.RowCount-1
    Cur1.Position=i
    Dim p As Panel
    p.Initialize("p")
Dim Stopint As Int=10%y
    ScrollView1.Panel.AddView(p,0,Stopint,100%x,100%Y)
    Stopint=Stopint+105dip
    p.LoadLayout("pnl")
Panel1.Tag=Cur1.GetString("name")
 ButtonText.tag = Cur1.GetString("text") & "#" & Cur1.GetString("name") 
ButtonFilm.tag = Cur1.GetString("film") & "#" & Cur1.GetString("name")
Next

Sub ButtonText_Click
Dim ad As Button
ad = Sender
    Dim parts() As String = Regex.split("#",ad.tag)
    StartActivity(matn)
End Sub

تو اکتیویتی matn  این کدو بنویس:

Label1 همون لیبلی که متنتو نشون میده.

Label1.text=Main.parts(0)