مولتی پنل آنلاین

[hamedafrough 5]

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

وقتی کلیک میکنم در قسمت لاگ اکوی php رو چاپ میکنه که اطلاعات پاک شده و جاب دان هم پیام میده که دیتا پاک شده اما اطلاعات در عمل پاک نمیشه

میخواستم اگر میشه راهنماییم کنید ایراد از چیه

ممنونم

این جاب دانمه
 

Select job.JobName
			Case "ht1"
				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")
						slv_kole_aza_list.Panel.AddView(p,0%x,top,95%x,45%y)
						p.LoadLayout("frm_aza_kol_multipanel")
						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")
						lblmp_nam.Text=plusname
						lblmp_nam.Tag=i
					Next
					If Main.list.Size=0 Then
						ToastMessageShow("فهرست اسامی خالی است!",False)
					End If
					slv_kole_aza_list.Panel.Height=top
				Else
					ToastMessageShow("خطا در برقراری ارتباط با سرور",False)
				End If
				Main.ht1.Release

				If job.JobName="ht4" Then
					job.GetString
					jp.Initialize(job.GetString)
					Log(job.GetString)
					ToastMessageShow("اطلاعات کاربر حذف شد",False)
				End If

 

اینم کد دکمه اس

Sub lbl_del_Click
	dim btn1 as label
	btn1=Sender
	Log(btn1.Tag)

	Dim xui As XUI
	Dim sf As Object = xui.Msgbox2Async("آیا برای حذف کاربر اطمینان دارید؟", "حذف اطلاعات کاربر", "بله", "", "خیر", Null)
	Wait For (sf) Msgbox_Result (Result As Int)
	If Result = xui.DialogResponse_Positive Then
		btn1.Tag=Main.map_title.Get("id")
		Main.ht4.PostString("http://hamedafrough.ir/misaq/m_deldata.php","id="&lblmp_id.Tag)
	End If
	Main.ht4.Release
End Sub

 

 

[hamedafrough 5]

دوستان و اساتید ممنون میشم کمک بدید مشکلو حل کنم

[mahdi tahan 723]

الان مشکلت پاک نشدن اطلاعات از تو دیتابیسته یا اینکه تو اپ میزنی دیلت ولی با اینکه از دیتابیس حذف میشه ولی ایتمایه قبل رو نشون میده؟

[hamedafrough 5]

در 3 ساعت قبل، mahdi tahan گفته است :

الان مشکلت پاک نشدن اطلاعات از تو دیتابیسته یا اینکه تو اپ میزنی دیلت ولی با اینکه از دیتابیس حذف میشه ولی ایتمایه قبل رو نشون میده؟

مشکلم اینه که تو اپ میزنم روی دکمه دیلیت پیام میده کاربر حذف شد، اما مولتی پنلو که رفرش میکنم می بینم هیچی حذف نشده

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

[mahdi tahan 723]

با این کد تست کن ببین پاک نمیشه؟

<?php
$servername = "localhost";
$username = "username";
$password = "password";
$dbname = "myDBPDO";

try {
    $conn = new PDO("mysql:host=$servername;dbname=$dbname", $username, $password);
    // تنظیم حالت برخورد با خطاها
    $conn->setAttribute(PDO::ATTR_ERRMODE, PDO::ERRMODE_EXCEPTION);

    // تنظیم کوئری حذف
    $sql = "DELETE FROM MyGuests WHERE id=3";

    // بدلیل اینکه کوئری نتیجه ای را برنمی گرداند از تابع زیر استفاده می کنیم
    $conn->exec($sql);
    echo "Record deleted successfully";
    }
catch(PDOException $e)
    {
    echo $sql . "<br>" . $e->getMessage();
    }

$conn = null;
?>

 

[hamedafrough 5]

در 5 ساعت قبل، mahdi tahan گفته است :

با این کد تست کن ببین پاک نمیشه؟

<?php
$servername = "localhost";
$username = "username";
$password = "password";
$dbname = "myDBPDO";

try {
    $conn = new PDO("mysql:host=$servername;dbname=$dbname", $username, $password);
    // تنظیم حالت برخورد با خطاها
    $conn->setAttribute(PDO::ATTR_ERRMODE, PDO::ERRMODE_EXCEPTION);

    // تنظیم کوئری حذف
    $sql = "DELETE FROM MyGuests WHERE id=3";

    // بدلیل اینکه کوئری نتیجه ای را برنمی گرداند از تابع زیر استفاده می کنیم
    $conn->exec($sql);
    echo "Record deleted successfully";
    }
catch(PDOException $e)
    {
    echo $sql . "<br>" . $e->getMessage();
    }

$conn = null;
?>

 

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

من فکر میکنم اینم ایراد داره

  $sql = "DELETE FROM MyGuests WHERE id=3";
بعد از where‌شاید درست ادرس نمیده که یک کاربر چطور باید حذف بشه اما همین دستورو بدون where‌برای حذف همه کاربرها نوشتم عمل میکنه

[mahdi tahan 723]

فیلد ایدی که داری؟

ایدی رو بزار رو یک ببین ایدی یک حذف نمیشه؟

اینم تست کن where رو به جای id  یک تیبل دیگت رو بزار.مثلا ایمیل.به جای یک هم ایمیل طرف رو بزار.ببین حذف میکنه

 

[hamedafrough 5]

در ۱ ساعت قبل، mahdi tahan گفته است :

فیلد ایدی که داری؟

ایدی رو بزار رو یک ببین ایدی یک حذف نمیشه؟

