張帆計(jì)算機(jī)-員工信息查詢系統(tǒng)講解

1、論文提綱一、可行性研究（一）技術(shù)可行性（二）經(jīng)濟(jì)可行性（三）營運(yùn)可行性二、系統(tǒng)總體設(shè)計(jì)（一）開發(fā)工具平臺（二）數(shù)據(jù)庫分析（三）數(shù)據(jù)流圖（四）系統(tǒng)功能結(jié)構(gòu)圖三、詳細(xì)設(shè)計(jì)（一）登陸窗口子模塊（二）學(xué)生檔案資料錄入子模塊（三）檔案信息查詢子模塊（四）學(xué)生成績錄入子模塊（五）學(xué)生成績查詢子模塊（六）學(xué)生學(xué)籍導(dǎo)入子模塊（七）學(xué)生學(xué)籍管理子模塊（八）系統(tǒng)菜單學(xué)生學(xué)籍管理系統(tǒng)【摘要】學(xué)生學(xué)籍管理系統(tǒng)被廣泛應(yīng)用于各類學(xué)校的學(xué)生學(xué)籍 管理工作中，要求其具有實(shí)用性強(qiáng)、使用方便、效率高和安全可靠等 特點(diǎn)。本管理系統(tǒng)正是圍繞以上幾個方面進(jìn)行開發(fā)的，在開發(fā)過程中 充分考慮到本系統(tǒng)的應(yīng)用特點(diǎn)，并進(jìn)行了大量的檢驗(yàn)，證明其的

2、確達(dá) 到了設(shè)計(jì)的要求，是一個已具備了實(shí)際應(yīng)用能力的軟件。 本文主要論 述學(xué)生學(xué)籍管理系統(tǒng)的開發(fā)過程。在涉及到VB及Access中的部分知 識以舉例的方式進(jìn)行講解?！娟P(guān)鍵詞】學(xué)生檔案管理；查詢；窗體；模塊學(xué)生檔案管理系統(tǒng)是一個教育單位不可缺少的部分，它的內(nèi)容對于學(xué)校的決策者和管理者來說都至關(guān)重要，所以學(xué)生檔案管理系統(tǒng)應(yīng)該能夠?yàn)橛脩籼峁┏?足的信息和快捷的查詢手段。但一直以來人們使用傳統(tǒng)人工的方式管理文件檔 案，這種管理方式存在著許多缺點(diǎn)，如：效率低、保密性差，另外時間一長，將產(chǎn)生 大量的文件和數(shù)據(jù)，這對于查找、更新和維護(hù)都帶來了不少的困難。隨著科學(xué)技術(shù)的不斷提高，計(jì)算機(jī)科學(xué)日漸成熟，其強(qiáng)大的功能

3、已為人們深刻認(rèn) 識,它已進(jìn)入人類社會的各個領(lǐng)域并發(fā)揮著越來越重要的作用。作為計(jì)算機(jī)應(yīng)用的一部分，使用計(jì)算機(jī)對學(xué)生檔案信息進(jìn)行管理，具有著手工 管理所無法比擬的優(yōu)點(diǎn).例如:檢索迅速、查找方便、可靠性高、存儲量大、保密 性好、壽命長、成本低等。這些優(yōu)點(diǎn)能夠極大地提高學(xué)生檔案管理的效率，也是企業(yè)的科學(xué)化、正規(guī)化管理，與世界接軌的重要條件。因此，開發(fā)這樣一套管理軟件成為很有必要的事情，在下面的各章中我將以開 發(fā)學(xué)生檔案管理系統(tǒng)為例，談?wù)勂溟_發(fā)過程和所涉及到的問題及解決方法?，F(xiàn)在我國的中小學(xué)校中檔案的管理水平還停留在紙介質(zhì)的基礎(chǔ)上， 這樣的機(jī) 制已經(jīng)不能適應(yīng)時代的發(fā)展，因?yàn)樗速M(fèi)了許多人力和物力，在信息

4、時代這種傳 統(tǒng)的管理方法必然被計(jì)算機(jī)為基礎(chǔ)的信息管理所取代。i一、可行性研究可行性研究是系統(tǒng)分析階段的第二項(xiàng)活動。此活動的主要目標(biāo)是：進(jìn)一步 明確系統(tǒng)的目標(biāo)、 規(guī)模與功能， 對系統(tǒng)開發(fā)背景、 必要性和意義進(jìn)行調(diào)查分析并 根據(jù)需要和可能提出開發(fā)系統(tǒng)的初步方案與計(jì)劃。可行性研究是對系統(tǒng)進(jìn)行全 面、概要的分析。通過調(diào)查分析，新系統(tǒng)設(shè)計(jì)方案有以下三個可行性：（一）技術(shù)可行性：本系統(tǒng)采用MSWindows98作為操作平臺。數(shù)據(jù)庫開發(fā)平臺選用MsVisual Foxpro 6，該數(shù)據(jù)庫管理系統(tǒng)在 MSWindows98 和 MSWindows2000 Professional 上都能運(yùn)行， 并提供數(shù)據(jù)庫之

