【正文】 ick()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=。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ù)需要對(duì)學(xué)生信息進(jìn)行修改（在相應(yīng)信息處正確進(jìn)行修改），修改完畢后單擊“修改”按鈕即可成功修改學(xué)生信息。Data Source=E:\zlf\。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。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=。Persist Security Info=Falsesql = select * from 學(xué)生成績(jī)表1 sql, db, adOpenStatic, adLockReadOnlysql1 = select * from 學(xué)生成績(jī)表1 where 學(xué)號(hào)=39。 kl amp。 sql1, db, adOpenStatic, adLockReadOnly If = 0 Then MsgBox 表內(nèi)無(wú)記錄 39。如果不為空，定位到選定的記錄 = (0).Value = (1).Value 39。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=。Persist Security Info=Falsesql = select * from 學(xué)生成績(jī)表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修改學(xué)生成績(jī)窗口管理員可根據(jù)需要對(duì)學(xué)生信息進(jìn)行修改（在相應(yīng)信息處正確進(jìn)行修改），修改完畢后單擊“修改”按鈕即可成功修改學(xué)生信息。Data Source=E:\zlf\。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。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=。Persist Security Info=Falsesql = select * from 學(xué)生檔案表 sql, db, adOpenStatic, adLockReadOnlysql1 = select * from 學(xué)生檔案表 where 學(xué)號(hào)=39。 kl amp。 sql1, db, adOpenStatic, adLockReadOnly If = 0 Then MsgBox 表內(nèi)無(wú)記錄 39。如果不為空，定位到選定的記錄 = (0).Value = (1).Value 39。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=。Persist Security Info=Falsesql = select * from 學(xué)生注冊(cè)表 sql, db, adOpenStatic, adLockReadOnlysql1 = select * from 學(xué)生注冊(cè)表 where 姓名=39。 kl amp。 sql1, db, adOpenStatic, adLockReadOnly If = 0 Then MsgBox 表內(nèi)無(wú)記錄 39。如果不為空，定位到選定的記錄 = (0).Value = (1).Value 39。單擊“修改”即可成功。Data Source=E:\zlf\。 amp。 39。 amp。 39。 amp。 39。 amp。 39。單擊“添加”按鈕即可添加成功。Data Source=E:\zlf\。普通用戶(hù)根據(jù)需要對(duì)所需的信息進(jìn)行查詢(xún)。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=。Persist Security Info=Falsesql = select * from 學(xué)生信息表 sql, db, adOpenStatic, adLockReadOnlysql1 = select * from 學(xué)生信息表 where 姓名=39。 kl amp。 sql1, db, adOpenStatic, adLockReadOnly If = 0 Then MsgBox 表內(nèi)無(wú)記錄 39。如果不為空，定位到選定的記錄 = (0).Value = (1).Value 39。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=。Persist Security Info=Falsesql = select * from 學(xué)生成績(jī)表1 sql, db, adOpenStatic, adLockReadOnlysql1 = select * from 學(xué)生成績(jī)表1 where 姓名=39。 kl amp。 sql1, db, adOpenStatic, adLockReadOnly If = 0 Then MsgBox 表內(nèi)無(wú)記錄 39。如果不為空，定位到選定的記錄 = (0).Value = (1).Value 39。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=。Persist Security Info=Falsesql = select * from 學(xué)生檔案表 sql, db, adOpenStatic, adLockReadOnlysql1 = select * from 學(xué)生檔案表 where 姓名=39。 kl amp。 sql1, db, adOpenStatic, adLockReadOnly If = 0 Then MsgBox 表內(nèi)無(wú)記錄 39。如果不為空，定位到選定的記錄 = (0).Value = (1).Value 39。系統(tǒng)管理與維護(hù)的人員構(gòu)成應(yīng)該包括：系統(tǒng)管理人員，系統(tǒng)維護(hù)人員，系統(tǒng)操作人員，資料管理人員。具有著手工管理所無(wú)法比擬的優(yōu)點(diǎn)，例如：檢查迅速，查找方便，可靠性大，存儲(chǔ)量大，保密性好，壽命長(zhǎng)，成本低等。整個(gè)系統(tǒng)從符合操作簡(jiǎn)便、界面友好、靈活、實(shí)用、安全的要求出發(fā)。其功能基本符合用戶(hù)需求，能夠完成學(xué)生學(xué)籍的存儲(chǔ)和成績(jī)的查詢(xún)以及各類(lèi)相關(guān)信息的使用。通過(guò)這次的“學(xué)校學(xué)生學(xué)籍管理信息系統(tǒng)”的系統(tǒng)設(shè)計(jì)，我們知道了做這樣的一個(gè)設(shè)計(jì)的思路，應(yīng)該從什么地方著手。這次的課程設(shè)計(jì)過(guò)程中我們感到時(shí)間的緊張，人也很疲憊，但當(dāng)我們完成我們作品的那一刻，所有的緊張，所有的疲憊都忘記了。我們所做的設(shè)計(jì) “學(xué)校學(xué)生學(xué)籍管理信息系統(tǒng)”是集聚了全組每一位設(shè)計(jì)成員的心思。在系統(tǒng)的設(shè)計(jì)過(guò)程中，我們也遇到了一些困難和迷惑。這次我們不但收獲了我們努力的成果——“學(xué)校學(xué)生學(xué)籍管理信息系統(tǒng)”，我們還從中充分感受到了團(tuán)隊(duì)合作的高效性。這對(duì)于我們?cè)谝院蟮陌l(fā)展中具有深遠(yuǎn)的影響。老師們認(rèn)真負(fù)責(zé)的工作態(tài)度，嚴(yán)謹(jǐn)?shù)闹螌W(xué)精神和深厚的理論水平都使我們受益匪淺。這對(duì)于我們以后的工作和學(xué)習(xí)都是一種意義深遠(yuǎn)的幫助，感謝他們耐心的輔導(dǎo)，才使得我們的系統(tǒng)設(shè)計(jì)能夠順利完成。是狼就要練好牙，是羊就要練好腿。不奮斗就是每天都很容易，可一年一年越來(lái)越難。拼一個(gè)春夏秋冬！贏一個(gè)無(wú)悔人生！早安！—————獻(xiàn)給所有努力的人.