管理信息系統(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