【正文】 知識的增加、能力的鍛煉、友誼的增進(jìn)、團(tuán)結(jié)合作是我們收獲的寶貴財(cái)富！七、附錄八、參考文獻(xiàn) [1] 劉斌，李文革， 7數(shù)據(jù)庫高級教程[M].清華大學(xué)出版社，2004. [2] Sever 2000應(yīng)用及實(shí)例集錦[M]. 北京：人民郵電出版社，2002. [3] 周緒、管麗娜、 Server 2000 入門與提高[M].清華大學(xué)出版社，2001. [4] 杜軍平、 Server 2000數(shù)據(jù)庫開發(fā)[M].機(jī)械工業(yè)出版社，2001. [5] 亞林，[M].航空工業(yè)出版社，2006.37。但是，我們也明白，雖然完成了這次課程設(shè)計(jì)，我們對delphi的認(rèn)識、對pascal語言的了解也只是在一個層面上，以后我們還需要學(xué)習(xí)的很多很多。翻閱書籍、網(wǎng)上查詢、詢問同學(xué)……每一次問題的解決都是艱難的，但在每一次艱難的嘗試后獲得的成功的喜悅確實(shí)溢于言表的。從控件的熟悉到界面的設(shè)計(jì)，再到代碼的編寫，到debug的出現(xiàn)，然后就是不斷修改調(diào)試，直到最后的成功運(yùn)行。通過課程設(shè)計(jì)，讓同學(xué)們更好的掌握delphi這個軟件，了解和掌握pascal語言的用法。同時也讓我們體會到編寫源代碼時對語言運(yùn)用的能力的要求，我們應(yīng)該力求在滿足功能的基礎(chǔ)上讓我們的代碼語言簡潔、易懂。也就是說在系統(tǒng)開發(fā)方面要以用戶為主體，兼顧管理員對整個資料的掌控來實(shí)現(xiàn)軟件，而不是自己想當(dāng)然，即做到有理有據(jù)。只有這樣我們才能做好一個滿足需求的軟件。所以首先進(jìn)行一個系統(tǒng)的需求分析至關(guān)重要。通過對這次學(xué)習(xí)成績管理系統(tǒng)的設(shè)計(jì)，我們明白了創(chuàng)建一個小型管理系統(tǒng)的流程與步驟。作為學(xué)生，很容易知道作為學(xué)生應(yīng)該擁有的權(quán)限，然而對于教師、管理員的職權(quán)我們卻是似懂非懂。五、系統(tǒng)測試(1)、給出單元測試的測試用例：按教師工號查詢按學(xué)號查詢按班級查詢新增數(shù)據(jù)刪除數(shù)據(jù)統(tǒng)計(jì)(2)、給出系統(tǒng)測試的測試用例：登錄用戶名或密碼錯誤修改密碼兩次密碼不一致修改成功六、收獲和體會一次軟件設(shè)計(jì)帶給我們的收獲很多很多，想著剛接觸delphi時的茫然無知到現(xiàn)在可以做出的成品的進(jìn)步，帶給我們的不僅僅是高興，更多的是收獲知識的滿足。 := crDefault。 := True。 TDBGrid(Args[I].VObject).。 end。 jCount := 1。 TDBGrid(Args[I].VObject).。 Exit。 Sheet := [1].WorkSheets[TDBGrid(Args[I].VObject).Name]。 := High(Args) + 1。 end。 except := crDefault。39。 end。 。begin := crHourGlass。 Sheet: Variant。var iCount, jCount: Integer。end。 sSQL := sCondition1 + sSQL + sCondition2。 end。 sCondition2 := 39。 + 39。 + 39。 sCondition1 := 39。 [2].Visible := False。 4: begin [0].Visible := False。 group by ,39。 sum(case when convert(float,) 60 then 0 else 1 end) as Fail 39。 min() as MinScore,convert(decimal(18,2),avg(convert(float,))) as avgScore, 39。select ,max() as MaxScore, 39。 [2].Visible := False。 3: begin [0].Visible := False。 group by ,39。 sum(case when convert(float,) 60 then 0 else 1 end) as Fail 39。 min() as MinScore,convert(decimal(18,2),avg(convert(float,))) as avgScore, 39。select ,max() as MaxScore, 39。 [1].Visible := False。 end。 sCondition2 := 39。 + 39。 + 39。 case iType of 1: begin sCondition1 := 39。 + 39。 + 39。 + 39。 sSQL := 39。 i: Integer。var sSQL: string。end。sno39。 SearchData。 end。錯誤信息：39。 except on E: Exception do begin gf_MessageBox(39。 sSQL := Format(sSQL,[QuotedStr(Trim()),QuotedStr(Trim()),QuotedStr(Trim()) ,QuotedStr(Trim()),QuotedStr(Trim()),QuotedStr(Trim())])。o39。 and o = 39。sno39。update score set sno = %s,sname = %s, o = %s, ame = %s, score = %s, GPA = %s where sno = 39。).AsString。 sno := (39。 Exit。沒有數(shù)據(jù)可以修改！39。 sno: string。修改記錄procedure 。 SearchData。).AsString)。 + QuotedStr((39。).AsString) + 39。 + QuotedStr((39。 sSQL := 39。刪除數(shù)據(jù)后將不能恢復(fù)，是否刪除？39。 end。,MB_OK + MB_ICONWARNING)。begin if () or (not ) then begin gf_MessageBox(39。刪除記錄procedure 。 SearchData。 end。錯誤信息：39。 except on E: Exception do begin gf_MessageBox(39。 sSQL := Format(sSQL,[QuotedStr(Trim()),QuotedStr(Trim()),QuotedStr(Trim()) ,QuotedStr(Trim()),QuotedStr(Trim()),QuotedStr(Trim())])。 + 39。 sSQL := sSQL + 39。是否新增所輸數(shù)據(jù)？39。 end。 。平均績點(diǎn)輸入不合法，請重輸！39。 Exit。,MB_OK)。 if not TryStrToFloat(Trim(),fScore) then begin gf_MessageBox(39。 Exit。,MB_OK)。 then begin gf_MessageBox(39。 end else if Trim() = 39。 。插入數(shù)據(jù)時未填寫成績！39。39。 Exit。,MB_OK)。 then begin gf_MessageBox(39。 end else if Trim() = 39。 。插入數(shù)據(jù)時未填寫課程號！39。39。 Exit。,MB_OK)。 then begin gf_MessageBox(39。 end else if Trim() = 39。 。插入數(shù)據(jù)時未填寫學(xué)號！39。39。 fScore: Double。增加記錄procedure 。 gf_OpenSQL(sSQL, aqMaster)。 and = 39。全部39。 + QuotedStr(Trim())。 then sSQL := sSQL + 39。 if Trim() 39。 + QuotedStr(Trim()) + 39。 then sSQL := sSQL + 39。 i