【導(dǎo)讀】辦學(xué)者們所頭疼的問題，就是如何面對(duì)這龐大的信息量。通過這樣的系統(tǒng)，可以做到信息的規(guī)范管理、科學(xué)統(tǒng)計(jì)和快速的查詢，從而。減少管理方面的工作量。隨著我國教育體制改革的深入進(jìn)行，教育系統(tǒng)得到了前所未有的發(fā)展。管理正在逐步邁向管理信息現(xiàn)代化。但是，我國的學(xué)生管理信息化水平還處在初。這就造成工作效率低、誤差大，也造成了人力、物力、財(cái)力資源的。與此同時(shí)，學(xué)校是培養(yǎng)國家棟梁之材的場(chǎng)所，無論是在教育，還是在管理。上都應(yīng)走在最前列，而其中管理又是學(xué)校運(yùn)轉(zhuǎn)良好的關(guān)鍵。前學(xué)校管理者所面臨的重要課題。行全面管理，對(duì)學(xué)生在校檔案、學(xué)生在校情況進(jìn)行全面管理。算機(jī)的技術(shù)可以使學(xué)生管理規(guī)范化。數(shù)據(jù),這對(duì)于查找、更新和維護(hù)都帶來了不少的困難。根據(jù)需求分析所需要的功能畫出E-R圖，在轉(zhuǎn)化成二維表；在畫出數(shù)據(jù)字典。詳細(xì)設(shè)計(jì)中主要是建立了關(guān)系型數(shù)據(jù)模型，E-R圖并轉(zhuǎn)換為二維表，建。清晰化、合理化。第一時(shí)間把握學(xué)生信息，以提高整體

　　

