數(shù)據(jù)庫(kù)課程設(shè)計(jì)-文庫(kù)吧
2025-07-23 07:24 本頁(yè)面
【正文】 ．1數(shù)據(jù)庫(kù)邏輯結(jié)構(gòu)設(shè)計(jì)學(xué)生信息（編號(hào)，學(xué)號(hào)，姓名，年齡，性別，籍貫，原就讀高中）選修信息（學(xué)號(hào)，課程號(hào)，成績(jī)）用戶登陸信息（姓名，密碼，權(quán)限）4．2．2數(shù)據(jù)標(biāo)的設(shè)計(jì)學(xué)生成績(jī)學(xué)生信息登陸信息 數(shù)據(jù)庫(kù)二維表結(jié)構(gòu)登錄信息表機(jī)電系學(xué)生信息機(jī)電系學(xué)生選課及成績(jī)經(jīng)管系學(xué)生信息經(jīng)管系學(xué)生選課及成績(jī)文法系學(xué)生信息文法系學(xué)生選課及成績(jī)(a)輸入語(yǔ)句InputBox函數(shù)和InputQuery函數(shù)用于顯示一個(gè)帶有編輯組件的消息對(duì)話框，該提示框中有一個(gè)文本輸入框和兩個(gè)命令按鈕，為用戶提供輸入文本的功能。1) InputBox函數(shù)( InputBox返回值是字符串,也就是輸入的字符串 )語(yǔ)法：function InputBox(const ACaption,APrompt,ADefault:String):String。ACaption，消息對(duì)話框的標(biāo)題。APrompt，消息對(duì)話框的提示信息。ADefault，消息對(duì)話框首次出現(xiàn)時(shí)編輯框中顯示的信息2) InputQuery函數(shù)顯示一個(gè)帶有編輯組件的對(duì)話框，為用戶提供輸入文本的功能，并判斷用戶是否按下了Ok按鈕。( InputQuery返回值為是否點(diǎn)了OK 輸入的字符串放在了變量Value中 )語(yǔ)法：function InputQuery(const ACaption,APrompt:string。var Value:string):Boolean。ACaption，消息對(duì)話框的標(biāo)題。APrompt，消息對(duì)話框的提示信息。Value，對(duì)話框首次出現(xiàn)在編輯框中顯示的字符串，并得到用戶在消息對(duì)話框中輸入的字符串。(b)輸出語(yǔ)句MessageDlg函數(shù)可以將信息以對(duì)話框的形式輸出并顯示。語(yǔ)法：function MessageDlg(const Msg:string。DlgType:TMsgDlgType。 Buttons:TMesgDlgButtons。HelpCtx:Longint):Integer。Msg，顯示消息的內(nèi)容。Dlgtype,指定消息對(duì)話框的類型。Buttons，指定消息對(duì)話框顯示的按鈕HelpCtx，指定應(yīng)顯示幫助標(biāo)題的正文ID DlgType參數(shù)的取值：mtInfromation，顯示帶感嘆號(hào)圖標(biāo)的信息框。mtWarnging，顯示一個(gè)帶有提醒符號(hào)圖標(biāo)的信息框。mtCustom，無(wú)顯示圖標(biāo)。mtError，顯示一個(gè)帶有停止符號(hào)圖標(biāo)的信息框。mtConfirmation，顯示一個(gè)帶有問(wèn)好圖標(biāo)的信息框。（c)條件判斷語(yǔ)句1）使用if...then語(yǔ)句 語(yǔ)法： if 條件 then begin 語(yǔ)句 end。if...then...else語(yǔ)句語(yǔ)法：if 條件 then語(yǔ)句1else語(yǔ)句22)case...of條件分支語(yǔ)句case...of語(yǔ)句提供了一個(gè)可讀性更好的多重if嵌套的解決方案。語(yǔ)法：case 條件表達(dá)式 of 條件1:語(yǔ)句1。 .... 條件n:語(yǔ)句n。else 其他語(yǔ)句。end；6．1創(chuàng)建公用模塊本系統(tǒng)有一個(gè)公用模塊，F(xiàn)ormData，內(nèi)有一個(gè)Connection控件，用于連接數(shù)據(jù)庫(kù)，若數(shù)據(jù)庫(kù)改變，只要修改Connection控件的Connection屬性即可。另外，所有的窗體都可以被其他窗體引用。6．2登錄界面及主界面uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls, DB, ADODB, jpeg, Buttons。var Formlogin: TFormlogin。implementationuses dataconn,mainform。 {$R *.dfm}procedure (Sender: TObject)。begin。end。procedure (Sender: TObject)。begin :=39。39。 :=39。39。end。procedure (Sender: TObject。 var Action: TCloseAction)。begin。end。vari:integer=0。 //定義i 作用是查看用戶是否輸入時(shí)有三次錯(cuò)誤procedure (Sender: TObject)。Var user,pass:string。 begin user:=Trim()。 pass:=Trim()。 。 。 :=39。select * from login where userna
電大資料相關(guān)推薦
鄂ICP備17016276號(hào)-1