Le portail francophone de la géomatique

INCLUDE "MAPBASIC.DEF"
INCLUDE "MENU.DEF"

DECLARE SUB ajouteritem(t() as string, byval pitem as string)

DECLARE SUB Main
DECLARE SUB alter_multilistbox
DECLARE SUB recup
DECLARE SUB ajouteritemsansrepetition(t() as string, byval pitem as string)
DECLARE function existeitem(t() as string, pitem as STRING) as logical

Dim cmd, liste_CLC(), liste_recupCLC() As STRING
Dim cpt,var_table, ichoice, choix as integer

SUB Main

    Dialog

    title "Choix du continuum"

        Control radioGroup    
            title "&Continuum_aquatique;&Continuum_agricole;&Continuum_thermophile;&Continuum_boisé"
            value 0
            Position 10,10
            into var_table
            calling alter_multilistbox
            ID 1001

        Control statictext position 10,70 title "Code Corine Land Cover :"

        Control multilistbox
            title from variable liste_CLC
            Value 0 Position 10,85 width 250
            ID 1002
                
        control OKBUTTON calling recup
        control cancelbutton

IF CommandInfo(CMD_INFO_DLG_OK) THEN

    [b]IF var_table = 1 THEN  

        cmd = "Select * from Cont_Mx_Aqua_Humide WHERE Cont_Mx_Aqua_Humide.col3 = " & liste_recupCLC(1) & "  INTO rq"
        RUN COMMAND cmd[/b]

'            ELSEIF var_table = 2 THEN
'        cmd = "Select * from Cont_Mx_Aqua_Humide,rq_tab WHERE CLC_sel.col1=Cont_Mx_Aqua_Humide.col3 INTO rq"
'         RUN COMMAND cmd

        END IF
    ELSE
        EXIT SUB
    END IF

END SUB

SUB alter_multilistbox

    var_table = ReadControlValue(1001)

    IF var_table = 1 THEN 
        cmd = "Select CODE_NIV3 from Cont_Mx_Aqua_Humide GROUP BY CODE_NIV3 ORDER BY CODE_NIV3 INTO rq_tab"
        RUN COMMAND cmd
    ELSEIF var_table = 2 THEN
        cmd = "Select CODE_NIV3 from Cont_Mx_Agri_extensifs GROUP BY CODE_NIV3 ORDER BY CODE_NIV3 INTO rq_tab"
    
    REDIM liste_CLC(TABLEINFO(rq_tab, TAB_INFO_NROWS))

    FOR cpt = 1 TO TABLEINFO(rq_tab, TAB_INFO_NROWS)

        FETCH REC cpt FROM rq_tab

        liste_CLC(cpt) = rq_tab.CODE_NIV3
    NEXT

    ALTER CONTROL 1002
        title from variable liste_CLC

END SUB

SUB recup

dim choix as integer

Do
    choix = readcontrolvalue(1002)
    If choix <> 0 then
CALL ajouteritemsansrepetition(liste_recupCLC, liste_CLC(choix))
        ichoice = liste_CLC(choix)
    
ELSE 
exit do
END IF
 loop
dialog remove
END SUB

SUB ajouteritem(t() as string, byval pitem as string)

dim n as integer
n=ubound(t)+1
redim t(n)
t(n)=pitem

END SUB 

SUB ajouteritemsansrepetition(t() as string, byval pitem as string)

if not existeitem(t,pitem)then
call ajouteritem(t,pitem)
end if 

END SUB

function existeitem(t() as string, pitem as STRING) as logical
dim i as integer

existeitem=false
for i=1 to ubound(t)
if t(i) = pitem then
existeitem=true
End if
next

END FUNCTION