sql數(shù)據(jù)庫課程設(shè)計(jì)---學(xué)生成績(jī)管理系統(tǒng)設(shè)計(jì)說明

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

2023年全國(guó)碩士研究生考試考研英語一試題真題（含答案詳解+作文范文）_第1頁

已閱讀1頁，還剩22頁未讀，繼續(xù)免費(fèi)閱讀

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

文檔簡(jiǎn)介

1、　　學(xué)生成績(jī)管理系統(tǒng)設(shè)計(jì)說明　?。ū驹O(shè)計(jì)以VB為前臺(tái)對(duì)數(shù)據(jù)庫進(jìn)行操作）　　需求　　本系統(tǒng)主要用于學(xué)校的學(xué)生成績(jī)管理。　　用戶身份的驗(yàn)證&

2、lt;b>　　學(xué)生基本信息管理　　按班級(jí)選課　　學(xué)生成績(jī)的管理　　總體設(shè)計(jì)　　本系統(tǒng)包括：標(biāo)準(zhǔn)模塊、系統(tǒng)登錄模塊、主界面模塊、系統(tǒng)管

3、理模塊、學(xué)生基本信息管理模塊、選課模塊、成績(jī)管理模塊。　　標(biāo)準(zhǔn)模塊　　定義公共變量和過程。　　系統(tǒng)登錄模塊　　進(jìn)行用戶身份的驗(yàn)證。　　主

4、界面模塊　　作為系統(tǒng)總界面，供用戶進(jìn)行各項(xiàng)選擇。　　系統(tǒng)管理模塊　　用戶管理及系統(tǒng)退出。　　學(xué)生基本信息管理模塊　　學(xué)生基本信息的錄入和查詢。<

5、;p>　　選課模塊　　為班級(jí)選課。　　成績(jī)管理模塊　　進(jìn)行學(xué)生成績(jī)的錄入及查詢。　　數(shù)據(jù)庫設(shè)計(jì)及配置</p

6、>　　數(shù)據(jù)庫設(shè)計(jì)　　該數(shù)據(jù)庫由以下幾個(gè)表組成：　　用戶表、學(xué)生基本信息表、班級(jí)課程表、學(xué)生成績(jī)表。　　用戶表　　包括用戶名、密碼、是否是超級(jí)用戶。

7、　　學(xué)生基本信息表　　包括學(xué)號(hào)、姓名、電話、地址、班級(jí)名稱、性別。　　班級(jí)課程表　　包括班級(jí)名稱、課程名稱。　　學(xué)生成績(jī)表</p&g

8、t;　　包括學(xué)號(hào)、課程名稱、成績(jī)。　　數(shù)據(jù)庫中各表關(guān)系　　學(xué)生基本信息表與班級(jí)課程表通過班級(jí)名稱字段相關(guān)聯(lián)，學(xué)生基本信息表與學(xué)生成績(jī)表通過學(xué)號(hào)字段相關(guān)聯(lián)，班級(jí)課程表與學(xué)生成績(jī)表通過課程名稱字段相關(guān)聯(lián)。　　系統(tǒng)實(shí)現(xiàn)&l

9、t;/p>　　標(biāo)準(zhǔn)模塊（公有模塊）　　標(biāo)準(zhǔn)模塊中的數(shù)據(jù)定義　　用于定義全局變量及過程。本系統(tǒng)定義了當(dāng)前用戶名及用戶類型。　　標(biāo)準(zhǔn)模塊代碼設(shè)計(jì)　　Option Explicit<

10、p>　　Public UserName As String　　Public UserType As Boolean　　系統(tǒng)登錄模塊　　說明　　進(jìn)行用戶身份的驗(yàn)證。特定的用戶才能登錄到系統(tǒng)。&

11、lt;/p>　　窗體設(shè)計(jì)　　系統(tǒng)登錄窗體的窗體類型為Form，界面如下圖所示：　　主要控件屬性如下表所示：　　代碼設(shè)計(jì)　　公共定義

