【文章內(nèi)容簡介】 表八用戶表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)限：這些在這個學生成績管理系統(tǒng)中沒有用到。軟件功能設(shè)計(1)、系統(tǒng)的結(jié)構(gòu)圖修改密碼退出成績查詢顯示制作人和版本退出修改密碼成績查詢個人信息顯示制作人和版本個人信息幫 助成 績 管 理菜 單幫 助菜 單成 績 管 理成績統(tǒng)計顯示制作人和版本成績管理學生信息成績查詢管理員信息教師信息退出修改密碼個人信息幫 助成 績 管 理信 息 管 理菜 單學生教師管理員系統(tǒng)登錄學生管理系統(tǒng)登陸次數(shù)必須小于三(2)、功能表：學 生 成 績 管 理 系 統(tǒng)身份功能模塊細分模塊功能具體描述管 理 員菜單個人信息顯示登錄管理員的個人信息（工號、姓名、性別）修改密碼管理員修改自己的登錄密碼退出管理員退出整個系統(tǒng)信息管理管理員信息對所有管理員的信息進行增刪改查教師信息對所有教師的信息進行增刪改查學生信息對所有學生的信息進行增刪改查成績管理成績查詢可以按學號、班級、院系、教師工號等分別進行查詢查某學生所學課程的排名、最高分、最低分、績點、不及格人數(shù)等查某班級某科目分數(shù)段的人數(shù)成績管理對學生成績進行增刪改查成績統(tǒng)計按學號、班級、院系、教師工號等分別進行統(tǒng)計對結(jié)果提供打印能幫助顯示該系統(tǒng)的制作人和版本教 師菜單個人信息顯示登錄教師個人信息（工號、姓名、性別、院系號、聯(lián)系方式）修改密碼教師修改自己的登錄密碼退出教師退出整個系統(tǒng)成績管理成績查詢查詢所教課程的最高分、最低分、各分數(shù)段人數(shù)、不及格人數(shù)等成績統(tǒng)計按學號、班級、院系、教師工號等分別進行統(tǒng)計幫助顯示該系統(tǒng)的制作人和版本學 生菜單個人信息顯示登錄學生個人信息（學號、姓名、性別、班級號、院系號、聯(lián)系方式）修改密碼學生修改自己的登錄密碼退出學生退出整個系統(tǒng)成績管理成績查詢查某學生所學課程的排名、最高分、最低分、績點、不及格人數(shù)等幫助顯示該系統(tǒng)的制作人和版本(3)、功能描述：同功能表。四、系統(tǒng)實施(1)、系統(tǒng)的界面設(shè)計：登陸界面密碼修改個人信息操作頁面信息管理成績查詢成績管理成績統(tǒng)計(2)、事件的設(shè)計過程：①運行軟件進入主界面，在主界面登錄進入各自操作主界面。②學生登錄后可在登錄界面進行成績查詢、個人信息查詢及密碼修改。③教師登錄后可在登錄界面進行功能選擇來完成自己所選擇的查詢與維護。④管理員登錄后可在登錄界面點擊各頁面標簽選擇功能進入相應(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。賬號或密碼錯誤三次，程序自動關(guān)閉！39。,MB_OK)。 。 end。 gf_MessageBox(39。賬號或密碼錯誤，請重試！還剩39。 + IntToStr(3 iErrorCount) + 39。次將自動關(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。學號：39。 + 。 [1].Text := 39。姓名：39。 + 。 [2].Text := 39。登錄身份：學生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。end。3