【導(dǎo)讀】組成，包括系統(tǒng)登錄、學(xué)生信息查詢、數(shù)據(jù)庫(kù)的錄入。通過(guò)本系統(tǒng)，把本校內(nèi)部。查詢學(xué)生信息、教務(wù)信息、各個(gè)環(huán)節(jié)進(jìn)行有效地計(jì)劃、組織和控制。的工作量，足以讓人覺(jué)得比較繁瑣，吃不消。針對(duì)這樣的情況，采用讓數(shù)據(jù)的查。詢變得簡(jiǎn)單化，數(shù)據(jù)變的更讓每個(gè)人都在任何時(shí)刻都可以了解到。產(chǎn)生的數(shù)據(jù)變動(dòng)及時(shí)地反映給其它相關(guān)信息，做到數(shù)據(jù)共享。Keywords：ActiveXcontrol、Form、orderedfield、Access、VisualBasic

　　

【正文】 PopupMenu student End If End Sub Private Sub Grid1_RowColChange(ByVal Row As Long, ByVal Col As Long) hang = Row If gridsave = True And Col = 5 Then 39。確認(rèn)默認(rèn)年齡在 20歲左右 If Row 0 Then (Row, 5).Text = Date 7300 End If End If End Sub Private Sub Grid1_Validate(Cancel As Boolean) 39。設(shè)定 TAB 鍵切換 Dim nActiveRow As Long, nActiveCol As Long Const VK_TAB = 9 If GetKeyState(VK_TAB) 0 Then nActiveRow = nActiveCol = If nActiveCol 1 Then 成都電子機(jī)械高等專科學(xué)校畢業(yè)設(shè)計(jì) (論文 ) 31 (nActiveRow, nActiveCol + 1, _ nActiveRow, nActiveCol + 1).Selected End If Cancel = True End If End Sub Private Sub Form_Load() On Error GoTo finish CNwinndy, W]vyYnonvku\ntyZbl_e`hms^ 39。進(jìn)行注冊(cè) CNwinndy, W]vyYnonvku\ntyZbl_e`hms^ 39。進(jìn)行注冊(cè) = 今天是 amp。 Year(Date) amp。 年 amp。 Month(Date) amp。 月 amp。 Day(Date) amp。 日 ,歡迎您進(jìn)入 04423 班 ! = False = RGB(167, 111, 177) 39。管理員驗(yàn)證 If admin = False Then c1(3).Enabled = False = False 39。增加學(xué)生 = False 39。課程管理 = True 39。輸入成績(jī) = False = False = True End If With Grid1 .AllowUserResizing = True .DisplayFocusRect = False .ExtendLastCol = True .Appearance = Flat .FixedRowColStyle = Flat .ScrollBarStyle = Flat 成都電子機(jī)械高等?？茖W(xué)校畢業(yè)設(shè)計(jì) (論文 ) 32 . = Tahoma . = 8 .BackColorFixed = RGB(84, 201, 134) .BackColorFixedSel = RGB(167, 111, 177) .BackColorBkg = RGB(198, 229, 211) .BackColorScrollBar = RGB(167, 111, 177) .BackColor1 = RGB(231, 235, 247) .BackColor2 = RGB(198, 229, 211) .GridColor = RGB(148, 190, 231) .Column(0).Width = 0 End With With Grid2 .AllowUserResizing = True .DisplayFocusRect = False .ExtendLastCol = True .Appearance = Flat .FixedRowColStyle = Flat .ScrollBarStyle = Flat .AllowUserResizing = True .DisplayFocusRect = False .ExtendLastCol = True .Appearance = Flat .FixedRowColStyle = Flat .ScrollBarStyle = Flat . = Tahoma . = 8 .BackColorFixed = RGB(84, 201, 134) .BackColorFixedSel = RGB(167, 111, 177) .BackColorBkg = RGB(198, 229, 211) .BackColorScrollBar = RGB(167, 111, 177) .BackColor1 = RGB(231, 235, 247) .BackColor2 = RGB(198, 229, 211) .GridColor = RGB(148, 190, 231) .Column(0).Width = 0 成都電子機(jī)械高等專科學(xué)校畢業(yè)設(shè)計(jì) (論文 ) 33 End With je = 4 Dim fr As Integer = RGB(168, 217, 189) For fr = 0 To 4 Fre2(fr).Visible = False Fre2(fr).BackColor = RGB(106, 137, 188) Next = False Call c1_Click(0) Exit Sub finish: MsgBox End Sub Private Sub Grid2_CellChange(ByVal Row As Long, ByVal Col As Long) 39。使用智能輸入 If (Row, 1).Text And Row 0 Then Dim length1, length2 As Integer length1 = Len((Row, 1).Text) Do While length2 length1 length2 = length2 + 1 If Right(Left((Row, 1).Text, length2), 1) = Then (Row, 2).Text = Mid((Row, 1).Text, length2 + 1, length1) (Row, 1).Text = Mid((Row, 1).Text, 1, length2 1) Exit Do End If Loop End If If (Row, 3).Text And Row 0 Then Dim length3, length4 As Integer length3 = Len((Row, 3).Text) 成都電子機(jī)械高等?？茖W(xué)校畢業(yè)設(shè)計(jì) (論文 ) 34 Do While length4 length3 length4 = length4 + 1 If Right(Left((Row, 3).Text, length4), 1) = Then (Row, 4).Text = Mid((Row, 3).Text, length4 + 1, length4) (Row, 3).Text = Mid((Row, 3).Text, 1, length4 1) Exit Do End If Loop End If End Sub Private Sub Grid2_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single) If Button = 2 Then If admin = False Then = False = False = False End If PopupMenu cg End If End Sub Private Sub Grid2_RowColChange(ByVal Row As Long, ByVal Col As Long) hang = Row End Sub Private Sub datagrid() griddelete = True 39。允許刪除 gridedit = True If tkbase = 學(xué)生信息 Then If = adStateOpen Then 39。表狀態(tài) 成都電子機(jī)械高等?？茖W(xué)校畢業(yè)設(shè)計(jì) (論文 ) 35 End If sql, n, adOpenStatic, adLockReadOnly, adCmdText For i = 1 To fnumber (0, i).Text = (i 1).Name Next = 20 nnum = If = 0 Then nnum = 1 End If numpage = 1 = 共 amp。 nnum amp。 頁(yè) 第 amp。 numpage amp。 頁(yè) = 1 = 21 If = 0 Then Exit Sub End If = numpage For i = 1 To 39。設(shè)定讀取行 For j = 1 To fnumber 39。設(shè)定讀取列 If = True Then Exit Sub End If If Not (j 1) Is Nothing Then 39?？罩档奶幚? (i, j).Text = (j 1) Else (i, j).Text = End If Next If = False Then 39。讀取下一記錄 Else Exit Sub End If 成都電子機(jī)械高等專科學(xué)校畢業(yè)設(shè)計(jì) (論文 ) 36 Next ElseIf tkbase = 學(xué)生與課程 Then If = adStateOpen Then 39。表狀態(tài) End If sql, n, adOpenStatic, adLockReadOnly, adCmdText For i = 1 To fnumber (0, i).Text = (i 1).Name Next = 20 nnum = If = 0 Then nnum = 1 End If numpage = 1 = 共 amp。 nnum amp。 頁(yè) 第 amp。 numpage amp。 頁(yè) = 1 = 21 If = 0 Then Exit Sub End If = numpage For i = 1 To 39。設(shè)定讀取行 For j = 1 To fnumber 39。設(shè)定 讀取列 If = True Then Exit Sub End If If Not (j 1) Is Nothing Then 39。空值的處理 (i, j).Text = (j 1) Else (i, j).Text = End If Next If = False Then 成都電子機(jī)械高等?？茖W(xué)校畢業(yè)設(shè)計(jì) (論文 ) 37 39。讀取下一記錄 Else Exit Sub End If Next End If End Sub Private Sub Grid2_Validate(Cancel As Boolean) Dim nActiveRow As Long, nActiveCol As Long Const VK_TAB = 9 If GetKeyState(VK_TAB) 0 Then nActiveRow = nActiveCol = If nActiveCol 1 Then (nActiveRow, nActiveCol + 1, _ nActiveRow, nActiveCol + 1).Selected End If Cancel = True End If End Sub Private Sub Label7_Click() If tkbase = 學(xué)生信息 Then If numpage 1 Then numpage = numpage 1 = numpag