【正文】 0 .Row = 0 .RowSel = 1 .ColSel = .Cols 1 .CellAlignment = 4 .Row = 1 End With End Sub Public Sub showdata(ByVal MSF As MSHFlexGrid, ByVal sql As String) 39。對(duì) MSHFlexGrid1 控件錄入數(shù)據(jù)信息 Dim i As Integer sql, n, , , adCmdText With MSF .Rows = 10 .Row = 1 Do While Not .Rows = .Rows + 1 For i = 1 To .TextMatrix(.Row, i) = (i 1) Next i 第四章 系統(tǒng)實(shí)現(xiàn) 32 .Row = .Row + 1 Loop .Refresh End With End Sub Private Sub Form_Unload(Cancel As Integer) Unload Me End Sub 普通用戶學(xué)生成績(jī)查詢窗口 普通用戶根據(jù)需要選擇所要查詢的對(duì)象，單擊“確定”按鈕查詢成功。 Option Explicit Dim i As Integer, j As Integer Private n As New Private rs As New Dim strn Dim x1 As String, x2 As String, str As String Private Sub Combo1_Click() = End Sub Private Sub Command1_Click() x1 = Trim() x2 = Trim() If StrComp(x1, 班級(jí) ) = 0 Then str = select * from 學(xué)生成績(jī)表 where 班級(jí) =39。 amp。 x2 amp。 39。 Else str = select * from 學(xué)生成績(jī)表 where 姓名 =39。 amp。 x2 amp。 39。 End If str, n, , , adCmdText If = 0 Then MsgBox 該學(xué)生不存在，請(qǐng)重新輸入查詢條件！ , , 錯(cuò)誤 = Else 33 MSHFlexGrid1, str End If End Sub Private Sub Command2_Click() = End Sub Private Sub Command3_Click() Hide 信息管理 .Show End Sub Private Sub Form_Load() 班級(jí) 姓名 Set n = New strn = Provider=。 amp。 _ Data Source=39。 amp。 amp。 .\39。 strn Set rs = New = adOpenKeyset = adLockOptimistic End Sub Public Sub showtitle() 39。初始化 MSHFlexGrid1 With MSHFlexGrid1 .Cols = 7 .TextMatrix(0, 1) = 班級(jí) .TextMatrix(0, 2) = 姓 名 .TextMatrix(0, 3) = 計(jì)算機(jī)組成原理 .TextMatrix(0, 4) = 計(jì)算機(jī)應(yīng)用 .TextMatrix(0, 5) = 管理信息系統(tǒng) .TextMatrix(0, 6) = 辦公軟件 .FixedRows = 1 Dim i As Integer For i = 1 To 6 .ColAlignment(i) = 0 Next i .FillStyle = flexFillSingle .Col = 0 .Row = 0 .RowSel = 1 .ColSel = .Cols 1 第四章 系統(tǒng)實(shí)現(xiàn) 34 .CellAlignment = 4 .Row = 1 End With End Sub Public Sub showdata(ByVal MSF As MSHFlexGrid, ByVal sql As String) 39。對(duì) MSHFlexGrid1 控件錄入數(shù)據(jù)信息 Dim i As Integer sql, n, , , adCmdText With MSF .Rows = 10 .Row = 1 Do While Not .Rows = .Rows + 1 For i = 1 To .TextMatrix(.Row, i) = (i 1) Next i .Row = .Row + 1 Loop .Refresh End With End Sub Private Sub Form_Unload(Cancel As Integer) Unload Me End Sub 通用戶學(xué)生檔案查詢窗口 普通用戶根據(jù)需要選擇所要查詢的對(duì)象，單擊“確定”按鈕查詢成功。 檔案查詢界面代碼 Private Sub Command1_Click() Dim kl As String Dim db As New Dim rs As New Dim sql As String Dim rs1 As New Dim sql1 As String kl = = Provider=。Data Source=E:\zlf\。Persist Security Info=False 35 sql = select * from 學(xué)生檔案表 sql, db, adOpenStatic, adLockReadOnly sql1 = select * from 學(xué)生檔案表 where 姓名 =39。 amp。 kl amp。 39。 sql1, db, adOpenStatic, adLockReadOnly If = 0 Then MsgBox 表內(nèi)無記錄 39。如果為空，彈出對(duì)話框 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 = (10).Value = (11).Value = (12).Value MsgBox (查詢成功 ) End If End Sub Private Sub Command2_Click() 普通用戶學(xué)生檔案查詢窗口 .Hide End Sub 4． 2 數(shù)據(jù)源（ Access） 表 41 學(xué)生信息表 學(xué)號(hào) 姓名 性別 出生年月 家庭住址 聯(lián)系電話 備注 0801 劉玲 女 87710 四川江油太白路 42號(hào) 3257423 0802 周麗芳 女 85330 云南省昆明市春熙路 08717947366 0803 曾楨 男 86520 四川江油太白西路 23號(hào) 3256897 0804 封曉麗 女 86823 四川江油人民路 15號(hào) 3652417 0805 劉軍成 男 84521 四川江油太白路 13號(hào) 3265418 0806 陳翠 女 85320 四川江油人民路 76號(hào) 3741562 第四章 系統(tǒng)實(shí)現(xiàn) 36 表 42 學(xué)生成績(jī)表 表 43 學(xué)生檔案表 班級(jí) 姓名 計(jì)算機(jī) 英語 管理 辦公軟 件 0422 劉玲 84 83 74 87 0422 周麗芳 86 74 82 81 0422 曾楨 76 73 80 86 0422 封曉麗 87 71 48 80 0422 劉軍成 85 85 74 68 0422 陳翠 76 76 86 86 班級(jí) 姓名 性別 籍貫 獎(jiǎng)懲情況 備注 0422 劉玲 女 四川江油 優(yōu)秀學(xué)生 0422 周麗芳 女 云南省昆明 優(yōu)秀學(xué)生干部 0422 曾楨 男 四川江油 優(yōu)秀團(tuán)員 0422 封曉麗 女 四 川江油 優(yōu)秀學(xué)生 0422 劉軍成 男 四川江油 無 0422 陳翠 女 四川江油 無 37 第五章 系統(tǒng)評(píng)價(jià) 系統(tǒng)的評(píng)價(jià) 作為計(jì)算機(jī)應(yīng)用的一部分，使計(jì)算機(jī)對(duì)學(xué)生學(xué)籍信息進(jìn)行管理，形成一個(gè)人機(jī)管理信息系統(tǒng)。具有著手工管理所無法比擬的優(yōu)點(diǎn)，例如：檢查迅速，查找方便，可靠性大，存儲(chǔ)量大，保密性好，壽命長(zhǎng)，成本低等。這些優(yōu)點(diǎn)能夠極大的提高學(xué)生學(xué)籍管理信息系統(tǒng)的效率。 整個(gè)系統(tǒng)從符合操作簡(jiǎn)便、界面友好、靈活、實(shí)用、安全的要求出發(fā)。 系統(tǒng)設(shè)計(jì)心得收獲與結(jié)論 經(jīng)過 1 周的設(shè)計(jì)和開發(fā)，學(xué)生學(xué)籍檔案信 息 管理 系統(tǒng)基本開發(fā)完畢。其功能基本符合用戶需求，能夠完成學(xué)生學(xué)籍的存儲(chǔ)和成績(jī)的查詢以及各類相關(guān)信息的使用。并提供部分系統(tǒng)維護(hù)功能，使用戶方便進(jìn)行數(shù)據(jù)添加、數(shù)據(jù)查詢、對(duì)于數(shù)據(jù)的一致性的問題也通過程序進(jìn)行了有效的解決。 通過這次的“學(xué)校學(xué)生學(xué)籍管理信息系統(tǒng)”的系統(tǒng)設(shè)計(jì)，我們知道了做這樣 的一個(gè)設(shè)計(jì)的思路，應(yīng)該從什么地方著手。也讓我們鞏固了以前所學(xué)的知識(shí)。 這次的課程設(shè)計(jì)過程中我們感到時(shí)間的緊張，人也很疲憊，但當(dāng)我們完成我們作品的那一刻，所有的緊張，所有的疲憊都忘記了。我想這就是所說的成就感吧！我們所做的設(shè)計(jì) “學(xué)校學(xué)生學(xué)籍管理信息系統(tǒng)”是集聚了全組每一位設(shè)計(jì)成員的心思。在我們的作品里，可以看到我們每一位設(shè)計(jì)者所做出的努力。在系統(tǒng)的設(shè)計(jì)過程中，我們也遇到了一些困難和迷惑。但是在我們?nèi)M設(shè)計(jì)成員的齊心協(xié)力與指導(dǎo)老師的幫助下，我們克服了一個(gè)又一個(gè)的問題，保證了設(shè)計(jì)作業(yè)的順利進(jìn)行。 這次我們不但收 獲了我們努力的成果 —— “學(xué)校學(xué)生學(xué)籍管理信息系統(tǒng)”，我們還從中充分感受到了團(tuán)隊(duì)合作的高效性。進(jìn)一步讓我們體會(huì)在團(tuán)隊(duì)合作的過程中相互了解，相互信任，各施其責(zé)的重要性。這對(duì)于我們?cè)谝院蟮陌l(fā)展中具有深遠(yuǎn)的影響 。第五章系統(tǒng)管理與維護(hù) 38 致謝 在本次畢業(yè)設(shè)計(jì)中，我們從指導(dǎo)老師處學(xué)到了很多東西。老師 認(rèn)真負(fù)責(zé) 的工作態(tài)度，嚴(yán)謹(jǐn)?shù)闹螌W(xué)精神和深厚的理論水平都使我們受益匪淺。他 無論在理論上還是在操作實(shí)踐中，都給予我們很大的幫助，使我們得到不少的提高。這對(duì)于我們以后的工作和學(xué)習(xí)都是一種意義深遠(yuǎn)的幫助，感謝他耐心的輔導(dǎo)，才使得我們的系統(tǒng)設(shè)計(jì)能夠順利完成 。在此，我們 全體設(shè)計(jì)成員對(duì)他 表示由衷的感謝！