數(shù)據(jù)庫(kù)課程設(shè)計(jì)(文件)
【正文】 ,課程號(hào),成績(jī) from jdxgrade where 學(xué)號(hào)=39。39。 //求出平均成績(jī)和總分，分別賦值給edit 。39。39。求和39。).AsString。select 學(xué)號(hào),課程號(hào),成績(jī) from jdxgrade where 學(xué)號(hào)=39。39。 if = 0 then //未找到用戶，提示用戶輸入錯(cuò)誤 begin (39。,MB_OK)。 。 endend。 // 。Begin //在窗體創(chuàng)建時(shí)顯示SQL數(shù)據(jù) 。 。begin :=39。end. 經(jīng)管系成績(jī)管理 （代碼同上） 文法系成績(jī)管理（代碼同上） 賬戶管理uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, ADODB, StdCtrls, Grids, DBGrids, Buttons。 var Action: TCloseAction)。procedure (Sender: TObject)。 End。Insert into login values(:username,:password)39。).Value := Trim()。 ExecSQL。,39。 Except On E: Exception do //產(chǎn)生異常則拋出異常信息 ShowMessage()。,39。end。39。end。確實(shí)要?jiǎng)h除庫(kù)存名稱為: 39。用戶名的嗎?39。 。 end else (39。,64)。 。 (39。 end。End。 if (Trim()39。 (39。edit439。).Value := Trim()。 := n。 (39。,64)。end。 。賬戶管理測(cè)試主要用于檢測(cè)所輸入的用戶名和密碼是否符合要求，能否實(shí)現(xiàn)密碼修改。測(cè)試過程：進(jìn)入成績(jī)錄入界面，首先不不輸入學(xué)號(hào)或者姓名，則不成功，出現(xiàn)錯(cuò)誤，然后輸入符合條件的信息，則錄入成功。同時(shí)小組的合作也提高了團(tuán)隊(duì)合作能力。這次設(shè)計(jì)讓我深刻的體會(huì)到團(tuán)隊(duì)的力量，還有做什么事都不能馬馬虎虎，需要在思考后再好好實(shí)現(xiàn)。當(dāng)然本系統(tǒng)還存在好些缺點(diǎn)，比如，成績(jī)管理系統(tǒng)過于簡(jiǎn)單，沒有班級(jí)成績(jī)統(tǒng)計(jì)功能等。測(cè)試過程：進(jìn)入成績(jī)查詢界面，首先輸入錯(cuò)誤的學(xué)生學(xué)號(hào)，執(zhí)行查詢，則出現(xiàn)錯(cuò)誤，無(wú)法實(shí)現(xiàn)查詢，然后輸入不對(duì)應(yīng)的系的學(xué)生學(xué)號(hào)，執(zhí)行查詢，無(wú)法顯示查詢結(jié)果，再次輸入正確的系的學(xué)生學(xué)號(hào)，則查詢成功。然后輸入符合要求的用戶名信息，則添加成功，顯示操作成功。end. 幫助信息 系統(tǒng)名稱：通用成績(jī)管理系統(tǒng)測(cè)試環(huán)境：服務(wù)器環(huán)境Microsoft SQL Server、編程軟件環(huán)境Borland Delphi 6測(cè)試系統(tǒng)：windows XP登錄測(cè)試主要用于檢測(cè)系統(tǒng)能否防止非授權(quán)用戶使用系統(tǒng)。procedure (Sender: TObject)。begin。 End。,39。 。 end。 (39。)。)then //密碼是否為空 begin Try With do begin CLose。var n:string。 := Nil。)。 With do //刷新表格信息 begin CLose。procedure (Sender: TObject)。,39。 //產(chǎn)生異常則拋出異常信息 End。提示39。username39。begin inherited。39。begin Result := False。,64)。 end else begin (39。,64)。 (39。password39。 (39。 。 if TextIsNull = False then //判斷編輯框文本是否為空 begin With do //判斷用戶名稱是否重復(fù) begin CLose。end。procedure (Sender: TObject)。 //。procedure (Sender: TObject。 :=39。 //關(guān)閉當(dāng)前窗體end。begin :=39。select 學(xué)號(hào),課程號(hào),成績(jī) fro
電大資料相關(guān)推薦
鄂ICP備17016276號(hào)-1