(精品論文)基于vb的學(xué)生管理系統(tǒng) 畢業(yè)論文

本科畢業(yè)論文（設(shè)計(jì)）基于VB的學(xué)生管理系統(tǒng) 設(shè)計(jì)與實(shí)現(xiàn)姓 名： 系 別： 計(jì)算機(jī)科學(xué)系 專 業(yè)： 計(jì)算機(jī)科學(xué)與技術(shù) 學(xué) 號(hào)： 指導(dǎo)教師： 20年 月 日1目 錄1 界面設(shè)計(jì)11.1 菜單欄的設(shè)計(jì)11.2 工具欄的設(shè)計(jì)21.3 狀態(tài)欄的設(shè)計(jì)32 模塊設(shè)計(jì)32.1 個(gè)人情況模塊32.2 考勤模塊102.3 獎(jiǎng)學(xué)金模塊152.4 等級(jí)考試模塊 個(gè)人成績(jī)模塊 選修成績(jī)模塊172.5 個(gè)人交費(fèi)情況232.6 用戶管理模塊232.7 登陸模塊262.8 ADO控件28結(jié)束語28參考文獻(xiàn)28致 謝30基于VB的學(xué)生管理系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn)摘 要學(xué)生管理系統(tǒng)對(duì)于學(xué)校的決策者和管理者來說都至關(guān)重要，是一個(gè)教育單位不可缺少的管理工具，能夠?yàn)橛脩籼峁┏渥愕男畔⒑涂旖莸牟樵兪侄?。本學(xué)生管理系統(tǒng)是基于VB技術(shù)的系統(tǒng)。包括個(gè)人情況模塊、考勤模塊、獎(jiǎng)學(xué)金模塊、等級(jí)考試模塊、個(gè)人成績(jī)模塊、選修成績(jī)模塊、個(gè)人交費(fèi)情況模塊、用于控制操作級(jí)別的用戶管理模塊。在這些模塊中，除了基本的刪除、添加、查詢外，有的模塊還加了更加詳細(xì)的查詢內(nèi)容。關(guān)鍵詞學(xué)生管理系統(tǒng)；模塊；查詢Design and Realization of the Student Management System Based on VBAbstractThe student management system is vital for decision-makers and managers of schools. It is an indispensable management tool which can provide sufficient information and quick query measure for them. This student management system is based on VB technology, includes the individual situation module， the checking attendance module，the scholarship module，the rank test module，the individual performance module， the choose course result module，the individual paying-fee situation module，the user management module. Basic functions such as delete, add and query are realized in these modules，and more detailed query contents are added in some of the modules.KeywordsThe Sudent Mnagement System; Module; Query本科畢業(yè)論文（設(shè)計(jì)）學(xué)生管理系統(tǒng)是一個(gè)教育單位不可缺少的部分，它的內(nèi)容對(duì)于學(xué)校的決策者和管理者來說都至關(guān)重要，所以學(xué)生檔案管理系統(tǒng)應(yīng)該能夠?yàn)橛脩籼峁┏渥愕男畔⒑涂旖莸牟樵兪侄?。一直以來人們使用傳統(tǒng)人工的方式管理文件檔案，這種管理方式存在著許多缺點(diǎn)：效率低、保密性差，另外時(shí)間一長(zhǎng)，將產(chǎn)生大量的文件和數(shù)據(jù)，這對(duì)于查找、更新和維護(hù)都帶來了不少的困難。隨著科學(xué)技術(shù)的不斷提高，計(jì)算機(jī)科學(xué)日漸成熟，其強(qiáng)大的功能已為人們深刻認(rèn)識(shí)，它已進(jìn)入人類社會(huì)的各個(gè)領(lǐng)域并發(fā)揮著越來越重要的作用。使用計(jì)算機(jī)對(duì)學(xué)生檔案信息進(jìn)行管理，具有手工管理無法比擬的優(yōu)點(diǎn)。如：檢索迅速、查找方便、可靠性高、存儲(chǔ)量大、保密性好、壽命長(zhǎng)、成本低等，這些優(yōu)點(diǎn)能夠極大地提高學(xué)生檔案管理的效率。本學(xué)生管理系統(tǒng)包括個(gè)人情況模塊、考勤模塊、獎(jiǎng)學(xué)金模塊、等級(jí)考試模塊、個(gè)人成績(jī)模塊、選修成績(jī)模塊、個(gè)人交費(fèi)情況模塊、用于控制操作級(jí)別的用戶管理模塊。在這些模塊中，除了基本的刪除、添加、查詢外，有的模塊還加了更加詳細(xì)的查詢內(nèi)容。1 界面設(shè)計(jì)1.1 菜單欄的設(shè)計(jì)在窗體的標(biāo)題欄下顯示的是菜單欄，它包含一個(gè)或多個(gè)菜單標(biāo)題。在程序運(yùn)行時(shí)，當(dāng)用戶選擇某個(gè)菜單標(biāo)題時(shí)會(huì)下拉出一個(gè)菜單，菜單中的菜單項(xiàng)可以是命令、選項(xiàng)、分隔條或子菜單標(biāo)題。每個(gè)菜單項(xiàng)都是一個(gè)控件，與其他控件一樣也有自己的屬性和事件。菜單項(xiàng)的每個(gè)屬性都能設(shè)置和查看，如name(名稱)和caption(標(biāo)題)屬性等。每個(gè)菜單項(xiàng)只能響應(yīng)一個(gè)事件，即Click事件。具體步驟如下：（1）在設(shè)計(jì)狀態(tài)，選擇工具“菜單下的菜單編輯器（Ctrl+E）”命令，會(huì)出現(xiàn)菜單編輯器窗口。（2）在菜單設(shè)計(jì)窗口中，按下表對(duì)每一個(gè)菜單項(xiàng)輸入標(biāo)題、控制名稱和相應(yīng)的快捷鍵。如表1-1菜單項(xiàng)的設(shè)計(jì)。表1-1 菜單項(xiàng)的設(shè)置菜單項(xiàng)名稱快捷鍵系統(tǒng)管理Xitong添加用戶UseraddCtrl+A修改密碼UsermodiCtrl+B重新登陸denglu2Ctrl+F1_e14退出ExitCtrl+A考勤管理Kaoqingguanli考勤情況輸入Kaoqintianjia考勤情況查詢Kaoqinchaxun考勤記錄刪除Kaoqinshanchu學(xué)生檔案管理Dangan檔案瀏覽StudentliulanCtrl+G檔案刪除Studendelete檔案添加StudentaddCtrl+F檔案查詢StudentfindCtrl+H學(xué)生交費(fèi)管理Jiaofei_Ee學(xué)生交費(fèi)瀏覽JiaofeibrowseCtrl+M學(xué)生交費(fèi)添加JiaofeiaddCtrl+N學(xué)生交費(fèi)查詢JiaofeifindCtrl+O選修課管理Xuanxiukeguanli選修成績(jī)添加xuanxiuchengjitianjiaCtrl+P選修成績(jī)刪除xuanxiuchengjishanchu選修成績(jī)查詢xuanxiuchengjichaxun成績(jī)與獎(jiǎng)學(xué)金管理Cjjxjguanli獎(jiǎng)學(xué)金管理Jiangxuejin獎(jiǎng)學(xué)金結(jié)果輸入Jxjtianjia獎(jiǎng)學(xué)金結(jié)果刪除Jxjshanchu獎(jiǎng)學(xué)金情況查詢Jxjchuxun成績(jī)管理Cjguanli成績(jī)刪除ChengjishanchuCtrl+R成績(jī)添加CjaddCtrl+S成績(jī)查詢CjfindCtrl+U等級(jí)考試管理Djksgl等級(jí)考試查詢Djkschaxun等級(jí)考試添加Djkstianjia等級(jí)考試刪除Djksshanchu當(dāng)完成所有輸入工作后，選擇“確定”命令按鈕，就完成了整個(gè)菜單的建立工作，然后給各個(gè)菜單的Click事件中寫入代碼。1.2 工具欄的設(shè)計(jì)工具欄是為用戶提供了應(yīng)用程序中最常用的菜單命令的快速訪問方法，進(jìn)一步增強(qiáng)應(yīng)用程序的菜單界面，工具欄制作的方法是將ToolBar、ImageList組合使用。創(chuàng)建工具欄的步驟是：（1）在ImageList控件中添加所需的圖像。ImageList控件不單獨(dú)使用，專門為其他控件提供圖像庫，是一個(gè)圖像容器控件。在窗體上增加ImageList控件后，選中該控件，單擊右鍵，從彈出的快捷菜單中選擇“屬性”，然后在“屬性頁”對(duì)話框選擇“圖像”標(biāo)簽，在圖像框中插入圖像，每個(gè)圖像的屬性見表1-2。表1-2 控件屬性的設(shè)置ImageList控件屬性ToolBar控件按鈕屬性索引(Index)關(guān)鍵字(Key)索引(Index)樣式(Style)圖像(Image)tianjia40tianjiachaxun20chaxunsanchu60sanchujisuan100jisuanguanbi120guanbi（2）在ToolBar控件中創(chuàng)建Button對(duì)象。ToolBar控件中的每個(gè)按鈕的圖像都來自ImageList對(duì)象中插入的圖像。為工具欄連接圖像在窗體上增加ToolBar控件后，打開“屬性頁”對(duì)話框，選擇“通用”標(biāo)簽，對(duì)其各項(xiàng)進(jìn)行設(shè)置，一般取默認(rèn)值。為工具欄增加按鈕在“屬性頁”對(duì)話框中選擇“按鈕”標(biāo)簽，單擊“插入按鈕”可以在工具欄增加按鈕，然后對(duì)各屬性進(jìn)行設(shè)置。（3）在uttonClick事件中用Select Case語句對(duì)各按鈕進(jìn)行相應(yīng)的編程。1.3 狀態(tài)欄的設(shè)計(jì)狀態(tài)欄用來顯示系統(tǒng)信息和對(duì)用戶的提示。創(chuàng)建狀態(tài)欄的步驟是：（1）建立狀態(tài)欄設(shè)計(jì)時(shí)，在窗體上增加Statusbar控件后，打開其“屬性面”對(duì)話框，選擇“窗格”標(biāo)簽，設(shè)置個(gè)窗格，各窗格屬性設(shè)置如表1-3。表1-3 Statusbar控件屬性設(shè)置索引（Index）樣式(Style)文本(Text)說明sbrtext學(xué)生管理系統(tǒng)顯示學(xué)生管理系統(tǒng)sbrtext顯示當(dāng)前操作員sbrtext顯示當(dāng)前用戶是管理員還是普通用戶sbrtext顯示開發(fā)該軟件的組成人員sbrtext空白（2）運(yùn)行時(shí)改變狀態(tài)欄運(yùn)行時(shí)，能重新設(shè)置窗格Panel對(duì)象以反映不同的功能，除第一個(gè)窗格外其它的窗格都通過編程來實(shí)現(xiàn)。2 模塊設(shè)計(jì)用 戶 管 理學(xué)生管理系統(tǒng)考 勤 管 理學(xué) 生 檔 案 管 理學(xué) 生 交 費(fèi) 管 理選 修 課 管 理成 績(jī) 管 理獎(jiǎng) 學(xué) 金 管 理等 級(jí) 考 試 管 理本學(xué)生管理系統(tǒng)結(jié)構(gòu)圖，如圖2-1所示：圖2-1 學(xué)生管理系統(tǒng)結(jié)構(gòu)圖2.1 個(gè)人情況模塊個(gè)人情況模塊有三個(gè)小的模塊組成：修改與添加，刪除，查詢。2.1.1 個(gè)人基本情況添加界面如圖2-2所示：圖2-2 個(gè)人信息添加個(gè)人基本情況添加模塊的設(shè)計(jì)思想是首先看輸入的內(nèi)容，即個(gè)人信息是不是空的。如果是空的，則不允許添加；如果不是空的，那么在個(gè)人情況表與個(gè)人詳細(xì)情況表中加入界面上所輸入的信息。它的添加功能是用下面的代碼實(shí)現(xiàn)的:If Trim(Text1) = Or Trim(Text2) = Or Trim(Text3) = Or Trim(Text4) = Or Trim(Text5) = Or Trim(Text6) = Or Trim(Text7) = Or Trim(Text9) = Or Trim(Text10) = Or Trim(Text11) = ThenMsgBox 所有信息都不能為空！Exit SubEnd IfAdodc1.RecordSource = select * from jibenqingkuangAdodc1.RefreshAdodc1.Recordset.AddNewAdodc1.Recordset.Fields(學(xué)號(hào)) = Trim(Text1)Adodc1.Recordset.Fields(姓名) = Trim(Text2)Adodc1.Recordset.Fields(性別) = Trim(Text3)Adodc1.Recordset.Fields(班級(jí)) = Trim(Text4)Adodc1.Recordset.Fields(專業(yè)) = Trim(Text5)Adodc1.Recordset.Fields(年齡) = Val(Trim(Text6)Adodc1.Recordset.Fields(出生日期) = Trim(Text7)Adodc1.Recordset.Fields(政治面貌) = Trim(Combo1.Text)Adodc1.Recordset.UpdateAdodc1.Recordset.CloseAdodc1.RecordSource = select * from xiangxiqingkuangAdodc1.RefreshAdodc1.Recordset.AddNewAdodc1.Recordset.Fields(姓名) = Trim(Text2)Adodc1.Recordset.Fields(身份證號(hào)) = Trim(Text9)Adodc1.Recordset.Fields(生源所在地) = Trim(Text10)Adodc1.Recordset.Fields(家庭所在地) = Trim(Text11)Adodc1.Recordset.UpdateMsgBox 個(gè)人基本情況和詳細(xì)情況的記錄添加成功！2.1.2 個(gè)人基本情況的查詢界面如圖2-3所示：圖2-3 基本情況查詢?cè)O(shè)計(jì)思想是先在條件中輸入要查找的條件，然后按所輸入的條件用SQL語言的SELECT語句進(jìn)行查詢。在查詢之前，要看看輸入的條件是不是為空，如果為空，出現(xiàn)提示，“沒有輸入條件，請(qǐng)輸入!”然后，在根據(jù)姓名條件的精確或是模糊進(jìn)行查詢。查詢到的個(gè)人信息，放到具體的文本框中。它的四個(gè)按鈕用來控制得到的記錄集的上下移動(dòng)。中間自己定義了一個(gè)過程move1，用來更新文本框的數(shù)據(jù)。部分代碼如下：查詢代碼：Dim sql As Stringsql = 1If Trim(Text1) = And Trim(Text2) = And Trim(Text3) = And Trim(Text4) = And Trim(Combo1.Text) = 忽略 And Trim(Combo2.Text) = 忽略 ThenMsgBox 沒有輸入條件，請(qǐng)輸入!Exit SubEnd IfIf Trim(Text1) ThenIf Option1.Value Thensql = sql + and 姓名= & Text1 & Elsesql = sql + and 姓名 like % & Text1 & %End IfEnd IfIf Trim(Text2) Then sql = sql + and 年齡 & Trim(Combo3.Text) & Text2 & If Trim(Text3) Then sql = sql + and 學(xué)號(hào) & Trim(Combo4.Text) & & Text3 & If Trim(Text4) Then sql = sql + and 班級(jí)= & Text4 & If Trim(Combo1.Text) 忽略 Then sql = sql + and 專業(yè)= & Trim(Combo1.Text) & If Trim(Combo2.Text) 忽略 Then sql = sql + and 性別= & Trim(Combo2.Text) & Adodc1.RecordSource = select * from jibenqingkuang where & sqlAdodc1.RefreshIf Adodc1.Recordset.EOF ThenMsgBox jibenqingkuang表，沒有滿足條件的記錄!Command3.Enabled = FalseCommand4.Enabled = FalseCommand5.Enabled = FalseCommand6.Enabled = FalseElseCommand3.Enabled = FalseCommand4.Enabled = FalseCommand5.Enabled = TrueCommand6.Enabled = Truemove1End IfIf Adodc1.Recordset.BOF ThenCommand3.Enabled = FalseCommand4.Enabled = FalseElseCommand3.Enabled = TrueCommand4.Enabled = TrueEnd IfCommand5.Enabled = TrueCommand6.Enabled = TrueAdodc1.Recordset.MovePreviousmove1move1的代碼如下：Text6.Text = Adodc1.Recordset.Fields(學(xué)號(hào))Text7.Text = Adodc1.Recordset.Fields(姓名)Text8.Text = Adodc1.Recordset.Fields(性別)Text9.Text = Adodc1.Recordset.Fields(班級(jí))Text10.Text = Adodc1.Recordset.Fields(年齡)Text11.Text = Adodc1.Recordset.Fields(專業(yè))Text12.Text = Adodc1.Recordset.Fields(政治面貌)Text13.Text = Adodc1.Recordset.Fields(出生日期)Adodc2.RecordSource = select * from xiangxiqingkuang where 姓名= & Trim(Text7.Text) & Adodc2.RefreshIf Adodc2.Recordset.EOF = True ThenMsgBox xiangxiqingkuang表，沒有滿足條件的記錄!Exit SubElseText5.Text = Adodc2.Recordset.Fields(獎(jiǎng)懲)Text14.Text = Adodc2.Recordset.Fields(身份證號(hào))Text15.Text = Adodc2.Recordset.Fields(生源所在地)Text16.Text = Adodc2.Recordset.Fields(家庭所在地)End If另外，界面中還有一個(gè)修改按鈕，是用來對(duì)數(shù)據(jù)庫中的數(shù)據(jù)進(jìn)行更正。如果不點(diǎn)這個(gè)按鈕，就不能對(duì)文本中的數(shù)據(jù)進(jìn)行修改，修改之后還需點(diǎn)保存按鈕，寫到數(shù)據(jù)庫中。否則不能寫到數(shù)據(jù)庫中。修改按鈕代碼如下:If gly = False ThenMsgBox 你不是管理員，此按鈕你不能使用！Exit SubEnd IfIf Command7.Caption = 修改 ThenText5.Locked = FalseText8.Locked = FalseText9.Locked = FalseText10.Locked = FalseText11.Locked = FalseText12.Locked = FalseText13.Locked = FalseText14.Locked = FalseText15.Locked = FalseText16.Locked = FalseCommand7.Caption = 保存ElseText5.Locked = TrueText8.Locked = TrueText9.Locked = TrueText10.Locked = TrueText11.Locked = TrueText12.Locked = TrueText13.Locked = TrueText14.Locked = TrueText15.Locked = TrueText16.Locked = TrueCommand7.Caption = 修改Adodc1.Recordset.Fields(學(xué)號(hào)) = Text6.TextAdodc1.Recordset.Fields(姓名) = Text7.TextAdodc1.Recordset.Fields(性別) = Text8.TextAdodc1.Recordset.Fields(班級(jí)) = Text9.TextAdodc1.Recordset.Fields(年齡) = Text10.TextAdodc1.Recordset.Fields(專業(yè)) = Text11.TextAdodc1.Recordset.Fields(政治面貌) = Text12.TextAdodc1.Recordset.Fields(出生日期) = Text13.TextAdodc2.Recordset.Fields(獎(jiǎng)懲) = Text5.TextAdodc2.Recordset.Fields(身份證號(hào)) = Text14.TextAdodc2.Recordset.Fields(生源所在地) = Text15.TextAdodc2.Recordset.Fields(家庭所在地) = Text16.TextAdodc1.Recordset.UpdateAdodc2.Recordset.UpdateEnd If在瀏覽表中單擊，瀏覽之后，就可以看到個(gè)人情況的所有資料。用上一條、下一條、首條、末條四個(gè)按鈕，就可以完成瀏覽操作。刪除個(gè)人情況的設(shè)計(jì)思想是，首先根據(jù)用戶輸入的查詢條件（姓名可以是姓氏，也可以是名字，也就是說可以進(jìn)行精確的查詢，也可以進(jìn)行模糊的查詢。學(xué)號(hào)也是，可以根據(jù)是等于學(xué)號(hào)，還是一個(gè)范圍來找一個(gè)人，還是一批人的信息。），找到要?jiǎng)h除的人的信息，然后詢問用戶是否真的要?jiǎng)h除。用戶回答是，就把用戶有關(guān)的所有滿足條件的記錄都刪除。用戶回答否之后，不進(jìn)行任何操作。2.1.3 個(gè)人情況刪除界面如圖2-4所示：圖2-4個(gè)人情況刪除刪除按鈕的代碼如下；Dim sql As StringText1 = Trim(Text1)Text2 = Trim(Text2)Text3 = Trim(Text3)Text4 = Trim(Text4)If Text1 = And Text2 = And Text3 = And Text4 = ThenMsgBox 請(qǐng)輸入條件！ Exit SubEnd Ifsql = 1If Trim(Text1) ThenIf Combo1.Text = 精確 Thensql = sql + and 姓名= & Text1 & Elsesql = sql + and 姓名 like % & Text1 & %End IfEnd IfIf Option1.Value ThenIf Text2 Then sql = sql + and 學(xué)號(hào)= & Text2 & ElseIf Text3 Then sql = sql + and 學(xué)號(hào)= & Text3 & If Text4 Then sql = sql + and 學(xué)號(hào) 3 ThenAdodc1.Recordset.Fields(第n周) = Mid(Trim(Combo1.Text)， 2， 2)ElseAdodc1.Recordset.Fields(第n周) = Mid(Trim(Combo1.Text)， 2， 1)End IfAdodc1.Recordset.Fields(節(jié)次) = Trim(Combo2.Text)Adodc1.Recordset.Fields(星期幾) = Trim(Combo3.Text)Adodc1.Recordset.Fields(總節(jié)數(shù)) = Trim(Text2.Text)Adodc1.Recordset.Fields(缺課事由) = Trim(Text3.Text)Adodc1.Recordset.UpdateMsgBox 學(xué)號(hào)： & Trim(Text1) & 添加成功！這個(gè)界面中的瀏覽按鈕用來讓用戶查看添加之后的所有表中的信息。它可以把表單放大，代碼如下：Adodc1.RecordSource = select * from kaoqinbiao Adodc1.RefreshIf Command3.Caption = 瀏覽 ThenForm5.Height = 6030Command3.Caption = 返回ElseForm5.Height = 3165Command3.Caption = 瀏覽End If2.2.2 刪除模塊刪除的設(shè)計(jì)思想和上一個(gè)模塊的設(shè)計(jì)思想一樣，都是先找到符合條件的記錄。然后，再進(jìn)行刪除。不過有一點(diǎn)不同的是，這個(gè)刪除條件之間的關(guān)系，可以是并且的關(guān)系，也可以是或者的關(guān)系。它用兩個(gè)單選按鈕來實(shí)現(xiàn)。界面如圖2-6所示：圖2-6 考勤表刪除核心代碼如下：Dim sql As StringIf Option2.Value Then sql = 1If Trim(Text1) Then sql = sql + and 學(xué)號(hào)= & Trim(Text1) & If Trim(Text2) Then sql = sql + and 總節(jié)次= & Trim(Text2) & If Trim(Text3) Then sql = sql + and 缺課事由= & Trim(Text3) & If Combo1.Text 忽略 ThenIf Len(Trim(Combo1.Text) 3 Then sql = sql + and 第n周= & Mid(Trim(Combo1.Text)， 2， 2) & Elsesql = sql + and 第n周= & Mid(Trim(Combo1.Text)， 2， 1) & End IfEnd IfIf Combo2.Text 忽略 Then sql = sql + and 節(jié)次= & Trim(Combo2.Text) & If Combo3.Text 忽略 Then sql = sql + and 總節(jié)數(shù)= & Trim(Combo3.Text)Elsesql = 0If Trim(Text1) Then sql = sql + or 學(xué)號(hào)= & Trim(Text1) & If Trim(Text2) Then sql = sql + or 總節(jié)次= & Trim(Text2) & If Trim(Text3) Then sql = sql + or 缺課事由= & Trim(Text3) & If Combo1.Text 忽略 ThenIf Len(Trim(Combo1.Text) 3 Then sql = sql + or 第n周= & Mid(Trim(Combo1.Text)， 2， 2) & Elsesql = sql + or 第n周= & Mid(Trim(Combo1.Text)， 2， 1) & End IfEnd IfIf Combo2.Text 忽略 Then sql = sql + or 節(jié)次= & Trim(Combo2.Text) & If Combo3.Text 忽略 Then sql = sql + or 總節(jié)數(shù)= & Trim(Combo3.Text)End IfAdodc1.RecordSource = select * from kaoqinbiao where & sqlAdodc1.RefreshIf Adodc1.Recordset.EOF ThenMsgBox 沒有滿足條件的記錄！請(qǐng)重輸入。Exit SubElseForm7.Height = 5040End Ifn = MsgBox(顯示的為滿足條件的記錄，是否真的要全部刪除！， 36， 刪除嗎？)If n = vbYes ThenDo While Not Adodc1.Recordset.EOFAdodc1.Recordset.DeleteAdodc1.Recordset.UpdateAdodc1.Recordset.MoveNextIf Adodc1.Recordset.EOF Then Exit DoLoopMsgBox 成功刪除！End If2.2.3 考勤表的查詢界面如圖2-7所示：圖2-7 考勤表查詢考勤表的查詢和個(gè)人情況表的查詢?cè)O(shè)計(jì)思想是一樣的。有一點(diǎn)不同的是，它也可以進(jìn)行模糊的查詢與精確的查詢?？梢栽诒韱谓缑娴臈l件的關(guān)系框中進(jìn)行選擇。條件之間的關(guān)系是同時(shí)，還是或者的關(guān)系。同樣，再輸入查詢條件的時(shí)候，在文本框中，要不輸入數(shù)據(jù)的規(guī)范格式，要不然就不輸入數(shù)據(jù)。不輸入數(shù)據(jù)的話，就不按此項(xiàng)查詢，只有輸入了，才按輸入的數(shù)據(jù)進(jìn)行查找。查詢的代碼如下：Dim sql As StringIf Option2.Value Then sql = 1If Trim(Text1) Then sql = sql + and 學(xué)號(hào)= & Trim(Text1) & If Trim(Text2) Then sql = sql + and 總節(jié)次= & Trim(Text2)If Trim(Text3) Then sql = sql + and 缺課事由= & Trim(Text3) & If Combo1.Text 忽略 Then sql = sql + and 第n周= & Trim(Mid(Combo1.Text， 2， 2) & If Combo2.Text 忽略 Then sql = sql + and 節(jié)次= & Trim(Combo2.Text) & If Combo3.Text 忽略 Then sql = sql + and 星期幾= & Trim(Combo3.Text) & Elsesql = 0If Trim(Text1) Then sql = sql + or 學(xué)號(hào)= & Trim(Text1) & If Trim(Text2) Then sql = sql + or 總節(jié)次= & Trim(Text2)If Trim(Text3) Then sql = sql + or 缺課事由= & Trim(Text3) & If Combo1.Text 忽略 Then sql = sql + or 第n周= & Trim(Mid(Combo1.Text， 2， 2) & If Combo2.Text 忽略 Then sql = sql + or 節(jié)次= & Trim(Combo2.Text) & If Combo3.Text 忽略 Then sql = sql + or 星期幾= & Trim(Combo3.Text) & End IfAdodc1.RecordSource = select * from kaoqinbiao where & sqlAdodc1.RefreshIf Adodc1.Recordset.EOF ThenMsgBox 沒有滿足條件的記錄！請(qǐng)重輸入。Exit SubElseCommand3.Enabled = TrueEnd If進(jìn)行查詢之后，才可以進(jìn)行“修改”工作。（必須單擊修改按鈕之后，才可以進(jìn)行修改。）在單擊了修改按鈕之后，還要看他是不是管理員，是管理員才能繼續(xù)使用，不是的話，出現(xiàn)提示，你不是管理員，不能使用此項(xiàng)功能！在單擊了修改按鈕的同時(shí)，它的名字就變?yōu)楸４?。修改完之后，再次單擊，就可以把?shù)據(jù)存入數(shù)據(jù)庫，并且按鈕的名字變?yōu)樾薷摹４a如下：If gly = False ThenMsgBox 你不是管理員，不能使用此項(xiàng)功能！EndEnd IfIf Command3.Caption = 修改 ThenDataGrid1.AllowUpdate = TrueCommand1.Enabled = FalseCommand2.Enabled = FalseCommand3.Caption = 保存ElseAdodc1.Recordset.UpdateDataGrid1.AllowUpdate = FalseCommand1.Enabled = TrueCommand2.Enabled = TrueCommand3.Caption = 修改End If2.3 獎(jiǎng)學(xué)金模塊2.3.1 查詢模塊 界面如圖2-8所示：圖2-8 獎(jiǎng)學(xué)金查詢獎(jiǎng)學(xué)金查詢模塊的設(shè)計(jì)思想和考勤查詢模塊的設(shè)計(jì)思想是一樣的。這里就不加詳細(xì)說明了，只把它的代碼給出。如下所示：Dim sql As StringIf Option2.Value Then sql = 1If Trim(Text1) Then sql = sql + and 學(xué)號(hào)= & Trim(Text1)