【正文】 begin sSQL := 39。 查詢數(shù)據(jù) procedure 。 end。, MB_OK)。 begin if not ChangePwd then begin gf_MessageBox(39。 end。 + QuotedStr()。 + QuotedStr(NewPwd) + 39。 sSQL := 39。 OldPwd := Trim()。 Exit。 。兩次輸入的新密碼不相同 39。 begin Result := True。 var sSQL: string。 end。 Shift: TShiftState)。 procedure (Sender: TObject。 begin if Key = 13 then 。 var Key: Word。 22 end。 procedure (Sender: TObject)。 end。 end。登錄身份：學(xué)生 39。 + 。 [1].Text := 39。 學(xué)號： 39。 := False。 2: begin := False。登錄身份：教師 39。 + 。 [1].Text := 39。 工號： 39。 := False。 1: begin := False。登錄身份：管理員 39。 + 。 [1].Text := 39。 工號： 39。 (TfrmStuSource, frmStuSource)。 SetLoginInfo。usertype39。).AsString。 := 21 (39。userno39。 。,MB_OK)。 + IntToStr(3 iErrorCount) + 39。 gf_MessageBox(39。 。賬號或密碼錯誤三次，程序自動關(guān)閉！ 39。 gf_OpenSQL(sSQL, )。 and = 39。 where = 39。 select adminino,admininame,0 from administror) b on = 39。 union all 39。 select sno,sname,2 from student 39。 union all 39。 left join (select tno,tname,1 as UserType from teacher 39。 from [user] a 39。select , 39。 iErrorCount := iErrorCount + 1。 Exit。, MB_OK)。 then begin gf_MessageBox(39。 end else if Trim() = 39。 。請?zhí)顚懹脩裘?39。39。 var 20 sSQL: string。 ④管理員登錄后可在登錄 界面點擊各頁面標簽選擇功能進入相應(yīng)頁面。 ②學(xué)生登錄后可在登錄界面 進行成績查詢、個人信息查詢及密碼修改 。 軟件功能設(shè)計 (1)、系統(tǒng)的結(jié)構(gòu)圖 14 學(xué)生管理系統(tǒng) 系統(tǒng)登錄 管理員 教師 學(xué)生 菜 單 信 息 管 理 成 績 管 理 幫 助 個人信息 修改密碼 退出 教師信息 管理員信息 成績查詢 學(xué)生信息 成績管理 顯示制作人和版本 成績統(tǒng)計 成 績 管 理 菜 單 幫 助 菜 單 成 績 管 理 幫 助 個人信息 顯示制作人和版本 個人信息 成績查詢 修改密碼 退出 顯示制作人和版本 成績查詢 退出 修改密碼 登陸次數(shù)必須小于三 15 (2)、功能表： 學(xué) 生 成 績 管 理 系 統(tǒng) 身份 功能模塊 細分模塊 功能具體描述 管 理 員 菜單 個人信息 顯示登錄管理員的個人信息（工號、姓名、性別） 修改密碼 管理員修改自己的登錄密碼 退出 管理員退出整個系統(tǒng) 信息管理 管理員信息 對所有管理員的信息進行增刪改查 教師信息 對所有 教師的信息進行增刪改查 學(xué)生信息 對所有學(xué)生的信息進行增刪改查 成績管理 成績查詢 可以按學(xué)號、班級、院系、教師工號等分別進行查詢 查某學(xué)生所學(xué)課程的排名、最高分、最低分、績點、不及格人數(shù)等 查某班級某科目分數(shù)段的人數(shù) 成績管理 對學(xué)生成績進行增刪改查 成績統(tǒng)計 按學(xué)號、班級、院系、教師工號等分別進行統(tǒng)計 對結(jié)果提供打印能 幫助 顯示該系統(tǒng)的制作人和版本 教 師 菜單 個人信息 顯示登錄教師個人信息（工號、姓名、性別、院系號、聯(lián)系 方式） 修改密碼 教師修改自己的登錄密碼 退出 教師退出整個系統(tǒng) 成績管理 成績查詢 查詢所教課程的最高分、最低分、各分數(shù)段人數(shù)、 不及格人數(shù)等 成績統(tǒng)計 按學(xué)號、班級、院系、教師工號等分別進行統(tǒng)計 幫助 顯示該系統(tǒng)的制作人和版本 學(xué) 生 菜單 個人信息 顯示登錄學(xué)生個人信息（學(xué)號、姓名、性別、班級號、院系號、聯(lián)系方式） 修改密碼 學(xué)生修改自己的登錄密碼 退出 學(xué)生退出整個系統(tǒng) 成績管理 成績查詢 查某學(xué)生所學(xué)課程的排名、最高分、最低分 、績點、不及格人數(shù)等 16 幫助 顯示該系統(tǒng)的制作人和版本 (3)、功能描述： 同功能表 。 表八 用戶表 user 屬性名 數(shù)據(jù)類型 是否為主鍵 是否為空 說明 缺省值 userno Char(10) yes NOT NULL 用戶名 password Char（ 6） no NOT NULL 密碼 ‘000000’ Create table user( userno char(10) primary key, password char（ 6） not null )。 Adminino admininame sex 202100 張娜 女 202101 王強 男 表六 院系表 department 屬性名 數(shù)據(jù)類型 是否為主鍵 是否為空 說明 缺省值 departid char(10) yes NOT NULL 院系號 departname char（ 20） no NOT NULL 院系名 Create table student( departid char(10) primary key, departname char（ 20） not null )。 表四 學(xué)生成績表 score 屬性名 數(shù)據(jù)類型 是否為主鍵 是否為空 說明 缺省值 sno char(10) Yes NOT NULL 學(xué)號 sname char(20) no NOT NULL 姓名 Noname o char(10) Yes NOT NULL 課程號 ame char(20） no NOT NULL 課程名 grade char(10) no NOT NULL 成績 GPA Float no NULL GPA Create table score ( sno char(10) , sname char（ 20） not null, o char（ 10） , ame char(20） not null, Score char(10) not null, GPA float, primary key(sno,o) )。 表二 教師信息表 teacher 屬性名 數(shù)據(jù)類型 是否為主鍵 是否為空 說明 缺省值 tno char(10) Yes NOT NULL 教師工號 tname char（ 10） no NOT NULL 教師姓名 Noname departid char(10) no NOT NULL 院系號 （外鍵） sex char(10) no NOT NULL 性別 phone char（ 11） no NULL 聯(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） fein key re