【正文】 ThenMsgBox(”查不到相關(guān)信息“)ElseSet = rs1End IfEnd If ElseIf = ”“ ThenMsgBox(”姓名輸入不能為空!“)ElseDim sql2 As StringSet rs2 = New sql2 = ”select * from stuInfo where name=39。“ amp。 amp。 ”39?！?= adUseClient sql2, conn, adOpenDynamic, adLockOptimistic, adCmdTextIf ThenMsgBox(”查不到相關(guān)信息“)ElseSet = rs2End IfEnd If End If End Sub 返回Private Sub cmdReturn_Click() Unload Me End Sub 輸出窗口Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)39。 = (4)39。39。獲取選中行的第5列數(shù)據(jù)End Sub 窗體Private Sub Form_Load()Dim sql As StringSet conn = New Set rs = New Call openconnsql = ”select * from stuInfo“ = adUseClient sql, conn, adOpenDynamic, adLockOptimistic, adCmdTextSet = rs 39。datagrid綁定數(shù)據(jù)源 End Sub成績查詢返回 Private Sub cmdReturn_Click() Unload Me End Sub 確定Private Sub Command1_Click() = Trim()+ ”課程成績“Dim sql1 As StringSet rs1 = New sql1 = ”select , from score, course where name=39?！?amp。 amp。 ”39。 and =“39。sql1 = ”select * from course“ = adUseClient sql1, conn, adOpenDynamic, adLockOptimistic, adCmdTextSet = rs1 End Sub 窗體Private Sub Form_Load()Dim sql As StringSet conn = New Set rs = New Call openconnsql = ”select * from course“ sql, conn, adOpenDynamic, adLockOptimisticDo Until rs(”name“)Loop End Sub選課管理返回Private Sub cmdReturn_Click() Unload Me End Sub 提交Private Sub cmdSubmit_Click()If txtID = ”“ ThenMsgBox(”請輸入學(xué)號(hào)！“) ElseIf = ”“ ThenMsgBox(”請選擇課程！“)ElseDim sql1 As StringDim sql2, name As StringSet rs2 = New Set rs1 = New sql1 = ”select , from score , course where ID=39。“ amp。 amp。 ”39。 and name=39?！?amp。 amp。 ”39。 and =“name = sql2 = ”select Num from course where name=39?！?amp。 name amp。 ” 39?！?sql1, conn, adOpenDynamic, adLockOptimistic sql2, conn, adOpenDynamic, adLockOptimisticIf Thenrs1(”ID“)= rs1(”Num“)= rs2(”Num“)MsgBox(”選課成功！“)ElseMsgBox(”已選過該課！“)End If End If End Sub 窗體Private Sub Form_Load()Dim sql As StringSet conn = New Set rs = New sql = ”select * from course“Call openconn sql, conn, adOpenDynamic, adLockOptimisticDo Until 39。listbox控件利用循環(huán)讀取課程表中的課程名 rs(”name“)Loop End Sub查詢確定Private Sub cmdOK_Click()If txtID = ”“ ThenMsgBox(”學(xué)號(hào)不能為空！“) ElseDim sql As StringDim sum1, sum2 As SingleDim n As IntegerSet conn = New Set rs = New Call openconnsql = ”select , , from score , course where =39?！?amp。 amp。 ”39。 and =“ = adUseClient sql, conn, adOpenDynamic, adLockOptimistic, adCmdTextSet = rssum1 = 0sum2 = 0n = 0Do While Not sum1 = sum1 + Val(rs(”score“))sum2 = sum2 + Val(rs(”credit“))n = n + 1Loop = Format(sum1 / n, ”“) = sum2 End If End Sub 返回Private Sub cmdReturn_Click() Unload Me End Sub修改學(xué)生信息返回Private Sub cmdReturn_Click() Unload Me End Sub 提交Private Sub cmdSubmit_Click()If = ”“ ThenMsgBox(”學(xué)號(hào)不能為空！“) ElseIf = ”“ ThenMsgBox(”姓名不能為空！“) ElseIf = ”“ ThenMsgBox(”學(xué)分不能為空！“) ElseIf = ”“ ThenMsgBox(”年齡不能為空！“) ElseDim sql As StringSet conn = New Set rs = New Call openconnsql = ”select * from stuInfo where ID=39。“ amp。 amp。 ”39?！?sql, conn, adOpenDynamic, adLockOptimisticIf Not Then39。判斷學(xué)號(hào)是否存在 rs(”name“)= rs(”sex“)= rs(”age“)= rs(”pro“)= MsgBox(”修改成功！“)ElseMsgBox(”學(xué)號(hào)不存在!“)End If End If End Sub 窗體Private Sub Form_Load()txtID = rs(”ID“)txtName = rs(”name“)txtSex = rs(”sex“)txtAge = rs(”age“) = rs(”pro“)End Sub添加學(xué)生返回Private Sub cmdReset_Click() Unload Me End Sub 提交Private Sub cmdSubmit_Click()If = ”“ ThenMsgBox(”學(xué)號(hào)不能為空！“) ElseIf = ”“ ThenMsgBox(”請輸入姓名！“) ElseIf = ”“ ThenMsgBox(”請輸入性別！“) ElseIf = ”“ ThenMsgBox(”年齡不能為空！“) ElseDim sql As StringSet conn = New Set rs = New Call openconnsql = ”select * from stuInfo where ID=39?！?amp。 amp。 ”39?！?sql, conn, adOpenDynamic, adLockOptimisticIf Then39。判斷學(xué)號(hào)是否存在 rs(”ID“)= rs(”name“)= rs(”sex“)= rs(”age“)= rs(”pro“)= MsgBox(”添加成功！“)Unload MeElseMsgBox(”學(xué)號(hào)已存在!)End If End If End Sub第五篇：VB學(xué)生成績管理系統(tǒng)任務(wù)書河北聯(lián)合大學(xué)《軟件設(shè)計(jì)基礎(chǔ)VB》課程設(shè)計(jì)任務(wù)書學(xué)院班級(jí)設(shè)計(jì)人成績一、題目：學(xué)生成績管理系統(tǒng)二、目的與要求：：，主要培養(yǎng)學(xué)生使用ACCESS數(shù)據(jù)庫和ADO控件設(shè)計(jì)信息管理類軟件。：① 要求用ACCESS搭建數(shù)據(jù)庫。② 使用ADO控件實(shí)現(xiàn)與數(shù)據(jù)庫的連接。③ 使用MSChart圖表控件繪制各種類型的圖表；使用MSFlexGrid表格控件顯示數(shù)據(jù)信息。④ 程序界面美觀，運(yùn)行無差錯(cuò)：在基本要求達(dá)到后，進(jìn)行創(chuàng)新設(shè)計(jì)：（1）允許更改密碼。（2）增加排名次的功能。（3）可以按院系、專業(yè)和年級(jí)計(jì)算平均成績并繪制圖表。（4）用戶可以添加新的院系和專業(yè)名稱。三、設(shè)計(jì)方法和基本原理：：設(shè)計(jì)一個(gè)“學(xué)生成績管理系統(tǒng)”程序，實(shí)現(xiàn)對學(xué)生成績的添加、修改、刪除、查詢和圖表繪制，具體如下：（1）運(yùn)行程序先進(jìn)入“登錄”界面，要求輸入數(shù)據(jù)庫密碼，如果密碼錯(cuò)誤，給出提示。（2）經(jīng)過密碼檢驗(yàn)后，顯示主界面，以表格形式顯示數(shù)據(jù)庫中所有學(xué)生的成績信息。（3）“添加”：其中院系、專業(yè)和年級(jí)使用組合框進(jìn)行選擇。（4）“修改”：只允許修改學(xué)生成績，不允許修改姓名、院系、專業(yè)和年級(jí)。（5）“刪除”：可以刪除學(xué)生信息，刪除前進(jìn)行確認(rèn)。（6）“查詢”：可以根據(jù)院系、專業(yè)和年級(jí)進(jìn)行查詢。（7）“圖表繪制”：分別以二維條形圖、二維圓餅圖和三維條形圖的形式顯示學(xué)生成績中優(yōu)、良、中、及格和不及格的分布情況。：401根據(jù)問題描述，可以將問題解決分為以下幾個(gè)方面：① 進(jìn)行需求分析確定數(shù)據(jù)庫的結(jié)構(gòu)，建立相應(yīng)的數(shù)據(jù)表。② 利用ADO控件與數(shù)據(jù)庫連接。③ 設(shè)計(jì)主界面，要求有菜單、工具欄和狀態(tài)欄，具體內(nèi)容按功能要求自行設(shè)計(jì)。④ 其他界面自行設(shè)計(jì)，滿足基本功能要求即可。四、難點(diǎn)與提示：（1）本題目中數(shù)據(jù)庫文件的設(shè)計(jì)是關(guān)鍵，可按如下方法：，包含三個(gè)數(shù)據(jù)表：院系、專業(yè)和成績?！霸合怠北碇斜４嬖合荡?hào)和名稱；“專業(yè)”表中保存專業(yè)代號(hào)和名稱，以及所屬院系的代號(hào)；“成績”表中保存學(xué)生姓名、院系代號(hào)、專業(yè)代號(hào)、年級(jí)和各科成績。（2）ADO控件和數(shù)據(jù)庫的連接代碼：provider = “provider=”datasource = “data source=” amp。 amp。 “”With Adodc1.Mode = adModeReadWrite.ConnectionString = provider amp。 “。” amp。 datasource.CommandType = adCmdTable.RecordSource = “yx”.RefreshEnd With五、課程設(shè)計(jì)時(shí)間：2012年5月10日至2012年7月1日六、課程設(shè)計(jì)進(jìn)行地點(diǎn)：學(xué)校機(jī)房七、書寫設(shè)計(jì)報(bào)告的要求：設(shè)計(jì)報(bào)告中包含以下幾個(gè)方面：①劃分功能模塊②確定各模塊的算法，并加以必要的注釋，有何收獲及心得體會(huì)八、課程設(shè)計(jì)的考核方式及評(píng)分方法402課程設(shè)計(jì)結(jié)束時(shí)，學(xué)生要提交課程設(shè)計(jì)報(bào)告（A4紙打?。?，并將電子文檔和源程序上傳至課程設(shè)計(jì)服務(wù)器中：ftp://找到自已指導(dǎo)教師的文件夾后，進(jìn)入班級(jí)文件夾，再找到自己的文件夾，然后將文檔復(fù)制到該文件夾中即可。2．評(píng)分方法（1）出勤率（2）課程設(shè)計(jì)準(zhǔn)備工作（3）課程設(shè)計(jì)期間紀(jì)律（4）課程設(shè)計(jì)運(yùn)行結(jié)果（5）課程設(shè)計(jì)報(bào)告（6）答辯情況指導(dǎo)教師： 系主任簽字：日期：403 年月日