12、　　Option Explicit　　Dim Count1 As Integer　　窗體裝載處理程序（Load）　　Private Sub Form_Load()　　Count1 = 0‘錯(cuò)誤次數(shù)清零<

13、/p>　　End Sub　　取消按鈕（cmdCancel）處理程序（Click）　　Private Sub cmdCancel_Click()　　Unload Me‘系統(tǒng)退出<b

14、>　　End Sub　　確定按鈕（cmdOk）處理程序（Click）　　Private Sub cmdOk_Click()　　Dim s1 As String　　Dim Password As String

15、;　　On Error Resume Next　　If Text1.Text = "" Then‘用戶名為空，則退出　　MsgBox ("用戶名不能為空,請(qǐng)重新輸入")　　Text1.SetFocus

16、;　　Exit Sub　　End If　　‘按輸入的用戶名進(jìn)行查詢　　s1 = "SELECT * from 用戶表 WHERE 用戶名='" & Text1.Text & "'"

17、　　Adodc1.RecordSource = s1　　Adodc1.Refresh　　If Adodc1.Recordset.EOF = False Then‘判斷查詢結(jié)果　　UserName = Adodc1.Recordset.Fields(0)‘有該

18、用戶名，即用戶名正確　　Password = Adodc1.Recordset.Fields(1)　　UserType = Adodc1.Recordset.Fields(2)　　If Password = Text2.Text Then‘判斷密碼是否正確　　U

19、nload Me‘密碼正確，關(guān)閉當(dāng)前窗體　　FrmMain.Show‘顯示主界面窗體　　Exit Sub　　Else　　MsgBox ("密碼錯(cuò)誤,請(qǐng)

20、重新輸入")‘密碼錯(cuò)誤，提示　　Text2.SetFocus　　Text2.Text = ""　　End If　　Else‘沒有該用戶名，即用戶名錯(cuò)誤

21、　　MsgBox "用戶名錯(cuò)誤,請(qǐng)重新輸入"　　Text1.SetFocus　　Text1.Text = ""　　Text2.Text = ""　　End If</b&

22、gt;　　Count1 = Count1 + 1‘錯(cuò)誤次數(shù)累計(jì)　　If Count1 >= 3 Then　　MsgBox "錯(cuò)誤超過3次,系統(tǒng)退出"　　Unload Me

23、　　End If　　End Sub　　主界面模塊　　說明　　作為系統(tǒng)總界面，供用戶進(jìn)行各項(xiàng)選擇。&

24、lt;/p>　　窗體設(shè)計(jì)　　主界面模塊窗體類型為MDIForm，界面如下圖所示。　　代碼設(shè)計(jì)　　窗體變?yōu)榛顒?dòng)窗體處理程序（MDIForm－Activate）　　Priv

25、ate Sub MDIForm_Activate()　　WindowState = 2‘窗體最大化狀態(tài)　　StatusBar1.Panels(1).Text = "用戶名: " & UserName‘在狀態(tài)欄顯示用戶名、用戶類型　　If UserType = T

26、rue Then　　StatusBar1.Panels(2).Text = "用戶類型: 管理員"　　Else　　StatusBar1.Panels(2).Text = "用戶類型: 普通用戶"

27、　　End If　　If UserType = False Then‘對(duì)普通用戶設(shè)某些菜單項(xiàng)不可用　　AA1.Enabled = False　　BB1.Enabled = False　　CC.Enabled = Fal

28、se　　DD1.Enabled = False　　Toolbar1.Buttons(1).Enabled = False‘對(duì)普通用戶設(shè)工具欄的某些按鈕不可用　　Toolbar1.Buttons(3).Enabled = False　　Toolbar1.Buttons(

29、6).Enabled = False　　Toolbar1.Buttons(7).Enabled = False　　Toolbar1.Buttons(9).Enabled = False　　End If　　End Su

