#Region Activity Attributes #FullScreen: False #IncludeTitle: false #End Region Sub Process_Globals Dim user_id As String End Sub Sub Globals Dim ime As IME Dim ff As PhoneEvents Dim top As Int=1%x Dim p As Panel Dim jp As JSONParser Private slvaza As ScrollView Private lblcancel As Label Private lblsave As Label Private lblteldata As Label Private lblozviatinfo As Label Private spnvaminfo As Spinner Private spnozviat As Spinner Private spnozviat2 As Spinner Private pnlmain As Panel Private lblfardidata As Label Private lbl_famili As Label Private txt_spnozviat As EditText Private txt_spnozviat2 As EditText Private txt_spnvaminfo As EditText Private txtfamili As EditText Private txtnam As EditText Private txtozvkod As EditText Private txtsemat As EditText Private txtbirth As EditText Private txtshenas As EditText Private txtkodemeli As EditText Private txtsadere As EditText Private txtmob1 As EditText Private txtmob2 As EditText Private txttel1 As EditText Private txttel2 As EditText Private txtfax As EditText Private txtmail As EditText Private txtmanzel As EditText Private txtkar As EditText Private txttelegram As EditText Private txtinsta As EditText Private txtbale As EditText Private txtsoroosh As EditText Private txtvasete As EditText Private txttozih As EditText End Sub Sub Activity_Create(FirstTime As Boolean) Activity.LoadLayout("frm_aza_kol_update_slv") ff.Initialize("ff") Main.ht1.Initialize("ht1",Me) ProgressDialogShow("درحال برقراری با سرور. لطفا صبر کنید...") Main.ht1.Download("http://hamedafrough.ir/misaq/m_koleaza.php") Main.ht2.Initialize("ht_update",Me) #region two ' کادر دادن به ادیت تکست در بخش درج پیام Dim p2 As Phone txtfamili.Initialize("txtfamili") txtfamili.Background = p2.GetResourceDrawable(17301528) txtnam.Initialize("txtnam") txtnam.Background = p2.GetResourceDrawable(17301528) txtozvkod.Initialize("txtozvkod") txtozvkod.Background = p2.GetResourceDrawable(17301528) txtsemat.Initialize("txtsemat") txtsemat.Background = p2.GetResourceDrawable(17301528) txtbirth.Initialize("txtbirth") txtbirth.Background = p2.GetResourceDrawable(17301528) txtshenas.Initialize("txtshenas") txtshenas.Background = p2.GetResourceDrawable(17301528) txtkodemeli.Initialize("txtkodemeli") txtkodemeli.Background = p2.GetResourceDrawable(17301528) txtsadere.Initialize("txtsadere") txtsadere.Background = p2.GetResourceDrawable(17301528) txttel1.Initialize("txttel1") txttel1.Background = p2.GetResourceDrawable(17301528) txttel2.Initialize("txttel2") txttel2.Background = p2.GetResourceDrawable(17301528) txtmob1.Initialize("txtmob1") txtmob1.Background = p2.GetResourceDrawable(17301528) txtmob2.Initialize("txtmob2") txtmob2.Background = p2.GetResourceDrawable(17301528) txtfax.Initialize("txtfax") txtfax.Background = p2.GetResourceDrawable(17301528) txtmail.Initialize("txtmail") txtmail.Background = p2.GetResourceDrawable(17301528) txtmanzel.Initialize("txtmanzel") txtmanzel.Background = p2.GetResourceDrawable(17301528) txtkar.Initialize("txtkar") txtkar.Background = p2.GetResourceDrawable(17301528) txttelegram.Initialize("txttelegram") txttelegram.Background = p2.GetResourceDrawable(17301528) txtinsta.Initialize("txtinsta") txtinsta.Background = p2.GetResourceDrawable(17301528) txtbale.Initialize("txtbale") txtbale.Background = p2.GetResourceDrawable(17301528) txtsoroosh.Initialize("txtsoroosh") txtsoroosh.Background = p2.GetResourceDrawable(17301528) txttozih.Initialize("txttozih") txttozih.Background = p2.GetResourceDrawable(17301528) txtvasete.Initialize("txtvasete") txtvasete.Background = p2.GetResourceDrawable(17301528) #end region End Sub ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' تعریف رویداد بررسی اتصال اینترنت Sub ff_ConnectivityChanged (NetworkType As String, State As String, Intent As Intent) If State = "CONNECTED" Then Else Msgbox("Please check internet","") End If End Sub ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' تعریف دکمه بازگشت سخت افزاری Sub Activity_KeyPress (KeyCode As Int) As Boolean 'Return True to consume the event If KeyCode = KeyCodes.KEYCODE_BACK Then Activity.Finish StartActivity(frm_aza_mainpage) End If Return True End Sub ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' تعریف جاب دان Sub jobdone (job As HttpJob) #region update Try If job.Success=True Then ProgressDialogHide If job.Success=True Then If job.jobname = "ht1" Then jp.Initialize(job.GetString) Main.list=jp.NextArray Dim p As Panel p.Initialize("p") slvaza.Panel.AddView(p,0%x,top,95%x,60%y) p.LoadLayout("frm_aza_kol_update") p.Height=190%y top=top+190%y+0%x user_id=Main.map_title.Get("user_id") txtfamili.Text=Main.map_title.Get("famili") txtnam.Text=Main.map_title.Get("nam") txtozvkod.Text=Main.map_title.Get("ozvkod") txtsemat.Text=Main.map_title.Get("semat") txtbirth.Text=Main.map_title.Get("birth") txtshenas.Text=Main.map_title.Get("shenas") txtkodemeli.Text=Main.map_title.Get("kodemeli") txtsadere.Text=Main.map_title.Get("sadere") txtmob1.Text=Main.map_title.Get("mob1") txtmob2.Text=Main.map_title.Get("mob2") txttel1.Text=Main.map_title.Get("tel1") txttel2.Text=Main.map_title.Get("tel2") txtfax.Text=Main.map_title.Get("fax") txtmail.Text=Main.map_title.Get("meil") txtmanzel.Text=Main.map_title.Get("manzel") txtkar.Text=Main.map_title.Get("kar") txttelegram.Text=Main.map_title.Get("telegram") txtinsta.Text=Main.map_title.Get("insta") txtbale.Text=Main.map_title.Get("bale") txtsoroosh.Text=Main.map_title.Get("soroosh") txtvasete.Text=Main.map_title.Get("vasete") txttozih.Text=Main.map_title.Get("tozih") txt_spnozviat.Text=Main.map_title.Get("ozviat") txt_spnozviat2.Text=Main.map_title.Get("vaziat") txt_spnvaminfo.Text=Main.map_title.Get("vaminfo") slvaza.Panel.Height=pnlmain.Height Else ToastMessageShow("لطفا اتصال برنامه به اینترنت را بررسی کنید",False) End If End If End If Main.ht1.Release Catch ToastMessageShow("خطا! لطفا صفحه را بازآماد کنید",False) End Try #end region End Sub Sub lblsave_Click #region 0 Try Dim btn_tag_update As Label btn_tag_update=Sender Log(btn_tag_update.Tag) Dim up_info As String up_info= "user_id=" & user_id & "famili=" & txtfamili.Text & "nam=" & txtnam.Text & "ozvkod=" & txtozvkod.Text& "semat=" & txtsemat.Text & "birth=" & txtbirth.Text _ & "shenas=" & txtshenas.Text & "kodemeli=" & txtkodemeli.Text & "sadere=" & txtsadere.Text & "tel1=" & txttel1.Text & "tel2=" & txttel2.Text _ & "mob1=" & txtmob1.Text & "mob2=" & txtmob2.Text & "fax=" & txtfax.Text & "meil=" & txtmail.Text & "manzel=" & txtmanzel.Text & "kar=" & txtkar.Text _ & "telegram=" & txttelegram.Text & "insta=" & txtinsta.Text & "bale=" & txtbale.Text & "soroosh=" & txtsoroosh.Text & "tozih=" & txttozih.Text _ & "vasete=" & txtvasete.Text & "vaminfo=" & txt_spnvaminfo.Text & "ozviat=" & txt_spnozviat.Text & "vaziat=" & txt_spnozviat2.Text Main.ht2.PostString("http://hamedafrough.ir/misaq/m_koleaza_update.php","user_id=" & user_id & up_info) ime.HideKeyboard ToastMessageShow("UPDATED",False) Catch ToastMessageShow("Error",False) End Try #end region End Sub Sub lblcancel_Click Activity.Finish StartActivity(frm_aza_kol_list_slv) End Sub