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