数据库技术及应用课程设计项目设计报告说明书之教室管理系统

数据库技术及应用课程设计项目设计报告说明书之教室管理系统内容摘要：

tionString () = myConnection = = _ select distinct building ,doorplate, capacity from classroom, arrange + _ where = and not in (select rid from arrange where [Weekday] = + ( + 1).ToString + and [UTime] = + ( + 1).ToString + ) + _ and not in (select rid from [use] where uweekday = + ( + 1).ToString + and utime = + ( + 1).ToString + ) myReader = () Do While 同济大学嘉定校区教室管理系统 第 17/39 页 () ( 1).Cells(0).Value = (0) ( 1).Cells(1).Value = (1) ( 1).Cells(2).Value = (2) Loop () () () Catch ex As Exception MsgBox(, , Exception) End Try End Sub Private Sub ButtonCourse_Click(ByVal sender As , ByVal e As ) Handles Dim myConnection As New () Dim myCommand As New () Dim myReader As Try = ConnectionString () = myConnection = = _ select cid, , cridethour, period, type, capacity, from course, teacher + _ where like 39。 % + + %39。 and = 同济大学嘉定校区教室管理系统 第 18/39 页 myReader = () Do While () ( 1).Cells(0).Value = (0) ( 1).Cells(1).Value = (1) ( 1).Cells(2).Value = (2) ( 1).Cells(3).Value = (3) ( 1).Cells(4).Value = (4) ( 1).Cells(5).Value = (5) ( 1).Cells(6).Value = (6) Loop () () () Catch ex As Exception MsgBox(, , Exception) End Try End Sub Private Sub ButtonTeacher_Click(ByVal sender As , ByVal e As ) Handles Dim myConnection As New () Dim myCommand As New () Dim myReader As Try 同济大学嘉定校区教室管理系统 第 19/39 页 = ConnectionString () = myConnection = = _ select distinct , , college, post, from teacher, course + _ where = and = 39。 + + 39。 myReader = () Do While () ( 1).Cells(0).Value = (0) ( 1).Cells(1).Value = (1) ( 1).Cells(2).Value = (2) ( 1).Cells(3).Value = (3) ( 1).Cells(4).Value = (4) Loop () () () Catch ex As Exception MsgBox(, , Exception) End Try End Sub Private Sub ButtonRent_Click(ByVal sender As , ByVal e As ) Handles Dim myConnection As New () 同济大学嘉定校区教室管理系统 第 20/39 页 Dim myCommand As New () Dim myReader As Dim Table As String Dim Identity As String Try If Then Table = teacher Identity = tid Else Table = student Identity = sid End If = ConnectionString () = myConnection = = _。