【導(dǎo)讀】本設(shè)計(jì)說(shuō)明書主要講述了VISAUL的基本功能及設(shè)計(jì)方。緊接著以本系統(tǒng)為例，逐一介紹開發(fā)本系統(tǒng)的步驟：系統(tǒng)分析、系統(tǒng)設(shè)。計(jì)、系統(tǒng)實(shí)現(xiàn)、系統(tǒng)維護(hù)。在系統(tǒng)分析中先后用數(shù)據(jù)流圖、數(shù)據(jù)字典、系統(tǒng)。所需的數(shù)據(jù)庫(kù)表及表字段。實(shí)現(xiàn)中，給出了實(shí)現(xiàn)表單中相應(yīng)的功能控件的事件及代碼。人機(jī)對(duì)話界面友好。系統(tǒng)功能全面，用戶操作方便是本設(shè)計(jì)的一個(gè)特色。開發(fā)學(xué)生檔案管理系統(tǒng)的意義·································································6. 已有系統(tǒng)的存在的問題················································

　　

【正文】 P r ima r yR S. F ie 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 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 本科生畢業(yè)設(shè)計(jì) （論文） d) “最末”按鈕控件： click 事件是將當(dāng)前窗體中的網(wǎng)格控件中的信息和文本框控件中的信息指向數(shù)據(jù)庫(kù)表查詢記錄集中的第后一條記錄。利用 SQL 語(yǔ)句實(shí)現(xiàn)在數(shù)據(jù)庫(kù)中查詢符合條件 的所以記錄，并在表單中的網(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 t e 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 本科生畢業(yè)設(shè)計(jì) （論文） 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 ( 性別 ) k）“退出”按鈕控件： 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)或者姓名。 本科生畢業(yè)設(shè)計(jì) （論文） 查詢類別和關(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 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 的記錄源。從而實(shí)現(xiàn)導(dǎo)出。實(shí)現(xiàn)語(yǔ)句： a doP r ima r yR S. Move Fir s t i = 0 D o While ( a doP r ima r yR S. EO F = Fa ls e ) For j = 0 To a doP r ima r yR S. Fie lds . C ount 1 D a ta Gr id1. C ol = j xls he e t. C e lls ( i + 2, j + 1) = D a ta Gr id1. Te xt N e xt j a doP r ima r yR S. Move Ne xt i = i + 1 Loop 學(xué)生成績(jī)錄入子模塊 1）運(yùn)行時(shí)的窗體： 本科生畢業(yè)設(shè)計(jì) （論文） 2）控件和事件 控件包括 4 個(gè)文本框、 5 個(gè)按鈕控件和一個(gè)網(wǎng)格控件。文本框完成對(duì)學(xué)生輸入成績(jī)的科目和時(shí)間的設(shè)定。對(duì)于同樣科目同一考試時(shí)間的成績(jī)的錄入。這樣設(shè)定后對(duì)于錄入成績(jī)很方便。每個(gè)記錄輸入后這2 個(gè)文本框的信息是不改變的。還有 2 個(gè)文本框是錄入學(xué)生檔案號(hào)和成績(jī)。 5 個(gè)按鈕控件分別是輸入，修改，刪除重新設(shè)定和退出。下面將對(duì)按鈕控件做詳細(xì)分析。網(wǎng)格控件默認(rèn)的數(shù)據(jù)源是學(xué)生成績(jī)庫(kù)里面的所有數(shù)據(jù)。 在裝載時(shí)用語(yǔ)句實(shí)現(xiàn)： a doPr ima r yR pe n s e lec t 檔 案 號(hào) , 姓名 , 科目 , 成績(jī) , 學(xué)期 f r om xs c j, 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 下面對(duì)輸入，修改，刪除這三個(gè)按鈕的事件和實(shí)現(xiàn)語(yǔ)句分析如下： a）“輸入”按鈕控件： click 事件首先對(duì)學(xué)生檔案庫(kù)中的記錄進(jìn)行查詢符合輸入的檔案號(hào)記錄。如果沒有。則說(shuō)明該生還沒有注冊(cè)。不能錄入學(xué)生成績(jī)。如果查到學(xué)生記錄。則將學(xué)生的姓名，已經(jīng)輸入的成績(jī)信息一同作為學(xué)生成績(jī)添加的信息。它的實(shí)現(xiàn)語(yǔ)句是： a = 檔案號(hào) b = Te xt3. Te xt 本科生畢業(yè)設(shè)計(jì) （論文） a doP r ima r yR pe n s e lec t 檔 案號(hào) ,姓名 fr om xs da w he re amp。 a amp。 like 39。% amp。 b amp。 % 39。 , db, a dO pe nSta tic , a dLoc kO ptimis tic I f a doP r ima r yR S1. EO F = Tr ue The n Ms gB ox ( 該生還未注冊(cè) ) Els e Se t a doP r ima r yR S2 = N e w R e c or ds e t a = 檔案號(hào) b = Te xt3. Te xt c = 科目 d = Te xt1. Te xt e = 學(xué)期 f = Te xt2. Te xt a doP r ima r yR pe n se le c t 檔案 號(hào) ,姓名 ,科目 ,學(xué)期 f r om xs c j w her e amp。 a amp。 like 39。% amp。 b amp。 %39。 a nd amp。 c amp。 like 39。% amp。 d amp。 %39。 a nd amp。 e amp。 like 39。 % amp。 f amp。 %39。 , db, a dO pe nSta tic , a dLoc kO ptimis tic I f a doP r ima r yR S2. EO F = Tr u e The n a doP r ima r yR S. A ddN e w 3）“修改”按鈕控件： 網(wǎng)格開始的時(shí)候設(shè)定為不可編輯?，F(xiàn)在對(duì)它的修改需要改變它的屬性。 click 事件是將按鈕名改成“保存”，增加了系統(tǒng)的交互性。同時(shí)使網(wǎng)格變得可編輯。 “保存” 按鈕控件的 click 事件是將按鈕名改成“修改”，此時(shí)使文本框變得不可編輯，修改完成后，網(wǎng)格容器控件中的數(shù)據(jù)自動(dòng)更新。它的實(shí)現(xiàn)語(yǔ)句是： I f C omma nd4. C a ption = 成績(jī)修改 The n C omma nd4. C a ption = 保存 D a ta Gr id1. Ena ble d = Tr ue Els e C omma nd4. C a ption = 成績(jī)修改 D a ta Gr id1. Ena ble d = Fa ls e End I f 4）“刪除”按鈕控件： 成績(jī)庫(kù)的記錄有時(shí)候會(huì)輸入出錯(cuò)。當(dāng)然一般可以通過(guò)修改更正。但是有時(shí)候輸入了一條完全沒有意義的記錄我們可以通過(guò)刪除來(lái)完成整理數(shù)據(jù)庫(kù)的目的。實(shí)現(xiàn)的語(yǔ)句如下： 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 本科生畢業(yè)設(shè)計(jì) （論文） 學(xué)生成績(jī)查詢子模塊 1）運(yùn)行時(shí)的窗體： 2）控件和事件 該模塊主要包括網(wǎng)格，文本框，按鈕控件。網(wǎng)格默認(rèn)的數(shù)據(jù)源是成績(jī)庫(kù)的所以記錄。文本框用來(lái)設(shè)定和輸入查詢類別和查詢關(guān)鍵字。查詢可以從檔案號(hào)，姓名，班級(jí)，年級(jí)。以及考試時(shí)間等進(jìn)行綜合查詢。即至少找到滿足 2 個(gè)查詢關(guān)鍵字的記錄。導(dǎo)出按鈕控件主要是將查詢的結(jié)果導(dǎo)出到 excel 中。 實(shí)現(xiàn)的語(yǔ)句如下： a = C ombo1. Te xt b = Te xt1. Te xt c = 學(xué)期 d = Te xt2. Te xt I f C ombo1. Te xt = 班級(jí) The n a doP r ima r yR S. O pe n s e lec t dis tinc t 檔案 號(hào) ,姓名 ,科目 ,成績(jī) ,學(xué)期 f r om xsc j w her e amp。 c amp。 like 39。% amp。 d amp。 %39。 a nd 檔案 號(hào) in ( se lec t 檔 案號(hào) 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 Els e a doP r ima r yR S. O pe n s e lec t dis tinc t 檔案 號(hào) ,姓名 ,科目 ,成績(jī) ,學(xué)期 f r om xsc j w her e amp。 a amp。 like 39。 % amp。 b amp。 % 39。 a nd amp。 c amp。 like 39。 % amp。 d amp。 % 39。 , db, a dO pe nSta tic , a dLoc kO ptimis tic 本科生畢業(yè)設(shè)計(jì) （論文） End I f Se t D a ta Gr id1. D a ta Sour ce = a doP r ima r yR S 在查詢中由于是綜合查詢。所以實(shí)現(xiàn)的語(yǔ)句用到了 sql 語(yǔ)句中的聯(lián)合查詢。具體的語(yǔ)句是： se le c t dis tinc t 檔案 號(hào) ,姓名 ,科目 ,成績(jī) ,學(xué)期 f r om xsc j w he re amp。 c amp。 like 39。% amp。 d amp。 %39。 a nd 檔案 號(hào) in ( se lec t 檔 案號(hào) fr om xs da w her e amp。 a amp。 like 39。 % amp。 b amp。 % 39。 ) 學(xué)生檔案導(dǎo)入子模塊 學(xué)生檔案里面的檔案號(hào)，姓名這些字段的信息不必專門輸入。為了高效率和為了與檔案記錄的一致性我們可以首先將檔案庫(kù)的所有記錄首先作為數(shù)據(jù)源顯示在如下窗體的左邊的檔案網(wǎng)格中。然后將該網(wǎng)格的數(shù)據(jù)作為右邊檔案庫(kù)的數(shù)據(jù)源導(dǎo)入。同時(shí)對(duì)檔 案庫(kù)的其他字段自動(dòng)設(shè)定為無(wú)。等以后隨著學(xué)生的求學(xué)過(guò)程。我們可以動(dòng)態(tài)的進(jìn)行修改。導(dǎo)入按鈕的 click 控件的源代碼是： For i = 0 To D a ta Gr id1. Vis ible R ow s 1 D a ta Gr id1. R ow = i D a ta Gr id1. C ol = 0 I f a doP r ima r yR S. EO F = Tr ue The n a doP r ima r yR S. A ddN ew a doP r ima r yR S. Fie lds ( 檔案號(hào) ) = D a ta Gr id1. Te xt D a ta Gr id1. C ol = 1 adoP r ima r yR S. Fie lds ( 姓名 ) = D a ta Gr id1. Te xt a doP r ima r yR S. Fie lds ( 獎(jiǎng)貸學(xué)金 ) = 無(wú) a doP r ima r yR S. Fie lds ( 異動(dòng) ) = 無(wú) a doP r ima r yR S. Fie lds ( 軍訓(xùn)等級(jí) ) = 無(wú) a doP r ima r yR S. Fie lds ( 畢業(yè)去向 ) = 無(wú) Els e a doP r ima r yR S. Move Fir s t D o While ( a doP r