vb課程設計--學生成績管理系統(tǒng)

上傳人：奔*** IP屬地：河北更新時間：2024-03-31 格式：docx 頁數(shù)：27 大?。?25.20KB 人氣指數(shù)：12 舉報 版權申訴

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

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

文檔簡介

1、　　學生成績管理系統(tǒng)　　一﹑功能描述　　成績管理系統(tǒng)能有效的解決學生成績因成績記錄的數(shù)量眾多，管理復雜造成的混亂。從而對學生成績的信息進行準確的管理。本系統(tǒng)的開發(fā)目的是有效的管理學生信息，實現(xiàn)學生信息的數(shù)據(jù)的規(guī)范化﹑自動化﹑系統(tǒng)化管理。&

2、lt;p>　　本系統(tǒng)的主要功能及任務：　　使學生查詢自己的成績更加方便﹑快捷；　　便于學校對學生的成績信息進行添加和管理；　　二﹑概要設計　　1﹑系統(tǒng)功能模塊框圖設計

3、　系統(tǒng)流程圖　　各模塊的功能　　登錄：實現(xiàn)用戶通過用戶名和密碼進行登錄的功能。　　編輯：實現(xiàn)對成績的添加﹑刪除和修改以及上下翻頁等功能。　　查詢：實現(xiàn)對學生的成績按照學號或者課程進行查詢&l

4、t;p>　　退出：結(jié)束成績管理系統(tǒng)。　　2﹑數(shù)據(jù)庫設計　　創(chuàng)建一個為mybd.mdb的數(shù)據(jù)庫，此數(shù)據(jù)庫內(nèi)包含3張表，分別是“成績表”﹑“課程表”﹑“學生表”，表結(jié)構參照如下：　　學生表：學號﹑姓名﹑性別。　　課程表：課程號﹑課程

5、名﹑學時﹑學分。　　成績表：學號﹑課程號﹑成績。　　表一﹑學生表結(jié)構　　表二﹑課程表結(jié)構　　表三﹑成績表結(jié)構<

6、b>　　三﹑詳細設計　　1﹑主界面系統(tǒng)　　（1）窗體截圖　?。?）功能實現(xiàn)　　'成功登錄系統(tǒng)前禁用編輯命令和查詢命令<

7、/p>　　Private Sub MDIForm_Load()　　mnuEdit.Enabled = False　　mnuQuery.Enabled = False　　End Sub　　&

8、#39;打開編輯窗體　　Private Sub mnuEdit_Click()　　frmEdit.Show　　frmEdit.WindowState = vbMaximized　　End Sub

9、　　'打開登錄窗體　　Private Sub mnuLogin_Click()　　frmLogin.Show　　frmLogin.WindowState = vbMaximized　　&

10、#39;退出系統(tǒng)　　Private Sub mnuLogout_Click()　　End　　'退出系統(tǒng)　　Private Sub mnuLogout_Click()&l

11、t;/p>　　End　　End Sub　　'退出系統(tǒng)　　Private Sub mnuLogout_Click()<

12、b>　　End　　End Sub 　　Private Sub mnuLogout_Click()　　End　　End Sub<

13、/p>　　'打開查詢窗體　　Private Sub mnuQuery_Click()　　frmQuery.Show　　frmQuery.WindowState = vbMaximized<b&

14、gt;　　End Sub　　Private Sub Picture1_Click()　　End Sub　　2﹑登錄窗體　　登錄系統(tǒng)界面包括用戶名和密碼。動態(tài)標簽是由時鐘控件編程

15、實現(xiàn)的如果密碼輸入錯誤會提示“密碼錯誤！” 　?。?）窗體截圖 　　登錄界面　　錯誤提示

16、;　?。?）功能實現(xiàn)　　Option Explicit 　　Const USERNAME As String = "1" 　　Const PASSWORD As String = "1"

17、 　　Private Sub cmdCancel_Click()　　Me.Hide　　End Sub　　Private Sub cmdOK_Click()<p&

18、gt;　　'檢查正確的用戶名和密碼　　If txtUserName = USERNAME And txtPassword = PASSWORD Then　　Me.Hide　　MDIfrmMain.mnuEdit.Enabled = True&l

19、t;p>　　MDIfrmMain.mnuQuery.Enabled = True　　Else　　MsgBox "密碼錯誤!"　　txtPassword.SetFocus　　SendKeys "{Ho

