#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