學(xué)生成績(jī)管理系統(tǒng)設(shè)計(jì)報(bào)告(編輯修改稿)
2024-08-30 12:42 本頁(yè)面
【文章內(nèi)容簡(jiǎn)介】 null)。表八用戶(hù)表user屬性名數(shù)據(jù)類(lèi)型是否為主鍵是否為空說(shuō)明缺省值usernoChar(10)yesNOT NULL用戶(hù)名passwordChar（6）noNOT NULL密碼‘000000’Create table user(userno char(10) primary key,password char（6）not null )。視圖，索引，數(shù)據(jù)庫(kù)權(quán)限：這些在這個(gè)學(xué)生成績(jī)管理系統(tǒng)中沒(méi)有用到。軟件功能設(shè)計(jì)(1)、系統(tǒng)的結(jié)構(gòu)圖修改密碼退出成績(jī)查詢(xún)顯示制作人和版本退出修改密碼成績(jī)查詢(xún)個(gè)人信息顯示制作人和版本個(gè)人信息幫 助成 績(jī) 管 理菜 單幫 助菜 單成 績(jī) 管 理成績(jī)統(tǒng)計(jì)顯示制作人和版本成績(jī)管理學(xué)生信息成績(jī)查詢(xún)管理員信息教師信息退出修改密碼個(gè)人信息幫 助成 績(jī) 管 理信 息 管 理菜 單學(xué)生教師管理員系統(tǒng)登錄學(xué)生管理系統(tǒng)登陸次數(shù)必須小于三(2)、功能表：學(xué) 生 成 績(jī) 管 理 系 統(tǒng)身份功能模塊細(xì)分模塊功能具體描述管 理 員菜單個(gè)人信息顯示登錄管理員的個(gè)人信息（工號(hào)、姓名、性別）修改密碼管理員修改自己的登錄密碼退出管理員退出整個(gè)系統(tǒng)信息管理管理員信息對(duì)所有管理員的信息進(jìn)行增刪改查教師信息對(duì)所有教師的信息進(jìn)行增刪改查學(xué)生信息對(duì)所有學(xué)生的信息進(jìn)行增刪改查成績(jī)管理成績(jī)查詢(xún)可以按學(xué)號(hào)、班級(jí)、院系、教師工號(hào)等分別進(jìn)行查詢(xún)查某學(xué)生所學(xué)課程的排名、最高分、最低分、績(jī)點(diǎn)、不及格人數(shù)等查某班級(jí)某科目分?jǐn)?shù)段的人數(shù)成績(jī)管理對(duì)學(xué)生成績(jī)進(jìn)行增刪改查成績(jī)統(tǒng)計(jì)按學(xué)號(hào)、班級(jí)、院系、教師工號(hào)等分別進(jìn)行統(tǒng)計(jì)對(duì)結(jié)果提供打印能幫助顯示該系統(tǒng)的制作人和版本教 師菜單個(gè)人信息顯示登錄教師個(gè)人信息（工號(hào)、姓名、性別、院系號(hào)、聯(lián)系方式）修改密碼教師修改自己的登錄密碼退出教師退出整個(gè)系統(tǒng)成績(jī)管理成績(jī)查詢(xún)查詢(xún)所教課程的最高分、最低分、各分?jǐn)?shù)段人數(shù)、不及格人數(shù)等成績(jī)統(tǒng)計(jì)按學(xué)號(hào)、班級(jí)、院系、教師工號(hào)等分別進(jìn)行統(tǒng)計(jì)幫助顯示該系統(tǒng)的制作人和版本學(xué) 生菜單個(gè)人信息顯示登錄學(xué)生個(gè)人信息（學(xué)號(hào)、姓名、性別、班級(jí)號(hào)、院系號(hào)、聯(lián)系方式）修改密碼學(xué)生修改自己的登錄密碼退出學(xué)生退出整個(gè)系統(tǒng)成績(jī)管理成績(jī)查詢(xún)查某學(xué)生所學(xué)課程的排名、最高分、最低分、績(jī)點(diǎn)、不及格人數(shù)等幫助顯示該系統(tǒng)的制作人和版本(3)、功能描述：同功能表。四、系統(tǒng)實(shí)施(1)、系統(tǒng)的界面設(shè)計(jì)：登陸界面密碼修改個(gè)人信息操作頁(yè)面信息管理成績(jī)查詢(xún)成績(jī)管理成績(jī)統(tǒng)計(jì)(2)、事件的設(shè)計(jì)過(guò)程：①運(yùn)行軟件進(jìn)入主界面，在主界面登錄進(jìn)入各自操作主界面。②學(xué)生登錄后可在登錄界面進(jìn)行成績(jī)查詢(xún)、個(gè)人信息查詢(xún)及密碼修改。③教師登錄后可在登錄界面進(jìn)行功能選擇來(lái)完成自己所選擇的查詢(xún)與維護(hù)。④管理員登錄后可在登錄界面點(diǎn)擊各頁(yè)面標(biāo)簽選擇功能進(jìn)入相應(yīng)頁(yè)面。(3)、主要代碼描述：登錄procedure (Sender: TObject)。var sSQL: string。begin if Trim() = 39。39。 then begin gf_MessageBox(39。請(qǐng)?zhí)顚?xiě)用戶(hù)名！39。, MB_OK)。 。 Exit。 end else if Trim() = 39。39。 then begin gf_MessageBox(39。請(qǐng)?zhí)顚?xiě)密碼！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。賬號(hào)或密碼錯(cuò)誤三次，程序自動(dòng)關(guān)閉！39。,MB_OK)。 。 end。 gf_MessageBox(39。賬號(hào)或密碼錯(cuò)誤，請(qǐng)重試！還剩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。工號(hào)：39。 + 。 [1].Text := 39。姓名：39。 + 。 [2].Text := 39。登錄身份：管理員39。 end。 1: begin := False。 := False。 := False。 [0].Text := 39。工號(hào)：39。 + 。 [1].Text := 39。姓名：39。 + 。 [2].Text := 39。登錄身份：教師39。 end。 2: begin := False。 := False。 := False。 [0].Text := 39。學(xué)號(hào)：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。
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1