hurtig søgning
Hej eksperter.jeg er ved at lave et projekt, men det vil ikke som jeg vil.
Jeg kan ikke få min dialog boks til at søge som jeg vil.
Det skulle gerne være sådanne at man indtaster en adresse og fx. tryk og dermed skal denne tabel vises.
Jeg har kun lavet adresse, postnummer og tryk men der kommer flere end nu.
Det skal helst virke sådanne af man ikke skal taste noget i alle menuer.
Er der nogle der har forslag til løsning
Include "mapbasic.def"
Include "icons.def"
Include "menu.def"
declare sub main
declare sub button2()
'****************************************************************************************
sub main()
'****************************************************************************************
create buttonpad "search" as
pushbutton
helpmsg "søgning\nsøgning"
calling button2
icon MI_ICON_MISC_5
TITLE "søgning"
width 4
toolbarposition(1,1)
fixed
show
end sub
'**************************************************************************************
sub button2()
'***************************************************************************************
'if not istabelopen("brandhane") then
'note "Åben venligst brandhane.tab"
'end if
dim s_adresse as string
dim s_postnummer as string
dim s_tryk as string
dialog
title "Hurtig søgning"
control statictext
title "Adresse: "
position 5,10
control edittext
into s_adresse
control statictext
title "postnummer: "
position 5,30
control edittext
into s_postnummer
control statictext
title "tryk: "
position 5,50
control edittext
into s_tryk
control okbutton
control cancelbutton
if commandinfo (CMD_INFO_DLG_OK) then
select * from brandhane where adresse = s_adresse into selection
browse * from selection
select * from brandhane where postnummer = s_postnummer into selection
browse * from selection
select * from brandhane where tryk = s_tryk into selection
browse * from selection
end if
end sub