【文章內(nèi)容簡介】 定樹來描述。 （ 6）數(shù)據(jù)字典 :是關(guān)于數(shù)據(jù)庫中數(shù)據(jù)的描述，即對原數(shù)據(jù)的描述。 本系統(tǒng)的數(shù)據(jù)字典如下： 表 36 學生信息表 學生信息 專業(yè) 班級 學號 姓名 出生年月 家庭住址 聯(lián)系電話 列名 數(shù)據(jù)類型及長度 可否為空 主鍵 專業(yè) 文本型（ 20） NOTNULL 班級 文本型（ 20） NOTNULL 學號 文本型（ 8） NOTNULL 主鍵 姓名 文本型（ 8） NOTNULL 性別 邏輯型（ 2） NOTNULL 籍貫 文本型（ 8） NOTNULL 出生年月 日期型（ 8） NOTNULL 家庭住址 文本型（ 60） NOTNULL 聯(lián)系電話 文本型（ 12） NOTNULL 政治面貌 文本型（ 4） NOTNULL 備注 備注型 (50) NOTNULL .頁眉 . .頁腳 表 37學生成績表 1 表 38 學生檔案表 表 39 管理表 列名 數(shù)據(jù)類型及長度 可否為空 主鍵 專業(yè) 文本型（ 20） NOTNULL 班級 文本型（ 20） NOTNULL 學號 文本型（ 8） NOTNULL 主鍵 姓名 文本型（ 8） NOTNULL 計算機網(wǎng)絡(luò) 數(shù) 字型（ 4） NOTNULL 計算機組成原理 數(shù)字型（ 4） NOTNULL 計算機應(yīng)用與提高 數(shù)字型（ 4） NOTNULL 管理信息系統(tǒng) 數(shù)字型（ 4） NOTNULL 信息法律規(guī)程 數(shù)字型（ 4） NOTNULL 辦公軟件 數(shù)字型（ 4） NOTNULL 備注 備注型（ 50） NOTNULL 列名 數(shù)據(jù)類型及長度 可否為空 主鍵 專業(yè) 文本型（ 20） NOTNULL 班級 文本型（ 20） NOTNULL 學號 文本型（ 8） NOTNULL 主鍵 姓名 文本型（ 8） NOTNULL 性別 文本型（ 4） NOTNULL 民族 文本型（ 8） NOTNULL 籍貫 文本型（ 8） NOTNULL 家庭住址 文本型（ 60） NOTNULL 聯(lián)系電話 文本型（ 12） NOTNULL 獎懲情況 文本型（ 100） NOTNULL 留級情況 文本型（ 60） NOTNULL 表現(xiàn)情況 文本型（ 200） NOTNULL 備注 備注型（ 50） NOTNULL 列名 數(shù)據(jù)類型及長度 可否為空 主鍵 用戶名 文本型（ 16） NOTNULL 密碼 文本型（ 16） NOTNULL .頁眉 . .頁腳 表 310 注冊表 列名 數(shù)據(jù)類型及長度 可否為空 主鍵 專業(yè) 文本型（ 20） NOTNULL 班級 文本型（ 20） NOTNULL 學號 文本型（ 8） NOTNULL 主鍵 出生年月 文本型（ 8） NOTNULL 家庭住址 文本型（ 8） NOTNULL 聯(lián)系電話 文本型（ 8） NOTNULL 備注 備注型（ 50） NOTNULL .頁眉 . .頁腳 第四章 系統(tǒng)實現(xiàn) 界面、代碼設(shè)計與實現(xiàn) 圖 41 主窗口 ：用戶直接單擊“進入”按鈕進入登錄界面。 ： Private Sub Command1_Click() 主界面 .Hide 39。隱藏主界面 登錄界面 .Show 39。顯示登錄界面 End Sub .頁眉 . .頁腳 圖 42 登錄窗口 此登錄界面分為“管理員”和“普通用戶”登錄。“管理員”需輸入用戶名和密碼登錄“信息管理”窗口；而普通用戶則直接單擊“登錄”按鈕進入“普通用戶學生學籍窗口”。 （ 1）管理員登錄代碼： Private Sub Command1_Click() Dim db As New Dim rs As New Dim sql As String =Provider=。DataSource=E:\zlf\db。Persist Security Info=False sql = select * from 用戶管理表 sql, db, adOpenStatic, adLockReadOnly While = False If (0).Value = Then If (1).Value = Then 登錄界面 .Hide 學生學籍信息管理窗口 .Show Else MsgBox (密碼錯誤 ,請重新輸入！ ) End If End If Wend .頁眉 . .頁腳 End Sub Private Sub Command2_Click() 登錄界面 .Hide 主界面 .Show End Sub （ 2）普通用戶窗口代碼 Private Sub Command3_Click() 普通用戶學生學籍窗口 .Show 登錄界面 .Hide End Sub Private Sub Command4_Click() 登錄界面 .Hide 主界面 .Show End Sub 圖 43信息管 理窗口 信息管理包括“學生學籍信息管理、學生學籍成績管理、學生學籍檔案管理、用戶管理”，下設(shè)相應(yīng)的子菜單。管理員可根據(jù)需要進行內(nèi)容的查詢、添加、刪除等。 （ 1）（學生學籍信息管理）信息查詢窗口彈出代碼： Private Sub xxcx_Click(Index As Integer) 查詢學生信息窗口 .Show End Sub .頁眉 . .頁腳 （ 2）（學生學籍信息管理）信息添加窗口彈出代碼： Private Sub xxtj_Click(Index As Integer) 添加學 生信息窗口 .Show End Sub （ 3）（學生學籍信息管理）信息修改窗口彈出代碼： Private Sub xxg_Click(Index As Integer) 修改學生信息窗口 .Show End Sub （ 4）（學生學籍成績管理）成績查詢窗口彈出代碼： Private Sub chjcx_Click(Index As Integer) 查詢學生成績窗口 .Show End Sub （ 5）（學生學籍成績管理）成績添加窗口彈出代碼： Private Sub chjtj_Click(Index As Integer) 添加學生成績窗口 .Show End Sub （ 6）（學生學籍成績管理）成績修改窗口彈出代碼： Private Sub chjxg_Click(Index As Integer) 修改學生成績窗口 .Show End Sub （ 7）（學生學籍檔案管理）檔案查詢窗口彈出代碼： Private Sub dacx_Click(Index As Integer) 用戶檔案查詢窗口 .Show End Sub （ 8）（學生學籍檔案管理）注冊查詢窗口彈出代碼： Private Sub dazccx_Click(Index As Integer) 用戶注冊查詢窗口 .Show End Sub （ 9）（用戶管理）用戶修改窗口彈出代碼： Private Sub yhxg_Click(Index As Integer) 用戶修改窗口 .Show End Sub （ 10）（用戶管理）用戶添加窗口彈出代碼： Private Sub yhtj_Click(Index As Integer) 用戶添加窗口 .Show End Sub （ 11）信息管理返回按鈕代碼： Private Sub Command1_Click() 學生學籍信息管 理窗口 .Hide 登錄界面 .Show End Sub .頁眉 . .頁腳 圖 44 查詢學生信息窗口 用戶選擇所要查詢的對象，單擊“確定”按鈕，得出相應(yīng)信息。 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 sql = select * from 學生信息表 sql, db, adOpenStatic, adLockReadOnly sql1 = select * from 學生信息表 where 姓名 =39。 amp。 kl amp。 39。 sql1, db, adOpenStatic, adLockReadOnly If = 0 Then MsgBox 表內(nèi)無記錄 39。如果為空，彈出對話框 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 MsgBox (查詢成功 ) End If End Sub Private Sub Command2_Click() 查詢學生信息窗口 .Hide 學生學籍信息管理窗口 .Show End Sub 圖 45 添加學生信息窗口 管理員在空白欄中正確輸入所要添加的信息，單擊“添加”按鈕即可添加成功。 Private Sub Command1_Click() Dim db As New Dim rs As New Dim sql, rt As String Dim zy, bj, xh, xm, xb, jg, csny, jtzz, lxdh, zzmm, bz As String = Provider=。Data Source=E:\zlf\。Persist Security Info=False sql = select * from 學生信息表 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 Sub Private Sub Command2_Click() Unload Me End Sub .頁眉 . .頁腳 圖 46 修改學生信息窗口 管理員可根據(jù)需要對學生信息進行修改（在相應(yīng)信息處正確進行修改），修改完畢后 單擊“修改”按鈕即可成功修改學生信息。 Private Sub Command1_Click() Dim db As New Dim rs As New Dim gg As New Dim sql, rt As String Dim z, a As String Dim zy, bj, xh, xm, xb, jg, csny, jtzz, lxdh, zzmm, bz As String = Provider=。Data Source=E:\zlf\。Persist Security Info=False sql = select * from 學生信息表 sql, db, adOpenStatic, adLockOptimistic a = update 學生信息表 set 專業(yè) = 39。 amp。 amp。 39。,班級 = 39。 amp。 amp。 39。,學號 = 39。 amp。 amp。 39。,姓名 = 39。 amp。 amp。 39。,性別 =39。 amp。 amp。 39。,出生年月 = 39。 amp。 amp。 39。,家庭住址 = 39。 amp。 amp。 39。,聯(lián)系電話 =39。 amp。 amp。 39。,政治面貌 =