30、b　　定時(shí)器（Timer1）處理程序（Timer）　　Private Sub Timer1_Timer()　　StatusBar1.Panels(3).Text = Now‘在狀態(tài)欄中顯示當(dāng)前時(shí)間　　End Sub<

31、;/b>　　工具欄（Toolbar1）處理程序（ButtonClick）　　Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)　　Select Case Button.Index&

32、lt;b>　　Case 1　　Form11.Show (1)‘用戶管理　　Case 3　　Form21.Show (1)‘學(xué)生基本信息維護(hù)　　Case 4</b

33、>　　Form22.Show (1)‘學(xué)生基本信息查詢　　Case 6　　Form31.Show (1)‘課程添加　　Case 7<p&

34、gt;　　Form32.Show (1)‘課程刪除　　Case 9　　Form41.Show (1)‘學(xué)生成績(jī)維護(hù)　　Case 10　　Form42.Show (1)

35、‘學(xué)生成績(jī)查詢　　Case 12　　Unload Me‘系統(tǒng)退出　　End Select　　End Sub　　“用戶管理”菜單項(xiàng)處理程

36、序（AA1－Click）　　Private Sub AA1_Click()　　Form11.Show (1)　　End Sub　　“退出”菜單項(xiàng)處理程序（AA3－click）　　Private

37、 Sub AA3_Click()　　Unload Me　　End Sub　　“學(xué)生基本信息維護(hù)”菜單項(xiàng)處理程序（BB1－click）　　Private Sub BB1_Click()</p&

38、gt;　　Form21.Show (1)　　End Sub　　“學(xué)生基本信息查詢”菜單項(xiàng)處理程序（BB2－click）　　Private Sub BB2_Click()　　Form22.Show (1)</

39、p>　　End Sub　　“課程添加”菜單項(xiàng)處理程序（CC1－click）　　Private Sub CC1_Click()　　Form31.Show (1)　　End Sub</b

40、>　　“課程刪除”菜單項(xiàng)處理程序（CC2－click）　　Private Sub CC2_Click()　　Form32.Show (1)　　End Sub　　“學(xué)生成績(jī)維護(hù)”菜單項(xiàng)處理

41、程序（DD1－click）　　Private Sub DD1_Click()　　Form41.Show (1)　　End Sub　　“學(xué)生成績(jī)查詢”菜單項(xiàng)處理程序（DD2－click）　　Pr

42、ivate Sub DD2_Click()　　Form42.Show (1)　　End Sub　　用戶管理模塊　　說明

43、;　　創(chuàng)建、刪除用戶。設(shè)定用戶權(quán)限。　　窗體設(shè)計(jì)　　代碼設(shè)計(jì)　　上一條（Command1）處理（Click）　　Private Sub Command1_Click()&l

44、t;p>　　Command2.Enabled = True　　Adodc1.Recordset.MovePrevious　　If Adodc1.Recordset.BOF Then　　Command1.Enabled = False　　Adodc1.Recordse

45、t.MoveFirst　　End If　　End Sub　　下一條（Command2）處理（Click）　　Private Sub Command2_Click()<

46、p>　　Command1.Enabled = True　　Adodc1.Recordset.MoveNext　　If Adodc1.Recordset.EOF Then　　Command2.Enabled = False　　Adodc1.Recordset.Move

47、Last　　End If　　End Sub　　添加（Command3）處理（Click）　　Private Sub Command3_Click()　　I

48、f Command3.Caption = "添加" Then　　Command3.Caption = "確定"　　Command1.Enabled = False　　Command2.Enabled = False　　Command

49、4.Enabled = False　　Adodc1.Recordset.AddNew　　Text1.SetFocus　　Else　　If Text1.Text = "" Then<p&

50、gt;　　MsgBox ("用戶名不能為空")　　Exit Sub　　End If　　Command3.Caption = "添加"　　Adodc1.Rec

