【正文】 key,tname char（10） not null default ‘Noname’ ,sex char（10） not null ,departid char（10） forgein key refrences department(departid),phone char（20）)。39。select , 39。 and = 39。userno39。 + 。 2: begin := False。procedure (Sender: TObject)。begin Result := True。end。 + 39。 end。)39。begin if Trim() = 39。 then begin gf_MessageBox(39。,MB_OK)。 end else if not TryStrToFloat(Trim(),fScore) then begin gf_MessageBox(39。保存數(shù)據(jù)發(fā)生錯(cuò)誤。,MB_YESNO + MB_ICONWARNING) = IDNO then Exit。begin if () or (not ) then begin gf_MessageBox(39。).AsString)。 sCondition1,sCondition2: string。 sum(case when convert(float,) 60 then 0 else 1 end) as Fail 39。 [1].Visible := False。select ,max() as MaxScore, 39。 I: Integer。 if not TDBGrid(Args[I].VObject). then begin := crDefault。學(xué)習(xí)成績(jī)管理系統(tǒng)時(shí)一個(gè)與我們息息相關(guān)的軟件系統(tǒng)，如何把它做好是一個(gè)難題。每一步都是一個(gè)進(jìn)步，每一次進(jìn)步都是一次心獲得心靈滿足感的時(shí)候。我們絕不能滿足于自己所懂得知識(shí)，要明白作為一個(gè)合格的計(jì)算機(jī)人才，不斷創(chuàng)新、不斷發(fā)展科技才能跟上時(shí)代發(fā)展的要求，才能與時(shí)俱進(jìn)！軟件設(shè)計(jì)的主要目的便是對(duì)同學(xué)們動(dòng)手實(shí)踐能力的一個(gè)鍛煉。 end。 。打印procedure CopyDbDataToExcel(Args: array of const)。 [1].Visible := False。 sCondition2 := 39。select ,max() as MaxScore, 39。,sno,[])。).AsString) + 39。end。 Exit。 values(%s,%s,%s,%s,%s,%s)39。成績(jī)輸入不合法，請(qǐng)重輸！39。 end else if Trim() = 39。 。end。39。 2: begin sSQL := sSQL + 39。 + 39。 + QuotedStr(NewPwd) + 39。end。 end。 + 。工號(hào)：39。,MB_OK)。 select adminino,admininame,0 from administror) b on = 39。 Exit。④管理員登錄后可在登錄界面點(diǎn)擊各頁面標(biāo)簽選擇功能進(jìn)入相應(yīng)頁面。department(departed, departname)。學(xué)生成績(jī)信息統(tǒng)計(jì)：按學(xué)號(hào)、班級(jí)、院系、教師工號(hào)等分別進(jìn)行統(tǒng)計(jì)，并對(duì)結(jié)果提供打印能。另外，在日常學(xué)習(xí)生活中，為了方便老師和同學(xué)了解情況，需要提供平均分、最高（低）分、排名等供老師和學(xué)生查詢。這些優(yōu)點(diǎn)能夠極大地提高管理者管理的效率,也是學(xué)校走向科學(xué)化、正規(guī)化管理,與世界接軌的重要條件。在各行各業(yè)中離不開信息處理，這正是計(jì)算機(jī)被廣泛應(yīng)用于信息管理系統(tǒng)的環(huán)境。3 二、需求分析9四、系統(tǒng)實(shí)施34一、概述學(xué)生成績(jī)管理系統(tǒng)對(duì)學(xué)校加強(qiáng)學(xué)生成績(jī)管理有著極其重要的作用.本次課程設(shè)計(jì)題目為《學(xué)生成績(jī)管理系統(tǒng)》，涉及成績(jī)管理系統(tǒng)的登錄界面、老師對(duì)學(xué)生成績(jī)的查詢、學(xué)生對(duì)學(xué)生成績(jī)的查詢、教務(wù)員對(duì)學(xué)生成績(jī)的增刪改查統(tǒng)計(jì)等內(nèi)容。教師查詢功能：查詢所教課程的最高分、最低分、各分?jǐn)?shù)段人數(shù)、不及格人數(shù)等。course(o, ame, credit, ctime, tno)。四、系統(tǒng)實(shí)施(1)、系統(tǒng)的界面設(shè)計(jì)：登陸界面密碼修改個(gè)人信息操作頁面信息管理成績(jī)查詢成績(jī)管理成績(jī)統(tǒng)計(jì)(2)、事件的設(shè)計(jì)過程：①運(yùn)行軟件進(jìn)入主界面，在主界面登錄進(jìn)入各自操作主界面。請(qǐng)?zhí)顚懨艽a！39。 + 39。賬號(hào)或密碼錯(cuò)誤，請(qǐng)重試！還剩39。 。 + 。 [2].Text := 39。 var Key: Word。 NewPwd := Trim()。var sSQL: string。 + QuotedStr() + 39。 and = 39。 and = 39。 then begin gf_MessageBox(39。,MB_OK)。 Exit。 sSQL := sSQL + 39。begin if () or (not ) then begin gf_MessageBox(39。).AsString)。update score set sno = %s,sname = %s, o = %s, ame = %s, score = %s, GPA = %s where sno = 39。 SearchData。 + 39。 min() as MinScore,convert(decimal(18,2),avg(convert(float,))) as avgScore, 39。 group by ,39。 sSQL := sCondition1 + sSQL + sCondition2。 except := crDefault。 TDBGrid(Args[I].VObject).。也就是說在系統(tǒng)開發(fā)方面要以用戶為主體，兼顧管理員對(duì)整個(gè)資料的掌控來實(shí)現(xiàn)軟件，而不是自己想當(dāng)然，即做到有理有據(jù)。但是，我們也明白，雖然完成了這次課程設(shè)計(jì)，我們對(duì)delphi的認(rèn)識(shí)、對(duì)pascal語言的了解也只是在一個(gè)層面上，以后我們還需要學(xué)習(xí)的很多很多。通過對(duì)這次學(xué)習(xí)成績(jī)管理系統(tǒng)的設(shè)計(jì)，我們明白了創(chuàng)建一個(gè)小型管理系統(tǒng)的流程與步驟。 TDBGrid(Args[I].VObject).。 。 + 39。select ,max() as MaxScore, 39。 end。 sSQL := 39。 except on E: Exception do begin gf_MessageBox(39。 Exit。 + QuotedStr((39。 end。 。 end else if Trim() = 39。 。插入數(shù)據(jù)時(shí)未填寫學(xué)號(hào)！39。 then sSQL := sSQL + 39。 then sSQL := sSQL + 39。 left join department d on = 39。密碼修改成功！39。,MB_OK)。procedure (Sender: TObject。 [0].Text := 39。 end。tname39。 if then begin if iErrorCount = 3 then begin gf_MessageBox(39。 + 39。, MB_OK)。表五管理員信息表administror屬性名數(shù)據(jù)類型是否為主鍵是否為空說明缺省值admininochar(10)YesNOT NULL工號(hào)admininameChar(20）noNOT NULL姓名Nonamesexchar(10)noNOT NULL性別Create table student(adminino char(10) primary key,admininame char（20） not null default ‘Noname’,sex char(10)