20、me}+{End}"　　End If　　End Sub　　Private Sub Picture1_Click()　　End Sub</p&g

21、t;　　Private Sub Timer1_Timer()　　If -Label3.Left >= Label3.Width Then　　Label3.Left = frmLogin.Width　　Else: Label3.Left = Label3.Left - 35</p&

22、gt;　　End If　　End Sub　　3﹑學生成績查詢窗體　?。?）窗體截圖　　(2)功能實現(xiàn)

23、;　　'"取消" 按鈕的單擊事件過程　　Private Sub cmdCancel_Click()　　txtID(0).Text = ""　　txtID(1).Text = ""&

24、lt;p>　　End Sub　　'"確定" 按鈕的單擊事件過程　　Private Sub cmdOK_Click()　　Dim sql As String, fld As String, condition As String</p&g

25、t;　　'顯示的字段列表　　fld = "學生.學號,學生.姓名,課程.課程名,成績.成績"　　'查詢條件　　condition = "學生.學號=成績.學號 and 課

26、程.課程號=成績.課程號 "　　If optChoice(0).Value Then　　condition = condition + "and 學生.學號='" + txtID(0).Text + "'"　　Else</b

27、>　　condition = condition + "and 課程.課程號='" + txtID(1).Text + "'"　　End If　　sql = "select " + fld +

28、" from 學生,課程,成績 where " + condition　　'改變記錄源　　Adodc1.RecordSource = sql　　Adodc1.Refresh　　End Su

29、b　　'初始化查詢窗體　　Private Sub Form_Load()　　Adodc1.Visible = False　　Set DataGrid1.DataSource = Adodc1 '

30、綁定操作　　DataGrid1.AllowUpdate = False '禁止更新　　End Sub　　'處理單選按鈕的焦點切換　　Private Sub optChoice_Click(Index As

31、Integer)　　txtID(Index).SetFocus　　End Sub　　'處理文本框的焦點切換　　Private Sub txtID_GotFocus(Index As Integer)&l

32、t;p>　　optChoice(Index).Value = True　　End Sub　　4﹑學生信息查詢窗體　　（1）窗體截圖　?。?）功能實現(xiàn)&l

33、t;/p>　　'"添加"按鈕的單擊事件過程　　Private Sub cmdAdd_Click()　　'根據(jù)當前按鈕的標題進行不同的操作　　Select Case cmdAdd.Caption

34、;　　Case "添加"　　'向當前選項卡所對應表中添加記錄　　Select Case SSTab1.Tab　　Case 0　　datStudent.Recordset.AddNew&l

35、t;/p>　　Case 1　　datCourse.Recordset.AddNew　　Case 2　　datScore.Recordset.AddNew　　End Se

36、lect　　'在添加操作完成前禁止進行其他操作　　SSTab1.TabEnabled(0) = False　　SSTab1.TabEnabled(1) = False　　SSTab1.TabEnabled(2) = False<p&g

37、t;　　cmdAdd.Caption = "確定"　　cmdEdit.Enabled = False　　cmdDel.Enabled = False　　cmdFirst.Enabled = False　　cmdPrev.Enabled = False&

38、lt;/p>　　cmdNext.Enabled = False　　cmdLast.Enabled = False　　Case "確定"　　Select Case SSTab1.Tab&l

39、t;b>　　Case 0　　datStudent.UpdateRecord　　Case 1　　datCourse.UpdateRecord　　Case 2</p&g

40、t;　　datScore.UpdateRecord　　End Select　　SSTab1.TabEnabled(0) = True　　SSTab1.TabEnabled(1) = True　　SSTab1.TabEnabled(2) = True&

41、lt;/p>　　cmdAdd.Caption = "添加"　　cmdEdit.Enabled = True　　cmdDel.Enabled = True　　cmdFirst.Enabled = True　　cmdPrev.E

42、nabled = True　　cmdNext.Enabled = True　　cmdLast.Enabled = True　　End Select　　End Sub　　'"刪

43、除"按鈕的單擊事件過程　　Private Sub cmdDel_Click()　　Dim i As Integer　　i = MsgBox("確定要刪除此記錄?", vbYesNo + vbExclamation + vbDefaultButton1, "編輯")

44、　　If i = vbYes Then　　'刪除當前選項卡所對應表中的記錄　　Select Case SSTab1.Tab　　Case 0　　datStudent.Recordset.

