畢業(yè)設(shè)計---基于vb技術(shù)的學(xué)生管理系統(tǒng)

上傳人：奔*** IP屬地：河北更新時間：2024-03-02 格式：doc 頁數(shù)：52 大?。?.23MB 人氣指數(shù)：12 舉報 版權(quán)申訴

畢業(yè)設(shè)計---基于vb技術(shù)的學(xué)生管理系統(tǒng)_第1頁

已閱讀1頁，還剩51頁未讀，繼續(xù)免費閱讀

版權(quán)說明：本文檔由用戶提供并上傳，收益歸屬內(nèi)容提供方，若內(nèi)容存在侵權(quán)，請進行舉報或認(rèn)領(lǐng)

文檔簡介

1、　　摘要　　學(xué)生管理系統(tǒng)對于學(xué)校的決策者和管理者來說都至關(guān)重要，是一個教育單位不可缺少的管理工具，能夠為用戶提供充足的信息和快捷的查詢手段。本學(xué)生管理系統(tǒng)是基于VB技術(shù)的系統(tǒng)。包括個人情況模塊、考勤模塊、獎學(xué)金模塊、等級考試模塊、個人成績模塊、選修成績模塊、個人交費情況模塊、用于控制操作級別的用戶管理模塊。在這些模塊中，除了基本的刪

2、除、添加、查詢外，有的模塊還加了更加詳細(xì)的查詢內(nèi)容。　　關(guān)鍵詞：學(xué)生管理系統(tǒng)；模塊；查詢　　Abstract　　The student management system is vital for decision-makers and managers of schools

3、. 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

4、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 manageme

5、　Keywords：The Sudent Mnagement System; Module; Query　　目錄　　第一章界面設(shè)計.....................................................1　　1.1 菜單欄的設(shè)計....

6、................................................2　　1.2 工具欄的設(shè)計....................................................4　　1.3 狀態(tài)欄的設(shè)計....................................................

7、5　　第二章模塊設(shè)計................................................7　　2.1 個人情況模塊....................................................7　　2.2 考勤模塊 .....................

8、.................................18　　2.3 獎學(xué)金模塊....................................................25　　2.4 等級考試模塊個人成績模塊選修成績模塊....................29　　2.5 個

9、人交費情況...................................................37　　2.6 用戶管理模塊...........................................39　　2.7 登陸模塊.....................................................

10、..43　　2.8 ADO控件........................................................45　　結(jié)束語......................................................46　　致謝..................

11、.................................................47　　參考文獻...............................................................48　　界面設(shè)計　　學(xué)生管理系統(tǒng)是一

12、個教育單位不可缺少的部分，它的內(nèi)容對于學(xué)校的決策者和管理者來說都至關(guān)重要，所以學(xué)生檔案管理系統(tǒng)應(yīng)該能夠為用戶提供充足的信息和快捷的查詢手段。一直以來人們使用傳統(tǒng)人工的方式管理文件檔案，這種管理方式存在著許多缺點：效率低、保密性差，另外時間一長，將產(chǎn)生大量的文件和數(shù)據(jù)，這對于查找、更新和維護都帶來了不少的困難。　　隨著科學(xué)技術(shù)的不斷提高，計算機科學(xué)日漸成熟，其強大的功能已為人們深刻認(rèn)識，它已進入人

13、類社會的各個領(lǐng)域并發(fā)揮著越來越重要的作用。使用計算機對學(xué)生檔案信息進行管理，具有手工管理無法比擬的優(yōu)點。如：檢索迅速、查找方便、可靠性高、存儲量大、保密性好、壽命長、成本低等，這些優(yōu)點能夠極大地提高學(xué)生檔案管理的效率。　　本學(xué)生管理系統(tǒng)包括個人情況模塊、考勤模塊、獎學(xué)金模塊、等級考試模塊、個人成績模塊、選修成績模塊、個人交費情況模塊、用于控制操作級別的用戶管理模塊。在這些模塊中，除了基本的刪除、

