مشکل با درون پرداخت (فعال کردن اکتویتی دیگر)

[vistamobile 1,700]

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

من یه دیتا بیس دارم با دوتا فیلد خوب الان تو قسمت درون پرداخت میخوام بگم که بیا اگر پرداخت موفق بود فیلد golden رو برابر یک قرار بده و تو منوی اصلی هم یه لیبل گذاشتم رو باتون ها که اگر فیلد golden مساوی یک بود این لیبل کلا بره کنار. حالا تو همون ذخیره کردن دیتا بیس موندم (نخند شمام سه روز نخواب ببین چی میشه  ) دوستان  کسی هست کمک برسونه؟  

 

1 - معرفی دیتا بیس در اکتویتی main

 

2 - گذاشتن شرط برای فعال یا غیرفعال بودن لیبل در Sub Activity_Resume

 

3 - چگونی تغیر عدد داخل فیلد در رویداد باتون خرید 

[abbas2142 557]

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

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

Sub pardakht_PurchaseCompleted (Success As Boolean, Product As Purchase)
	If Success=True Then
		If Product.DeveloperPayload="pardakht1" Then
			ToastMessageShow("پرداخت انجام شد",False)
			File.WriteString(File.DirInternal,"name.txt","name")
			
		End If 
	Else
		ToastMessageShow("پرداخت صورت نگرفت",False)
	End If
End Sub

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


Sub ListView1_ItemClick (Position As Int, Value As Object)

	If (Position>9) And (File.Exists(File.DirInternal,"name.txt") =False) Then
    Msgbox("نیاز به فعال سازی کامل برنامه","توجه")
    Else
    Main.khandan=Value
    StartActivity(khandanmatn)
    End If
	
End Sub

[vistamobile 1,700]

داداش این با تکست زدی من دیتا بیس دارم. میخوام فیلد رو دستکاری کنم. خودم اینجوری کار کردم امنیت نداره!! درون پرداختم 10000 تومنه واسه هر فایل!! میخوام دیتا بیس رو نغییر بدم و با امنیت هم تضمینش کنم. ممنون بایت پاسخ

[vistamobile 1,700]

عاقا مشکل من حاد شد!! هر کاری میکنم واسه درون پرداخت هیچ اتقافی نمیافته!! فقط میکه لطفا منتظر باشید و بعدش هیچی !! الان بنظر دوستان این کد ایرادش کجاست؟؟

کلا هیچ هشداری در کار نیست یعنی نه خرید موفق و نه خرید ناموفق

Sub kharid_btn_Click
	pardakht.RequestPayment("test10","inapp","kharid2")
	
End Sub
Sub pardakh_PurchaseCompleted (Success As Boolean, Product As Purchase)
	If Success=True Then
				If Product.DeveloperPayload="kharid2" Then
			ToastMessageShow("پرداخت انجام شد",False)
			File.WriteString(File.DirInternal,"new.txt","name")
			
		End If 
	Else
		ToastMessageShow("پرداخت صورت نگرفت",False)
	End If
End Sub

اینم واسه صفحه اصلی گذاشتم :

Sub Activity_Resume
	If (File.Exists(File.DirInternal,"new.txt") =False) Then
    Msgbox("نیاز به فعال سازی کامل برنامه","توجه")
End If
If (File.Exists(File.DirInternal,"new.txt") =True) Then
	Panel1.Visible=False
End If
End Sub

[msajad 501]

برای تغییر یک قسمت از دیتا بیس از این کد استفاده کن

sql.ExecnonQuery(update اسم تیبل set اسم فیلد where شرط مورد نظر )

اونجا که اسم فیلد وارد کردی مساوی بزار جلوش مقدار جدید بنویس

[vistamobile 1,700]

داداش ممنون. الان مشکل کلا یه چیز دیگست!! برم با این تست بزنم ببینم رفع مشکل میشه

 

چجوری بگم که یه فیلد رو برابر با یک قرار بده؟

و چجوری بگم که اگه یه فیلد برابر با یک بود فلان چیز رو مخفی کن؟

[msajad 501]

داداش ممنون. الان مشکل کلا یه چیز دیگست!! برم با این تست بزنم ببینم رفع مشکل میشه

 

چجوری بگم که یه فیلد رو برابر با یک قرار بده؟ شما وقتی دیتا بیس میسازی داخلش یه مقدار اولیه داره حتی null مقدار اولیه هست شما از دستوری که دادم استفاده کن یه مثال میزنم متوجه شی

sql.ExecnonQuery(update tb1 set fild1='1' where id=5 )

و چجوری بگم که اگه یه فیلد برابر با یک بود فلان چیز رو مخفی کن؟ برای میایی فیلد رو فراخوانی میکنی میریزی تو یه متغیر بعد متغییر رو میزاری توشرط اگه برابر همونی که میخواستی بود بیاد فلان کار انجام بده