5、間的數(shù)據(jù)復(fù)制功能， 可代替現(xiàn)有系統(tǒng)單據(jù)數(shù)據(jù)的手 工傳遞工作， 降低出錯率， 提高數(shù)據(jù)的可用性。 本系統(tǒng)的應(yīng)用軟件開發(fā)平臺也選 用 Ms Visual Foxpro 6 ，這是目前數(shù)據(jù)庫應(yīng)用軟件的主流開發(fā)平臺。（二）經(jīng)濟(jì)可行性：采用新的學(xué)籍信息管理系統(tǒng)可取代原系統(tǒng)的單據(jù)手工傳遞工作， 減少人工開 支，節(jié)省資金，并且可大大提高信息量的取得，縮短信息處理周期，提高學(xué)生信 息的利用率，使教學(xué)質(zhì)量更上一個臺階。（ 三 ） 營運(yùn)可行性：本系統(tǒng)操作簡單，易于理解，只需通過簡單培訓(xùn)，上手較快，學(xué)校學(xué)籍管理 處的教職員以及相關(guān)教師均能進(jìn)行操作， 營運(yùn)環(huán)境要求低。 面對于系統(tǒng)設(shè)計(jì)還應(yīng) 該以“標(biāo)準(zhǔn)性、安全性、兼容性

6、、高效性、保密性、可維護(hù)性”為標(biāo)準(zhǔn)，在著眼 于當(dāng)前實(shí) 用的 基礎(chǔ) 上， 為將 來 系統(tǒng) 的 擴(kuò)展，升 級留有 余地。軟件 的開發(fā) 應(yīng)能在較長時間內(nèi)滿足學(xué)校的發(fā)展需要。 故新系統(tǒng)還需要滿足以下這幾個標(biāo)準(zhǔn)：（1）標(biāo)準(zhǔn)性：系統(tǒng)的軟硬件選型都應(yīng)該采用工業(yè)化標(biāo)準(zhǔn)，這樣既可以保證 系統(tǒng)運(yùn)行質(zhì)量又可以分享在此標(biāo)準(zhǔn)上的每一次技術(shù)進(jìn)步。（2）可靠性：由于學(xué)籍信息的重要性，系統(tǒng)的軟硬件應(yīng)均為質(zhì)量可靠，并 采用 RAID 0+1廉價磁盤冗余保護(hù)技術(shù)，確保不會由于軟硬件故障造成系統(tǒng)運(yùn)行 終止而使用戶蒙受損失。（ 3） 安全性：通過軟件的編制及硬件設(shè)置，控制使用者接觸數(shù)據(jù)的權(quán)限， 從而確保使用者無法操作與其無關(guān)的數(shù)據(jù)。

7、（ 4） 兼容性：系統(tǒng)的所有軟硬件理論上都應(yīng)有 100%的兼容性，用以保證軟 硬件的可互換性。（ 5） 高效性：由于學(xué)校學(xué)生信息每次處理的信息量較大，因此系統(tǒng)對信息 的處理能力， 響應(yīng)能力都應(yīng)是快速而有效的， 在軟件編制過程中應(yīng)充分考慮到這 一點(diǎn)。（ 6） 可維護(hù)性：系統(tǒng)軟件設(shè)計(jì)時應(yīng)采用結(jié)構(gòu)化模塊設(shè)計(jì)，以便于開發(fā)和維 護(hù)，也有利于根據(jù)情況隨時進(jìn)行功能調(diào)整。 同時在系統(tǒng)開發(fā)時應(yīng)該充分考慮到用 戶的日常維護(hù)， 使之能簡便易行通過可行性分析研究， 認(rèn)為新系統(tǒng)的開發(fā)方案切 實(shí)可行，可進(jìn)行開發(fā)。二、系統(tǒng)總體設(shè)計(jì)（一）開發(fā)工具平臺Visual Basic 6.0 中文版是 Microsoft 公司最新推出

8、的可視化開發(fā)工具， 是 Visual Basic 語言的最新版本，與前期版本相比，增加了許多新的功能。 Visual Basic 是在原有 Basic 語言基礎(chǔ)上的進(jìn)一步發(fā)展，它包含了數(shù)百條語句、函數(shù)及 關(guān)鍵詞，其中有很多與 Windows GUI有直接關(guān)系。Visual Basic 語言簡單易學(xué)， 只要稍有語言基礎(chǔ)就可以很快掌握并進(jìn)而精通。 可視化的用戶界面設(shè)計(jì)功能， 把 程序設(shè)計(jì)人員從繁瑣復(fù)雜的界面設(shè)計(jì)中解脫出來； 可視化編程環(huán)境的“所見即所 得功能（WYSIWYG功能，使界面設(shè)計(jì)如同積木游戲一般，編程變成了一種享 受；強(qiáng)大的多媒體功能可以輕而易舉的開發(fā)出及聲音、動畫、影像、和圖片于一 體

