【導(dǎo)讀】{ "error_code": 17, "error_msg": "Open api daily request limit reached" }

　　

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