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

hamedafrough

سوال

سلام دوستان

عیدتون مبارک

من یه مولتی پنل آنلاین ساختم که در بخش تگ و سندرش برای دریافت ریز اطلاعات به مشکل خوردم

هر کاری میکنم نمیتونم ارتباط بین اطلاعات و جداول رو برقرار کنم

روال برنامم اینطوری هست که

1. در صفحه نشون دادن اعضا نام و نام خانوادگی رو بههمراه شماره آی دی نشون میده که این صفحه در دو لایه هست (یکی لایه اسکرول و یکی لایه جزییات مولتی پنل)

2. وقتی روی لیبل نام و نام خانوادگی کلیک میشه وارد اکتیویتی  دوم میشه که این اکتیویتی  هم دو لایه داره (یکی لایه اسکرول و یکی لایه فیلدهای ریز مشخصات)

3. وقتی روی لیبل نام و نام خانوادگی لانگ کلیک میشه وارد اکتیویتی  ویرایش اطلاعات میشه که این اکتیویتی  هم دو لایه داره (یکی اسکرول و یکی فیلدهای ویرایش اطلاعات) و البته این اکتیویتی ادیت تکس داره که هم ازش برای درج اطلاعات جدید استفاده میکنم هم برای ویرایش اطلاعات

حالا بین این چند اکتیویتی و لایه نمی تونم ارتباط برقرار کنم که با کلیک روی هر لیبل مشخصات همون فرد نمایش داده بشه

ممنون میشم کمکم کنید

کدهای اکتیویتی اول

Sub jobdone (job As HttpJob)
	
#region slvaza
	If job.Success=True Then
		ProgressDialogHide
		jp.Initialize(job.GetString)
		Dim list As List= jp.NextArray
		For i=0 To list.Size-1
			
			Dim p As Panel
			p.Initialize("p")
			slvaza.Panel.AddView(p,0%x,top,95%x,45%y)
			p.LoadLayout("lkoleaza_mpinfo")
'			pnlmain.Tag=i
			p.Tag=i
			top=top+7%y+0%x
	
			Main.map_title =list.Get(i)
			Dim plusname As String=Main.map_title.Get("famili")&" "&Main.map_title.Get("nam")
			lblmp_id.Text=Main.map_title.Get("id")
			lblmp_nam.Text=plusname
'			lblmp_id.Tag=i
			lblmp_nam.Tag=i
			
			lblmp_id.Tag=Main.map_title.Get("id")
			lblmp_nam.Tag=plusname
			
		Next
		slvaza.Panel.Height=top
	Else
		ProgressDialogHide
		ToastMessageShow("خطا در برقراری ارتباط با سرور",False)
	End If
	Main.ht1.Release
end sub

 

Sub lblmp_nam_Click
	Activity.Finish
	Dim btn_tag As Label
	btn_tag=Sender
'	ToastMessageShow(btn_tag.Tag,False)
	StartActivity(lkoleaza_slvlbl)
	lblmp_id.Tag=Main.map_title.Get("id")
End Sub

کدهای اکتیویتی دوم

Sub Activity_Create(FirstTime As Boolean)

	Activity.LoadLayout("lkoleaza_slvlbl")
	
	slvaza.Panel.LoadLayout("lkoleaza_lbldata")
	slvaza.Panel.Height=160%y
	
	Main.ht2.Initialize("show_ht",Me)
	Main.ht2.Download("http://hamedafrough.ir/misaq/mainapp/tabels/koleaza.php")
end sub
Sub JobDone(Job As HttpJob)
	