9、的多媒體應(yīng)用程序； 新增的網(wǎng)絡(luò)功能提供了編寫 Internet 程序的能力。 Visual Basic 6.0 中文版還支持用戶自己開發(fā) ActiveX 控件和制作 ActiveX 文檔。作為高質(zhì)量的開發(fā)軟件， Visual Basic 6.0 中文版有如下優(yōu)點(diǎn)：1、完全中文化的環(huán)境使用戶更容易操作，用戶在幾分鐘內(nèi)，就可以熟悉Visual Basic 6.0 的開發(fā)環(huán)境。2、語句生成器和快速提示幫助使用戶不必記憶成千上萬的屬性和方法，在 較短的時間內(nèi)就能開發(fā)出功能強(qiáng)大的應(yīng)用程序。3、在 Visual Basic 6.0 中， Internet 應(yīng)用程序的開發(fā)功能更加強(qiáng)大和容4、種類繁多、功能強(qiáng)

10、大的多媒體控件。5、 Visual Basic 6.0在數(shù)據(jù)庫處理功能上有較大增強(qiáng)，能對多種數(shù)據(jù)庫 進(jìn)行讀寫操作。&新的語言特征。7、【應(yīng)用程序安裝向?qū)А看蟠蠹涌炝顺绦虻拈_發(fā)速度。（二）數(shù)據(jù)庫表結(jié)構(gòu)設(shè)計(jì)根據(jù)分析階段得出的的結(jié)論，結(jié)合本系統(tǒng)對有關(guān)數(shù)據(jù)的存儲的需要，更加方便實(shí)現(xiàn)該學(xué)籍管理開發(fā)系統(tǒng)的所有功能。 現(xiàn)將本系統(tǒng)設(shè)計(jì)成6個數(shù)據(jù)庫表，每 個表的字段名、類型、寬度設(shè)計(jì)如下：（1）學(xué)生基本信息表該表用來存放學(xué)生入學(xué)注冊的個人基本信息。字段名類型寬度學(xué)籍號字符型10姓名字符型2性別字符型10出生年月字符型10班級字符型8家庭住址字符型11父母姓名字符型30聯(lián)系電話字符型10畢業(yè)級別字符型10獎懲記載

11、字符型10學(xué)生簡歷字符型10設(shè)計(jì)說明：為方便編程以及人們工作習(xí)慣，這里將學(xué)籍號、出生年月、聯(lián)系電話等都設(shè)計(jì)成字符型。并根據(jù)實(shí)際需要設(shè)計(jì)了相應(yīng)的寬度。（2）學(xué)生成績表該表用來存放學(xué)生在校期間的個人成績信息字段名類型寬度學(xué)號字符型10姓名字符型8科目數(shù)字型3成績數(shù)字型3學(xué)期數(shù)字型3（3）學(xué)生學(xué)籍表用來存放學(xué)生在校期間的評語信息字段名類型寬度學(xué)號字符型10姓名字符型10獎貸學(xué)金字符型10異動字符型8軍訓(xùn)等級備注型0畢業(yè)去向備注型0（4）教學(xué)計(jì)劃表用來存放教學(xué)信息字段名類型寬度課程號字符型10課程名字符型10學(xué)分?jǐn)?shù)字型2年級字符型10備注備注型4另外，系統(tǒng)還設(shè)置用戶管理表。字段包括：用戶帳號，用戶密碼

12、，級別, 聯(lián)系電話。（三）數(shù)據(jù)流圖數(shù)據(jù)流圖描繪系統(tǒng)的邏輯模型圖，其中沒有任何具體的物理元素，只是描 繪信息在系統(tǒng)中流動和處理的情況。 因?yàn)閿?shù)據(jù)流圖是邏輯系統(tǒng)的圖形表示， 即使 不是專業(yè)的計(jì)算機(jī)技術(shù)人員也容易理解， 所以是極好的通信工具。此外，設(shè)計(jì)數(shù) 據(jù)流圖只需考慮系統(tǒng)必須完成的基本邏輯功能，完全不需要考慮如何具體地實(shí)現(xiàn) 這些功能，所以它也是軟件設(shè)計(jì)的很好的出發(fā)點(diǎn)。學(xué)籍管理系統(tǒng)主要是為了對學(xué)生基本信息、成績、學(xué)籍等進(jìn)行計(jì)算機(jī)管理。所以主要的數(shù)據(jù)源應(yīng)是學(xué)生的各種信息。(1)學(xué)生基本信息流程圖學(xué)號等輸入學(xué)生信息資料刪除記錄檢索記錄 1檢查是否注冊 F2 XSXJ1添加新記錄1修改記錄F1 XSDA才