اینم تست کن where رو به جای id  یک تیبل دیگت رو بزار.مثلا ایمیل.به جای یک هم ایمیل طرف رو بزار.ببین حذف میکنه

 

من برای نمایش اطلاعاتم در فایل phpمربوطه از کانتر استفاده کردم تا مدام که ازمایش می کردم و کاربرا حذف و اضافه می شدن اعداد رو همیشه از یک شروع کنه برای همین اعداد آی دی در هاست سه رقمیه
اون اعداد رو که میدم برنامه ازد اخل اپ هم عمل میکنه مثلا آی دی 547
همون ردیفو پاک میکنه
اما سوال اینه که چطور کد php رو بنویسم که برای همه ردیف ها اعمال بشه؟

[Forutan 28]

در 16 ساعت قبل، hamedafrough گفته است :

 

مشکل شما در تگ و سندر هست!

شما دارید مقدار آیدی رو با lblmp_id.Tag ارسال میکنید، آیا این مقدار رو لاگ گرفتید تست کنید ببینید مقدارش صحیح هست یا نه؟!

بعد نقش اون btn1.Tag چیه داخل ساب کلیک؟

 

[hamedafrough 5]

در 16 ساعت قبل، For گفته است :

مشکل شما در تگ و سندر هست!

شما دارید مقدار آیدی رو با lblmp_id.Tag ارسال میکنید، آیا این مقدار رو لاگ گرفتید تست کنید ببینید مقدارش صحیح هست یا نه؟!

بعد نقش اون btn1.Tag چیه داخل ساب کلیک؟

 

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

			Case "ht4"
				If job.JobName = "ht4" Then
					Dim s As String
					s = job.GetString
					Log(s)
					Log (Main.map_title.Get("id"))
'					Main.ht4.PostString("http://hamedafrough.ir/misaq/m_deldata.php",lblmp_id.Tag)
					ToastMessageShow("اطلاعات کاربر حذف شد",False)
				End If
		End Select

قسمت برنامه دکمه حذف رو هم اینطوری تغییر دادم، قسمت تگشو
 

Private btn1 As Label
	btn1=Sender
	Log(btn1.Tag)

	Dim xui As XUI
	Dim sf As Object = xui.Msgbox2Async("آیا برای حذف کاربر اطمینان دارید؟", "حذف اطلاعات کاربر", "بله", "", "خیر", Null)
	Wait For (sf) Msgbox_Result (Result As Int)
	If Result = xui.DialogResponse_Positive Then
		Main.ht4.PostString("http://hamedafrough.ir/misaq/test.php","id="&btn1.Tag)

با این تغییرات اتفاقاتی افتاد که عرض کردم

btn1.Tag، این کدو برای این نوشتم که مثلا روی هر گزینه مولتی پنل کلیک شد فقط همونو پاک کنه که ظاهرا فقط آخرین گزینه رو تو لاگ نشون میده و رو هر گزینه ای بزنم فقط آخری رو لاگ میکنه

 

[Mr Mansour 325]

خوب برای اینکه اون ایتم از لیست شما حذف شه باید از scrollview متد  Panel.RemoveViewAt استفاده کنید. بنده تست نکردم اما باید جواب بده.

پیشنهاد بنده از recyclerview ویا xCustomlistView هستش که بهینه تر و قابلیت همگام سازی رو داراست. 

خیلی وقته که این مدل مولتی پنل ها از رده خارج شده و عملا منسوخ شده.  شاید الان نه ولی بعد ها با مشکلات بیشتری مواجع خواهید شد.

موفق باشید.

[hamedafrough 5]

در 19 دقیقه قبل، Mr Mansour گفته است :

خوب برای اینکه اون ایتم از لیست شما حذف شه باید از scrollview متد  Panel.RemoveViewAt استفاده کنید. بنده تست نکردم اما باید جواب بده.

پیشنهاد بنده از recyclerview ویا xCustomlistView هستش که بهینه تر و قابلیت همگام سازی رو داراست. 

خیلی وقته که این مدل مولتی پنل ها از رده خارج شده و عملا منسوخ شده.  شاید الان نه ولی بعد ها با مشکلات بیشتری مواجع خواهید شد.

موفق باشید.

ممنونم داداش
دنبال یادگیری اونا هم باید برم اما فعلا عجله دارم کارم راه بیافته تا سر حوصله اپدیت جدید برنامه رو با روش بهتری بنویسم
فعلا میخوام کارم راه بیافته تا بعد

[mahdi tahan 723]

دوست عزیز اطلاعات کجا میخواد پاک بشه؟

اگ منظورت دیتابیس انلاینته که باید کد php  رو بزاری

[hamedafrough 5]

در 3 ساعت قبل، mahdi tahan گفته است :

دوست عزیز اطلاعات کجا میخواد پاک بشه؟

اگ منظورت دیتابیس انلاینته که باید کد php  رو بزاری

عزیزجان
فایل php اینه

<?php
	$servername = "localhost";
	$username = "*****";
	$password = "****";
	$dbname = "****";
	
	$conn = new mysqli($servername, $username, $password, $dbname);
	
	if ($conn->connect_error) {
	  die("Connection failed: " . $conn->connect_error);
	}
		
	$sql="DELETE FROM tblusers1 WHERE id='$id'";
	
								  
	if ($conn->query($sql) === TRUE) {
	  echo "Record deleted successfully";
	} else {
	  echo "Error deleting record: " . $conn->error;
	}
	
	$conn->close();
	?>