【正文】 總的來說， 兩 周的課程設(shè)計讓我所學(xué)的知識理論上升到實踐的層次，認(rèn)識到自己還有很多不足，可以促進(jìn)我在未來的學(xué)習(xí)。 另外，在本次設(shè)計過程中，我主要是做系統(tǒng)設(shè)計部分，好的設(shè)計將有助于后面的系統(tǒng)實現(xiàn)工作。在查閱資料的過程中，我們要判斷優(yōu)劣、取舍相關(guān)知識，這樣一來我們對搜索來的信息的利用能力也有所提高。既讓我們了解到應(yīng)該怎 樣把理論運(yùn)用于實際，又讓我們了解到在實踐中遇到問題時要怎樣運(yùn)用所學(xué)知識理論去解決。 收獲與體會 課程設(shè)計過程的收獲和體會、遇到問題過程的思考、程序調(diào)試能力的思考、對數(shù)據(jù)結(jié)構(gòu)這門課程的思考等相關(guān)內(nèi)容。 完成了信息管理和查詢，具體實現(xiàn)了信息的錄入、更新、修改、刪除、查找等功能 沒有生成可執(zhí)行文件 問題及難點 課設(shè)過程中遇到的棘手問題及難點所在。 messagebox(,backup1) execute immediate :backup1。 if 0 then messagebox(提示！ ,連接數(shù)據(jù)庫失敗 ,原因 +) //提示信息 return end if backup1=restore database cjglxt from disk=39。 else messagebox(成功 ,數(shù)據(jù)庫備份成功 !) end if 還原： string ls_filename,backup1 ls_filename=trim() 哈爾濱工業(yè)大學(xué)（威海） 數(shù)據(jù)庫系統(tǒng)課程設(shè)計報告 28 / 35 if ls_filename= then messagebox(提示 ,請輸入還原文件名！ ) return end if disconnect using sqlca。 execute immediate :sql using sqlca。 //關(guān)閉游標(biāo) 數(shù)據(jù)庫備份與還原 圖 610 數(shù)據(jù)庫備份與還原 備份： string sql =true sql=backup database cjglxt to disk=39。 DO WHILE =0 哈爾濱工業(yè)大學(xué)（威海） 數(shù)據(jù)庫系統(tǒng)課程設(shè)計報告 27 / 35 //將讀取的數(shù)據(jù)加到 listbox 中 (s_sno++sname++cj++lx) FETCH stud INTO:s_sno,:sname,:cj:lx。 s_ame=trim() //要查詢的課程名 () //清除 listbox 中的內(nèi)容 Open stud。 LOOP Close stud。 //打開游標(biāo) //提取數(shù)據(jù) FETCH stud INTO:s_sno,:sname,:cj,:lx。 //關(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。 DO WHILE =0 //將讀取的數(shù)據(jù)加到 listbox 中 (s_sno++sname++cj) FETCH stud INTO:sname,:cj。 s_sno=trim() //要查詢的學(xué)號 s_ame=trim() //要查詢的課程名 () //清除 listbox 中的內(nèi)容 Open stud。 LOOP Close stuu。 //打開游標(biāo) //提取數(shù)據(jù) FETCH stuu INTO:s_sno,:s_sname,:s_sex。 = () () 數(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è)計報告 24 / 35 FROM student WHERE sname LIKE:s_sname。 MessageBox ( ===提示 === ,該記錄成功更 新 ) end if = = = （ 3）課程信息管理模塊 課程信息管理截圖如圖 66 圖 66 課程信息管理界面 添加， clicked 事件腳本： Long ll_o String ls_ame,ls_bj,ls_lx,ls_xq,ls_credit //數(shù)據(jù)格式檢驗 IF = OR isNULL() THEN MessageBox(缺少數(shù)據(jù) ,請輸 入課程號 ) () 哈爾濱工業(yè)大學(xué)（威海） 數(shù)據(jù)庫系統(tǒng)課程設(shè)計報告 21 / 35 RETURN ELSEIF = OR isNULL() THEN MessageBox(缺少數(shù)據(jù) ,請輸入課程名 ) () RETURN ELSEIF = OR isNULL() THEN MessageBox(缺少數(shù)據(jù) ,請輸入上課班級 ) () RETURN ELSEIF = OR isNULL() THEN MessageBox(缺少數(shù)據(jù) ,請輸入上課學(xué)期 ) () RETURN ELSEIF = OR isNULL() THEN MessageBox(缺少數(shù)據(jù) ,請輸入課程學(xué)分 ) () RETURN END IF ll_o=long() ls_ame=string() ls_bj=string() ls_xq=string() ls_credit=string() //取出課程類型選擇 IF THEN ls_lx= ELSEIF THEN ls_lx= END IF (++++++ls_lx++++哈爾濱工業(yè)大學(xué)（威海） 數(shù)據(jù)庫系統(tǒng)課程設(shè)計報告 22 / 35 ) //向數(shù)據(jù)庫寫入數(shù)據(jù) INSERT INTO course (o, ame, bj, lx, xq, credit ) VALUES (:ll_o, :ls_ame, :ls_bj, :ls_lx, :ls_xq, :ls_credit )。 確認(rèn)錄入腳本： char li_cj String s_sno,ls_sname,ls_ame String sno=s_sno,ame=ls_ame =string(s_sno+ls_ame) //數(shù)據(jù)格式檢驗 IF =none THEN MessageBox(缺少數(shù)據(jù) ,請選擇學(xué)生學(xué)號、姓名 ) RETURN ELSE ls_sname=string(mid(,2,25)) END IF IF =none THEN MessageBox(缺少數(shù)據(jù) ,請選擇考試課程名稱 ) RETURN ELSE ls_ame=trim() END IF 哈爾濱工業(yè)大學(xué)（威海） 數(shù)據(jù)庫系統(tǒng)課程設(shè)計報告 19 / 35 li_cj=string() //寫入數(shù)據(jù) INSERT INTO grade(sno,ame,cj) VALUES(:s_sno,:ls_ame,:li_cj)。 loop While =0 (s_sno++s_sname) (s_sno++s_sname) FETCH stu INTO:s_sno,:s_sname。 MessageBox(恭喜 ,信息刪除成功 ) 哈爾濱工業(yè)大學(xué)（威海） 數(shù)據(jù)庫系統(tǒng)課程設(shè)計報告 17 / 35 （ 2） 成績信息管理模塊，分為成績錄入和成績修改兩個部分，其中 成績錄入截圖如圖 64 圖 64 成績錄入 下拉列表框 ddlb_student 控制腳本： String s_sno,s_sname String ls_sname String sno=s_sno,sname=s_sname reset(ddlb_student) //定義游標(biāo) DECLARE stu CURSOR FOR SELECT sno,sname FROM student //打開游標(biāo) Open stu。 //數(shù)據(jù)寫入數(shù)據(jù)庫后，將輸入控件全部置空 = = =