【正文】 nder: TObject)。)。 end。 procedure (Sender: TObject)。 。 procedure (Sender: TObject)。 :=true。 :=true。 begin 。 end。 （ 2）單擊 “ 成績管理 ” 界面上的 “ 成績查詢 ” 按鈕，就會觸發(fā) “ 成績查詢 ” 界面。Number=39。39。39。 :=39。39。39。 end。 begin 。39。 1:begin :=39。 end。 下圖所示為 “ 班級信息 ” 管理的界面，其屬性設(shè)置與主界面的屬性設(shè)置是類似的。 上圖中， “ 班級信息編輯 ” 按鈕的 onclick 代碼如下： procedure (Sender: TObject)。 南京郵電大學(xué) 20xx 屆本科生畢業(yè)設(shè)計（論文） 37 圖 420 班級信息編輯界面設(shè)計窗口 其主要代碼如下： procedure (Sender: TObject)。)。 if then showmessage(39。 procedure (Sender: TObject)。 begin 。 end。)。 procedure (Sender: TObject)。 if then showmessage(39。 end。 begin 。 end。 :=false。:=false。 procedure (Sender: TObject)。 end。 :=true。++39。+39。 end。39。39。 begin if 1 then begin case of 0:begin :=false。 begin 。 procedure (Sender: TObject)。 end。 procedure (Sender: TObject)。 :=true。 南京郵電大學(xué) 20xx 屆本科生畢業(yè)設(shè)計（論文） 34 :=false。所填信息不能全部為空 39。 begin 。 procedure (Sender: TObject)。 if then showmessage(39。)。 （ 1）單擊上圖中的 “ 成績錄入 ” 按鈕，就會觸發(fā) “ 成績錄入界面 ” 南京郵電大學(xué) 20xx 屆本科生畢業(yè)設(shè)計（論文） 33 圖 417 成績錄入界面設(shè)計窗口 其主要代碼如下： procedure (Sender: TObject)。 end。 end。 end。39。39。Number=39。 （ 2） 單擊 “ 選課管理 ” 界面上的 “ 選課查詢 ” 按鈕，就會觸發(fā) “ 選課查詢 ” 界面。 end。 procedure (Sender: TObject)。 南京郵電大學(xué) 20xx 屆本科生畢業(yè)設(shè)計（論文） 31 。 圖 414 學(xué)生選課界面設(shè)計窗口 其主要代碼如下： procedure (Sender: TObject)。 begin 。 begin 。 end。:=false。39。39。 end。:=false。39。39。:=false。39。39。 end。:=true。39。39。:=false。39。39。 procedure (Sender: TObject)。 end。 :=true。++39。+39。 end。39。39。 3:begin :=false。39。39。 :=39。39。39。Names=39。 :=true。++39。+39。 （ 1） 接下來是 “ 學(xué)籍信息查詢 ” 界面的設(shè)計 南京郵電大學(xué) 20xx 屆本科生畢業(yè)設(shè)計（論文） 27 圖 412 學(xué)籍信息查詢界面設(shè)計窗口 其屬性設(shè)置如下： 表 43 學(xué)籍信息查詢界面屬性 組 件 屬 性 屬 性 值 Adodataset1 Commandtype Cmdtable Commandtext 學(xué)生信息 Active True Form4 Caption 學(xué)籍信息查詢 Datasource1 Dataset Adodataset1 Label1 Caption 學(xué)籍信息查詢 Button1 Caption 查詢 Button2 Caption 返回 Dbgrid1 Datasource Datasource1 Radiogroup1 Caption 請選擇查詢方式 Items 按學(xué)號 按姓名 按性別 按專業(yè) 按班級 主要代碼如下： procedure (Sender: TObject)。 end。 begin 。 :=true。 :=true。 procedure (Sender: TObject)。 。 南京郵電大學(xué) 20xx 屆本科生畢業(yè)設(shè)計（論文） 26 procedure (Sender: TObject)。 end。)。 procedure (Sender: TObject)。 if then showmessage(39。 4) 單擊 上 圖的 “ 測試連接 ” ，會出現(xiàn)測試 成功的提示框。 （ 1）下圖是學(xué)籍信息編輯界面的設(shè)計 南京郵電大學(xué) 20xx 屆本科生畢業(yè)設(shè)計（論文） 23 圖 410 學(xué)籍信息編輯設(shè)計窗口 其屬性設(shè)置如下表： 表 42 學(xué)籍信息編輯界面屬性 組 件 屬 性 屬 性 值 Panel1 Caption [空 ] Bevellner bvlowered Dbedit1 Datasource Datasource1 Datafield Number Dbedit2 Datasource Datasource1 Datafield Names Dbedit3 Datasource Datasource1 Datafield Yearmonth Dbedit4 Datasource Datasource1 Datafield Speciality Dbedit5 Datasource Datasource1 Datafield Class Dbbobox1 Datasource Datasource1 Datefield Sex Items 男 女 Dbmemo1 DataSource Datasource1 Datafield Remark Form3 Caption 學(xué)籍信息編輯 DataSource1 DataSet Adotable1 南京郵電大學(xué) 20xx 屆本科生畢業(yè)設(shè)計（論文） 24 Adotable1 Tablename 學(xué)生信息 Label1 Caption 學(xué)籍信息編輯 Label2 Caption 學(xué)號 Label3 Caption 姓名 Label4 Caption 出生年月 Label5 Caption 性別 Label6 Caption 專業(yè) Label7 Caption 班級 Label8 Caption 備注 Button1 Caption 上一條 Button2 Caption 下一條 Button3 Caption 第一條 Button4 Caption 末一條 Button5 Caption 添加 Button6 Caption 保存 Button7 Caption 修改 Button8 Caption 刪除 Button9 Caption 返回 為 adotable 組件創(chuàng)建與數(shù)據(jù)庫的連接。 procedure (Sender: TObject)。 begin 。 圖 48 主界面設(shè)計窗口 這里主要介紹與數(shù)據(jù)庫相關(guān)的組件的屬性，如下表所示。 南京郵電大學(xué) 20xx 屆本科生畢業(yè)設(shè)計（論文） 21 end。 end else begin :=39。請輸入你的用戶名 39。 begin 。 。密碼錯誤，請重新錄入 39。39。 then else 。 。 。++39。 :=39。 end。 procedure (Sender: TObject。 var Key: Char)。 。 。 。 利用用戶登錄 功能實現(xiàn)對用戶操作權(quán)限的限制 ， 用戶必須輸入正確的密碼才能進(jìn)入下一界面，如果用戶的密碼輸入錯誤，應(yīng)用程序會提示錯誤信息。 圖 42 班級表屬性設(shè)置 圖 43 成績表屬性設(shè)置 圖 44 課程表屬性設(shè)置 南京郵電大學(xué) 20xx 屆本科生畢業(yè)設(shè)計（論文） 18 圖 45 選課表屬性設(shè)置 圖 46 用戶信息表屬性設(shè)置 （ 8）回到 主 窗口中，出現(xiàn)了 學(xué)生信息表，班級信息表，成績表，課程表，選課表，用戶信息表 6 個表項目，完成數(shù)據(jù)文件的設(shè)計。 南京郵電大學(xué) 20xx 屆本科生畢業(yè)設(shè)計（論文） 17 （ 5）之后點擊右上方的關(guān)閉， 會出現(xiàn) 確認(rèn)保存的窗口 。 （ 2） 然后 在 彈出窗口 中 輸入新建表的名稱。 下面給出在 Access 中創(chuàng)建數(shù)據(jù)庫的過程。有了數(shù)據(jù)庫模型，數(shù)據(jù)庫的設(shè)計就簡單多了。查詢班級的所在系別，輔導(dǎo)員等。 成績管理模塊 ： 本模塊實現(xiàn)了成績的輸入、刪除、更新。還能查詢各個學(xué)生的情況，姓名、 性別 、 出生年月 、學(xué)號 、備注 等各個消息 。通過對此系統(tǒng)功能等各個方面進(jìn)行詳細(xì)分析和思考后，采用 access 數(shù)據(jù)庫和 delphi20xx 為開發(fā)工具實現(xiàn)此系統(tǒng)軟件是完全可能的。 輸入輸出要求 數(shù)據(jù)庫中 數(shù)據(jù)都有格式要求， 用戶登錄如果輸入不符合格式要求的數(shù)據(jù)類型給出相應(yīng)提示 ，需要用戶重新輸入。 (2)更新的用戶信息要及時更新到客戶端用戶信息列表。還能查詢到平均成績以及單科最高最低成績以及個人成績。 （ 3）、 課程信息管理 每個學(xué)期都會增加一些新的科目，通過本模塊可以輕松的添加以及更新課程?？梢缘玫綄?yīng)的關(guān)系模式為： 學(xué)生信息（ 學(xué)號 、姓名、性別、 出生年月 、 專業(yè) 、 班級 、 備注 ） 選課信息（ 課程名、學(xué)號、課序號 、上課時間、上課地點） 成績表（ 姓名、學(xué)號、課程名 、成績） 南京郵電大學(xué) 20xx 屆本科生畢業(yè)設(shè)計（論文） 11 班級信息（ 班級號 、班級名、專業(yè)） 登陸表（ 用戶名 、密碼） 學(xué)生信息管理系統(tǒng)中涉及到的所有實體和數(shù)據(jù)流的信息如下： 表 21 學(xué)生信息表 數(shù)據(jù)元素名稱 程序內(nèi)部名 類型 長度 學(xué)號 Number 字符 255 姓名 Names 字符 255 性別 Sex 字符 255 出生年月 Yearmonth 數(shù)值 255 專業(yè) Speciality 字符 255 班級 Class 字符 255 備注 Remark 字符 255 表 22 班級 信息表 數(shù)據(jù)元素名稱 程序內(nèi)部名 類型 長度 班級號 ClassID 字符 255 班級名 ClassN