13、窗體:.報表F1XSDAX,23流程圖分析:從流程圖上可以看出：學(xué)生基本信息的流動首先是以學(xué)籍號的特征為流動 方向的依據(jù)。非0學(xué)號可以繼續(xù)流動，并檢驗(yàn)數(shù)據(jù)庫學(xué)生檔案表檢查是否已經(jīng)注 冊，已經(jīng)注冊的信息可以修改、查詢、并將查詢結(jié)果報表。未注冊的信息可以錄 入到數(shù)據(jù)庫中。為了數(shù)據(jù)的一致性，這里添加記錄的同時，也對數(shù)據(jù)庫中的另一 表學(xué)生學(xué)籍表記錄對應(yīng)的學(xué)籍號， 姓名。這里可以分析得出：要實(shí)現(xiàn)學(xué)生基本信 息的流動，需要設(shè)計(jì)一個學(xué)生基本信息數(shù)據(jù)庫表(XSDA)，學(xué)生學(xué)籍?dāng)?shù)據(jù)庫表(XSXJ)。并對該數(shù)據(jù)庫表可以實(shí)現(xiàn)信息的錄入、修改、查詢、統(tǒng)計(jì)、報表。(2)學(xué)生成績信息流程圖從流程圖上可以看出：學(xué)生成績信息

14、的流動同樣是以學(xué)籍號的特征為流動 方向的依據(jù)。系統(tǒng)首先輸入學(xué)籍號，科目，考試時間等信息，系統(tǒng)首先校驗(yàn)是否 已經(jīng)記錄，對沒有記錄的成績可以實(shí)現(xiàn)添加到成績表中，同時判斷成績是否大于 等于60分，對大于等于60分的成績同時對該學(xué)籍號的學(xué)生將其對應(yīng)的學(xué)分表中 的學(xué)分記錄修改。修改的標(biāo)準(zhǔn)是依據(jù)該科目教學(xué)計(jì)劃中的設(shè)置的學(xué)分為依據(jù)。這里同樣可以分析得出：要實(shí)現(xiàn)學(xué)生成績信息的流動，需要設(shè)計(jì)一個學(xué)生成績信息 數(shù)據(jù)庫表（XSCJ。教學(xué)計(jì)劃表（JXJH）。并對該數(shù)據(jù)庫中相關(guān)的表實(shí)現(xiàn)信息的錄 入、修改、查詢、統(tǒng)計(jì)、報表。（3）學(xué)生學(xué)籍信息流程圖從數(shù)據(jù)流圖上容易看出該系統(tǒng)應(yīng)具有對學(xué)籍信息錄入到數(shù)據(jù)庫中，學(xué)籍信息包括：學(xué)

15、籍號，姓名，獎貸學(xué)金，學(xué)生異動，軍訓(xùn)等級，畢業(yè)去向等?？梢孕?改甚至刪除數(shù)據(jù)庫中相關(guān)信息資料?？梢詫?shù)據(jù)庫的信息按某些字段或字段組合 進(jìn)行檢索。同時應(yīng)具有對數(shù)據(jù)庫的信息作出相關(guān)統(tǒng)計(jì)等功能。(4) 教學(xué)計(jì)劃設(shè)置信息流程圖從數(shù)據(jù)流圖上容易看出該系統(tǒng)應(yīng)具有科目設(shè)置計(jì)劃進(jìn)行管理。即可以對教 學(xué)計(jì)劃進(jìn)行維護(hù)的功能，維護(hù)的字段包括：科目號，科目名，年級，學(xué)分，備注。 具體的數(shù)據(jù)流程是：首先輸入科目號，科目名，對相應(yīng)的數(shù)據(jù)庫表進(jìn)行校驗(yàn)，對 沒有登記的記錄可以進(jìn)行添加。對已經(jīng)有的記錄可以對其相應(yīng)的字段進(jìn)行維護(hù)。包括修改，刪除。同時系統(tǒng)還可以對數(shù)據(jù)庫中的記錄進(jìn)行檢索。 檢索的結(jié)果顯示 在窗體中。(四)系統(tǒng)功能結(jié)

