【正文】 noNOT NULL院系號(hào)（外鍵）sexchar(10)noNOT NULL性別phonechar（11）noNULL聯(lián)系方式Create table student(tno char(10) primary key,tname char（10） not null default ‘Noname’ ,sex char（10） not null ,departid char（10） forgein key refrences department(departid),phone char（20）)。teacher(tno, tname, departid, sex, phone)。③學(xué)生信息，包括學(xué)生編號(hào)，學(xué)生姓名，性別，班級(jí)，聯(lián)系方式等信息。學(xué)生成績(jī)信息查詢：管理員查詢功能：可以按學(xué)號(hào)、班級(jí)、院系、教師工號(hào)等對(duì)學(xué)生成績(jī)分別進(jìn)行查詢、查某門課程的排名、最高分、最低分、績(jī)點(diǎn)、不及格人數(shù)等、查某班級(jí)某科目分?jǐn)?shù)段的人數(shù)。③管理員要能夠?qū)崿F(xiàn)對(duì)管理員、教師、學(xué)生基本信息的增加、刪除、修改、查詢以及實(shí)現(xiàn)對(duì)學(xué)生成績(jī)的增加、刪除（按學(xué)號(hào)、按班級(jí)、按課程號(hào)、按院系）、修改、查詢（按學(xué)號(hào)、按班級(jí)、按課程號(hào)、按院系）和數(shù)據(jù)統(tǒng)計(jì)分析以及對(duì)結(jié)果提供打印功能等。問(wèn)題的提出為了提高高校學(xué)生成績(jī)信息的管理效率，方便學(xué)生和教師對(duì)學(xué)生成績(jī)信息進(jìn)行查詢、方便學(xué)校里面管理員去管理和查詢學(xué)生信息，建立一個(gè)學(xué)生成績(jī)管理系統(tǒng)，使學(xué)生信息管理工作規(guī)范化，系統(tǒng)化，程序化，避免學(xué)生成績(jī)管理的隨意性，提高信息處理的速度和準(zhǔn)確性，能夠及時(shí)、準(zhǔn)確、有效的查詢和修改學(xué)生信息是必須而且十分迫切的工作。最后，自己動(dòng)手編程序，能更好的提升對(duì)本專業(yè)的愛好，初步了解本專業(yè)的發(fā)展方向，為將來(lái)的畢業(yè)與找工作奠定基礎(chǔ)。首先,學(xué)生成績(jī)管理是一個(gè)學(xué)校不可缺少的部分，它的內(nèi)容對(duì)于學(xué)校的管理者和學(xué)生以及學(xué)生家長(zhǎng)來(lái)說(shuō)都至關(guān)重要，所以一個(gè)良好的學(xué)生成績(jī)管理系統(tǒng)應(yīng)該能夠?yàn)橛脩籼峁┏渥愕男畔⒑涂旖莸牟樵兪侄?。尤其?duì)于復(fù)雜的信息管理，計(jì)算機(jī)能夠充分發(fā)揮它的優(yōu)越性。計(jì)算機(jī)的最大好處在于利用它能夠進(jìn)行信息管理。具體分析：按照教師，學(xué)生，管理員三種角色設(shè)計(jì)系統(tǒng)功能。學(xué)生基本信息管理：管理員對(duì)所有學(xué)生信息進(jìn)行增刪改查，學(xué)生只能查詢自己的基本信息。退出程序：退出該程序。 (2).數(shù)據(jù)存儲(chǔ)①成績(jī)表信息，包括學(xué)生編號(hào)，課程編號(hào)，課程績(jī)點(diǎn)，課程成績(jī)等信息。class(departed, classno, classname)。表七班級(jí)表class屬性名數(shù)據(jù)類型是否為主鍵是否為空說(shuō)明缺省值departidchar(10)noNOT NULL院系號(hào)（外鍵）classnochar（10）yesNOT NULL班級(jí)號(hào)classnamechar（10）noNOT NULL班級(jí)名稱Create table class (departid char(10) foreign key references department(departid),classno char（10）primary key ,classname char（10） not null)。(3)、主要代碼描述：登錄procedure (Sender: TObject)。 Exit。 end。 + 39。 + 39。,MB_OK)。 。 := (39。 + 。 := False。 [2].Text := 39。 + 。 。 Shift: TShiftState)。修改密碼function : Boolean。 Result := False。 where userno = 39。 Exit。 from score a 39。 where 1 = 139。 and = 39。 + QuotedStr(Trim())。 then sSQL := sSQL + 39。 + QuotedStr(Trim())。增加記錄procedure 。 。 Exit。 end else if Trim() = 39。39。 then begin gf_MessageBox(39。,MB_OK)。 end。 sSQL := Format(sSQL,[QuotedStr(Trim()),QuotedStr(Trim()),QuotedStr(Trim()) ,QuotedStr(Trim()),QuotedStr(Trim()),QuotedStr(Trim())])。 SearchData。 end。).AsString) + 39。修改記錄procedure 。 sno := (39。 and o = 39。錯(cuò)誤信息：39。end。 + 39。 + 39。 [1].Visible := False。 group by ,39。 min() as MinScore,convert(decimal(18,2),avg(convert(float,))) as avgScore, 39。 [2].Visible := False。 sCondition2 := 39。var iCount, jCount: Integer。 end。 := High(Args) + 1。 jCount := 1。 := crDefault。所以首先進(jìn)行一個(gè)系統(tǒng)的需求分析至關(guān)重要。通過(guò)課程設(shè)計(jì)，讓同學(xué)們更好的掌握delphi這個(gè)軟件，了解和掌握pascal語(yǔ)言的用法。知識(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ù)開發(fā)[M].機(jī)械工業(yè)出版社，2001. [5] 亞林，[M].航空工業(yè)出版社，2006.37。從控件的熟悉到界面的設(shè)計(jì)，再到代碼的編寫，到debug的出現(xiàn)，然后就是不斷修改調(diào)試，直到最后的成功運(yùn)行。只有這樣我們才能做好一個(gè)滿足需求的軟件。五、系統(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í)的滿足。 end。 Sheet := [1].WorkSheets[TDBGrid(Args[I].VObject).Name]。39。 Sheet: Variant。 end。 sCondition1 := 39。 sum(case when convert(float,) 60 then 0 else 1 end) as Fail 39。 3: begin [0].Visible := False。select ,max() as MaxScore, 39。 + 39。 + 39。var sSQL: string。 end。o39。).AsString。 sno: string。 + QuotedStr((39。刪除數(shù)據(jù)后將不能恢復(fù)，是否刪除？39。刪除記錄procedure 。 except on E: Exception do begin gf_MessageBox(39。是否新增所輸數(shù)據(jù)？39。 Exit。,MB_OK)。插入數(shù)據(jù)時(shí)未填寫成績(jī)！39。 then begin gf_MessageBox(39。39。 end else if Trim() = 39。 fScore: Double。全部39。 + QuotedStr(Trim()) + 39。39。 end。 1: begin sSQL := sSQL + 39。 left