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

 1、規(guī)劃——根據(jù)題目中給定的要求，先做規(guī)劃
　　
　　Main.prg
　　
　　cx.prg cl.prg tj.prg retu
　　
　　shr.prg xg.prg shch.prg retu
　　
　　注：如果沒(méi)有給出“退出”，自己添加。
　　
　　2、建庫(kù)、輸入數(shù)據(jù)
　　
　　BM.DBF XSH.DBF
　　
　　部門(mén)號(hào)N ，，2編號(hào)：N，5
　　
　　部門(mén)名C，20姓名：C，8
　　
　　性別：C，2
　　
　　工資：N，10
　　
　　部門(mén)號(hào)：N，2
　　
　　。crea xsh（忘記的時(shí)候用：輸入數(shù)據(jù)APPE）
　　
　　3、編菜單程序
　　
　　。modi comm main
　　
　　clea
　　
　　set talk off
　　
　　DO while .T.
　　
　　X=0
　　
　　@ 2，20 say‘學(xué)生系統(tǒng)’
　　
　　@ 3，5 prompt‘查詢’
　　
　　@ 3，15 prompt‘?dāng)?shù)據(jù)處理’
　　
　　@ 3，25 prompt‘統(tǒng)計(jì)’
　　
　　@ 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)計(jì)）
　　
　　Case x=4
　　
　　Clea
　　
　　Retu
　　
　　Endcase
　　
　　Enddo存盤(pán)退出
　　
　　。copy file main.prg to cl.prg
　　
　　。modi comm cl
　　
　　clea
　　
　　set taik off
　　
　　4、輸入程序
　　
　　。modi comm shr
　　
　　clea
　　
　　set taik off
　　
　　use庫(kù)名
　　
　　x=‘Y’
　　
　　DO while upple（x）=‘Y’
　　
　　小寫(xiě)值變大寫(xiě)
　　
　　appe
　　
　　clea
　　
　　@ 5，10 say‘是否繼續(xù)輸入（Y/N）’get x
　　
　　read
　　
　　enddo
　　
　　use
　　
　　clea
　　
　　retu
　　
　　統(tǒng)計(jì)：
　　
　　CL TJ
　　
　　TJ1 TJ2 TJ3 retu
　　
　　。modi comm TJ1
　　
　　clea
　　
　　set taik off
　　
　　use庫(kù)名
　　
　　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庫(kù)名
　　
　　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庫(kù)名
　　
　　DO while .T.
　　
　　X=0
　　
　　Clea
　　
　　@ 5，10 say‘請(qǐng)輸入編號(hào)：’get x
　　
　　read姓名
　　
　　loca all for編號(hào)=x
　　
　　if .NOT. eof（）
　　
　　DO while .NOT. eof（）
　　
　　Disp
　　
　　Wait修改
　　
　　Cont
　　
　　Enddo
　　
　　Else
　　
　　@ 5，10 say‘查無(wú)此人’
　　
　　wait
　　
　　endif
　　
　　clea
　　
　　y=‘’
　　
　　@ 5，10 say‘是否繼續(xù)查找（Y/N）’get y
　　
　　read修改
　　
　　if uppe（y）< >‘Y’
　　
　　use
　　
　　clea
　　
　　retu
　　
　　endif
　　
　　enddo
　　
　　—————————————————————————————
　　
　　題目：職工系統(tǒng)
　　
　　要求：對(duì)職工進(jìn)行輸入、修改、查詢、刪除、統(tǒng)計(jì)計(jì)算等處理。
　　
　　其中：修改要球能夠按照編號(hào)、姓名、性別、工資進(jìn)行
　　
　　刪除要求能夠按照姓名、編號(hào)進(jìn)行
　　
　　查詢要求能夠按照編號(hào)、姓名、部門(mén)進(jìn)行
　　
　　統(tǒng)計(jì)計(jì)算要求：
　　
　　1、求所有人平均工資
　　
　　2、求男職工工資總額
　　
　　3、求出工資最高的職工
　　
　　4、按升序排序工資
　　
　　—————————————————————————————
　　
　　部門(mén)DB（BM.DBF）
　　
　　部門(mén)號(hào)C 3
　　
　　部門(mén)名C 20
　　
　　職工DB（ZHG.DBF）
　　
　　編號(hào)N 5
　　
　　姓名C 8
　　
　　性別C 2
　　
　　民族C 8
　　
　　學(xué)歷C 10
　　
　　工資N 8，2
　　
　　部門(mén)號(hào)C 3
　　
　　Wait修改
　　
　　Z=‘’
　　
　　@ 5，10 say‘是否修改（Y/N）’get z
　　
　　read
　　
　　if uppe（z）=‘Y’
　　
　　EDIT刪除dele
　　
　　endif