2、得税的程序流程图1.1样题5Set talk offUse student.dbfIndex on stno to stuDo while .T. Clear No=' ' @3,10 say '输入学号(0为退出)' get no read If no='0000' exit Endif locate for stno=noIf .not. found() ____appe blan____ Else @4,15 say '学号重复,再输入' Wait ____loop____ Endif Do while .t. @8,10 say '学号'
3、 get stno @9,10 say '姓名' get stname Read Yes='Y' @15,10 say '请核对(Y/N)' get yes Read If upper(yes)='Y' ____exit____ ____endif____ ____enddo____ ____enddo____ ____clos all____ SET TALK ON Return 1.1样题6职工数据库BMP.DBF包据的数据项是:姓名,性别,职称,工资,奖金下面是连续修改职工记录的程序,先输入姓名,如果输入为”结束”,表示输入结束;如果输入的姓名不存在,需提示用
4、户重新输入;如果输入的姓名存在,则修改该人的职称,工资和奖金.请在程序中填写相应内容,完成上述要求.//程序清单SET TALK OFFUSE BMPDO WHILE .T.ACCEPT “输入姓名” TO XIF X = “结束”[(1)]ENDIFLOCATE FOR 姓名= [(2)]IF [(3)]CLEAR@3,5 SAY ‘姓名’+姓名@3,27 SAY ‘职称’ GET职称@5,5 SAY ‘工资’ GET 工资@5,15 SAY ‘奖金’ GET 奖金[(4)]ELSEWAIT ‘查无此人,按任意键重新输入’[(5)][(6)]USESET TALK ONreturn;
5、x;found();repl 职称,工资,奖金 with m.职称,m.工资,m.奖金;endif;enddo.