1、小小小小小小小小小小小小小小小小實踐教學(xué)小小小小小小小小小小小小小小小小小蘭州理工大學(xué)2011年春季學(xué)期數(shù)據(jù)庫課程設(shè)計高校學(xué)生成績管理系統(tǒng)計算機(jī)科學(xué)與技術(shù)（5）高校學(xué)生成績管理系統(tǒng)計算機(jī)科學(xué)與技術(shù)（5）*J*J*J*J*J*J*J*J個個個個個個個個 參考文獻(xiàn)1張海藩，軟件工程導(dǎo)論M清華大學(xué)出版社2薩師煊，王珊，數(shù)據(jù)庫系統(tǒng)概論M3完全掌握SQLServer2000美,機(jī)械工業(yè)出版社PowerBuilder9數(shù)據(jù)庫項目案例導(dǎo)航清華大學(xué)出版社數(shù)據(jù)庫管理系統(tǒng)美,清華大學(xué)出版社致謝我能夠在短短的兩周的時間內(nèi)完成數(shù)據(jù)庫的課程設(shè)計，單靠我一個人的力量顯然是不夠的，有太多的人給予了我不同形式的幫助,在這里我

2、要感謝的人很多。首先，我要感謝所有給過我?guī)椭耐瑢W(xué)，包括小組成員的幫助，感謝機(jī)房老師和學(xué)校給我們提供了上機(jī)環(huán)境，更要感謝我的任課老師還有我的指導(dǎo)老師，是他們的耐心指導(dǎo)和督促讓我比較順利地完成了本次數(shù)據(jù)庫的課程設(shè)計，本次課程設(shè)計不僅讓我通過本次課程設(shè)計鞏固了學(xué)過的知識,還讓我學(xué)到了一些新的東西。在我收獲得背后除了這些人,還有那些默默給我?guī)椭椭С值娜?也感謝他們！附件I部分原程序代碼一.(4)主程序：SETTALKOFFSETECHOOFFSETDOHISTORYOFFSETEXACTONSETDELETEONSETDATETOANSILONGSETEXCLOFFCLOSEDATABASESET

3、SYSMENUAUTOSETSYSMENUTOSETSYSMENUOFFSETSTATUSOFFSETSTATUSBAROFFSETSAFEOFFSETCENTON_SCREEN.VISIBLE=.F.*_SCREEN.WINDOWSTATE=2*_SCREEN.PICTURE=PICTUREBACKGROUND.BMP*_SCREEN.ICON=PICTUERNetworkNeighbourhood.ico*cCaption=學(xué)生檔案管理信息系統(tǒng)程序：寇宏偉*DECLAREINTEGERFindWindowINwin32apiSTRINGcClass,STRINGcCaption*IFFin

4、dWindow(0,cCaption)#0*_SCREEN.CAPTION=cCaption*二MESSAGEBOX(程序已經(jīng)運行，請注意任務(wù)欄！“，16,程序：AYongSoft:QUITRETURN.F.*ENDIF*_SCREEN.CAPTION=cCaptionDOFORM身份驗證READEVENTS二.成績管理表單的程序代碼：(1)顯示名次：IFTHISFORM.COMMAND1.CAPTION:”顯示名次(T)”THISFORM.COMMAND1.CAPTION:”隱藏名次(H)”IFLEN(ALLT(THISFORM.CD1.VALUE)#0LCMSG=正在生成數(shù)據(jù)，請稍候.WA

5、ITWINDOWLCMSGNOCLEARNOWAITATSROW()/2,(SCOLS()-LEN(LCMSG)/2SELE*FROM成績表WHEREALLT(成績表.課程代碼):二*“INTOTABLETMPLS1SELELSCJB.*,LS1.成績AS總成績，LS1.成績AS名次FROMLSCJBLEFTOUTERJOINLS1;ONLSCJB.考號二LS1.考號INTOTABLETMPLS2&目的是在LS2表中加上總成績和名次兩個字段REPLALL總成績WITH0,名次WITH0&將所有NULL值記錄賦值0SELELS1USESELELS2M_ZDS=FCOUNT()&記錄字段數(shù)SCAN

6、M_SUM=0&M_SUM用于存放當(dāng)前學(xué)生考試成績之和FORi=3TOM_ZDS-2M_Field=Field(i)M_SUM=M_SUM+&M_FieldENDFORREPL總成績WITHM_SUMENDSCANSELE*FROMLS2ORDERBY總成績DESCINTOTABLETMPLS3SELELS2USESELELS3REPLALL名次WITHRECN()M_MC=1M_CJ二總成績SCANIF總成績二M_CJREPL名次WITHM_MCELSEM_MC;名次M_CJ二總成績REPL名次WITHM_MCENDIFENDSCANTHISFORM.GRID1.RECORDSOURCE=L

7、S3SELELSCJBUSESELE*FROMLS3ORDERBY名次INTOTABLETMPLSCJBSELELS3ENDIFELSETHISFORM.CD1.VALIDENDIFTHISFORM.REFRESH(2)退出：RELETHISFORM三.成績錄入表單中的代碼：(1)成績錄入：SETSAFEOFFTHISFORM.CD3.ENABLED=.F.IFLEN(ALLT(THISFORM.CD1.VALUE)#0ANDLEN(ALLT(THISFORM.CD3.VALUE)#0&如果此前已錄入或修改過考試成績，則將新成績保存到成績表中。LCMSG:正在保存數(shù)據(jù).WAITWINDOWLC

8、MSGNOCLEARNOWAITATSROW()/2,(SCOLS()-LEN(LCMSG)/2SELE成績表DELEFORSUBST(考號,1,8)=ALLT(THISFORM.CD1.VALUE)ANDALLT(課程代碼)=ALLT(THISFORM.CD3.VALUE)PACKSELE臨時成績表SCANM_KH;ALLT(考號)M_KCDM=ALLT(THISFORM.CD3.VALUE)M_CJ二成績SELEAPPESELEAPPEREPLSELEBLANK考號WITHM_KH,課程代碼WITHM_KCDM,成績WITHM_CJ臨時成績表ENDSCANWAITCLEAENDIFTHISFORM.GRID1.RECORDSOURCE二課程表”&置空GRID1,并將界面中各控件賦初值SELE臨時成績表ZAPGOTOPTHISFORM.GRID1.COLUMNCOUNT=3THISFORM.GRID1.RECORDSOURCE=”臨時成績表”THISFORM.GRID1.COLUMN1.CONTROLSOURCE=”臨時成績表.考號”THISFORM.GRID1.COLUMN2.CONTROLSOURCE=”臨時成績表.姓名“THISFORM.GRID1.COLUMN3.CONTROLSOURCE=”臨時成績表.成績”THISFORM.CD1.VALUE