Мәліметтерді шартты және циклды өңдеу If.. EndIf, DO case ..ENDCase, DO While.. ENDDO, FOR..ENDFor командалары түсіндіру
Есептеу процестерін басқару үшін және циклді мәліметтерді өңдеу үшін келесі қосалқы операторлар қолданылады.
IF …ENDIF, SCAN…END SCAN, DO WHITE…ENDDO, DO CASE … ENDCASE, FOR …END FOR
Тармақталу командасы IF…ENDIF жазылуы
IF <условия>
<егер шарт шын болса, онда команда орындалады>
ELSE
<егер шарт өтірік болса, онда келесі команда орындалады>
ENDIF
Мысалы :
Экранға ағымдық кестелердің атауын жазбалар санын,жолын шығару немесе ағымдық жұмыс облысында ағымдық кесте жоқ.
IF NOT EMPTY (DBF())
PUBLIC res
res = RECCOUNT ()
ELSE
WAIT ‘ағымдық кесте жоқ’
ENDIF
? ‘ағымдық кесте атауы’ , DBF()
? ‘Жазбалар саны ’ , res
Мұндағы EMPTY() туындының мәні .T.егер оның аргументінің мәні бос емес болса.
DO CASE … ENDCASE командасы
Тармақталу командасынан өзгешілігі,бұл команда тізбектеліп бірнеше шарттарды орындайды.Егер шарт орындалып тұрса,онда келесі команда орындалады да,қалған CASE шарттары тексерілмейді және ENDCASE – деп кейінгі команда орындалады.
DO CASE
CASE<условия 1>
<1 шарт бойынша орындалатын команда>
CASE <условия 2>
<2 -,------->
……….................
OTHER WISE
<егер ешбір шарт орындалмаса,онда орындалатын команда>
END CASE
Мысалы.
FANCTION month of Year
DO CASE
CASE MONTH (Date())=1
Month of Year = ‘январь’
CASE MONTH (Date())=2
Month of Year = ‘февраль’
…………………………...
CASE MONTH (Date())=11
Month of Year = ‘ноябрь’
OTHER WISE
Month of Year = ‘декабрь’
END CASE
RETVRN month of Year
Мұндағы MONTH() функция ай номерін және атауын шығарады.
2>1>
Достарыңызбен бөлісу: |