【正文】 4 提高編程效率，而且隨著應(yīng)用的深入，將會發(fā)現(xiàn)編程不再是枯燥無味的工作—— Delphi 的每一個設(shè)計細節(jié)，都將 會是 一份欣喜。 (3) 單元文件 單元文件是一個 Object Pascal源程序代碼文件 ,可以在程序代碼編輯器中進行編輯和修改。它是一個 非常復(fù)雜的軟件系統(tǒng)，對數(shù)據(jù)庫的所有操作，包括定義、查詢、更新和各種運行控制最終都通過它來實現(xiàn)的，因它是使數(shù)據(jù)庫系統(tǒng)具有資料共享、并發(fā)訪問、資料獨立等特性的根本保證。采用 Delphi 來開發(fā)數(shù)據(jù)庫應(yīng)用程序具有更大的靈活性和可擴展性。 學(xué)籍管理系統(tǒng) 可行性研究 在當(dāng)今 時代，網(wǎng)絡(luò)技術(shù)與計算機軟件技術(shù)已經(jīng)愈來愈廣泛地應(yīng)用到教育系統(tǒng)的 各個方面 。也就是要將概念上的結(jié)構(gòu)轉(zhuǎn)化為數(shù)據(jù)庫系統(tǒng)所支持的實際數(shù)據(jù)模型。 在這個窗體上添加所需的控件，創(chuàng)建好的窗體如下所示 ， 在界面上放置了菜單欄、 工具欄 、八個 Label 和八個 timer 控件 ；菜單欄集中了系統(tǒng)操作的入口，各功能模塊的執(zhí)行從此進入；工具框顯示了系統(tǒng)菜單中常 用項目的快鍵 按紐 ， 不過各個工具按紐的 Menultem 屬性值要與菜單各項的 name 屬性值相對應(yīng) ,這樣 用戶 才可以 點擊相應(yīng) 的按紐 連接 進入相應(yīng) 的 窗體 功能模塊 。39。 result:=query。 query:=nil。 (1) :包含了添加 AddStu、刪除 DelStu、修改 EditStu、查詢 （學(xué)號查詢GetStuByStuNo、學(xué)號查找 返回 TADOQuery 類型 GetStuQueryByStuNo、姓名查找 GetStuByName） 和取得 GetStuArray 學(xué)生基本資料信息 的函數(shù) ，每個函數(shù)都有一個共同點就是必須調(diào)用 DAHelper 和 ClassesU 單元文件 ，調(diào)用 ClassesU單元文件是要運用其 對應(yīng)的類，調(diào)用 DAHelper 單元文件是要返回 result 結(jié)果值，唯一不同的是使用的 SQL 語句 輸寫不同。 where id=39。+39。+OpPwd+39。 Adoq:=(sql)。你的登錄密碼是 39。39。 添加和修改學(xué)生基本資料信息時相片的處理代碼大致如下： IF [2].Value 39。 end。 其次，軟件開發(fā)工具的選擇也是一大困難，由于對軟件開發(fā)工具的不熟悉，所以還要通過一段時間的學(xué)習(xí)，以及向同學(xué)和老師的請教，才能逐步掌握 Delphi 和SQL Server 工具。 圖 68 教育經(jīng)歷 (5) 學(xué)籍變動 窗體模塊 該窗體模塊功能 與教育經(jīng)歷模塊的大同小異，有一點不同的是通過學(xué)籍變動類型觸發(fā)該控件的 OnChange 事件來改變界面的效果（學(xué)籍變動類型是用一個bobox 控件來裝載的），當(dāng)選擇選擇“退學(xué)”或“休學(xué)”時，轉(zhuǎn)入學(xué)校和轉(zhuǎn)入班級的 label 和 edit 控件都被設(shè)置為不可見，當(dāng)選擇是“調(diào)班”時，轉(zhuǎn)入班級的 label和 edit 控件都被設(shè)置為可見，而“轉(zhuǎn)學(xué)”則是轉(zhuǎn)入學(xué)校的 label 和 edit 控件設(shè)為可見 。039。 添加按紐： 當(dāng)學(xué)號和姓名為空時 出示相關(guān)的提示對話框，當(dāng)在文本框 edt_stuNo輸入的學(xué)號 ， 調(diào)用 中的 GetStuByStuNo 函數(shù) 與之比較，如果返回值不為零時，則說明輸入的學(xué)號與數(shù)據(jù)庫中的 某 條 記錄相同， 這時系統(tǒng)會彈出對話框“該學(xué)號已存在， 請重新設(shè)置”， 否則 再判斷相片 image_pic 是否為空，如果沒有上傳 23 到相片，則相片路徑賦為空，如果是點擊了記錄表格中的學(xué)生基本資料，加上該生有相片 時而又沒有重新加載相片則添加到的相片是加載后的相片 ， 否則是剛點擊記錄集并顯示在相關(guān)右邊的相片框中的相片。, MB_ICONEXCLAMATION)。 各功能 模塊 的具體實現(xiàn) (1)登錄窗體模塊 輸入用戶 ID、密碼和選擇用戶類別權(quán)限 ，定義變量 OpID、 OpPwd 和 Opqx，并 21 令其等于對應(yīng)的輸入信息，還要定義 Op 繼承 Tyonghu 并分配空間之后調(diào)用 cyonghu單元文件中的 CheckOper(OpID,OpPwd,Opqx)函數(shù)，當(dāng)返回值 Op 為 nil 時彈出對話框“你輸入的用戶登錄資料不正確，請重新輸入”， 這樣輸出的錯誤信息超過兩 次時系統(tǒng)將出示提示并關(guān)閉； 否則 使用系統(tǒng)主界面窗體 frm_main 中的 CurrentUser等于 Op 保存當(dāng)前用戶 ， 如果當(dāng)前用戶是 在校 學(xué)生的話 ,則只能查詢并修改自己的基本資料信息和查看自己的獎罰情況 并修改自己的密碼 ；如果是管理員的話，則可以全權(quán)對本系統(tǒng)進行操作，沒有任何限制 ；如果是教務(wù)員的話，他的權(quán)限只比管理員少一點即在用戶管理設(shè)置處不 能對 其他 用戶 管理 和班級管理 。+Opqx+39。+39。39。39。//獎罰類型 remark:string。 (sql)。 (sql)。39。在界面上各有兩 個 Panel、 btton 和edit 控件 ,一個 boBox 控件和 四個 Label 控件。 5． 數(shù)據(jù)庫設(shè)計 數(shù)據(jù)庫物理結(jié)構(gòu)設(shè)計 數(shù)據(jù)庫設(shè)計是總體設(shè)計階段非常重要的環(huán)節(jié)，好的數(shù)據(jù)庫結(jié)構(gòu)設(shè)計可以簡化開發(fā)過程，使系統(tǒng)功能更加清晰明確。 (6)系統(tǒng)界面友好，層次清晰，應(yīng)具有較強的可操作性和易用性，方便用戶使用，使不懂?dāng)?shù)據(jù)庫操縱語言的用戶也能自如地找到所需的信息。 (4)企業(yè)級數(shù)據(jù)功能 SQL Server 2021 關(guān)系數(shù)據(jù)庫引擎支持當(dāng)今比較苛刻的數(shù)據(jù)處理環(huán)境所需的功能。同時， SQL Server 2021 還為用戶提供了重要的安全性功能的增強，為用戶的數(shù)據(jù)安全提供了可靠的保證。 Delphi 的文件類型 [3]用 Delphi 進行應(yīng)用程序開發(fā)時 ,經(jīng)常使用的三種文件類型有 :項目文件 ,后綴為“ .dpr”；單元文件 ,后綴為 “ .pas”； 窗體文件 ,后綴為 “ .dfm”。 (3)界面友好、使用方便 多數(shù)信息管理軟件的數(shù)據(jù)輸入量較大，對于一些固定的數(shù)據(jù)，不應(yīng)讓用戶頻頻輸入，而應(yīng)讓用戶用鼠標(biāo)輕松選擇，將數(shù)據(jù)輸入量降至最低限度，并減少用戶的千預(yù)量。并能進一步提高學(xué)校的工作效率并使學(xué)校實施規(guī)范化管理。 課題來源 在這種背景下 ,利用計算機實現(xiàn)學(xué)校學(xué)生學(xué)籍的管理勢在必行。一方面，人向計算機輸入信息時應(yīng)當(dāng)盡量采取自然的方式 。 (5) Delphi 具有操作系統(tǒng)無關(guān)性，在 windows 95/98 環(huán)境下開發(fā)的 Delphi 應(yīng)用 程序可以直接在 windows NT 環(huán)境下運行。 Microsoft SQL Server 2021 是 Microsoft 公司繼 SQL Server 和 SQL Server 以后，在新千年推出的又一改進的新版關(guān)系型數(shù)據(jù)管理系統(tǒng)。 (3)易于安裝 SQL Server 2021 包含了一等系列管理和開發(fā)工具，這些工具可以改進在多個 7 站點的安裝、部署、管理和使用 SQL Server 的過程。 (2)班級管理的添加、刪除、修改和 查詢 。 9 學(xué)籍 管理的可行性分析 從技術(shù)方面 來看，目前的計算機硬件、軟件技術(shù)以及網(wǎng)絡(luò)技術(shù)完全能完成本系統(tǒng)的功能要求。 如圖61 所示 。+ 39。 :=。 。 stdNo:string。39。select 姓名 ,isnull(備注 ,39。 and 39。39。 result:=yonghu。密碼提示的答案不正確！請輸入正確的密碼提示答案 !39。 (3)學(xué)生基本資料 窗體 stu 模塊 （ 只有 教務(wù)員和管理員權(quán)限的用戶方可進入） 首先， 在工程資源管理器中， 點擊“新建” “其他”，在彈出的對話框中選擇工程文件名 xjgl，點擊 frm_info 窗體即可 添加一個窗體，命名為“ frm_student”這燕就 繼承了 frm_info 父窗體 的所有控件和屬性值，再 在 窗體中放置如圖 65 所示 （除父窗體的控件 以 外） 的相應(yīng) 控件 和 設(shè)置 相應(yīng)的 屬性值 ，在此窗體設(shè)計中， 設(shè)置了只有本窗體方可使用的私 有變量： 字符串類型的 stdNo、 WorkPath 和 PicePath，布而類型的 m。 //設(shè)置郵政編碼 var Key: Char)。 end。 通過 這次的 畢業(yè)設(shè)計， 我對 delphi 有了更深刻的認識， 雖然由于個人能力的關(guān)系，本系統(tǒng)還有許多不盡如人意之處，但 在畢業(yè)設(shè)計中，自己的 知識 和 能力都得到了很大程度的提高， 也積累了使用軟件工程的思想開發(fā)軟件的經(jīng)驗， 更重 要的是 自己 摸索 到 了一套考慮問題和解決問題的方法，這對我來說將是終身受用 的 。 :=39。 ( PicePath )。密碼提示的問題不正確！請輸入正確的密碼提示問題 !39。)。 :=OpID。39。39。 end。id:integer):boolean。 if ref0 then result:=true else result:=false。 var query:TADOQuery。 var ADOCon:TADOConnection。在此，可 利用 Delphi 中的菜單 欄 編輯器來創(chuàng)建我們所需要的各個 菜單，具體的菜單結(jié)構(gòu)如表 64 所示： caption name caption name 系統(tǒng) N1 班級管理 Nbanji … 退出 NClose 用戶管理 Nyonghu 學(xué)生管理 N6 … 學(xué)生 管理 Nxues … 基本資料 NStudentInfo … 其他用戶 管理 Njg … 獎罰情況 Njiangfa 設(shè)置 Nset 16 … 教育經(jīng)歷 Nexperience … 更改密碼 NChangePwd 學(xué)籍管理 Nxueji … 更改密碼保護資料 Nchmm … 學(xué)籍變動 Nou