51、ordset.Update　　Command1.Enabled = True　　Command2.Enabled = True　　Command4.Enabled = True　　End If

52、　　End Sub　　刪除（Command4）處理（Click）　　Private Sub Command4_Click()　　Adodc1.Recordset.Delete　　Adodc1.Recordset.MoveNext<

53、;/p>　　If Adodc1.Recordset.EOF Then　　Adodc1.Recordset.MoveLast　　End If　　End Sub　　退出（C

54、ommand5）處理（Click）　　Private Sub Command5_Click()　　Unload Me　　End Sub　　學(xué)生基本信息管理模塊<p&g

55、t;　　說明　　學(xué)生基本信息的添加、刪除、查詢。　　該模塊有兩個(gè)窗體：學(xué)生基本信息維護(hù)窗體和學(xué)生基本信息查詢窗體　　學(xué)生基本信息維護(hù)窗體　　窗體設(shè)計(jì)　　主

56、要控件屬性如下表所示：　　代碼設(shè)計(jì)　　窗體裝載處理程序（Load）　　Private Sub Form_Load()　　DataGrid1.AllowAddNew = True　　DataGr

57、id1.AllowDelete = True　　DataGrid1.AllowUpdate = True　　End Sub　　退出（Command1）處理（Click）　　Private Sub Command1_Click()<

58、;/p>　　Unload Me　　End Sub　　學(xué)生基本信息查詢窗體　　窗體設(shè)計(jì)　　主要控件屬性如下表所示：

59、;　　代碼設(shè)計(jì)　　查詢（Command1）處理（Click ）　　Private Sub Command1_Click()　　Dim s1 As String　　s1 = ""

60、;　　If Check1.Value = 1 Then　　If Text1.Text <> "" Then　　s1 = s1 & "姓名='" & Text1.Text & "'"&

61、lt;/p>　　End If　　End If　　If Check2.Value = 1 Then　　If Text2.Text <> "" Then<

62、;p>　　If s1 <> "" Then　　s1 = s1 & " and "　　End If　　s1 = s1 & "學(xué)號(hào)='" & Text2.Text &

63、amp; "'"　　End If　　End If　　If Check3.Value = 1 Then　　If DataList1.Text <> "

64、;" Then　　If s1 <> "" Then　　s1 = s1 & " and "　　End If　　s1 = s1 & "班級(jí)名稱=&

65、#39;" & DataList1.Text & "'"　　End If　　End If　　If s1 <> "" Then&l

66、t;p>　　s1 = "where " & s1　　End If　　Adodc1.RecordSource = "select * from 學(xué)生基本信息表 " & s1　　Adodc1.Refresh<

67、/p>　　Set DataGrid1.DataSource = Adodc1　　End Sub　　退出（Command2）處理（Click）　　Private Sub Command2_Click()<

68、;b>　　Unload Me　　End Sub　　窗體裝載處理程序（Load）　　Private Sub Form_Load()　　DataGrid1.AllowAddNew = False

69、;　　DataGrid1.AllowDelete = False　　DataGrid1.AllowUpdate = False　　End Sub　　選課模塊

70、　　說明　　該模塊為一個(gè)班級(jí)選課。　　課程添加窗體　　用于課程的添加和查詢　　窗體設(shè)計(jì)　　主要控件屬性如下表所示：

71、　　代碼設(shè)計(jì)　　添加（Command1）處理（Click）　　Private Sub Command1_Click()　　Dim s1 As String, s2 As String　　On Error Resu

72、me Next　　If Text1.Text = "" Or Text2.Text = "" Then　　MsgBox ("輸入不能為空")　　Exit Sub<b&g

73、t;　　End If　　s1 = "select * from 班級(jí)課程表 where 班級(jí)名稱='"　　s2 = Text1.Text & "' and 課程名稱='" & Text2.Text & "'"</

