【正文】 否 電話號碼 varchar 30 否 否 院系 varchar 50 否 否 專業(yè) varchar 50 否 否 身 份證號 varchar 50 否 是 (4)、學(xué)生與課程 字段 數(shù)據(jù)類型 字段大小 必填字段 允許為空 約束 課程號 int 4 是 是 課程名稱 varchar 50 否 是 學(xué)號 char 10 是 否 姓名 char 10 是 否 課程類型 char 10 是 否 學(xué)分 int 4 否 是 成績 int 4 否 否 id int 4 否 否 主鍵 (5)、班級 字段 數(shù)據(jù)類型 字段大小 必填字段 索引 允許為空 班級名稱 varchar 50 是 無 否 班級輔導(dǎo)員 varchar 50 否 唯一索引（班級輔導(dǎo)員 _Index） 否 所屬系別 varchar 50 是 無 否 四．物理結(jié)構(gòu)設(shè)計 ： （ 1）能夠瀏覽學(xué)生成績的所有信息 （ 2）能夠?qū)W(xué)生的信息注冊登記管理 （ 3）學(xué)生成績資料的數(shù)據(jù)庫建立和管理 （ 4）能夠通過學(xué)生的一個信息找到個人成績的相關(guān)信息 （ 5）通過查詢專業(yè)找到學(xué)生的信息 （ 6）相關(guān)人員能對包含學(xué)生的成績信息進(jìn)行管理 （ 7）多用戶數(shù)據(jù)安全管理，保證各部門的數(shù)據(jù)安全、完整，對每個使用本系統(tǒng)用戶進(jìn)行權(quán)限的設(shè)置 （ 8）簡易操作， 不需要計算機(jī)專業(yè)人員。 （ 9）學(xué)生成績添加、刪除和修改 ,包括學(xué)生的學(xué)號、姓名、課程名稱、學(xué)分、成績 （ 10） 成績查詢，查詢條件為學(xué)生學(xué)號、姓名、課程名稱等信息的綜合查詢 7 （ 11）用戶管理：設(shè)置兩個級別用戶：管理員和普通用戶，管理員有權(quán)限使用 所有 的功能，普通用戶只能使用 查詢 功能，用戶使用本系統(tǒng)之前必須先通過身份認(rèn)證（用戶名和密碼） ： 3. 模塊的流程圖 （ 1） 登 錄 流程圖 Y N Y N （ 2） 主界面操作圖 （ 3） 所有學(xué)生與增加學(xué)生數(shù)據(jù)圖 主界面 系統(tǒng)管理 用戶管理 班級管理 退出系統(tǒng) 退出系統(tǒng) 學(xué)生管理 學(xué)生查詢 學(xué)生管理 開課與選課 學(xué)生選課 選課查詢 課程管理 課程查詢 課程管理 學(xué)生成績 成績管理 成績查詢詢 登陸主界面 驗證用戶名 驗證密碼 進(jìn)入主界面 所有學(xué)生 增加學(xué)生 主界面 系統(tǒng)管理 用戶管理 班級管理 退出系統(tǒng) 退出系統(tǒng) 學(xué)生管理 學(xué)生查詢 學(xué)生管理 開課與選課 學(xué)生選課 選課查詢 課程管理 課程查詢 課程管理 學(xué)生成績 成績管理 成績查詢詢 8 （ 4） 課程與成績數(shù)據(jù)處理圖 所有成績 ER 圖 增加成績 ER 圖 （ 5） 數(shù)據(jù)保存流程圖 N N Y （ 6） 各信息 管理 處理圖 數(shù)據(jù)初始化 讀取數(shù)據(jù)行數(shù) 按顯示數(shù)據(jù) 數(shù)據(jù)初始化 讀取數(shù)據(jù)字段 初始化表格 等待輸入數(shù)據(jù) 所有成績 數(shù)據(jù)初始化 讀取數(shù)據(jù)行數(shù) 為所有數(shù)據(jù)分頁 按分頁顯示數(shù)據(jù) 執(zhí)行保存 保存狀態(tài) 載入表名 學(xué)生信息 學(xué)生與課程 數(shù)據(jù)完整性 是否有重復(fù) 插入數(shù)據(jù) 退出 **管理 增加 保存 修改 刪除 退出 增加成績 數(shù)據(jù)初始化 讀取數(shù)據(jù)字段 初始化表格 等待輸入數(shù)據(jù) 9 （ 7） 查詢 （ 1） 連接數(shù)據(jù)庫的模塊代碼 Public mdbconn As New Public mdbrs As New Public mdbrs1 As New Public mdbrs2 As New Public admin As Boolean Public hang As Integer Public user1 As String Public mdi As Boolean Public sup As String Sub Main() mdi = True admin = False = Provider=。Integrated Security=SSPI。Persist Security Info=False。Initial Catalog=StudentMIS。Data Source=. = 30 End Sub （ 2） 用戶 登錄代碼 Private Sub XPButton1_Click() On Error GoTo finish user = Set mdbrs = (select * from 登錄 where 用戶名 =39。 amp。 amp。 39。 and 密碼 =39。 amp。 amp。 39。) If = True Then = = MsgBox 用戶名或密碼不正確?。? Else user1 = (0) sup = (2) If (2) = 超級管理員 Then admin = True Else admin = False End If Unload Me End If Exit Sub finish: MsgBox End Sub Private Sub XPButton2_Click() End End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then 查 詢 增加 退出 10 Call XPButton1_Click End If End Sub Private Sub Text2_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Call XPButton1_Click End If End Sub （ 3）主窗體 代碼 Private Sub abou_Click() End Sub Private Sub classma_Click() If admin = False Then MsgBox 你沒有管理本功能的權(quán)限 ,請與管理員聯(lián)系 ! Exit Sub End If If mdi = True Then Else MsgBox 每次只能打開一個窗口，請關(guān)閉正在打開的窗口！ , vbInformation, 不允許當(dāng)前操作！ End If End Sub Private Sub cmai_Click() If admin = False Then MsgBox 你沒有管理本功能的權(quán)限 ,請與管理員聯(lián)系 ! Exit Sub End If If mdi = True Then Else MsgBox 每次只能打開一個窗口，請關(guān)閉正在打開的窗口！ , vbInformation, 不允許當(dāng)前操作！ End If End Sub Private Sub cs_Click() If mdi = True Then Else MsgBox 每次只能打開一個窗口，請關(guān)閉正在打開的窗口！ , vbInformation, 不允許當(dāng)前操作！ End If End Sub Private Sub exit_Click() If mdi = False Then MsgBox 請保存數(shù)據(jù)！ , vbInformation, 不允許當(dāng)前操作！ Else End End If End Sub Private Sub kecheng_Click() If mdi = True Then Else MsgBox 每次只能打開一個窗口，請關(guān)閉正在打開的窗口！ , vbInformation, 不允許當(dāng)前操作！ End If End Sub Private Sub MDIForm_Load() = 今天是 amp。 Year(Date) amp。 年 amp。 Month(Date) amp。 月 amp。 Day(Date) amp。 日 , 歡迎您使用學(xué)生成績管理系統(tǒng) ! amp。 當(dāng)前操作者 : amp。 user111 amp。 權(quán)限 : amp。 sup End Sub 11 Private Sub relog_Click() If mdi = False Then MsgBox 請關(guān)閉打開的窗口！ , vbInformation, 不允許當(dāng)前操作！ Else Unload Me End If End Sub Private Sub sturea_Click() If mdi = True Then Else MsgBox 每次只能打開一個窗口，請關(guān)閉正在 打開的窗口！ , vbInformation, 不允許當(dāng)前操作！ End If End Sub Private Sub stureg_Click() If admin = False Then MsgBox 你沒有管理本功能的權(quán)限 ,請與管理員聯(lián)系 ! Exit Sub End If If mdi = True Then Else MsgBox 每次只能打開一個窗口，請關(guān)閉正在打開的窗口！ , vbInformation, 不允許當(dāng)前操作！ End If End Sub Private Sub stuxuan_Click() If admin = False Then MsgBox 你沒有管理本功能的權(quán)限 ,請與管理員聯(lián)系 ! Exit Sub End If If mdi = True Then Else MsgBox 每次只能打開一個窗口，請關(guān)閉正在打開的窗口！ , vbInformation, 不允許當(dāng)前操作！ End If End Sub Private Sub Toolbar1_ButtonClick(ByVal Button As ) Select Case Case 1 If admin = False Then MsgBox 你沒有管理本功能的權(quán)限 ,請與管理員聯(lián)系 ! Exit Sub End If If mdi = True Then Else MsgBox 每次只能打開一個窗口，請關(guān)閉正在打開的窗口！ , vbInformation, 不允許當(dāng)前操作！ End If Case 2