16、構(gòu)圖其是成績的檢索、成績的統(tǒng)計(jì)要具備從不同的角度能夠?qū)?shù)據(jù)庫中的記錄 進(jìn)行特定條件的檢索和統(tǒng)計(jì)。在此基礎(chǔ)上，總結(jié)得到如下的系統(tǒng)功能結(jié)構(gòu)圖：基本信息模塊編輯基本信息:檢索基本信息基本信息報表學(xué)籍信息模塊導(dǎo)入學(xué)籍信息子模塊編輯學(xué)籍信息子模塊學(xué)籍信息報表成績管理模塊一成績編輯子模塊:成績查詢子模塊成績報表子模塊教學(xué)計(jì)劃編輯子模塊教學(xué)計(jì)劃模塊教學(xué)計(jì)劃查詢子模塊教學(xué)計(jì)劃報表子模塊三、詳細(xì)設(shè)計(jì)（一）登陸窗口子模塊本界面的主要功能是為了對系統(tǒng)進(jìn)行安全性管理，本系統(tǒng)的用戶名和密碼 保存在USER表中，本系統(tǒng)根據(jù)不同的用戶而設(shè)置了不同的權(quán)限，可以用 admin;admin為用戶名和密碼來登陸本系統(tǒng)。(1)登陸按

17、鈕源代碼：Private Sub Comma nd1_Click()Dim db As ConnectionSet db = New Connectiondb.CursorLocati on = adUseClie ntdb.Ope nPROVIDER=Microsoft .J et.OLEDB.3.51;DataSource=ezxj.mdb;Set adoPrimaryRS = New Recordset a = Text1.Text b = Text2.Text用戶名=& a &adoPrimaryRS.Ope n select * from user where and 密碼= & b

18、 & , db, adOpenStatic, adLockOptimisticIf adoPrimaryRS.EOF ThenMsgBox （ 用戶名或密碼錯誤 !）Static numcount As Integernumcount = numcount + 1 If numcount = 3 Thennumcount = 0MsgBox （ 三次口令錯，將退出程序 !）Unload MeEnd IfElseIf adoPrimaryRS.Fields（ 級別 ） = 管理員 Thenx = 1Elsex = 0End IfUnload MeForm7.ShowEnd IfEnd Sub （

19、2）重填按鈕源代碼：Private Sub Command3_Click（）Text1.Text = Text2.Text = End Sub（二） 學(xué)生檔案資料錄入子模塊（1）運(yùn)行時的窗體（2）控件和事件a）“網(wǎng)格”容器控件：顯示檔案柜中的數(shù)據(jù)信息。數(shù)據(jù)源設(shè)定為檔案柜表 的查詢記錄集。在窗體的裝載事件load中用語句控制。語句是：adoPrimaryRS.Open select 學(xué)籍號,姓名,性別,出生年月,班級,家庭住址, 父母姓名,聯(lián)系電話,獎懲記載,學(xué)生簡歷from xsda, db, adOpenStatic, adLockOptimisticSet DataGrid.DataSou

20、rce = adoPrimaryRSb）“最首”按鈕控件：click事件是將當(dāng)前窗體中的網(wǎng)格控件中的信息和文本框控件中的信息指向數(shù)據(jù)庫表查詢記錄集中的第一條記錄。利用SQL語句實(shí)現(xiàn) 在數(shù)據(jù)庫中查詢符合條件的所以記錄，并在表單中的網(wǎng)格容器中用指針定位。同時文本框也顯示相應(yīng)的記錄信息。如果無相應(yīng)的記錄，系統(tǒng)將給出提示。實(shí)現(xiàn)關(guān)鍵語句如下：adoPrimaryRS.MoveFirstText1.Text = adoPrimaryRS.Fields（”學(xué)籍號）Text2.Text = adoPrimaryRS.Fields（”姓名）Text3.Text = adoPrimaryRS.Fields（”性別

21、）Text4.Text = adoPrimaryRS.Fields（出生年月）Text5.Text = adoPrimaryRS.Fields（”班級）Text6.Text =adoPrimaryRS.Fields(家庭住址 )Text7.Text =adoPrimaryRS.Fields(父母姓名 )Text8.Text =adoPrimaryRS.Fields(聯(lián)系電話 )Text9.Text =adoPrimaryRS.Fields(獎懲記載 )Text10.Text= adoPrimaryRS.Fields(學(xué)生簡歷 )c) “下一條”按鈕控件：click事件是將網(wǎng)格中的，文本框中的信

22、息同時指 向當(dāng)前記錄的下一條記錄。 如果越界就給出已經(jīng)是最后一條記錄的提示， 并將記 錄定位在最后一條記錄。實(shí)現(xiàn)語句：adoPrimaryRS.MoveNextIf adoPrimaryRS.EOF ThenMsgBox ( 已經(jīng)是第后一條記錄了！ )adoPrimaryRS.MoveLastElseText1.Text =adoPrimaryRS.Fields(學(xué)籍號)Text2.TextadoPrimaryRS.Fields(姓名)Text3.TextadoPrimaryRS.Fields(性別)Text4.TextadoPrimaryRS.Fields(出生年月 )Text5.Texta

