排课管理系统.doc

毕业设计 0 Then Select Case Index Case 0： rs。MoveFirst Case 1: rs。MovePrevious Command1(2）。Enabled = True Command1(3).Enabled = True Case 2： rs。MoveNext Command1（0）.Enabled = True Command1（1)。Enabled = True Case 3: rs。MoveLast End Select displayInfoEnd IfGoTo ok：Err:Call dataOverok：End SubPrivate Sub dataOver()If rs。BOF Then Command1（0）.Enabled = False Command1(1)。Enabled = False Command1(2)。Enabled = True Command1(3）.Enabled = True rs.MoveFirstElse If rs.EOF Then rs。MoveLast 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 IfEnd IfEnd SubPrivate Sub Command2_Click（Index As Integer)On Error GoTo errDealIf Index = 0 Or Index = 2 Then CanSave （True)Else CanSave (False）End IfSelect Case IndexCase 0： rs。AddNew Call toNullCase 1: j = MsgBox（”你确定要删除本记录吗？”， vbYesNo + vbQuestion, ”删除”) If j = vbYes Then rs。Delete Call toNull End IfCase 2:rs。Deleters。AddNewCase 3: If Len(LTrim$(RTrim（Text1（0)。Text）) 0 Then rs.AddNew For i = 0 To 2 If Len(LTrim（RTrim(Text1（i）。Text） 0 Then rs。Fields（i） = Text1（i）.Text End If Next i rs。Update Else MsgBox ”姓名不得为空， vbOKOnly + vbExclamation， ”Error” End IfCase 4: For i = 0 To 2 Text1(i)。Text = strBak（i) Next i Call Command2_Click(3）End SelectExit SuberrDeal：MsgBox database Error”， vbExclamation + vbOKOnly, ”error”okEnd:End SubPrivate Sub CanSave（ok As Boolean)Frame1。Enabled = Not okFrame3。Enabled = ok For i = 0 To 4 If i 3 Then Command2(i)。Enabled = Not ok Else Command2(i）。Enabled = ok End If Next iEnd SubPrivate Sub Form_Load(）Dim cnt As IntegerSet con = New ADODB。ConnectionSet rs = New ADODB。RecordsetSet qrs = New ADODB。RecordsetProvider=Microsoft.Jet.OLEDB。3.51；Persist Security Info=False;Data Source=C：WINDOWSDesktopdataUse。mdb”con。Open ”provider=Microsoft.Jet.OLEDB。4。0； data source= ” & App.Path ”dataUse。mdb”rs。Open select from teacher”, con， adOpenStatic, adLockOptimisticIf rs。RecordCount 0 Then rs。MoveFirst displayInfo CanSave (False)Else new data CanSave （True） Call Command2_Click（0）End IfEnd SubPrivate Sub displayInfo() i = j = 0 For i = 0 To 2 Text1(i）.Text = ” If Len（rs。Fields（i）) 0 Then Text1(i）。Text = rs.Fields（i) strBak（i) = Text1(i）。Text End If Next iEnd SubPrivate Sub toNull(） For i = 0 To 2 Text1（i)。Text = ” strBak（i） = ” Next iEnd SubPrivate Sub Form_Unload（Cancel As Integer)On Error GoTo KKrs.CloseSet rs = Nothingqrs.CloseSet qrs = notingcon.CloseSet con = NothingKK：End SubPrivate Sub queryComm_Click（） slSql = ”select from Teacher where cTrname = ” + Text1（3）.Text + ” qrs.Open slSql， con， adOpenStatic If Not qrs。EOF Then qrs.MoveFirst i = j = 0 For i = 0 To 2 Text1(i）。Text = If Len（qrs。Fields(i） 0 Then Text1(i）.Text = qrs。Fields(i） strBak(i) = Text1（i）。Text End If Next i End If qrs.CloseEnd Sub3。 排课管理界面代码分析：Option ExplicitDim conn As ADODB。ConnectionDim rsTr As ADODB。RecordsetDim rsSj As ADODB。RecordsetDim i, j， sjCnt As IntegerDim ClassCode As StringDim TrChanged， ClassChanged As BooleanDim strSql As StringDim rsTrAry As ADODB。RecordsetDim rsClassAry As ADODB.RecordsetDim StrTr（9) As StringDim strSj（49） As StringDim minht， maxHt As IntegerPrivate Sub EnableSave（ok As Boolean)Dim k As IntegerFor k = 0 To 3 If k 2 Then cb（k)。Enabled = Not ok Else cb（k）.Enabled = ok End IfNext kFrame7.Enabled = Not okFrame2。Enabled = okFrame3。Enabled = okEnd SubPrivate Sub cb_Click（Index As Integer）Me。MousePointer = 11On Error GoTo errDealSelect Case IndexCase 0: ClassCode = Trim（Combo1（0）.Text） ”.” Trim（Combo1（1)。Text) If Len（Trim(Combo1（0)。Text)） 0 And Len（ClassCode） 1 Then Call displayInfo cb(1）。Enabled = True End IfCase 1: cb_Click (0） EnableSave （True） cb(1）.Enabled = FalseCase 2: If TrChanged Then strSql = delete from trclass where cclasscode= ClassCode & ” conn。Execute strSql Dim strTrName As String For i = 0 To sjCnt 1 strTrName = Trim（Combo2(i).Text） If Len(strTrName) 0 Then strSql = ”insert into trclass values（” ClassCode ” ，” + + Trim（Label2（i）.Caption） + ” ，” + ” + Trim（Combo2(i）。Text) + ）” me。caption = strSql conn。Execute strSql End If Next i TrChanged = False rsTrAry。Requery cb(1）.Enabled = False End If If ClassChanged Then conn.Execute delete from classarray where cclasscode= ClassCode ” Dim X， Y As Integer For i = 0 To 49 Y = i Mod 5 + 1 X = Int(i / 5） + 1 If Len(Trim（Combo3（i).Text） 0 Then strSql = insert into classarray values(” ClassCode & ” ,” & Y ，” & X ”, ” & Trim（Combo3(i)。Text) & ）” me。caption = strSql conn。Execute strSql End If Next i ClassChanged = False rsClassAry。Requery End If EnableSave （False）Case 3： For i = 0 To sjCnt - 1 Combo2（i）。Text = Combo2（i)。Tag Next i For i = 0 To 49 Combo3（i)。Text = Combo3(i).Tag Next i EnableSave (False) cb(1）。Enabled = FalseEnd SelectGoTo okerrDeal：MsgBox ”Error Unknown”ok：Me。MousePointer = 0End SubPrivate Sub displayInfo（）For j = 0 To sjCnt 1 strSql = select cteacher from trclass where cclasscode=” ClassCode ” and csubject=” & Trim（Label2（j)。Caption） ” Text1.Text = strSql me。caption = strSql Set rsTrAry = conn.Execute(strSql） Dim tpRs As ADODB。Recordset Set tpRs = conn.Execute（”select cteacher from trclass where cclasscode= ClassCode ” and csubject=” Trim（Label2(j).Caption） ”) Text1.Text = ”# strSql #” While Not tpRs。EOF Text1。Text = Text1.Text + tpRs.Fields（0) tpRs.MoveNext Wend 这里用另一种方法创建 recordset rsTrAry. If Not rsTrAry.EOF Then rsTrAry.MoveFirst Combo2(j).Text = rsTrAry.Fields（0） rsTrAry！cteacher Combo2(j)。Tag = rsTrAry.Fields(0） rsTrAry！cteacher EnableSave (False） Else MsgBox ”nodata, vbOKOnly Combo2（j)。Text = ” Combo2（j）。Tag = ” EnableSave (True) 这里语句可能出错 End IfNext jFor i = 0 To 49 Dim X， Y As Integer X = Int（i / 5 + 1） Y = i Mod 5 + 1 strSql = ”select csjname from classarray where cclasscode= ClassCode ” and itimew=” & Y & ” and itimen=” X me。caption = strSql rsClassAry.Open strSql， conn， adOpenStatic, adLockOptimistic Set rsClassAry = conn。Execute（strSql) If Not rsClassAry.EOF Then Combo3(i).Text = rsClassAry.Fields(0） Combo3（i).Tag = rsClassAry。Fields（0） EnableSave （False） Else Combo3(i）.Text = ” Combo3(i)。Tag = ” EnableSave （True） End IfNext iEnd SubPrivate Function Trim（str As String） As StringTrim = LTrim$(RTrim$（str）End FunctionPrivate Sub Combo2_Change(Index As Integer）TrChanged = TrueEnd SubPrivate Sub Combo3_Change(Index As Integer） ClassChanged = TrueEnd SubPrivate Sub Command1_Click()Timer1.Enabled = TrueEnd SubPrivate Sub Form_Load（）Me。MousePointer = 11Set conn = New ADODB。ConnectionSet rsTr = New ADODB。RecordsetSet rsSj = New ADODB。RecordsetSet rsTrAry = New ADODB.RecordsetSet rsClassAry = New ADODB.RecordsetProvider=Microsoft.Jet.OLEDB。3。51;Persist Security Info=False；Data Source=C:WINDOWSDesktopdataUse.mdb”conn.Open provider=Microsoft.Jet.OLEDB.4.0； data source= ” App。Path ”dataUse。mdb”rsTr。Open ”select from teacher， conn， adOpenStatic， adLockOptimisticrsSj.Open select * from subject， conn, adOpenStatic, adLockOptimisticminht = 4090maxHt = 9000sjCnt = rsSj.RecordCountCall comboInitEnableSave (False）cb（1）.Enabled = FalseCommand1。Tag = ” 0 Then For j = 0 To trCnt 1 the last modified here.。.。.。.。. Combo2（i）。List（j） = Combo2(0)。List（j） Next j Else rsTr.MoveFirst While Not rsTr.EOF Combo2(i）。AddItem （rsTr。Fields(0）) rsTr。MoveNext Wend End IfNext iFor i = 0 To 49 Combo3(i）.Text = For j = 0 To sjCnt 1 Combo3（i)。AddItem （Label2（j）。Caption) Next jNext iEnd SubPrivate Sub Form_Resize（) Frame3。Top = Me。Height Frame3.Height 520End SubPrivate Sub Form_Unload（Cancel As Integer）On Error GoTo Err：rsTr。ClosersSj。ClosersTrAry。ClosersClassAry.CloseSet rsTr = NothingSet rsSj = NothingSet rsTrAry = NothingSet rsClassAry = Nothingconn.CloseSet conn = NothingErr：End SubPrivate Sub Timer1_Timer（）If Command1。Caption = ” Then If Me.Height maxHt Then Me.Height = Me.Height + 150 Else Timer1。Enabled = False Command1.Caption = ” Command1。ToolTipText = ”收起课程表！” Me.Height = maxHt Timer2。Enabled = False Command1。BackColor = RGB（255， 255, 255） Shape2.BackColor = RGB（0， 100， 200） End IfElse If Me。Height minht Then Me。Height = Me。Height 150 Else Timer1。Enabled = False Command1.Caption = ” Command1。ToolTipText = 课程表在这里！ Me。Height = minht Timer2。Enabled = True End IfEnd IfEnd SubPrivate Sub Timer2_Timer(）Static r, g， b As Integerr = 100g = 50b = 20Command1.BackColor = RGB(r, g, b）Shape2。BackColor = RGB(255 - r， 255 g， 255 b）r = r + 15g = g + 39b = b + 87If r 255 Then r = 0End IfIf g 255 Then g = 0End IfIf b 255 Then b = 0End IfEnd Sub4。 教职员带课查询界面设计:代码分析：Option ExplicitDim conn As ADODB.ConnectionDim rs As ADODB。RecordsetDim rsTr As ADODB。RecordsetDim i， j， value， idx As IntegerDim strName， strSql As StringPrivate Type DataGetclass As StringSjname As StringTw As IntegerTn As IntegerEnd TypePrivate Sub Command1_Click（)On Error GoTo bnEndMe。MousePointer = 11Dim sSql