【正文】 案管理界面時，可以通過點擊添加、查詢、修改、刪除塊來切換應(yīng)用功能，從而實現(xiàn)用戶的使用要求。用戶還可以根據(jù)不同的條件對學(xué)生檔案進行查詢操作。用戶選擇添加查詢修改刪除數(shù)據(jù)庫輸入添加的學(xué)生信息提示錯誤添加成功輸入查詢條件數(shù)據(jù)庫添加查詢學(xué)生信息系列表調(diào)用選擇或輸入要修改的信息修改信息數(shù)據(jù)庫修改成功更新提示錯誤選擇或輸入要刪除的信息數(shù)據(jù)庫刪除刪除成功圖26 成績管理模塊流程圖下面介紹一下成績管理模塊的流程，當(dāng)用戶打開成績管理界面的后，可以通過對單選按鈕的選擇，來切換添加、查詢、修改和刪除的功能。當(dāng)點擊列表中的某條成績信息時，這條成績信息也會自動顯示在修改和刪除的欄目中。1. 系統(tǒng)用戶信息：用戶名、密碼。3. 班級信息：班級編號、班主任、學(xué)生人數(shù)、備注。5. 學(xué)生信息：學(xué)號、姓名、性別、年齡、班級、出生日期、聯(lián)系電話、家庭住址、備注。第三章 系統(tǒng)設(shè)計階段得到上面的數(shù)據(jù)項和數(shù)據(jù)結(jié)構(gòu)，就可以滿足用戶所需的各種信息的實體需求，以及它們之間的關(guān)系，為后面的的邏輯結(jié)構(gòu)打下基礎(chǔ)。具體實體的實體描述ER圖如下：班級信息實體ER圖：班級信息實體班級編號班主任學(xué)生人數(shù)備注圖31班級課程實體ER圖： 班級課程實體班級編號課程名稱圖32學(xué)生檔案實體ER表：學(xué)生檔案實體姓名性別家庭住址備注圖33學(xué)生成績實體ER表： 學(xué)生成績實體成績編號考試期號考試課程考試分?jǐn)?shù)圖34 數(shù)據(jù)庫邏輯結(jié)構(gòu)設(shè)計有ER圖便是的概念模型，可以表示為任何一種數(shù)據(jù)庫管理系統(tǒng)（DBMS）所支持的數(shù)據(jù)模型，并進行規(guī)范化，減少冗余信息。關(guān)系模式（表） 表31 系統(tǒng)用戶表列名數(shù)據(jù)類型可否為空說明用戶名文本（20）否主鍵密碼文本（20）是表32班級表列名數(shù)據(jù)類型可否為空說明班級編號文本（50）否主鍵班主任文本（50）否 學(xué)生人數(shù)文本（50） 否 備注 文本（50） 是表33課程表列名數(shù)據(jù)類型可否為空說明課程名文本（50）否主鍵備注文本（50）是表34 班級課程表列名數(shù)據(jù)類型可否為空說明班級編號文本（50）否主鍵課程名文本（50）否表35 學(xué)生信息表列名數(shù)據(jù)類型可否為空說明學(xué)號文本（50）否主鍵姓名文本（50）否性別文本（50）否年齡文本（50）否班級文本（50）否出生日期日期否聯(lián)系電話文本（50）否 家庭地址 文本（50） 否 備注 文本（50） 否表36 學(xué)生成績表列名數(shù)據(jù)類型可否為空說明成績編號文本（50）否主鍵考試期號文本（50）否學(xué)生班號文本（50）否學(xué)號文本（50）否考試課程文本（50）否考試成績文本（50）否當(dāng)今軟件界的所有軟件無不是可視化的用戶界面，它的好處不外乎它有美觀、直接、操作者易懂和操作方便等好處。 2 界面根據(jù)用戶需求設(shè)計。 圖311相關(guān)代碼：Option ExplicitDim pwd As StringDim rsUser As Private Sub Combo1_Click()Dim sql As StringSet rsUser = New If = 1 Then sql = SELECT 密碼 FROM 系統(tǒng)用戶表 WHERE 用戶名=39。 amp。 sql, conn, adOpenStatic, adLockPessimisticpwd = Trim((密碼))End SubPrivate Sub Command1_Click()If = Then MsgBox 請選擇用戶名！, , 登錄 Exit SubEnd IfIf = Then MsgBox 請輸入密碼！, , 登錄 Exit SubEnd IfIf = pwd Then userID = Else MsgBox 密碼無效，請重試！, , 登錄 End IfEnd SubPrivate Sub Command2_Click()EndEnd SubPrivate Sub Form_Load()Dim nstr As StringDim sql As StringSet rsUser = New nstr = provider=。 data source= amp。 /Data/ nstrsql = SELECT 用戶名 FROM 系統(tǒng)用戶表 sql, conn, adOpenStatic, adLockPessimisticDo Until (用戶名) Loop End Sub1. 主頁面的子窗體圖312相關(guān)代碼：Dim i As LongPrivate Sub Form_Load() = amp。 amp。 amp。 amp。 amp。 amp。 amp。 39。 amp。 39。 amp。 39。 amp。 amp。 amp。 39。 amp。 39。 amp。 39。HE0E0E0 Picture1(i).Visible = False Next Label2(0).BackColor = amp。 amp。HE0E0E0 Picture1(i).Visible = False Next Label2(Index).BackColor = amp。 amp。 amp。 amp。 39。 amp。 amp。 amp。 amp。 amp。 39。 amp。 amp。 amp。 39。 amp。 amp。HE0E0E0 Picture1(i).Visible = False Next Label2(0).BackColor = amp。 amp。HE0E0E0 Picture1(i).Visible = False Next Label2(Index).BackColor = amp。 amp。 amp。 Next i Loop End With End SubPrivate Sub MSFlexGrid1_Click() If Picture1(1).Visible = True Then Text1(4) = Trim((, 0)) Text1(5) = Trim((, 1)) Text1(6) = Trim((, 2)) Text1(7) = Trim((, 3)) = True End If If Picture1(2).Visible = True Then Text1(8) = Trim((, 0)) Text1(9) = Trim((, 1)) Text1(10) = Trim((, 2)) Text1(11) = Trim((, 3)) = True End IfEnd SubPrivate Sub Text1_Change(Index As Integer) If Index = 4 Then txSQL = select * from 班級表 where 班級編號=39。 Trim(Text1(Index)) amp。 = provider=。 data source= amp。 /Data/ txSQL, conn, adOpenStatic, adLockPessimistic If = False Then Text1(5) = (1) Text1(6) = (2) Text1(7) = (3) amp。 amp。 39。 = True Exit Sub Else Text1(9) = Text1(10) = Text1(11) = = False End If End IfEnd Sub4. 課程管理界面圖320相關(guān)代碼：Dim mrcc As Dim txSQL As StringDim As StringPrivate Sub Combo1_Click()List1TextEnd SubPrivate Sub Command1_Click() If Text1(0) = Then MsgBox 課程名稱不能為空!, vbOKOnly, 提示 Text1(0).SetFocus Exit Sub End If txSQL = select * from 課程表 where 課程名=39。 Trim(Text1(0)) amp。 Set mrcc = New = provider=。 data source= amp。 /Data/ txSQL, conn, adOpenStatic, adLockPessimistic If = False Then MsgBox 此課程名稱已經(jīng)存在!, vbOKOnly, 警告 Text1(0).SetFocus Exit Sub End If txSQL = select * from 課程表 txSQL, conn, adOpenStatic, adLockPessimistic (0) = Trim(Text1(0)) (1) = Trim(Text1(1)) Text1(0) = Text1(1) = MsgBox 課程信息添加成功!, vbOKOnly, 提示 List2TextEnd SubPrivate Sub Command2_Click() If Then Set mrcc = New txSQL = delete from 課程表 where 課程名=39。 Trim() amp。 = provider=。 data source= amp。 /Data/ txSQL, conn, adOpenStatic, adLockPessimistic MsgBox 課程信息已經(jīng)刪除!, vbOKOnly, 提示 List2Text End IfEnd SubPrivate Sub Form_Load() Set mrcc = New = 課程信息設(shè) 置 txSQL = select * from 班級表 = provider=。 data source= amp。 /Data/ txSQL, conn, adOpenStatic, adLockPessimistic If = True Then MsgBox 請先進行班級設(shè)置!, vbOKOnly, 提示 Else With Combo1 Do While Not .AddItem Trim(mrcc!班級編號) Loop = 0 End With End If List