【正文】 字典下拉判斷 Select Case Trim(Lbl(Index).Caption) Case 性別 = Txt(Index).Top = Txt(Index).Left = Txt(Index).Width 男 女 = True Exit Sub End Select If Trim(Lbl(Index).Caption) = 課程名稱 Or Trim(Lbl(Index).Caption) = 系名 Or Trim(Lbl(Index).Caption) = 專業(yè) Or Trim(Lbl(Index).Caption) = 民族 Or 學生學籍管理系統(tǒng)的設計與實現(xiàn) 41 Trim(Lbl(Index).Caption) = 政治面目 Then = Txt(Index).Top = Txt(Index).Left = Txt(Index).Width strSss(0) = Trim(Lbl(Index).Caption) strSss(1) = 。判斷是否有字典字段 CurrentIndex = Index = False = False Dim ss As String 學生學籍管理系統(tǒng)的設計與實現(xiàn) 40 ss = Mid(Trim(Lbl(Index).Caption), Len(Trim(Lbl(Index).Caption)) 1, 2) If ss = 日期 Then = Txt(Index).Top = Txt(Index).Left = Txt(Index).Width = True Exit Sub End If Dim strSql As String Dim strSss(2) As String On Error GoTo Err Dim rsZD As New 39。39。 管理 (1).Text = strTableName 學生學籍管理系統(tǒng)的設計與實現(xiàn) 39 Dim g As Integer Dim b As Integer Dim r As Integer Randomize r = 125 + Rnd * 125 Randomize g = 125 + Rnd * 125 Randomize b = 125 + Rnd * 125 = RGB(r, g, b) = RGB(b, r, g) = RGB(g, b, r) = strTableName Call LoadInfo End Sub Private Sub Picture1_Click() End Sub Private Sub Txt_Click(Index As Integer) 39。修改 nModeSys = 1 = True End Sub Private Sub DTPicker1_Change() Txt(CurrentIndex).Text = DateChange() = False End Sub Private Sub DTPicker1_Click() Txt(CurrentIndex).Text = DateChange() = False End Sub Private Sub Form_Load() = strTableName amp。, CN, adOpenStatic, adLockOptimistic If Not Then If Not IsNull((0)) Then Txt(CurrentIndex + 1).Text = Trim((0)) End If 學生學籍管理系統(tǒng)的設計與實現(xiàn) 38 End If End If End If Exit Sub Err: MsgBox , vbInformation + vbOKOnly, 系統(tǒng)提示 End Sub Private Sub Command1_Click() 39。 Txt(CurrentIndex).Text amp。 Txt(CurrentIndex).Text = Trim() = False On Error GoTo Err If strTableName = 學生成績表 Then If Lbl(CurrentIndex).Caption = 學號 Then If Txt(CurrentIndex).Text Then Dim rs1 As New If Then select 姓名 from 學 籍 信 息 表 where 學號 =39。39。39。選擇數(shù)據(jù)表 On Error GoTo Err Dim strSql As String strSql = select * from amp。保存 On Error GoTo Err Dim i As Integer If nModeSys = 1 Then If Then For i = 0 To Val(Txt(0).Text) 1 If Trim(Txt(i + 1).Text) = Then Else (i).Value = Trim(Txt(i + 1).Text) End If Next i 學生學籍管理系統(tǒng)的設計與實現(xiàn) 35 ElseIf nModeSys = 2 Then For i = 0 To Val(Txt(0).Text) 1 If Trim(Txt(i + 1).Text) = Then Else (i).Value = Trim(Txt(i + 1).Text) End If Next i End If nModeSys = 0 = False MsgBox 操作已成功 !, vbInformation + vbOKOnly, 系統(tǒng)提示 Exit Sub Err: MsgBox , vbInformation + vbOKOnly, 系統(tǒng)提示 End Sub Private Sub LoadInfo() 39。39。39。 Dim i As Integer On Error GoTo Err If Then If Not Then For i = 1 To Val(Txt(0).Text) If Not IsNull((i 1)) Then Txt(i) = (i 1) Else Txt(i) = End If Next i End If Else If Not Then For i = 1 To Val(Txt(0).Text) If Not IsNull((i 1)) Then Txt(i) = (i 1) 學生學籍管理系統(tǒng)的設計與實現(xiàn) 33 Else Txt(i) = End If Next i End If End If Exit Sub Err: End Sub Private Sub cmdRegPrevious_Click() 39。39。39。39。 Dim i As Integer On Error GoTo Err If Not Then For i = 1 To Val(Txt(0).Text) If Not IsNull((i 1)) Then Txt(i) = (i 1) 學生學籍管理系統(tǒng)的設計與實現(xiàn) 31 Else Txt(i) = End If Next i End If Exit Sub Err: End Sub Private Sub cmdRegLast_Click() 39。39。39。添加操作 Dim IDmax As String Dim i As Integer For i = 1 To Val(Txt(0).Text) Txt(i).Text = Next i = True End Sub Private Sub cmdRegDel_Click() 39。添加 nModeSys = 2 39。39。 檢索 (1).Text = strTableName amp。 End If If Then 學生學籍管理系統(tǒng)的設計與實現(xiàn) 28 strSql, CN, adOpenStatic, adLockOptimistic Set = rs2 Else MsgBox 請選擇或輸入數(shù)據(jù) !, , 系統(tǒng)提示 End If End Sub Private Sub Loaddata() If Then select * from amp。 Trim() amp。 %39。 % amp。 39。 amp。 where amp。查詢代碼 If Trim() And Trim() And Trim() Then Dim strSql As String strSql = select * from amp。釋放 xlApp 對象 End Sub Private Sub cmdExit_Click() Unload Me End Sub Private Sub cmdLook_Click() 39。關(guān)閉工作簿 39。打開已經(jīng)存在的 EXCEL 工件簿文件 Set xlSheet = (1) 39。39。39。 學生學籍管理系統(tǒng)的設計與實現(xiàn) 25 參考文獻 [1] . Database system implementation[M].北京 ,機械工業(yè)出 版社 , 2021. [2] Hector GarcialMolina , Jeffrey , Jennifer Widom. An introduction to Database Systems(Seventh Edition) [M].北京 , 機械工業(yè)出版社 ,2021. [3] 林陳雷 ,郭安源 ,葛曉東 .教育信息化系統(tǒng)開發(fā)實例導航 [M].北京 ,人民郵電出版社 ,2021. [4] 張立科 .數(shù)據(jù)庫開發(fā)技術(shù)與工程實踐 [M].北京 ,人民郵電出版社 ,2021. [5] 張紅軍 , 王虹等 .Visual basic 中文版高級應用與開發(fā)指南 [M].北京 ,人民郵電出版社 , 2021. [6] 伍俊良 .VB課程設計與系統(tǒng)開發(fā)案例 [M].北京 ,清華大學出版社 , 2021. [7] 姚巍 .Visual Basic 數(shù)據(jù)庫開發(fā)及工程實例 [M].北京 ,人民郵電出版社 , 2021. [8] 求是科技 .Visual Basic 數(shù)據(jù)庫開發(fā)技術(shù)與工程實踐 [M].北京 ,人民郵電出版社， 2021. [9] 劉瑞新，汪遠征 .Visual Basic 程序設計教程 [M].北京 ,機械工業(yè)出版社， 2021. [10]劉萌，周學明，郭安源 .Visual Basic 企業(yè) 辦公系統(tǒng)開發(fā)實例導航 [M].北京 ,人民郵電出版社， 2021. [11]孟小峰，王珊 .數(shù)據(jù)庫系統(tǒng)導論 [M].北京 ,機械工業(yè)出版社， 2021. 學生學籍管理系統(tǒng)的設計與實現(xiàn) 26 附錄部分原代碼 查詢窗體源代碼 Dim rs2 As New 39。我會以他們?yōu)榘駱樱玫嘏?，將這種精神帶到以后的工作和學