اختلال در مولتی پنل آنلاین

Question

اختلال در مولتی پنل آنلاین

پرسش

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

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

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

ممنونم

این جاب دانمه

<span class="pln">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")&amp;" - "&amp;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</span>

۱

۲

۳

۴

۵

۶

۷

۸

۹

۱۰

۱۱

۱۲

۱۳

۱۴

۱۵

۱۶

۱۷

۱۸

۱۹

۲۰

۲۱

۲۲

۲۳

۲۴

۲۵

۲۶

۲۷

۲۸

۲۹

۳۰

۳۱

۳۲

۳۳

<span class="pln">Select job.JobName

Case "ht1"

If job.JobName="ht1" Then

ProgressDialogHide

jp.Initialize(job.GetString)

Main.list=jp.NextArray

For i=۰ To Main.list.Size-۱

p.Initialize("p")

slv_kole_aza_list.Panel.AddView(p,۰%x,top,۹۵%x,۴۵%y)

p.LoadLayout("frm_aza_kol_multipanel")

p.Tag=i

top=top+۷%y+۰%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

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</span>

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

<span class="pln">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://moonysky.ir/1/m_deldata.php","id="&amp;lblmp_id.Tag)
	End If
	Main.ht4.Release
End Sub</span>

۱

۲

۳

۴

۵

۶

۷

۸

۹

۱۰

۱۱

۱۲

۱۳

۱۴

<span class="pln">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://moonysky.ir/1/m_deldata.php","id="&lblmp_id.Tag)

End If

Main.ht4.Release

End Sub</span>

در انتظار پاسخ 0

برنامه نویسی اندروید, بیسیک فور اندروید hamedkhakee 1 ماه 4 پاسخ ها 234 بازدید کاربر جدید 0

درباره hamedkhakeeکاربر جدید

پاسخ ها ( ۴ )

نوشتن پاسخ

پرسش قبلی

پرسش بعدی

احمد آخوندی مدیر · Answer 1 · ۹۹/۱۱/۰۹

احمد آخوندی مدیر

2

۹۹/۱۱/۰۹ at ۰۰:۰۰

پاسخ

سلام

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

hamedkhakee کاربر جدید · Answer 2 · ۹۹/۱۱/۰۹

<?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();
	?>

۱

۲

۳

۴

۵

۶

۷

۸

۹

۱۰

۱۱

۱۲

۱۳

۱۴

۱۵

۱۶

۱۷

۱۸

۱۹

۲۰

۲۱

۲۲

۲۳

<?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();

?>

morteza پروفسور · Answer 3 · ۹۹/۱۱/۰۹

morteza پروفسور

1

۹۹/۱۱/۰۹ at ۱۱:۴۹

پاسخ

سلام.

آقا شما پارامتر ارسالیت برای اینکه عملیات حذف انجام بشه چیه؟!

من توی کدهای php ت پارامتر ارسالی ندیدم که دریافت بشه.

hamedkhakee کاربر جدید · Answer 4 · ۹۹/۱۱/۰۹

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

$sql=“DELETE FROM tblusers1 WHERE id=’$id'”;

اینم توی بیسیک نوشتم
Main.ht4.PostString(“http://moonysky.ir/1/m_deldata.php”,“id=”&lblmp_id.Tag)

ثبت نام کنید

ورود

فراموشی رمز عبور

پرسیدن سوال

اختلال در مولتی پنل آنلاین