1、毕业设计 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 da
2、taOver()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 ”
3、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
4、 + 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 + vbExcl
5、amation, ”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
6、 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:WINDOWSDesktopda
7、taUse。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 d
8、isplayInfo() 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
9、.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。
10、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
11、 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
12、 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 displa
13、yInfo 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 Th
14、en 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 wh
15、ere 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 ClassChang
16、ed = 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 SubPrivat
17、e 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
18、 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
19、!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 wh
20、ere 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 (Fal
21、se) 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 S
22、ubPrivate 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;Persi
23、st 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 =
24、 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
25、 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.Clo
26、seSet 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 =
27、 ”收起课程表!” 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
28、 = 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。 教职员带课查询界面设
29、计:代码分析: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
©2010-2024 宁波自信网络信息技术有限公司 版权所有
客服电话:4008-655-100 投诉/维权电话:4009-655-100