【正文】 入符合要求的用戶名信息，則添加成功，顯示操作成功。procedure (Sender: TObject)。 End。 。 (39。)then //密碼是否為空 begin Try With do begin CLose。 := Nil。 With do //刷新表格信息 begin CLose。,39。提示39。begin inherited。begin Result := False。 end else begin (39。 (39。 (39。 if TextIsNull = False then //判斷編輯框文本是否為空 begin With do //判斷用戶名稱是否重復(fù) begin CLose。end。 //。 :=39。begin :=39。39。 39。 。 。 :=39。39。end.6．3基礎(chǔ)信息管理 機(jī)電系成績(jī)管理: 主要代碼 var Formjdxgrade: TFormjdxgrade。procedure (Sender: TObject)。procedure (Sender: TObject)。procedure (Sender: TObject)。procedure (Sender: TObject)。procedure (Sender: TObject)。end。var Formmain: TFormmain。 。 i:=i+1。用戶名或密碼不正確！請(qǐng)重新輸入！39。39。 :=39。end。begin :=39。另外，所有的窗體都可以被其他窗體引用。mtError，顯示一個(gè)帶有停止符號(hào)圖標(biāo)的信息框。DlgType:TMsgDlgType。ADefault，消息對(duì)話框首次出現(xiàn)時(shí)編輯框中顯示的信息2) InputQuery函數(shù)顯示一個(gè)帶有編輯組件的對(duì)話框，為用戶提供輸入文本的功能，并判斷用戶是否按下了Ok按鈕。（5） 系統(tǒng)具有操作方便、簡(jiǎn)捷等特點(diǎn)。學(xué)生通用成績(jī)管理是學(xué)校管理中異常重要的一個(gè)環(huán)節(jié)，它的實(shí)現(xiàn)關(guān)系到學(xué)校辦學(xué)整體效率的高低，運(yùn)用通用成績(jī)管理系統(tǒng)可以減輕學(xué)院教學(xué)人員的工作量，加快查詢速度，加強(qiáng)管理， 也讓同學(xué)們能在任何時(shí)候都能查閱到有關(guān)自己學(xué)科成績(jī)有關(guān)的信息，也有利于讓他們充分了解有關(guān)自己在大學(xué)期間所有課程的學(xué)習(xí)情況，提高查詢速度。經(jīng)過充分的系統(tǒng)調(diào)研，發(fā)現(xiàn)本系統(tǒng)主要應(yīng)包括系統(tǒng)管理、成績(jī)管理、成績(jī)查詢管理，進(jìn)一步還發(fā)現(xiàn)各需管理的信息有：添加或者刪除用戶，密碼修改，各系學(xué)生基本信息，學(xué)生選課信息等。系統(tǒng)的維護(hù)用于用戶的維護(hù)及用戶權(quán)限的設(shè)置等。ACaption，消息對(duì)話框的標(biāo)題。Msg，顯示消息的內(nèi)容。if...then...else語句語法：if 條件 then語句1else語句22)case...of條件分支語句case...of語句提供了一個(gè)可讀性更好的多重if嵌套的解決方案。implementationuses dataconn,mainform。39。Var user,pass:string。39。39。,MB_OK)。)。end。begin hide。beginhide。end。 //顯示 jdxioform窗體end。end。end。end。end。Begin //查詢符合相關(guān)學(xué)號(hào)的記錄 。39。39。).AsString。39。學(xué)號(hào)輸入不正確！請(qǐng)重新輸入！39。 :=39。 close。end。var formusersinfo: Tformusersinfo。begin。 Try with do //向數(shù)據(jù)表中插入數(shù)據(jù) begin Close。 (39。提示39。提示39。)or(Trim()=39。 + Trim((39。 Except On E: Exception do ShowMessage()。end。Select * from login39。procedure (Sender: TObject)。update login set password = :edit4 where username = :edit339。 ExecSQL。操作成功.39。procedure (Sender: TObject)。end。成績(jī)查詢測(cè)試主要用于檢測(cè)所輸入的所對(duì)應(yīng)的系的用戶學(xué)號(hào)信息是否能實(shí)現(xiàn)查詢。