教學輔助系統(tǒng)論文-無憂無慮畢設網(wǎng)

無憂無慮畢設網(wǎng) ():畢業(yè)設計源碼下載 畢業(yè)設計源碼下載： 本文配套程序下載地址 ： 無憂無慮畢設網(wǎng) ()-大學生畢業(yè)設計站 ,免費畢業(yè)設計論文 ,無憂無慮畢設網(wǎng) 大學生畢業(yè)設計 ,出售各類畢業(yè)設計源碼 ,論文 ,程序源碼 ,網(wǎng)站源碼 ,免費視頻教程 ,我們將竭誠為您服務！ 教學輔助系統(tǒng) 第 1 章 為什么要開發(fā)一個教師信息管理系統(tǒng) 1.1 計算機已經(jīng)成為我們學習和工作的得力助手 僅僅靠原始的手工管理，學校面對大量的教師信息信息，無法有效率地將其中的重要部分提取出來，并做出相應的判斷和處理。學校的決策只能依據(jù)報表數(shù)據(jù)，在浪費大量人力、物力的同時無法做到實時監(jiān)控，難以 保證數(shù)據(jù)的準確性和及時性。因此，先進的管理思想在學校中實現(xiàn)就成為了一個可望而不可及的目標。 在計算機上建立教師信息庫，可以實現(xiàn)快速錄入、整理、查找、補充、刪減等功能。并可將教師信息圖片存于電腦計劃之中，集成教師信息考勤，教師信息家庭關(guān)系和教師信息成績庫功能，在進入系統(tǒng)之前有密碼進行身份驗證，保證了系統(tǒng)的機密性，為學校提高工作效率的，提高人員效率，決策，和監(jiān)控教師信息情況提供了一個有力的工具。 “ 計算機已經(jīng)成為我們學習和工作的得力助手： 僅僅靠原始的手工管理，學校面對大量的教師信息信息，無法有效率地將其中的重要部分提取出來，并做出相應的判斷和處理。學校的決策只能依據(jù)報表數(shù)據(jù)，在浪費大量人力、物力的同時無法做到實時監(jiān)控，難以保證數(shù)據(jù)的準確性和及時性。因此，先進的管理思想在學校中實現(xiàn)就成為了一個可望而不可及的目標?！?1 無憂無慮畢設網(wǎng) ():畢業(yè)設計源碼下載 畢業(yè)設計源碼下載： 第 2 章 教學輔助系統(tǒng)編程環(huán)境 現(xiàn)狀及設計目標 簡介 2.1 Delphi 基本概念介紹 2.1.1 進入 Delphi 的可視化編程環(huán)境 (1)安裝 Delphi Delphi的安裝與其它應用軟件并無不同。 2.0版必須在 Windows 95以上的操作系統(tǒng)中使用。啟動 Windows 95 或 Windows NT后，將 Delphi的光盤放入光驅(qū) (CD-ROM)中，運行光盤上的 INSTALLSETUP.EXE 文件，它的安裝程序會提示正確地裝入 Delphi。如果是在微軟中文Windows環(huán)境中安裝 Delphi，請參照附錄 A來設置的 BDE環(huán)境，以便于處理中文數(shù)據(jù)。 進入 Delphi 環(huán)境 為避免隱藏在 Delphi后的 Program Manager 和曾經(jīng)運行過的其它程序擾亂版面，分散的注意力，不妨在啟動 Delphi前關(guān)掉其它應用程序；啟動 Delphi 后，再最小化隱藏在后面的 Delphi 2.0 程序組。這樣屏幕上 就只留下 Delphi窗口可見了。 首次加載 Delphi，屏幕上會出現(xiàn)四個窗口： 標題為“ Delphi-Project1”的 Delphi主窗口 Object Inspector 窗口 標題為“ Form1”的窗體 (Form)窗口 標題為“ Unit1.PAS”的代碼編輯窗口。剛啟動時這一窗口的大部分被“ Form1”窗體所掩蓋。將“ Form1”窗體移開，或單擊 Form1窗體下方的狀態(tài)行，可以使其全部可見。在“ Form1”窗體的任意可見位置單擊鼠標，可以恢復主窗體可見 以下我們將對這四個窗口分別進行介紹。 (2)主窗口 (Main Form) Delphi的主窗口位于屏幕的上端，包括 Menu(菜單 )、 Speed Bar(加速條 )和 Component Panel(部件選項板 )。 Menu 是下拉式主菜單。 Speed Bar位于主窗口的左下端，由兩排共 14個加速按鈕組成。這些按鈕是菜單功能的快捷方式，各種圖標直觀地表示了它能執(zhí)行的動作。Component Panel 由一行、若干頁對象按鈕所組成，利用它來選擇需要的部件并將它放到窗體中去。 (3)Object Inspector(對象檢視器 ) Object Inspector 窗 口含有兩頁： Properties頁顯示窗體中當前被選擇部件的屬性信息，并允許改變對象的屬性； Events 頁列出了當前部件可以響應的事件。按動 Object Inspector 下端的“ Events”無憂無慮畢設網(wǎng) ():畢業(yè)設計源碼下載 畢業(yè)設計源碼下載： 頁標簽，使得 Events 頁可見，這一定的事件后邊的空白處，可以定義對象接受到相應事件時執(zhí)行的動作。首次啟動時， Object Inspector窗口顯示的是當前窗體 Form1的屬性。 Object Inspector 根據(jù)對象屬性的多少，決定是否有滾行顯示。移動滾行條，可以查看當前對象的全部屬性。 此外， Object Inspector 上還有 Object Selector(對象選擇器 )，位于 Object Inspector 上方的下拉式菜單中。它顯示了窗體上所有部件的名稱和類型，也包含窗體本身?？梢杂?Object Selector 很容易地在窗體的各個部件之間切換，也可以快速地回到窗體本身。當窗體中含有較多的對象時，會發(fā)現(xiàn)這是切換對象尤其是回到窗體的最快捷途徑。 想使 Object Inspector 一直可見，可將鼠標移到 Object Inspector上，按動右鍵，以啟動 Object Inspector 的彈出式菜單，將其設置為 Stay On Top。這對初學者常是一個很重要的設置方式。 窗體窗口 Forms 窗口是開展大部分設計的工作區(qū)域。首次啟動 Delphi 2.0時顯示的是窗體 Form1?？梢园巡考旁诖绑w中，通過移動位置、改變尺寸等操作隨心所欲地安排它們，以此來開發(fā)應用程序的用戶界面?？梢园汛绑w想象成一個可以放置其它部件的容器。窗體上有柵格(Grids)，供放置部件時對齊位置用，在程序運行時 Grids 是不可見的。 一個真正的應用程序可能有不止一個窗口，可以選用不同的窗體進行設計。其它窗體可以是對話框 (Dialog Box)、數(shù)據(jù)錄入框等。 (4)代碼窗口 代碼窗口一開始處于窗體窗口之下。因為在 Delphi 中，設計用戶界面直接在窗體中進行，運行結(jié)果和設計樣板完全一致。當部件被放到窗體上時， Delphi會自動生成大部分的用戶界面代碼。所應做的只是在它為生成的框架中加入完成所需功能的程序段而已。點動 Form1的狀態(tài)行使代碼窗口可見。 這個窗口中是代碼編輯器?？梢栽谄渲袝鴮?Delphi 應用程序的源代碼。當程序中含有不止一個窗口時，會有幾個庫單元的源程序出現(xiàn)在代碼編輯器中。代碼編輯器的標題條中顯示了當前正在編輯的庫單元文件名。要 查看某一特定程序的源代碼，只需用鼠標點動寫有該庫單元文件名的頁標簽，就可以對該庫單元進行編輯了。 無憂無慮畢設網(wǎng) ():畢業(yè)設計源碼下載 畢業(yè)設計源碼下載： 2.2 Object Pascal 基本概念 在 Object Pascal中，數(shù)據(jù)類型也同其它語言一樣十分的豐富，甚至有的類型對程序開發(fā)的簡便性比其它的語言有過之的地方。 在 Object Pascal語言中不區(qū)別大小寫，這是有別于 C類語言的。 標識符是以字母或下劃線開頭的字母，數(shù)字序列。 關(guān)鍵字也稱保留字，它是 Object Pascal語言系統(tǒng)本身定義的，作為特殊用途的符號，不能用作他用。 在 Object Pascal語言中字符串變量的存在大大減少了對字符串操作的復雜性，這點是 C類語言的弱處，如果在 C類的語言中聲明一個 ” 字符串變量 ” 就得用數(shù)組來做，不僅操作麻煩，而且代碼維護的成本大大的提高，字符串類型的標識符為 string，字符串變量在Object Pascal 語言的聲明： VAR yourstring:string 這樣就可以操作 yourstring這個變量了，對它進行賦值的操作： yourstring:=very good； 注：字符串表示用單引號！ Object Pascal 語言中賦值的操作的 格式是： 變量名 :=操作數(shù) ； 這點有別于其它的語言。上面的例子可以引申為變量的聲明格式： Var 變量名 :類型標識符 ； 在 Object Pascal 語言中支持多種的整數(shù)類型，它們的類型標識符為 :integer,shortint,smallint,longint,int64,byte,word,longword,cardinal,不同的整數(shù)類型有不同的取值范圍，我們這里只取最常用的類型 integer 整數(shù)類型，具體的取值范圍請參考 pascal 書籍。 字符類型在 Object Pascal 語言中用 char標識符來 表示，用于保存單個的字符。 標準的布爾類型的標識符為 boolean，布爾類型的值只有兩個取值： true和 false。 在 Object Pascal語言中也支持多種不同的實數(shù)類型，如real,single,double extended,comp,currency，同整數(shù)類型一樣，不同的實數(shù)類型取值的范圍也不盡相同。 變量常量在 Object Pascal 語言中聲明格式為： 常量說明： const 常量標識符 1=常量 1； 常量標識符 n=常量 n； 常量說明例： const min=0； 無憂無慮畢設網(wǎng) ():畢業(yè)設計源碼下載 畢業(yè)設計源碼下載： man=100； 變量說明： var ， :； ， :； 變量說明例： var youvar:integer； a,b,c:string； d,e,f:real； 算術(shù)運行符： +,-,*,div(整數(shù)除法運算 )mod(取余運算 )。 邏輯運算符： not,and,or,xor,shl,shr。 關(guān)系運行符： =(相等 )， (不相等 )， ,=,=。 任何程序的內(nèi)在語法大體都相似。 無憂無慮畢設網(wǎng) ():畢業(yè)設計源碼下載 畢業(yè)設計源碼下載： 第 3 章 使 用 ACCESS 關(guān)系型數(shù)據(jù)庫 3.1 數(shù)據(jù)庫的概念 3.1.1 中小型關(guān)系型數(shù)據(jù)庫簡介 在我們對數(shù)據(jù)庫操作進行講解前，我們覺得有必要向大家介紹一下關(guān)系型數(shù)據(jù)庫這個概念，因為我們覺得無論是你做什么樣的系統(tǒng)，都或多或少要接觸到數(shù)據(jù)庫，而現(xiàn)在提到數(shù)據(jù)庫，當然就是關(guān)系型數(shù)據(jù)庫了。那么，什么是關(guān)系型數(shù)據(jù)庫（ RDB）呢？ 在關(guān)系型數(shù)據(jù)庫中數(shù)據(jù)以行和列的形式存儲，以便于用戶理解，這一系列的行和列被稱為表，一組表便組成了數(shù)據(jù)庫。在關(guān)系數(shù)據(jù)庫中：各數(shù)據(jù)項之間用關(guān)系來組織 ,關(guān)系 (relationship)是表之間的一種連接，通過關(guān)系 ，我們可以更靈活地表示和操縱數(shù)據(jù)；另外，用戶可以非常方便的用查詢（ Query）來檢索數(shù)據(jù)庫中的數(shù)據(jù)，一個 Query是一個用于指定數(shù)據(jù)庫中行和列的 SELECT語句。 3.2 新建一個數(shù)據(jù)庫 創(chuàng)建任何一個數(shù)據(jù)庫的第一步是仔細的規(guī)劃數(shù)據(jù)庫，設計必須是靈活的、有邏輯的。創(chuàng)建一個數(shù)據(jù)庫結(jié)構(gòu)的過程被認為是數(shù)據(jù)模型設計。 1.標識需要的數(shù)據(jù)； 2.收集被標識的字段到表中； 3.標識主關(guān)鍵字字段； 4.繪制一個簡單的數(shù)據(jù)圖表； 5.規(guī)范數(shù)據(jù)； 6.標識指定字段的信息； 7.創(chuàng)建物理表。 3.3 修改已建的數(shù)據(jù)庫 數(shù)據(jù)庫的修改分 為：添加、編輯和刪除記錄。這三種操作均可由DELPHI 7.0 創(chuàng)建的程序來完成，下面的章節(jié)將詳細描述實現(xiàn)的具體方法。 3.4 實現(xiàn)數(shù)據(jù)庫之間的聯(lián)系 數(shù)據(jù)庫之間的關(guān)系指明兩個庫之間共享一個共同的關(guān)鍵字值。一個連接是指一種虛擬的表，這種表是在當用戶要求從相互關(guān)聯(lián)的各個不同的表中獲取信息時建立的，關(guān)鍵字段用于在相互連接的不同表中查找匹配的記錄。一個更高級的連接形式稱為自連接。這種連接是指一個表被連接到它自己的一個字段，或在不同的紀錄中由重復數(shù)據(jù)的組無憂無慮畢設網(wǎng) ():畢業(yè)設計源碼下載 畢業(yè)設計源碼下載： 合字段。數(shù)據(jù)庫中有三種不同類型的關(guān)鍵字：主關(guān)鍵字、組合關(guān)鍵字和外關(guān)鍵字。在表中使用的關(guān)鍵字類型用于描述庫表示什么以及在數(shù)據(jù)庫中如何與其它的庫建立關(guān)系。 對表的行和列都有特殊的叫法，每一列叫做一個 “ 字段 ” 。每個字段包含某一專題的信息。就像 “ 通訊錄 ” 數(shù)據(jù)庫中， “ 姓名 ” 、 “ 聯(lián)系電話 ” 這些都是表中所有行共有的屬性，所以把這些列稱為 “ 姓名 ” 字段和 “ 聯(lián)系電話 ” 字段。 我們把表中的每一行叫做一個 “ 記錄 ” ，每一個記錄包含這行中的所有信息，就像在通訊錄數(shù)據(jù)庫中某個人全部的信息，但記錄在數(shù)據(jù)庫中并沒有專門的記錄名，常常用它所在的行數(shù)表示這是第幾個記錄。 數(shù)據(jù)庫的結(jié)構(gòu)創(chuàng)建好了，接 下來我們需要做的就是對數(shù)據(jù)庫進行一系列的基本操作。 增加記錄：在“數(shù)據(jù)表”視圖或“窗體”視圖中打開相應的窗體，單擊工具欄上的“新記錄“按鈕 ，鍵入所需數(shù)據(jù)，然后按 TAB 鍵轉(zhuǎn)至下一個字段，在記錄末尾，按 TAB 鍵轉(zhuǎn)至下一個記錄。 編輯記錄：如果要編輯字段中的數(shù)據(jù)，單擊要編輯的字段，如果要替換整個字段的值，指向字段的最左邊，在鼠標變?yōu)榧犹枙r，單擊該字段，鍵入要插入的文本。 注意：如果鍵入有錯，可按 BACKSPACE 鍵；如果要取消對當前字段的更改，按 ESC 鍵；如果要取消對整個記錄 的更改，在移出該字段之前再次按 ESC 鍵，當從一個記錄移動到其它記錄時， SQL Server 將保存對該記錄的修改。 復制或移動數(shù)據(jù)：在其它應用程序，如 Excel、 Word 中，選擇要復制或移動的一至多行。如果是從 Word 中復制數(shù)據(jù)，應確保記錄在選擇之前已經(jīng)在表中排列好或已經(jīng)使用制表符分隔開，如果粘貼數(shù)據(jù)到數(shù)據(jù)表中，應確保數(shù)據(jù)表中的列與要復制或移動的數(shù)據(jù)的順序一致，如果粘貼數(shù)據(jù)到窗體上，而窗體上相應的控件名稱與復制數(shù)據(jù)的列名相同， SQL Server 將粘貼數(shù)據(jù)到名稱相同的控件上。在 SQL Server 中，打開要向其中粘貼記錄的數(shù)據(jù)表或窗體，如果要替換現(xiàn)有記錄，選擇要替換的記錄，然后單擊工具欄上的“粘貼追加”或“粘貼”按鈕 ；如果窗體中的記錄選定器不可用，要選擇當前記錄，可單擊“編輯”菜單中的“選擇記錄”命令。 刪除記錄：單擊要刪除的記錄，單擊工具欄上的“刪除記錄”按鈕 。 無憂無慮畢設網(wǎng) ():畢業(yè)設計源碼下載 畢業(yè)設計源碼下載： 3.4.1 字段類型 不同的字段類型用來存放不同類型的數(shù)據(jù)。創(chuàng)建和使用表時，更你應該理解五種常用的字段類型：字符型，文本型，數(shù)值型，邏輯性和日期型。 3.4.2 字符型數(shù)據(jù) 字符型數(shù)據(jù)非常有用。當你需要存儲短的字符串信息 時，你總是要用到字符型數(shù)據(jù)。例如，你可以把從 HTML form的文本框中搜集到的信息放在字符型字段中。 要建立一個字段用來存放可變長度的字符串信息，你可以使用表達式 VARCHAR?？紤]你前面創(chuàng)建的表 guestbook：CREATE TABLE guestbook (visitor VARCHAR(40),comments TEXT,entrydate DATETIME) 在這個例子中，字段 visitor 的數(shù)據(jù)類型為 VARCHAR。注意跟在數(shù)據(jù)類型后面的括號中的數(shù)字。這個數(shù)字指定了這個字段所允許存放的字符串 的最大長度。在這個例子中，字段 visitor能存放的字符串最長為四十個字符。如果名字太長，字符串會被截斷，只保留四十個字符。 VARCHAR類型可以存儲的字符串最長為 255個字符。要存儲更長的字符串數(shù)據(jù)，可以使用文本型數(shù)據(jù)（下一節(jié)中講述）。 另一種字符型數(shù)據(jù)用來存儲固定長度的字符數(shù)據(jù)。下面是一個使用這種數(shù)據(jù)類型的例子：CREATE TABLE guestbook (visitor CHAR(40),comments TEXT,entrydate DATETIME)在這個例子中，字段 visitor 被用來存儲四 十個字符的固定長度字符串。表達式 CHAR指定了這個字段應該是固定長度的字符串。 VARCHAR型和 CHAR型數(shù)據(jù)的這個差別是細微的，但是非常重要。假如你向一個長度為四十個字符的 VARCHAR型字段中輸入數(shù)據(jù)Bill Gates。當你以后從這個字段中取出此數(shù)據(jù)時，你取出的數(shù)據(jù)其長度為十個字符 字符串 Bill Gates的長度。 現(xiàn)在假如你把字符串輸入一個長度為四十個字符的 CHAR型字段中，那么當你取出數(shù)據(jù)時，所取出的數(shù)據(jù)長度將是四十個字符。字符串的后面會被附加多余的空格。 當你建立自己的站點時，你會發(fā)現(xiàn)使用 VARCHAR 型字段要比 CHAR型字段方便的多。使用 VARCHAR型字段時，你不需要為剪掉你數(shù)據(jù)中多余的空格而操心。 無憂無慮畢設網(wǎng) ():畢業(yè)設計源碼下載 畢業(yè)設計源碼下載： VARCHAR型字段的另一個突出的好處是它可以比 CHAR型字段占用更少的內(nèi)存和硬盤空間。當你的數(shù)據(jù)庫很大時，這種內(nèi)存和磁盤空間的節(jié)省會變得非常重要。 3.4.3 文本型數(shù)據(jù) 字符型數(shù)據(jù)限制了字符串的長度不能超過 55個字符。而使用文本型數(shù)據(jù)，你可以存放超過二十億個字符的字符串。當你需要存儲大串的字符時，應該使用文本型數(shù)據(jù)。 “復制或移動數(shù)據(jù)：在其它應用程序，如 Excel、 Word中，選擇要復制 或移動的一至多行。如果是從 Word中復制數(shù)據(jù)，應確保記錄在選擇之前已經(jīng)在表中排列好或已經(jīng)使用制表符分隔開，如果粘貼數(shù)據(jù)到數(shù)據(jù)表中，應確保數(shù)據(jù)表中的列與要復制或移動的數(shù)據(jù)的順序一致，如果粘貼數(shù)據(jù)到窗體上，而窗體上相應的控件名稱與復制數(shù)據(jù)的列名相同， SQL Server 將粘貼數(shù)據(jù)到名稱相同的控件上。在 SQL Server 中，打開要向其中粘貼記錄的數(shù)據(jù)表或窗體，如果要替換現(xiàn)有記錄，選擇要替換的記錄，然后單擊工具欄上的“粘貼追加”或“粘貼”按鈕 ；如果窗體中的記錄選定器不可用，要選擇當前記錄，可單擊“編輯”菜單 中的“選擇記錄”命令。” 2無憂無慮畢設網(wǎng) ():畢業(yè)設計源碼下載 畢業(yè)設計源碼下載： 第 4 章 系統(tǒng)總體規(guī)劃 4.1 系統(tǒng)功能 4.1.1 系統(tǒng)登陸模塊 限制進入系統(tǒng)的用戶，防止系統(tǒng)數(shù)據(jù)被破壞。 4.1.2 教師信息制訂模塊 通過用戶交互的窗體完成原始數(shù)據(jù)的錄入和修改維護教師信息管理， 根據(jù)學院發(fā)放的“本科專業(yè)指導性教計劃原則”作為條件制定教師信息。 4.1.3 課程設置功能 可以對任何一門新課設置其前續(xù)課和后續(xù)課，還可以對之進行相應刪除，充分體現(xiàn)了教師信息的整體優(yōu)化性。 4.1.4 用戶管理模塊 通過與表格增加和刪除用戶。 無憂無慮畢設網(wǎng) ():畢業(yè)設計源碼下載 畢業(yè)設計源碼下載： 第 5 章 系統(tǒng)具體實現(xiàn) 和以前的版 本相比， DELPHIP 在多數(shù)地方已不需要寫代碼，表單和對象的屬性提供了控制許多對象的方法，但是總有些事情是要用程序去實現(xiàn)的。 5.1 用戶界面的實現(xiàn) 5.1.1 登陸界面 系統(tǒng)登陸模塊：限制進入系統(tǒng)的用戶，防止系統(tǒng)數(shù)據(jù)被破壞。 圖 5 1 登陸界面 用 ADOTABLETABLE控件 使用連接數(shù)據(jù)庫，在文件名，選擇當前目錄的數(shù)據(jù)庫，在數(shù)據(jù)源選擇用戶表，然后確定。 在登陸按鈕的單擊事件中用 IF THEN 語句判斷出是否用戶名和密碼正確。 unit Unit1； interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, jpeg, ExtCtrls, Menus, DB, ADODB； type TForm1 = class(TForm) Button1: TButton； Label1: TLabel； Edit1: TEdit； ADOQuery1: TADOQuery； 無憂無慮畢設網(wǎng) ():畢業(yè)設計源碼下載 畢業(yè)設計源碼下載： Edit2: TEdit； Label2: TLabel； Label3: TLabel； procedure Button1Click(Sender: TObject)； private Private declarations public Public declarations end； var Form1: TForm1； implementation uses Unit4, Unit5, Unit6, Unit7, Unit8, Unit11； $R *.dfm procedure TForm1.Button1Click(Sender: TObject)； begin ADOQuery1.Close； ADOQuery1.SQL.Clear； ADOQuery1.SQL.Add(SELECT * FROM users)； ADOQuery1.SQL.Add(where user=:ss)； ADOQuery1.Parameters.ParamByName(ss).Value:= edit1.Text ； ADOQuery1.Open ； if ADOQuery1.Eof and ADOQuery1.Bof then begin showmessage(用戶錯誤 )； end else begin ADOQuery1.Close； ADOQuery1.SQL.Clear； ADOQuery1.SQL.Add(SELECT * FROM users)； ADOQuery1.SQL.Add(where pass=:kk and user=:ss)； ADOQuery1.Parameters.ParamByName(ss).Value:= edit1.Text ； 無憂無慮畢設網(wǎng) ():畢業(yè)設計源碼下載 畢業(yè)設計源碼下載： ADOQuery1.Parameters.ParamByName(kk).Value:= edit2.Text ； ADOQuery1.Open ； if ADOQuery1.Eof and ADOQuery1.Bof then begin showmessage(密碼錯誤 )； end else begin form9.show ； form1.Hide end end end； end. 5.1.2 主界面 圖 5.2 主界面 使用按鈕單擊事件打開各個界面 unit Unit11； interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, 無憂無慮畢設網(wǎng) ():畢業(yè)設計源碼下載 畢業(yè)設計源碼下載： Controls, Forms, Dialogs, StdCtrls； type TForm9 = class(TForm) Label1: TLabel； Button3: TButton； Button7: TButton； Button6: TButton； Button5: TButton； procedure Button3Click(Sender: TObject)； procedure Button5Click(Sender: TObject)； procedure Button6Click(Sender: TObject)； procedure Button7Click(Sender: TObject)； private Private declarations public Public declarations end； var Form9: TForm9； implementation uses Unit5, Unit6, Unit8, Unit4, Unit1； $R *.dfm procedure TForm9.Button3Click(Sender: TObject)； begin form4.show end； procedure TForm9.Button5Click(Sender: TObject)； begin form8.show end； procedure TForm9.Button6Click(Sender: TObject)； begin form6.show end； 無憂無慮畢設網(wǎng) ():畢業(yè)設計源碼下載 畢業(yè)設計源碼下載： procedure TForm9.Button7Click(Sender: TObject)； begin form1.close end； end. 5.1.3 各項功能界面 (1) 教師信息制訂模塊 通過用戶交互的窗體完成原始數(shù)據(jù)的錄入和修改維護教師信息管理， 根據(jù)學院發(fā)放的“本科專業(yè)指導性教計劃原則”作為條件制定教師信息。 圖 5.3 教學計劃 首先在數(shù)據(jù)庫建 教師信息 的數(shù)據(jù)表，表中具有界面上的相關(guān)字段 用 LABEL控件 畫出 各個標簽， CAPITION 屬性為數(shù)據(jù)庫的各個字段。 用 ADOTABLETABLE控件 使用 連接數(shù)據(jù)庫，在文件名，選擇當前目錄的數(shù)據(jù)庫，在數(shù)據(jù)源選擇 教師信息 的數(shù)據(jù)表，然后確定，這樣的目的是使用 ADOTABLE 控件連接到數(shù)據(jù)庫。 用 DataSource 控件連接到 ADOTABLETABLE數(shù)據(jù)源。 然后用 EDIT 控件通過連接 DataSource 而連接到數(shù)據(jù)庫通過連接EDIT控件把數(shù)據(jù)庫的字段顯示出來。 用 DBEDIT控件在界面畫出各個容器，數(shù)據(jù)源設為 ADOTABLE控件，然后選擇要顯示的數(shù)據(jù)庫字段， 無憂無慮畢設網(wǎng) ():畢業(yè)設計源碼下載 畢業(yè)設計源碼下載： 畫出 DBNavigator1控件，通過 DBNavigator1控件對數(shù)據(jù)庫的記錄進行向前，向后滾動， 并進行添加 ,刪除，刷新，保存的操作。 unit Unit4； interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ADODB, DB, Grids, DBGrids, StdCtrls, ExtCtrls, DBCtrls, ComCtrls, Mask； type TForm4 = class(TForm) DataSource1: TDataSource； Label1: TLabel； ADOTable1: TADOTable； PageControl1: TPageControl； TabSheet1: TTabSheet； TabSheet2: TTabSheet； TabSheet3: TTabSheet； DBNavigator1: TDBNavigator； Label2: TLabel； DBEdit1: TDBEdit； Label3: TLabel； Label4: TLabel； DBEdit3: TDBEdit； Label5: TLabel； Label6: TLabel； DBEdit5: TDBEdit； DataSource3: TDataSource； ADOQuery1: TADOQuery； DBGrid1: TDBGrid； Button1: TButton； ADOTable2: TADOTable； DataSource2: TDataSource； Label7: TLabel； Label8: TLabel； ADOTable3: TADOTable； DataSource4: TDataSource； DBGrid3: TDBGrid； TabSheet4: TTabSheet； DBComboBox1: TDBComboBox； DBGrid4: TDBGrid； ComboBox1: TComboBox； DBGrid2: TDBGrid； DBNavigator2: TDBNavigator； TabSheet5: TTabSheet； ComboBox2: TComboBox； 無憂無慮畢設網(wǎng) ():畢業(yè)設計源碼下載 畢業(yè)設計源碼下載： ADOQuery2: TADOQuery； DataSource5: TDataSource； DBGrid5: TDBGrid； Button2: TButton； ADOTable1DSDesigner: TIntegerField； ADOTable1DSDesigner2: TWideStringField； ADOTable1DSDesigner3: TWideStringField； ADOTable1DSDesigner4: TWideStringField； ADOTable1DSDesigner5: TWideStringField； DBLookupComboBox1: TDBLookupComboBox； ADOTable4: TADOTable； DataSource6: TDataSource； procedure Button2Click(Sender: TObject)； procedure Button1Click(Sender: TObject)； procedure FormCreate(Sender: TObject)； private Private declarations public Public declarations end； var Form4: TForm4； implementation $R *.dfm procedure TForm4.Button2Click(Sender: TObject)； begin ADOQuery2.Close； ADOQuery2.SQL.Clear； ADOQuery2.SQL.Add(SELECT * FROM jh_qh)； ADOQuery2.SQL.Add(where 學期 =:ss)； ADOQuery2.Parameters.ParamByName(ss).Value:= ComboBox2.Text ； ADOQuery2.Open ； end； procedure TForm4.Button1Click(Sender: TObject)； begin ADOQuery1.Close； ADOQuery1.SQL.Clear； ADOQuery1.SQL.Add(SELECT * FROM jxjh)； ADOQuery1.SQL.Add(where 學期 =:ss)； ADOQuery1.Parameters.ParamByName(ss).Value:= ComboBox1.Text ； ADOQuery1.Open ； end； procedure TForm4.FormCreate(Sender: TObject)； begin end； end. 無憂無慮畢設網(wǎng) ():畢業(yè)設計源碼下載 畢業(yè)設計源碼下載： 圖 5.4 查詢 按學期查詢： 使用 ADOQuery1 控件連接數(shù)據(jù)庫， 在 ADOQuery1 的數(shù)據(jù)源選擇當前目錄的數(shù)據(jù)庫， 在 SQL 屬性輸入以下 SQL查詢語句， select * from where 學期 = :ss 然后確定，這樣的目的是使用 SQL查詢語句索檢出記錄 在 (TParameters)屬性中建立變量 ” SS”. 用一個 EDIT 控件輸入查詢條件，用一個 COMMAND 控件實現(xiàn)查詢 按鈕代碼如下 procedure TForm5.Button1Click(Sender: TObject)； begin ADOQuery1.Close； ADOQuery1.SQL.Clear； ADOQuery1.SQL.Add(SELECT * FROM yg)； ADOQuery1.SQL.Add(where 操作者 =:ss)； ADOQuery1.Parameters.ParamByName(ss).Value:= edit1.Text ； ADOQuery1.Open ； end； 通過改變 SS的值，查到想要的記錄 用 DataSource 控件連接到 ADOQuery1 數(shù)據(jù)源。 無憂無慮畢設網(wǎng) ():畢業(yè)設計源碼下載 畢業(yè)設計源碼下載： 然后用 DBGRID 控件通過連接 DataSource而連接到數(shù)據(jù)庫，把數(shù)據(jù)庫的字段顯示出來。 畫出 DBNavigator1控件，通過 DBNavigator1控件對數(shù)據(jù)庫的記錄進行向前，向后滾動，并進行添加 ,刪除，刷新，保存的操作。 圖 5.5 統(tǒng)計 使用 SQL 語句統(tǒng)計出學分和學時 SELECT DISTINCTR