45、Delete　　datStudent.Refresh　　Case 1　　datCourse.Recordset.Delete　　datCourse.Refresh　　Case

46、 2　　datScore.Recordset.Delete　　datScore.Refresh　　End Select　　End If　　End Sub&

47、lt;/b>　　'"修改"按鈕的單擊事件過程　　Private Sub cmdEdit_Click()　　'根據(jù)當前按鈕的標題進行不同的操作　　Select Case cmdEdit.Caption<

48、p>　　Case "修改"　　'修改當前選項卡所對應表中的記錄　　Select Case SSTab1.Tab　　Case 0　　datStudent.Recor

49、dset.Edit　　Case 1　　datCourse.Recordset.Edit　　Case 2　　datScore.Recordset.Edit

50、　End Select　　'在修改操作完成前禁止進行其他操作　　SSTab1.TabEnabled(0) = False　　SSTab1.TabEnabled(1) = False　　SSTab1.TabEnabled(2) = False

51、　　cmdEdit.Caption = "確定"　　cmdAdd.Enabled = False　　cmdDel.Enabled = False　　cmdFirst.Enabled = False　　cmdPrev.Enabled =

52、 False　　cmdNext.Enabled = False　　cmdLast.Enabled = False　　Case "確定"　　Select Case SSTab1.Tab<

53、p>　　Case 0　　datStudent.UpdateRecord　　Case 1　　datCourse.UpdateRecord　　Case 2&

54、lt;/p>　　datScore.UpdateRecord　　End Select　　SSTab1.TabEnabled(0) = True　　SSTab1.TabEnabled(1) = True　　SSTab1.TabEnabled(2)

55、= True　　cmdEdit.Caption = "修改"　　cmdAdd.Enabled = True　　cmdDel.Enabled = True　　cmdFirst.Enabled = True　　cm

56、dPrev.Enabled = True　　cmdNext.Enabled = True　　cmdLast.Enabled = True　　End Select　　End Sub　　'

57、"首記錄"按鈕的單擊事件過程　　Private Sub cmdFirst_Click()　　Select Case SSTab1.Tab　　Case 0　　datStudent.Recordset.MoveFirs

58、t　　Case 1　　datCourse.Recordset.MoveFirst　　Case 2　　datScore.Recordset.MoveFirst

59、;　　End Select　　cmdFirst.Enabled = False　　cmdPrev.Enabled = False　　cmdNext.Enabled = True　　cmdLast.Enabled = True<

60、;b>　　End Sub　　'"尾記錄"按鈕的單擊事件過程　　Private Sub cmdLast_Click()　　Select Case SSTab1.Tab　　Case 0

61、　　datStudent.Recordset.MoveLast　　Case 1　　datCourse.Recordset.MoveLast　　Case 2

62、　　datScore.Recordset.MoveLast　　End Select　　cmdFirst.Enabled = True　　cmdPrev.Enabled = True　　cmdNext.Enabled = False

63、　　cmdLast.Enabled = False　　End Sub　　'"下一條"按鈕的單擊事件過程　　Private Sub cmdNext_Click()　　Select Case SSTab1.Ta

64、b　　Case 0　　datStudent.Recordset.MoveNext　　If datStudent.Recordset.EOF Then　　datStudent.Recordset.MoveLast

65、　　cmdFirst.Enabled = True　　cmdPrev.Enabled = True　　cmdNext.Enabled = False　　cmdLast.Enabled = False　　End If&

66、lt;/p>　　Case 1　　datCourse.Recordset.MoveNext　　If datCourse.Recordset.EOF Then　　datCourse.Recordset.MoveLast<p

67、>　　cmdFirst.Enabled = True　　cmdPrev.Enabled = True　　cmdNext.Enabled = False　　cmdLast.Enabled = False　　End If</p

68、>　　Case 2　　datScore.Recordset.MoveNext　　If datScore.Recordset.EOF Then　　datScore.Recordset.MoveLast　　cm

69、dFirst.Enabled = True　　cmdPrev.Enabled = True　　cmdNext.Enabled = False　　cmdLast.Enabled = False　　End If&l

70、t;p>　　End Select　　End Sub　　'"上一條"按鈕的單擊事件過程　　Private Sub cmdPrev_Click()　　Select Case SSTab1.Tab</

71、p>　　Case 0　　datStudent.Recordset.MovePrevious　　If datStudent.Recordset.BOF Then　　datStudent.Recordset.MoveFirst&

