تبدیل کدهای فراخوانی2 به نسخه 3

[love-learning 3]

سلام عزیزان

کدهای زیر رو که گذاشتم ببینید و لطفا هر کس میتونه برام تبدیل انجام بده

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

Activity (main)e

 
	
Sub Globals
	Private Listview1 As ListView
End Sub

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("Layout1")
	Listview1.AddTwoLinesAndBitmap2("second title","first title",LoadBitmap(File.DirAssets,"x.png"),1)
	Listview1.AddTwoLinesAndBitmap2("second title","first title",LoadBitmap(File.DirAssets,"xx.png"),2)
End Sub

Sub Listview1_ItemClick (Position As Int, Value As Object)
	If Value  = 1 Then
		StartActivity(tabel1)
		Else If Value = 2 Then
		StartActivity(tabel2)
			
	End If
End Sub

Activity(tabel1)e

Sub Process_Globals
	Dim sql1 As SQL
	Dim cur As Cursor
	Dim meghdar As String
End Sub

Sub Globals
	Private Listview1 As ListView
	Dim fara As Farakhani
End Sub

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("tabel1")
	fara.SingleLineTitr("data.db",sql1,cur,"SELECT * FROM tabel1",Listview1,"titr","id")
End Sub

Sub Listview1_ItemClick (Position As Int, Value As Object)
	meghdar = Value
	StartActivity(matn_tabel1)
End Sub

Activity(matn_tabel1)e

Sub Globals
Dim fara As Farakhani
Private Label1 As Label
End Sub

Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("matn")
fara.FarakhaniMatn("data.db",tabel1.sql1,tabel1.cur,"SELECT * FROM tabel1 WHERE id=",tabel1.meghdar,Label1,"matn")
End Sub

Activity (tabel2)e

Sub Process_Globals
	Dim meghdar2 As String
End Sub

Sub Globals
	Dim fara As Farakhani
	Private Listview1 As ListView
End Sub

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("tabel2")
    fara.SingleLineTitr("data.db",tabel1.sql1,tabel1.cur,"SELECT * FROM tabel2",Listview1,"titr","id")
End Sub

Sub Listview1_ItemClick (Position As Int, Value As Object)
	meghdar2 = Value
	StartActivity(matn_tabel2)
End Sub

Activity(matn_tabel2)e

Sub Globals
	Dim fara As Farakhani
    Private Label1 As Label
End Sub

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("matn")
fara.FarakhaniMatn("data.db",tabel1.sql1,tabel1.cur,"SELECT * FROM tabel2 WHERE id=",tabel2.meghdar2,Label1,"matn")
End Sub

[shahab.es 5,429]

سلام

کارایی کدتون رو دقیق نمیدونم درسته یا نه

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

 

 

Activity(tabel1)e

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("tabel1")
	fara.initialize("data.db","tabel1",True)
	fara.SingleLineTitr(Listview1,"titr","id")
End Sub

Activity(matn_tabel1)e

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("tabel1")
	fara.initialize("data.db","tabel1",True)
fara.FarakhaniMatn("id",tabel1.meghdar,Label1,"matn")

End Sub

Activity (tabel2)e

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("tabel2")
fara.initialize("data.db","tabel2",True)
fara.SingleLineTitr(Listview1,"titr","id")
End Sub

Activity(matn_tabel2)e

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("tabel1")
fara.initialize("data.db","tabel2",True)
fara.FarakhaniMatn("id",tabel1.meghdar,Label1,"matn")


End Sub

[love-learning 3]

مرسی شهاب جان با کمی تغییر درست شد