畢業(yè)設(shè)計(jì)-學(xué)生學(xué)籍管理系統(tǒng)系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)-資料下載頁(yè)
2024-12-03 19:01本頁(yè)面
【導(dǎo)讀】以及前端應(yīng)用程序的開(kāi)發(fā)兩個(gè)方面。對(duì)于前者要求建立起數(shù)據(jù)一致性和完整性強(qiáng)、數(shù)據(jù)安全性好的庫(kù)。而對(duì)于后者則要求應(yīng)用程序功能完備,易使用等特點(diǎn)。系統(tǒng)的核心是添加、修改。自動(dòng)地完成學(xué)生學(xué)籍的修改。此外，系統(tǒng)有完整的用戶(hù)添加、刪除和。密碼修改功能，并具備報(bào)表打印功能。地介紹了“學(xué)生學(xué)籍管理系統(tǒng)”課題開(kāi)發(fā)的整個(gè)過(guò)程。
【正文】 trKc As String Private Sub cmdExit_Click() Unload Me End Sub Private Sub cmdRegAdd_Click() 39。39。39。添加 nModeSys = 2 39。39。添加操作 學(xué)生學(xué)籍管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn) 26 Dim IDmax As String Dim i As Integer For i = 1 To Val(Txt(0).Text) Txt(i).Text = Next i = True End Sub Private Sub cmdRegDel_Click() 39。39。39。刪除 On Error GoTo Err Dim ss As Integer ss = MsgBox(真的刪除該記錄嗎？ , vbCritical + vbOKCancel, 系統(tǒng)提示 ) If ss = 1 Then If And Then For i = 1 To Val(Txt(0).Text) Txt(i).Text = Next i Else = adFilterNone If Not Then For i = 1 To Val(Txt(0).Text) If Not IsNull((i 1)) Then Txt(i) = (i 1) Else Txt(i) = End If Next i Else For i = 1 To Val(Txt(0).Text) Txt(i) = Next i End If End If End If Exit Sub Err: MsgBox , vbInformation + vbOKOnly, 系統(tǒng)提示 End Sub 學(xué)生學(xué)籍管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn) 27 Private Sub cmdRegFirst_Click() 39。39。39。 Dim i As Integer On Error GoTo Err If Not Then For i = 1 To Val(Txt(0).Text) If Not IsNull((i 1)) Then Txt(i) = (i 1) Else Txt(i) = End If Next i End If Exit Sub Err: End Sub Private Sub cmdRegLast_Click() 39。39。39。 Dim i As Integer On Error GoTo Err If Not Then For i = 1 To Val(Txt(0).Text) If Not IsNull((i 1)) Then Txt(i) = (i 1) Else Txt(i) = End If Next i End If Exit Sub Err: End Sub Private Sub cmdRegLook_Click() 39。39。 strLook = Trim() If strLook Then 1 學(xué)生學(xué)籍管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn) 28 End If End Sub Private Sub cmdRegNext_Click() 39。39。39。 Dim i As Integer On Error GoTo Err If Then If Not Then For i = 1 To Val(Txt(0).Text) If Not IsNull((i 1)) Then Txt(i) = (i 1) Else Txt(i) = End If Next i End If Else If Not Then For i = 1 To Val(Txt(0).Text) If Not IsNull((i 1)) Then Txt(i) = (i 1) Else Txt(i) = End If Next i End If End If Exit Sub Err: End Sub Private Sub cmdRegPrevious_Click() 39。39。39。 Dim i As Integer On Error GoTo Err If Then If Not Then For i = 1 To Val(Txt(0).Text) 學(xué)生學(xué)籍管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn) 29 If Not IsNull((i 1)) Then Txt(i) = (i 1) Else Txt(i) = End If Next i End If Else If Not Then For i = 1 To Val(Txt(0).Text) If Not IsNull((i 1)) Then Txt(i) = (i 1) Else Txt(i) = End If Next i End If End If Exit Sub Err: End Sub Private Sub cmdRegSave_Click() 39。39。39。保存 On Error GoTo Err Dim i As Integer If nModeSys = 1 Then If Then For i = 0 To Val(Txt(0).Text) 1 If Trim(Txt(i + 1).Text) = Then Else (i).Value = Trim(Txt(i + 1).Text) End If Next i ElseIf nModeSys = 2 Then For i = 0 To Val(Txt(0).Text) 1 學(xué)生學(xué)籍管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn) 30 If Trim(Txt(i + 1).Text) = Then Else (i).Value = Trim(Txt(i + 1).Text) End If Next i End If nModeSys = 0 = False MsgBox 操作已成功 !, vbInformation + vbOKOnly, 系統(tǒng)提示 Exit Sub Err: MsgBox , vbInformation + vbOKOnly, 系統(tǒng)提示 End Sub Private Sub LoadInfo() 39。39。選擇數(shù)據(jù)表 On Error GoTo Err Dim strSql As String strSql = select * from amp。 Trim() If Then strSql, CN, adOpenStatic, adLockOptimistic Dim i As Integer Dim k As Integer k = For i = 1 To 20 If k = 1 Then Load Txt(i) Load Lbl(i) End If Txt(i).Visible = False Lbl(i).Visible = False Next i For i = 1 To Txt(i).Visible = True Lbl(i).Visible = True Lbl(i).Caption = Trim((i 1).Name) Txt(i).Text = If i Mod 2 = 1 Then Lbl(i).Left = 50 Txt(i).Left = 1250 Else 學(xué)生學(xué)籍管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn) 31 Lbl(i).Left = 4420 Txt(i).Left = 5620 End If Lbl(i).Top = 120 + Int((i 1) / 2) * 500 + 120 Txt(i).Top = Lbl(i).Top 120 Next i Txt(0).Text = 39。39。用于記 錄字段數(shù) (列 ) If Not Then For i = 0 To Val(Txt(0).Text) 1 If Not IsNull((i)) Then Txt(i + 1) = Trim((i)) Else Txt(i + 1) = End If Next i End If Exit Sub Err: MsgBox , vbInformation + vbOKOnly, 系統(tǒng)提示 End Sub Private Sub Combo2_Click() 39。39。39。 Txt(CurrentIndex).Text = Trim() = False On Error GoTo Err If strTableName = 學(xué)生成績(jī)表 Then If Lbl(CurrentIndex).Caption = 學(xué)號(hào) Then If Txt(CurrentIndex).Text Then Dim rs1 As New If Then select 姓名 from 學(xué) 籍 信 息 表 where 學(xué)號(hào) =39。 amp。 Txt(CurrentIndex).Text amp。 39。, CN, adOpenStatic, adLockOptimistic If Not Then If Not IsNull((0)) Then Txt(CurrentIndex + 1).Text = Trim((0)) End If End If End If 學(xué)生學(xué)籍管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn) 32 End If Exit Sub Err: MsgBox , vbInformation + vbOKOnly, 系統(tǒng)提示 End Sub Private Sub Command1_Click() 39。39。修改 nModeSys = 1 = True End Sub Private Sub DTPicker1_Change() Txt(CurrentIndex).Text = DateChange() = False End Sub Private Sub DTPicker1_Click() Txt(CurrentIndex).Text = Dat
公司管理相關(guān)推薦
鄂ICP備17016276號(hào)-1