【正文】 戶管理 窗口如圖 4_4 圖 4_4 系統(tǒng)用戶管理窗口 清屏代碼： () 排序代碼： string s_sort (1) s_sort=()+A (s_sort) () (1) (0,false) (1,true) 增加代碼： long n_row n_row=(0) 陜西職業(yè)技術(shù)學(xué)院計算機(jī)科學(xué)系學(xué)生畢業(yè)論文 23 (n_row,yhmc,(用戶名稱 )) randomize(0) (n_row,yhmc,string(rand(32767))) (n_row,yhjb,系統(tǒng)操作員 ) (n_row) (n_row) (1) () 刪除代碼： long n_row (0) n_row=() (0,false) (n_row,true) 保存代碼： () if ()=0 or ()=0 then messagebox(提示信息 ,尚無增加 ,刪除或修改 ,無須保存 !) return end if if ()=1 then mit。 messagebox(提示信息 ,保存失敗 !) return 1 end if 關(guān)閉： close(parent) 陜西職業(yè)技術(shù)學(xué)院計算機(jī)科學(xué)系學(xué)生畢業(yè)論文 24 學(xué)生成績查詢 學(xué)生成績查詢 窗口如圖 4_5 圖 4_5 學(xué)生成績查詢 窗口 查詢代碼： string xsdm,zydm,bjdm,kcdm,xh xsdm= xsdm=left(xsdm,pos(xsdm,|)1) zydm= zydm=left(zydm,pos(zydm,|)1) bjdm= bjdm=left(bjdm,pos(bjdm,|)1) xh= xh=left(xh,pos(xh,|)1) if len(xh)=0 then if len(bjdm)=0 then xh=+xsdm+zydm else xh=bjdm end if end if xh=xh+% kcdm= kcdm=left(kcdm,pos(kcdm,|)1) 陜西職業(yè)技術(shù)學(xué)院計算機(jī)科學(xué)系學(xué)生畢業(yè)論文 25 if len(kcdm)=0 then kcdm=+xsdm+zydm+ end if kcdm=kcdm+% (xh,kcdm) 學(xué)生檔案管理窗口 學(xué)生檔案管理 窗口如圖 4_6 圖 4_6 學(xué)生檔案管理窗口 查詢代碼： string xsdm,zydm,bjdm,xm xsdm= xsdm=left(xsdm,pos(xsdm,|)1) zydm= zydm=left(zydm,pos(zydm,|)1) bjdm= bjdm=left(bjdm,pos(bjdm,|)1) if len(bjdm)=0 then bjdm=+xsdm+zydm+% end if xm=%+trim()+% (bjdm,xm) 取消代碼： long i,n 陜西職業(yè)技術(shù)學(xué)院計算機(jī)科學(xué)系學(xué)生畢業(yè)論文 26 string xsdm,xsjc () n=() for i=n to 1 step 1 (i) next n=() for i=n to 1 step 1 (i) next n=() for i=n to 1 step 1 (i) next n=() for i=n to 1 step 1 (i) next for n=year(today()) to 1950 step 1 (string(n)) next n=() for i=1 to n xsdm=[i] xsjc=[i] (xsdm+|+xsjc) next = = = 陜西職業(yè)技術(shù)學(xué)院計算機(jī)科學(xué)系學(xué)生畢業(yè)論文 27 = = ( , ) 專業(yè)管理窗口 專業(yè)管理 窗口如圖 4_7 圖 4_7 專業(yè)管理窗口 專業(yè)代碼： string s_col,s_text s_col=() s_text=trim(()) choose case lower(s_col) casexsdm if len(s_text)2 then return 1 end if casexsqc if len(s_text)=0 then return 1 end if casexsjc if len(s_text)=0 then 陜西職業(yè)技術(shù)學(xué)院計算機(jī)科學(xué)系學(xué)生畢業(yè)論文 28 return 1 end if end choose 課程管理 課程管理 窗口如圖 4_8 圖 4_8 課程管理窗口 課程代碼： string s_col,s_text string xsdm,zydm,kcdm,xq s_col=() s_text=trim(()) choose case lower(s_col) casekcdm if len(s_text)11 then messagebox(提示信息 ,課程代碼應(yīng)為十一位數(shù)字 !) return 1 end if xq=mid(s_text,9,1) xsdm=mid(s_text,5,2) zydm=mid(s_text,7,2) 陜西職業(yè)技術(shù)學(xué)院計算機(jī)科學(xué)系學(xué)生畢業(yè)論文 29 if xq39。 or xq39。 then messagebox(提示信息 ,學(xué)習(xí)應(yīng)為 1 之 8 的數(shù)字 !) return 1 end if select xsdm,zydm into :xsdm,:zydm from t_zydm where xsdm=:xsdm and zydm=:zydm。 if =0 then messagebox(提示信息 ,此課程代碼已經(jīng)存在 !) return 1 end if casekcmc if len(s_text)=0 then messagebox(提示信息 ,課程名稱不能為空 !) return 1 end if end choose 陜西職業(yè)技術(shù)學(xué)院計算機(jī)科學(xué)系學(xué)生畢業(yè)論文 30 班級管理 班級管理 窗口如圖 4_9 圖 4_9 班級管理窗口 班級代碼： string s_col,s_text string xsdm,zydm,bjdm s_col=() s_text=trim(()) choose case lower(s_col) casebjdm if len(s_text)9 then messagebox(提示信息 ,班級代碼應(yīng)為九位數(shù)字 !) return 1 end if xsdm=mid(s_text,5,2) zydm=mid(s_text,7,2) select xsdm,zydm into :xsdm,:zydm from t_zydm where xsdm=:xsdm and zydm=:zydm。 if =0 then messagebox(提示信息 ,此班級代碼已經(jīng)存在 !) return 1 end if casebjqc if len(s_text)=0 then messagebox(提示信息 ,班級全稱不能為空 !) return 1 end if casebjjc if len(s_text)=0 then messagebox(提示信息 ,班級簡稱不能為空 !) return 1 end if end choose 陜西職業(yè)技術(shù)學(xué)院計算機(jī)科學(xué)系學(xué)生畢業(yè)論文 32 考試性質(zhì)管理 窗口如圖 4_10 圖 4_10 考試性質(zhì)管理窗口 考試性質(zhì)代碼： string s_col,s_text s_col=() s_text=trim(()) choose case lower(s_col) caseksxzdm if len(s_text)1 then messagebox(提示信息 ,考試性質(zhì)代碼應(yīng)為一個數(shù)字或字母 !) return 1 end if caseksxzmc if len(s_text)=0 then messagebox(提示信息 ,考試性質(zhì)名稱不能為 空 !) return 1 end if end choose 陜西職業(yè)技術(shù)學(xué)院計算機(jī)科學(xué)系學(xué)生畢業(yè)論文 33 結(jié)論 學(xué)生 管理系統(tǒng)在高校的財務(wù)系統(tǒng)中有著舉足輕重的作用，它是高校信息現(xiàn)代化，管理規(guī)范化的產(chǎn)物和需要 。在這次系統(tǒng)的開發(fā)過程中學(xué)到了好多知識，鍛煉了我的項目開發(fā)能力，使我對軟件工程的知識有了更深刻的理 解、更貼切的感受。通過一個學(xué)期的實習(xí)和設(shè)計，磨煉了自己的耐心，培養(yǎng)了自己查資料和同學(xué)討論的好習(xí)慣，這些對即將走上工作崗位的我是有很大的幫助的，相信我以后工作時在這些方面會做的更好。通過這次畢業(yè)設(shè)計我學(xué)到很多東西，為我今后的人生路打下了基礎(chǔ)，我會在這個基礎(chǔ)下 進(jìn)一步加強(qiáng)、改進(jìn)、完善 等 。能夠順利的完成論文，離不開各位老師、同學(xué)和朋友的幫助。同時，他們開闊的視野，淵博的知識，豐富的經(jīng)驗，嚴(yán)謹(jǐn)?shù)墓ぷ髯黠L(fēng)也深深影響了我。 其次感謝 在大學(xué)期間所有傳授我知識的老師，是你們的悉心教導(dǎo)使我有了良好的專業(yè)課知識，就因為你們給我傳授的知識作為基礎(chǔ)我才能把畢業(yè)論文完成。謝謝你們給我的無私幫助，謝謝你們！ 陜西職業(yè)技術(shù)學(xué)院計算機(jī)科學(xué)系學(xué)生畢業(yè)論文 35 附錄 部分源程序（重點代碼段，應(yīng)有注釋） W_dl 代碼： //將全局變量 輸入用戶 名和口令的次數(shù)賦初值 0 G_INPUT_TIME=0 //定義變量 Environment l_env int l_ScrWidth,l_ScrHeight //關(guān)閉窗口刷新 setRedraw(false) //取得屏幕的高度和寬度 GetEnvironment(l_env) l_ScrWidth=PixelsToUnits(,XpixelsToUnits!) l_ScrHeight=PixelsToUnits(,YpixelsToUnits!) //移動窗口到屏幕中間 Move((l_scrwidth )/2,(l_scrheight )/2) //打開窗口刷新 setredraw(true) SELECT user_PWD INTO :CORRECT_PSWD FROM USER_info WHERE user_id=:G_USER。 else //保存修改失敗，取消所作的修改 rollback。 else //保存修改失敗，取消所作的修改 rollback。 close(w_xgxj) end if end if 陜西職業(yè)技術(shù)學(xué)院計算機(jī)科學(xué)系學(xué)生畢業(yè)論文 38 參考文獻(xiàn) [1] 何旭洪，傅立宏《 信息管理系統(tǒng)開發(fā)》 人民郵電出版社 [2] 盧守東《 PowerBulider 數(shù)據(jù)庫應(yīng)用開發(fā)技術(shù)》清華大學(xué)出版社 [5] 曹軍生等 人 《 SQL Server2020 實用 教程 》 北京理工大學(xué)出版社 ， [6] 伍俊良《管理信息系統(tǒng) (MIS) 開發(fā)與應(yīng)用》北京 :科學(xué)出版社 ， 1999 [7] 李建中，王珊《數(shù)據(jù)庫系統(tǒng)原理（第 2 版）》電子工業(yè)出版社， [8] 李昭原，劉又誠《數(shù)據(jù)庫系統(tǒng)原理與技術(shù)》北京航空航天大學(xué)出版社 [9] 甘仞初 《信息系統(tǒng)開發(fā)》 北京經(jīng)濟(jì)科學(xué)出版社， 1996