من چند تا فیلد دارم با یک اسپینر که گزینه هایی رو که ثابت هستن توی اسپینر تعریف کردم
حالا میخوام وقتی کاربر فیلدها رو پر کرد و یکی از گزینه های اسپینر رو انتخاب کرد، با زدن دکمه ثبت گزینه مربوطه هم همراه اطلاعات در دیتابیس انلاین ذخیره بشه
با کدی که نوشتم متن ذخیره شده در دیتابیس ناخواناست
ممنون میشم راهنماییم کنید
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("lnobat")
slvnobat.Panel.LoadLayout("lnobat_slv")
slvnobat.Panel.Height=100%y
Main.ht1.Initialize("job1",Me)
Main.ht2.Initialize("job2",Me)
Main.ht1.Download("http://hamedafrough.ir/misaq/mainapp/tabels/nobatcheck.php")
txtmoteqazifam.SetBackgroundImage(LoadBitmap(File.DirAssets,"txtpicfill.png"))
txtmoteqazinam.SetBackgroundImage(LoadBitmap(File.DirAssets,"txtpicfill.png"))
#region spinner
spnvasete.Add("")
spnvasete.Add("1")
spnvasete.Add("2")
spnvasete.Add("3")
spnvasete.Prompt=""
spnvasete.DropdownBackgroundColor=Colors.RGB(33,150,243)
spnvasete.TextColor=Colors.White
#end region
End Sub
Sub btnsabt_Click
lblsaf2.Text=""
Main.ht1.Download("http://hamedafrough.ir/misaq/mainapp/tabels/nobatcheck.php")
lblsaf2.Text=Main.ht1.GetString
Dim info As String
info="&famili=" &txtmoteqazifam.Text & "&nam=" & txtmoteqazinam.text & "&vasete=" & spnvasete
Main.ht2.PostString("http://hamedafrough.ir/misaq/mainapp/tabels/insertnobat.php",info)
End Sub
Sub jobdone (job1 As HttpJob)
If job1.success = True Then
lblsaf2.text = job1.GetString
End If
End Sub
Sub jobdone2 (job2 As HttpJob)
If job2.success = True Then
lblyou2.text = job2.GetString
End If
End Sub
سوال
hamedafrough 5
سلام دوستان
من چند تا فیلد دارم با یک اسپینر که گزینه هایی رو که ثابت هستن توی اسپینر تعریف کردم
حالا میخوام وقتی کاربر فیلدها رو پر کرد و یکی از گزینه های اسپینر رو انتخاب کرد، با زدن دکمه ثبت گزینه مربوطه هم همراه اطلاعات در دیتابیس انلاین ذخیره بشه
با کدی که نوشتم متن ذخیره شده در دیتابیس ناخواناست
ممنون میشم راهنماییم کنید
Sub Activity_Create(FirstTime As Boolean) Activity.LoadLayout("lnobat") slvnobat.Panel.LoadLayout("lnobat_slv") slvnobat.Panel.Height=100%y Main.ht1.Initialize("job1",Me) Main.ht2.Initialize("job2",Me) Main.ht1.Download("http://hamedafrough.ir/misaq/mainapp/tabels/nobatcheck.php") txtmoteqazifam.SetBackgroundImage(LoadBitmap(File.DirAssets,"txtpicfill.png")) txtmoteqazinam.SetBackgroundImage(LoadBitmap(File.DirAssets,"txtpicfill.png")) #region spinner spnvasete.Add("") spnvasete.Add("1") spnvasete.Add("2") spnvasete.Add("3") spnvasete.Prompt="" spnvasete.DropdownBackgroundColor=Colors.RGB(33,150,243) spnvasete.TextColor=Colors.White #end region End Sub
Sub btnsabt_Click lblsaf2.Text="" Main.ht1.Download("http://hamedafrough.ir/misaq/mainapp/tabels/nobatcheck.php") lblsaf2.Text=Main.ht1.GetString Dim info As String info="&famili=" &txtmoteqazifam.Text & "&nam=" & txtmoteqazinam.text & "&vasete=" & spnvasete Main.ht2.PostString("http://hamedafrough.ir/misaq/mainapp/tabels/insertnobat.php",info) End Sub
Sub jobdone (job1 As HttpJob) If job1.success = True Then lblsaf2.text = job1.GetString End If End Sub
Sub jobdone2 (job2 As HttpJob) If job2.success = True Then lblyou2.text = job2.GetString End If End Sub
(B4ASpinner): Left=36, Top=210, Width=360, Height=74, Tag=
این کدهای php منه
کد ورود اطلاعات
اینم کد چک کردن تعداد نفرات ثبت شده هست
لینک ارسال
به اشتراک گذاری در سایت های دیگر
1 پاسخ به این سوال تاکنون داده شده است
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.