排课管理系统—免费毕业设计论文

排课管理系统—免费毕业设计论文内容摘要：

论上还是在实践中，都给与我很大的帮助，使我得到不少的提高这对于我以后的工作和学习都有一种巨大的帮助，感谢她细心而又耐心的辅导，我会永远铭记心中的。 参考文献 ： 软件系统开发技术 潘锦平 西安电子科技大学出版社 《软件工程导论》 清华大学出版社 《 Visual Basic 数据库实用程序设计 100 例》 段兴 人民邮电出版社 《 Visual Basic 编程方法详解》 李鸿吉 科学教育出版社 《数据库系统概论》 萨师煊 高等教育出版社 《 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(你确定要退出本系统 , 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 题 目 排课管理系统 姓 名 学 号 专 业 指导教师 学 院 日 期 毕 业 设 计（论文） 排。