من یه مولتی پنل آنلاین ساختم که در بخش تگ و سندرش برای دریافت ریز اطلاعات به مشکل خوردم
هر کاری میکنم نمیتونم ارتباط بین اطلاعات و جداول رو برقرار کنم
روال برنامم اینطوری هست که
1. در صفحه نشون دادن اعضا نام و نام خانوادگی رو بههمراه شماره آی دی نشون میده که این صفحه در دو لایه هست (یکی لایه اسکرول و یکی لایه جزییات مولتی پنل)
2. وقتی روی لیبل نام و نام خانوادگی کلیک میشه وارد اکتیویتی دوم میشه که این اکتیویتی هم دو لایه داره (یکی لایه اسکرول و یکی لایه فیلدهای ریز مشخصات)
3. وقتی روی لیبل نام و نام خانوادگی لانگ کلیک میشه وارد اکتیویتی ویرایش اطلاعات میشه که این اکتیویتی هم دو لایه داره (یکی اسکرول و یکی فیلدهای ویرایش اطلاعات) و البته این اکتیویتی ادیت تکس داره که هم ازش برای درج اطلاعات جدید استفاده میکنم هم برای ویرایش اطلاعات
حالا بین این چند اکتیویتی و لایه نمی تونم ارتباط برقرار کنم که با کلیک روی هر لیبل مشخصات همون فرد نمایش داده بشه
ممنون میشم کمکم کنید
کدهای اکتیویتی اول
Sub jobdone (job As HttpJob)
#region slvaza
If job.Success=True Then
ProgressDialogHide
jp.Initialize(job.GetString)
Dim list As List= jp.NextArray
For i=0 To list.Size-1
Dim p As Panel
p.Initialize("p")
slvaza.Panel.AddView(p,0%x,top,95%x,45%y)
p.LoadLayout("lkoleaza_mpinfo")
' pnlmain.Tag=i
p.Tag=i
top=top+7%y+0%x
Main.map_title =list.Get(i)
Dim plusname As String=Main.map_title.Get("famili")&" "&Main.map_title.Get("nam")
lblmp_id.Text=Main.map_title.Get("id")
lblmp_nam.Text=plusname
' lblmp_id.Tag=i
lblmp_nam.Tag=i
lblmp_id.Tag=Main.map_title.Get("id")
lblmp_nam.Tag=plusname
Next
slvaza.Panel.Height=top
Else
ProgressDialogHide
ToastMessageShow("خطا در برقراری ارتباط با سرور",False)
End If
Main.ht1.Release
end sub
Sub lblmp_nam_Click
Activity.Finish
Dim btn_tag As Label
btn_tag=Sender
' ToastMessageShow(btn_tag.Tag,False)
StartActivity(lkoleaza_slvlbl)
lblmp_id.Tag=Main.map_title.Get("id")
End Sub
کدهای اکتیویتی دوم
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("lkoleaza_slvlbl")
slvaza.Panel.LoadLayout("lkoleaza_lbldata")
slvaza.Panel.Height=160%y
Main.ht2.Initialize("show_ht",Me)
Main.ht2.Download("http://hamedafrough.ir/misaq/mainapp/tabels/koleaza.php")
end sub
Sub JobDone(Job As HttpJob)
ProgressDialogHide
If Job.Success=True Then
jp.Initialize(Job.GetString)
Dim list As List=jp.NextArray
For i=0 To list.Size-1
Main.map_title=list.Get(i)
Dim p As Panel
p.Initialize("p")
slvaza.Panel.AddView(p,0%x,top,95%x,45%y)
p.LoadLayout("lkoleaza_lbldata")
p.Tag=i
top=top+15%y+0%x
Dim fn As String
fn=Main.map_title.Get("famili")&" "&Main.map_title.Get("nam")
lblid.Text=Main.map_title.Get("ID")
lblfamili.Text= Main.map_title.Get("famili")
lblnam.Text= Main.map_title.Get("nam")
lblozvkod.Text= Main.map_title.Get("ozvkod")
lblbirth.Text= Main.map_title.Get("birth")
lblshenas.Text= Main.map_title.Get("shenas")
lblkodemeli.Text= Main.map_title.Get("kodemeli")
lblsadere.Text= Main.map_title.Get("sadere")
lblmob1.Text= Main.map_title.Get("mob1")
lblmob2.Text= Main.map_title.Get("mob2")
lbltel1.Text= Main.map_title.Get("tel1")
lbltel2.Text= Main.map_title.Get("tel2")
lblfax.Text= Main.map_title.Get("fax")
lblmail.Text= Main.map_title.Get("mail")
lblmanzel.Text= Main.map_title.Get("manzel")
lblkar.Text= Main.map_title.Get("kar")
lbltelegram.Text= Main.map_title.Get("telegram")
lblinsta.Text= Main.map_title.Get("insta")
lblbale.Text= Main.map_title.Get("bale")
lblsoroosh.Text= Main.map_title.Get("soroosh")
lblozviat.Text=Main.map_title.Get("ozviat")
lblvaziat.Text=Main.map_title.Get("vaziat")
lbltozih.Text=Main.map_title.Get("tozih")
Next
slvaza.Panel.Height=top
Else
ToastMessageShow("لطفا اتصال برنامه به اینترنت را بررسی کنید",False)
End If
Main.ht2.Release
end sub
کدهای اکتیویتی سوم
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("lkoleaza_adddata")
slvaza.Panel.LoadLayout("lkoleaza_data")
slvaza.Panel.Height=190%y
Main.ht1.Initialize("insert_ht",Me)
Main.ht1.PostString("http://hamedafrough.ir/misaq/mainapp/tabels/insertdata.php","")
end sub
Sub lblsave_Click
If txtfamili.Text="" Or txtnam.Text="" Or txtozvkod.Text="" Or txtmob1.Text="" Then
ToastMessageShow("لطفا همه گزینههای ضروری را تکمیل کنید",False)
txtfamili.HintColor=Colors.Red
txtnam.HintColor=Colors.Red
txtozvkod.HintColor=Colors.Red
txtmob1.HintColor=Colors.Red
Return
Else
Dim info1 As String
info1="&famili=" &txtfamili.Text & "&nam=" &txtnam.Text & "&ozvkod=" &txtozvkod.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 & "&mail=" & txtmail.text & "&manzel=" &txtmanzel.Text & "&kar=" & txtkar.text & "&telegram=" &txttelegram.Text & "&insta=" & txtinsta.text & "&bale=" &txtbale.Text & "&soroosh=" & txtsoroosh.text & "&ozviat=" &txtozviat.Text & "&vaziat=" & txtvaziat.text & "&tozih=" & txttozih.Text
Main.ht1.PostString("http://hamedafrough.ir/misaq/mainapp/tabels/insertdata.php",info1)
End If
End Sub
Sub jobdone(job As HttpJob)
If job.Success=True Then
ToastMessageShow("اطلاعات جدید وارد شد",False)
End If
End Sub
سوال
hamedafrough 5
سلام دوستان
عیدتون مبارک
من یه مولتی پنل آنلاین ساختم که در بخش تگ و سندرش برای دریافت ریز اطلاعات به مشکل خوردم
هر کاری میکنم نمیتونم ارتباط بین اطلاعات و جداول رو برقرار کنم
روال برنامم اینطوری هست که
1. در صفحه نشون دادن اعضا نام و نام خانوادگی رو بههمراه شماره آی دی نشون میده که این صفحه در دو لایه هست (یکی لایه اسکرول و یکی لایه جزییات مولتی پنل)
2. وقتی روی لیبل نام و نام خانوادگی کلیک میشه وارد اکتیویتی دوم میشه که این اکتیویتی هم دو لایه داره (یکی لایه اسکرول و یکی لایه فیلدهای ریز مشخصات)
3. وقتی روی لیبل نام و نام خانوادگی لانگ کلیک میشه وارد اکتیویتی ویرایش اطلاعات میشه که این اکتیویتی هم دو لایه داره (یکی اسکرول و یکی فیلدهای ویرایش اطلاعات) و البته این اکتیویتی ادیت تکس داره که هم ازش برای درج اطلاعات جدید استفاده میکنم هم برای ویرایش اطلاعات
حالا بین این چند اکتیویتی و لایه نمی تونم ارتباط برقرار کنم که با کلیک روی هر لیبل مشخصات همون فرد نمایش داده بشه
ممنون میشم کمکم کنید
کدهای اکتیویتی اول
Sub jobdone (job As HttpJob) #region slvaza If job.Success=True Then ProgressDialogHide jp.Initialize(job.GetString) Dim list As List= jp.NextArray For i=0 To list.Size-1 Dim p As Panel p.Initialize("p") slvaza.Panel.AddView(p,0%x,top,95%x,45%y) p.LoadLayout("lkoleaza_mpinfo") ' pnlmain.Tag=i p.Tag=i top=top+7%y+0%x Main.map_title =list.Get(i) Dim plusname As String=Main.map_title.Get("famili")&" "&Main.map_title.Get("nam") lblmp_id.Text=Main.map_title.Get("id") lblmp_nam.Text=plusname ' lblmp_id.Tag=i lblmp_nam.Tag=i lblmp_id.Tag=Main.map_title.Get("id") lblmp_nam.Tag=plusname Next slvaza.Panel.Height=top Else ProgressDialogHide ToastMessageShow("خطا در برقراری ارتباط با سرور",False) End If Main.ht1.Release end sub
Sub lblmp_nam_Click Activity.Finish Dim btn_tag As Label btn_tag=Sender ' ToastMessageShow(btn_tag.Tag,False) StartActivity(lkoleaza_slvlbl) lblmp_id.Tag=Main.map_title.Get("id") End Sub
کدهای اکتیویتی دوم
Sub Activity_Create(FirstTime As Boolean) Activity.LoadLayout("lkoleaza_slvlbl") slvaza.Panel.LoadLayout("lkoleaza_lbldata") slvaza.Panel.Height=160%y Main.ht2.Initialize("show_ht",Me) Main.ht2.Download("http://hamedafrough.ir/misaq/mainapp/tabels/koleaza.php") end sub
Sub JobDone(Job As HttpJob) ProgressDialogHide If Job.Success=True Then jp.Initialize(Job.GetString) Dim list As List=jp.NextArray For i=0 To list.Size-1 Main.map_title=list.Get(i) Dim p As Panel p.Initialize("p") slvaza.Panel.AddView(p,0%x,top,95%x,45%y) p.LoadLayout("lkoleaza_lbldata") p.Tag=i top=top+15%y+0%x Dim fn As String fn=Main.map_title.Get("famili")&" "&Main.map_title.Get("nam") lblid.Text=Main.map_title.Get("ID") lblfamili.Text= Main.map_title.Get("famili") lblnam.Text= Main.map_title.Get("nam") lblozvkod.Text= Main.map_title.Get("ozvkod") lblbirth.Text= Main.map_title.Get("birth") lblshenas.Text= Main.map_title.Get("shenas") lblkodemeli.Text= Main.map_title.Get("kodemeli") lblsadere.Text= Main.map_title.Get("sadere") lblmob1.Text= Main.map_title.Get("mob1") lblmob2.Text= Main.map_title.Get("mob2") lbltel1.Text= Main.map_title.Get("tel1") lbltel2.Text= Main.map_title.Get("tel2") lblfax.Text= Main.map_title.Get("fax") lblmail.Text= Main.map_title.Get("mail") lblmanzel.Text= Main.map_title.Get("manzel") lblkar.Text= Main.map_title.Get("kar") lbltelegram.Text= Main.map_title.Get("telegram") lblinsta.Text= Main.map_title.Get("insta") lblbale.Text= Main.map_title.Get("bale") lblsoroosh.Text= Main.map_title.Get("soroosh") lblozviat.Text=Main.map_title.Get("ozviat") lblvaziat.Text=Main.map_title.Get("vaziat") lbltozih.Text=Main.map_title.Get("tozih") Next slvaza.Panel.Height=top Else ToastMessageShow("لطفا اتصال برنامه به اینترنت را بررسی کنید",False) End If Main.ht2.Release end sub
کدهای اکتیویتی سوم
Sub Activity_Create(FirstTime As Boolean) Activity.LoadLayout("lkoleaza_adddata") slvaza.Panel.LoadLayout("lkoleaza_data") slvaza.Panel.Height=190%y Main.ht1.Initialize("insert_ht",Me) Main.ht1.PostString("http://hamedafrough.ir/misaq/mainapp/tabels/insertdata.php","") end sub
Sub lblsave_Click If txtfamili.Text="" Or txtnam.Text="" Or txtozvkod.Text="" Or txtmob1.Text="" Then ToastMessageShow("لطفا همه گزینههای ضروری را تکمیل کنید",False) txtfamili.HintColor=Colors.Red txtnam.HintColor=Colors.Red txtozvkod.HintColor=Colors.Red txtmob1.HintColor=Colors.Red Return Else Dim info1 As String info1="&famili=" &txtfamili.Text & "&nam=" &txtnam.Text & "&ozvkod=" &txtozvkod.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 & "&mail=" & txtmail.text & "&manzel=" &txtmanzel.Text & "&kar=" & txtkar.text & "&telegram=" &txttelegram.Text & "&insta=" & txtinsta.text & "&bale=" &txtbale.Text & "&soroosh=" & txtsoroosh.text & "&ozviat=" &txtozviat.Text & "&vaziat=" & txtvaziat.text & "&tozih=" & txttozih.Text Main.ht1.PostString("http://hamedafrough.ir/misaq/mainapp/tabels/insertdata.php",info1) End If End Sub
Sub jobdone(job As HttpJob) If job.Success=True Then ToastMessageShow("اطلاعات جدید وارد شد",False) End If End Sub
لینک ارسال
به اشتراک گذاری در سایت های دیگر
1 پاسخ به این سوال تاکنون داده شده است
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.