72、lt;p>　　cmdFirst.Enabled = False　　cmdPrev.Enabled = False　　cmdNext.Enabled = True　　cmdLast.Enabled = True　　End If&l

73、t;/p>　　Case 1　　datCourse.Recordset.MovePrevious　　If datCourse.Recordset.BOF Then　　datCourse.Recordset.MoveFirst&

74、lt;p>　　cmdFirst.Enabled = False　　cmdPrev.Enabled = False　　cmdNext.Enabled = True　　cmdLast.Enabled = True　　End If&l

75、t;/p>　　Case 2　　datScore.Recordset.MovePrevious　　If datScore.Recordset.BOF Then　　datScore.Recordset.MoveFirst<

76、p>　　cmdFirst.Enabled = False　　cmdPrev.Enabled = False　　cmdNext.Enabled = True　　cmdLast.Enabled = True　　End If</

77、p>　　End Select　　End Sub　　'初始化編輯窗體　　Private Sub Form_Load()　　datStudent.Visible =

78、 False　　'連接數(shù)據(jù)庫　　If Right(App.Path, 1) = "\" Then　　datStudent.DatabaseName = App.Path + "mydb.mdb"<p

79、>　　Else　　datStudent.DatabaseName = App.Path + "\mydb.mdb"　　End If　　'設置記錄源

80、　　datStudent.RecordSource = "學生"　　datStudent.Refresh　　'綁定控件　　txtSID.DataField = "學號"<p&g

81、t;　　txtSName.DataField = "姓名"　　optMale.Value = datStudent.Recordset.Fields("性別").Value　　datCourse.Visible = False　　datCourse.DatabaseName

82、 = datStudent.DatabaseName　　datCourse.RecordSource = "課程"　　datCourse.Refresh　　txtCID.DataField = "課程號"　　txtCName.Dat

83、aField = "課程名"　　txtPeriod.DataField = "學時"　　txtCredit.DataField = "學分"　　datScore.Visible = False　　datScore

84、.DatabaseName = datStudent.DatabaseName　　datScore.RecordSource = "成績"　　datScore.Refresh　　txtSSID.DataField = "學號"　　t

85、xtSCID.DataField = "課程號"　　txtScore.DataField = "成績"　　SSTab1.Tab = 0 '設置當前選項卡為"學生"選項卡　　End Sub

86、　　Private Sub SSTab1_DblClick()　　End Sub　　四﹑中存在的問題及解決方法　　1﹑數(shù)據(jù)庫無法與控件進行綁定　　查詢時沒有學生成績記錄顯示

87、;　　解決方法：設置data控件的數(shù)據(jù)綁定常用熟悉，以及檢查代碼是不是和數(shù)據(jù)庫相應的位置連接的　　2﹑Name屬性和Caption屬性混淆　　解決方法：Name屬性的值用于在程序中唯一地標識該控件對象，在窗體上不可見；而Caption屬性的值是在窗體上顯示的內(nèi)容。兩個屬性就能正確區(qū)分了

88、五﹑心得體會　　通過一周的VB課程設計，我對VB6.0軟件的使用更加熟練，積累了很多數(shù)據(jù)庫應用的經(jīng)驗.在編程和調(diào)試的過程中，總會遇到很多問題。而這些問題有些你是在書本上找不到解決辦法的，你只有自己在網(wǎng)上查資料或者到圖書館借書找到一些解決辦法，再一步步進行調(diào)試。在編寫代碼的時候，一定要養(yǎng)成良好的語法習慣，避免語法錯誤。在數(shù)據(jù)庫的操作部分，要檢查是否與控件連接好， data的常用

89、屬性設置好了沒有　　六﹑參考文獻　　[1] 羅朝盛. Visual Basic 6.0程序設計教程(第3版). 人民郵電出版社，2009年2月　　[2]邵潔.程序設計（第4版）.東南大學出版社　　[3]黃淼云. Visual Basi

90、c 6.0控件應用編程案例教程北京希望電子出版社.　　七﹑附錄　　1﹑主界面包括登錄﹑編輯﹑查詢和退出.點擊這四個按鈕就會彈出相應的界面.　　成功登錄系統(tǒng)前禁用編輯命令和查詢命令　　Private Sub MDIForm_Load()

91、　　mnuEdit.Enabled = False　　mnuQuery.Enabled = False　　End Sub　　'打開編輯窗體　　Pr

