【正文】 amp。 strStudentID amp。 32 圖 46 考試成績管理界面 代碼實現(xiàn)： Dim Conn As Dim WithEvents rs As Private Sub cmbCourse_Click() CourseInfo FullClass FullGrid End Sub Private Sub cmdAdd_Click() Dim cmdUpdate As Dim rsCheck As Dim strSQL$, strStudentID$, intScore As Integer If 0 Then MsgBox 請選擇一門課程！ Exit Sub End If If 0 Then MsgBox 請選擇一個班級！ 33 Exit Sub End If strStudentID = Replace(Trim(), 39。 amp。 39。 39。 WHERE = 31 strSQL = strSQL amp。 amp。 strSQL, Conn, 1, 1 If Not Then lblCourseID = rsCourse(CourseID).Value lblCourseName = rsCourse(CourseName).Value lblCredit = Str(rsCourse(Credit).Value) lblPeriod = Str(rsCourse(Period).Value) lblTeacher = rsCourse(Teacher).Value Else lblCourseID = lblCourseName = lblCredit = lblPeriod = lblTeacher = End If Set rsCourse = Nothing End Sub Private Sub FullGrid() 29 If adStateClosed Then strSQL = SELECT ClassName, ClassRoom, ClassDate strSQL = strSQL amp。 strSQL, Conn, 1, 1 If Not Then lblCourseID = rsCourse(CourseID).Value lblCourseName = rsCourse(CourseName).Value lblCredit = Str(rsCourse(Credit).Value) lblPeriod = Str(rsCourse(Period).Value) lblTeacher = rsCourse(Teacher).Value Else = 27 End If Set rsCourse = Nothing End Sub Private Sub rs_MoveComplete(ByVal adReason As , ByVal pError As , adStatus As , ByVal pRecordset As ) = False End Sub 課程安排查詢 ： 通過此界面查詢課程的安排： 圖 442 課程安排查詢界面 代碼實現(xiàn)： Dim Conn As Dim WithEvents rs As Private Sub cmbCourse_Click() CourseInfo FullGrid End Su Private Sub cmdQuit_Click() Unload Me End Sub Private Sub Form_Load() Set Conn = New Set rs = New 28 ConnString FullCourse cmbCourse_Click End Sub Private Sub FullCourse() Dim rsCourse As Dim strSQL$ Set rsCourse = New strSQL = SELECT * FROM Course strSQL, Conn, 1, 1 While Not rsCourse(CourseID).Value Wend If 0 Then = 0 Set rsCourse = Nothing End Sub Private Sub CourseInfo() Dim rsCourse As Dim strSQL$ If 0 Then Exit Sub Set rsCourse = New strSQL = SELECT * FROM Course WHERE CourseID=39。 strSQL, Conn, 1, 1 lblCount = Str(rsClass(sCount).Value) Set rsClass = Nothing End Sub Private Sub CourseInfo() Dim rsCourse As Dim strSQL$ If 0 Then Exit Sub Set rsCourse = New strSQL = SELECT * FROM Course WHERE CourseID=39。 strSQL, Conn, 1, 1 If Not Then lblClassID = rsClass(ClassID).Value lblClassName = rsClass(ClassName).Value lblDepartName = rsClass(DepartName).Value lblMaster = rsClass(Master).Value lblBeginDate = Str(rsClass(BeginDate).Value) Else lblClassID = lblClassName = lblDepartName = lblMaster = lblBeginDate = End If strSQL = SELECT Count(*) as sCount FROM Student WHERE ClassID=39。 AND ClassID=39。 amp。 FROM Course, CourseSelect strSQL = strSQL amp。 。 39。 39。 39。 39。 Set rsCheck = New strSQL, Conn, 1, 1 If Not Then MsgBox 該班級已經(jīng)安排了該課程，不要重復安排！ Set rsCheck = Nothing Exit Sub End If Set rsCheck = Nothing strSQL = INSERT INTO CourseSelect(CourseID, ClassID, ClassRoom, ClassDate) strSQL = strSQL amp。 AND ClassID=39。, ) If strClassRoom = Then MsgBox 上課教室沒有指定！ , , 輸入錯誤 Exit Sub ElseIf strClassDate = Then MsgBox 上課時間沒有指定！ , , 輸入錯誤 Exit Sub End If strSQL = SELECT * FROM CourseSelect WHERE CourseID=39。 = strSQL Set cmdUpdate = Nothing End If rs(CourseID).Value = strCourseID rs(CourseName).Value = strCourseName rs(Credit).Value = intCredit rs(Period).Value = intPeriod rs(Teacher).Value = strTeacher rs(Description).Value = strDesc End Sub Private Sub rs_MoveComplete(ByVal adReason As , _ ByVal pError As , adStatus As , _ ByVal pRecordset As ) = = = = = = = False End Sub Private Sub Form_Load() Set Conn = New 21 Set rs = New ConnString strSQL = SELECT * FROM Course strSQL, Conn, 3, 3 Set = rs With dgCourse .Columns(0).Width = 1200 .Columns(0).Caption = 課程編號 .Columns(1).Width = 2100 .Columns(1).Caption = 課程名稱 .Columns(2).Width = 600 .Columns(2).Caption = 學分 .Columns(3).Width = 600 .Columns(3).Caption = 學時數(shù) .Columns(4).Width = 1500 .Columns(4).Caption = 任課老師 .Columns(5).Width = 2400 .Columns(5).Caption = 說明 End With End Sub Private Sub Form_Unload(Cancel As Integer) Set = Nothing Set rs = Nothing Set Conn = Nothing End Sub End Sub 課程安排 顯示課程的安排、班級、上課時間、上課地點。 WHERE CourseID = 39。 = strSQL strSQL = UPDATE Score SET CourseID = 39。 WHERE CourseID = 39。 級聯(lián)更新 Set cmdUpdate = New Set = Conn strSQL = UPDATE CourseSelect SET CourseID = 39。 amp。, ) strCourseName = Replace(Trim(), 39。 amp。, ) strCourseName = Replace(Trim(), 39。運行界面如下所示 : 圖 42 系統(tǒng)主界面 代碼實現(xiàn)： 16 Private Sub Form_Load() Caption = 課程管理系統(tǒng) [ amp。 amp。 strUserID amp。 圖 41 登錄模塊 代碼實現(xiàn)： Option Explicit Public LoginSucceeded As Boolean Private Sub cmdCancel_Click() End End Sub Private Sub cmdOK_Click() Dim Conn As Dim rs As Dim strUserID As String Dim strPassword As String Dim strSQL As String Static Count As Byte strUserID = Replace(Trim(), 39。這四個功能模塊各自獨立，完成學校的全部學生的課程安排及管理。方案二和方案三的不同之處在于使用了不同的數(shù)據(jù)庫管理系統(tǒng) . 功能分解 為了最終實現(xiàn)目標系統(tǒng)，必須將一些功能復雜的模塊與分解成若干子模塊 ，并確定這些子模塊之間的關(guān)系。 方案三：采用星形拓樸局域網(wǎng)