數(shù)據(jù)庫課程設(shè)計(存儲版)
【正文】 組件的消息對話框，該提示框中有一個文本輸入框和兩個命令按鈕，為用戶提供輸入文本的功能。APrompt，消息對話框的提示信息。Dlgtype,指定消息對話框的類型。語法：case 條件表達式 of 條件1:語句1。 {$R *.dfm}procedure (Sender: TObject)。end。 begin user:=Trim()。+user+39。39。 :=39。 。procedure (Sender: TObject)。 。procedure (Sender: TObject。procedure (Sender: TObject)。procedure (Sender: TObject)。procedure (Sender: TObject)。procedure (Sender: TObject)。procedure (Sender: TObject)。 。 39。+Trim()+39。 := (39。39。,39。select 學號,課程號,成績 from jdxgrade39。 //關(guān)閉當前窗體end。procedure (Sender: TObject。procedure (Sender: TObject)。 。password39。,64)。,64)。39。username39。 //產(chǎn)生異常則拋出異常信息 End。procedure (Sender: TObject)。)。var n:string。)。 end。,39。begin。end. 幫助信息 系統(tǒng)名稱：通用成績管理系統(tǒng)測試環(huán)境：服務(wù)器環(huán)境Microsoft SQL Server、編程軟件環(huán)境Borland Delphi 6測試系統(tǒng)：windows XP登錄測試主要用于檢測系統(tǒng)能否防止非授權(quán)用戶使用系統(tǒng)。測試過程：進入成績查詢界面，首先輸入錯誤的學生學號，執(zhí)行查詢，則出現(xiàn)錯誤，無法實現(xiàn)查詢，然后輸入不對應的系的學生學號，執(zhí)行查詢，無法顯示查詢結(jié)果，再次輸入正確的系的學生學號，則查詢成功。這次設(shè)計讓我深刻的體會到團隊的力量，還有做什么事都不能馬馬虎虎，需要在思考后再好好實現(xiàn)。測試過程：進入成績錄入界面，首先不不輸入學號或者姓名，則不成功，出現(xiàn)錯誤，然后輸入符合條件的信息，則錄入成功。 。end。 (39。).Value := Trim()。 (39。End。 (39。,64)。 。確實要刪除庫存名稱為: 39。39。,39。,39。).Value := Trim()。 End。 var Action: TCloseAction)。end. 經(jīng)管系成績管理 （代碼同上） 文法系成績管理（代碼同上） 賬戶管理uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, ADODB, StdCtrls, Grids, DBGrids, Buttons。 。 // 。 。 if = 0 then //未找到用戶，提示用戶輸入錯誤 begin (39。select 學號,課程號,成績 from jdxgrade where 學號=39。求和39。39。39。{$R *.dfm}procedure (Sender: TObject)。 //隱藏當前窗體 。begin。procedure (Sender: TObject)。{$R *.dfm}procedure (Sender: TObject)。 end。密碼錯誤三次，系統(tǒng)退出！39。^_^注意！39。+pass+39。39。 //定義i 作用是查看用戶是否輸入時有三次錯誤procedure (Sender: TObject)。 :=39。var Formlogin: TFormlogin。（c)條件判斷語句1）使用if...then語句 語法： if 條件 then begin 語句 end。HelpCtx:Longint):Integer。var Value:string):Boolean。3．功能需求分析3．1系統(tǒng)功能的描述經(jīng)過調(diào)研分析，通用成績管理系統(tǒng)共可分為系統(tǒng)對用戶的添加，刪除，修改，各系成績的錄入，各系成績的分類查詢，查詢學生的基本信息，選課情況。 成績管理系統(tǒng)是面向各校的管理系統(tǒng)
電大資料相關(guān)推薦
鄂ICP備17016276號-1