【文章內(nèi)容簡介】 專業(yè)班級學(xué)號姓名出生年月家庭住址聯(lián)系電話31學(xué)生信息表32學(xué)生成績表學(xué)生成績專業(yè)班級學(xué)號姓名課程名稱33學(xué)生檔案表學(xué)生檔案專業(yè)班級學(xué)號姓名政治面貌獎懲是否留級34注 冊 表注冊專業(yè)班級學(xué)號姓名出生年月家庭住址聯(lián)系電話35用戶管理表用戶用戶名密碼(2).數(shù)據(jù)字典數(shù)據(jù)字典是各類數(shù)據(jù)描述的集合，它是進(jìn)行詳細(xì)的數(shù)據(jù)收集和數(shù)據(jù)分析后獲得的主要成果。數(shù)據(jù)字典通常包括以下幾部分：:數(shù)據(jù)項(xiàng)是不可在分的數(shù)據(jù)單位。:數(shù)據(jù)結(jié)構(gòu)反映了數(shù)據(jù)之間的組合關(guān)系。一個數(shù)據(jù)結(jié)構(gòu)可以由若干個數(shù)據(jù)結(jié)構(gòu)組成，或由若干數(shù)據(jù)項(xiàng)和數(shù)據(jù)結(jié)構(gòu)混合組成。:數(shù)據(jù)流是數(shù)據(jù)結(jié)構(gòu)在系統(tǒng)內(nèi)傳輸?shù)穆窂健?數(shù)據(jù)存儲是數(shù)據(jù)及結(jié)構(gòu)停留或保存的地方，也是數(shù)據(jù)流的來源和去向之一。:處理過程的具體處理邏輯一般用判定表或判定樹來描述。:是關(guān)于數(shù)據(jù)庫中數(shù)據(jù)的描述，即對原數(shù)據(jù)的描述。本系統(tǒng)的數(shù)據(jù)字典如下：列名數(shù)據(jù)類型及長度可否為空主鍵專業(yè)文本型（20）NOTNULL班級文本型（20）NOTNULL學(xué)號文本型（8）NOTNULL主鍵姓名文本型（8）NOTNULL計算機(jī)網(wǎng)絡(luò)數(shù)字型（4）NOTNULL計算機(jī)組成原理數(shù)字型（4）NOTNULL計算機(jī)應(yīng)用與提高數(shù)字型（4）NOTNULL管理信息系統(tǒng)數(shù)字型（4）NOTNULL信息法律規(guī)程數(shù)字型（4）NOTNULL辦公軟件數(shù)字型（4）NOTNULL備注備注型（50）NOTNULL表36 學(xué)生成績表列名數(shù)據(jù)類型及長度可否為空主鍵專業(yè)文本型（20）NOTNULL班級文本型（20）NOTNULL學(xué)號文本型（8）NOTNULL主鍵姓名文本型（8）NOTNULL性別邏輯型（2）NOTNULL籍貫文本型（8）NOTNULL出生年月日期型（8）NOTNULL家庭住址文本型（60）NOTNULL聯(lián)系電話文本型（12）NOTNULL政治面貌文本型（4）NOTNULL備注備注型(50)NOTNULL表37學(xué)生信息表表38 學(xué)生檔案表列名數(shù)據(jù)類型及長度可否為空主鍵專業(yè)文本型（20）NOTNULL班級文本型（20）NOTNULL學(xué)號文本型（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表39 管理表列名數(shù)據(jù)類型及長度可否為空主鍵專業(yè)文本型（20）NOTNULL班級文本型（20）NOTNULL學(xué)號文本型（8）NOTNULL主鍵出生年月文本型（8）NOTNULL家庭住址文本型（8）NOTNULL聯(lián)系電話文本型（8）NOTNULL備注備注型（50）NOTNULL表310 注冊表第四章 系統(tǒng)實(shí)現(xiàn)、代碼設(shè)計與實(shí)現(xiàn)圖41 主窗口(1) 主窗口界面說明：用戶直接單擊“進(jìn)入”按鈕進(jìn)入登錄界面。(2) 主窗口界面代碼：Private Sub Command1_Click() 39。隱藏主界面 39。顯示登錄界面End Sub圖42 登錄窗口(1) 登錄窗口界面說明此登錄界面分為“管理員”和“普通用戶”登錄?！肮芾韱T”需輸入用戶名和密碼登錄“信息管理”窗口；而普通用戶則直接單擊“登錄”按鈕進(jìn)入“普通用戶學(xué)生學(xué)籍窗口”。(2) 登錄窗口界面代碼：Private Sub Command1_Click()Dim db As New Dim rs As New Dim sql As String=Provider=。DataSource=E:\zlf\。Persist Security Info=Falsesql = select * from 用戶管理表 sql, db, adOpenStatic, adLockReadOnlyWhile = False If (0).Value = Then If (1).Value = Then Else MsgBox (密碼錯誤,請重新輸入！) End If End If WendEnd SubPrivate Sub Command2_Click()End SubPrivate Sub Command3_Click()End SubPrivate Sub Command4_Click()End Sub圖43信息管理窗口(1) 信息管理界面說明信息管理包括“學(xué)生學(xué)籍信息管理、學(xué)生學(xué)籍成績管理、學(xué)生學(xué)籍檔案管理、用戶管理”，下設(shè)相應(yīng)的子菜單。管理員可根據(jù)需要進(jìn)行內(nèi)容的查詢、添加、刪除等。(2) 信息管理界面代碼a.（學(xué)生學(xué)籍信息管理）信息查詢窗口彈出代碼：Private Sub xxcx_Click(Index As Integer)End Subb.（學(xué)生學(xué)籍信息管理）信息添加窗口彈出代碼：Private Sub xxtj_Click(Index As Integer)End Subc.（學(xué)生學(xué)籍信息管理）信息修改窗口彈出代碼：Private Sub xxg_Click(Index As Integer)End Subd.（學(xué)生學(xué)籍成績管理）成績查詢窗口彈出代碼：Private Sub chjcx_Click(Index As Integer)End Sube.（學(xué)生學(xué)籍成績管理）成績添加窗口彈出代碼：Private Sub chjtj_Click(Index As Integer)End Subf.（學(xué)生學(xué)籍成績管理）成績修改窗口彈出代碼：Private Sub chjxg_Click(Index As Integer)End Subg.（學(xué)生學(xué)籍檔案管理）檔案查詢窗口彈出代碼：Private Sub dacx_Click(Index As Integer)End Subh.（學(xué)生學(xué)籍檔案管理）注冊查詢窗口彈出代碼：Private Sub dazccx_Click(Index As Integer)End Subi.（用戶管理）用戶修改窗口彈出代碼：Private Sub yhxg_Click(Index As Integer)End Subj.（用戶管理）用戶添加窗口彈出代碼：Private Sub yhtj_Click(Index As Integer)End Sub：Private Sub Command1_Click()End Sub圖44 查詢學(xué)生信息窗口(1) 查詢學(xué)生信息界面說明用戶選擇所要查詢的對象，單擊“確定”按鈕，得出相應(yīng)信息。(2) 查詢學(xué)生信息界面代碼Private Sub Command1_Click()Dim kl As StringDim db As New Dim rs As New Dim sql As StringDim rs1 As New Dim sql1 As String kl = = Provider=。Data Source=E:\zlf\。Persist Security Info=Falsesql = select * from 學(xué)生信息表 sql, db, adOpenStatic, adLockReadOnlysql1 = select * from 學(xué)生信息表 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 IfEnd SubPrivate Sub Command2_Click()End Sub圖45 添加學(xué)生信息窗口(1) 添加學(xué)生信息界面說明管理員在空白欄中正確輸入所要添加的信息，單擊“添加”按鈕即可添加成功。(2) 添加學(xué)生信息界面代碼Private Sub Command1_Click()Dim db As New Dim rs As New Dim sql, rt As StringDim zy, bj, xh, xm, xb, jg, csny, jtzz, lxdh, zzmm, bz As String = Provider=。Data Source=E:\zlf\。Persist Security Info=Falsesql = select * from 學(xué)生信息表 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 SubPrivate Sub Command2_Click()Unload MeEnd Sub圖46 修改學(xué)生信息窗口(1) 修改學(xué)生信息界面說明管理員可根據(jù)需要對學(xué)生信息進(jìn)行修改（在相應(yīng)信息處正確進(jìn)行修改），修改完畢后單擊“修改”按鈕即可成功修改學(xué)生信息。(2) 修改學(xué)生信息界面代碼Private Sub Command1_Click()Dim db As New Dim rs As New Dim gg As New Dim sql, rt As StringDim z, a As StringDim zy, bj, xh, xm, xb, jg, csny, jtzz, lxdh, zzmm, bz As String = Provider=。Data Source=E:\zlf\。Persist Security Info=Falsesql = select * from 學(xué)生信息表 sql, db, adOpenStatic, adLockOptimistica = update 學(xué)生信息表 set 專業(yè)= 39。 amp。 amp。 39。,班級= 39。 amp。 amp。 39。,學(xué)號= 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。,政治面貌= 39。 amp。 amp。 39。,備注= 39。 amp。 amp。 39。 where 姓名= 39。 amp。 z amp。 39。 a, db, adOpenStatic, adLockOptimisticMsgBox ( 修改成功)End SubPrivate Sub Command2_Click()Unload MeEnd Sub圖47成績查詢窗口(1) 成績查詢界面說明