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

　　

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