【文章內(nèi)容簡介】 理”窗口；而普通用戶則直接單擊“登錄”按鈕進(jìn)入“普通用戶學(xué)生學(xué)籍窗口”。（1）管理員登錄代碼：Private Sub Command1_Click()Dim db As New Dim rs As New Dim sql As String=Provider=。DataSource=E:\zlf\。Persist Security Info=Falsesql = select * from 用戶管理表 sql, db, adOpenStatic, adLockReadOnlyWhile = False If (0).Value = Then If (1).Value = Then Else MsgBox (密碼錯誤,請重新輸入！) End If End If WendEnd SubPrivate Sub Command2_Click()End Sub（2）普通用戶窗口代碼Private Sub Command3_Click()End SubPrivate Sub Command4_Click()End Sub圖43信息管理窗口信息管理包括“學(xué)生學(xué)籍信息管理、學(xué)生學(xué)籍成績管理、學(xué)生學(xué)籍檔案管理、用戶管理”，下設(shè)相應(yīng)的子菜單。管理員可根據(jù)需要進(jìn)行內(nèi)容的查詢、添加、刪除等。（1）（學(xué)生學(xué)籍信息管理）信息查詢窗口彈出代碼：Private Sub xxcx_Click(Index As Integer)End Sub（2）（學(xué)生學(xué)籍信息管理）信息添加窗口彈出代碼：Private Sub xxtj_Click(Index As Integer)End Sub（3）（學(xué)生學(xué)籍信息管理）信息修改窗口彈出代碼：Private Sub xxg_Click(Index As Integer)End Sub（4）（學(xué)生學(xué)籍成績管理）成績查詢窗口彈出代碼：Private Sub chjcx_Click(Index As Integer)End Sub（5）（學(xué)生學(xué)籍成績管理）成績添加窗口彈出代碼：Private Sub chjtj_Click(Index As Integer)End Sub（6）（學(xué)生學(xué)籍成績管理）成績修改窗口彈出代碼：Private Sub chjxg_Click(Index As Integer)End Sub（7）（學(xué)生學(xué)籍檔案管理）檔案查詢窗口彈出代碼：Private Sub dacx_Click(Index As Integer)End Sub（8）（學(xué)生學(xué)籍檔案管理）注冊查詢窗口彈出代碼：Private Sub dazccx_Click(Index As Integer)End Sub（9）（用戶管理）用戶修改窗口彈出代碼：Private Sub yhxg_Click(Index As Integer)End Sub（10）（用戶管理）用戶添加窗口彈出代碼：Private Sub yhtj_Click(Index As Integer)End Sub（11）信息管理返回按鈕代碼：Private Sub Command1_Click()End Sub圖44 查詢學(xué)生信息窗口用戶選擇所要查詢的對象，單擊“確定”按鈕，得出相應(yīng)信息。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 學(xué)生信息表 sql, db, adOpenStatic, adLockReadOnlysql1 = select * from 學(xué)生信息表 where 姓名=39。 amp。 kl amp。 39。 sql1, db, adOpenStatic, adLockReadOnly If = 0 Then MsgBox 表內(nèi)無記錄 39。如果為空，彈出對話框 Else 39。如果不為空，定位到選定的記錄 = (0).Value = (1).Value 39。顯示相應(yīng)字段的內(nèi)容 = (2).Value = (3).Value = (4).Value = (5).Value = (6).Value = (7).Value = (8).Value = (9).Value MsgBox (查詢成功) End IfEnd SubPrivate Sub Command2_Click()End Sub圖45 添加學(xué)生信息窗口管理員在空白欄中正確輸入所要添加的信息，單擊“添加”按鈕即可添加成功。Private Sub Command1_Click()Dim db As New Dim rs As New Dim sql, rt As StringDim zy, bj, xh, xm, xb, jg, csny, jtzz, lxdh, zzmm, bz As String = Provider=。Data Source=E:\zlf\。Persist Security Info=Falsesql = select * from 學(xué)生信息表 sql, db, adOpenStatic, adLockOptimistic(0).Value = (1).Value = (2).Value = (3).Value = (4).Value = (5).Value = (6).Value = (7).Value = (8).Value = (9).Value = (10).Value = MsgBox (增加成功) = = = = = = = = = = = End SubPrivate Sub Command2_Click()Unload MeEnd Sub圖46 修改學(xué)生信息窗口管理員可根據(jù)需要對學(xué)生信息進(jìn)行修改（在相應(yīng)信息處正確進(jìn)行修改），修改完畢后單擊“修改”按鈕即可成功修改學(xué)生信息。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, xb, jg, csny, jtzz, lxdh, zzmm, bz As String = Provider=。Data Source=E:\zlf\。Persist Security Info=Falsesql = select * from 學(xué)生信息表 sql, db, adOpenStatic, adLockOptimistica = update 學(xué)生信息表 set 專業(yè)= 39。 amp。 amp。 39。,班級= 39。 amp。 amp。 39。,學(xué)號= 39。 amp。 amp。 39。,姓名= 39。 amp。 amp。 39。,性別=39。 amp。 amp。 39。,出生年月= 39。 amp。 amp。 39。,家庭住址= 39。 amp。 amp。 39。,聯(lián)系電話=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圖47成績查詢窗口管理員根據(jù)需要選擇所要查詢的對象，單擊“查詢”按鈕即可查詢成功。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 學(xué)生成績表1 sql, db, adOpenStatic, adLockReadOnlysql1 = select * from 學(xué)生成績表1 where 學(xué)號=39。 amp。 kl amp。 39。 sql1, db, adOpenStatic, adLockReadOnly If = 0 Then MsgBox 表內(nèi)無記錄 39。如果為空，彈出對話框 Else 39。如果不為空，定位到選定的記錄 = (0).Value = (1).Value 39。顯示相應(yīng)字段的內(nèi)容 = (2).Value = (3).Value = (4).Value = (5).Value = (6).Value = (7).Value = (8).Value = (9).Value MsgBox (查詢成功) End IfEnd SubPrivate Sub Command2_Click()Unload MeEnd Sub圖48添加學(xué)生成績窗口管理員在空白欄中正確輸入所要添加的信息，單擊“添加”按鈕即可添加成功。Private Sub Command1_Click()Dim db As New Dim rs As New Dim sql, rt As StringDim zy, bj, xh, xm, jsjwl, jsjzcyl, jsjyyytg, glxxxt, xxflgc, bgrj, bz As String = Provider=。Data Source=E:\zlf\。Persist Security Info=Falsesql =