【正文】 列表 調(diào)用 選擇或輸入要修改的信息 修改信息 數(shù)據(jù)庫 修改成功 更新 提示錯誤 選擇或輸入要刪除的信息 數(shù)據(jù)庫 刪除 刪除成功 10 數(shù)據(jù)庫設計 需求分析 在學生信息管理系統(tǒng)操作流程分析的基礎上，下面列出了學生信息管理系統(tǒng)的數(shù)據(jù)項和數(shù)據(jù)結構。 2. 課程信息：課程名、備注。 4. 班級課程信息：班級編號、課程名。 6. 學生成績信息：成績編號、考試期號、學 生班號、學號、考試課程、考試成績。 根據(jù)上面的數(shù)據(jù)項和數(shù)據(jù)結構規(guī)劃出的實體有：班級信息實體、班級課程實體、學生檔案實體、學生成績實體。 根據(jù)設計的圖書管理系統(tǒng)的 ER 圖，設計的關系模式在 access 2020 中實現(xiàn)， 新建數(shù)據(jù)庫名為 。 本系統(tǒng)設計思想：“為用戶設計，而不是設計者” 本系統(tǒng)設計原則： 1 界面美觀、操作方便并能高效率地完成工 作。 3 界面能引導用戶操作的功能，并能提供一些幫助功能。 amp。 39。 amp。 amp。H8000000E = 12 = True End Sub Private Sub Form_Resize() = 0 = 0 = = = = = 100 End Sub Private Sub Timer1_Timer() i = i + 50 = i If i + Then i = End If End Sub 18 2. 主頁面 圖 313 相關代碼： Private Sub chengji_Click() End Sub Private Sub class_Click() End Sub Private Sub dangan_Click() End Sub Private Sub denglu_Click() Unload Me End Sub Private Sub jiangcheng_Click() End Sub Private Sub kecheng_Click() 19 End Sub Private Sub MDIForm_Load() = sbrSimple = 1000 End Sub Private Sub MDIForm_Resize() If 1100 Then = 1100 End If If 180 Then = 180 End If End Sub Private Sub Timer1_Timer() = Date amp。 Time End Sub Private Sub tuchu_Click() End End Sub Private Sub tuichu_Click() End End Sub Private Sub user_Click() 20 4．用戶管理界面 圖 314 圖 315 21 圖 316 相關代碼： Dim mrc As Private Sub Command1_Click() Dim txtSQL As String Dim c As String If Text1(0) = Then MsgBox 用戶名不能為空 !, vbOKOnly, 提示 Text1(0).SetFocus Exit Sub End If If Text1(1) = Then MsgBox 用戶密碼不能為空 !, vbOKOnly, 提示 Text1(1).SetFocus Exit Sub Else If Text1(2).Text Text1(1).Text Then MsgBox 兩次輸入的密碼不一樣，請重新輸入 !, vbOKOnly, 提示 Text1(1).Text = Text1(2).Text = Text1(1).SetFocus Exit Sub 22 End If End If txtSQL = select * from 系統(tǒng)用戶表 Set mrc = New c = provider=。 data source= amp。 /Data/ c txtSQL, conn, adOpenStatic, adLockPessimistic (0) = Trim(Text1(0)) (1) = Trim(Text1(1)) For i = 0 To 2 Text1(i) = Next MsgBox 用戶信息添加成功 !, vbOKOnly, 提示 Listapp End Sub Private Sub Command2_Click() Text1(0) = Text1(1) = Text1(2) = End Sub Private Sub Command3_Click() Dim txtSQL As String Dim co As String Set mrc = New If Text1(3) = Then MsgBox 請你選擇用戶名稱 !, vbOKOnly, 提示 Exit Sub End If If Text1(4) = Then MsgBox 修改密碼需要舊密碼 !, vbOKOnly, 警告 Text1(4).SetFocus Exit Sub End If If Text1(5) = Then 23 MsgBox 新的密碼不能為空 !, vbOKOnly, 提示 Text1(5).SetFocus Exit Sub Else If Text1(5) Text1(6) Then MsgBox 兩次密碼輸入不同 !, vbOKOnly, 提示 Text1(5) = Text1(6) = Text1(5).SetFocus Exit Sub End If End If co = provider=。 data source= amp。 /Data/ co txtSQL = select * from 系統(tǒng)用戶表 where 用戶名 =39。 Trim(Text1(3)) amp。and 密碼 =39。 Trim(Text1(4)) amp。 txtSQL, conn, adOpenStatic, adLockPessimistic If = False Then txtSQL = delete from 系統(tǒng)用戶表 where 用戶名 =39。 Trim(Text1(3)) amp。 Else MsgBox 用戶密碼輸入錯誤 !, vbOKOnly, 警告 Text1(4).SetFocus Exit Sub End If co txtSQL, conn, adOpenStatic, adLockPessimistic txtSQL = select * from 系統(tǒng)用戶表 txtSQL, conn, adOpenStatic, adLockPessimistic (0) = Trim(Text1(3)) (1) = Trim(Text1(5)) For i = 3 To 6 Text1(i) = Next MsgBox 用戶信息修改成功 !, vbOKOnly, 提示 End Sub Private Sub Command4_Click() Text1(3) = Text1(4) = Text1(5) = 24 Text1(6) = End Sub Private Sub Command5_Click() Dim txtSQL As String Dim co As String If Text1(7).Text = Then MsgBox 請您選擇用戶名稱 , vbOKOnly, 提示 Text1(7).SetFocus Exit Sub Else If Text1(7) = UserName Then MsgBox 不 可一刪除正在使用的用戶！ , vbOKOnly, 提示 Text1(7).Text = Text1(7).SetFocus Exit Sub End If End If If Text1(8) = Then MsgBox 刪除用戶需要密碼！ , vbOKOnly, 提示 Text1(7).SetFocus Exit Sub End If Set mrc = New co = provider=。 data source= amp。 /Data/ co txtSQL = select * from 系統(tǒng)用戶表 where 用戶名 =39。 Trim(Text1(7)) amp。and 密碼 =39。 Trim(Text1(8)) amp。 txtSQL, conn, adOpenStatic, adLockPessimistic If = False Then txtSQL = delete from 系統(tǒng)用戶表 where 用戶名 =39。 Trim(Text1(7)) amp。 Else MsgBox 用戶密碼輸入錯誤 !, vbOKOnly, 警告 Text1(8).SetFocus Exit Sub End If co txtSQL, conn, adOpenStatic, adLockPessimistic Text1(7) = Text1(8) = MsgBox 用戶信息已經(jīng)刪除 !, vbOKOnly, 提示 25 Listapp End Sub Private Sub Command6_Click() Text1(7) = Text1(8) = End Sub Private Sub Form_Load() = 用戶信息 添 加 Picture1(1).Top = Picture1(0).Top Picture1(1).Left = Picture1(0).Left Picture1(2).Top = Picture1(0).Top Picture1(2).Left = Picture1(0).Left Listapp For i = 0 To 2 Label2(i).BackColor = amp。HFFFFFF Picture1(0).Visible = True End Sub Private Sub Label2_Click(Index As Integer) = 用戶信息 = amp。 Trim(Label2