【正文】 ”序號(hào)“) = updCommand()39。 WhereStrEnd If39。Data Source=39。更新并刷新顯示End IfEnd SubPrivate Sub butDelete_Click(ByVal sender As , ByVal e As )Handles Dim response As MsgBoxResultresponse = MsgBox(”確定要?jiǎng)h除記錄嗎？“, vbOKCancel + vbQuestion, ”系統(tǒng)提示“)If response = Then 39。修改性別().Item(3)= 39。用戶選擇“確定”39。D:39。顯示出生日期 = (5). 39。顯示學(xué)號(hào) = (1). 39。打開數(shù)據(jù)庫(kù)連接(objDs, ”XS“)39。把objConn設(shè)置為objConn的數(shù)據(jù)連接 = objConn = objComm39。D:39。 WhereStr = amp。data source = 39。七．附錄代碼（附上各模塊代碼）Public Class Form1Private Sub Button1_Click(ByVal sender As , ByVal e As )Handles Static n As IntegerIf = “abc” And = “123” ThenDim form2 As New Form2()()()Elsen = n + 1If n 5 ThenMsgBox(“請(qǐng)輸入正確的用戶名和密碼！”, )ElseMsgBox(“請(qǐng)輸入正確的用戶名和密碼！”, ) = FalseEnd IfEnd IfEnd SubPrivate Sub Button2_Click(ByVal sender As , ByVal e As )Handles ()End SubPrivate Sub Button3_Click(ByVal sender As , ByVal e As )Handles Dim form3 As New Form3()()()End SubPrivate Sub Form1_Load(ByVal sender As , ByVal e As )Handles End Sub End ClassPublic Class Form6Private Sub Form6_Load(ByVal sender As , ByVal e As )Handles Dim objConn As New Dim objDaXS_KC As New Dim objDaXS As New Dim objCommXS_KC As New Dim objCommXS As New Dim objDsXS_KC As New DataSetDim objDsXS As New DataSet = “Provider = 。有時(shí)系統(tǒng)就給出個(gè)有個(gè)參數(shù)沒有被指定值，就可以讓人搞的焦頭爛額。剛開始做的時(shí)候，毫無頭緒，一片茫然。學(xué)生信息維護(hù)菜單功能：可對(duì)數(shù)據(jù)庫(kù)中已有的學(xué)生成績(jī)進(jìn)行查詢，添加，刪除，修改等操作。三．概要設(shè)計(jì)登錄界面功能：讓用戶進(jìn)行登錄。例如：注冊(cè)賬號(hào)出現(xiàn)的錯(cuò)誤數(shù)據(jù)庫(kù)中帳號(hào)被設(shè)為主鍵，當(dāng)注冊(cè)時(shí)的帳號(hào)與數(shù)局庫(kù)中的帳號(hào)有相同時(shí)就會(huì)出錯(cuò)。************ *******二、概要設(shè)計(jì)系統(tǒng)功能模塊框圖設(shè)計(jì)根據(jù)功能描述，建立系統(tǒng)的體系結(jié)構(gòu)，即將整個(gè)系統(tǒng)分解成若干子功能模塊，并用框圖表示各功能模塊之間的銜接關(guān)系，并簡(jiǎn)要說明各模塊的功能。讓程序更容易讓顧客進(jìn)行操作。四、本次設(shè)計(jì)的收獲及心得體會(huì)對(duì)VB理解不深刻,知識(shí)匱乏,但這是頗有實(shí)際用處的,認(rèn)真學(xué)習(xí)vb,不斷認(rèn)識(shí)自己的不足,并不斷改進(jìn)。 “ ” amp。 vbNewLine amp。 l1 End If Next i i = i1 Print i = amp。 b(i amp。 s2, , “zh1” = True = True End Sub Private Sub Command3_Click(Dim x As Integer, l1 As String, m1 As String = “姓名職稱工資” = amp。 c(i Text1 = Text1 + vbNewLine + str i = i + 1 Loop Close fileno i = i1 Print i aver = sum / i s1 = “職工的平均工資為:” amp。二、部分程序關(guān)鍵源代碼及注釋 Dim i As Integer, aver As Single Dim a(As String, b(As String, c(As String Private Sub Command1_Click(Dim str As String = “txt(*.txt|*.txt|all file(*.*|*.*” = 1 On Error GoTo usercancle usercancle: Text1 = “姓名職稱工資” fileno = FreeFile Open For Input As fileno i = 1 Do While Not EOF(filenoReDim Preserve a(i, b(i, c(i Input fileno, a(i, b(i, c(i str = a(i amp。(3計(jì)算職工的平均工資,并存放在平均工資變量,此變量應(yīng)定位模塊級(jí)的。變量聲明部分聲明本程序所需要的變量和數(shù)組,由于單擊按鈕時(shí),都要對(duì)姓名、職稱、工資進(jìn)行操作,因此相應(yīng)的數(shù)組和變量應(yīng)定義為模塊級(jí)的。第一篇：Vb課程設(shè)計(jì)職工信息系統(tǒng).職工信息系統(tǒng)設(shè)計(jì)報(bào)告一、設(shè)計(jì)思路 培養(yǎng)學(xué)生綜合利用VB語言進(jìn)行程序設(shè)計(jì)的能力,主要是培養(yǎng)學(xué)生綜合使用基本控件的、文件讀寫、數(shù)組操作和菜單設(shè)計(jì)等能力。最主要的工作包含在主窗體中,代碼包括事件處理過程和必要的聲明。注意為保留動(dòng)態(tài)數(shù)組中存放的內(nèi)容,在使用ReDim語句中要加上Preserve關(guān)鍵字。利用MsgBox 函數(shù)或另一個(gè)窗體來顯示高于及等于(或低于平均工資和分類匯總的結(jié)果。 “ ” amp。 vbCrLf amp。 “ ” amp。 vbNewLine amp。 y = amp。 b(i amp。 str7 Next i = “降序排序” Load Form2 End Sub Private Sub manu5_Click(End End Sub三、設(shè)計(jì)方案的完善及目前存在的問題 ①對(duì)編程語言的進(jìn)一步完善 ②對(duì)程序的調(diào)用 ③程序不夠人性化 ①編程語言不夠流暢。五、對(duì)該題目和VB設(shè)計(jì)的意見和建議 該程序應(yīng)該充分與現(xiàn)實(shí)結(jié)合。第二篇：VB 課程設(shè)計(jì)學(xué)生成績(jī)管理系統(tǒng)一、功能描述首先簡(jiǎn)單地闡述本人所要實(shí)現(xiàn)系統(tǒng)的目的，然后應(yīng)較詳細(xì)的敘述本系統(tǒng)所要實(shí)現(xiàn)的功能。（1）窗體截圖（如圖2）圖2 注冊(cè)窗體（2）功能實(shí)現(xiàn)學(xué)生信息查詢窗體圖3 查詢窗體四、調(diào)試中存在的問題及解決方法包括調(diào)試過程中遇到的主要問題及采取的解決方法。第三篇：VB課程設(shè)計(jì)課程設(shè)計(jì)學(xué) 院 班 級(jí)指導(dǎo)老師姓 名 學(xué) 號(hào) 成 績(jī)2013年 月 10日一．課程設(shè)計(jì)題目學(xué)生管理系統(tǒng)二．功能描述按設(shè)定的用戶名密碼進(jìn)行登錄后，可按需求進(jìn)行對(duì)數(shù)據(jù)庫(kù)中已有的學(xué)生信息及成績(jī)進(jìn)行查詢，添加，刪除，修改等操作。編輯學(xué)生信息菜單功能：可對(duì)數(shù)據(jù)庫(kù)中已有的學(xué)生信息進(jìn)行查詢，添加，刪除，修改等操作。六．心得體會(huì)經(jīng)過幾天的苦戰(zhàn)，終于把課程設(shè)計(jì)粗略的做完了。由于VB語法還運(yùn)用不熟練，很多代碼都是模仿書本上的敲的，許多代碼往往能編譯通過，但很多都會(huì)拋出各種異常，讓人頭疼。一句話，實(shí)踐才是硬道理。” = “ Select * From XS ” = “ Select * From XS_KC ” = objConn = objCommXS_KC = objConn = objCommXS()(objDsXS_KC, “XS_KC”)(objDsXS, “XS”)() = (“XS_KC”) = (“XS”)End SubPrivate Sub Button1_Click(ByVal sender As , ByVal e As )Handles Dim objConn As New Dim objDaXS_KC As New Dim objDaXS As New Dim objCommXS_KC As New Dim objCommXS As New Dim objDsXS_KC As New DataSetDim objDsXS As New DataSetDim WhereStr As StringWhereStr = “If Trim() ”“ ThenWhereStr = ” 學(xué)號(hào)like “ + Trim()End If = ”Provider = 。 ”where“ amp。Data Source=39。 WhereStrEnd If39。創(chuàng)建Update CommandDim updCommand As New (”UPDATE XS SET 學(xué)號(hào)=?,姓名=?,專業(yè)名=?,性別=?,出生日期=?,總學(xué)分=?,備注=? WHERE 學(xué)號(hào)=?“, objConn)(”學(xué)號(hào)“, , 6, ”學(xué)號(hào)“)(”姓名“, , 8, ”姓名“)(”專業(yè)名“, , 10, ”專業(yè)名“)(”性別“, , 2, ”性別“)(”出生日期“, , Nothing, ”出生日期“)(”總學(xué)分“, , Nothing, ”總學(xué)分“)(”備注“, , Nothing, ”備注“)(”學(xué)號(hào)“, , 6, ”學(xué)號(hào)“) = updCommand()39。把DataGrid1的DataSource屬性設(shè)置為剛剛?cè)〉降臄?shù)據(jù)表，這樣就可以顯示數(shù)據(jù)了 = (”XS“)End SubPrivate Sub DataGridView1_CellContentClick(ByVal sender As , ByVal e As )Handles = (0). 39。顯示性別 = (4). 39。data source = 39。 WhereStrEnd If = objConn = objCommXS()(objDsXS, ”XS“)() = (”XS“)End SubPrivate Sub Form7_Load(ByVal sender As , ByVal e As )Handles wherestr = ”“bindgridview(wherestr)End SubPrivate Sub butAdd_Click(ByVal sender As , ByVal e As )Handles Dim response As MsgBoxResultresponse = MsgBox(”確定要添加記錄嗎？“, vbOKCancel + vbQuestion, ”系統(tǒng)提示“)If response = ThenDim myRow As DataRow = ()myRow(”學(xué)號(hào)“)= myRow(”姓名“)= myRow(”專業(yè)名“)= myRow(”性別“)= myRow(”出生日期“)= myRow(”總學(xué)分“)= myRow(”備注“)= (myRow)refreshdata()End IfEnd SubPrivate Sub butEdit_Click(ByVal sender As , ByVal e As )Handles Dim response As MsgBoxResultresponse = MsgBox(”確定要修改記錄嗎？“, vbOKCancel + vbQuestion, ”系統(tǒng)提示“)If response = Then 39。修改專業(yè)().Item(2)= 39。修改備注().Item(6)= refreshdata()39。更新并刷新顯示End IfEnd Sub End ClassPublic Class Form4Dim objDs As New DataSetDim objXSTable As DataTableDim objDa As New Dim WhereStr As StringPublic Sub refr