23、doPrimaryRS.Fields(班級)Text6.TextadoPrimaryRS.Fields(家庭住址 )Text7.TextadoPrimaryRS.Fields(父母姓名 )Text8.TextadoPrimaryRS.Fields(聯(lián)系電話 )Text9.TextadoPrimaryRS.Fields(獎懲記載 )Text10.Text= adoPrimaryRS.Fields(學(xué)生簡歷 )End Ifd) “上一條” 按鈕控件：click事件是將網(wǎng)格中的，文本框中的信息同時 指向當(dāng)前記錄的上一條記錄。 如果越界就給出已經(jīng)是第一條記錄的提示， 并將記 錄定位在第一條記錄。實(shí)現(xiàn)語

24、句：adoPrimaryRS.MovePreviousIf adoPrimaryRS.BOF ThenMsgBox ( 已經(jīng)是第一條記錄了！ ) adoPrimaryRS.MoveFirstElseText1.Text =adoPrimaryRS.Fields(學(xué)籍號)Text2.TextadoPrimaryRS.Fields(姓名)Text3.TextadoPrimaryRS.Fields(性別)Text4.TextadoPrimaryRS.Fields(出生年月 )Text5.TextadoPrimaryRS.Fields(班級)Text6.TextadoPrimaryRS.Fields(

25、家庭住址 )Text7.TextadoPrimaryRS.Fields(父母姓名 )Text8.TextadoPrimaryRS.Fields(聯(lián)系電話 )Text9.TextadoPrimaryRS.Fields(獎懲記載 )Text10.Text= adoPrimaryRS.Fields(學(xué)生簡歷 )End Ife) “最末”按鈕控件： click 事件是將當(dāng)前窗體中的網(wǎng)格控件中的信息和 文本框控件中的信息指向數(shù)據(jù)庫表查詢記錄集中的第后一條記錄。利用SQL語句實(shí)現(xiàn)在數(shù)據(jù)庫中查詢符合條件的所以記錄， 并在表單中的網(wǎng)格容器中顯示。 如果 無相應(yīng)的記錄，系統(tǒng)將給出提示。實(shí)現(xiàn)關(guān)鍵語句如下：adoP

26、rimaryRS.MoveLastText1.Text =adoPrimaryRS.Fields(學(xué)籍號)Text2.Text= adoPrimaryRS.Fields(姓名)Text3.Text= adoPrimaryRS.Fields(性別)Text4.Text= adoPrimaryRS.Fields(出生年月 )Text5.Text= adoPrimaryRS.Fields(班級)Text6.Text= adoPrimaryRS.Fields(家庭住址 )Text7.Text= adoPrimaryRS.Fields(父母姓名 )Text8.Text = adoPrimaryRS.Fi

27、elds（聯(lián)系電話 ）Text9.Text = adoPrimaryRS.Fields（獎懲記載 ）Text10.Text = adoPrimaryRS.Fields（ 學(xué)生簡歷 ）f）“添加”按鈕控件： click 事件是添加新的學(xué)生檔案記錄，實(shí)現(xiàn)的原理 是對數(shù)據(jù)庫查詢的記錄集添加一條新的記錄， 然后修給這條空記錄的值， 達(dá)到對 數(shù)據(jù)庫表中的學(xué)生檔案記錄添加的目的。實(shí)現(xiàn)的語句如下：adoPrimaryRS.AddNewadoPrimaryRS.Fields（ 學(xué)籍號 ） = Text1.TextadoPrimaryRS.Fields（ 姓名） = Text2.TextadoPrimaryRS

28、.Updateg）“編輯”按鈕控件：click事件是將記錄集中當(dāng)前記錄在文本框中進(jìn)行修 改，然后更改記錄集中相應(yīng)的記錄。 來達(dá)到修改數(shù)據(jù)庫中的記錄的目的。 和添加 相比不需要adoPrimaryRS.AddNew這個語句。實(shí)現(xiàn)的主要語句是：adoPrimaryRS.Fields（ 學(xué)籍號） = Text1.TextadoPrimaryRS.Fields（ 姓名） = Text2.TextadoPrimaryRS.Updateh）“查找”按鈕控件： click 事件是激活查詢窗體。語句是： Form2.Showi）“刪除”按鈕控件： click 事件是刪除當(dāng)前記錄。同時數(shù)據(jù)庫記錄指針指 向當(dāng)前記

29、錄的上一條記錄。adoPrimaryRS.DeleteadoPrimaryRS.MovePreviousIf adoPrimaryRS.BOF ThenadoPrimaryRS.MoveFirstEnd IfTextl.Text = adoPrimaryRS.Fields（”學(xué)籍號）Text2.Text = adoPrimaryRS.Fields（姓名）Text3.Text = adoPrimaryRS.Fields（性別）j ） “退出”按鈕控件：click事件是釋放當(dāng)前窗體，返回主控系統(tǒng)實(shí)現(xiàn)語句是：Un load Me（三）檔案信息查詢子模塊（1）運(yùn)行時的窗體（2）控件和事件a）“網(wǎng)格”容

