فرض کنید ما توی سایتمون یک صفحه ثبت نام داریم،شامل چند تا ادیت تکست به همراه باتن ثبت.
سوال من اینه که در حالت عادی اگه کاربر بخاد ثبت نام کنه،بعد پر کردن فرم باید روی ثبت کلیک کنه تا به دیتابیس ارسال بشه.
خاستم ببینم چطوری میشه این باتن رو به داخل برنامه آورد؟آیا راهی به غیر گت المنت وجود داره؟
این کدیه که واسه پر کردن فرم نوشتم
Sub Globals
Dim cmdSubmit As Button
cmdSubmit.Initialize("cmdSubmit")
cmdSubmit.Text = "Submit"
Private Editanswer As EditText
Private Editmail As EditText
Private Editname As EditText
Private Editpass As EditText
Private Editrepass As EditText
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("Lay")
End Sub
Sub cmdSubmit_Click
Dim jobPost As HttpJob
Dim jobesm As HttpJob
Dim jobmail As HttpJob
Dim jobpass As HttpJob
Dim jobrepass As HttpJob
Dim jobques As HttpJob
jobPost.Initialize("JobPostName",Me)
jobPost.PostString("http://kardarim.ir/register/index","name" & Editname.Text )
jobmail.Initialize("jobmail",Me)
jobmail.PostString("http://kardarim.ir/register/index","email" & Editmail.Text )
jobpass.Initialize("jobpass",Me)
jobpass.PostString("http://kardarim.ir/register/index","pass" & Editpass.Text )
jobrepass.Initialize("jobrepass",Me)
jobrepass.PostString("http://kardarim.ir/register/index","re_pass" & Editrepass.Text )
jobques.Initialize("jobques",Me)
jobques.PostString("http://kardarim.ir/register/index","answer" & Editanswer.Text )
End Sub
سوال
amirjun32 105
سلام.
ببخشید یک سوال دارم ک ذهنمو درگیر کرده.
فرض کنید ما توی سایتمون یک صفحه ثبت نام داریم،شامل چند تا ادیت تکست به همراه باتن ثبت.
سوال من اینه که در حالت عادی اگه کاربر بخاد ثبت نام کنه،بعد پر کردن فرم باید روی ثبت کلیک کنه تا به دیتابیس ارسال بشه.
خاستم ببینم چطوری میشه این باتن رو به داخل برنامه آورد؟آیا راهی به غیر گت المنت وجود داره؟
این کدیه که واسه پر کردن فرم نوشتم
Sub Globals Dim cmdSubmit As Button cmdSubmit.Initialize("cmdSubmit") cmdSubmit.Text = "Submit" Private Editanswer As EditText Private Editmail As EditText Private Editname As EditText Private Editpass As EditText Private Editrepass As EditText End Sub Sub Activity_Create(FirstTime As Boolean) Activity.LoadLayout("Lay") End Sub Sub cmdSubmit_Click Dim jobPost As HttpJob Dim jobesm As HttpJob Dim jobmail As HttpJob Dim jobpass As HttpJob Dim jobrepass As HttpJob Dim jobques As HttpJob jobPost.Initialize("JobPostName",Me) jobPost.PostString("http://kardarim.ir/register/index","name" & Editname.Text ) jobmail.Initialize("jobmail",Me) jobmail.PostString("http://kardarim.ir/register/index","email" & Editmail.Text ) jobpass.Initialize("jobpass",Me) jobpass.PostString("http://kardarim.ir/register/index","pass" & Editpass.Text ) jobrepass.Initialize("jobrepass",Me) jobrepass.PostString("http://kardarim.ir/register/index","re_pass" & Editrepass.Text ) jobques.Initialize("jobques",Me) jobques.PostString("http://kardarim.ir/register/index","answer" & Editanswer.Text ) End Subتشکر از راهنماییتون
لینک ارسال
به اشتراک گذاری در سایت های دیگر
0 پاسخ به این سوال تاکنون داده شده است
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.