入力チェックについての質問です

Code:

{import * from CURL.LANGUAGE.REGEXP}



{define-class public Check-name {inherits StandardStringCell}

  {constructor public {default}

    {construct-super}

  }

  ||置換前

  field before_text:String=""

  

  ||置換後(数字)

  field after_text_suuji:String = ""

  

  ||チェックする値(数字)

  field chk_suuji:String = "[0-9]"

  

||--  {method public {note-grid-focus-out}:void

||--    {super.note-grid-focus-out}

  {method public {update-data val:any}:#DataException

    def de = {super.update-data val}

    {if-non-null de then

        return de

    }

    

    ||フォーカスを受けていたセルの値を保存する（置換前）

    set self.before_text = {String {super.get-data}}

    

    ||置換する(数字)

    set self.after_text_suuji =

        {regexp-subst

            self.chk_suuji

            ,self.before_text

            ,""

            ,replace-all?=true

        }

    

    ||

    {if {self.before_text.equal? self.after_text_suuji}

     then

||++    {set self.background = "white"}

        {unset self.background}

     else

        {popup-message "・数字が入力されています"}

        {after 0s do {self.become-active}}

        {set self.background = "red"}

    }

    

    {return null}

  }

}



{let people:RecordSet=

    {RecordSet

        {RecordFields

            {RecordField "名前"}

            ,{RecordField "年齢"}

        }

        ,{RecordData 名前 = "テスト君" , 年齢 = "25"}

        ,{RecordData 名前 = "テストさん", 年齢 = "37"}

    }

}



{let test:RecordGrid=

    {RecordGrid

        record-source = people

        ,{RecordGridColumn "名前" ,width=50,cell-spec = Check-name}

        ,{RecordGridColumn "年齢" ,width=50}

    }

}



{let hozon:CommandButton=

    {CommandButton

        label="保存"

        ,{on Action do

             {people.commit}

         }

    }

}



{value

    {VBox

        test

        ,hozon

    }

}

Code:

{import * from CURL.LANGUAGE.REGEXP}



{define-class public Check-at-mark {inherits StandardStringCell}

  {constructor public {default}

    {construct-super}

  }

  ||置換前

  field before_text:String=""



  ||置換後(数字)

  field after_text:String = ""



  ||チェックする値(数字)

  field chk_at-mark:String = "@"



  {method public {note-grid-focus-out}:void

    {super.note-grid-focus-out}



    ||フォーカスを受けていたセルの値を保存する（置換前）

    set self.before_text = {String {super.get-data}}



    ||置換する(@マーク)

    set self.after_text =

        {regexp-subst

            self.chk_at-mark

            ,self.before_text

            ,""

            ,replace-all?=true

        }



    ||判定

    {if {self.before_text.equal? self.after_text}

     then

        {unset self.background}

     else

        {popup-message "・「@」が入力されています"}

        {after 0s do {self.become-active}}

        {set self.background = "red"}

    }

  }

}



{let test_set:RecordSet=

    {RecordSet

        {RecordFields

            {RecordField "A"}

            ,{RecordField "B"}

        }

        ,{RecordData A = "1" , B = "100"}

        ,{RecordData A = "2" , B = "200"}

        ,{RecordData A = "3" , B = "300"}

        ,{RecordData A = "4" , B = "400"}

        ,{RecordData A = "5" , B = "500"}

        ,{RecordData A = "6" , B = "600"}

        ,{RecordData A = "7" , B = "700"}

        ,{RecordData A = "8" , B = "800"}

        ,{RecordData A = "9" , B = "900"}

    }

}



{let test_grid:RecordGrid=

    {RecordGrid

         record-source = test_set

        ,width  = {make-elastic minimum-size = 200 }

        ,height = {make-elastic minimum-size = 150 }

        ,{RecordGridColumn "A" ,width=80,cell-spec = Check-at-mark}

        ,{RecordGridColumn "B" ,width=80,cell-spec = Check-at-mark}

    }

}



{let hozon:CommandButton=

    {CommandButton

        label="保存"

        ,{on Action do

             {test_set.commit}

         }

    }

}



{value

    {VBox

        test_grid

        ,hozon

    }

}