【正文】 1 家庭 住址 字符型 30 畢業(yè)級別 字符型 10 設計說明：為方便編程以及人們工作習慣，這里將學號、出生年月、入學時間、聯(lián)系電話等都設計成字符型。并根據(jù)實際需要設計了相應的寬度。 該表用來存放學生在校期間的個人成績信息。 表 字段名 類型 寬度 學號 字符型 10 畢業(yè)設計（論文） 13 姓名 字符型 8 科目 數(shù)字型 3 成績 數(shù)字型 3 學期 數(shù)字型 3 用來存放學生在校期間的評語信息。 表 字段名 類型 寬度 學號 字符型 10 姓名 字符型 10 獎貸學金 字符型 10 異動 字符型 8 軍訓等級 備注型 0 畢業(yè)去向 備注型 0 用來存放學生學分信息。 表 字段名 類型 寬度 學號 字符型 10 學分 數(shù)字型 10 用來存放教學信息。 表 字段名 類型 寬度 課程號 字符型 10 課程名 字符型 10 畢業(yè)設計（論文） 14 學分 數(shù)字型 2 年級 字符型 10 備注 備注型 4 另外，系統(tǒng)還設置用戶管理表。字段包括：用戶帳號，用戶密碼，級別，聯(lián)系電話。 以上是本系統(tǒng)的庫表結構的設計簡要說明 第四章 應用系統(tǒng)實現(xiàn) 按結構化的程序設計思想，在完成了系統(tǒng)分析、系統(tǒng)設計后，就可以進行系統(tǒng)實現(xiàn)階段了，系統(tǒng)實現(xiàn)是每指把系統(tǒng)的物理模型轉換成實際運行系統(tǒng)的全過程。其基本任務是： a) 前期準備 b) 系統(tǒng)平臺的安裝與調試 c) 程序的編制與調試 d) 信息系統(tǒng)調試 e) 數(shù)據(jù)庫與文件的建立 f) 系統(tǒng)轉換 畢業(yè)設計（論文） 15 g) 試運行、 驗收與維護 4 1： 學生檔案資料的錄入子模塊 1）運行時的窗體： 2）控件和事件 a）“網(wǎng)格”容器控件：顯示檔案柜中的數(shù)據(jù)信息。數(shù)據(jù)源設定為檔案柜表的查詢記錄集。在窗體的裝載事件 load 中用語句控制。語句是： select 檔案號 ,姓名 ,性別 ,出生年月 ,班級 ,家庭住址 ,父 母 姓 名 ,聯(lián) 系 電 話 , 獎懲記載 ,學生簡歷 from xsda, db, adOpenStatic, adLockOptimistic Set = a doPrimaryRS b）“最首”按鈕控件： click 事件是將當前窗體中的網(wǎng)格控件中的信息和文本框控件中的信息指向數(shù)據(jù)庫表查詢記錄集中的第一條記錄。利用 SQL語句實現(xiàn)在數(shù)據(jù)庫中查詢符合條件的所以記錄，并在表單中的網(wǎng)格容器中用指針定位。同時文本框也顯示相應的記錄信息。如果無相應的記錄，系統(tǒng)將給出提示。實現(xiàn)關鍵語句如下： a doP r ima r yR S. Move Fir s t 畢業(yè)設計（論文） 16 Te xt1. Te xt = a doP r ima r yR S. Fie lds ( 檔案號 ) Te xt2. Te xt = a doP r ima r yR S. Fie lds ( 姓名 ) Te xt3. Te xt = a doP r ima r yR S. Fie lds ( 性別 ) Te xt4. Te xt = a doP r ima r yR S. Fie lds ( 出生年月 ) Te xt5. Te xt = a doP r ima r yR S. Fie lds ( 班級 ) Te xt6. Te xt = a doP r ima r yR S. Fie lds ( 家庭住址 ) Te xt7. Te xt = a doP r ima r yR S. Fie lds ( 父母姓名 ) Te xt8. Te xt = a doP r ima r yR S. Fie lds ( 聯(lián)系電話 ) Te xt9. Te xt = a doP r ima r yR S. Fie lds ( 獎懲記載 ) Te xt10. Te xt = a doP r ima r yR S. Fie lds ( 學生簡歷 ) c）“下一條”按鈕控件： click 事件是將網(wǎng)格中的，文本框中的信息同時指向當前記錄的下一條記錄。如果越界就給出已經(jīng)是最后一條記錄的提示，并將記錄定位在最后一條記錄。實現(xiàn)語句： a doP r ima r yR S. Move N ext I f a doP r ima r yR S. EO F The n Ms gB ox ( 已 經(jīng) 是 第 后 一 條記 錄了！ ) a doP r ima r yR S. Move La st Els e Te xt1. Te xt = a doP r ima r yR S. Fie lds ( 檔案號 ) Te xt2. Te xt = a doP r ima r yR S. Fie lds ( 姓名 ) Te xt3. Te xt = a doP r ima r yR S. Fie lds ( 性別 ) Te xt4. Te xt = a doP r ima r yR S. Fie lds ( 出生年月 ) Te xt5. Te xt = a doP r ima r yR S. Fie lds ( 班級 ) Te xt6. Te xt = a doP r ima r yR S . Fie lds ( 家庭住址 ) Te xt7. Te xt = a doP r ima r yR S. Fie lds ( 父母姓名 ) Te xt8. Te xt = a doP r ima r yR S. Fie lds ( 聯(lián)系電話 ) Te xt9. Te xt = a doP r ima r yR S. Fie lds ( 獎懲記載 ) Te xt10. Te xt = a doP r ima r yR S. Fie lds ( 學生簡歷 ) End I f d）“上一條” 按鈕控件： click 事件是將網(wǎng)格中的，文本框中的信息同時指向當前記錄的上一條記錄。如果越界就給出已經(jīng)是第 一條記錄的提示，并將記錄定位在第一條記錄。實現(xiàn)語句： a doP r ima r yR S. Move P re vious I f a doP r ima r yR S. B O F The n Ms gB ox ( 已 經(jīng) 是 第 一 條 記錄 了！ ) a doP r ima r yR S. Move Fir s t Els e Te xt1. Te xt = a doP r ima r yR S. Fie lds ( 檔案號 ) Te xt2. Te xt = a doP r ima r yR S. Fie lds ( 姓名 ) Te xt3. Te xt = a doP r ima r yR S. Fie lds ( 性別 ) Te xt 4. Te xt = a doP r ima r yR S. Fie lds ( 出生年月 ) 畢業(yè)設計（論文） 17 Te xt5. Te xt = a doP r ima r yR S. Fie lds ( 班級 ) Te xt6. Te xt = a doP r ima r yR S. Fie lds ( 家庭住址 ) Te xt7. Te xt = a doP r ima r yR S. Fie lds ( 父母姓名 ) Te xt8. Te xt = a doP r ima r yR S. Fie lds ( 聯(lián)系電話 ) Te xt9. Te xt = a doP r ima r yR S. Fie lds ( 獎懲記載 ) Te xt 10. Te xt = a doP r ima r yR S. Fie lds ( 學生簡歷 ) End I f d) “最末”按鈕控件： click 事件是將當前窗體中的網(wǎng)格控件中的信息和文 本框控 件中的 信息指 向數(shù)據(jù) 庫表查 詢記錄 集中的 第后一 條記 錄。利 用SQL 語句實現(xiàn)在數(shù)據(jù)庫中查詢符合條件的所以記錄，并在表單中的網(wǎng)格容器中顯示。如果無相應的記錄，系統(tǒng)將給出提示。實現(xiàn)關鍵語句如下： a doP r ima r yR S. Move La st Te xt1. Te xt = a doP r ima r yR S. Fie lds ( 檔案號 ) Te xt2. Te xt = a doP r ima r yR S. Fie lds ( 姓名 ) Te xt3. Te xt = a doP r ima r yR S. Fie lds ( 性別 ) Te xt4. Te xt = a doP r ima r yR S. Fie lds ( 出生年月 ) Te xt5. Te xt = a doP r ima r yR S. Fie lds ( 班級 ) Te xt6. Te xt = a doP r ima r yR S. Fie lds ( 家庭住址 ) Te xt7. Te xt = a doP r ima r yR S. Fie lds ( 父母姓名 ) Te xt8. Te xt = a doP r ima r yR S. Fie lds ( 聯(lián)系電話 ) Te xt9. Te xt = a doP r ima r yR S. Fie lds ( 獎懲記載 ) Te xt10. Te xt = a doP r ima r yR S. Fie lds ( 學生簡歷 ) f) “添加”按鈕控件： click 事件是添加新的學生檔案記錄，實現(xiàn)的原理是對數(shù)據(jù)庫查詢的記錄集添加一條新的記錄，然后修給這條空記錄的值，達到對數(shù)據(jù)庫表中的學生檔案記錄添加的目的。實現(xiàn)的語句如下： (檔案號 ) = (姓名 ) = h) “編輯”按鈕控件： click 事件是將記錄集中當前記錄在文本框中進行修改，然后更改記錄集中相應的記錄。來達到修改數(shù)據(jù)庫中的記錄的目的。和添加相比不需要 這個語句。實畢業(yè)設計（論文） 18 現(xiàn)的主要語句是： (檔案號 ) = (姓名 ) = i)“查找”按鈕控件： click 事件是激活查詢窗體。 語句是： j)“刪除”按鈕控件： click 事件是刪除當前記錄。同時數(shù)據(jù)庫記錄指針指向當前記錄的上一條記錄。 a doP r ima r yR S. D e le te a doP r ima r yR S. Move P re vious I f a doP r ima r yR S. B O F The n a doP r ima r yR S. Move Fir s t End I f Te xt1. Te xt = a doP r ima r yR S. Fie lds ( 檔案號 ) Te xt2. Te xt = a doP r ima r yR S. Fie lds ( 姓名 ) Te xt3. Te xt = a doP r ima r yR S. Fie lds ( 性別 ) h）“退出”按鈕控件： click 事件是釋放當前窗體，返回主控系統(tǒng)。實現(xiàn)語句是： Unload Me ：檔案信息查詢子模塊： 1）運行時的窗體： 畢業(yè)設計（論文） 19 2） 控 件和事件 a）“網(wǎng)格”容器控件：顯示學生檔案數(shù)據(jù)庫里面的中的數(shù)據(jù)信息。數(shù)據(jù)源設定為檔案數(shù)據(jù)庫的查詢記錄集。在窗體的裝載事件 load 中用語句控制。裝載時默認是所 有記錄。語句是： a doPr ima r yR pe n se le c t 檔 案號 ,姓名 ,性別 ,出 生年 月 ,班級 ,家 庭住 址 ,父 母姓 名 ,聯(lián) 系電 話 ,獎懲記載 ,學 生 簡歷 f r om xs da , db, a dO pe nSta tic , a dLoc kO ptimis tic Se t D a ta Gr id1. D a ta Sour ce = a doP r ima r yR S b）“選擇”按鈕控件： click 事件是將當前窗體中的文本控件中的關鍵字作為查詢的關鍵字。查詢可以是按照學生檔案號或者姓名。查詢類別和關鍵字可以根據(jù)用戶的需要設定。查詢的結果顯示 在網(wǎng)格控件中。實現(xiàn)關鍵語句如下： a = C ombo1. Te xt b = Te xt1. Te xt a doP r ima r yR pe n s e lec t 檔案 號 ,姓名 ,性別 ,出生 年月 ,班級 ,家庭 住址 ,父 母姓 名 ,聯(lián)系 電話 ,獎懲記載 ,學生簡歷 f r om xs da w he re amp。 a amp。 like 39。% amp。 b amp。