92、ivate Sub mnuEdit_Click()　　編輯窗體.Show　　End Sub　　'打開登錄窗體　　Private Sub mnuLogi

93、n_Click()　　登錄窗體.Show　　End Sub　　'退出系統(tǒng)　　Private Sub mnuLogout_Click()</p&g

94、t;　　End　　End Sub　　'打開查詢窗體　　Private Sub mnuQuery_Click()

95、　　查詢窗體.Show　　End Sub 　　2﹑登錄界面包括用戶名和密碼.在登錄節(jié)目輸入用戶名和密碼都正確就可以進入學生成績管理系統(tǒng)，如果用戶名或者密碼錯誤就會提示密碼錯誤.動態(tài)標簽是由timer編程實現(xiàn)的.　　Private Sub cmdCancel

96、_Click()　　Me.Hide　　End Sub　　Private Sub cmdOK_Click()　　'檢查正確的用戶名和密碼　　If t

97、xtUserName = USERNAME And txtPassword = PASSWORD Then　　Me.Hide　　MDIfrmMain.mnuEdit.Enabled = True　　MDIfrmMain.mnuQuery.Enabled = True</

98、p>　　Else　　MsgBox "密碼錯誤!"　　txtPassword.SetFocus　　SendKeys "{Home}+{End}"　　E

99、nd If　　End Sub　　Private Sub Picture1_Click()　　End Sub 　　Private Sub Timer1_Timer()</p

100、>　　Label3.Left = Label3.Left - 80　　End Sub 　　3﹑編輯界面是對學生的成績信息進行添加﹑修改﹑查詢以及刪除等操作.按照不同的功能劃分，編輯管理模塊分為學生﹑課程和成績?nèi)齻€信息窗體.可以對學生的成績﹑課程﹑成績進行添加﹑刪除和查詢.</p&g

101、t;　　Private Sub cmdAdd_Click()　　'根據(jù)當前按鈕的標題進行不同的操作　　Select Case cmdAdd.Caption　　Case "添加"　　&#

102、39;向當前選項卡所對應表中添加記錄　　Select Case SSTab1.Tab　　Case 0　　datStudent.Recordset.AddNew　　Case 1

103、　　datCourse.Recordset.AddNew　　Case 2　　datScore.Recordset.AddNew　　End Select　　'在添加操作完成前禁止進行其他操作

104、;　　SSTab1.TabEnabled(0) = False　　SSTab1.TabEnabled(1) = False　　SSTab1.TabEnabled(2) = False　　cmdAdd.Caption = "確定"

105、　cmdEdit.Enabled = False　　cmdDel.Enabled = False　　cmdFirst.Enabled = False　　cmdPrev.Enabled = False　　cmdNext.Enabled = False

106、　　cmdLast.Enabled = False　　Case "確定"　　Select Case SSTab1.Tab　　Case 0　　datStuden

107、t.UpdateRecord　　Case 1　　datCourse.UpdateRecord　　Case 2　　datScore.UpdateRecord

108、　　End Select　　SSTab1.TabEnabled(0) = True　　SSTab1.TabEnabled(1) = True　　SSTab1.TabEnabled(2) = True　　cmdAdd.Caption = "添加"<

109、/p>　　cmdEdit.Enabled = True　　cmdDel.Enabled = True　　cmdFirst.Enabled = True　　cmdPrev.Enabled = True　　cmdNext.Enabled = Tru

110、e　　cmdLast.Enabled = True　　End Select　　End Sub　　'"刪除"按鈕的單擊事件過程　　Private Sub cmdDel

111、_Click()　　Dim i As Integer　　i = MsgBox("確定要刪除此記錄?", vbYesNo + vbExclamation + vbDefaultButton1, "編輯")　　If i = vbYes Then<p

112、>　　'刪除當前選項卡所對應表中的記錄　　Select Case SSTab1.Tab　　Case 0　　datStudent.Recordset.Delete　　datStudent.Refresh

113、　　Case 1　　datCourse.Recordset.Delete　　datCourse.Refresh　　Case 2　　datScore.Recordset.Del

114、ete　　datScore.Refresh　　End Select　　End If　　End Sub　　'"修改"按鈕的單擊事

115、件過程　　Private Sub cmdEdit_Click()　　'根據(jù)當前按鈕的標題進行不同的操作　　Select Case cmdEdit.Caption　　Case "修改"

