管理信息系统计算机应用上机.docVIP

[山西]管理信息系统计算机应用上机笔记 1、规划——根据题目中给定的要求，先做规划　　　　Main.prg　　　　cx.prg cl.prg tj.prg retu　　　　shr.prg xg.prg shch.prg retu　　　　注：如果没有给出“退出”，自己添加。　　　　2、建库、输入数据　　　　BM.DBF XSH.DBF　　　　部门号N ，，2编号：N，5　　　　部门名C，20姓名：C，8　　　　性别：C，2　　　　工资：N，10　　　　部门号：N，2　　　　。crea xsh（忘记的时候用：输入数据APPE）　　　　3、编菜单程序　　　　。modi comm main　　　　clea　　　　set talk off　　　　DO while .T.　　　　X=0　　　　@ 2，20 say‘学生系统’　　　　@ 3，5 prompt‘查询’　　　　@ 3，15 prompt‘数据处理’　　　　@ 3，25 prompt‘统计’　　　　@ 3，35 prompt‘退出’　　　　menu to x　　　　DO case　　　　Case x=1　　　　DO cx（查询）　　　　Case x=2　　　　DO CL（处理）　　　　Case x=3　　　　DO TJ（统计）　　　　Case x=4　　　　Clea　　　　Retu　　　　Endcase　　　　Enddo存盘退出　　　　。copy file main.prg to cl.prg　　　　。modi comm cl　　　　clea　　　　set taik off　　　　4、输入程序　　　　。modi comm shr　　　　clea　　　　set taik off　　　　use库名　　　　x=‘Y’　　　　DO while upple（x）=‘Y’　　　　小写值变大写　　　　appe　　　　clea　　　　@ 5，10 say‘是否继续输入（Y/N）’get x　　　　read　　　　enddo　　　　use　　　　clea　　　　retu　　　　统计：　　　　CL TJ　　　　TJ1 TJ2 TJ3 retu　　　　。modi comm TJ1　　　　clea　　　　set taik off　　　　use库名　　　　x=0　　　　y=0　　　　coun all for性别=‘男’to x　　　　coun all for性别=‘女’to y　　　　@ 5，5 say‘男士人数为：’+ str（x）　　　　@ 5，5 say‘女士人数为：’+ str（y）　　　　wait　　　　use　　　　retu　　　　。modi comm TJ3　　　　clea　　　　set talk off　　　　use库名　　　　x=0　　　　aver all工资to x　　　　@ 5，5 say‘平均工资：’+ str（x）　　　　wait　　　　use　　　　retu　　　　—————————————————————————————　　　　CX1 CX2 CX3 CX4　　　　N，5 C，8　　　　。modi comm CX1　　　　clea　　　　set talk off　　　　use库名　　　　DO while .T.　　　　X=0　　　　Clea　　　　@ 5，10 say‘请输入编号：’get x　　　　read姓名　　　　loca all for编号=x　　　　if .NOT. eof（）　　　　DO while .NOT. eof（）　　　　Disp　　　　Wait修改　　　　Cont　　　　Enddo　　　　Else　　　　@ 5，10 say‘查无此人’　　　　wait　　　　endif　　　　clea　　　　y=‘’　　　　@ 5，10 say‘是否继续查找（Y/N）’get y　　　　read修改　　　　if uppe（y） ‘Y’　　　　use　　　　clea　　　　retu　　　　endif　　　　enddo　　　　—————————————————————————————　　　　题目：职工系统　　　　要求：对职工进行输入、修改、查询、删除、统计计算等处理。　　　　其中：修改要球能够按照编号、姓名