【文章內(nèi)容簡介】 理論上還是在實(shí)踐中，都給與我很大的幫助，使我得到不少的提高這對(duì)于我以后的工作和學(xué)習(xí)都有一種巨大的幫助，感謝她細(xì)心而又耐心的輔導(dǎo)，我會(huì)永遠(yuǎn)銘記心中的。 參考文獻(xiàn) ： 軟件系統(tǒng)開發(fā)技術(shù) 潘錦平 西安電子科技大學(xué)出版社 《軟件工程導(dǎo)論》 清華大學(xué)出版社 《 Visual Basic 數(shù)據(jù)庫實(shí)用程序設(shè)計(jì) 100 例》 段興 人民郵電出版社 《 Visual Basic 編程方法詳解》 李鴻吉 科學(xué)教育出版社 《數(shù)據(jù)庫系統(tǒng)概論》 薩師煊 高等教育出版社 《 Visual Basic 程序設(shè)計(jì)教程》 劉炳文 清華大學(xué)出版社 源代碼 : 進(jìn)入界面 Option Explicit Dim strRun As String Dim iTp As Integer Private Sub Command1_Click() = 11 = True strRun = LTrim$(RTrim$()) Select Case strRun Case (0): Case (1): Case (2): Case (3): Case (4): Case (5): Case Else: MsgBox 請(qǐng)選擇一正確的操作 項(xiàng) , vbInformation + vbOKOnly, 操作 End Select End Sub Private Sub Command2_Click() End Sub Private Sub Form_Load() 教職員入庫信息 排課管理 教職員帶課查詢 本學(xué)期課程設(shè)置 打印課程表 打印教師代課表 End Sub Private Sub Form_Unload(Cancel As Integer) iTp = MsgBox(你確定要退出本系統(tǒng) , vbYesNo + vbQuestion, 退出 ) If iTp = vbNo Then Cancel = 1 End If If Cancel = 0 Then End End If End Sub Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single) End Sub Private Sub Timer1_Timer() = False = 0 End Sub 進(jìn)啟動(dòng)界面 Option Explicit Private Sub Form_Load() = 11 Dim X, Y As Integer = LoadPicture( + \) = = X = ( ) / 2 Y = ( ) / 2 = X = Y = True 39。 39。 End Sub Private Sub ImgBg_Click() End Sub Private Sub Timer1_Timer() Unload Me Beep End Sub 教員入庫 Dim con As Dim rs As Dim qrs As Dim slSql As String Dim i, j As Integer Dim strBak(2) As String Dim sqlStr As String Private Sub Command1_Click(Index As Integer) On Error GoTo Err: Dim As Integer For = 0 To 2 Text1().Text = Next If 0 Then Select Case Index Case 0: Case 1: Command1(2).Enabled = True Command1(3).Enabled = True Case 2: Command1(0).Enabled = True Command1(1).Enabled = True Case 3: End Select displayInfo End If GoTo ok: Err: Call dataOver ok: End Sub Private Sub dataOver() If Then Command1(0).Enabled = False Command1(1).Enabled = False Command1(2).Enabled = True Command1(3).Enabled = True Else If Then Command1(0).Enabled = True Command1(1).Enabled = True Command1(2).Enabled = False Command1(3).Enabled = False Else MsgBox Database Error, vbExclamation + vbOKOnly, Error unknown End If End If End Sub Private Sub Command2_Click(Index As Integer) On Error GoTo errDeal If Index = 0 Or Index = 2 Then CanSave (True) Else CanSave (False) End If Select Case Index Case 0: Call toNull Case 1: j = MsgBox(你確定要?jiǎng)h除本記錄嗎？ , vbYesNo + vbQuestion, 刪除 ) If j = vbYes Then Call toNull End If Case 2: Case 3: If Len(LTrim$(RTrim$(Text1(0).Text))) 0 Then 39。 For i = 0 To 2 If Len(LTrim$(RTrim$(Text1(i).Text))) 0 Then (i) = Text1(i).Text End If Next i Else MsgBox 姓名不得為空 , vbOKOnly + vbExclamation, Error End If Case 4: For i = 0 To 2 Text1(i).Text = strBak(i) Next i Call Command2_Click(3) End Select Exit Sub errDeal: MsgBox database Error, vbExclamation + vbOKOnly, error 39。okEnd: End Sub Private Sub CanSave(ok As Boolean) = Not ok = ok For i = 0 To 4 If i 3 Then Command2(i).Enabled = Not ok Else Command2(i).Enabled = ok End If Next i End Sub Private Sub Form_Load() Dim t As Integer Set con = New Set rs = New Set qrs = New 39。Provider=。Persist Security Info=False。Data Source=C:\WINDOWS\Desktop\ provider=。 data source= amp。 amp。 \ select * from teacher, con, adOpenStatic, adLockOptimistic If 0 Then displayInfo CanSave (False) Else 39。new data CanSave (True) Call Command2_Click(0) End If End Sub Private Sub displayInfo() i = j = 0 For i = 0 To 2 39。Text1(i).Text = If Len((i)) 0 Then Text1(i).Text = (i) strBak(i) = Text1(i).Text End If Next i End Sub Private Sub toNull() For i = 0 To 2 Text1(i).Text = strBak(i) = Next i End Sub Private Sub Form_Unload(Cancel As Integer) On Error GoTo KK Set rs = Nothing Set qrs = noting Set con = Nothing KK: End Sub Private Sub queryComm_Click() slSql = select * from Teacher where cTrname = 39。 + Text1(3).Text + 39。 slSql, con, adOpenStatic If Not Then i = j = 0 For i = 0 To 2 39。Text1(i).Text = If Len((i)) 0 Then Text1(i).Text = (i) strBak(i) = Text1(i).Text End If Next i End If End Sub 題 目 排課管理系統(tǒng) 姓 名 學(xué) 號(hào) 專 業(yè) 指 導(dǎo)教師 學(xué) 院 日 期 畢 業(yè) 設(shè) 計(jì)（論文）