學生成績管理系統數據庫系統課程設計報告-資料下載頁

【導讀】{ "error_code": 17, "error_msg": "Open api daily request limit reached" }

　　

【正文】 clicked 事件腳本： string ll_o ll_o=trim() IF THEN 哈爾濱工業大學（威海） 數據庫系統課程設計報告 23 / 35 MessageBox(刪除判斷 ,已成功刪除該課程 ) () RETURN END IF DELETE FROM course WHERE o=:ll_o。 = () () 數據查詢子系統 （ 1）學生信息查詢（模糊查詢）如圖 67 圖 67 模糊查詢 查詢腳本： String s_sno,s_sname,s_sex //申明游標 stuu DECLARE stuu CURSOR FOR SELECT sno,sname,ssex 哈爾濱工業大學（威海） 數據庫系統課程設計報告 24 / 35 FROM student WHERE sname LIKE:s_sname。 s_sname=trim()//要 查詢的姓氏 s_sname=%+s_sname+% () //清除 listbox 中的內容 Open stuu。 //打開游標 //提取數據 FETCH stuu INTO:s_sno,:s_sname,:s_sex。 DO WHILE =0 //將讀取的數據加到 listbox 中 (s_sno++s_sname++s_sex) FETCH stuu INTO:s_sno,:s_sname,:s_sex。 LOOP Close stuu。 //關閉游標 （ 2） 成績信息 查詢 模塊 如圖 6圖 69 圖 68 精確查詢 成績精確查詢事件腳本： String s_sno,sname,s_ame,cj //申明游標 stud 哈爾濱工業大學（威海） 數據庫系統課程設計報告 25 / 35 DECLARE stud CURSOR FOR SELECT sname,cj FROM grade WHERE sno=:s_sno and ame=:s_ame。 s_sno=trim() //要查詢的學號 s_ame=trim() //要查詢的課程名 () //清除 listbox 中的內容 Open stud。 //打開游標 //提取數據 FETCH stud INTO:sname,:cj。 DO WHILE =0 //將讀取的數據加到 listbox 中 (s_sno++sname++cj) FETCH stud INTO:sname,:cj。 LOOP Close stud。 //關閉游標 String s_sno,sname,s_ame,cj,lx 成績模糊查詢， clicked 事件腳本： //申明游標 stud DECLARE stud CURSOR FOR SELECT sno,sname,cj,lx FROM grade WHERE ame=:s_ame。 s_ame=trim() //要查詢的課程名 () //清除 listbox 中 的內容 Open stud。 //打開游標 //提取數據 FETCH stud INTO:s_sno,:sname,:cj,:lx。 DO WHILE =0 //將讀取的數據加到 listbox 中 哈爾濱工業大學（威海） 數據庫系統課程設計報告 26 / 35 (s_sno++sname++cj++lx) FETCH stud INTO:s_sno,:sname,:cj:lx。 LOOP Close stud。 //關閉游標 學生成績查詢（模糊查詢） 圖 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。 s_ame=trim() //要查詢的課程名 () //清除 listbox 中的內容 Open stud。 //打開游標 //提取數據 FETCH stud INTO:s_sno,:sname,:cj,:lx。 DO WHILE =0 哈爾濱工業大學（威海） 數據庫系統課程設計報告 27 / 35 //將讀取的數據加到 listbox 中 (s_sno++sname++cj++lx) FETCH stud INTO:s_sno,:sname,:cj:lx。 LOOP Close stud。 //關閉游標 數據庫備份與還原 圖 610 數據庫備份與還原 備份： string sql =true sql=backup database cjglxt to disk=39。F:\課程設計 .bak39。 execute immediate :sql using sqlca。 if 0 then messagebox(,)。 else messagebox(成功 ,數據庫備份成功 !) end if 還原： string ls_filename,backup1 ls_filename=trim() 哈爾濱工業大學（威海） 數據庫系統課程設計報告 28 / 35 if ls_filename= then messagebox(提示 ,請輸入還原文件名！ ) return end if disconnect using sqlca。 // Profile ddd = MSS Microsoft SQL Server = cjglxt = USER20210218LU\AAA = sa = False = connect using sqlca。 if 0 then messagebox(提示！ ,連接數據庫失敗 ,原因 +) //提示信息 return end if backup1=restore database cjglxt from disk=39。+ls_filename +39。 messagebox(,backup1) execute immediate :backup1。 if =0 then messagebox(提示 ,還原成功 ) else messagebox(提示信息 ,錯誤 +) = () end if =false 哈爾濱工業大學（威海） 數據庫系統課程設計報告 7 總 結 系統實現程度 最終的系統完成了哪些功能，與初期設計還有哪些差距或未完成的內容。 完成了信息管理和查詢，具體實現了信息的錄入、更新、修改、刪除、查找等功能 沒有生成可執行文件 問題及難點 課設過程中遇到的棘手問題及難點所在。 下拉列表框控件中的數據提取，難點在于游標的靈活使用以及變量的處理 設計菜單的控制程序是一個難點 數據操作，具體就是對表中數據的瀏覽、添加、刪除、查詢、更新等，完成這些功能，需要考慮的問題多且復雜，相應的編程工作量也比較大。 收獲與體會 課程設計過程的收獲和體會、遇到問題過程的思考、程序調試能力的思考、對數據結構這門課程的思考等相關內容。 經過 兩 周的課程設計，加強了我關于理論聯系實際、與具體課題項目結合開發、設計系統的能力。既讓我們了解到應該怎 樣把理論運用于實際，又讓我們了解到在實踐中遇到問題時要怎樣運用所學知識理論去解決。 在本次課程設計中，我們還需要一些以前沒有學習到的知識，于是書籍跟網絡成了我們的良好助手。在查閱資料的過程中，我們要判斷優劣、取舍相關知識，這樣一來我們對搜索來的信息的利用能力也有所提高。我們學習的知識是有限的，在以后的工作中我們肯定會遇到許多求知的領域，這方面的能力將有助于我們未來的工作。 另外，在本次設計過程中，我主要是做系統設計部分，好的設計將有助于后面的系統實現工作。根據對學生 成績 管理系統的需求分析，將學生 成績 管理 系統劃分為學生信息、 課程信息 管理、成績管理等幾個功能模塊，運用文字加圖說明，設計較清晰。總的來說， 兩 周的課程設計讓我所學的知識理論上升到實踐的層次，認識到自己還有很多不足，可以促進我在未來的學習。