【正文】 程圖如下： 圖 32 計(jì)算機(jī)處理流程圖 本系統(tǒng)的總體設(shè)計(jì)思想有一 下幾點(diǎn)： (1).盡量采用學(xué)?，F(xiàn)有的軟硬件環(huán)境，及先進(jìn)的管理系統(tǒng)開(kāi)發(fā)方案，從而達(dá)到充分利用學(xué)?，F(xiàn)有資源，提高系統(tǒng)開(kāi)發(fā)水平和應(yīng)用的目的。 (3).系統(tǒng)采用 C/S 體系結(jié)構(gòu)， Client(客戶端 )負(fù)責(zé)提供表達(dá)邏輯、顯示用戶界面信息、訪問(wèn)數(shù)據(jù)庫(kù)服務(wù)器； Server(服務(wù)器 )則用于提供數(shù)據(jù)服務(wù)。 (4).系統(tǒng)采用模塊化程序設(shè)計(jì)方法，即便于系統(tǒng)功能的各種組合和修改、又便于未參與開(kāi)發(fā)的設(shè)計(jì)維護(hù)人員補(bǔ)充、維護(hù)。 學(xué)生個(gè)人信息 學(xué)籍信息數(shù)據(jù)庫(kù) 用戶管理表 學(xué)生信息登記 學(xué)生信息的查刪改 學(xué)生成績(jī)查刪改，添加統(tǒng)計(jì) 學(xué)生學(xué)籍檔案錄入、查詢 用戶管理添加 鍵入 學(xué)籍檔案表 成績(jī)表 13 系統(tǒng)的詳細(xì)設(shè)計(jì) 3． 2． 1 關(guān)系型數(shù)據(jù)模型 學(xué)生信息表（學(xué)號(hào)，姓名，性別，出生年月，家庭住址，聯(lián)系電話，） 學(xué) 生成績(jī)表（班級(jí) ，姓名，課程名稱，） 學(xué)生檔案表（班級(jí)，學(xué)號(hào)，姓名，籍貫 ，獎(jiǎng)懲 ，表現(xiàn)情況，） 3． 2． 2 數(shù)據(jù)庫(kù)的邏輯設(shè)計(jì) 是希望通過(guò)數(shù)據(jù)庫(kù)管理系統(tǒng)提供的功 能與描述工具，設(shè)計(jì)出規(guī)模恰當(dāng)，能正確反映實(shí)際信息關(guān)系，重復(fù)數(shù)據(jù)少，存取效率高并能滿足用戶數(shù)據(jù)要求的數(shù)據(jù)模型。 ER圖是系統(tǒng)的概念設(shè)計(jì)，對(duì)系統(tǒng)前期分析相當(dāng)重要，它可以正確直觀的反映出一個(gè)業(yè)務(wù)系統(tǒng)過(guò)程。數(shù)據(jù)字典通常包括以下幾部分： （ 1）數(shù)據(jù)項(xiàng) :數(shù)據(jù)項(xiàng)是不可在分的數(shù)據(jù)單位。一個(gè)數(shù)據(jù)結(jié)構(gòu)可以由若干個(gè)數(shù)據(jù)結(jié)構(gòu)組成，或由若干數(shù)據(jù)項(xiàng)和數(shù)據(jù)結(jié)構(gòu)混合組成。 （ 4）數(shù)據(jù)存儲(chǔ) :數(shù)據(jù)存儲(chǔ)是數(shù)據(jù)及結(jié)構(gòu)停留或保存的地方，也是數(shù)據(jù)流的來(lái)源和去向之一。 （ 6）數(shù)據(jù)字典 :是關(guān)于數(shù)據(jù)庫(kù)中數(shù)據(jù)的描述，即對(duì)原數(shù)據(jù)的描述。 ： Private Sub Command1_Click() 主界面 .Hide 39。顯示登錄界面 End Sub 登錄窗口 此登錄界面分為“管理 員”和“普通用戶”登錄。 Dim i As Integer Private Sub Command1_Click() If 123 Then Else Hide 信息管理 .Show End If End Sub Private Sub Command2_Click() Hide 主界面 .Show End Sub Private Sub Command3_Click() Hide 普通用戶學(xué)生學(xué)籍 .Show End Sub Private Sub Command4_Click() Hide 主界面 .Show End Sub 第四章 系統(tǒng)實(shí)現(xiàn) 18 Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single) End Sub 信息管理窗口 信息管理包括“學(xué)生學(xué)籍信息管理、學(xué)生學(xué)籍成績(jī)管理、學(xué)生學(xué)籍檔案管理、”，下設(shè)相應(yīng)的子菜單。 Private Sub 成績(jī)查詢 _Click() Hide 查詢學(xué)生成績(jī) .Show End Sub Private Sub 成績(jī)添加 _Click() Hide 添加學(xué)生成績(jī) .Show End Sub Private Sub 檔案查詢 _Click() Hide 查詢學(xué)生檔案 .Show End Sub Private Sub 返回 _Click() Hide 登錄界面 .Show End Sub Private Sub 信息查詢 _Click() Hide 查詢學(xué)生信息 .Show End Sub Private Sub 信息添加 _Click() Hide 添加學(xué)生信息 .Show End Sub 19 Private Sub 檔案添加 _Click() Hide 添加學(xué)生檔案 .Show End Sub 查詢學(xué)生信息窗口 用戶選擇所要查詢的對(duì)象，單擊“確定”按鈕，得出相應(yīng)信息。 amp。 39。 amp。 39。 amp。 amp。 .\39。初始化 MSHFlexGrid1 With MSHFlexGrid1 .Cols = 7 .TextMatrix(0, 1) = 學(xué)號(hào) .TextMatrix(0, 2) = 姓 名 .TextMatrix(0, 3) = 性別 .TextMatrix(0, 4) = 出生年月 .TextMatrix(0, 5) = 家庭住址 .TextMatrix(0, 6) = 聯(lián)系電話 .FixedRows = 1 Dim i As Integer For i = 1 To 6 .ColAlignment(i) = 0 Next i .FillStyle = flexFillSingle .Col = 0 .Row = 0 .RowSel = 1 .ColSel = .Cols 1 .CellAlignment = 4 .Row = 1 End With End Sub 21 Public Sub showdata(ByVal MSF As MSHFlexGrid, ByVal sql As String) 39。 Option Explicit Dim x1 As String, x2 As String, x3 As String, x4 As String, x5 As String, x6 As String, response As Integer Dim dm As String, xm As String, bm As String, jbgz As Single, fjgz As Single, ff As Single Dim str As String Private n As New Private rs As New Dim strn Private Sub Command1_Click() x1 = Trim() x2 = Trim() x3 = Trim() x4 = Trim() x5 = Trim() 第四章 系統(tǒng)實(shí)現(xiàn) 22 x6 = Trim() Dim str1 As String str1 = 學(xué)號(hào)： amp。 姓名： amp。 性別： amp。 出生年月： amp。 家庭住址： amp。 聯(lián)系電話： amp。 amp。 amp。 \39。退出前恢復(fù)主工資文件的數(shù)據(jù) str = delete from 學(xué)生信息表 str 學(xué)生信息表 backup, n, , , adCmdTable While Not 學(xué)號(hào) = Trim(rs!學(xué)號(hào) ) 姓名 = Trim(rs!姓名 ) 性別 = Trim(rs!性別 ) 出生年月 = rs!出生年月 家庭住址 = rs!家庭住址 聯(lián)系電話 = rs!聯(lián)系電話 str = insert into 學(xué)生信息表 values(39。 學(xué)號(hào) amp。,39。 姓名 amp。,39。 性別 amp。,39。 出生年月 amp。,39。 家庭住址 amp。,39。 聯(lián)系電話 amp。) 23 str Wend End Sub Private Sub inputBase() str = select * from 學(xué)生信息表 where 學(xué)號(hào) =39。 x1 amp。 str, n, , , adCmdText If = 0 Then 學(xué)生信息表 , n, , , adCmdTable If 0 Then End If rs!學(xué)號(hào) = x1 rs!姓名 = x2 rs!性別 = x3 rs!出生年月 = x4 rs!家庭住址 = x5 rs!聯(lián)系電話 = x6 MsgBox 該記錄成功錄入數(shù)據(jù)庫(kù)！ , , 成功 Else MsgBox 該人已有數(shù)據(jù)！回車 后重輸 , , 錯(cuò)誤 End If End Sub 成績(jī)查詢窗口 管理員根據(jù)需要選擇所要查詢的對(duì)象，單擊“查詢”按鈕即可查詢成功。 amp。 39。 amp。 39。 amp。 amp。 .\39。初始化 MSHFlexGrid1 With MSHFlexGrid1 .Cols = 7 .TextMatrix(0, 1) = 班級(jí) .TextMatrix(0, 2) = 姓 名 .TextMatrix(0, 3) = 計(jì)算機(jī)組成原理 .TextMatrix(0, 4) = 計(jì)算機(jī)應(yīng)用 .TextMatrix(0, 5) = 管理信息系統(tǒng) .TextMatrix(0, 6) = 辦公軟件 .FixedRows = 1 Dim i As Integer For i = 1 To 6 .ColAlignment(i) = 0 Next i .FillStyle = flexFillSingle .Col = 0 .Row = 0 .RowSel = 1 .ColSel = .Cols 1 .CellAlignment = 4 .Row = 1 End With End Sub Public Sub showdata(ByVal MSF As MSHFlexGrid, ByVal sql As String) 39。 Option Explicit Dim x1 As String, x2 As String, x3 As String, x4 As String, x5 As String, x6 As String, response As Integer Dim dm As String, xm As String, bm As String, jbgz As Single, fjgz As Single, ff As Single Dim str As String Private n As New Private rs As New Dim strn Private Sub Command1_Click() x1 = Trim() x2 = Trim() x3 = Trim() x4 = Trim() x5 = Trim() x6 = Trim() Dim str1 As String str1 = 班級(jí)： amp。 姓名： amp。 計(jì)算機(jī)： amp。 英語(yǔ)： amp。 管理： amp。 辦公軟件： amp。 amp。 amp。 \39。退出前恢復(fù)主工資文件的數(shù)據(jù) str