Search Box ​ေလးလုပ္​ခ်င္​တယ္

Search Box ​ေလးလုပ္​ခ်င္​တယ္​ဆိုလို႔ပါ လိုခ်င္​တဲ့ပံုစံရမရ​ေတာ့မသိဘူး အတတ္​ႏိုင္​ဆံုး​ေတာ့လုပ္​ျပထားပါတယ္​ :-)

လူနာမည္​႐ိုက္​ထည္​့ၿပီး search လိုက္​ရင္​ သူ႔ရဲ႕ info က်လာမယ္​ အဲလိုမ​်္ိ ုးပါ .db file နဲ႔ဘဲလုပ္​ထားတာပါ db file ထဲမွာ အရင္​​ေရးၿပီး bmp နဲ႔ run တာပါ Gp ထဲမ​ွာ file လုပ္​နည္​းတင္​​ေပးထားပါတယ္​ :-) အဆင္​​ေျပမယ္​လို႔ထင္​ပါတယ္​ :-) :-)

Main

AddButton("a",10%x,40%y,80%x,20%y,"")

AddEditText("ed",0%x,0%y,80%x,10%y,"")

AddButton("b",79%x,0%y,21%x,10%y,"")
SetText("b","Search")
SetTextSize("b",17)

Event

Sub Activity_Pause(UserClosed)
End Sub

Sub Activity_Resume
End Sub

Sub Label_Click(Who)
End Sub

Sub Button_Click(Who)
Select Who
Case "b"
fileCopy("AssetsDir","serach.db",FileDirRootExternal,"a.db")
LoadDb(FileDirRootExternal,"a.db")
q =GetText("ed")
w=getrowdb("search WHERE target=" & chr(39) & q & chr(39) ,"info")
SetText("a",w)

End Select
End Sub
Sub Button_LongClick(Who)
End Sub

Sub Edit_Change(Who, Old, New)
End Sub

Sub Edit_Enterpressed(who)
End Sub

Sub Panel_Click(Who)
End Sub

Sub Activity_KeyPress(key)

If key=4 Then

b=MessageBox("Do You Want To Exit?","EXIT!","Ok","Cancel","")

If b=-1 Then

ActivityFinish

End If

Else If key=82 Then

OpenMenu

End If

End Sub