14、添加、查詢外，有的模塊還加了更加詳細(xì)的查詢內(nèi)容。　　菜單欄的設(shè)計　　在窗體的標(biāo)題欄下顯示的是菜單欄，它包含一個或多個菜單標(biāo)題。在程序運行時，當(dāng)用戶選擇某個菜單標(biāo)題時會下拉出一個菜單，菜單中的菜單項可以是命令、選項、分隔條或子菜單標(biāo)題。每個菜單項都是一個控件，與其他控件一樣也有自己的屬性和事件。菜單項的每個屬性都能設(shè)置

15、和查看，如name(名稱)和caption(標(biāo)題)屬性等。每個菜單項只能響應(yīng)一個事件，即Click事件。具體步驟如下：　?。?）在設(shè)計狀態(tài)，選擇工具“菜單下的菜單編輯器（Ctrl+E）”命令，會出現(xiàn)菜單編輯器窗口。　　（2）在菜單設(shè)計窗口中，按下表對每一個菜單項輸入標(biāo)題、控制名稱和相應(yīng)的快捷鍵。如表1-1菜單項的設(shè)計。<p&

16、gt;　　表1-1 菜單項的設(shè)置　　當(dāng)完成所有輸入工作后，選擇“確定”命令按鈕，就完成了整個菜單的建立工作，然后給各個菜單的Click事件中寫入代碼。　　工具欄的設(shè)計　　工具欄是為用戶提供了應(yīng)用程序中最常用的菜單命令的快速訪問方法，進一步增強應(yīng)用程序的菜單界面，工具欄制作的方

17、法是將ToolBar、ImageList組合使用。創(chuàng)建工具欄的步驟是：　?。?）在ImageList控件中添加所需的圖像。　　ImageList控件不單獨使用，專門為其他控件提供圖像庫，是一個圖像容器控件。在窗體上增加ImageList控件后，選中該控件，單擊右鍵，從彈出的快捷菜單中選擇“屬性”，然后在“屬性頁”對話框選擇“圖像”標(biāo)簽，在圖像框中插入圖像

18、，每個圖像的屬性見表1-2。　　表1-2 控件屬性的設(shè)置　　（2）在ToolBar控件中創(chuàng)建Button對象。　　ToolBar控件中的每個按鈕的圖像都來自ImageList對象中插入的圖像。　?、贋楣ぞ邫谶B接圖像

19、;　　在窗體上增加ToolBar控件后，打開“屬性頁”對話框，選擇“通用”標(biāo)簽，對其各項進行設(shè)置，一般取默認(rèn)值。　　②為工具欄增加按鈕　　在“屬性頁”對話框中選擇“按鈕”標(biāo)簽，單擊“插入按鈕”可以在工具欄增加按鈕，然后對各屬性進行設(shè)置。　　（3）在Ｂut

20、tonClick事件中用Select Case語句對各按鈕進行相應(yīng)的編程。　　狀態(tài)欄的設(shè)計　　狀態(tài)欄用來顯示系統(tǒng)信息和對用戶的提示。創(chuàng)建狀態(tài)欄的步驟是：　?。?）建立狀態(tài)欄　　設(shè)計時，在窗體上增加

21、Statusbar控件后，打開其“屬性面”對話框，選擇“窗格”標(biāo)簽，設(shè)置５個窗格，各窗格屬性設(shè)置如表1-3。　　表1-3 Statusbar控件屬性設(shè)置　?。?）運行時改變狀態(tài)欄　　運行時，能重新設(shè)置窗格Panel對象以反映不同的功能，除第一個窗格外其它的窗格都通過編&l

22、t;b>　　程來實現(xiàn)。　　模塊設(shè)計　　本學(xué)生管理系統(tǒng)結(jié)構(gòu)圖，如圖2-1所示：　　圖2-1 學(xué)生管理系統(tǒng)結(jié)構(gòu)圖　　2.1 個人情況模塊　　個人情況模塊有三個小的模塊組成

23、：修改與添加，刪除，查詢。　　2.1.1 個人基本情況添加　　界面如圖2-2所示：　　圖2-2 個人信息添加　　個人基本情況添加模塊的設(shè)計思想是首先看輸入的內(nèi)容，即個人信息是不是空的。如果是空的，則不允許添加；如果不是空的，那么在個人情況表與個人詳細(xì)情況表中加入界面上所輸