ProgressDialogHide
	If Job.Success=True Then
		jp.Initialize(Job.GetString)
		Dim list As List=jp.NextArray
		For i=0 To list.Size-1
			Main.map_title=list.Get(i)
			Dim p As Panel
			p.Initialize("p")
			slvaza.Panel.AddView(p,0%x,top,95%x,45%y)
			p.LoadLayout("lkoleaza_lbldata")
			p.Tag=i
			top=top+15%y+0%x
			Dim fn As String
			fn=Main.map_title.Get("famili")&" "&Main.map_title.Get("nam")
			lblid.Text=Main.map_title.Get("ID")
			lblfamili.Text= Main.map_title.Get("famili")
			lblnam.Text= Main.map_title.Get("nam")
			lblozvkod.Text= Main.map_title.Get("ozvkod")
			lblbirth.Text= Main.map_title.Get("birth")
			lblshenas.Text= Main.map_title.Get("shenas")
			lblkodemeli.Text= Main.map_title.Get("kodemeli")
			lblsadere.Text= Main.map_title.Get("sadere")
			lblmob1.Text= Main.map_title.Get("mob1")
			lblmob2.Text= Main.map_title.Get("mob2")
			lbltel1.Text= Main.map_title.Get("tel1")
			lbltel2.Text= Main.map_title.Get("tel2")
			lblfax.Text= Main.map_title.Get("fax")
			lblmail.Text= Main.map_title.Get("mail")
			lblmanzel.Text= Main.map_title.Get("manzel")
			lblkar.Text= Main.map_title.Get("kar")
			lbltelegram.Text= Main.map_title.Get("telegram")
			lblinsta.Text= Main.map_title.Get("insta")
			lblbale.Text= Main.map_title.Get("bale")
			lblsoroosh.Text= Main.map_title.Get("soroosh")
			lblozviat.Text=Main.map_title.Get("ozviat")
			lblvaziat.Text=Main.map_title.Get("vaziat")
			lbltozih.Text=Main.map_title.Get("tozih")
		Next
		slvaza.Panel.Height=top
	Else
		ToastMessageShow("لطفا اتصال برنامه به اینترنت را بررسی کنید",False)
	End If
	Main.ht2.Release
end sub

 

کدهای اکتیویتی سوم

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("lkoleaza_adddata")

	slvaza.Panel.LoadLayout("lkoleaza_data")
	slvaza.Panel.Height=190%y
	
	Main.ht1.Initialize("insert_ht",Me)
	Main.ht1.PostString("http://hamedafrough.ir/misaq/mainapp/tabels/insertdata.php","")
end sub

 

Sub lblsave_Click

	If txtfamili.Text="" Or txtnam.Text="" Or txtozvkod.Text="" Or txtmob1.Text="" Then
		ToastMessageShow("لطفا همه گزینه‌های ضروری را تکمیل کنید",False)
		txtfamili.HintColor=Colors.Red
		txtnam.HintColor=Colors.Red
		txtozvkod.HintColor=Colors.Red
		txtmob1.HintColor=Colors.Red
		Return
	Else
		
		Dim info1 As String
		info1="&famili=" &txtfamili.Text & "&nam=" &txtnam.Text & "&ozvkod=" &txtozvkod.text & "&birth=" & txtbirth.Text & "&shenas=" & txtshenas.text &"&kodemeli=" & txtkodemeli.text &"&sadere=" & txtsadere.text & "&tel1="& txttel1.Text & "&tel2=" & txttel2.text & "&mob1=" &txtmob1.Text & "&mob2=" & txtmob2.text & "&fax=" &txtfax.Text & "&mail=" & txtmail.text & "&manzel=" &txtmanzel.Text & "&kar=" & txtkar.text & "&telegram=" &txttelegram.Text & "&insta=" & txtinsta.text & "&bale=" &txtbale.Text & "&soroosh=" & txtsoroosh.text & "&ozviat=" &txtozviat.Text & "&vaziat=" & txtvaziat.text & "&tozih=" & txttozih.Text

		Main.ht1.PostString("http://hamedafrough.ir/misaq/mainapp/tabels/insertdata.php",info1)

	End If
	
End Sub

 

Sub jobdone(job As HttpJob)
	
	If job.Success=True Then
		ToastMessageShow("اطلاعات جدید وارد شد",False)
			
	End If
End Sub

 

 

 

 

 

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

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

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

در 14 ساعت قبل، Foruta_an گفته است :

توی Sub Process_Globals به تعداد مورد نیاز متغییر تعریف کنید موقع کلیک روی هر آیتم از مولتی پنل بیاید این متغییرهارو مقدار دهی کنید وقتی رفتید اکتیویتی دوم خواستید از همین مقادیر استفاده کنید به اینصورت هر متغییر رو صدا بزنید activity1.name

متوجه نشدم دقیق میخواید چکار کنید ولی ساده تر از این توضیح، واقعا سخته !

Sub Process_Globals
	Dim nam,famili,birth As String
End Sub


مثلا اینا توی اکتیویتی اول هست که اطلاعات رو از سرور میگیری حالا موقع کلیک روی هر آیتم از پنل باید اینارو مقدار دهی کنید

Sub btn_Click
	nam = lblnam.Text
	famili = lblfamili.Text
	birth = lblbirth.Text
End Sub

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

activity1.nam

activity1.famili

activity1.birth

 

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

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

بایگانی شده

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

  • کاربران آنلاین در این صفحه   0 کاربر

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