حذف رکورد از مولتی پنل آنلاین

[hamed255 0]

سلام شب خوش

دوستان من یه مولتی پنل نوشتم که وقتی روی اسامی کاربرها کلیک میشه مشخصات اونها رو به درستی نشون میده اما برای حذف کاربرها مشکل دارم و نمیتونم کدنویسی کنم
خواهش میکنم کمکم کنید تا این بخشو کامل کنم

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

خدا خیرتون بده

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

Sub jobdone (job As HttpJob)
	
	If job.Success=True Then
		If job.JobName="ht1" Then
		ProgressDialogHide
		jp.Initialize(job.GetString)
		Main.list=jp.NextArray

		For i=0 To Main.list.Size-1
			p.Initialize("p")
			slvaza.Panel.AddView(p,0%x,top,95%x,45%y)
			p.LoadLayout("lkoleaza_mpinfo")
			p.Tag=i
			top=top+7%y+0%x
			
			Main.map_title=Main.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")
			
			lblozvkod.Text=Main.map_title.Get("ozvkod")
			lblsemat.Text=Main.map_title.Get("semat")
			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")
			lblmeil.Text=Main.map_title.Get("meil")
			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")

			lblmp_nam.Text=plusname
			lblmp_nam.Tag=i

		Next
		slvaza.Panel.Height=top
	Else
		ToastMessageShow("خطا در برقراری ارتباط با سرور",False)
	End If
	End If
	Main.ht1.Release

end sub

-------------------------------------------------------------

Sub lblmp_nam_Click
	Activity.Finish
	Dim btn_tag As Label
	btn_tag=Sender
	Log(btn_tag.Tag)
	Main.map_title = Main.list.get(btn_tag.tag)
	StartActivity(lkoleaza_slvlbl)
End Sub

-------------------------------------------------------------

 

 

 

 

[mohsen m 155]

سلام

شما برای حذف به یه جاب دیگه نیاز دارید و یه سند پی اچ پی دیگه. 

موقع کلیک روی هر مولتی پنل پوزیشن یا آی دی اونا بگیرید و بر اساس اون مقداری که گرفتید، اونا از دیتابیس حذف کنید و مولتی پنل را دوباره رفرش کنید.

Sub btnOptions_Click
	Private btn As Button = Sender
	Dim ii As Int = btn.Tag
	httpDelete.PostString("http://Site Address/delete.php","id="&ii)
	...
End Sub

***PHP
$query="DELETE FROM tbl WHERE id=".$_POST['id'];
...

 

[hamedafrough 5]

در 3 ساعت قبل، mohsen m گفته است :

سلام

شما برای حذف به یه جاب دیگه نیاز دارید و یه سند پی اچ پی دیگه. 

موقع کلیک روی هر مولتی پنل پوزیشن یا آی دی اونا بگیرید و بر اساس اون مقداری که گرفتید، اونا از دیتابیس حذف کنید و مولتی پنل را دوباره رفرش کنید.

Sub btnOptions_Click
	Private btn As Button = Sender
	Dim ii As Int = btn.Tag
	httpDelete.PostString("http://Site Address/delete.php","id="&ii)
	...
End Sub

***PHP
$query="DELETE FROM tbl WHERE id=".$_POST['id'];
...

 

سلام

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

میشه بیشتر توضیح بدید؟