24、入的信息。　　它的添加功能是用下面的代碼實現(xiàn)的:　　If Trim(Text1) = "" Or Trim(Text2) = "" Or Trim(Text3) = "" Or Trim(Text4) = "" Or Trim(Text5) = "" Or

25、 Trim(Text6) = "" Or Trim(Text7) = "" Or Trim(Text9) = "" Or Trim(Text10) = "" Or Trim(Text11) = "" Then　　MsgBox "所有信息都不能為空！"&l

26、t;p>　　Exit Sub　　End If　　Adodc1.RecordSource = "select * from jibenqingkuang"　　Adodc1.Refresh&l

27、t;p>　　Adodc1.Recordset.AddNew　　Adodc1.Recordset.Fields("學(xué)號") = Trim(Text1)　　Adodc1.Recordset.Fields("姓名") = Trim(Text2)　　Adodc1.Record

28、set.Fields("性別") = Trim(Text3)　　Adodc1.Recordset.Fields("班級") = Trim(Text4)　　Adodc1.Recordset.Fields("專業(yè)") = Trim(Text5)　　Adodc

29、1.Recordset.Fields("年齡") = Val(Trim(Text6))　　Adodc1.Recordset.Fields("出生日期") = Trim(Text7)　　Adodc1.Recordset.Fields("政治面貌") = Trim(Combo1.Text)</

30、p>　　Adodc1.Recordset.Update　　Adodc1.Recordset.Close　　Adodc1.RecordSource = "select * from xiangxiqingkuang"　　Adodc1.Refresh

31、　　Adodc1.Recordset.AddNew　　Adodc1.Recordset.Fields("姓名") = Trim(Text2)　　Adodc1.Recordset.Fields("身份證號") = Trim(Text9)　　Adodc1.

32、Recordset.Fields("生源所在地") = Trim(Text10)　　Adodc1.Recordset.Fields("家庭所在地") = Trim(Text11)　　Adodc1.Recordset.Update　　MsgBox "個人基本情況和詳

33、細(xì)情況的記錄添加成功！"　　2.1.2 個人基本情況的查詢　　界面如圖2-3所示：　　圖2-3 基本情況查詢　　設(shè)計思想是先在條件中輸入要查找的條件，然后按所輸入的條件用SQL語言的SELECT語句進行查詢。在查詢之前，要看看輸入的條件是不是為空，如果為空，出現(xiàn)

34、提示，“沒有輸入條件，請輸入!”然后，在根據(jù)姓名條件的精確或是模糊進行查詢。查詢到的個人信息，放到具體的文本框中。它的四個按鈕用來控制得到的記錄集的上下移動。中間自己定義了一個過程move1，用來更新文本框的數(shù)據(jù)。部分代碼如下：　　查詢代碼：　　Dim sql As String<p&g

35、t;　　sql = "1"　　If Trim(Text1) = "" And Trim(Text2) = "" And Trim(Text3) = "" And Trim(Text4) = "" And Trim(Combo1.Text) = "忽略

36、" And Trim(Combo2.Text) = "忽略" Then　　MsgBox "沒有輸入條件，請輸入!"　　Exit Sub　　End If<p&g

37、t;　　If Trim(Text1) <> "" Then　　If Option1.Value Then　　sql = sql + " and 姓名='" & Text1 & "'"　　Els

38、e　　sql = sql + " and 姓名 like '%" & Text1 & "%'"　　End If　　End If

39、;　　If Trim(Text2) <> "" Then sql = sql + " and 年齡" & Trim(Combo3.Text) & Text2 & ""　　If Trim(Text3) <> "" Then sql = sql + &

40、quot; and 學(xué)號" & Trim(Combo4.Text) & "'" & Text3 & "'"　　If Trim(Text4) <> "" Then sql = sql + " and 班級='" & Text4 &am

41、p; "'"　　If Trim(Combo1.Text) <> "忽略" Then sql = sql + " and 專業(yè)='" & Trim(Combo1.Text) & "'"　　If Trim(Combo2.Text

42、) <> "忽略" Then sql = sql + " and 性別='" & Trim(Combo2.Text) & "'"　　Adodc1.RecordSource = "select * from jibenqingkuang where " & sql&l

