管理信息系統(tǒng)計算機應用上機筆記
1、規(guī)劃——根據(jù)題目中給定的要求，先做規(guī)劃
相關(guān)推薦:
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
2.部分稿件來源于網(wǎng)絡，如有不實或侵權(quán)，請聯(lián)系我們溝通解決。最新官方信息請以湖北省教育考試院及各教育官網(wǎng)為準！
下一篇：辦公自動化原理及應用筆記第二章
- 2025年華中農(nóng)業(yè)大學自考文憑有用嗎？難不難？
- 2025年華中農(nóng)業(yè)大學自考如何轉(zhuǎn)專業(yè)？需要注意什么？
- 2025年華中農(nóng)業(yè)大學自考報考費怎么交？需要什么資料？
- 2025年華中農(nóng)業(yè)大學自考怎樣參加自考本科？需要準備什么材料？
- 2025年華中農(nóng)業(yè)大學自考護理本科考哪幾門？報考條件有哪些？
- 2025年武漢工程大學自考專業(yè)都有哪些？考哪些科目？
- 2025年武漢工程大學自考畢業(yè)算應屆畢業(yè)生嗎？要滿足哪些條件？
- 2025年武漢工程大學自考需要考多少分才能通過？考生速看
- 2025年武漢工程大學自考報名有年齡限制嗎？怎么報？
- 2025年武漢工程大學自考報名需要什么流程？速來了解！ 查看更多
湖北自考網(wǎng)微信公眾號
隨時獲取自考政策、通知、公告及各類學習資料、學習方法、課件。
鄂公網(wǎng)安備 42011102000050號