【正文】 access。query 1 引言隨著學(xué)校辦學(xué)規(guī)模的擴(kuò)大,學(xué)生數(shù)量急劇增加,有關(guān)學(xué)生各種信息的數(shù)量也在成倍增長(zhǎng)。面對(duì)龐大的信息量,利用計(jì)算機(jī)信息管理系統(tǒng)對(duì)學(xué)生的學(xué)號(hào)，姓名，性別，民族，年級(jí)，出生年月，系別，家庭住址等綜合信息進(jìn)行管理經(jīng)成為一種必然趨勢(shì)。我根據(jù)學(xué)校特點(diǎn),通過開發(fā)學(xué)生信息管理系統(tǒng),可以做到信息的規(guī)范管理、科學(xué)統(tǒng)計(jì)和快速查詢,從而解決大量繁瑣的工作,實(shí)現(xiàn)學(xué)生信息管理的辦公無紙化和高效化。功能需求分析學(xué)生管理系統(tǒng)采用 Visual Basic 2008 作為開發(fā)工具，后臺(tái)數(shù)據(jù)庫采用 Assecc2000。系統(tǒng)開發(fā)的總體任務(wù)是實(shí)現(xiàn)學(xué)生信息管理的條理化，系統(tǒng)化。用戶通過界面，完成對(duì)學(xué)生的學(xué)號(hào)，姓名，性別，民族，年級(jí)，出生年月，系別，家庭住址等信息的管理?？梢詫?duì)學(xué)生信息方便的實(shí)現(xiàn)輸入，刪除，修改，模糊查詢，精確查詢，在瀏覽記錄時(shí)可以切換上一條，下一條，第一條和最后一條。還可對(duì)學(xué)生信息記錄進(jìn)行排序。數(shù)據(jù)庫建立與連接 數(shù)據(jù)庫建立目前,可應(yīng)用的數(shù)據(jù)庫開發(fā)工作很多,Oracle是面向網(wǎng)絡(luò)計(jì)算的數(shù)據(jù)庫,適合開發(fā)大型網(wǎng)絡(luò)應(yīng)用軟件。Access和Visual Foxpro系統(tǒng)適合開發(fā)小型數(shù)據(jù)庫應(yīng)用軟件。Access數(shù)據(jù)庫功能比較齊全,數(shù)據(jù)的備份、拷貝都很方便,且程序發(fā)布時(shí)不需要額外安裝其他的數(shù)據(jù)庫管理軟件。本系統(tǒng)數(shù)據(jù)量較小,采用Access數(shù)據(jù)庫就可滿足要求。 數(shù)據(jù)庫連接VB 提供了多種與數(shù)據(jù)庫連接的方式，這里使用數(shù)據(jù)控件（Data）。數(shù)據(jù)控件（Data）提供 了一種方便地訪問數(shù)據(jù)庫中數(shù)據(jù)的方法，使用數(shù)據(jù)控件無須編寫代碼就可以對(duì) VB 所支持 的各種類型的數(shù)據(jù)庫執(zhí)行大部分?jǐn)?shù)據(jù)訪問操作。數(shù)據(jù)控件本身不能顯示和直接修改記錄，但是可以通過與數(shù)據(jù)控件相關(guān)聯(lián)的數(shù)據(jù)約束控件中顯示各個(gè)記錄。用戶界面設(shè)計(jì) 在 Visual Basic2008 環(huán)境中，建立一個(gè)標(biāo)準(zhǔn)的 exe 工程。學(xué)生的學(xué)號(hào)，姓名，性別，民族，年級(jí)，出生年月，系別，家庭住址用文本框控件來顯示，名稱分別為 text1,text2…text8, 他們分別與數(shù)據(jù)庫中的相應(yīng)字段綁定。選擇數(shù)據(jù)控件 data1，并設(shè)置它的屬性，使得它與數(shù)據(jù)庫連接。實(shí)現(xiàn)記錄的第一條，上一條，下一條，最后一條的切換以及添加記錄，刪除記錄和編輯記錄的操作用按鈕來控制實(shí)現(xiàn)，名稱分別為 mand1,mand2…mand7。對(duì)按不同的條件進(jìn)行查詢，這里使用了組合框 Combo1 和 Combo2，分別用來選擇精確查找和模糊查找的條件。代碼程序的實(shí)現(xiàn)主要使用了 data 控件的常用方法。對(duì)于精確查找和模糊查找中的“查找第一個(gè)”與“查找下一個(gè)”按鈕的事件中，它們所使用的查找條件是一樣的，所以需要先定義窗體變量。 登陸界面mystr = “Provider=。Data source=” = mystr()Dim mycmd As New OleDbCommand = myconn = “select * from admin”Dim myreader As OleDbDataReader = While ()If = myreader(“ID”).ToString And = myreader(“psw”)ThenMsgBox(“用戶名密碼正確??！”, , “提示”) = = = myreader(“pright”)()()Exit SubEnd IfEnd WhileMsgBox(“用戶密碼不正確”, , “提示”) = “ = ”“() 添加刪除用戶在實(shí)際應(yīng)用中,除了超級(jí)用戶之外,往往會(huì)賦予用戶一定的訪問權(quán)限,在給用戶設(shè)置訪問權(quán)限之前,應(yīng)先創(chuàng)建一個(gè)用戶帳戶,將其追加到用于當(dāng)前數(shù)據(jù)庫的工作組信息文件中的默認(rèn)Users組。本系統(tǒng)的安全措施在數(shù)據(jù)庫的訪問過程中雖然起到了一定的防護(hù)作用,然而,盡管人們想到了種種辦法維護(hù)自己的數(shù)據(jù)安全,但也總是有漏洞被發(fā)現(xiàn),因此,備份數(shù)據(jù)是簡(jiǎn)單有效的方法。 記錄的跳轉(zhuǎn) 查找首記錄 () = ”共有“ amp。 amp。 ”條記錄，“ amp。 ”本記錄為第“ amp。 + 1 amp。 ”條記錄“ 查找下一條記錄If Then() = ”共有“ amp。 amp。 ”條記錄，“ amp。 ”本記錄為第“ amp。 + 1 amp。 ”條記錄“ElseMsgBox(”已經(jīng)是最后一條記錄“, , ”提示“)End If 查找上一條記錄 If 0 Then() = ”共有“ amp。 amp。 ”條記錄，“ amp。 ”本記錄為第“ amp。 + 1 amp。 ”條記錄“ElseMsgBox(”已經(jīng)是第一條記錄“, , ”提示“)End If 查找末記錄 () = ”共有“ amp。 amp。 ”條記錄，“ amp。 ”本記錄為第“ amp。 + 1 amp。 ”條記錄“ 記錄的修改、刪除、添加、保存記錄的修改a = 3 = False = False = True = False = False 記錄的刪除a = 1 = False = False = True = False = False 記錄的添加a = 2 = ”“ = ”“ = ”“ = ”“ = ”“ = ”“ = ”“ = ”“() = False = False = True = False = False 記錄的保存Select Case aCase 1If MsgBox(”您確定刪除此條記錄嗎？“, + , ”提示“)= Then(”info“).Rows().Delete()Dim mybd = New OleDbCommandBuilder(myada)(myds, ”info“)()(myds, ”info“) = True = True = True = True = FalseElse = True = True = True = True = FalseEnd IfCase 2Dim myrow As DataRow = (”info“).NewRowmyrow(”學(xué)號(hào)“)= myrow(”姓名“)= myrow(”性別“)= myrow(”民族“)= myrow(”年級(jí)“)= myrow(”出生年月“)= myrow(”系“)= myrow(”家庭住址“)= (”info“).(myrow) = TrueDim mybd = New OleDbCommandBuilder(myada)(myds, ”info“)()(myds, ”info“) = True = True = True = FalseCase 3(”info“).Rows().BeginEdit()(”info“).Rows().EndEdit()Dim mybd = New OleDbCommandBuilder(myada)(myds, ”info“)()(myds, ”info“) = True = True = True = True = FalseEnd Select = ”共有“ amp。 amp。 ”條記錄，“ amp。 ”本記錄為第“ amp。 + 1 amp。 ”條記錄“End SubPrivate Sub Button6_Click(ByVal sender As , ByVal e As )Handles a = 1 = False = False = True = False = False 記錄的查找 Dim condstr As Stringcondstr=”“If ”“ ThenIf condstr = ”“ ThenIf = ”等于“ Thencondstr = ”姓名=39。“ amp。 amp。 ”39?！癊lsecondstr = ”姓名 like 39。%“ amp。 amp。 ”%39。“End IfEnd IfEnd IfIf ”“ ThenIf condstr = ”“ Thencondstr = ”性別=39?！?amp。 amp。 ”39?！癊lsecondstr = condstr amp。 ” and “ amp。 ”性別=39?！?amp。 amp。 ”39?！癊nd IfEnd IfIf ”“ ThenIf condstr = ”“ Thencondstr = ”民族=39。“ amp。 amp。 ”39?！癊lsecondstr = condstr amp。 ” and “ amp。 ”民族=39。“ amp。 amp。 ”39?！癊nd IfEnd IfIf ”“ ThenIf condstr = ”“ ThenIf = ”等于“ Thencondstr = ”家庭住址=39。“ amp。 amp。 ”39?！癊lsecondstr = condstr amp。 ” and “ amp。 ”家庭住址 like 39。%“ amp。 amp。 ”%39。End IfEnd IfEnd If = condstr 6 結(jié)束語本系統(tǒng)達(dá)到了預(yù)期的要求，系統(tǒng)設(shè)計(jì)是根據(jù)學(xué)校的學(xué)生信息管理流程，合理設(shè)置各種操作模塊，各管理員和操作員之間分工明確，并且能夠及時(shí)、準(zhǔn)確地記錄每次操作信息。操作簡(jiǎn)單易行，定期審核，確保了數(shù)據(jù)的正確性。從根本上解決了學(xué)生管理的計(jì)算機(jī)實(shí)現(xiàn)方式，對(duì)學(xué)校管理來講是一個(gè)大的跨越。參考文獻(xiàn)：鄭阿奇 彭作民 Visual 程序設(shè)計(jì)教程（第二版）械工業(yè)出版社