43、t;/p>　　Adodc1.Refresh　　If Adodc1.Recordset.EOF Then　　MsgBox "jibenqingkuang表，沒有滿足條件的記錄!"　　Command3.Enabled = False<p&g

44、t;　　Command4.Enabled = False　　Command5.Enabled = False　　Command6.Enabled = False　　Else　　Command3.Enabled = False</

45、p>　　Command4.Enabled = False　　Command5.Enabled = True　　Command6.Enabled = True　　move1　　End If&

46、lt;/b>　　If Adodc1.Recordset.BOF Then　　Command3.Enabled = False　　Command4.Enabled = False　　Else

47、;　　Command3.Enabled = True　　Command4.Enabled = True　　End If　　Command5.Enabled = True　　Command6.Enabled = True</p&g

48、t;　　Adodc1.Recordset.MovePrevious　　move1　　move1的代碼如下：　　Text6.Text = Adodc1.Recordset.Fields("學(xué)號")

49、;　　Text7.Text = Adodc1.Recordset.Fields("姓名")　　Text8.Text = Adodc1.Recordset.Fields("性別")　　Text9.Text = Adodc1.Recordset.Fields("班級")<

50、;p>　　Text10.Text = Adodc1.Recordset.Fields("年齡")　　Text11.Text = Adodc1.Recordset.Fields("專業(yè)")　　Text12.Text = Adodc1.Recordset.Fields("政治面貌")</

51、p>　　Text13.Text = Adodc1.Recordset.Fields("出生日期")　　Adodc2.RecordSource = "select * from xiangxiqingkuang where 姓名='" & Trim(Text7.Text) & "'&quo

52、t;　　Adodc2.Refresh　　If Adodc2.Recordset.EOF = True Then　　MsgBox "xiangxiqingkuang表，沒有滿足條件的記錄!"　　Exit Sub<

53、;/p>　　Else　　Text5.Text = Adodc2.Recordset.Fields("獎懲")　　Text14.Text = Adodc2.Recordset.Fields("身份證號")　　T

54、ext15.Text = Adodc2.Recordset.Fields("生源所在地")　　Text16.Text = Adodc2.Recordset.Fields("家庭所在地")　　End If　　另外，界面中還有一個修改按鈕，

55、是用來對數(shù)據(jù)庫中的數(shù)據(jù)進行更正。如果不點這個按鈕，就不能對文本中的數(shù)據(jù)進行修改，修改之后還需點保存按鈕，寫到數(shù)據(jù)庫中。否則不能寫到數(shù)據(jù)庫中。　　修改按鈕代碼如下:　　If gly = False Then　　MsgBox "你不是管理員，此按鈕你不能使用！"

56、;　　Exit Sub　　End If　　If Command7.Caption = "修改" Then　　Text5.Locked = False&l

57、t;p>　　Text8.Locked = False　　Text9.Locked = False　　Text10.Locked = False　　Text11.Locked = False　　Text12.Locked = False<

58、p>　　Text13.Locked = False　　Text14.Locked = False　　Text15.Locked = False　　Text16.Locked = False　　Command7.Caption = "保存"<

59、/p>　　Else　　Text5.Locked = True　　Text8.Locked = True　　Text9.Locked = True　　Text10.Locked = True

60、;　　Text11.Locked = True　　Text12.Locked = True　　Text13.Locked = True　　Text14.Locked = True　　Text15.Locked = True&l

