【文章內(nèi)容簡(jiǎn)介】 結(jié)構(gòu)混合組成。 （ 3）數(shù)據(jù)流 :數(shù)據(jù)流是數(shù)據(jù)結(jié)構(gòu)在系統(tǒng)內(nèi)傳輸?shù)穆窂健? （ 4）數(shù)據(jù)存儲(chǔ) :數(shù)據(jù)存儲(chǔ)是數(shù)據(jù)及結(jié)構(gòu)停留或保存的地方，也是數(shù)據(jù)流的來源和去向之一。 （ 5）處理過程 :處理過程的具體處理邏輯一般用判定表或判定樹來描述。 （ 6）數(shù)據(jù)字典 :是關(guān)于數(shù)據(jù)庫中數(shù)據(jù)的描述，即對(duì)原數(shù)據(jù)的描述。 本系 統(tǒng)的數(shù)據(jù)字典如下： 表 36 學(xué)生信息表 學(xué)生信息 專業(yè) 班級(jí) 學(xué)號(hào) 姓名 出生年月 家庭住址 聯(lián)系電話 列名 數(shù)據(jù)類型及長度 可否為空 主鍵 專業(yè) 文本型（ 20） NOTNULL 班級(jí) 文本型（ 20） NOTNULL 學(xué)號(hào) 文本型（ 8） NOTNULL 主鍵 姓名 文本型（ 8） NOTNULL 性別 邏輯型（ 2） NOTNULL 籍貫 文本型（ 8） NOTNULL 出生年月 日期型（ 8） NOTNULL 家庭住址 文本型（ 60） NOTNULL 聯(lián)系電話 文本型（ 12） NOTNULL 政治面貌 文本型（ 4） NOTNULL 備 注 備注型 (50) NOTNULL 17 表 37學(xué)生成績表 1 表 38 學(xué)生檔案表 表 39 管理表 列名 數(shù)據(jù)類型及長度 可否為空 主鍵 專業(yè) 文本型（ 20） NOTNULL 班級(jí) 文本型（ 20） NOTNULL 學(xué)號(hào) 文本型（ 8） NOTNULL 主鍵 姓名 文本型（ 8） NOTNULL 計(jì)算機(jī)網(wǎng)絡(luò) 數(shù)字型（ 4） NOTNULL 計(jì)算機(jī)組成原理 數(shù)字型（ 4） NOTNULL 計(jì)算機(jī)應(yīng)用與提高 數(shù)字型（ 4） NOTNULL 管理信息系統(tǒng) 數(shù)字型（ 4） NOTNULL 信息法律規(guī)程 數(shù)字型（ 4） NOTNULL 辦公軟件 數(shù)字型（ 4） NOTNULL 備注 備注型（ 50） NOTNULL 列名 數(shù)據(jù)類型及長度 可否為空 主鍵 專業(yè) 文本型（ 20） NOTNULL 班級(jí) 文本型（ 20） NOTNULL 學(xué)號(hào) 文本型（ 8） NOTNULL 主鍵 姓名 文本型（ 8） NOTNULL 性別 文本型（ 4） NOTNULL 民族 文本型（ 8） NOTNULL 籍貫 文本型（ 8） NOTNULL 家庭住址 文本型（ 60） NOTNULL 聯(lián)系電話 文本型（ 12） NOTNULL 獎(jiǎng)懲情況 文本型（ 100） NOTNULL 留級(jí)情況 文本型（ 60） NOTNULL 表現(xiàn)情況 文本型（ 200） NOTNULL 備注 備注型（ 50） NOTNULL 列名 數(shù)據(jù)類型及長度 可否為空 主鍵 用戶名 文本型（ 16） NOTNULL 密碼 文本型（ 16） NOTNULL 第四章 系統(tǒng)實(shí)現(xiàn) 18 表 310 注冊(cè)表 列名 數(shù)據(jù)類型及長度 可否為空 主鍵 專業(yè) 文本型（ 20） NOTNULL 班級(jí) 文本型（ 20） NOTNULL 學(xué)號(hào) 文本型（ 8） NOTNULL 主鍵 出生年月 文本型（ 8） NOTNULL 家庭住址 文本型（ 8） NOTNULL 聯(lián)系電話 文本型（ 8） NOTNULL 備注 備注型（ 50） NOTNULL 19 第四章 系統(tǒng)實(shí)現(xiàn) 界面、代碼設(shè)計(jì)與實(shí)現(xiàn) 圖 41 主窗口 ：用戶直接單擊“進(jìn)入”按鈕進(jìn)入登錄界面。 ： Private Sub Command1_Click() 主界面 .Hide 39。隱藏主界面 登錄界面 .Show 39。顯示 登錄界面 End Sub 第四章 系統(tǒng)實(shí)現(xiàn) 20 圖 42 登錄窗口 此登錄界面分為“管理員”和“普通用戶”登錄。“管理員”需輸入用戶名和密碼登錄“信息管理”窗口；而普通用戶則直接單擊“登錄”按鈕進(jìn)入“普通用戶學(xué)生學(xué)籍窗口”。 （ 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 學(xué)生學(xué)籍信息管理窗口 .Show Else MsgBox (密碼錯(cuò)誤 ,請(qǐng)重新輸入！ ) End If End If Wend 21 End Sub Private Sub Command2_Click() 登錄界面 .Hide 主界面 .Show End Sub （ 2）普通用戶窗口代碼 Private Sub Command3_Click() 普通用戶學(xué)生學(xué)籍窗口 .Show 登錄界面 .Hide End Sub Private Sub Command4_Click() 登錄界面 .Hide 主界面 .Show End Sub 圖 43信息管理窗口 信息管理包括“學(xué)生學(xué)籍信息管理、學(xué)生學(xué)籍成績管理、學(xué)生學(xué)籍檔案管理、用戶管理”，下設(shè)相應(yīng)的子菜單。管理員可根據(jù)需要進(jìn)行內(nèi)容的查詢、添加、刪除等。 （ 1）（學(xué)生學(xué)籍信息管理 ）信息查詢窗口彈出代碼： Private Sub xxcx_Click(Index As Integer) 查詢學(xué)生信息窗口 .Show End Sub 第四章 系統(tǒng)實(shí)現(xiàn) 22 （ 2）（學(xué)生學(xué)籍信息管理）信息添加窗口彈出代碼： Private Sub xxtj_Click(Index As Integer) 添加學(xué)生信息窗口 .Show End Sub （ 3）（學(xué)生學(xué)籍信息管理）信息修改窗口彈出代碼： Private Sub xxg_Click(Index As Integer) 修改學(xué)生信息窗口 .Show End Sub （ 4）（學(xué) 生學(xué)籍成績管理）成績查詢窗口彈出代碼： Private Sub chjcx_Click(Index As Integer) 查詢學(xué)生成績窗口 .Show End Sub （ 5）（學(xué)生學(xué)籍成績管理）成績添加窗口彈出代碼： Private Sub chjtj_Click(Index As Integer) 添加學(xué)生成績窗口 .Show End Sub （ 6）（學(xué)生學(xué)籍成績管理）成績修改窗口彈出代碼： Private Sub chjxg_Click(Index As Integer) 修改學(xué)生成績窗口 .Show End Sub （ 7）（學(xué)生學(xué)籍檔案管理）檔案查詢窗口彈出代碼： Private Sub dacx_Click(Index As Integer) 用戶檔案查詢窗口 .Show End Sub （ 8）（學(xué)生學(xué)籍檔案管理）注冊(cè)查詢窗口彈出代碼： Private Sub dazccx_Click(Index As Integer) 用戶注冊(cè)查詢窗口 .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() 學(xué)生學(xué)籍信息管理窗口 .Hide 登錄界面 .Show End Sub 23 圖 44 查詢學(xué)生信息窗口 用戶選擇所要查詢的對(duì)象，單擊“確定”按鈕，得出相應(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 學(xué)生信息表 sql, db, adOpenStatic, adLockReadOnly sql1 = select * from 學(xué)生信息表 where 姓名 =39。 amp。 kl amp。 39。 sql1, db, adOpenStatic, adLockReadOnly If = 0 Then MsgBox 表內(nèi)無記錄 39。如果為空，彈出對(duì)話框 Else 39。如果不為空，定位到選定的記錄 = (0).Value = (1).Value 39。顯示相應(yīng)字段的內(nèi)容 = (2).Value = (3).Value = (4).Value = (5).Value 第四章 系統(tǒng)實(shí)現(xiàn) 24 = (6).Value = (7).Value = (8).Value = (9).Value MsgBox (查詢成功 ) End If End Sub Private Sub Command2_Click() 查詢學(xué)生信息窗口 .Hide 學(xué)生學(xué)籍信息管理窗口 .Show End Sub 圖 45 添加學(xué)生信息窗口 管理員在空白欄中正確輸入所要添加的信息，單擊“添加”按鈕即可添加成功。 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 學(xué)生信息表 sql, db, adOpenStatic, adLockOptimistic 25 (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 第四章 系統(tǒng)實(shí)現(xiàn) 26 圖 46 修改學(xué)生信息窗口 管理員可根據(jù)需要對(duì)學(xué)生信息進(jìn)行修改（在相應(yīng)信息處正確進(jìn)行修改），修改完畢后單擊“修改”按鈕即可成功修改學(xué)生信息。 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 學(xué)生信息表 sql, db, adOpenStatic, adLockOptimistic a = update 學(xué)生信息表 set 專業(yè) = 39。 amp。 amp。 39。,班級(jí) = 39。 amp。 amp。 39。,學(xué)號(hào) = 39。 amp。 amp。 39。,姓名 = 39。 amp。 amp。 39。,性別 =39。 amp