畢業(yè)設計-排課管理系統(tǒng)—論文(編輯修改稿)

　

【文章內容簡介】 理論上還是在實踐中，都給與我很大的幫助，使我得到不少的提高這對于我以后的工作和學習都有一種巨大的幫助，感謝她細心而又耐心的輔導，我會永遠銘記心中的。 參考文獻 ： 軟件系統(tǒng)開發(fā)技術 潘錦平 西安電子科技大學出版社 《軟件工程導論》 清華大學出版社 《 Visual Basic 數(shù)據(jù)庫實用程序設計 100 例》 段興 人民郵電出版社 《 Visual Basic 編程方法詳解》 李鴻吉 科學教育出版社 《數(shù)據(jù)庫系統(tǒng)概論》 薩師煊 高等教育出版社 《 Visual Basic 程序設計教程》 劉炳文 清華大學出版社 源代碼 : 進入界面 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 請選擇一正確的操作 項 , vbInformation + vbOKOnly, 操作 End Select End Sub Private Sub Command2_Click() End Sub Private Sub Form_Load() 教職員入庫信息 排課管理 教職員帶課查詢 本學期課程設置 打印課程表 打印教師代課表 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 進啟動界面 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(你確定要刪除本記錄嗎？ , 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) 姓 名 學 號 專 業(yè) 指 導教師 學 院 日 期 畢 業(yè) 設 計（論文）