61、t;p>　　Text16.Locked = True　　Command7.Caption = "修改"　　Adodc1.Recordset.Fields("學(xué)號") = Text6.Text　　Adodc1.Recordset.Fields("姓名"

62、;) = Text7.Text　　Adodc1.Recordset.Fields("性別") = Text8.Text　　Adodc1.Recordset.Fields("班級") = Text9.Text　　Adodc1.Recordset.Fields("年齡

63、") = Text10.Text　　Adodc1.Recordset.Fields("專業(yè)") = Text11.Text　　Adodc1.Recordset.Fields("政治面貌") = Text12.Text　　Adodc1.Recordset.Field

64、s("出生日期") = Text13.Text　　Adodc2.Recordset.Fields("獎懲") = Text5.Text　　Adodc2.Recordset.Fields("身份證號") = Text14.Text　　Adodc2.Reco

65、rdset.Fields("生源所在地") = Text15.Text　　Adodc2.Recordset.Fields("家庭所在地") = Text16.Text　　Adodc1.Recordset.Update　　Adodc2.Recordset.Update<

66、/p>　　End If　　在瀏覽表中單擊，瀏覽之后，就可以看到個人情況的所有資料。用上一條、下一條、首條、末條四個按鈕，就可以完成瀏覽操作。　　刪除個人情況的設(shè)計思想是，首先根據(jù)用戶輸入的查詢條件（姓名可以是姓氏，也可以是名字，也就是說可以進行精確的查詢，也可以進行模糊的查詢。學(xué)號也是，可

67、以根據(jù)是等于學(xué)號，還是一個范圍來找一個人，還是一批人的信息。），找到要刪除的人的信息，然后詢問用戶是否真的要刪除。用戶回答是，就把用戶有關(guān)的所有滿足條件的記錄都刪除。用戶回答否之后，不進行任何操作。　　2.1.3 個人情況刪除　　界面如圖2-4所示：　　圖2-4個人情況刪除

68、;　　刪除按鈕的代碼如下；　　Dim sql As String　　Text1 = Trim(Text1)　　Text2 = Trim(Text2)　　Text3 = Trim(Text3)　　Text4 = Trim(Text4

69、)　　If Text1 = "" And Text2 = "" And Text3 = "" And Text4 = "" Then　　MsgBox "請輸入條件！ "　　Exit Sub<

70、/b>　　End If　　sql = "1"　　If Trim(Text1) <> "" Then　　If Combo1.Text = &

71、quot;精確" Then　　sql = sql + " and 姓名='" & Text1 & "'"　　Else　　sql = sql + " and 姓名 like '

72、%" & Text1 & "%'"　　End If　　End If　　If Option1.Value Then　　If Text2 <

73、> "" Then sql = sql + " and 學(xué)號='" & Text2 & "'"　　Else　　If Text3 <> "" Then sql = sql + "

74、and 學(xué)號>='" & Text3 & "'"　　If Text4 <> "" Then sql = sql + " and 學(xué)號<='" & Text4 & "'"<b

75、>　　End If　　Adodc1.RecordSource = "select * from jibenqingkuang where " & sql　　Adodc1.Refresh　　If Adodc1.Recordset.EOF Then</p&

76、gt;　　MsgBox "沒有找到要找的信息！"　　Exit Sub　　End If　　n = MsgBox("如果要刪除此人的基本情況，我們將把與此人有關(guān)的所有信息全部刪除！"

77、;， 36， "確定嗎？")　　If n = vbYes Then　　Do While Not Adodc1.Recordset.EOF　　xm = Adodc1.Recordset.Fields("姓名")　　xh = Adodc

78、1.Recordset.Fields("學(xué)號")　　Adodc1.Recordset.Delete　　Adodc1.Recordset.Update　　Adodc2.RecordSource = "select * from xiangxiqingkuang where 姓名=&#

79、39;" & xm & "'"　　Adodc2.Refresh　　Do While Not Adodc2.Recordset.EOF　　Adodc2.Recordset.Delete　　Adodc2.Recordset

80、.Update　　Adodc2.Recordset.MoveNext　　If Adodc2.Recordset.EOF Then Exit Do　　Loop　　Adodc2.RecordSource = "select *

81、from jianxuejin where 學(xué)號='" & xh & "'"　　Adodc2.Refresh　　Do While Not Adodc2.Recordset.EOF　　Adodc2.Recordset.Delete

82、　　Adodc2.Recordset.Update　　Adodc2.Recordset.MoveNext　　If Adodc2.Recordset.EOF Then Exit Do　　Loop　　Adodc2.Re

83、cordSource = "select * from denjikaoshi where 學(xué)號='" & xh & "'"　　Adodc2.Refresh　　Do While Not Adodc2.Recordset.EOF　　Adodc

84、2.Recordset.Delete　　Adodc2.Recordset.Update　　Adodc2.Recordset.MoveNext　　If Adodc2.Recordset.EOF Then Exit Do　　Loop<

85、;/p>　　Adodc2.RecordSource = "select * from kaoqinbiao where 學(xué)號='" & xh & "'"　　Adodc2.Refresh　　Do While Not Adodc2.Recordset.EOF

86、　　Adodc2.Recordset.Delete　　Adodc2.Recordset.Update　　Adodc2.Recordset.MoveNext　　If Adodc2.Recordset.EOF Then Exit Do

87、　　Loop　　Adodc2.RecordSource = "select * from xuanxiuchengji where 學(xué)號='" & xh & "'"　　Adodc2.Refresh　　D

88、o While Not Adodc2.Recordset.EOF　　Adodc2.Recordset.Delete　　Adodc2.Recordset.Update　　Adodc2.Recordset.MoveNext　　If Adodc2.Recordset.EOF T

89、hen Exit Do　　Loop　　Adodc2.RecordSource = "select * from xuefeiqingkuang where 學(xué)號='" & xh & "'"　　Adodc

90、2.Refresh　　Do While Not Adodc2.Recordset.EOF　　Adodc2.Recordset.Delete　　Adodc2.Recordset.Update　　Adodc2.Recordset.MoveNext<

91、;p>　　If Adodc2.Recordset.EOF Then Exit Do　　Loop　　Adodc2.RecordSource = "select * from xuexichengji where 學(xué)號='" & xh & "'&quo

92、t;　　Adodc2.Refresh　　Do While Not Adodc2.Recordset.EOF　　Adodc2.Recordset.Delete　　Adodc2.Recordset.Update　　Adodc2.Rec

93、ordset.MoveNext　　If Adodc2.Recordset.EOF Then Exit Do　　Loop　　Adodc1.Recordset.MoveNext　　If Adodc1.Recordset.EOF Then

94、Exit Do　　Loop　　End If　　2.2 考勤模塊　　考勤模塊有三個小的模塊組成分別為：添加、刪除、查詢與修改。<p

95、>　　2.2.1考勤表的添加　　界面如圖2-5所示：　　圖2-5 考勤表添加　　考勤表添加的設(shè)計思想是：首先要看看它的數(shù)據(jù)是不是完整，如果沒有輸入條件就給出提示。第二步，看看添加的這個人，他是不是現(xiàn)在的在校學(xué)生；如果是，才能添加；如果不是，就提示基本情況表中不存在此人，不能添加，并且退出此程序。第三步，看是

96、不是已經(jīng)添加過了，如果添加過了的話，數(shù)據(jù)將會出現(xiàn)冗余。如果沒有添加過，就可以進行添加了。添加成功之后，會出現(xiàn)一個提示：“‘學(xué)號’添加成功！”[4]。　　考勤表的添加按鈕的代碼如下：　　If Trim(Text1) = "" Or Trim(Text2) = "" Or Trim(Text3) = "&qu

97、ot; Then MsgBox "請輸入內(nèi)容！": Exit Sub　　Adodc1.RecordSource = "select * from jibenqingkuang where 學(xué)號='" & Trim(Text1) & "'"　　Adodc1.Refr

98、esh　　If Adodc1.Recordset.EOF Then MsgBox "不能添加，在基本情況表中沒有此人的基本信息！": Exit Sub　　Adodc1.RecordSource = "select * from kaoqinbiao where 學(xué)號='" & Trim(Text1)

99、 & "' and 第n周='" & Trim(Combo1.Text) & "' and 星期幾='" & Trim(Combo3.Text) & "'"　　Adodc1.Refresh　　If Not Adodc

100、1.Recordset.EOF Then　　MsgBox "考勤表中存在此學(xué)生此日的考勤情況，請重輸入或在查詢中修改！"　　Exit Sub　　End If　　Adodc1.R

101、ecordSource = "select * from kaoqinbiao "　　Adodc1.Refresh　　Adodc1.Recordset.AddNew　　Adodc1.Recordset.Fields("學(xué)號") = Trim(Text1)

102、　　If Len(Trim(Combo1.Text)) > 3 Then　　Adodc1.Recordset.Fields("第n周") = Mid(Trim(Combo1.Text)， 2， 2)　　Else　　Adodc1.

103、Recordset.Fields("第n周") = Mid(Trim(Combo1.Text)， 2， 1)　　End If　　Adodc1.Recordset.Fields("節(jié)次") = Trim(Combo2.Text)　　Ado

104、dc1.Recordset.Fields("星期幾") = Trim(Combo3.Text)　　Adodc1.Recordset.Fields("總節(jié)數(shù)") = Trim(Text2.Text)　　Adodc1.Recordset.Fields("缺課事由") = Trim(Text3.Tex

105、t)　　Adodc1.Recordset.Update　　MsgBox "學(xué)號：" & Trim(Text1) & " 添加成功！"　　這個界面中的瀏覽按鈕用來讓用戶查看添加之后的所有表中的信息。它可以把表單放大，代碼如下：<p

106、>　　Adodc1.RecordSource = "select * from kaoqinbiao "　　Adodc1.Refresh　　If Command3.Caption = "瀏覽" Then　　Form5.Height = 6030

107、　　Command3.Caption = "返回"　　Else　　Form5.Height = 3165　　Command3.Caption = "瀏覽"

108、End If　　2.2.2 刪除模塊　　刪除的設(shè)計思想和上一個模塊的設(shè)計思想一樣，都是先找到符合條件的記錄。然后，再進行刪除。不過有一點不同的是，這個刪除條件之間的關(guān)系，可以是并且的關(guān)系，也可以是或者的關(guān)系。它用兩個單選按鈕來實現(xiàn)。　　界面如圖2-6所示：<p&g

109、t;　　圖2-6 考勤表刪除　　核心代碼如下：　　Dim sql As String　　If Option2.Value Then sql = " 1"　　If Trim(Text1) <> "

110、;" Then sql = sql + " and 學(xué)號='" & Trim(Text1) & "'"　　If Trim(Text2) <> "" Then sql = sql + " and 總節(jié)次='" & Trim(Text2) &

111、"'"　　If Trim(Text3) <> "" Then sql = sql + " and 缺課事由='" & Trim(Text3) & "'"　　If Combo1.Text <> "忽略&q

112、uot; Then　　If Len(Trim(Combo1.Text)) > 3 Then sql = sql + " and 第n周='" & Mid(Trim(Combo1.Text)， 2， 2) & "'"　　Else</p&

113、gt;　　sql = sql + " and 第n周='" & Mid(Trim(Combo1.Text)， 2， 1) & "'"　　End If　　End If

114、　　If Combo2.Text <> "忽略" Then sql = sql + " and 節(jié)次='" & Trim(Combo2.Text) & "'"　　If Combo3.Text <> "忽略" Then sql = sql +

115、" and 總節(jié)數(shù)=" & Trim(Combo3.Text)　　Else　　sql = " 0"　　If Trim(Text1) <> "" Then sql = sql + " or

116、學(xué)號='" & Trim(Text1) & "'"　　If Trim(Text2) <> "" Then sql = sql + " or 總節(jié)次='" & Trim(Text2) & "'"<p&

117、gt;　　If Trim(Text3) <> "" Then sql = sql + " or 缺課事由='" & Trim(Text3) & "'"　　If Combo1.Text <> "忽略" Then　　If L

118、en(Trim(Combo1.Text)) > 3 Then sql = sql + " or 第n周='" & Mid(Trim(Combo1.Text)， 2， 2) & "'"　　Else　　sql = sql + " or

119、第n周='" & Mid(Trim(Combo1.Text)， 2， 1) & "'"　　End If　　End If　　If Combo2.Text <> &q

120、uot;忽略" Then sql = sql + " or 節(jié)次='" & Trim(Combo2.Text) & "'"　　If Combo3.Text <> "忽略" Then sql = sql + " or 總節(jié)數(shù)=" & Trim(Combo3.

121、Text)　　End If　　Adodc1.RecordSource = "select * from kaoqinbiao where " & sql　　Adodc1.Refresh　　If Adodc1

