【正文】 ecimal(18,2),avg(convert(float,))) as avgScore, 39。 + 39。 sum(case when convert(float,) 60 then 0 else 1 end) as Fail 39。 sCondition2 := 39。 group by ,,39。 end。 2: begin [0].Visible := False。 [1].Visible := False。 sCondition1 := 39。select ,max() as MaxScore, 39。 + 39。 min() as MinScore,convert(decimal(18,2),avg(convert(float,))) as avgScore, 39。 + 39。 sum(case when convert(float,) 60 then 0 else 1 end) as Fail 39。 sCondition2 := 39。 group by ,39。 end。 3: begin [0].Visible := False。 [1].Visible := False。 [2].Visible := False。 sCondition1 := 39。select ,max() as MaxScore, 39。 + 39。 min() as MinScore,convert(decimal(18,2),avg(convert(float,))) as avgScore, 39。 + 39。 sum(case when convert(float,) 60 then 0 else 1 end) as Fail 39。 sCondition2 := 39。 group by ,39。 end。 4: begin [0].Visible := False。 [1].Visible := False。 [2].Visible := False。 [3].Visible := False。 sCondition1 := 39。select ,max() as MaxScore, 39。 + 39。 min() as MinScore,convert(decimal(18,2),avg(convert(float,))) as avgScore, 39。 + 39。 sum(case when convert(float,) 60 then 0 else 1 end) as Fail 39。 sCondition2 := 39。 group by ,39。 end。 end。 sSQL := sCondition1 + sSQL + sCondition2。 gf_OpenSQL(sSQL, aqMaster)。end。打印procedure CopyDbDataToExcel(Args: array of const)。var iCount, jCount: Integer。 XLApp: Variant。 Sheet: Variant。 I: Integer。begin := crHourGlass。 if not VarIsEmpty(XLApp) then begin := False。 。 VarClear(XLApp)。 end。 try XLApp := CreateOleObject(39。39。)。 except := crDefault。 Exit。 end。 。 := High(Args) + 1。 for I := Low(Args) to High(Args) do begin [1].WorkSheets[I+1].Name := TDBGrid(Args[I].VObject).Name。 Sheet := [1].WorkSheets[TDBGrid(Args[I].VObject).Name]。 if not TDBGrid(Args[I].VObject). then begin := crDefault。 Exit。 end。 TDBGrid(Args[I].VObject).。 for iCount := 0 to TDBGrid(Args[I].VObject). 1 do [1, iCount + 1] := TDBGrid(Args[I].VObject).[iCount].。 jCount := 1。 while not TDBGrid(Args[I].VObject). do begin for iCount := 0 to TDBGrid(Args[I].VObject). 1 do begin [jCount + 1, iCount + 1] := TDBGrid(Args[I].VObject).[iCount].。 end。 Inc(jCount)。 TDBGrid(Args[I].VObject).。 end。 := True。 end。 := crDefault。end。五、系統(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í)的茫然無(wú)知到現(xiàn)在可以做出的成品的進(jìn)步，帶給我們的不僅僅是高興，更多的是收獲知識(shí)的滿足。學(xué)習(xí)成績(jī)管理系統(tǒng)時(shí)一個(gè)與我們息息相關(guān)的軟件系統(tǒng)，如何把它做好是一個(gè)難題。作為學(xué)生，很容易知道作為學(xué)生應(yīng)該擁有的權(quán)限，然而對(duì)于教師、管理員的職權(quán)我們卻是似懂非懂。通過(guò)我們小組人員的討論，分析最終確定了他們的職權(quán)，完成他們的功能。通過(guò)對(duì)這次學(xué)習(xí)成績(jī)管理系統(tǒng)的設(shè)計(jì)，我們明白了創(chuàng)建一個(gè)小型管理系統(tǒng)的流程與步驟。判斷一個(gè)管理系統(tǒng)的好壞，最重要的一個(gè)依據(jù)就是看這個(gè)系統(tǒng)是否滿足用戶的需求。所以首先進(jìn)行一個(gè)系統(tǒng)的需求分析至關(guān)重要。我們要站在用戶的角度分析什么功能是常用的，什么功能時(shí)重要的，什么功能時(shí)次要的，我們要根據(jù)實(shí)際的情況調(diào)整按鈕的排列順序，功能實(shí)現(xiàn)的復(fù)雜程度和所耗系統(tǒng)內(nèi)存，以及實(shí)現(xiàn)時(shí)間。只有這樣我們才能做好一個(gè)滿足需求的軟件。一個(gè)好的軟件設(shè)計(jì)不僅要滿足用戶的需求，還需要站在管理員的角度和層面上分析，一個(gè)管理層應(yīng)該具備哪些職權(quán)才能更快捷地實(shí)現(xiàn)對(duì)整個(gè)系統(tǒng)的管理。也就是說(shuō)在系統(tǒng)開(kāi)發(fā)方面要以用戶為主體，兼顧管理員對(duì)整個(gè)資料的掌控來(lái)實(shí)現(xiàn)軟件，而不是自己想當(dāng)然，即做到有理有據(jù)。這種統(tǒng)籌兼顧的思想應(yīng)該是一個(gè)IT人才應(yīng)該具備的基本思想。同時(shí)也讓我們體會(huì)到編寫源代碼時(shí)對(duì)語(yǔ)言運(yùn)用的能力的要求，我們應(yīng)該力求在滿足功能的基礎(chǔ)上讓我們的代碼語(yǔ)言簡(jiǎn)潔、易懂。我們絕不能滿足于自己所懂得知識(shí)，要明白作為一個(gè)合格的計(jì)算機(jī)人才，不斷創(chuàng)新、不斷發(fā)展科技才能跟上時(shí)代發(fā)展的要求，才能與時(shí)俱進(jìn)！軟件設(shè)計(jì)的主要目的便是對(duì)同學(xué)們動(dòng)手實(shí)踐能力的一個(gè)鍛煉。通過(guò)課程設(shè)計(jì)，讓同學(xué)們更好的掌握delphi這個(gè)軟件，了解和掌握pascal語(yǔ)言的用法。一次課程設(shè)計(jì)所教會(huì)我們的絕對(duì)比我們從書(shū)本上得到的更多更印象深刻。從控件的熟悉到界面的設(shè)計(jì)，再到代碼的編寫，到debug的出現(xiàn)，然后就是不斷修改調(diào)試，直到最后的成功運(yùn)行。每一步都是一個(gè)進(jìn)步，每一次進(jìn)步都是一次心獲得心靈滿足感的時(shí)候。翻閱書(shū)籍、網(wǎng)上查詢、詢問(wèn)同學(xué)……每一次問(wèn)題的解決都是艱難的，但在每一次艱難的嘗試后獲得的成功的喜悅確實(shí)溢于言表的。從完全不懂代碼到自己會(huì)敲代碼再到今天程序的順利完成，這是我們朝著人生的道路又前進(jìn)了一步。但是，我們也明白，雖然完成了這次課程設(shè)計(jì)，我們對(duì)delphi的認(rèn)識(shí)、對(duì)pascal語(yǔ)言的了解也只是在一個(gè)層面上，以后我們還需要學(xué)習(xí)的很多很多。我相信我們都不是停滯不前的人，我們都渴望知識(shí)的澆灌，未來(lái)我們一定可以“更上一層樓”！一次課程設(shè)計(jì)所教會(huì)我們的絕不僅僅是技能的提高，動(dòng)手能力的鍛煉，這次組隊(duì)的結(jié)果更是讓大家相互理解，相互合作，相互幫助相互扶持，增進(jìn)了友誼。知識(shí)的增加、能力的鍛煉、友誼的增進(jìn)、團(tuán)結(jié)合作是我們收獲的寶貴財(cái)富！七、附錄八、參考文獻(xiàn) [1] 劉斌，李文革， 7數(shù)據(jù)庫(kù)高級(jí)教程[M].清華大學(xué)出版社，2004. [2] Sever 2000應(yīng)用及實(shí)例集錦[M]. 北京：人民郵電出版社，2002. [3] 周緒、管麗娜、 Server 2000 入門與提高[M].清華大學(xué)出版社，2001. [4] 杜軍平、 Server 2000數(shù)據(jù)庫(kù)開(kāi)發(fā)[M].機(jī)械工業(yè)出版社，2001. [5] 亞林，[M].航空工業(yè)出版社，2006.37