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
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