122、.Recordset.EOF Then　　MsgBox "沒有滿足條件的記錄！請重輸入。"　　Exit Sub　　Else　　Form7.Height = 5040</p

123、>　　End If　　n = MsgBox("顯示的為滿足條件的記錄，是否真的要全部刪除！"， 36， "刪除嗎？")　　If n = vbYes Then　　Do While Not Adodc1.Reco

124、rdset.EOF　　Adodc1.Recordset.Delete　　Adodc1.Recordset.Update　　Adodc1.Recordset.MoveNext　　If Adodc1.Recordset.EOF Then Exit Do

125、　　Loop　　MsgBox "成功刪除！"　　End If　　2.2.3 考勤表的查詢　　界面如圖2-7所示：

126、圖2-7 考勤表查詢　　考勤表的查詢和個人情況表的查詢設(shè)計思想是一樣的。有一點不同的是，它也可以進行模糊的查詢與精確的查詢?？梢栽诒韱谓缑娴臈l件的關(guān)系框中進行選擇。條件之間的關(guān)系是同時，還是或者的關(guān)系。同樣，再輸入查詢條件的時候，在文本框中，要不輸入數(shù)據(jù)的規(guī)范格式，要不然就不輸入數(shù)據(jù)。不輸入數(shù)據(jù)的話，就不按此項查詢，只有輸入了，才按輸入的數(shù)據(jù)進行查找。&

