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

hamed255

سوال

سلام شب خوش

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

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

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

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

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

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

 

 

 

 

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

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

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

سلام

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

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

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'];
...

 

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

در 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'];
...

 

سلام

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

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

 

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

بایگانی شده

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

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

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