【正文】 = False = True = False = False Text1(2).Enabled = False Text1(3).Enabled = False Text1(7).Enabled = False Text1(8).Enabled = False End Sub 功能 本 系統(tǒng)主要可以實現(xiàn)以下的管理功能：用戶信息管理、班級信息管理、學籍信息管理、課程信息管理、成績信息管理、獎懲 信息管理、個人信息查詢、幫助等等。 amp。 amp。 amp。 ⑶ 原始數(shù)據(jù)修改簡單方便 ,支持多條件修改 ⑷ 方便的數(shù)據(jù)查詢，支持多條件查詢 。 項目背景 主要是以學校管理處為委托單位，以學生為管理對象進行設(shè)計的，該系統(tǒng)結(jié)合數(shù)據(jù)庫技術(shù)和 VB 開發(fā)而成的，該系統(tǒng)是建立在其他一些管理信息系統(tǒng)的基礎(chǔ)上開發(fā)而成的。對各院（系）教務(wù)辦實現(xiàn)統(tǒng)一的信息瀏覽、成績管理。 [學生信息管理系統(tǒng) ] 詳細設(shè)計說明書 [(版本號 )] 擬 制 人 審 核 人 批 準 人 [二 OO 五 年 十 月 十五 日 ] 詳細設(shè)計說明書 引言 隨著信息技術(shù)在管理上越來越深入而廣泛的應(yīng)用，管理信息系統(tǒng)的實施在技術(shù)上已逐步成熟。這是一個集教務(wù)工作自動化和信息化為一體的先進的電腦網(wǎng)絡(luò)系統(tǒng)，在為教務(wù)工作有關(guān)部門提供優(yōu)質(zhì)、高效的業(yè)務(wù)管理和事務(wù)處理的同時，采用安全可靠的現(xiàn)代化處理和控制技術(shù)，及時、準確、可靠地采集和傳輸信息，建立完備、可靠的教學信息處理系統(tǒng)。 本學生信息管理系統(tǒng)可以說是一個綜合性的學校學生管理系統(tǒng)， 這它集成了學生學籍管理系統(tǒng)、學生成績管理系統(tǒng)、學生檔案管理系統(tǒng)、學生個人管理系統(tǒng)等多種功能，因而具有較強的實用性和先進性。 ⑵ 由于該系統(tǒng)的使用對象多 ,要求有較好的權(quán)限管理 。處理流程如圖 數(shù)據(jù)流程圖 學生成績管理系統(tǒng) 0 層數(shù)據(jù)流程圖 接受數(shù)據(jù)據(jù) 處理中心 班級管理 檔案管理 獎懲管理 課程管理 成績管理 輸出 學籍管理部門 教師 學生成績管理系統(tǒng) 教務(wù)處 學生 教師 教師 學生情況 學生成績 查詢 統(tǒng)計分析 學生成績管理系統(tǒng) 1 層數(shù)據(jù)流程圖 整體框架圖 管理 部門 教務(wù)處 教師 學生管理 課程管理 成績管理 統(tǒng)計分析 D1 D2 D3 查詢者 管理者 用戶信息管理 班級信息管理 學籍信息管理 獎懲信息管理 課程信息管理 成績信息管理 個人信息查詢 修改密碼 添加用戶 刪除用戶 添加班級 班級信息 班級查詢 學籍瀏覽 學籍添加 學籍查詢 課程設(shè)置 班級課程設(shè)置 課程列表 班級課程設(shè)置 成績填加績填加 加 成績信息列表 成績查詢 成績填加 獎懲填加填加 加 獎懲查詢 成績填加 獎懲列表 成績填加 成績列表成績填加 加 獎懲列表 成績填加 學生信息管理系統(tǒng) 登錄 程序描述 班級信息 Private Sub Command1_Click() If Text1(0) = Then MsgBox 班級編號不能為空 !, vbOKOnly, 提示 Text1(0).SetFocus Exit Sub End If If Text1(1) = Then MsgBox 班級名稱不能為空 !, vbOKOnly, 提示 Text1(1).SetFocus Exit Sub End If If Text1(2) = Then MsgBox 導員姓名不能為空 !, vbOKOnly, 提示 Text1(2).SetFocus Exit Sub End If txtSQL = select * from class_Form where class_NO=39。 Set mrc = ExecuteSQL(txtSQL, MsgText) If = False Then MsgBox 此班級編號已存在 !, vbOKOnly, 警告 Text1(0).SetFocus Exit Sub End If txtSQL = select * from class_Form Set mrc = ExecuteSQL(txtSQL, MsgText) (0) = Trim(Text1(0)) (1) = Trim(Text1(1)) (2) = Trim(Text1(2)) (3) = Trim(Text1(3)) For i = 0 To 3 課程信息 管理 Private Sub Form_Load() Dim txtSQL As String = 課程信息 設(shè) 置 txtSQL = select * from class_Form Set mrc = ExecuteSQL(txtSQL, MsgText) If = True Then MsgBox 請先進行班級設(shè)置 !, vbOKOnly, 提示 Else With Combo1 Do While Not .AddItem Trim(mrc!class_NO) Loop = 0 End With End If List2Text End Sub 獎 懲信息管理 Private Sub Command1_Click() Dim txtSQL As String If Text1(0) = Then MsgBox 獎懲名稱不能為空 !, vbOKOnly, 提示 Text1(0).SetFocus Exit Sub End If txtSQL = select * from prize_Form where prize_Name=39。 Set mrc = ExecuteSQL(txtSQL, MsgText) If = False Then MsgBox 此獎懲名稱已經(jīng)存在 !, vbOKOnly, 警告 Text1(0).SetFocus Exit Sub End If txtSQL = select * from prize_Form Set mrc = ExecuteSQL(txtSQL, MsgText) (0) = Trim(Text1(0)) (1) = Trim(Text1(1)) Text1(0) = Text1(1) = MsgBox 獎懲信息添加成功 !, vbOKOnly, 提示 List1Text End Sub Private Sub Command2_Click() If Then txtSQL = delete from prize_Form where prize_Name=39。 Set mrc = ExecuteSQL(txtSQL, MsgText) MsgBox 獎懲信息已經(jīng)刪除 !, vbOKOnly, 提示 List1Text End If End Sub Private Sub Form_Load() = 5 (0) = 300 (1) = 0 (2) = 0 (3) = 1200 (4) = 1200 (0, 3) = 獎懲日期 (0, 4) = 獎懲名稱 = 1 Text3(0) = GetRkno List1Text End Sub 成績 信息管理 Private Sub Form_Load() Option1(1).Value = True Picture1(0).Visible = False Picture1(1).Visible = True Picture1(2).Visible = False Picture1(3).Visible = False Picture1(1).Top = Picture1(0).Top Picture1(1).Left = Picture1(0).Left Picture1(2).Top = Picture1(0).Top Picture1(2).Left = Picture1(0).Left Picture1(3).Top = Picture1(0).Top Picture1(3).Left = Picture1(0).Left With MSFlexGrid1 .Cols = 6 .TextMatrix(0, 1) = 考試期號 .TextMatrix(0, 2) = 學生班號 .TextMatrix(0, 3) = 學生編號 .TextMatrix(0, 4) = 考試課程 .TextMatrix(0, 5) = 考試分數(shù) .ColWidth(0) = 0 .ColWidth(1) = 1550 .ColWidth(2) = 1550 .ColWidth(3) = 1550 .ColWidth(4) = 1550 .ColWidth(5) = 1550 .Rows = 1 End With Text1(0) = GetRkno End Sub 個人 信息管理 Private Sub Form_Load() With MSFlexGrid1 .Cols = 4 .ColWidth(0) = 0 .ColWidth(1) = 0 .ColWidth(2) = 1700 .ColWidth(3) = 1700 .TextMatrix(0, 2) = 獎懲日期 .TextMatrix(0, 3) = 獎懲名稱 .Rows = 1 End With With MSFlexGrid2 .Cols = 6 .ColWidth(0) = 0 .ColWidth(1) = 1550 .ColWidth(2) = 1550