127、lt;b>　　查詢的代碼如下：　　Dim sql As String　　If Option2.Value Then sql = " 1"　　If Trim(Text1) <> "" Then sql = sql + " and

128、學(xué)號='" & Trim(Text1) & "'"　　If Trim(Text2) <> "" Then sql = sql + " and 總節(jié)次=" & Trim(Text2)　　If Trim(Text3) <>

129、"" Then sql = sql + " and 缺課事由='" & Trim(Text3) & "'"　　If Combo1.Text <> "忽略" Then sql = sql + " and 第n周='" & Trim(Mid(

130、Combo1.Text， 2， 2)) & "'"　　If Combo2.Text <> "忽略" Then sql = sql + " and 節(jié)次='" & Trim(Combo2.Text) & "'"　　If

131、 Combo3.Text <> "忽略" Then sql = sql + " and 星期幾='" & Trim(Combo3.Text) & "'"　　Else　　sql = " 0"<

132、;/p>　　If Trim(Text1) <> "" Then sql = sql + " or 學(xué)號='" & Trim(Text1) & "'"　　If Trim(Text2) <> "" Then sql = sql + &q

133、uot; or 總節(jié)次=" & Trim(Text2)　　If Trim(Text3) <> "" Then sql = sql + " or 缺課事由='" & Trim(Text3) & "'"　　If Combo1.Text &

