管理信息系統(tǒng)計算機應用上機筆記

 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
　　
　　Else
　　
　　@ 5，10 say‘查無此人’
　　
　　wait
　　
　　endif
　　
　　clea
　　
　　y=‘’
　　
　　@ 5，10 say‘是否繼續(xù)查找（Y/N）’get y
　　
　　read修改
　　
　　if uppe（y）< >‘Y’
　　
　　use
　　
　　clea
　　
　　retu
　　
　　endif
　　
　　enddo
　　
　　—————————————————————————————
　　
　　題目：職工系統(tǒng)
　　
　　要求：對職工進行輸入、修改、查詢、刪除、統(tǒng)計計算等處理。
　　
　　其中：修改要球能夠按照編號、姓名、性別、工資進行
　　
　　刪除要求能夠按照姓名、編號進行
　　
　　查詢要求能夠按照編號、姓名、部門進行
　　
　　統(tǒng)計計算要求：
　　
　　1、求所有人平均工資
　　
　　2、求男職工工資總額
　　
　　3、求出工資最高的職工
　　
　　4、按升序排序工資
　　
　　—————————————————————————————
　　
　　部門DB（BM.DBF）
　　
　　部門號C 3
　　
　　部門名C 20
　　
　　職工DB（ZHG.DBF）
　　
　　編號N 5
　　
　　姓名C 8
　　
　　性別C 2
　　
　　民族C 8
　　
　　學歷C 10
　　
　　工資N 8，2
　　
　　部門號C 3
　　
　　Wait修改
　　
　　Z=‘’
　　
　　@ 5，10 say‘是否修改（Y/N）’get z
　　
　　read
　　
　　if uppe（z）=‘Y’
　　
　　EDIT刪除dele
　　
　　endif