74、p>　　Adodc1.RecordSource = s1 & s2　　Adodc1.Refresh　　If Adodc1.Recordset.EOF = False Then　　Text1.SetFocus　　MsgBox "

75、該記錄已存在,請(qǐng)重新輸入", , "警告"　　Exit Sub　　End If　　s1 = "select * from 班級(jí)課程表"　　Adod

76、c1.RecordSource = s1　　Adodc1.Refresh　　Adodc1.Recordset.MoveLast　　Adodc1.Recordset.AddNew　　Adodc1.Recordset.Fields("班級(jí)名稱") = Te

77、xt1.Text　　Adodc1.Recordset.Fields("課程名稱") = Text2.Text　　Adodc1.Recordset.Update　　Adodc1.Refresh　　s1 = "select 課程名稱 from 班

78、級(jí)課程表 where 班級(jí)名稱='" & Text1.Text & "'"　　Adodc1.RecordSource = s1　　Adodc1.Refresh　　Set DataGrid1.DataSource = Adodc1.Recordset&l

79、t;/p>　　Text2.SetFocus　　Text2.Text = ""　　Exit Sub　　End Sub　　查詢（Command2）處理（

80、Click）　　Private Sub Command2_Click()　　Dim s1 As String　　s1 = "select 課程名稱 from 班級(jí)課程表 where 班級(jí)名稱='" & Text1.Text & "'"<

81、/p>　　Adodc1.RecordSource = s1　　Adodc1.Refresh　　Set DataGrid1.DataSource = Adodc1.Recordset　　End Sub　　退出

82、（Command3）處理（Click）　　Private Sub Command3_Click()　　Unload Me　　End Sub　　窗體裝載處理程序（Load）&

83、lt;p>　　Private Sub Form_Load()　　DataGrid1.AllowAddNew = False　　DataGrid1.AllowDelete = False　　DataGrid1.AllowUpdate = False

84、　End Sub　　課程刪除窗體　　窗體設(shè)計(jì)　　主要控件屬性如下表所示：　　代碼設(shè)計(jì)　　退出（C

85、ommand1）處理（Click）　　Private Sub Command1_Click()　　Unload Me　　End Sub　　數(shù)據(jù)列表框（DataList1）處理（Click）<

86、/p>　　Private Sub DataList1_Click()　　Dim s1 As String　　s1 = "select * from 班級(jí)課程表 where 班級(jí)名稱='" & DataList1.Text & "'"

87、　　Adodc2.RecordSource = s1　　Adodc2.Refresh　　Set DataGrid1.DataSource = Adodc2　　End Sub　　窗體裝載處理程序（Load）</p

88、>　　Private Sub Form_Load()　　DataGrid1.AllowDelete = True　　DataGrid1.AllowUpdate = True　　DataGrid1.AllowAddNew = False<b

89、>　　End Sub　　成績(jī)管理模塊　　說明　　進(jìn)行學(xué)生成績(jī)的錄入及查詢。　　成績(jī)錄入窗體

90、　　進(jìn)行學(xué)生成績(jī)的添加、修改及刪除。　　窗體設(shè)計(jì)　　代碼設(shè)計(jì)　　錄入（Command1）處理（Click）　　Private Sub Command1_Click()<

91、;p>　　Dim s1 As String, s2 As String, s3 As String　　On Error Resume Next　　s1 = "select * from 學(xué)生成績(jī)表 "　　s2 = "where 學(xué)號(hào)='" & Lis

92、t2.Text & "' and "　　s3 = "課程名稱='" & List1.Text & "'"　　Adodc3.RecordSource = s1 & s2 & s3　　Adod

93、c3.Refresh　　If Adodc3.Recordset.EOF = False Then　　Adodc3.Recordset.Fields(2) = Val(Text1.Text)　　Else　　Adodc3.Recordse