134、lt;> "忽略" Then sql = sql + " or 第n周='" & Trim(Mid(Combo1.Text， 2， 2)) & "'"　　If Combo2.Text <> "忽略" Then sql = sql + " or 節(jié)次='

135、;" & Trim(Combo2.Text) & "'"　　If Combo3.Text <> "忽略" Then sql = sql + " or 星期幾='" & Trim(Combo3.Text) & "'"&

眾賞文庫> 全部分類> 畢業(yè)設(shè)計

溫馨提示

1. 本站所有資源如無特殊說明，都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
2. 本站的文檔不包含任何第三方提供的附件圖紙等，如果需要附件，請聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
3. 本站RAR壓縮包中若帶圖紙，網(wǎng)頁內(nèi)容里面會有圖紙預(yù)覽，若沒有圖紙預(yù)覽就沒有圖紙。
4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
5. 眾賞文庫僅提供信息存儲空間，僅對用戶上傳內(nèi)容的表現(xiàn)方式做保護處理，對用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯，并不能對任何下載內(nèi)容負(fù)責(zé)。
6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容，請與我們聯(lián)系，我們立即糾正。
7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時也不承擔(dān)用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。

畢業(yè)設(shè)計---基于vb技術(shù)的學(xué)生管理系統(tǒng)

文檔簡介

溫馨提示

最新文檔

評論

畢業(yè)設(shè)計---基于vb技術(shù)的學(xué)生管理系統(tǒng)

文檔簡介

溫馨提示

最新文檔

評論

免費下載