Le portail francophone de la géomatique

Include "MAPBASIC.DEF"
Include "icons.DEF"

Declare Sub Main
Declare Sub Saisie
Declare Sub Saisie_Dialog

Dim TableCible$ as String
Dim TableCible@ as Alias
Dim Colonne1# as Integer
Dim NomColonne$ as String

Sub Main
' Définition de la table cible, et de la colonne à mettre à jour
    TableCible$ = "France_departements"
    TableCible@ = TableCible$
    NomColonne$ = "col1"

    Create ButtonPad "Saisie" As 
        ToolButton 
            HelpMsg "Utilisez cet outil pour tracer une ligne." 
            Calling Saisie 
            Icon MI_ICON_CROSSHAIR 
            DrawMode DM_CUSTOM_POLYLINE     
        Title "Saisie"
        Width 3
        Show 
End Sub

Sub Saisie
    Dim Objet£ as Object
    Dim NombreLignes# as integer
' Récupération de l'objet saisie
    Objet£ = CommandInfo(CMD_INFO_CUSTOM_OBJ)
' Appel de la boite de dialogue de choix de valeur
    Call Saisie_Dialog

    If Colonne1# <> 0 Then 
        Insert into TableCible$ (NomColonne$,obj) 
            Values (Colonne1#, Objet£)
' Sélection de la dernière ligne de la table
        SelecNombreLignes# = TableInfo(TableCible$, TAB_INFO_NROWS)

        Select * From TableCible@ 
            Where Rowid = NombreLignes# 
            Into Selection
    End If
End Sub

Sub Saisie_Dialog
    Dim ChoixValeur# as integer

    Dialog
        Title "Informations" 
        Control StaticText
            Title "Valeur de la colonne 1:" 
'        Control EditText 
'            Value Colonne1# 
'            Into Colonne1#
        Control Listbox
            Id 968
            Title "125;130"
            Value ChoixValeur# 
            Into ChoixValeur#
        Control OKButton
        Control CancelButton 

    If CommandInfo(CMD_INFO_DLG_OK) Then 
         Do Case ChoixValeur# 
            Case 1
                Colonne1# = 125
            Case 2 
                Colonne1# = 130
            Case Else
                Colonne1# = 0
        End Case
    End If
End Sub