94、t.MoveLast　　Adodc3.Recordset.AddNew　　Adodc3.Recordset.Fields(0) = List2.Text　　Adodc3.Recordset.Fields(1) = List1.Text　　Adodc3.Recordset.

95、Fields(2) = Val(Text1.Text)　　End If　　Adodc3.Recordset.Update　　Adodc3.Refresh　　s1 = "select 學(xué)號(hào),成績(jī) from 學(xué)生成績(jī)表 wher

96、e 課程名稱='" & List1.Text & "'"　　s2 = " and 學(xué)號(hào) in (select 學(xué)號(hào) from 學(xué)生基本信息表 "　　s3 = "where 班級(jí)名稱 ='" & DataList1.Text &

97、 "')"　　Adodc3.RecordSource = s1 & s2 & s3　　Adodc3.Refresh　　Set DataGrid1.DataSource = Adodc3　　End Sub<

98、/b>　　退出（Command1）處理（Click ）　　Private Sub Command2_Click()　　Unload Me　　End Sub<p&

99、gt;　　數(shù)據(jù)列表框（DataList1）處理（Click）　　Private Sub DataList1_Click()　　Dim s1 As String, s2 As String　　Set DataGrid1.DataSource = Nothing　　s1 =

100、"select 課程名稱 from 班級(jí)課程表 "　　s2 = "where 班級(jí)名稱='" & DataList1.Text & "'"　　Adodc2.RecordSource = s1 & s2　　Adod

101、c2.Refresh　　If Adodc2.Recordset.EOF = True Then　　MsgBox "請(qǐng)?jiān)诎嗉?jí)課程表里添加該班級(jí)的課程名稱"　　Exit Sub　　End If<

102、/b>　　List1.Clear　　Adodc2.Recordset.MoveFirst　　Do While Adodc2.Recordset.EOF = False　　List1.AddItem Adodc2.Recordset.Fields(0)</p&g

103、t;　　Adodc2.Recordset.MoveNext　　Loop　　s1 = "select 學(xué)號(hào) from 學(xué)生基本信息表 "　　s2 = "where 班級(jí)名稱='" & DataLis

104、t1.Text & "'"　　Adodc2.RecordSource = s1 & s2　　Adodc2.Refresh　　If Adodc2.Recordset.EOF = True Then　　MsgBox "請(qǐng)?jiān)?/p>

105、學(xué)生信息表里添加該班級(jí)"　　Exit Sub　　End If　　List2.Clear　　Adodc2.Recordset.MoveFirst

106、　Do While Adodc2.Recordset.EOF = False　　List2.AddItem Adodc2.Recordset.Fields(0)　　Adodc2.Recordset.MoveNext　　Loop<

107、b>　　End Sub　　窗體裝載處理程序（Load）　　Private Sub Form_Load()　　DataGrid1.AllowDelete = True　　DataGrid1.AllowAddNew = False

108、　　DataGrid1.AllowUpdate = False　　End Sub　　列表框（List1）處理（Click）　　Private Sub List1_Click()　　Dim s1 As String

109、, s2 As String, s3 As String　　s1 = "select 學(xué)號(hào),成績(jī) from 學(xué)生成績(jī)表 where 課程名稱='" & List1.Text & "'"　　s2 = " and 學(xué)號(hào) in (select 學(xué)號(hào) from 學(xué)生基本信息表

110、"　　s3 = "where 班級(jí)名稱 ='" & DataList1.Text & "')"　　Adodc3.RecordSource = s1 & s2 & s3　　Adodc3.Refresh

111、;　　Set DataGrid1.DataSource = Adodc3　　End Sub　　列表框（List2）處理（Click）　　Private Sub List2_Click()　　Text1.Text

112、= ""　　End Sub　　成績(jī)查詢窗體　　進(jìn)行學(xué)生成績(jī)的查詢　　窗體設(shè)計(jì)

113、　　主要控件屬性如下表所示：　　代碼設(shè)計(jì)　　公共定義　　Option Explicit　　Dim opt As Integer　　組合框

