數(shù)據(jù)庫課程設(shè)計-閱讀頁
2024-08-26 07:24本頁面
【正文】 ▲注意！39。 :=39。 。 :=39。 。procedure (Sender: TObject)。39。 close。procedure (Sender: TObject)。 。select 學(xué)號,課程號,成績 from jdxgrade 39。end。 var Action: TCloseAction)。39。end。var formusersinfo: Tformusersinfo。begin。procedure (Sender: TObject。begin。end。begin inherited。 。 Try with do //向數(shù)據(jù)表中插入數(shù)據(jù) begin Close。 (39。)。username39。 (39。).Value := Trim()。 end。操作成功.39。提示39。 。 End。用戶名或密碼不能為空.39。提示39。 end。//自定義函數(shù),判斷編輯框是否為空function : Boolean。 if (Trim()=39。)or(Trim()=39。) then Result := True。procedure (Sender: TObject)。 if then //存在可刪除的數(shù)據(jù) Begin //提示是否刪除數(shù)據(jù) if (Pchar(39。 + Trim((39。).AsString)+39。),39。,mb_YesNo)= ID_Yes then begin Try 。 Except On E: Exception do ShowMessage()。 end。當(dāng)前沒有可刪除的信息.39。提示39。end。begin inherited。 //清空編輯框文本 。 。Select * from login39。 Open。 if 0 then := else begin 。 end。procedure (Sender: TObject)。begin inherited。39。 。update login set password = :edit4 where username = :edit339。 (39。).Value := Trim()。edit339。 ExecSQL。 n:= Trim()。 。 。操作成功.39。提示39。 Except On E: Exception do ShowMessage()。 end。procedure (Sender: TObject)。end。begin hide。end。測試過程： 進(jìn)入通用成績管理系統(tǒng)，首先輸入正確的用戶和密碼，并選擇正確的操作權(quán)限，用戶可以登錄；然后輸入錯誤的賬號和正確的密碼或者正確的賬號和錯誤的密碼以及錯誤的賬號和錯誤的密碼，都不能登錄，并且輸入三次錯誤，自動退出。測試過程：進(jìn)入賬戶管理界面，首先不輸入任何信息，添加信息，則出現(xiàn)錯誤，信息不能為空，然后輸入重復(fù)的用戶名，則也出現(xiàn)錯誤，用戶名不能重復(fù)。不輸入用戶和密碼修改密碼，則提示錯誤，不能成功，用戶名和密碼不能為空，輸入不正確的用戶名，則無法修改密碼，出現(xiàn)錯誤，然后輸入正確的用戶名和密碼，則操作成功。成績查詢測試主要用于檢測所輸入的所對應(yīng)的系的用戶學(xué)號信息是否能實現(xiàn)查詢。[1]數(shù)據(jù)庫原理及技術(shù)課程設(shè)計 錢雪忠,陳國俊 北京:清華大學(xué)出版社,[2]數(shù)據(jù)庫原理及應(yīng)用實驗指導(dǎo) 錢雪忠,陶向東 北京:[3]Delphi開發(fā)實用編程200例 周亞玲，蘇治中 中國鐵道出版社 [4]Delphi 2006從入門到精通 顏金傳 [5]SQL Server數(shù)據(jù)庫應(yīng)用基礎(chǔ)與實現(xiàn) 湯承林 電子工業(yè)出版社 通過課程設(shè)計我對Delphi這門語言有了更深的認(rèn)識，對數(shù)據(jù)庫操作更加深入的掌握，雖然我們不是完完整整的做下來這個系統(tǒng)的但是在學(xué)習(xí)的過程中就懂得了新的知識理論并實踐了。在本組我是總程序員，負(fù)責(zé)總體的組織設(shè)計，負(fù)責(zé)總體的需求分析和有些流程圖及最后總體測試等，在其中我懂得了任務(wù)的重要性與責(zé)任性，在安排等組織方面得到了能力的提高。做編程需要有耐心，不能浮躁，特別在出現(xiàn)錯誤不能執(zhí)行時，應(yīng)一次次試驗，而不能氣餒，還不行的情況下，應(yīng)仔細(xì)思考與組友商討研究共同解決。
電大資料相關(guān)推薦
鄂ICP備17016276號-1