30、器控件：顯示學(xué)生檔案數(shù)據(jù)庫里面的中的數(shù)據(jù)信息。數(shù)據(jù)源設(shè)定為檔案數(shù)據(jù)庫的查詢記錄集。在窗體的裝載事件load中用語句控制。裝載時默認(rèn)是所有記錄。語句是：adoPrimaryRS.Open select 學(xué)籍號,姓名,性別,出生年月,班級,家庭住址, 父母姓名,聯(lián)系電話,獎懲記載,學(xué)生簡歷from xsda, db, adOpenStatic, adLockOptimisticSet DataGrid1.DataSource = adoPrimaryRSb）“選擇”按鈕控件：click事件是將當(dāng)前窗體中的文本控件中的關(guān)鍵字作為查詢的關(guān)鍵字。查詢可以是按照學(xué)生學(xué)籍號或者姓名。查詢類別和關(guān)鍵字可以根據(jù)

31、用戶的需要設(shè)定。查詢的結(jié)果顯示在網(wǎng)格控件中。實(shí)現(xiàn)關(guān)鍵語句如下：a = Combol.Textb = Textl.TextadoPrimaryRS.Open select 學(xué)籍號,姓名,性別,出生年月,班級,家庭住 址，父母姓名,聯(lián)系電話,獎懲記載,學(xué)生簡歷from xsda where & a & like % & b & %, db, adOpenStatic, adLockOptimisticSet DataGrid1.DataSource = adoPrimaryRSc) “導(dǎo)出”按鈕控件：click事件是將查詢記錄集中的的查詢結(jié)果導(dǎo)出到報 表專家excel中去。導(dǎo)出的實(shí)質(zhì)就是將記錄集中

32、的記錄用一個雙循環(huán)作為excel的記錄源。從而實(shí)現(xiàn)導(dǎo)出。實(shí)現(xiàn)語句：adoPrimaryRS.MoveFirsti = 0Do While (adoPrimaryRS.EOF = False)For j = 0 To adoPrimaryRS.Fields.Count. 1DataGrid1.Col = jxlsheet.Cells(i + 2, j + 1) = DataGrid1.TextNext jadoPrimaryRS.MoveNextLoop導(dǎo)出到excel后的窗體如下:學(xué)藉號性別卅牛:2003100001I1992-2003100002同國強(qiáng)1990-2U03100Q03孫東男19

33、90-2003100004張明男19S8-20031000051990-2003100006何政男190S-2003100007宋林中男1990-2003100003男1989-2003100009高兵兵-男198S-2003100010鄭亞男1989-2003100011男1959-2003100012李午陽男1990-在excel環(huán)境下我們就可以根據(jù)用戶的需要輕松制作出符合用戶的各種表(四) 學(xué)生成績錄入子模塊(1)運(yùn)行時的窗體(2)控件和事件控件包括4個文本框、5個按鈕控件和一個網(wǎng)格控件。文本框完成對學(xué)生輸 入成績的科目和時間的設(shè)定。對于同樣科目同一考試時間的成績的錄入。這樣設(shè)定后對于錄

34、入成績很方便。每個記錄輸入后這2個文本框的信息是不改變的。還 有2個文本框是錄入學(xué)生學(xué)籍號和成績。5個按鈕控件分別是輸入，修改，刪除 重新設(shè)定和退出。下面將對按鈕控件做詳細(xì)分析。網(wǎng)格控件默認(rèn)的數(shù)據(jù)源是學(xué)生 成績庫里面的所有數(shù)據(jù)。在裝載時用語句實(shí)現(xiàn)：adoPrimaryRS.Open select 學(xué)籍號,姓名,科目,成績,學(xué)期 from xscj,db, adOpe nStatic, adLockOptimisticSet DataGrid1.DataSource = adoPrimaryRS下面對輸入，修改，刪除這三個按鈕的事件和實(shí)現(xiàn)語句分析如下：a) “輸入”按鈕控件：click事件首先對

35、學(xué)生檔案庫中的記錄進(jìn)行查詢符合 輸入的學(xué)籍號記錄。如果沒有，則說明該生還沒有注冊，不能錄入學(xué)生成績。如 果查到學(xué)生記錄，則將學(xué)生的姓名，已經(jīng)輸入的成績信息一同作為學(xué)生成績添加 的信息。它的實(shí)現(xiàn)語句是:II學(xué)籍號IIb = Text3.TextadoPrimaryRS1.Open select學(xué)籍號 , 姓名 from xsda where & a & like % & b & %, db, adOpenStatic, adLockOptimisticIf adoPrimaryRS1.EOF = True ThenMsgBox （ 該生還未注冊 ）ElseSet adoPrimaryRS2 =

