【正文】 select * from 學生成績表1 sql, db, adOpenStatic, adLockOptimistic(0).Value = (1).Value = (2).Value = (3).Value = (4).Value = (5).Value = (6).Value = (7).Value = (8).Value = (9).Value = MsgBox (增加成功) = = = = = = = = = = = End SubPrivate Sub Command2_Click()Unload MeEnd Sub圖49修改學生成績窗口管理員可根據需要對學生信息進行修改（在相應信息處正確進行修改），修改完畢后單擊“修改”按鈕即可成功修改學生信息。Private Sub Command1_Click()Dim db As New Dim rs As New Dim gg As New Dim sql, rt As StringDim z, a As StringDim zy, bj, xh, xm, jsjwl, jsjzcyl, jsjyyytg, glxxxt, xxfgc, bgrj, bz As String = Provider=。Data Source=E:\zlf\。Persist Security Info=Falsesql = select * from 學生成績表1 sql, db, adOpenStatic, adLockOptimistica = update 學生成績表1 set 專業(yè)= 39。 amp。 amp。 39。,班級= 39。 amp。 amp。 39。,學號= 39。 amp。 amp。 39。,姓名= 39。 amp。 amp。 39。,計算機網絡=39。 amp。 amp。 39。,計算機組成原理= 39。 amp。 amp。 39。,計算機應用與提高= 39。 amp。 amp。 39。,管理信息系統(tǒng)=39。 amp。 amp。 39。,信息法律規(guī)程= 39。 amp。 amp。 39。,辦公軟件= 39。 amp。 amp。 39。,備注= 39。 amp。 amp。 39。 where 姓名= 39。 amp。 z amp。 39。 a, db, adOpenStatic, adLockOptimisticMsgBox ( 修改成功)End SubPrivate Sub Command2_Click()Unload MeEnd Sub圖410檔案查詢窗口管理員根據需要選擇所要查詢的對象，單擊“查詢”按鈕即可查詢成功。Private Sub Command1_Click()Dim kl As StringDim db As New Dim rs As New Dim sql As StringDim rs1 As New Dim sql1 As String kl = = Provider=。Data Source=E:\zlf\。Persist Security Info=Falsesql = select * from 學生檔案表 sql, db, adOpenStatic, adLockReadOnlysql1 = select * from 學生檔案表 where 學號=39。 amp。 kl amp。 39。 sql1, db, adOpenStatic, adLockReadOnly If = 0 Then MsgBox 表內無記錄 39。如果為空，彈出對話框 Else 39。如果不為空，定位到選定的記錄 = (0).Value = (1).Value 39。顯示相應字段的內容 = (2).Value = (3).Value = (4).Value = (5).Value = (6).Value = (7).Value = (8).Value = (9).Value = (10).Value = (11).Value = (12).Value MsgBox (查詢成功) End If End SubPrivate Sub Command2_Click()Unload MeEnd Sub圖411注冊查詢窗口管理員根據需要選擇所要查詢的對象，單擊“查詢”得到該對象的注冊信息。Private Sub Command1_Click()Dim kl As StringDim db As New Dim rs As New Dim sql As StringDim rs1 As New Dim sql1 As String kl = = Provider=。Data Source=E:\zlf\。Persist Security Info=Falsesql = select * from 學生注冊表 sql, db, adOpenStatic, adLockReadOnlysql1 = select * from 學生注冊表 where 姓名=39。 amp。 kl amp。 39。 sql1, db, adOpenStatic, adLockReadOnly If = 0 Then MsgBox 表內無記錄 39。如果為空，彈出對話框 Else 39。如果不為空，定位到選定的記錄 = (0).Value = (1).Value 39。顯示相應字段的內容 = (2).Value = (3).Value = (4).Value = (5).Value = (6).Value MsgBox (查詢成功) End IfEnd SubPrivate Sub Command2_Click()Unload MeEnd Sub圖412用戶修改窗口管理員根據需要修改用戶權限信息。單擊“修改”即可成功。Private Sub Command1_Click()Dim db As New Dim rs As New Dim gg As New Dim sql, rt As StringDim z, a As StringDim yhm, mm, bz As String = Provider=。Data Source=E:\zlf\。Persist Security Info=Falsesql = select * from 用戶管理表 sql, db, adOpenStatic, adLockOptimistica = update 用戶管理表 set 用戶名= 39。 amp。 amp。 39。,密碼= 39。 amp。 amp。 39。,備注= 39。 amp。 amp。 39。 where 用戶名= 39。 amp。 z amp。 39。MsgBox ( 修改成功)End SubPrivate Sub Command2_Click()Unload MeEnd Sub圖413用戶添加窗口管理員根據需要添加用戶信息。單擊“添加”按鈕即可添加成功。Private Sub Command1_Click()Dim db As New Dim rs As New Dim sql, rt As StringDim yhm, mm, bz As String = Provider=。Data Source=E:\zlf\。Persist Security Info=Falsesql = select * from 用戶管理表 sql, db, adOpenStatic, adLockOptimistic(0).Value = (1).Value = (2).Value = MsgBox (增加成功) = = = End SubPrivate Sub Command2_Click()Unload MeEnd Sub圖414普通用戶學生學籍管理窗口普通用戶學生學籍管理包括“學生學籍信息管理、學生學籍成績管理、學生學籍檔案管理”的查詢。普通用戶根據需要對所需的信息進行查詢。（1）普通用戶學生成績查詢窗口彈出代碼Private Sub cjcx_Click()End Sub（2）普通用戶學生學籍窗口“返回”代碼Private Sub Command1_Click()End Sub（3）普通用戶學生檔案查詢窗口彈出代碼Private Sub dacx_Click(Index As Integer)End Sub（4）普通用戶學生信息查詢窗口彈出代碼Private Sub xxcx_Click(Index As Integer)End Sub圖415普通用戶學生信息查詢窗口普通用戶根據需要選擇所要查詢的對象，單擊“確定”按鈕查詢成功。Private Sub Command1_Click()Dim kl As StringDim db As New Dim rs As New Dim sql As StringDim rs1 As New Dim sql1 As String kl = = Provider=。Data Source=E:\zlf\。Persist Security Info=Falsesql = select * from 學生信息表 sql, db, adOpenStatic, adLockReadOnlysql1 = select * from 學生信息表 where 姓名=39。 amp。 kl amp。 39。 sql1, db, adOpenStatic, adLockReadOnly If = 0 Then MsgBox 表內無記錄 39。如果為空，彈出對話框 Else 39。如果不為空，定位到選定的記錄 = (0).Value = (1).Value 39。顯示相應字段的內容 = (2).Value = (3).Value = (4).Value = (5).Value = (6).Value = (7).Value = (8).Value = (9).Value MsgBox (查詢成功)