【文章內(nèi)容簡介】 null)。表八用戶表user屬性名數(shù)據(jù)類型是否為主鍵是否為空說明缺省值usernoChar(10)yesNOT NULL用戶名passwordChar（6）noNOT NULL密碼‘000000’Create table user(userno char(10) primary key,password char（6）not null )。視圖，索引，數(shù)據(jù)庫權(quán)限：這些在這個(gè)學(xué)生成績管理系統(tǒng)中沒有用到。軟件功能設(shè)計(jì)(1)、系統(tǒng)的結(jié)構(gòu)圖修改密碼退出成績查詢顯示制作人和版本退出修改密碼成績查詢個(gè)人信息顯示制作人和版本個(gè)人信息幫 助成 績 管 理菜 單幫 助菜 單成 績 管 理成績統(tǒng)計(jì)顯示制作人和版本成績管理學(xué)生信息成績查詢管理員信息教師信息退出修改密碼個(gè)人信息幫 助成 績 管 理信 息 管 理菜 單學(xué)生教師管理員系統(tǒng)登錄學(xué)生管理系統(tǒng)登陸次數(shù)必須小于三(2)、功能表：學(xué) 生 成 績 管 理 系 統(tǒng)身份功能模塊細(xì)分模塊功能具體描述管 理 員菜單個(gè)人信息顯示登錄管理員的個(gè)人信息（工號、姓名、性別）修改密碼管理員修改自己的登錄密碼退出管理員退出整個(gè)系統(tǒng)信息管理管理員信息對所有管理員的信息進(jìn)行增刪改查教師信息對所有教師的信息進(jìn)行增刪改查學(xué)生信息對所有學(xué)生的信息進(jìn)行增刪改查成績管理成績查詢可以按學(xué)號、班級、院系、教師工號等分別進(jìn)行查詢查某學(xué)生所學(xué)課程的排名、最高分、最低分、績點(diǎn)、不及格人數(shù)等查某班級某科目分?jǐn)?shù)段的人數(shù)成績管理對學(xué)生成績進(jìn)行增刪改查成績統(tǒng)計(jì)按學(xué)號、班級、院系、教師工號等分別進(jìn)行統(tǒng)計(jì)對結(jié)果提供打印能幫助顯示該系統(tǒng)的制作人和版本教 師菜單個(gè)人信息顯示登錄教師個(gè)人信息（工號、姓名、性別、院系號、聯(lián)系方式）修改密碼教師修改自己的登錄密碼退出教師退出整個(gè)系統(tǒng)成績管理成績查詢查詢所教課程的最高分、最低分、各分?jǐn)?shù)段人數(shù)、不及格人數(shù)等成績統(tǒng)計(jì)按學(xué)號、班級、院系、教師工號等分別進(jìn)行統(tǒng)計(jì)幫助顯示該系統(tǒng)的制作人和版本學(xué) 生菜單個(gè)人信息顯示登錄學(xué)生個(gè)人信息（學(xué)號、姓名、性別、班級號、院系號、聯(lián)系方式）修改密碼學(xué)生修改自己的登錄密碼退出學(xué)生退出整個(gè)系統(tǒng)成績管理成績查詢查某學(xué)生所學(xué)課程的排名、最高分、最低分、績點(diǎn)、不及格人數(shù)等幫助顯示該系統(tǒng)的制作人和版本(3)、功能描述：同功能表。四、系統(tǒng)實(shí)施(1)、系統(tǒng)的界面設(shè)計(jì)：登陸界面密碼修改個(gè)人信息操作頁面信息管理成績查詢成績管理成績統(tǒng)計(jì)(2)、事件的設(shè)計(jì)過程：①運(yùn)行軟件進(jìn)入主界面，在主界面登錄進(jìn)入各自操作主界面。②學(xué)生登錄后可在登錄界面進(jìn)行成績查詢、個(gè)人信息查詢及密碼修改。③教師登錄后可在登錄界面進(jìn)行功能選擇來完成自己所選擇的查詢與維護(hù)。④管理員登錄后可在登錄界面點(diǎn)擊各頁面標(biāo)簽選擇功能進(jìn)入相應(yīng)頁面。(3)、主要代碼描述：登錄procedure (Sender: TObject)。var sSQL: string。begin if Trim() = 39。39。 then begin gf_MessageBox(39。請?zhí)顚懹脩裘?9。, MB_OK)。 。 Exit。 end else if Trim() = 39。39。 then begin gf_MessageBox(39。請?zhí)顚懨艽a！39。, MB_OK)。 。 Exit。 end。 iErrorCount := iErrorCount + 1。 sSQL := 39。select , 39。 + 39。 from [user] a 39。 + 39。 left join (select tno,tname,1 as UserType from teacher 39。 + 39。 union all 39。 + 39。 select sno,sname,2 from student 39。 + 39。 union all 39。 + 39。 select adminino,admininame,0 from administror) b on = 39。 + 39。 where = 39。 + QuotedStr(Trim()) + 39。 and = 39。 + QuotedStr(Trim())。 gf_OpenSQL(sSQL, )。 if then begin if iErrorCount = 3 then begin gf_MessageBox(39。賬號或密碼錯(cuò)誤三次，程序自動(dòng)關(guān)閉！39。,MB_OK)。 。 end。 gf_MessageBox(39。賬號或密碼錯(cuò)誤，請重試！還剩39。 + IntToStr(3 iErrorCount) + 39。次將自動(dòng)關(guān)閉程序！39。,MB_OK)。 。 。 end else begin := (39。userno39。).AsString。 := (39。tname39。).AsString。 := (39。usertype39。).AsInteger。 SetLoginInfo。 。 (TfrmStuSource, frmStuSource)。 case of 0: begin [0].Text := 39。工號：39。 + 。 [1].Text := 39。姓名：39。 + 。 [2].Text := 39。登錄身份：管理員39。 end。 1: begin := False。 := False。 := False。 [0].Text := 39。工號：39。 + 。 [1].Text := 39。姓名：39。 + 。 [2].Text := 39。登錄身份：教師39。 end。 2: begin := False。 := False。 := False。 [0].Text := 39。學(xué)號：39。 + 。 [1].Text := 39。姓名：39。 + 。 [2].Text := 39。登錄身份：學(xué)生39。 end。 end。 。 end。end。procedure (Sender: TObject)。begin iErrorCount := 0。end。procedure (Sender: TObject。 var Key: Word。 Shift: TShiftState)。begin if Key = 13 then 。end。procedure (Sender: TObject。 var Key: Word。 Shift: TShiftState)。begin if Key = 13 then btnOKClick(Sender)。end。修改密碼function : Boolean。var sSQL: string。 OldPwd,NewPwd: string。begin Result := True。 if Trim() = Trim() then begin gf_MessageBox(39。兩次輸入的新密碼不相同39。,MB_OK)。 。 Result := False。 Exit。 end。 OldPwd := Trim()。 NewPwd := Trim()。 sSQL := 39。update [user] set password = 39。 + QuotedStr(NewPwd) + 39。 where userno = 39。 + QuotedStr()。 gf_ExecSQL(sSQL,)。end。procedure (Sender: TObject)。begin if not ChangePwd then begin gf_MessageBox(39。密碼修改成功！39。, MB_OK)。 Exit。 end。