36、New Recordseta = 學(xué)籍號 b = Text3.Text c = 科目 d = Text1.Text e = 學(xué)期 f = Text2.TextadoPrimaryRS2.Open select 學(xué)籍號 , 姓名 , 科目 , 學(xué)期 from xscj where & a & like % & b & % and & c & like % & d & % and & e & like % & f & %, db, adOpenStatic, adLockOptimisticIf adoPrimaryRS2.EOF = True Then adoPrimaryRS.AddNew2）

37、“修改”按鈕控件：網(wǎng)格開始的時候設(shè)定為不可編輯?，F(xiàn)在對它的修改 需要改變它的屬性。 click 事件是將按鈕名改成“保存” ，增加了系統(tǒng)的交互性， 同時使網(wǎng)格變得可編輯。 “保存” 按鈕控件的 click 事件是將按鈕名改成“修 改”，此時使文本框變得不可編輯，修改完成后，網(wǎng)格容器控件中的數(shù)據(jù)自動更 新。它的實(shí)現(xiàn)語句是：If Command4.Caption = 成績修改 Then Command4.Caption = 保存 DataGrid1.Enabled = TrueElseCommand4.Caption = 成績修改 DataGridl.E nabled = FalseEnd If3

38、）“刪除”按鈕控件：成績庫的記錄有時候會輸入出錯。當(dāng)然一般可以通 過修改更正，但是有時候輸入了一條完全沒有意義的記錄我們可以通過刪除來完 成整理數(shù)據(jù)庫的目的。實(shí)現(xiàn)的語句如下：adoPrimaryRS.Delete adoPrimaryRS.MovePreviousIf adoPrimaryRS.BOF The nadoPrimaryRS.MoveFirst（五）學(xué)生成績查詢子模塊（1）運(yùn)行時的窗體（2）控件和事件該模塊主要包括網(wǎng)格，文本框，按鈕控件。網(wǎng)格默認(rèn)的數(shù)據(jù)源是成績庫的 所以記錄。文本框用來設(shè)定和輸入查詢類別和查詢關(guān)鍵字。查詢可以從學(xué)籍號， 姓名，班級，年級。以及考試時間等進(jìn)行綜合查詢。

39、即至少找到滿足2個查詢關(guān)鍵字的記錄。導(dǎo)出按鈕控件主要是將查詢的結(jié)果導(dǎo)出到excel中。下面主要針對查詢按鈕作一個主要分析：實(shí)現(xiàn)的語句如下：a = Combo1.Textb = Text1.Textc = 學(xué)期 d = Text2.TextIf Combo1.Text = 班級 ThenadoPrimaryRS.Open select distinct學(xué)籍號 , 姓名 , 科目 , 成績 , 學(xué)期from xscj where & c & like % & d & % and學(xué)籍號 in (select 學(xué)籍號 from xsda where & a & like % & b & %), db,

40、 adOpenStatic, adLockOptimisticElseadoPrimaryRS.Open select distinct學(xué)籍號 , 姓名 , 科目 , 成績 , 學(xué)期from xscj where & a & like % & b & % and & c & like % & d& %, db, adOpenStatic, adLockOptimisticEnd IfSet DataGrid1.DataSource = adoPrimaryRS在查詢中由于是綜合查詢。 所以實(shí)現(xiàn)的語句用到了 sql 語句中的聯(lián)合查詢。 具體的語句是： select distinct學(xué)籍號 , 姓

41、名 , 科目 , 成績 , 學(xué)期 from xscjwhere & c & like % & d & % and 學(xué)籍號 in (select 學(xué)籍號 from xsda where & a & like % & b & %)(六) 學(xué)生學(xué)籍導(dǎo)入子模塊學(xué)生學(xué)籍里面的學(xué)籍號，姓名這些字段的信息不必專門輸入。為了高效率 和為了與檔案記錄的一致性我們可以首先將檔案庫的所有記錄首先作為數(shù)據(jù)源 顯示在如下窗體的左邊的檔案網(wǎng)格中。然后將該網(wǎng)格的數(shù)據(jù)作為右邊學(xué)籍庫的數(shù) 據(jù)源導(dǎo)入。同時對學(xué)籍庫的其他字段自動設(shè)定為無。等以后隨著學(xué)生的求學(xué)過程。 我們可以動態(tài)的進(jìn)行修改。導(dǎo)入按鈕的click控件的源代碼是：For

42、 i = 0 To DataGridl.VisibleRows . 1DataGridl.Row = iDataGridl.Col = 0If adoPrimaryRS.EOF = True ThenadoPrimaryRS. AddNew adoPrimaryRS.Fields(” DataGrid1.Col = 1 adoPrimaryRS.Fields(” adoPrimaryRS.Fields(” adoPrimaryRS.Fields(” adoPrimaryRS.Fields(” adoPrimaryRS.Fields(”學(xué)籍號)=DataGrid1.Text姓名)=DataGrid1.T