1、規(guī)劃——根據(jù)題目中給定的要求，先做規(guī)劃
　　
　　Main.prg
　　
　　cx.prg cl.prg tj.prg retu
　　
　　shr.prg xg.prg shch.prg retu
　　
　　注：如果沒有給出“退出”，自己添加。
　　
　　2、建庫、輸入數(shù)據(jù)
　　
　　BM.DBF XSH.DBF
　　
　　部門號N ，，2編號：N，5
　　
　　部門名C，20姓名：C，8
　　
　　性別：C，2
　　
　　工資：N，10
　　
　　部門號：N，2
　　
　　。crea xsh（忘記的時候用：輸入數(shù)據(jù)APPE）
　　
　　3、編菜單程序
　　
　　。modi comm main
　　
　　clea
　　
　　set talk off
　　
　　DO while .T.
　　
　　X=0
　　
　　@ 2，20 say‘學生系統(tǒng)’
　　
　　@ 3，5 prompt‘查詢’
　　
　　@ 3，15 prompt‘數(shù)據(jù)處理’
　　
　　@ 3，25 prompt‘統(tǒng)計’
　　
　　@ 3，35 prompt‘退出’
　　
　　menu to x
　　
　　DO case
　　
　　Case x=1
　　
　　DO cx（查詢）
　　
　　Case x=2
　　
　　DO CL（處理）
　　
　　Case x=3
　　
　　DO TJ（統(tǒng)計）
　　
　　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‘是否繼續(xù)輸入（Y/N）’get x
　　
　　read
　　
　　enddo
　　
　　use
　　
　　clea
　　
　　retu
　　
　　統(tǒng)計：
　　
　　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‘男士人數(shù)為：’+ str（x）
　　
　　@ 5，5 say‘女士人數(shù)為：’+ 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