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