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