【正文】 13 / 35 6 系統(tǒng)實現(xiàn)與維護 系統(tǒng)框架設(shè)計 （ 1） 選單樹形結(jié)構(gòu)設(shè)計 ， 在選單窗口內(nèi)進行系統(tǒng)菜單設(shè)計如圖 61： 圖 61 選單樹形結(jié)構(gòu) （ 2）新建系統(tǒng)主窗口，將系統(tǒng)要實現(xiàn)的功能規(guī)劃清楚，主窗口界面如圖 62 圖 62主窗口 哈爾濱工業(yè)大學（威海） 數(shù)據(jù)庫系統(tǒng)課程設(shè)計報告 14 / 35 數(shù)據(jù)管理子系統(tǒng) （ 1） 學生信息管理模塊 實現(xiàn)對學生信息的添加、刪除、修改等，界面設(shè)計如圖 63 圖 63 學生信息管理界面 添加， clicked 事件腳本如下： Long ll_sno String ls_sname,ls_ssex,ls_bj //數(shù)據(jù)格式檢驗 IF = OR isNULL() THEN MessageBox(缺少數(shù)據(jù) ,請輸入學號 ) () RETURN ELSEIF = OR isNULL() THEN MessageBox(缺少數(shù)據(jù) ,請輸入學生姓名 ) () RETURN ELSEIF = OR isNULL() THEN MessageBox(缺少數(shù)據(jù) ,請輸入學生班級 ) () RETURN 哈爾濱工業(yè)大學（威海） 數(shù)據(jù)庫系統(tǒng)課程設(shè)計報告 15 / 35 END IF ll_sno=long() ls_sname=String() ls_bj=String() //取出性別選擇 IF THEN ls_ssex= ELSEIF THEN ls_ssex= END IF (++++++ls_ssex) //向數(shù)據(jù)庫寫入數(shù)據(jù) INSERT INTO student (sno, sname, ssex, bj ) VALUES (:ll_sno, :ls_sname, :ls_ssex, :ls_bj )。 if s_sno= then messagebox(錯誤 ,職工編號不存在，不允許操作，請輸入正確的學生學號！,stopsign!) () return end if string sno sno=() delete from student where sno=:s_sno。 //使用游標 IF =1 THEN MessageBox(sql 錯誤 ,String()+:+) ELSE ls_sname=(s_sno++s_sname) do 哈爾濱工業(yè)大學（威海） 數(shù)據(jù)庫系統(tǒng)課程設(shè)計報告 18 / 35 IF ls_sname THEN ls_sname=(s_sno++s_sname) (s_sno++s_sname) END IF FETCH stu INTO:s_sno,:s_sname。 END IF //關(guān)閉游標 Close stu。 IF 0 THEN MessageBox(恭喜 ,數(shù)據(jù)已成功錄入 ) ELSE MessageBox(抱歉 ,數(shù)據(jù)錄入失敗 ,stopsign!) END IF //置空 = 成績修改示例如圖 65 圖 65 成績修改截圖 修改事件腳本： string s1,s2,s3,cj s1=trim () s2=trim () s3=trim () IF s1=or s2= then messagebox (沒有輸入完整信息 ,請輸入正確條件 !) 哈爾濱工業(yè)大學（威海） 數(shù)據(jù)庫系統(tǒng)課程設(shè)計報告 20 / 35 return ELSEIF s1=string() and s2=string() Then //向數(shù)據(jù)庫更新數(shù)據(jù) UPDATE grade SET cj=: s3 WHERE sno=:s1 and ame=:s2。 //數(shù)據(jù)寫入數(shù)據(jù)庫后，將輸入控件全部置空 = = = = = () //將光標放到學號輸入欄 另外，刪除 clicked 事件腳本： string ll_o ll_o=trim() IF THEN 哈爾濱工業(yè)大學（威海） 數(shù)據(jù)庫系統(tǒng)課程設(shè)計報告 23 / 35 MessageBox(刪除判斷 ,已成功刪除該課程 ) () RETURN END IF DELETE FROM course WHERE o=:ll_o。 s_sname=trim()//要 查詢的姓氏 s_sname=%+s_sname+% () //清除 listbox 中的內(nèi)容 Open stuu。 DO WHILE =0 //將讀取的數(shù)據(jù)加到 listbox 中 (s_sno++s_sname++s_sex) FETCH stuu INTO:s_sno,:s_sname,:s_sex。 //關(guān)閉游標 （ 2） 成績信息 查詢 模塊 如圖 6圖 69 圖 68 精確查詢 成績精確查詢事件腳本： String s_sno,sname,s_ame,cj //申明游標 stud 哈爾濱工業(yè)大學（威海） 數(shù)據(jù)庫系統(tǒng)課程設(shè)計報告 25 / 35 DECLARE stud CURSOR FOR SELECT sname,cj FROM grade WHERE sno=:s_sno and ame=:s_ame。 //打開游標 //提取數(shù)據(jù) FETCH stud INTO:sname,:cj。 LOOP Close stud。 s_ame=trim() //要查詢的課程名 () //清除 listbox 中 的內(nèi)容 Open stud。 DO WHILE =0 //將讀取的數(shù)據(jù)加到 listbox 中 哈爾濱工業(yè)大學（威海） 數(shù)據(jù)庫系統(tǒng)課程設(shè)計報告 26 / 35 (s_sno++sname++cj++lx) FETCH stud INTO:s_sno,:sname,:cj:lx。 //關(guān)閉游標 學生成績查詢（模糊查詢） 圖 69 模糊查詢 Clicked 事件腳本： String s_sno,sname,s_ame,cj,lx //申明游標 stud DECLARE stud CURSOR FOR SELECT sno,sname,cj,lx FROM grade WHERE ame=:s_ame。 //打開游標 //提取數(shù)據(jù) FETCH stud INTO:s_sno,:sname,:cj,:lx。 LOOP Close stud。F:\課程設(shè)計 .bak39。 if 0 then messagebox(,)。 // Profile ddd = MSS Microsoft SQL Server = cjglxt = USER20210218LU\AAA = sa = False = connect using sqlca。+ls_filename +39。 if =0 then messagebox(提示 ,還原成功 ) else messagebox(提示信息 ,錯誤 +) = () end if =false 哈爾濱工業(yè)大學（威海） 數(shù)據(jù)庫系統(tǒng)課程設(shè)計報告 7 總 結(jié) 系統(tǒng)實現(xiàn)程度 最終的系統(tǒng)完成了哪些功能，與初期設(shè)計還有哪些差距或未完成的內(nèi)容。 下拉列表框控件中的數(shù)據(jù)提取，難點在于游標的靈活使用以及變量的處理 設(shè)計菜單的控制程序是一個難點 數(shù)據(jù)操作，具體就是對表中數(shù)據(jù)的瀏覽、添加、刪除、查詢、更新等，完成這些功能，需要考慮的問題多且復雜，相應的編程工作量也比較大。 經(jīng)過 兩 周的課程設(shè)計，加強了我關(guān)于理論聯(lián)系實際、與具體課題項目結(jié)合開發(fā)、設(shè)計系統(tǒng)的能力。 在本次課程設(shè)計中，我們還需要一些以前沒有學習到的知識，于是書籍跟網(wǎng)絡成了我們的良好助手。我們學習的知識是有限的，在以后的工作中我們肯定會遇到許多求知的領(lǐng)域，這方面的能力將有助于我們未來的工作。根據(jù)對學生 成績 管理系統(tǒng)的需求分析，將學生 成績 管理 系統(tǒng)劃分為學生信息、 課程信息 管理、成績管理等幾個功能模塊，運用文字加圖說明，設(shè)計較清晰。