116、　　'修改當前選項卡所對應表中的記錄　　Select Case SSTab1.Tab　　Case 0　　datStudent.Recordset.Edit　　Case 1

117、　　datCourse.Recordset.Edit　　Case 2　　datScore.Recordset.Edit　　End Select　　'在修改操作完成前禁止進行其他操作&l

118、t;/p>　　SSTab1.TabEnabled(0) = False　　SSTab1.TabEnabled(1) = False　　SSTab1.TabEnabled(2) = False　　cmdEdit.Caption = "確定"&l

119、t;p>　　cmdAdd.Enabled = False　　cmdDel.Enabled = False　　cmdFirst.Enabled = False　　cmdPrev.Enabled = False　　cmdNext.Enabled = False</

120、p>　　cmdLast.Enabled = False　　Case "確定"　　Select Case SSTab1.Tab　　Case 0　　da

121、tStudent.UpdateRecord　　Case 1　　datCourse.UpdateRecord　　Case 2　　datScore.UpdateRecord&l

122、t;p>　　End Select　　SSTab1.TabEnabled(0) = True　　SSTab1.TabEnabled(1) = True　　SSTab1.TabEnabled(2) = True　　cmdEdit.Caption = "修改&q

123、uot;　　cmdAdd.Enabled = True　　cmdDel.Enabled = True　　cmdFirst.Enabled = True　　cmdPrev.Enabled = True　　cmdNext.Enable

124、d = True　　cmdLast.Enabled = True　　End Select　　End Sub　　'"首記錄"按鈕的單擊事件過程　　Private Su

125、b cmdFirst_Click()　　Select Case SSTab1.Tab　　Case 0　　datStudent.Recordset.MoveFirst　　Case 1</p&g

126、t;　　datCourse.Recordset.MoveFirst　　Case 2　　datScore.Recordset.MoveFirst　　End Select　　cmdFirst.Enabled = Fa

127、lse　　cmdPrev.Enabled = False　　cmdNext.Enabled = True　　cmdLast.Enabled = True　　End Sub　　'&quo

128、t;尾記錄"按鈕的單擊事件過程　　Private Sub cmdLast_Click()　　Select Case SSTab1.Tab　　Case 0　　datStudent.Recordset.MoveLast</

129、p>　　Case 1　　datCourse.Recordset.MoveLast　　Case 2　　datScore.Recordset.MoveLast　　End S

130、elect　　cmdFirst.Enabled = True　　cmdPrev.Enabled = True　　cmdNext.Enabled = False　　cmdLast.Enabled = False

131、End Sub　　'"下一條"按鈕的單擊事件過程　　Private Sub cmdNext_Click()　　Select Case SSTab1.Tab　　Case 0</p&g

132、t;　　datStudent.Recordset.MoveNext　　If datStudent.Recordset.EOF Then　　datStudent.Recordset.MoveLast　　cmdFirst.Enabled = True

133、cmdPrev.Enabled = True　　cmdNext.Enabled = False　　cmdLast.Enabled = False　　End If　　Case 1

134、　　datCourse.Recordset.MoveNext　　If datCourse.Recordset.EOF Then　　datCourse.Recordset.MoveLast　　cmdFirst.Enabled = True　　cmdPr

135、ev.Enabled = True　　cmdNext.Enabled = False　　cmdLast.Enabled = False　　End If　　Case 2<

136、;p>　　datScore.Recordset.MoveNext　　If datScore.Recordset.EOF Then　　datScore.Recordset.MoveLast　　cmdFirst.Enabled = True　　cmdPrev.Enabl

137、ed = True　　cmdNext.Enabled = False　　cmdLast.Enabled = False　　End If　　End Select　　End Su

138、b　　'"上一條"按鈕的單擊事件過程　　Private Sub cmdPrev_Click()　　Select Case SSTab1.Tab　　Case 0&l

139、t;p>　　datStudent.Recordset.MovePrevious　　If datStudent.Recordset.BOF Then　　datStudent.Recordset.MoveFirst　　cmdFirst.Enabled = False

140、cmdPrev.Enabled = False　　cmdNext.Enabled = True　　cmdLast.Enabled = True　　End If　　Case 1

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

溫馨提示

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

vb課程設計--學生成績管理系統(tǒng)

文檔簡介

溫馨提示

最新文檔

評論

vb課程設計--學生成績管理系統(tǒng)

文檔簡介

溫馨提示

最新文檔

評論

免費下載