114、（Combo1）處理（Click）　　Private Sub Combo1_Click()　　Dim s1 As String, s2 As String　　Set DataGrid1.DataSource = Nothing　　Combo2.Clear

115、;　　If opt = 0 Then　　s1 = "select 課程名稱 from 班級(jí)課程表 where 班級(jí)名稱='"　　s2 = Combo1.Text & "' group by 課程名稱"　　Adodc2.Recor

116、dSource = s1 & s2　　Else　　s1 = "select 學(xué)號(hào) from 學(xué)生基本信息表 where 班級(jí)名稱='"　　s2 = Combo1.Text & "'"

117、　　Adodc2.RecordSource = s1 & s2　　End If　　Adodc2.Refresh　　Do While Adodc2.Recordset.EOF = False　　Combo2.

118、AddItem Adodc2.Recordset.Fields(0)　　Adodc2.Recordset.MoveNext　　Loop　　End Sub　　組合框（Combo2）處理（Click）

119、　　Private Sub Combo2_Click()　　Dim s1 As String, s2 As String, s3 As String　　Set DataGrid1.DataSource = Nothing　　If opt = 0 Then

120、;　　s1 = "select * from 學(xué)生成績(jī)表 where 課程名稱='"　　s2 = Combo2.Text & " ' and 學(xué)號(hào) in (select 學(xué)號(hào) "　　s3 = "from 學(xué)生基本信息表 where 班級(jí)名稱 =

121、9;" & Combo1.Text & "')"　　Adodc1.RecordSource = s1 & s2 & s3　　Adodc1.Refresh　　Set DataGrid1.DataSource = Adodc1

122、　　Else　　s1 = "select * from 學(xué)生成績(jī)表 where 學(xué)號(hào)='" & Combo2.Text & "'"　　Adodc1.RecordSource = s1

123、　　Adodc1.Refresh　　Set DataGrid1.DataSource = Adodc1　　End If　　End Sub　　退出（Command1）處理（Click ）</p

124、>　　Private Sub Command1_Click()　　Unload Me　　End Sub　　窗體裝載處理程序（Load）　　Private Sub For

125、m_Load()　　DataGrid1.AllowAddNew = False　　DataGrid1.AllowDelete = False　　DataGrid1.AllowUpdate = False　　End Sub</p&

126、gt;　　單選按鈕（Option1）處理（Click ）　　Private Sub Option1_Click(Index As Integer)　　If Index > 1 Then　　Exit Sub&

127、lt;b>　　End If　　Combo1.Clear　　Combo2.Clear　　Set DataGrid1.DataSource = Nothing　　opt = Index　　If Index =

128、 0 Then '按班級(jí)查詢　　Label1.Caption = "請(qǐng)選擇班級(jí)"　　Label2.Caption = "請(qǐng)選擇課程"　　ElseIf Index = 1 Then

129、9;按學(xué)號(hào)查詢　　Label1.Caption = "請(qǐng)選擇班級(jí)"　　Label2.Caption = "請(qǐng)選擇學(xué)號(hào)"　　End If　　Adodc2.RecordSource = "

130、select distinct 班級(jí)名稱 from 班級(jí)課程表"　　Adodc2.Refresh　　Do While Adodc2.Recordset.EOF = False　　Combo1.AddItem Adodc2.Recordset.Fields(0)

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

溫馨提示

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

sql數(shù)據(jù)庫課程設(shè)計(jì)---學(xué)生成績(jī)管理系統(tǒng)設(shè)計(jì)說明

文檔簡(jiǎn)介

溫馨提示

最新文檔

評(píng)論

sql數(shù)據(jù)庫課程設(shè)計(jì)---學(xué)生成績(jī)管理系統(tǒng)設(shè)計(jì)說明

文檔簡(jiǎn)介

溫馨提示

最新文檔

評(píng)論

免費(fèi)下載